Rosetta Code

Joystick position: Difference between revisions

Page Discussion

Joystick position (view source)

Revision as of 06:36, 24 October 2018

6 bytes removed ,  5 years ago
m
→‎{{header|IS-BASIC}}
Line 347:
 
=={{header|IS-BASIC}}==
<lang IS-BASIC>90100 CLEAR SCREEN
100110 DO
110120 LET J=JOY(0) OR JOY(1) OR JOY(2)
115130 PRINT AT 5,16:" ";:PRINT AT 5,16:"";
120140 IF J BAND 1 THEN PRINT "right ";
130150 IF J BAND 2 THEN PRINT "left ";
140160 IF J BAND 4 THEN PRINT "down ";
150170 IF J BAND 8 THEN PRINT "up ";
170180 IF J BAND 16 THEN PRINT "fire ";
180 IF J=0 THEN PRINT AT 5,16:" ";
190 LOOP</lang>
 
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/182801"