11 lines
329 B
Plaintext
11 lines
329 B
Plaintext
100 CLEAR SCREEN
|
|
110 DO
|
|
120 LET J=JOY(0) OR JOY(1) OR JOY(2)
|
|
130 PRINT AT 1,1:" ";:PRINT AT 1,1:"";
|
|
140 IF J BAND 1 THEN PRINT "right ";
|
|
150 IF J BAND 2 THEN PRINT "left ";
|
|
160 IF J BAND 4 THEN PRINT "down ";
|
|
170 IF J BAND 8 THEN PRINT "up ";
|
|
180 IF J BAND 16 THEN PRINT "fire ";
|
|
190 LOOP
|