new

10 cls:a$=inkey$:a$=""
20 a=inp(43):print@0,a;"  ";
30 if (a and 1) = 0 then print@32,"up";
40 if (a and 1) <> 0 then print@32,"  ";
50 if (a and 2) = 0 then print@64,"down";
60 if (a and 2) <> 0 then print@64,"    ";
70 if (a and 4) = 0 then print@96,"left";
80 if (a and 4) <> 0 then print@96,"    ";
90 if (a and 8) = 0 then print@128,"right";
100 if (a and 8) <> 0 then print@128,"     ";
110 if (a and 16) = 0 then print@160,"fire";
120 if (a and 16) <> 0 then print@160,"    ";
130 a=inp(39):print@6,a;"  ";
140 if (a and 16) = 0 then print@192,"arm";
150 if (a and 16) <> 0 then print@192,"   ";

220 a=inp(46):print@16,a;"  ";
230 if (a and 1) = 0 then print@48,"up";
240 if (a and 1) <> 0 then print@48,"  ";
250 if (a and 2) = 0 then print@80,"down";
260 if (a and 2) <> 0 then print@80,"    ";
270 if (a and 4) = 0 then print@112,"left";
280 if (a and 4) <> 0 then print@112,"    ";
290 if (a and 8) = 0 then print@144,"right";
300 if (a and 8) <> 0 then print@144,"     ";
310 if (a and 16) = 0 then print@176,"fire";
320 if (a and 16) <> 0 then print@176,"    ";
330 a=inp(45):print@22,a;"  ";
340 if (a and 16) = 0 then print@208,"arm";
350 if (a and 16) <> 0 then print@208,"   ";
400 a$=inkey$:if a$="" then 20

