10 POKE53280,6:POKE53281,0:PRINT""
11 PRINT"[147]                 TREK"
12 PRINT"              PLEASE WAIT"
13 GOSUB 5000
14 PRINT"           SKILL  LEVEL (1-4) "
18 GETFQ$:IF FQ$<"1"OR FQ$>"4" THEN 18
19 FQ=VAL(FQ$):PRINT"[147]"
20 GOSUB 500
30 GOSUB 800
35 GOSUB 880
40 V=53248:POKE723,10:V1=2040:SS=0:EX=80:TI$="140000":POKE53275,48:BSC=0
45 XX$=  ""
50 POKE V+21,63
60 POKEV1,215:POKEV1+1,215:POKEV1+2,215:POKEV1+3,211:POKEV1+4,212:POKEV1+5,213
70 POKEV+39,6:POKEV+40,10:POKEV+41,5:POKEV+42,15:POKEV+43,9:POKEV+44,9
80 POKE V+9,202:POKEV+11,202
90 GOSUB 900
95 QI=.01:POKEV+6,80:E=100:POKEV+5,145:POKEV+29,8:POKE53280,0:IFFQ>2THENQI=.06
96 POKE 2046,214:POKE53293,10:POKEV+30,0
97 POKE V+1,150:POKEV+3,155:POKEV+5,160:POKEV+7,180:EP=180:POKE650,128:HIT=0
99 SS=.1:EX=80:S=54272:POKE54296,9:POKES+5,9:POKES+6,0:POKES,240:POKES+1,33
100 SYS 989:POKE53277,PEEK(53277)OR(2^4):POKE53277,PEEK(53277)OR(2^5)
110 SYS THRST:POKE53280,0:POKEV+7,PEEK(V+7)+1:IF PEEK(V+7)>185THEN POKEV+7,185
112 SYS THRST:POKE49402,PEEK(V+30):SYS PHAS:SYS THRST
114 SYS THRST:SYS BAM:SYS THRST:IF(PEEK(49402)AND15)>8THENPOKE53280,2:HIT=HIT+1
116 SYS THRST:SYS MOVE:POKE54273,0:SYS PHAS:IF PEEK(197)=60 THEN HIT=HIT+1
117 SYSTHRST:POKE54277,15:POKE54276,17:SYS THRST:SYSTHRST:POKE54278,129
118 SYS890:POKE54296,4:PRINT""SPC(31)"SCORE":PRINT""SPC(25),(TI-T1)-HIT
119 SYS THRST:POKE53280,0:SYS PHAS:IF PEEK(V)<20 THEN POKEV+1,(PEEK(V+7))
120 SYS THRST:SYS PHAS:POKE54273,20:IF PEEK(V+2)<20 THEN POKEV+3,(PEEK(V+7))
121 SYS THRST:SYS PHAS:IF PEEK(V+4)<20 THEN POKEV+5,(PEEK(V+7))
123 SYS THRST:SYS BAM:SYS PHAS:SYS THRST
124 SYS890:SYS PHAS:POKE54276,16:POKE54276,17:SYS THRST
125 SYS THRST:ON FQ GOTO 130,129,128,127,126
126 SYS THRST:SYS MOVE:SYS MOVE:SYS MOVE:SYS MOVE:SYS MOVE:SYS PHAS
127 SYS THRST:SYS MOVE:SYS MOVE:SYS MOVE:SYS PHAS
128 SYS THRST:SYS MOVE:SYS MOVE:SYS MOVE:SYS PHAS
129 SYS THRST:SYS MOVE:SYS MOVE:SYS PHAS
130 SYS THRST:SYS MOVE:SYS MOVE:SYS PHAS
131 SYS THRST:SYS MOVE:SYS THRUST:SYS MOVE:IF RND(.)<QI THEN8000
132 SYS THRST:A5=PEEK(197):POKEV+7,PEEK(V+7)+1:IFPEEK(V+7)>185THENPOKEV+7,185
133 SYS890:IFA5=22ANDABS(PEEK(V+6)-PEEK(V+10))<25ANDPEEK(V+7)>175THENGOSUB6000
135 XY$=STR$(100-(HIT*15.1))+"  "
140 SYS890:PRINTXX$;"ENERGY TO SHIELDS ";XY$
145 SYS THRST:SYS PHAS:SYS THRST:IF HIT*15.1>100THEN200
180 SYS THRST:EX=EX+1:IF EX>150THEN EX=40:LC=LC+1:IF LC>1 THEN 4000
190 SYS THRST:SYS MOVE:SYS PHAS:POKE V+6,EX:SYS THRST
195 SYS THRST:SYS PHAS:GOTO110
200 PRINTXX$;"SHIELDS COLLAPSED,  STARSHIP DESTROYED"
205 S=54272:POKES+24,15:POKES+5,192:POKES+6,129:U1=255:POKES+2,75:POKE53280,2
210 N=190-PEEK(V+7):FOR CRASH=1 TO NSTEP4
215 POKES+1,U1:POKES+4,17:U1=U1-1
220 FOR DL=1TO10:NEXT:C1=(PEEK(V+7)+4):C2=(PEEK(V+6)+4)
225 IF C2>225 THENCRASH=N
230 POKEV+7,C1:POKEV+6,C2:NEXT
231 GOSUB 300
234 POKEV+21,PEEK(V+21)AND(255-8)
235 POKES+24,15:POKES+1,15:POKES+4,128
240 POKES+5,9:POKES+1,20:POKES+4,128
250 FORDL=1TO700:NEXT
260 POKES+4,129:GOTO3000
300 POKE 53277,PEEK(53277)AND(255-2^3)
301 POKE 53271,PEEK(53271)AND(255-2^3)
305 POKE 2043,216:POKEV+42,7:FOR DELAY=1TO20:NEXT:POKES+4,129
310 POKEV+7,PEEK(V+7)-10:POKE 53271,PEEK(53271)OR(2^3):FOR DELAY=1TO10:NEXT
312 POKES+24,7:FORD=1TO20:NEXT:POKES+24,8:FORD=1TO40:NEXT:POKES+24,13
315 POKE 53277,PEEK(53277)OR(2^3):FOR DELAY=1TO60:NEXT
316 POKES+24,7:FORD=1TO40:NEXT:POKES+24,8:FORD=1TO20:NEXT:POKES+24,13
320 POKE 53271,PEEK(53271)AND(255-2^3)
325 POKEV+42,1:FORD=13TO1STEP-.5:POKES+24,D:NEXT:POKES+4,128:POKES+24,9:RETURN
499 REM SPRITE SUBSECTION
500 FOR N=13440TO13502:READA:POKEN,A:NEXT
510 FOR N=13504TO13566:READA:POKEN,A:NEXT
515 FOR N=13568TO13630:READA:POKEN,A:NEXT
520 FOR N=13632TO13694:READA:POKEN,A:NEXT
525 FOR N=13760TO13822:READA:POKEN,A:NEXT
527 FOR N=13696TO13759:READA:POKEN,A:NEXT
528 FOR N=13824TO13886:READA:POKEN,A:NEXT
530 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,48,0,0,48,0,0,48,0,0
535 DATA 48,0,0,48,0,0,48,0,0,48,0,0,48,0,0,0,0,0,0,0,0,0,0,0,0,0,0
540 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,96,0,1,248,255,223,255
545 DATA 127,223,255,15,135,192,7,143,128,3,159,0,15,255,0,15,255,0,7,255,128
550 DATA 7,255,0,3,255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
555 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,224,0,1,248,0,3,252,0,3
560 DATA 254,224,7,255,16,15,255,8,31,255,132,127,255,254,255,255,255,255,255
565 DATA 255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,7,0,0,15,128,0,31,192,0,31,192,2
570 DATA 63,240,7,127,248,15,191,248,15,223,248,31,231,252,31,251,252,63,248
575 DATA 254,63,255,6,127,255,248,255,255,254,255,255,255,255,255,255,0,0,0,0,0
580 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,248,3,255,240,15,255,248,63,255,248,0,15
585 DATA 192,1,255,240,1,255,224,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
590 DATA 0,0
592 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,0,0
593 DATA 255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
595 DATA 0,0,0,0,112,0,3,252,0,15,255,128,23,255,64,59,254,240,61,253,248,118
596 DATA 171,252,251,255,60,255,254,220,123,253,232,119,251,248,47,255,240,15
597 DATA 223,224,7,223,224,3,223,192,3,219,192,3,219,192,7,219,224,15,219,240
598 DATA 0,0,0
600 KI=49152:FOR N=KI TO 49204:READA:POKEN,A:NEXT
610 DATA 162,210,173,30,208,141,62,192,41,68,201,68,208,7,142,208,2,142,5,208
620 DATA 96,173,62,192,41,66,201,66,208,7,142,198,2,142,3,208,96,173,62,192,41
630 DATA 65,201,65,208,246,142,188,2,142,1,208,96
640 BAM=49407:FOR N=BAM TO 49459:READA:POKEN,A:NEXT
641 DATA 162,210,173,30,208,141,62,192,41,12,201,12,208,7,142,208,2,142,5,208
642 DATA 96,173,62,192,41,10,201,10,208,7,142,198,2,142,3,208,96,173,62,192,41
643 DATA 9,201,9,208,246,142,188,2,142,1,208,96
650 MOVE=49232:FORN=MOVETO49275:READA:POKEN,A:NEXT
660 DATA 173,7,208,205,1,208,176,6,206,1,208
665 DATA 76,97,192,238,1,208,205,3,208,176
670 DATA 6,206,3,208,76,111,192,238,3,208,205,5,208,176,4,206,5,208,96,238
680 DATA 5,208,96
690 PHAS=49472:FOR N=PHAS TO 49531:READA:POKE N,A:NEXT
691 DATA 165,197,201,60,240,1,96,169,129,141,4,212,173,7,208,174,6,208,142,12
693 DATA 208,141,13,208,160,127,140,21,208,238,12,208,173,12,208,208,13,169
695 DATA 128,141,4,212,169,63,141,21,208,76,0,192,160,70,136,192,0,208,251
697 DATA 76,93,193
700 RETURN
799 REM MAIN LOOP MACHINE LANGUAGE
800 FOR N=828 TO 886:READA:POKEN,A:NEXT
810 DATA 174,188,2,202,202,142,188,2,142,0,208,174,198,2,202,202,202,142,198
815 DATA 2,142,2,208,174,208,2,202,142,208,2,142,4,208,174,188,2,174,213,2,202
820 DATA 142,213,2,142,8,208,174,211,2,202,142,211,2,142,10,208,76,49,234
850 RETURN
879 REM RESET HARDWARE INTERUPT VECTOR
880 FOR N=989TO1002:READA:POKEN,A:NEXT
885 DATA 120,169,60,141,20,3,169,3,141,21,3,88,96,32
890 REM THRUSTERS (THRST)
891 THRST=890:FORN=890TO951:READA:POKEN,A:NEXT
892 DATA 165,197,201,2,240,13,165,197,201,7,240,19,165,197,197,60,240,25,96
893 DATA 174,7,208,202,224,95,240,247,142,7,208,96,174,7,208,232,224,190,240
894 DATA 247,142,7,208,96,173,7,208,74,74,74,24,105,25,168,174,6,208,24,32
895 DATA 240,255,96,32
899 RETURN
900 POKE53280,0:POKE53281,0
910 GOSUB 1100
920 PRINT"[147]":GOSUB 980
930 PRINT"[149][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162]";
950 PRINT"       [166][166][166][166] [166][166][166][166][160][166][166][166][166][160][166][160][160][166]     HI SCORE ";
952 PRINT" LEVEL   [166]  [166]  [166] [166]    [166] [166][166]    "BSC
954 PRINT"  "FQ"    [166]  [166][166][166][166] [166][166][166]  [166][166][166]               ";
956 PRINT"         [166]  [166] [166]  [166]    [166] [166]               ";
958 PRINT"         [166]  [166] [166][166] [166][166][166][166] [166] [166][166]              ";
960 PRINT"[185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]";
965 FOR SV=1TO12:PRINTSPC(30)"[181]":NEXT
970 PRINTSPC(31)"[184][184][184][184][184][184][184][184][184]"
971 PRINT""SPC(31)"[159]CONTROLS"
972 PRINTSPC(31)"[158]CRSR-DN="
973 PRINTSPC(33)"DOWN"
974 PRINTSPC(31)"CRSR-RT="
975 PRINTSPC(34)"UP"
977 PRINTSPC(31)"T[146]=BEAM-UP"
978 PRINTSPC(31)"SPACEBAR=";
979 PRINTSPC(32)" FIRE":GOSUB9000:GOTO1000
980 FOR SF=1TO 20:K=(RND(X)*25+RND(Y)*400):POKE 1250+K,46:NEXT
990 FOR CF=55296TO55555:POKECF,4:NEXT
992 FOR CF=55556TO55855:POKECF,1:NEXT
994 FOR CF=55856TO56295:POKECF,7:NEXT
998 RETURN
1000 RETURN
1099 REM TITLE
1100 FORN=1TO30:PRINT"";:NEXT
1110 PRINT"[147]":M=1:GOSUB980
1200 POKE53277,PEEK(53277)OR(2^3):FOR X=250TO3 STEP-3
1210 M=M+3:POKE V+6,M : POKEV+7,X
1220 NEXT
1230 PRINT"";
1240 PRINT"          [166][166][166] [166][166][166] [166][166][166] [166] [166][166]"
1250 PRINT"           [166]  [166] [166] [166]   [166] [166]"
1260 PRINT"           [166]  [166][166][166] [166][166][166] [166][166][166]"
1270 PRINT"           [166][160][160][166][160][220][160][166][160][160][160][166][160][166]"
1280 PRINT"           [166]  [166][160][166][160][166][166][166][160][166][160][166][166]"
1285 M=1
1290 FOR X=3TO250STEP3:M=M+3
1300 POKEV+6,M:POKEV+7,X
1310 NEXT
1320 PRINT"";
1371 PRINT"        MISSION TO DELTA MINOR"
1375 FOR DELAY=1TO2000:NEXT
1379 GOSUB7000:RETURN
1380 S=54272:FORL=STOS+24:POKEL,0:NEXT:POKES+5,9:POKES+6,0:POKES+24,15
1391 POKES+1,28:POKES,49:POKES+4,17
1392 FORN=1TO125:NEXTN
1393 POKES+4,16
1394 FORN=1TO70:NEXTN
1395 POKES+1,28:POKES,49:POKES+4,17
1396 FORN=1TO125:NEXTN
1397 POKES+4,16:FORL=STOS+24:POKEL,0:NEXT:RETURN
3000 POKE2041,215:POKEV+21,0
3100 PRINT"[146][144]          [158]GAM[156]E OV[159]ER";
3105 POKE54296,0:LC=0:POKE198,0
3110 PRINTXX$"TYPE (E) TO END, TYPE (P) TO PLAY AGAIN"
3200 GETA$:IF A$="E"THEN POKE198,0:SYS198
3205 IFA$<>"P"THEN3200
3210 RESTORE:POKE2043,211:POKEV+21,63:T1=TI
3211 PRINT"                           "
3212 PRINTXX$"                                       "
3213 PRINTXX$;:PRINT" SKILL LEVEL 1-4"
3215 GETFQ$:IF FQ$<"1"OR FQ$>"4" THEN 3215
3216 FQ=VAL(FQ$)
3217 PRINTXX$"                                       "
3218 PRINT""SPC(31)"SCORE":PRINT""SPC(25),"       "
3220 PRINT" .     ..   .   ";:T1=TI:GOSUB920:GOTO95
4000 B2=(TI-T1)-HIT:IFB2>BSCTHENBSC=B2
4001 PRINT"[147][158]";:POKEV+21,8:POKE53280,0:FORL=STOS+24:POKEL,0:NEXT:M=1:N=2
4004 POKE54272,40:POKE54296,15
4005 POKE54273,30+N:POKES+4,17:PRINT TAB(N)"[205]    [206] [194] [207][183] [183][207][183] [207][208][160][207][208] [205]  [206]"
4006 PRINT TAB(N)" [205][160] [206][160][160][194][160][180]   [180]  [180][170] [204][186]  [205][206]   "
4007 PRINT TAB(N)"  [205][206]   [194] [204][175]  [180]  [204][186][160][180][205]   [180]   ";
4008 N=N+M:IF N>7 OR N<1 THEN M=M*(-1):N1=N1+1:IFN1>4THEN 4010
4009 FORD=1TO10:NEXT:POKES+4,16:GOTO 4005
4010 POKES+4,16:PRINT"[158]           PEGASUS REFUELED!!"
4020 PRINT"           CONTINUING ON MISSION"
4030 PRINT"           TO DELTA MINOR..."
4035 M=1
4036 FOR X=3TO250STEP3:M=M+3
4037 POKEV+6,M:POKEV+7,X
4038 NEXT
4045 M=1
4046 FOR X=250TO3STEP-3:M=M+3
4047 POKEV+6,M:POKEV+7,X
4048 NEXT
4050 FORI=1TO1000:NEXTI:GOSUB 920:GOTO 3000
4999 REM RELOCATE CHARACTER SET
5000 POKE56334,0:POKE1,51
5020 FOR ADD=14336TO16384
5030 POKE ADD,PEEK(ADD+38912):NEXT ADD
5040 POKE1,55:POKE56334,129:POKE53272,(PEEK(53272)AND240)OR14:RETURN
6000 POKEV+44,7:SYS THRST:HIT=HIT-2
6010 SYS THRST:POKEV+44,9:RETURN
7000 FOR CD=1TO30:PRINT"";:NEXT
7100 PRINT"[153]     CAPTAINS LOG":PRINT"     STARDATE "TI$
7150 PRINT"     [183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
7200 PRINT"      THE PEGASUS IS EN ROUTE TO"
7210 PRINT"     DELTA MINOR. OUR MISSION:"
7220 PRINT"     AID A FEDERATION RESEARCH"
7230 PRINT"     OUTPOST IN COMBATING A"
7250 PRINT"     MUTANT VIRUS THAT IS"
7270 PRINT"     THREATENING THE CONTINUED"
7280 PRINT"     EXISTENCE OF THE OUTPOST.":PRINT
7300 PRINT"      WHILE EN ROUTE, THE SHIP"
7310 PRINT"     SUFFERED DAMAGE TO THE"
7320 PRINT"     MAIN POWER HOUSINGS. AS A"
7330 PRINT"     RESULT, WE ARE FORCED TO"
7340 PRINT"     MINE NEW DILITHIUM CRYSTALS"
7350 PRINT"     ON A NEARBY PLANETOID. THE"
7360 PRINT"     PLANETOID, HOWEVER, IS"
7370 PRINT"     GUARDED BY NUMEROUS LIFELESS"
7380 PRINT"     DRONES...":PRINT
7390 PRINT"     HIT ANY KEY TO CONTINUE"
7400 POKE198,0:GOSUB1380
7500 GETA$:IFA$=""THEN7500
7501 T1=TI:RETURN
8000 POKE53269,PEEK(53269)AND250
8005 A1=PEEK(53278):J1=0:POKEV+3,200:POKE2041,214:POKE710,1:POKE53288,7
8010 FOR N=1TO60:SYS THRST:SYS MOVE:SYS MOVE:SYS THRST:SYS THRST:SYS THRST
8015 POKE2041,210:POKES+4,129
8020 SYSTHRST:IF(PEEK(53278)AND10)=10THENPOKE53288,10:POKE2041,215:GOTO200
8025 POKE2041,214
8030 SYSMOVE:SYSTHRST:SYSMOVE:SYSTHRST:NEXT:POKE2041,215:POKE53288,10
8035 POKES+4,128:POKE53269,63:GOTO132
9000 PRINTXX$"[145][145][145][145][145][145]":PRINTSPC(35)"[184][184][184][184][184]";
9010 POKE 646,9
9020 PRINTSPC(35)"     ";
9030 PRINTSPC(35)"     ";
9035 PRINTSPC(35)"     ";
9040 RETURN