7000 HIMEM:8106
7020 POKE 232,170:POKE 233,31
7030 FOR L=8106 TO 8175: READ B:POKE L,B:NEXT L
7035 HGR:ROT=0:SCALE=2
7037 TH=0
7040 XDRAW TH+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
7065 IF A$="Z" THEN TH=1
7067 IF A$="X" THEN TH=0
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 2,0,6,0,34,0,219,36,36,44
7101 DATA 44,44,53,53,53,54,54,54,54,63
7102 DATA 63,45,46,46,62,63,63,39,37,37
7103 DATA 63,36,36,0,219,36,36,44,44,44
7104 DATA 53,53,53,54,54,54,54,63,63,45
7105 DATA 46,46,62,63,63,45,45,62,54,62
7106 DATA 39,36,39,39,37,37,63,36,36,0