2000 REM *** LAUNCH ***
2010  HIMEM: 8135
2020  POKE 232,199: POKE 233,31
2030  FOR L = 8135 TO 8175: READ B: POKE L,B: NEXT L
2035  HGR : ROT= 0: SCALE= 2
2040  GOTO 2150
2090  END 
2100  DATA  3,0,8,0,18,0,33,0,53,53
2101  DATA  53,63,63,63,44,44,44,0,0,40
2102  DATA  45,54,54,54,63,63,63,36,36,36
2103  DATA  45,5,0,40,53,55,63,60,44,5
2104  DATA  0
2150 REM
2151 S=3
2152 ST(1)=3:FT(1)=2:EN(1)=3
2153 ST(2)=3:FT(2)=2:EN(2)=3
2154 ST(3)=3:FT(3)=2:EN(3)=3
2155 R=0
2160 GOSUB 2200
2165 GET A$
2170 GOSUB 2200
2180 R=R+1
2190 GOTO 2160
2200 REM *** DRAW SHIP ***
2205 ROT=R
2210  X=132:Y=28
2215  XDRAW 1 AT X,Y+2 
2230  FOR I = 1 TO S
2268  FOR J = 1 TO FT(I)
2270  XDRAW 2 AT X, Y+13*J
2272  IF ST(I) >1 THEN XDRAW 2 AT X-14, Y+13*J
2274  IF ST(I) >2 THEN XDRAW 2 AT X+14, Y+13*J
2278  NEXT J
2279  Y=Y+13*FT(I)
2290 XDRAW 1 AT X, Y+8
2292  IF EN(I) >1 THEN XDRAW 1 AT X-14, Y+8
2294  IF EN(I) >2 THEN XDRAW 1 AT X+14, Y+8
2297 Y=Y+6
2300  NEXT I
2310 RETURN