I finished this in probably 4 hours. It is only 10 lines and can probably be made in to fewer.All the instructions are in it. Hint:Try using the ellipse for cool designs.
start:
cls:Box 0,0,700,700,RGB(255,255,255),RGB(255,255,255),RGB(255,255,255),RGB(255,255,255):box 0,0,700,30,RGB(0,0,255),RGB(0,0,255),RGB(0,0,255),RGB(0,0,255):set cursor 0,0:Print "1=black 2=blue 3=lightblue 4=red 5=pink 6=yellow 7=purple 8=darkgreen 9=green"
set cursor 0,12:Print "D=Dots L=Lines T=Text B=Box E=Ellipse Spacebar=clear H=Help":k=1:Do:sync:if keystate(2)=1:ink RGB(0,0,0),RGB(255,255,255):endif:if keystate(3)=1:ink RGB(0,0,255),RGB(255,255,255):endif:if keystate(35)=1:goto help::endif
If keystate(4)=1:ink RGB(0,255,255),RGB(255,255,255):endif:if keystate(5)=1:ink RGB(255,0,0),RGB(255,255,255):endif:if keystate(6)=1:ink RGB(255,128,128),RGB(255,255,255):endif:if keystate(7)=1:ink RGB(255,255,0),RGB(255,255,255):endif
if keystate(8)=1:ink RGB(128,0,128),RGB(255,255,255):endif:If keystate(9)=1: ink RGB(0,128,64),RGB(255,255,255):endif:if keystate(10)=1:ink RGB(0,255,64),RGB(255,255,255):endif:if keystate(32)=1:k=1:endif:if keystate(38)=1:k=2:endif
if keystate(20)=1:k=3:endif:if keystate(48)=1:k=4:endif:if keystate(18):k=5:endif:if spacekey()=1:cls:goto start::endif:if mouseclick()=1 and k=1:dot mousex(),mousey():endif:if mouseclick()=1 and k=2:line mousex(),mousey(),mousex()+10,mousey():endif
if mouseclick()=1 and k=3:set cursor mousex(),mousey():input "",text$:endif:if mouseclick()=1 and k=4:box mousex()-10,mousey()-10,mousex()+10,mousey()+10:endif:if mouseclick()=1 and k=5:ellipse mousex(),mousey(),10,10:endif:loop
help:
cls:set cursor 0,0:ink RGB(255,255,255),0:box 0,0,700,700:ink RGB(0,0,0),0:Print "Help Desk:":print "":Print "1.Click the mouse to paint":Print "2.You must choose a color":print "3.Press alt and Print Screen then click paste in MSN Paint to save or print"
print "":Print "Credits:":Print "Produced and Developed by Nick Tsianos":Print "(Press any key)":wait key:goto start:
Mysteries Surround You