1 GOSUB60100:CLR
10 PRINTCHR$(147);CHR$(142);:GOSUB605:POKE53281,.:POKE53280,.
50 J=J+1:IFJ=10THENIFCJTHENCJ=.:POKEV+1,PEEK(V+1)+15:J=.:IFB=.THENGOSUB105
52 F$=RIGHT$(F$,Q)+LEFT$(F$,U):E$=RIGHT$(E$,R)+LEFT$(E$,P)
53 D$=RIGHT$(D$,Q)+LEFT$(D$,U):C$=RIGHT$(C$,Q)+LEFT$(C$,U)
54 B$=RIGHT$(B$,Q)+LEFT$(B$,U):A$=RIGHT$(A$,Q)+LEFT$(A$,U)
55 G$=RIGHT$(G$,U)+LEFT$(G$,Q):H$=RIGHT$(H$,U)+LEFT$(H$,Q)
70 GETK$:IFK$="Q"THEN60000
85 A=ABS(A)-1:POKEN,13-A:PRINT""G$;H$:IFK$="Q"THEN60000
90 PRINT""A$;B$;C$;D$;"";F$;"";E$;""
92 IFK$=CHR$(136)THENB=U:GOSUB300
93 IFCJTHENIFJTHEN97
94 IFK$=CHR$(133)THENJ=.:POKEV+U,PEEK(V+U)-15:CJ=U:IFB=0THENGOSUB110
95 IFK$="Q"THEN60000
97 IFCO=33THENCO=.:GOSUB200:GOSUB405:B=.:GOTO100
98 IFBTHENPOKEV+3,PEEK(V+3)-4:CO=CO+U:IFATHENPOKEV+P,PEEK(V+P)-3
99 IFPEEK(1923)=81THENIFCJ=.THENGOSUB500
100 IFK$="Q"THEN60000
101 X=FRE(X):GOTO50
105 POKEV+3,PEEK(V+3)+15:RETURN
110 POKEV+3,PEEK(V+3)-15:RETURN
200 POKEV+P,PEEK(V+P)-8:POKEV+3,PEEK(V+3)-8:POKET,197
210 FORX=1TO5:NEXT:POKET,198:FORX=1TO5:NEXT:POKET,199
220 FORX=1TO10:NEXT:POKEV+23,P:POKEV+29,3:POKET,197
230 POKET,198:POKET,199:POKEV+23,0:POKEV+29,U:RETURN
300 POKES+U,U:POKES,143:POKES+5,48:POKES+6,144
305 POKES+4,129:POKES+24,7:RETURN
400 FORX=12544 TO 12799:READB:POKEX,B:NEXT
405 FORX=1194TO1198
410 IFPEEK(X)<>32THENPO=PO+25:POKE53280,2:POKE53281,2
411 IFPEEK(X)<>32THENGOSUB665:GOSUB445:GOTO415
412 NEXT
415 X=FRE(X):POKET,196:POKEV+3,PEEK(V+U)-U:POKEV+P,173:POKEV+28,3
420 POKEV+40,7:POKEV+21,3:POKES+24,.:POKES,143:POKES+5,48:POKES+6,144
430 POKES+4,129:FORX=15TO0STEP-U:POKES+24,X:POKES+1,28-X
440 FORX1=1TO25:NEXTX1,X:POKE53280,.:POKE53281,.:RETURN
445 PRINT"[155]";PO
450 PRINT"[179][191][188][202][162][223][195][157][157][157][157][157][157][157][157][200][202][207][197][189][220][192][213][157][157][157][157][157][157][157][157]";
452 PRINT"[191][195][214][223][220][169][189][172][157][157][157][157][157][157][157][157][207][213][217][169][202][204][205][214]"
455 FORX2=1TO80:NEXT
460 PRINT"       [157][157][157][157][157][157][157][157]        ";
461 PRINT"[157][157][157][157][157][157][157][157]        [157][157][157][157][157][157][157][157]        "
465 RETURN
500 POKEV,PEEK(V)-8:POKEV+U,PEEK(V+U)-8:POKEV+23,U:IFB=0THENPOKEV+21,U
510 POKEN,197:POKEN,198:POKEN,199:POKES,143:POKES+5,48
512 POKE53280,12:POKE53281,12
515 POKES+6,144:POKES+4,129:FORX=15TO0STEP-U:POKES+24,X:POKES+1,15-X
520 POKEV+23,U:POKEV+29,U:POKEN,197:POKEN,198:POKEN,199
530 NEXT:POKEV+23,.:POKEV+29,U:POKEV+21,3
535 POKEV,PEEK(V)+8:POKEV+U,PEEK(V+U)+8:POKEV+23,0:POKEN,13
537 IFBTHENGOSUB300
540 LV=LV-1:PRINT"[156]";TAB(29);LV:POKE53280,.:POKE53281,.
545 IFLVTHENRETURN
547 PRINT"":POKE53280,1:POKE53281,1
550 PRINTTAB(6)"[166][166][166] [166] [166] [166][166][166]   [166][166][166] [166]  [166] [166][166]  "
555 PRINTTAB(5)"  [166]  [166] [166] [166]     [166]   [166][166] [166] [166] [166] "
560 PRINTTAB(5)"  [166]  [166][166][166] [166][166]    [166][166]  [166][166][166][166] [166] [166] "
565 PRINTTAB(5)"  [166]  [166] [166] [166]     [166]   [166] [166][166] [166] [166] "
570 PRINTTAB(5)"  [166]  [166] [166] [166][166][166]   [166][166][166] [166]  [166] [166][166]  "
575 FORA=1TO3000:NEXT:GOTO60000
600 REM *** INITIALIZATION ***
605 A=.:Q=39:R=38:N=2040:U=1:T=N+U:P=2:S=54272
610 A$="     [206][205]  [206][205]    [206][205]      [206][205]     [206][205]       "
615 B$="    [206]  [205][206]  [205]  [206]  [205]    [206]  [205]   [206]  [205] [206][205]   "
620 C$="   [206]    [205]   [205][206]    [205]  [206]    [205] [206]    [205]  [205]  "
625 D$="  [206]      [205]  [206]      [205][206]      [205]      [205]  [205] "
630 E$="[168][175][168][168][168][175][168][168][175][162][168][168][168][175][175][168][168][185][175][168][168][175][185][185][168][168][168][168][185][175][168][168][175][168][168][175][175][168][168]"
635 F$=" [209]             [209]             [209]         "
640 FORX=832TO958:READB:POKEX,B:NEXT:V=53248:LV=3
645 POKEN,13:POKEV+U,217:POKEV,158:POKEV+29,U
650 POKEV+39,7:POKEV+37,2:POKEV+38,6
655 FORX=12544 TO 12799:READB:POKEX,B:NEXT:POKET,196
660 POKEV+3,PEEK(V+U)-U:POKEV+P,173:POKEV+28,3
662 POKEV+40,7:POKEV+21,3:PRINT"[147]"
665 PRINT"[155]SCORE:";PO:PRINT"LIVES:";LV
667 PRINT"[151] [152][221]F1-JUMP[221][151]  [152][221]F7-FIRE MISSILE[221][151]  [152][221]Q-QUIT[221][151] "
670 G$="[164][175][185][175][164]                                  "
675 H$=" [183][163][183]                                   ":RETURN
700 POKE53280,12:POKE53281,12:PRINT"[147]":CC=54272
702 FORX=1025TO1062:POKEX,121:POKEX+960,120:POKEX+CC,0:POKEX+960+CC,0:NEXT
703 FORX=1064TO1944STEP40:POKEX,118:POKEX+39,117
704 POKEX+CC,0:POKEX+39+CC,0:NEXT
799 REM * DATA FOR SHIP 1 *
800 DATA 0,0,0,0,0,0,0,0,0
805 DATA 0,0,0,0,0,0,0,0,0
810 DATA 0,0,0,0,0,0,0,0,0
815 DATA 0,0,0,0,0,0,0,128,0
820 DATA 0,160,0,0,172,0,4,170,128
825 DATA 4,170,168,1,170,10,4,170,170
830 DATA 4,134,134,0,16,16,0,4,4,0
899 REM * DATA FOR SHIP 2 *
900 DATA 0,0,0,0,0,0,0,0,0
905 DATA 0,0,0,0,0,0,0,0,0
910 DATA 0,0,0,0,0,0,0,0,0
915 DATA 0,0,0,0,0,0,0,128,0
920 DATA 0,160,0,16,172,0,20,170,128
925 DATA 5,170,168,1,170,10,5,170,170
930 DATA 20,146,146,16,4,4,0,16,16
999 REM * DATA FOR MISSILE *
1000 DATA 0,0,0,0,0,0,0,0,0
1005 DATA 0,0,0,0,0,0,0,0,0
1010 DATA 0,0,0,0,0,0,0,0,0
1015 DATA 0,0,0,0,0,0,0,80,0
1020 DATA 0,208,0,0,208,0,0,80,0
1025 DATA 0,80,0,1,84,0,0,0,0
1030 DATA 0,160,0,2,8,0,0,0,0,0
1099 REM * DATA FOR EX #1 *
1100 DATA 0,0,0,0,0,0,0,0,0
1105 DATA 0,0,0,0,0,0,0,0,0
1110 DATA 0,0,0,0,0,0,0,0,0
1115 DATA 0,0,0,0,128,0,0,96,128
1120 DATA 2,86,64,1,85,96,5,89,80
1125 DATA 5,154,0,2,150,64,0,86,0
1130 DATA 0,5,0,0,4,0,0,0,0,0
1199 REM * DATA FOR EX #2 *
1200 DATA 0,0,0,0,0,0,0,0,0
1205 DATA 0,0,0,0,0,0,0,0,0
1210 DATA 0,0,0,0,0,0,0,0,0
1215 DATA 0,80,0,0,148,96,16,101,144
1220 DATA 6,86,64,9,85,100,37,89,84
1225 DATA 37,154,72,2,150,64,8,86,16
1230 DATA 1,133,16,0,37,0,0,2,128,0
1299 REM * DATA FOR EX #3 *
1300 DATA 0,0,0,0,0,0,0,0,0
1305 DATA 0,0,0,0,0,0,0,0,0
1310 DATA 0,0,0,0,32,0,0,164,8
1315 DATA 32,80,148,148,148,96,20,101,148
1320 DATA 6,86,65,9,85,101,37,89,86
1325 DATA 37,90,74,82,86,65,9,86,16
1330 DATA 9,165,24,86,101,8,4,6,128,0
60000 POKE53269,.:POKE53280,15:POKE53281,15:POKE54296,0
60001 PRINT"[144][147] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
60003 PRINT" [221][208]RESS: [198]1 - [210][213][206] THIS PROGRAM AGAIN. [221]"
60005 PRINT" [221]       [198]7 - [210]ETURN TO [204][207][193][196][211][212][193][210].     [221]"
60007 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
60010 GETZ$:IFZ$=""THEN60010
60015 IFZ$="[133]"THENPRINT"[147]";:RUN10
60020 IFZ$<>"[136]"THEN60010
60030 OPEN15,8,15,"R0:HELLO CONNECT=HELLO CONNECT"
60040 INPUT#15,ER:CLOSE15
60050 IFER<>63THENEND
60060 PRINT"[147]":LOAD"HELLO CONNECT",8
60100 PN$="[205][207][207][206] [194][193][211][197]":AN$="[194][217]:  [210][207][194][197][210][212] [193][204][207][206][211][207]"
60110 BO=00:SC=00:CL=06:C1=12:C2=05:C3=12:C4=05:C5=15:C6=15:C7=15
60120 REM BO - BORDER COLOR
60121 REM SC - SCREEN COLOR
60122 REM CL - COLOR POKED ON BORDER
60123 REM C1 - TOP BOX OUTSIDE COLOR
60124 REM C2 - TOP BOX INSIDE COLOR
60125 REM C3 - BOTTOM BOX OUTSIDE COLOR
60126 REM C4 - BOTTOM BOX INSIDE COLOR
60127 REM C5 - 'COPYRIGHT' COLOR
60128 REM C6 - 'PROGRAM NAME' COLOR
60129 REM C7 - 'AUTHORS NAME' COLOR
60130 POKE53280,BO:POKE53281,SC:PRINT"[147]";
60140 POKE646,C1:PRINT"  [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
60150 POKE646,C2:PRINT"  [165]        [204][207][193][196][211][212][193][210] [208][210][197][211][197][206][212][211]:        [167]"
60170 POKE646,C1:PRINT"  [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
60180 POKE646,C6:PRINT""TAB(20-LEN(PN$)/2);PN$
60190 POKE646,C7:PRINT""TAB(20-LEN(AN$)/2);AN$
60200 POKE646,C5:PRINT""TAB(13)"[195][207][208][217][210][201][199][200][212] 1986"
60210 PRINTTAB(9)"[195][207][205][205][207][196][207][210][197] [208][213][194][204][201][195][193][212][201][207][206][211]"
60220 POKE646,C3:PRINT"  [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
60230 POKE646,C4:PRINT"  [165]                                  [167]"
60240 POKE646,C3:PRINT"  [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]":LE=1044:RI=1043
60250 POKELE,98:POKERI,98:LE=LE-1:RI=RI+1
60260 CO=54272:POKERI+CO,CL:POKELE+CO,CL
60270 IFLE=1025THEN60290
60280 GOTO60250
60290 POKELE,108:POKERI,123:POKELE+CO,CL:POKERI+CO,CL:POKE646,CL
60300 LE=LE+40:RI=RI+40:IFLE=1985THEN60330
60305 IFLE=1185THENPRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
60306 IFLE=1825THENPRINT"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
60310 POKELE,225:POKERI,97:POKELE+CO,CL:POKERI+CO,CL
60320 GOTO60300
60330 POKELE,124:POKERI,126:POKELE+CO,CL:POKERI+CO,CL
60340 LE=LE+1:RI=RI-1:IFLE=2004THENPOKE198,.:GOTO60360
60350 POKELE,226:POKERI,226:POKELE+CO,CL:POKERI+CO,CL:GOTO60340
60360 PRINT"";
60370 POKE646,C2:PRINT"[165][208]RESS THE [[211][208][193][195][197] [194][193][210]] TO CONTINUE.[167]"
60380 FORA=1TO100
60390 GETA$:IFA$=" "ORA$="[160]"THENRETURN
60400 NEXT
60410 PRINT"";
60420 PRINT"[165]                                  [167]"
60430 FORA=1TO100
60440 GETA$:IFA$=" "ORA$="[160]"THENRETURN
60450 NEXT
60460 GOTO60360