5 cls
10 a=48944
20 b=peek(a+4):c=peek(a)
25 b=b and31:gosub 300
30 print@32,x$;
35 gosub 500:print@32+16,y$;
40 b=c and31:gosub 300
45 print@64,x$
48 gosub500:print@64+16,y$;
50 goto 10
300 x$="neutral        "
310 if b=30 or b=14 then x$="up            "
315 if b=29 or b=13 then x$="down          "
320 if b=27 or b=11 then x$="left          "
330 if b=23 or b=7 then  x$="right         "
340 if b=22 or b=6 then  x$="up right      "
350 if b=26 or b=10 then x$="up left       "
360 if b=21 or b=5 then  x$="down right    "
370 if b=25 or b=9 then  x$="down left     "
380 return
500 y$="        "
510 if b<16 then y$="fire"
520 return

rem up down left right fire
rem  1    2    4     8   16
