7000 HIMEM:8144
7020 POKE 232,208:POKE 233,31
7030 FOR L=8144 TO 8175: READ B:POKE L,B:NEXT L
7035 HGR:ROT=0:SCALE=2
7040 XDRAW 1 AT 140,80
7050 GET A$
7060 IF A$="Q" THEN END
7062 IF A$="A" THEN R=R-8
7063 IF A$="D" THEN R=R+8
7070 IF R=64 THEN R=0
7072 IF R=-8 THEN R=56
7075 XDRAW 1 AT 140,80
7080 ROT=R
7085 GOTO 7040
7090 END
7100 DATA 1,0,4,0,219,36,36,44,44,44
7101 DATA 53,53,53,54,54,54,54,63,63,45
7102 DATA 46,46,62,63,63,39,37,37,63,36
7103 DATA 36,0