Doodlejoy

TS2068 FUN

   5 REM doodlejoy
  10 CLS : GO SUB 500
  20 BORDER 6
  30 LET x=128: LET y=88
  40 PLOT x,y
  50 LET c= STICK (1,1)
  60 LET x=x+(c=9)+(c=8)+(c=10)-(c=5)-(c=4)-(c=6)
  70 LET y=y+(c=5)+(c=1)+(c=9)-(c=6)-(c=2)-(c=10)
  80 LET x=x-(x>255)+(x<0)
  90 LET y=y-(y>175)+(y<0)
 100 IF STICK (2,1)=1 THEN CLS
 110 GO TO 40
 510 PRINT AT 2,6;"[inverse graphics bar]"
 520 PRINT AT 4,6;"[inverse letters: D O O D L E J O Y]"
 530 PRINT AT 6,6;"[inverse graphics bar]"
 540 PRINT AT 9,2;"USE THE JOYSTICK IN LEFT PORT TO DRAW UP, DOWN, OR DIAGONALLY"
 550 PRINT AT 14,2;"USE BUTTON TO CLEAR SCREEN OR POSITION FIRST PLOT POSITION"
 560 PRINT FLASH 1;AT 19,[illegible];"Press any key to continue"
 570 PAUSE 0
 580 CLS
 590 RETURN
9999 SAVE "doodlejoy" LINE 1: BEEP 1,33