dim info$(10,10)
dim li(45,45)
dim fileline$(45)
global corr
global updown$
global lx
global ly
global mousx
global mousy
global r
global g
global b
r=0
g=0
b=0
call screen 800,600' Generic screen with graphics box to fit ( I may redesign)
'*******************************place graphics bellow here use #h.1 for draw device
updown$="down"
mousx=22
mousy=22
lx=mousx*10
ly=mousy*10
plx=lx:ply=ly
#h.2 "place ";lx;" ";ly;";down;color green;size 1;circle 6"
[refresh]
#h.1 "size 20;color ";r;" ";g;" ";b;";set ";130;" ";80
#h.1 "size 1;place 100 10;down;backcolor black;color white;\ location ";mousx;" ";mousy;" RGB ";r;" ";g;" ";b;"                     Press ( w s a d ) to move draw *****"
#h.1 "color green;backcolor black;place 100 30;down;\ pen is ";updown$;"**Press 1-UP  2-DOWN**              ( P-save L-load C-Compile M-MaskBmp N-SaveBmp)"
#h.1 "color red;backcolor black;place 100 45;down;\ Any color bellow 30 is white part of mask.     Make sure you save your project often"
#h.1 "color green;place 100 60;\           Mouse-- Left+down+movement=more white  Right+down+movement=less white"
#h.1 "place 140 75;color yellow;\ SaveBmp- A BMP.bmp  (rename your files after you are done immediately so you dont overwrite)"
#h.1 "color pink;place 140 90;\ Mask- A NEW MASK.bmp * Save/Load File- A Notbasic.bas * Compile file- A Basicdatafile.bas"
#h.1 "color blue;line 46 0 46 46;line 0 46 46 46"
#h.1 "when rightButtonMove lesscolor"
#h.1 "when leftButtonMove morecolor"
#h.2 "when rightButtonMove lesscolor"
#h.2 "when leftButtonMove morecolor"
#h.2 "setfocus;place 10 20"
   #h.2 "when characterInput [inp]"
   #h.1 "setfocus;place 10 20"
   #h.1 "when characterInput [inp]"
[back]

'^^^^^^^^^^^^^^^^^^^^^^Put graphics and game stuff above^^^^^^^^^^^^^^^^
wait
[quit]
 close #h
 end
[savebmp]
  print #h.1, "flush"
   print #h.1, "getbmp ABMP 0 0 45 45"
   bmpsave "ABMP", "A Bmp.bmp"
goto [back]
[mask]
#h.2 "backcolor black;fill black;cls"
bottom=0
poz=0'  temporary variable for increment for array
while bottom< 46
r=li(poz,bottom)
g=li(poz,bottom)
b=li(poz,bottom)
if r<30 then #h.2 "color white;set ";poz;" ";bottom
if r>29 then #h.2 "color black;set ";poz;" ";bottom
#h.2 "color ";r;" ";g;" ";b;";set ";poz;" ";bottom+46
poz=poz+1
if poz> 45 then poz= 0:bottom=bottom+1
wend
  print #h.2, "flush"
   print #h.2, "getbmp ABMP 0 0 90 90"
   bmpsave "ABMP", "A NEW MASK.bmp"
goto [back]
[loadit]
#h.1 "backcolor black;fill black;cls"
#h.2 "backcolor black;fill black;cls"
gfile$="A Notbasic.bas"
bottom=0
poz=0'temporary variable for increment for array
if fileExists(DefaultDir$, "A Notbasic.bas") then
open gfile$ for input as #fil
'while eof(#fil) > -1'refrence in case need
while bottom< 46
input #fil, thestring
 li(poz,bottom)=thestring
 lx=poz*10
ly=bottom*10
nr=thestring
ng=thestring
nb=thestring
#h.2 "place ";lx;" ";ly;";";updown$;";color ";nr;" ";ng;" ";nb;";size 10;set ";lx;" ";ly
#h.1 "";updown$;";size 1;color ";nr;" ";ng;" ";nb;";set ";poz;" ";bottom
 poz=poz+1
if poz> 45 then poz= 0:bottom=bottom+1
wend
close #fil
else
fexists$=""
end if
goto [refresh]
end
function fileExists(path$, filename$)
   'dimension the array info$( at the beginning of your program
   files path$, filename$, info$()
   fileExists = val(info$(0, 0)) 'non zero is true
 end function
