Anonymous user
Joystick position: Difference between revisions
no edit summary
No edit summary |
No edit summary |
||
Line 345:
_ -> ( 0, 0)
</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}}==
| |||