set display mode 640,480,16
create bitmap 1,640,480
show mouse
do
x#=mousex()
y#=mousey()
zs#=255
if mouseclick()=1
ink rgb(zs#,zs#,zs#),0
circle x#,y#,15
endif
if escapekey()=1 then end
loop
rem set display mode 640,480,16
rem create bitmap 1,640,480
rem show mouse
rem Put the next line in if you want the circle to only be where the mouse is
backdrop on
do
x#=mousex()
y#=mousey()
zs#=255
if mouseclick()=1
ink rgb(zs#,zs#,zs#),0
circle x#,y#,15
endif
if escapekey()=1 then end
loop
The 2nd works find in DBPro V3.1 on my system. If you rem out the BACKDROP ON, it leaves the last drawn circle on the screen so you can "Draw". You can unrem teh CREATE BITMAP line if you add code to paste it to the screen so you can see what you're doing.
Don't use the line SET DISPLAY MODE. The editor can do that for you. Using the line has issues.
-Kensupen