Ok this is a paint program called MiPic:
set window on : set window position 150,50 : set window size 800,600 : set text font "Arial" : save$="Save picture as .bmp"
start: : s=2: cls rgb(255,255,255) : line$="Line" : Dot$="Dot" : box 640,0,0,80,rgb(50,50,255),rgb(50,50,255),rgb(255,255,255),rgb(50,50,255) : size$="Brush size: " : sml$="Small" : med$="Medium" : lrg$="Large" : vlrg$="V. Large" : c$="Clear drawing" : l#=30 : d#=0 : shape$="Shape: "
do : text 20,20,size$ : text 280,20,shape$ : mx=mousex() : my=mousey() : if mx>20 and mx<(20+text width(sml$)) and my>40 and my<(40+text height(sml$)) then sel=1 else sel=0 : if mx>60 and mx<(60+text width(med$)) and my>40 and my<(40+text height(med$)) then sel2=1 else sel2=0 : if mx>100 and mx<(100+text width(lrg$)) and my>40 and my<(40+text height(lrg$)) then sel3=1 else sel3=0
if mx>140 and mx<(140+text width(vlrg$)) and my>40 and my<(40+text height(vlrg$)) then sel4=1 else sel4=0 : if mx>280 and mx<(280+text width(dot$)) and my>40 and my<(40+text height(dot$)) then sel6=1 else sel6=0
if mx>320 and mx<(320+text width(line$)) and my>40 and my<(40+text height(line$)) then sel7=1 else sel7=0 : : if mx>440 and mx<(440+text width(c$)) and my>40 and my<(40+text height(c$)) then sel5=1 else sel5=0 :
if mx>440 and mx<(440+text width(save$)) and my>20 and my<(20+text height(save$)) : sav=1 : else : sav=0 : if mouseclick()=1 and sel5=1 : goto start : Endif : Endif : if sav>0 and mouseclick()=1 then gosub save
if sav>0 then ink rgb(255,75,75),0 else ink rgb(255,255,255),0 : if sav>0 then ink rgb(255,75,75),0 else ink rgb(255,255,255),0
text 440,20,save$ : if sel>0 and s=2 then ink rgb(255,75,75),0 else : if s=2 then ink rgb(255,255,255),0 else ink rgb(20,55,55),0
text 20,40,sml$ : if sel2>0 and s=2 then ink rgb(255,75,75),0 else : if s=2 then ink rgb(255,255,255),0 else ink rgb(20,55,55),0
text 60,40,med$ : if sel3>0 and s=2 then ink rgb(255,75,75),0 else : if s=2 then ink rgb(255,255,255),0 else ink rgb(20,55,55),0
text 100,40,lrg$ : if sel4>0 and s=2 then ink rgb(255,75,75),0 else : if s=2 then ink rgb(255,255,255),0 else ink rgb(20,55,55),0
text 140,40,vlrg$ : if sel6>0 then ink rgb(255,75,75),0 else ink rgb(255,255,255),0
text 280,40,dot$: if sel7>0 then ink rgb(255,75,75),0 else ink rgb(255,255,255),0
text 320,40,line$ : if sel5>0 then ink rgb(255,75,75),0 else ink rgb(255,255,255),0
text 440,40,c$ : if mouseclick()=2 and my>82 and s=2 : ink rgb(255,255,255),0 : line mx,my,mx+l#,my+d# : Endif : if mouseclick()=2 and my>82 and s=1 : ink rgb(255,255,255),0 : dot mx,my : endif :
ink rgb(0,0,0),0 : if inkey$()="r" then ink rgb(255,0,0),0 : if mouseclick()=1 and sel=1 : l#=5 : Endif : if mouseclick()=1 and sel2=1 : l#=15 : Endif : if mouseclick()=1 and sel3=1 : l#=30 : Endif : if mouseclick()=1 and sel4=1 : l#=50 : Endif
if mouseclick()=1 and sel6=1 : s=1 : endif : if mouseclick()=1 and sel7=1 : s=2 : endif : if inkey$()="g" then ink rgb(1,255,1),0
if inkey$()="b" : ink rgb(50,50,255),0 : endif : if mouseclick()=1 and my>82 and s=2 : line mx,my,mx+l#,my+d# : Endif : if mouseclick()=1 and my>82 and s=1 : dot mx,my : endif : ink rgb(0,0,0),0 : loop
save: : set current bitmap 0 : get image 1,0,0,screen width(),screen height()-82,1 : ext$=".bmp"
file$="Picture [" + str$(num) + "]" + ext$ : if file exist(file$)=1 : repeat : num=num+1 : file$="Picture [" + str$(num) + "]" + ext$ : until file exist(file$)=0 : endif : save image file$,1 : return
Gimme feedback
.
It took me 3hrs in total
and it's finished. It can save pictures too.
Controls:
Hold R - Red Colour
Hold B - Blue Colour
Hold G - Green Colour
Right Mouseclick - Rub out
Left Mouseclick - Draw
If you don't hold anything, it will go back to black colour.
Esc - Quit.
And oh yeah -
NO MEDIA!
Cheers,
Nick.
