here is a drawing programming i knocked up while playing with the rnd command (im a noob):
q: quit
t: set line thickness
left mouse: draw
right mouse: clear screen
code:
SET DISPLAY MODE 1280, 1024, 16
thickness=0
while inkey$()<>\"q\"
fcolor= rgb(rnd(255), rnd(255), rnd(255))
ink fcolor, rgb(255,255,255)
if mouseclick()=1
for z= 0 to thickness
line mousex()+z,mousey()+z,prevx+z,prevy+z
next z
endif
if mouseclick()=2 then cls
if inkey$()=\"t\"
set cursor 0,0
input \"what thickness?(0-1279): \", thickness
endif
prevx=mousex()
prevy=mousey()
endwhile