[saveit]
gfile$="A Notbasic.bas"
bottom=0
poz=0'  temporary variable for increment for array
open gfile$ for output as #fil
while bottom< 46
thestring= li(poz,bottom)
print #fil, thestring
poz=poz+1
if poz> 45 then poz= 0:bottom=bottom+1
wend
close #fil
goto [back]
end
[compileit]
gfile$="A basicdatafile.bas"
bottom=0
poz=0'  temporary variable for increment for array
open gfile$ for output as #fil
'***********************************GENERATED PROGRAM******************WHAT I DO BEST**************************************
print#fil, "nomainwin"
print#fil, "WindowWidth=100"
print#fil, "WindowHeight=100"
print#fil, "UpperLeftX=200"
print#fil, "UpperLeftY=100"
print#fil, "graphicbox #h.1, 0,0,800,100"
print#fil, "open ";chr$(34);"YOUR SUPER DUPER HIGH COLOR DEPTH CODE IMAGE !!!!";chr$(34);" for window_nf as #h"
print#fil, "print #h, ";chr$(34);"trapclose [quit]";chr$(34)
print#fil, "#h.1 ";chr$(34);"backcolor black;fill black;cls";chr$(34)
print#fil, " while bottom< 46"
print#fil, "read c"
print#fil, "r=c:g=c:b=c"
print#fil, "#h.1 ";chr$(34);"down;size 1;color ";chr$(34);";r;";chr$(34);" ";chr$(34);";g;";chr$(34);" ";chr$(34);";b;";chr$(34);";set ";chr$(34);";poz;";chr$(34);" ";chr$(34);";bottom"
print#fil, "poz=poz+1"
print#fil, "if poz> 45 then poz= 0:bottom=bottom+1"
print#fil, "wend"
print#fil, "wait"
print#fil, "[quit]"
print#fil, "close #h"
print#fil, "end"
'*****************************************************DATA COMPILES*********************************************************
print#fil,"data ";
while bottom< 46
thestring$= str$(li(poz,bottom))+","
thestring2$= str$(li(poz,bottom))
if poz<45 then print #fil, thestring$;
if poz>44 then print #fil, thestring2$:print #fil, "data ";
poz=poz+1
if poz> 45 then poz= 0:bottom=bottom+1
wend
close #fil
goto [back]
end
 ' Generic screen
sub screen x,y
nomainwin
WindowWidth=x
WindowHeight=y
UpperLeftX=1
UpperLeftY=1
graphicbox #h.1, 0,0,800,100
graphicbox #h.2, 100,100,460,460
open "SUPER SHADE...THE DEPTH PROJECT" for window_nf as #h
print #h, "trapclose [quit]"
#h.1 "backcolor black;fill black;cls"
#h.1 "color white"' default color if no color has been chosen
#h.2 "backcolor black;fill black;cls"
#h.2 "color white"'
end sub
sub getmouseloc handle$, x,y' NOT BEING USED IN THIS PROJECT ( generic mouse locator )mousx and mousy would need global at start
mousx= x
mousy= y
lx=mousx*10
ly=mousy*10
ly=y*10
#h.1 "size 1;place 100 10;down;backcolor black;color white;\ location ";mousx;" ";mousy;" RGB ";r;" ";g;" ";b;" Press w s a d to move draw*****"
#h.2 "place ";lx;" ";ly;";down;color ";r;" ";g;" ";b;";size 10;set ";lx;" ";ly
end sub
sub lesscolor handle$, x,y
r=r-1
g=g-1
b=b-1
if r<0 then r=0
if g<0 then g=0
if b<0 then b=0
#h.1 "size 20;color ";r;" ";g;" ";b;";set ";130;" ";80
#h.1 "place 100 10;down;backcolor black;color white;\ location ";mousx;" ";mousy;" RGB ";r;" ";g;" ";b;"****"
#h.2 "place ";lx;" ";ly;";";updown$;";color ";r;" ";g;" ";b;";size 10;set ";lx;" ";ly
if corr=0 and updown$="down" then li(mousx,mousy)=r
end sub
sub morecolor handle$, x,y
r=r+1
g=g+1
b=b+1
if r>254 then r=254
if g>254 then g=254
if b>254 then b=254
#h.1 "down;size 20;color ";r;" ";g;" ";b;";set ";130;" ";80
#h.1 "place 100 10;down;backcolor black;color white;\ location ";mousx;" ";mousy;" RGB ";r;" ";g;" ";b;"****"
#h.2 "place ";lx;" ";ly;";";updown$;";color ";r;" ";g;" ";b;";size 10;set ";lx;" ";ly
if corr=0 and updown$="down" then li(mousx,mousy)=r
end sub
[inp]
 ch$ = Inkey$
 if ch$="w" then mousy=mousy-1
 if ch$="s" then mousy=mousy+1
 if ch$="d" then mousx=mousx+1
 if ch$="a" then mousx=mousx-1
 if ch$="1" then updown$="up"
 if ch$="2" then updown$="down"
 if ch$="p" then [saveit]
 if ch$="l" then [loadit]
 if ch$="c" then [compileit]
 if ch$="m" then [mask]
if ch$="n" then [savebmp]
if mousx<0 then mousx=0:corr=1
if mousy<0 then mousy=0:corr=1
if mousx>45 then mousx=45:corr=1
if mousy>45 then mousy=45:corr=1
lx=mousx*10
ly=mousy*10
#h.2 "place ";lx;" ";ly;";";updown$;";color ";r;" ";g;" ";b;";size 10;set ";lx;" ";ly
#h.2 "place ";plx;" ";ply;";down;color black;size 1;circle 6"
#h.2 "place ";lx;" ";ly;";down;color green;size 1;circle 6":plx=lx:ply=ly

if updown$="down" then #h.1 "";updown$;";size 1;color ";r;" ";g;" ";b;";set ";mousx;" ";mousy
#h.1 "size 1;place 100 10;down;backcolor black;color white;\ location ";mousx;" ";mousy;" RGB ";r;" ";g;" ";b;"****"
#h.1 "color white;backcolor black;place 100 30;down;\ pen is ";updown$;"**Press 1-UP  2-DOWN****"
if corr=0 and updown$="down" then li(mousx,mousy)=r
corr=0
goto [back]