Joystick position: Difference between revisions
Content added Content deleted
No edit summary |
No edit summary |
||
Line 345: | Line 345: | ||
_ -> ( 0, 0) |
_ -> ( 0, 0) |
||
</lang> |
</lang> |
||
=={{header|IS-BASIC}}== |
|||
<lang IS-BASIC>90 CLEAR SCREEN |
|||
100 DO |
|||
110 LET J=JOY(0) OR JOY(1) OR JOY(2) |
|||
115 PRINT AT 5,16:""; |
|||
120 IF J BAND 1 THEN PRINT "right "; |
|||
130 IF J BAND 2 THEN PRINT "left "; |
|||
140 IF J BAND 4 THEN PRINT "down "; |
|||
150 IF J BAND 8 THEN PRINT "up "; |
|||
170 IF J BAND 16 THEN PRINT "fire "; |
|||
180 IF J=0 THEN PRINT AT 5,16:" " |
|||
190 LOOP</lang> |
|||
=={{header|Liberty BASIC}}== |
=={{header|Liberty BASIC}}== |