0 IFA=.THENPOKE53280,.:POKE53281,.
1 IFA=.THENPRINT"[147]         [154]LOADING [158]BATTLESHIP..."
2 IFA>2THEN131
10 IFA=.THENA=1:LOAD"UNPACKER",8,1
20 IFA=1THENA=2:LOAD"SHIP.SHP",8,1
50 POKE53280,.:POKE53281,.
60 BM=40960:CO=35840
70 POKE249,BM/256:REM   BITMAP MEMORY
80 POKE250,CO/256:REM   COLOR MEMORY
90 POKE251,0     :REM   LOW BYTE OF SHP
100 POKE252,64   :REM  HIGH BYTE OF SHP
105 PRINT"[147]";:POKE53280,6:POKE53281,1
110 POKE253,.:POKE254,.
120 SYS51456 :REM    UNPACK THAT SHAPE!
130 SYS51459 :REM    SHOW THAT SHAPE!
131 IFA=2THENA=3:LOAD"B.MAIN",8,1
132 IFA=3THENA=4:LOAD"B.INSTR.",8,1
133 IFA=4THENA=5:LOAD"B.SPRITES",8,1
140 SYS51459:SYS1024*16
200 PRINT"LOAD"CHR$(34)"HELLO CONNECT"CHR$(34)",8"
210 PRINT"RUN"
220 POKE631,13:POKE632,13:POKE198,2:END