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.
Appears on
Library tape from the Sinclair Computer Users Society (SINCUS).
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