Moving Pixels BASIC 81
You can move pixels around the screen!
"->" means STO
/NAME=PIXEL/
:AxesOff
:ClrDraw:ClrHome
:0->X
:31->A
:46->B
:Lbl 1
:If B<1
:Then
:94->B
:End
:If A<1
:Then
:62->A
:End
:If A>62
:Then
:1->A
:End
:ClrDraw
:Pxl-On(A,B
:For(X,1,10000
:getKey->T
:If T=24
:Then
:B-1üB
:Goto 1
:End
:If T=25
:Then
:A-1->A
:Goto 1
:End
:If T=26
:Then
:B+1->B
:Goto 1
:End
:If T=34
:Then
:A+1->A
:Goto 1
:End
:If T=22
:Then
:Text(1,2,"BYE NOW"
:For(K,1,400
:End
:ClrDraw:ClrHome
:Stop
:End
:End