10  HIMEM: 35070
 100 ADRS = 0
 101  ONERR  GOTO 30000
 115 ADRS = 35070
# load H at $88FE - $90FD
 120  PRINT  CHR$ (4);"BLOAD H,A";ADRS
# clear error flag
 130  POKE 216,0
 140  IF ADRS <  = 0 THEN ADRS = ADRS + 65536
# load at $0866
 145  PRINT "^DBLOAD SHIP2 SHAPE,A2150"
# load at $9100
 147  PRINT "^DBLOAD SHIP1 SHAPE,A37120"
 150 X = 4712
 160 X1 =  INT (X / 256):X2 = X - X1 * 256
# 4712 = $1268
 170  PRINT  CHR$ (4);"BLOAD SMALL.SET,A";X
# 4712+768=5480 = $1568
 180  PRINT  CHR$ (4);"BLOAD WORD.SET,A";X + 768
 190  PRINT  CHR$ (4);"BLOAD SHADOW.SET,A";X + 1536
 200  PRINT  CHR$ (4);"BLOAD COLOSSAL.SET,A";X + 2304
 1000  REM  INIT VARIABLES
 5000  REM  INIT HI-RES CHAR GENERATOR
 5030  POKE ADRS + 7,X2: POKE ADRS + 8,X1
 5032  POKE ADRS + 23,234: POKE ADRS + 24,234: POKE ADRS + 25,234
 5036  HIMEM: 35070
 6010  PRINT  CHR$ (4);"BLOAD SUBROUTINES,A2050"
 6020  PRINT  CHR$ (4)"RUN INTRO"
 29999  END