Sorry your browser is not supported!

` My Masterpiece
DotX=screen width()/2 : DotY=screen height()/2

Do
 if upkey()=1 then Dec DotY,1
 if downkey()=1 then Inc DotY,1
 if leftkey()=1 then Dec DotX,1
 if rightkey()=1 then Inc DotX,1

 CLS
 dot DotX,DotY
Loop

` My Masterpiece
DotHeight=screen height()/2 : DotWidth=screen width()/2 : dot DotWidth,DotHeight
Do
 if upkey()=1 : dot DotWidth,DotHeight : Dec DotHeight,1 : endif
 if downkey()=1 : dot DotWidth,DotHeight : Inc DotHeight,1 : endif
 if leftkey()=1 : dot DotWidth,DotHeight : Dec DotWidth,1 : endif
 if rightkey()=1 : dot DotWidth,DotHeight : Inc DotWidth,1 : endif
Loop

` My Masterpiece
`a better etch-a scetch
DotHeight=screen height()/2 : DotWidth=screen width()/2 : dot DotWidth,DotHeight
Do
 if upkey()=1 : dot DotWidth,DotHeight : Dec DotHeight,1 : endif
 if downkey()=1 : dot DotWidth,DotHeight : Inc DotHeight,1 : endif
 if leftkey()=1 : dot DotWidth,DotHeight : Dec DotWidth,1 : endif
 if rightkey()=1 : dot DotWidth,DotHeight : Inc DotWidth,1 : endif
 if spacekey()=1 : cls : endif
Loop

 if shake()=1 : cls : endif
 :P

` My Masterpiece
`an even better one with save,and colour changing
set display mode 1024,768,16 : Hide mouse
DotHeight=screen height()/2 : DotWidth=screen width()/2 : dot DotWidth,DotHeight
Do
 if upkey()=1 : dot DotWidth,DotHeight : Dec DotHeight,1 : endif
 if downkey()=1 : dot DotWidth,DotHeight : Inc DotHeight,1 : endif
 if leftkey()=1 : dot DotWidth,DotHeight : Dec DotWidth,1 : endif
 if rightkey()=1 : dot DotWidth,DotHeight : Inc DotWidth,1 : endif
 if spacekey()=1 : cls : endif
 if shiftkey()=1 then gosub inkchange
 if controlkey()=1 then sleep 10 : input "Enter a name for the save file. It will be saved in the location of the program. Make sure to add .bmp extension. ",fname$ : save bitmap fname$ :cls
Loop
inkchange:
Input "Enter Red Value. ",red
Input "Enter Green Value. ",green
Input "Enter Blue Value. ",blue
ink rgb(red,green,blue),0
cls
return

` My Masterpiece
`one which is even better than the previous ;) with better color change, boundries, and save
set display mode 1024,768,16 : Hide mouse
DotHeight=screen height()/2 : DotWidth=screen width()/2 : dot DotWidth,DotHeight
colorchange$="Change color! Press 1 for Red, 2 for Green, 3 for Blue, or press <Shift> for custom color."
ink rgb (255,255,255),0 : Text 10,5, colorchange$
main: : Do
   If keystate(2)=1 or keystate(79)=1 : ink rgb(255,0,0),0 : endif : If keystate(3)=1 or keystate(80)=1 : ink rgb(0,255,0),0 : endif : If keystate(4)=1 or keystate(81)=1 : ink rgb(0,0,255),0 : endif
   If upkey()=1 : dot DotWidth,DotHeight : Dec DotHeight,1 : endif : If downkey()=1 : dot DotWidth,DotHeight : Inc DotHeight,1 : endif : If leftkey()=1 : dot DotWidth,DotHeight : Dec DotWidth,1 : endif : If rightkey()=1 : dot DotWidth,DotHeight : Inc DotWidth,1 : endif
   If DotWidth>screen width()-2 : Dec DotWidth,1 : endif : If DotWidth<2 : Inc DotWidth,1 : endif : If DotHeight>screen height()-2 : Dec DotHeight,1 : endif : If DotHeight<20 : Inc DotHeight,1 : endif
   If spacekey()=1 : cls : Text 10,5, colorchange$ : endif : If shiftkey()=1 then gosub inkchange
   If controlkey()=1 then sleep 10 : ink rgb(255,255,255),0 : input "Enter a name for the save file. It will be saved in the location of the program. ",fname$ : get image 1,0,40,screen width(),screen height() : save image fname$+".bmp",1 : cls : Print colorchange$
Loop
inkchange:
ink rgb (0,0,0),0 : Text 10,5, colorchange$
ink rgb (255,255,255),0 : Set Cursor 10,5 : Input "Enter Red value.",red : Set Text Opaque : ink rgb (0,0,0),0 : Text 10,5, "                          "
ink rgb (255,255,255),0 : Set Cursor 10,5 : Input "Enter Green value.",green : Set Text Opaque : ink rgb (0,0,0),0 : Text 10,5, "                      "
ink rgb (255,255,255),0 : Set Cursor 10,5 : Input "Enter Blue value.",blue : Set Text Opaque : ink rgb (0,0,0),0 : Text 10,5, "                        "
ink rgb (255,255,255),0 : Text 10,5, colorchange$
ink rgb(red,green,blue),0 : gosub main

hide mouse:sync on:sync rate 0:ink 0,rgb(128,128,128):cls:x=320:y=240
DO
   u=upkey():d=downkey():l=leftkey():r=rightkey()
   if spacekey()=1 then cls
   inc x,r-l : inc y,d-u
   if x<2 then x=2
   if x>638 then x=638
   if y<2 then y=2
   if y>478 then y=478
   dot x,y
   sync
LOOP