Joystick position: Difference between revisions
Content added Content deleted
Line 347: | Line 347: | ||
=={{header|IS-BASIC}}== |
=={{header|IS-BASIC}}== |
||
<lang IS-BASIC> |
<lang IS-BASIC>100 CLEAR SCREEN |
||
110 DO |
|||
120 LET J=JOY(0) OR JOY(1) OR JOY(2) |
|||
130 PRINT AT 5,16:" ";:PRINT AT 5,16:""; |
|||
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 "; |
|||
180 IF J=0 THEN PRINT AT 5,16:" "; |
|||
190 LOOP</lang> |
190 LOOP</lang> |
||