10 IFA=0THENA=1:LOAD"SKYCHA*",8,1
20 IFA=1THENA=2:LOAD"SHIP-*",8,1
30 IFA=2THENA=3:LOAD"SKYSCR*",8,1
40 IFA=3THENA=4:LOAD"SKYBAK*",8,1
50 IFA=4THENA=5:LOAD"2VERTSMOOTH",8,1
51 POKE53265,PEEK(53265)AND247
52 POKE49521,0:POKE49777,0:POKE50004,0
53 POKE250,239:POKE251,43:POKE252,22
60 POKE53272,(PEEK(53272)AND240)OR2
70 POKE53270,PEEK(53270)OR16
80 POKE53280,0:POKE53281,0
90 SYS49152
100 POKE649,1:POKE650,128:POKE53276,3
110 POKE53286,1:POKE53285,11
120 POKE53287,15:POKE53288,15:POKE53289,15
130 A=0:TI$="000000"
140 POKE53269,3:POKE2041,59:POKE53251,0
150 POKE53249,220:POKE2040,61
160 POKE53248,128:P=128:POKE53278,0
170 GETA$:C%=RND(1)*5+3:POKE53288,C%
180 IFA$=","THENP=P-6:A=0:POKE53248,P:POKE2040,60:IFP<35THENP=35
190 IFA$="."THENP=P+6:A=0:POKE53248,P:POKE2040,62:IFP>247THENP=247
200 IFA$=""THENA=A+1:IFA=3THENA=0:POKE2040,61
210 IFR=0THENX=0:R=1:GOSUB360
220 X=X+8
240 IFX>250THENR=0:X=0:POKE53269,1
250 POKE53269,3:POKE53251,X:IFV<>0THENY=(Y-V)AND255:POKE53250,Y
260 IFPEEK(53278)=3THENSC=SC+10:GOSUB400:R=0
270 IFTI$<"000100"THEN170
280 SYS 51200
290 POKE53272,21
300 POKE53270,200
310 PRINT"YOU SCORED"SC"POINTS"
320 PRINT"DO YOU WANT TO PLAY AGAIN? (Y/N)
321 [151]53251,180:[151]2040,61
322 [129]Q[178]220[164]150[169][171]1:[151]53249,Q:[130]:[129]Q[178]P[164]100[169][171]1:[151]53248,Q:[130]
330 [161]A$:[139]A$[178]"Y"[167] [138]
340 [139]A$[178]"N"[167] [151]53269,0:[153]"LOADCONT";:[151]53280,14:[151]53281,6:[128]
350 [137]330
360 Y[178][181]([187](1)[172]181[170]50):[151]53269,1:[151]53251,X:[151]53250,Y
370 [151]53269,3:[139]Y[173]8[178][181](Y[173]8)[167]V[178]8:[142]
380 [139]Y[173]5[178][181](Y[173]7)[167]V[178][171]8:[142]
390 V[178]0:[142]
400 [151]2040,61:[151]53269,1:[129]G[178]1[164]16:[151]53267,([194](53287)[170]1)[175]15
410 [151]53286,([194](53286)[170]1)[175]15
420 [151]53285,([194](53285)[170]1)[175]15
430 [130]:[151]53278,0:[142]
2000 [151]49521,0:[151]49777,0:[151]50004,0
3000 [151]250,248:[151]251,40:[151]252,245