doodlejoy

Source Code

    5 REM doodlejoy
    8 CLS : GO SUB 500
   10 BORDER 6
   20 INPUT "Initial x coordinate?(0 to 255) ";x
   25 IF x>255 THEN GO TO 20
   30 INPUT "Initial y coordinate?(0 to 175) ";y
   35 IF y>175 THEN GO TO 30
   40 PLOT x,y
   70 LET c=|(1,1)
   80 LET x=x+(c=9)+(c=8)+(c=10)-(c=5)-(c=4)-(c=6)
   90 LET y=y+(c=5)+(c=1)+(c=9)-(c=6)-(c=2)-(c=10)
  100 LET x=x-(x>255)+(x<0)
  110 LET y=y-(y>175)+(y<0)
  120 IF |(2,1)=1 THEN CLS 
  130 GO TO 40
  500 PRINT AT 2,6;"                    "
  520 PRINT AT 4,6;" D O O D L E  J O Y "
  530 PRINT AT 6,6;"                    "
  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"
  680 PRINT FLASH 1;AT 19,3;"Press any key to continue"
  690 PAUSE 0
  695 CLS 
  700 RETURN 
 9999 SAVE "doodlejoy" LINE 1: BEEP 1,33