10 V=53248:POKE53281,14:POKEV+28,255:POKEV+21,255:POKEV+37,9:POKEV+38,7:D=10
11 POKEV,0:POKEV+30,0:POKE16383,255:POKEV+16,0:POKEV+27,0
20 POKEV+39,2:POKEV+40,2:FORT=41TO45:POKEV+T,8:NEXTT:POKE2040,226:POKE2041,240
30 FORT=4TO5:POKE2040+T,231+T:NEXTT:POKEV+23,252:POKEV+29,252:POKEV+4,255-48
40 POKEV+5,90:POKEV+6,255-48:POKEV+7,90+42:POKEV+8,255-48:POKEV+9,90+84:POKE2046,238
50 POKEV+10,255:POKEV+11,90+84:POKEV+12,255:POKEV+13,90+42:X=100:Y=150:POKE2042,237
51 PRINT"[129][147]";:FORR=0TO998:PRINT"[178]";:NEXT:POKE2023,114:PRINT"":POKE2047,239
52 POKEV+46,1:POKEV+15,90:POKE2043,241:POKE2044,235:POKE2045,236
53 FORT=171TO0STEP-22:POKEV+14,T:GOSUB100:POKEV+17,T/22+17:NEXTT:GOTO53
100 J=PEEK(56320):IF(JAND1)=0THENY=Y-4:POKE2040,228:IFY<50THENY=Y+4
101 IF(JAND2)=.THENY=Y+4:POKE2040,227:IFY>227THENY=Y-4
102 IF(JAND4)=.THENX=X-4:IFX<25THENX=X+4
103 IF(JAND8)=.THENX=X+4:IFX>210THENX=X-4
104 WAIT653,1,1:IF(JAND16)=.ANDA=.THENY1=Y-4:X1=X+10:A=1
105 IFA=1THENX1=X1+20:IFX1>255THENA=.:X1=.:Y1=.
106 IFPEEK(V+30)<>.THENGOSUB110
107 IF(JAND1)<>.AND(JAND2)<>.THENPOKE2040,226
108 GETA$:IFA$="[219]"THEND=.:GOTO120
109 POKEV,X:POKEV+1,Y:POKEV+2,X1:POKEV+3,Y1:RETURN
110 SK=PEEK(V+30):IFSK=5THEN200
111 IFSK=9THEN200
112 IFSK=17THEN200
113 IFSK=33THEN200
114 IFSK=65THEN200
115 IFSK=129THEN200
116 IFSK=6THENGOSUB120
117 POKEV+30,0:RETURN
120 FORR=41TO45:POKEV+R,1:NEXTR:IFD=0THEN150
121 FORR=41TO45:POKEV+R,8:NEXTR:D=D-1:RETURN
150 POKEV+21,125:POKE2040,226
151 FORT=0TO255:POKEV+41,T:NEXTT:POKEV+21,121
152 FORT=0TO255:POKEV+42,T:NEXTT:POKEV+21,113
153 FORT=0TO255:POKEV+43,T:NEXTT:POKEV+21,97
154 FORT=0TO255:POKEV+44,T:NEXTT:POKEV+21,65
155 FORT=0TO255:POKEV+45,T:NEXTT:POKEV+21,1
156 FORR=XTO248STEP8:FORT=0TO7:POKEV,R+T:POKEV+22,(7-T)+16:NEXTT,R
157 POKEV+16,1:FORR=0TO60STEP8:FORT=0TO7:POKEV,T+R:POKEV+22,(7-T)+16:NEXTT,R
158 PRINT"[147]":POKEV+17,27:POKEV+22,24:POKEV+1,0:POKEV+16,0:POKES+24,0:GOTO1000
200 PRINT"":IFPEEK(139)=0THEN250
201 PRINT"SHIP DESTROYED":PRINT"CONTINUES";PEEK(139)
202 POKE139,(PEEK(139))-1:FORT=0TO255:POKEV+39,T:NEXTT:FORT=0TO500:NEXTT:RUN
250 POKEV+17,27:POKEV+22,24:POKE53281,0
251 V=53248:FORR=0TO15:POKEV+R,0:NEXT
252 S=54272:FORT=0TO24:POKES+T,0:NEXT
253 PRINT"[147][144]LOAD"CHR$(34)"02"CHR$(34)",8"
254 PRINT"RUN"
255 POKE 198,10
256 POKE631,19:POKE632,13:POKE633,13:NEW
1000 POKE53281,0:PRINT"[147][144]LOAD"CHR$(34)"21"CHR$(34)",8":PRINT"RUN:":POKE198,10:POKE631,19
1010 POKE632,13:POKE633,13:END