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