Simple drawing with a joystick. Use the joystick in left port to draw up, down, or diagonally. Use button to clear screen or position first plot position.
Content
Image Gallery
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