5 EO = 0
  10  HIMEM: 8135
  20  POKE 232,199: POKE 233,31
  30  FOR L = 8135 TO 8175: READ B: POKE L,B: NEXT L
  35  HGR : ROT= 0: SCALE= 2
  40  GOTO 150
  90  END 
 100  DATA  3,0,8,0,18,0,33,0,53,53
 101  DATA  53,63,63,63,44,44,44,0,0,40
 102  DATA  45,54,54,54,63,63,63,36,36,36
 103  DATA  45,5,0,40,53,55,63,60,44,5
 104  DATA  0
 150  GOSUB 2000
 200  REM 
 300  GET A$
 305  IF A$ = "Q" THEN  GOTO 1000
 310  IF A$ = " " THEN EO = 1
 320  IF A$ = "A" THEN R = R - 8
 325  IF A$ = "D" THEN R = R + 8
 330  IF R < 0 THEN R = 56
 335  IF R > 63 THEN R = 0
 337  GOSUB 2000
 340  ROT= R
 800  GOSUB 2000
 900  GOTO 200
1000  END 
2000  REM  DRAW SHIP
2010  XDRAW 1 AT 140,50
2020  XDRAW 2 AT 140,62
2030  XDRAW 2 AT 140,74
2040  XDRAW 1 AT 140,86
2050  HCOLOR= 5
2060  IF EO = 1 THEN  DRAW 3 AT 140,92
2070  RETURN