home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
genie-commodore-file-library
/
C64Adventure
/
RESCUE_CENTAURI
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
16KB
|
612 lines
0 REM THIS IS RESCUE! BY ALEX KLOIAN. WRITTEN MOSTLY ON THE PET. (1982-83)
1 SO=54272:FORI=SOTOSO+24:POKEI,0:NEXT:PRINT"[147]"CHR$(14):GOSUB59000
2 POKE53280,0:POKE53281,0:DIMA(12),A$(12)
3 REM REWRITTEN FOR THE C-64. 1984-1985
4 PF=0:POKESO+5,136:POKESO+6,24:POKESO+24,15
5 WP=25:POKESO+3,3:POKESO+2,200:H$="[201]'M HIDING."
10 B$=CHR$(142)+"[206][183][197][196][195][198][210][175][157][157][157][157][157][157][157][157][205][175][210][198][195][196][197][183]"
15 PRINT"[147]":FORI=1TO9:PRINT:NEXT
20 PRINTTAB(10)"[210]ESCUE ON THE [195]ENTAURI"
30 FORI=1TO2000:NEXT:PRINT:PRINT""
40 INPUT"[200]OW MANY ALIENS IN THE STATION (10-50)";A
45 A1=A:IFA<10ORA>50 THEN40
50 DIML(A+1),C(24),B(24)
60 FORI=1TOA
70 L(I)=INT(24*RND(1))+1:IFL(I)=17THEN70
80 NEXT
90 LC=30
100 PL=L(1)
120 P=17:KI=3
200 BU=0:TP=TP+1:FORI=1TO200:NEXT:PRINT"[147]":GOSUB3000:IFIT>0THENGOSUB10000
201 IFA1=0ANDTR=0ANDIT=0THENPRINT"[217]OU KILLED ALL THE ALIENS!":SC=SC+1000:GOTO50105
202 IFRND(1)>.7ANDH=1THENH=0:PRINT"[156][201]'M NOT HIDDEN ANYMORE."
203 PRINT"[159][204]ASER CHARGES LEFT:"LC:IFC(P)>1THENPRINT"[212]HERE ARE"C(P)"CORPSES HERE."
204 PRINT"";:IFC(P)=1THENPRINT"[212]HERE IS A CORPSE HERE."
205 IFP>10THEN1090
207 IFP<>1THEN260
210 PRINT"[217]OU ARE IN AIRLOCK #1. [197]XITS: [158][211]."
215 GOSUB5000
220 GOSUB61000
230 IFA$="S"THENP=6
235 IFA$="H"THENH=1:PRINTH$
240 GOTO200
260 IFP<>2THEN330
270 PRINT"[217]OU ARE IN STOREROOM #3. [197]XITS: [158][197]."
275 GOSUB5000
280 GOSUB61000
290 IFA$="E"THENP=6
300 IFA$="H"THENH=1:PRINTH$
310 GOTO200
330 IFP<>3THEN480
340 PRINT"[217]OU ARE IN THE ENGINE ROOM. [197]XITS: [158][215]. [158][211]ABOTAGE SHIP."
350 GOSUB5000:GOSUB61000
360 IFA$="W"THENP=6
370 IFA$="H"THENH=1:PRINTH$
380 IFA$="S"ANDTY=1ANDIT=0THENGOSUB420
390 IFA$="S"ANDTY<>1THENPRINT"YOU DON'T HAVE THE TOOLS, YET."
400 GOTO200
420 TS=TS+1:SS=INT(10*RND(1))
430 IFTS<SSTHENPRINT"[201] NEED MORE TIME."
440 IFTS>=SSTHENIT=INT(RND(1)*9)+5:PRINT"[212]HE ENGINES WILL IMPLODE IN"IT"TURNS!"
450 FORI=1TO200:NEXT
460 RETURN
480 IFP<>4THEN550
490 PRINT"[217]OU ARE IN STOREROOM #4. [197]XITS: [193]IR SHAFT #[158]1. [158][211]."
500 GOSUB5000:GOSUB61000
510 IFA$="1"THENP=5
520 IFA$="S"THENP=16
530 IFA$="H"THENH=1:PRINTH$
540 GOTO200
550 IFP<>5THEN620
560 PRINT"[217]OU ARE IN AIR SHAFT #1. [197]XITS: [158][197]. [158][215]."
570 GOSUB5000:GOSUB61000
580 IFA$="E"THENP=6
590 IFA$="W"THENP=4
600 IFA$="H"THENH=1:PRINTH$
610 GOTO200
620 IFP<>6THEN720
630 PRINT"[217]OU ARE IN HALLWAY #1. [197]XITS: [158][206]. [158][211]. [158][197]. [158][215]. ";
635 PRINT"[193]IR SHAFT #[158]1. [193]IR SHAFT #[158]2. [158][195]YCLE AIRLOCK."
640 GOSUB5000:GOSUB61000
650 IFA$="H"THENH=1:PRINTH$
660 IFA$="N"THENP=1
670 IFA$="S"THENP=15
682 IFA$="W"THENP=2
690 IFA$="E"THENP=3
700 IFA$="1"THENP=5
710 IFA$="2"THENP=7
711 IFA$<>"C"THEN200
712 POKESO+6,12:POKESO+1,30:POKES0,60:POKESO+4,129:POKESO+5,136
713 FORK=1TO100:NEXT:POKESO+4,128:PRINT"[215]HOOOOOSH!":FORI=1TOA
714 IFL(I)=1THENPRINT"[203]ILLED A BUG!":L(I)=0:A1=A1-1:SC=SC+50:GOSUB3290
715 IFPL=1THENPRINT"[203]ILLED THE PRISONER!":SC=SC-500:GOTO50105
716 NEXT
717 GOTO200
720 IFP<>7THEN790
730 PRINT"[217]OU ARE IN AIR SHAFT #2. [197]XITS: [158][197]. [158][215]."
740 GOSUB5000:GOSUB61000
750 IFA$="W"THENP=6
760 IFA$="E"THENP=8
770 IFA$="H"THENH=1:PRINTH$
780 GOTO200
790 IFP<>8THEN860
800 PRINT"[217]OU ARE IN THE MAINTENANCE ROOM. [197]XITS: [193]IR SHAFT #[158]2. [158][211]. [158][212]A";
805 PRINT"KE TOOLS."
810 GOSUB5000:GOSUB61000
820 IFA$="T"ANDTY<>1THENTY=1:PRINT"[207]K, [201] HAVE THE TOOLS."
830 IFA$="2"THENP=7
835 IFA$="H"THENH=1:PRINTH$
840 IFA$="S"THENP=9
850 GOTO200
860 IFP<>9THEN980
870 PRINT"[217]OU ARE IN HALLWAY #2. [197]XITS: [158][206]. [158][211]. [158][197]. [158][215]."
880 GOSUB5000:GOSUB61000
890 IFA$="H"THENH=1:PRINTH$
900 IFA$="N"THENP=8
910 IFA$="S"THENP=11
920 IFA$="E"THENP=10
930 IFA$="W"THENP=15
935 GOTO200
980 IFP<>10THEN1090
990 PRINT"[217]OU ARE IN SHUTTLE BAY #2. [197]XITS: [158][215]. [158][212]AKE OFF IN SHUTTLE."
1000 GOSUB5000:GOSUB61000
1010 IFA$="H"THENH=1:PRINTH$
1020 IFA$="W"THENP=9
1030 IFA$="T"ANDS2=0THEN1050
1035 IFA$="T"ANDS2=1THENPRINT"[201]T ISN'T HERE ANY MORE!"
1040 GOTO200
1050 Q=INT(RND(1)*3)+1
1060 IFQ<>1THENPRINT"[204]ETS SEE, WHERE IS THAT KEY?":FU=1:FORM=1TO800:NEXT:GOTO200
1065 IFFU=1THENPRINT"[200]ERE'S THE LITTLE MOTHER! [195][204][201][195][203]!"
1070 PRINT"[204]AUNCHING SHUTTLE!"
1080 GOTO50000
1090 IFP<>11THEN1160
1100 PRINT"[217]OU ARE IN STOREROOM #2. [197]XITS: [193]IR SHAFT #[158]4. [158]N."
1110 GOSUB5000:GOSUB61000
1120 IFA$="H"THENH=1:PRINTH$
1130 IFA$="N"THENP=9
1140 IFA$="4"THENP=20
1150 GOTO200
1160 IFP<>12THEN1220
1170 PRINT"[217]OU ARE IN THE FREEZER. [197]XITS: [158][211]."
1175 IFPL=12THENPRINT"[212]HE PRISONER IS HERE AND HE IS FROZEN!"
1180 GOSUB5000:GOSUB61000
1190 IFA$="H"THENH=1:PRINTH$
1200 IFA$="S"THENP=15
1210 GOTO200
1220 IFP<>13THEN1320
1230 PRINT"[217]OU ARE IN THE ARMS ROOM. [197]XITS: [158][211]. [158][210]ECHARGE LASER PACK."
1240 GOSUB5000:GOSUB61000
1250 IFA$="H"THENH=1:PRINTH$
1260 IFA$="S"THENP=15
1270 IFA$<>"R"THEN200
1280 IFLC>45THENPRINT"[204]ASER IS FULLY CHARGED!":GOTO200
1290 LC=LC+10:PRINT"[210]ECHARGING LASER.":KI=3
1300 IFLC>45THENPRINT"[204]ASER FULLY CHARGED."
1310 GOTO200
1320 IFP<>14THEN1390
1330 PRINT"[217]OU ARE IN THE COMPUTER ROOM. [197]XITS: [158][206]. [158][205]AP OF SHIP."
1340 GOSUB5000:GOSUB61000
1350 IFA$="H"THENH=1:PRINTH$
1360 IFA$="N"THENP=15
1365 IFA$="M"THENGOSUB2500
1370 GOTO200
1390 IFP<>15THEN1570
1400 PRINT"[217]OU ARE IN THE COMMAND CENTER. [197]XITS: [158][206]. [158][211]. [158][197]. [158][215]. ";
1402 PRINT"[158][198]REEZER. [158][193]RMS ROOM. [158][195]OMPUTER ROOM. [158][212]URN FREEZER ([207][206]/[207][198][198])"
1410 GOSUB5000:GOSUB61000
1420 IFA$="H"THENH=1:PRINTH$
1430 IFA$="N"THENP=6
1440 IFA$="S"THENP=21
1450 IFA$="E"THENP=9
1460 IFA$="W"THENP=16
1470 IFA$="F"THENP=12
1480 IFA$="A"THENP=13
1490 IFA$="C"THENP=14
1500 IFA$<>"T"THEN200
1510 IFF=1THENF=0:PRINT"[198]REEZER OFF.":GOTO1525
1520 IFF=0THENF=1:PRINT"[198]REEZER ON."
1525 IFF=0THEN200
1530 FORI=1TOA
1540 IFL(I)=12THENPRINT"[217]OU FROZE A BUG!":L(I)=0:SC=SC+25:C(12)=C(12)+1:A1=A1-1
1550 NEXT
1555 IFPL=12THENPRINT"[217]OU HAVE RECOVERED THE PRISONER!":PL=0:PF=1
1557 FORJ=1TO500:NEXT
1560 GOTO200
1570 IFP<>16THEN1670
1580 PRINT"[217]OU ARE IN HALLWAY #4. [197]XITS: [158][206]. [158][215]. [158][211]. [158][197]."
1590 GOSUB5000:GOSUB61000
1600 IFA$="H"THENH=1:PRINTH$
1610 IFA$="N"THENP=4
1620 IFA$="S"THENP=18
1630 IFA$="E"THENP=15
1640 IFA$="W"THENP=17
1650 GOTO200
1670 IFP<>17THEN1750
1680 PRINT"[217]OU ARE IN SHUTTLE BAY #1. [197]XITS: [158][197]. [158][212]AKE OFF IN SHUTTLE."
1690 GOSUB5000:GOSUB61000
1700 IFA$="H"THENH=1:PRINTH$
1710 IFA$="E"THENP=16
1720 IFA$<>"T"THEN200
1725 IFS1=1THENPRINT"[201]T ISN'T HERE ANY MORE!":GOTO200
1730 PRINT"[211]HUTTLE CRAFT LAUNCHED!"
1740 GOTO50000
1750 IFP<>18THEN1840
1760 PRINT"[217]OU ARE IN THE SCANNER ROOM. [197]XITS: [158][206]. ";
1765 PRINT"[193]IR SHAFT #[158]3. [158][211]CAN SHIP FOR ALIENS."
1770 GOSUB5000:GOSUB61000
1780 IFA$="H"THENH=1:PRINTH$
1790 IFA$="N"THENP=16
1800 IFA$="3"THENP=19
1810 IFA$<>"S"THEN200
1820 GOSUB3590
1830 GOTO200
1840 IFP<>19THEN1910
1850 PRINT"[217]OU ARE IN AIR SHAFT #3. [197]XITS: [158][215]. [158][197]."
1860 GOSUB5000:GOSUB61000
1870 IFA$="H"THENH=1:PRINTH$
1880 IFA$="W"THENP=18
1890 IFA$="E"THENP=21
1900 GOTO200
1910 IFP<>20THEN1980
1920 PRINT"[217]OU ARE IN AIR SHAFT #4. [197]XITS: [158][215]. [158][197]."
1930 GOSUB5000:GOSUB61000
1940 IFA$="H"THENH=1:PRINTH$
1950 IFA$="W"THENP=21
1960 IFA$="E"THENP=11
1970 GOTO200
1980 IFP<>21THEN2130
1990 PRINT"[217]OU ARE IN HALLWAY #3. [197]XITS: [158][206]. [158][211]. [158][197]. [158][215]. ";
1994 PRINT"[193]IR SHAFT #[158]4. [193]IR SHAFT #[158]3. [158][195]YCLE AIRLOCK."
2000 GOSUB5000:GOSUB61000
2010 IFA$="H"THENH=1:PRINTH$
2020 IFA$="N"THENP=15
2030 IFA$="S"THENP=24
2040 IFA$="E"THENP=23
2050 IFA$="W"THENP=22
2060 IFA$="4"THENP=20
2070 IFA$="3"THENP=19
2080 IFA$<>"C"THEN200
2090 POKESO+6,12:POKESO+1,30:POKES0,60:POKESO+4,129:POKESO+5,136
2092 FORK=1TO100:NEXT:POKESO+4,128
2093 PRINT"[215]HOOOOOSH!":FORI=1TOA
2095 IFL(I)=24THENPRINT"[203]ILLED A BUG!":L(I)=0:A1=A1-1:SC=SC+50:GOSUB3290
2100 IFPL=24THENPRINT"[203]ILLED THE PRISONER!":SC=SC-500:GOTO50105
2110 NEXT
2120 GOTO200
2130 IFP<>22THEN2190
2140 PRINT"[217]OU ARE IN STOREROOM #1. [197]XITS: [197]."
2150 GOSUB5000:GOSUB61000
2160 IFA$="H"THENH=1:PRINTH$
2170 IFA$="E"THENP=21
2180 GOTO200
2190 IFP<>23THEN2290
2200 PRINT"[217]OU ARE IN THE SICK BAY. [197]XITS: [215]. @[195]OVER WOUNDS."
2210 GOSUB5000:GOSUB61000
2230 IFA$="W"THENP=21
2235 IFA$="H"THENH=1:PRINTH$
2240 IFA$<>"C"THEN200
2250 IFWP>34THEN200
2255 H7=1:GOTO2261
2260 PRINT"[200]EALING UNDERWAY.":WP=WP+5:SC=SC-25:IFWP>25THENWP=25
2261 PRINT"[205]EDICAL CONDITION: ";
2262 IFWP=25THENPRINT"[199][210][197][197][206]."
2264 IFWP<25ANDWP>9THENPRINT"[158][217][197][204][204][207][215]."
2266 IFWP<10THENPRINT"[210][197][196]."
2268 IFH7=1THENH7=0:GOTO2260
2270 FORI=1TO1000:NEXT
2280 GOTO200
2290 REM
2300 PRINT"[217]OU ARE IN AIRLOCK #2. [197]XITS: [158][206]."
2310 GOSUB5000:GOSUB61000
2320 IFA$="H"THENH=1:PRINTH$
2330 IFA$="N"THENP=21
2340 GOTO200
2500 PRINT"[147]";CHR$(142);"SPACE STATION CENTAURI:"
2505 PRINT:PRINT" AIRLOCK #2"
2510 PRINT" [213][196][184][196][201]"
2515 PRINT" [194] [194]"
2520 PRINT" [207] [208]"
2525 PRINT" [206]HALL1[205]"
2530 PRINT" SHUTTLE [206][163][163] [163][163][205]SHUTTLE"
2535 PRINT" [207][183][183] [206] [205] [183][183][208]"
2537 PRINT" [181]HALL4 COM HALL2[182]"
2540 PRINT" [204][175][175] [205] [206] [175][175][186]"
2545 PRINT" #1 [205][164][164] [164][164][206] #2 "
2550 PRINT" [205]HALL3[206]"
2555 PRINT" [204] [186]"
2560 PRINT" [194] [194]"
2565 PRINT" [202][195][162][195][203]"
2567 PRINT" AIRLOCK #1"
2570 IFS1=0THENPRINT"[158]";TAB(4)"[213][195][157][157][194]=[157][157][202][195]";
2580 IFS2=0THENPRINT"";TAB(25);"[195][201][157][157]=[194][157][157][195][203]";
2590 IFV>0THENPRINT"";TAB(3);B$;
2595 IFV>1THENPRINT"[157][157][157][157][157][157][157][157]";B$;
2600 IFV>2THENPRINT"[145][145][145]";TAB(22);B$;
2610 IFV>3THENPRINT"[157][157][157][157][157][157][157][157][157][157][157][157]";B$;
2810 GETA1$:IFA1$=""THEN2810
2820 PRINTCHR$(14)"[147]":RETURN
3000 IFTR=0THENRETURN
3010 IFR1>4THENTR=0:RETURN
3020 TR=TR-1:IFTR>1THENRETURN
3030 IFTR=0THEN3040
3035 PRINT"[150][211]PACE STATION CENTAURI, REINFORCEMENTS ARE ABOUT TO DOCK.":RETURN
3040 POKESO+5,155:POKESO+6,76:POKESO+4,129:FORI=1TO20:NEXT:POKESO+4,128
3050 PRINT"[150][210]EINFORCEMENTS HAVE DOCKED. [212]HE CAVALRY IS HERE GUYS. ";
3060 IFA1=0THENPRINT"[199]UYS? [217]OU THERE? [193]H HU-MAN WE GOIN' KILL YO' ASS."
3070 PRINT""
3080 RE=INT(RND(1)*10)+(R1*4)+3:IFRE>(A-A1)THENRE=(A-A1)
3082 PRINT"[156][211]QUAD ONE: [212]AKE THE COMMAND CENTER."
3084 IFRE>5THENPRINT"[211]QUAD TWO: [211]EEK AND DESTROY!"
3086 IFRE>10THENPRINT"[158][211]QUAD THREE: [211]ECURE THE PRISONER!"
3088 IFRE>15THENPRINT"[211]QUAD FOUR: [208]ATROL THE BASE."
3090 FORM=1TOA
3095 IFL(M)=0ANDRE>0THENL(M)=21:A1=A1+1:RE=RE-1
3100 NEXTM
3110 V=V+1:K=0:FORM=1TOA:IFL(M)>0THENK=K+1
3115 NEXT:IFK<>A1THENSTOP
3200 RETURN
3290 POKESO+12,202:POKESO+13,44
3300 POKESO+8, 8 :POKESO+7,20:POKESO+11,33:FORK=1TO60:NEXTK:POKESO+11,32:RETURN
3590 SO=54272:POKESO+5,24:POKESO+6,78:POKESO+1,10:POKESO,99:POKESO+4,17
3600 FORI=1TO24:B(I)=0:NEXT:FORK=1TOA:IFL(K)=0THEN3607
3605 B(L(K))=B(L(K))+1
3607 NEXTK:POKESO+4,16
3610 PRINT"[147]";CHR$(142);
3700 PRINT" [185][185][185][185][164][185][185][185][185]"
3705 PRINT" [194] [165] [170] [194]"
3710 PRINT" [194] [204][166][186] [194]"
3715 PRINT" [207] [219] [219] [208]
3720 [153]" (null)AND(null)SPC( SPC((null)ANDSQR"
3725 [153]" (null) ANDAND(null) (null)ANDAND (null)"
3730 [153]" ANDANDAND(null) (null) (null)SPC((null) (null) (null)ANDANDAND"
3735 [153]" (null) SPC((null) THEN FN (null)SPC( (null)"
3740 [153]" ANDANDANDAND(null)(null)ANDNOTANDSQRANDSQRSPC((null)SQR (null)SQRSPC((null)AND(null)ANDANDNOTSQR(null)ANDANDANDAND"
3745 [153]" + INT ABS INT ABS SGN"
3750 [153]" ABS INT SQR (null) ABS INT"
3755 [153]" ABS SPC( SPC( SPC( SPC( INT"
3760 [153]" ABS INT (null) (null) ABS INT"
3765 [153]" THEN INT ABS INT ABS FN"
3770 [153]" USRUSRUSRUSR(null)SQRUSRSPC(USR(null)USRUSRUSRUSR(null) (null)(null)SPC((null)USR(null)USRUSRSPC((null)(null)USRUSRUSRUSR"
3775 [153]" (null) SPC((null)+++THEN FN (null)SPC( (null)"
3780 [153]" USRUSRUSR(null) (null)++SQRSPC((null) (null) (null)USRUSRUSR"
3785 [153]" (null) USRUSR(null) (null)USRUSR (null)"
3790 [153]" STEPUSR(null)SPC( SPC((null)USR(null)"
3795 [153]" (null) (null) (null) SQR"
3800 [153]" PEEK (null)SPC((null) PEEK"
3805 [153]" PEEK FN THEN PEEK"
3810 [153]" FREFREFREFRETAB(FREFREFREFRE"
3815 [140]:[129]K[178]1[164]24:[135]D,T:[153]"";:[139]D[178]0[167]3820
3816 [139]B(K)[179]1[167]3830
3817 [129]K1[178]1[164]D:[153]"";:[130]K1
3820 [139]B(K)[177]0[167][153][163]T);"(null)";
3830 [130]K:[153]"";[163]12);"SYS*";
3900 [161]A$:[139]A$[178]""[167]3900
3910 [153][199](14);"LOAD";
3990 [131] 1,20,3,18,3,22,7,12,5,16,4,20,5,24,7,28,11,28,11,33,15,28,7,17,7,23
3992 [131]15,23,11,20,11,12,11,7,15,12,17,16,17,24,18,20,19,18,19,22,21,20
4000 [153]"LOAD":[142]
5000 BU[178]0:[139]PL[178]P[167][153]"**(null)HE PRISONER IS HERE**"
5003 [129]I[178]1[164]A
5005 PR[178][181]([187](1)[172]6)[170]1
5006 [139]L(I)[178]0[167]5702
5007 L[178]L(I):[139][187](1)[179]A2[167]5700
5008 [139]L[178]P[175]H[179][177]1[167]5700
5010 [145]L[137]5020,5060,5100,5140,5190,5220,5260,5285,5310,5337,5355,5373,5390
5011 [145](L[171]13)[137]5405,5412,5460,5487,5505,5525,5545,5565,5578,5584,5590
5020 [139]PR[179]4[167]L[178]1
5030 [139]PR[177]3[167]L[178]6
5040 [137]5700
5060 [139]PR[179]4[167]L[178]2
5070 [139]PR[177]3[167]L[178]6
5080 [137]5700
5100 [139]PR[179]4[167]L[178]3
5110 [139]PR[177]3[167]L[178]6
5120 [137]5700
5140 [139]PR[179]3[167]L[178]4
5150 [139]PR[179]5[167]L[178]5
5160 [139]PR[177]4[167]L[178]16
5170 [137]5700
5190 [139]PR[179]3[167]L[178]5
5200 [139]PR[179]5[167]L[178]4
5205 [139]PR[177]4[167]L[178]6
5210 [137]5700
5220 [139]PR[178]1[167]L[178]1
5225 [139]PR[178]2[167]L[178]3
5230 [139]PR[178]3[167]L[178]7
5235 [139]PR[178]4[167]L[178]15
5240 [139]PR[178]5[167]L[178]5
5245 [139]PR[178]6[167]L[178]2
5250 [137]5700
5260 [139]PR[179]3[167]L[178]7
5265 [139]PR[179]5[167]L[178]6
5270 [139]PR[177]4[167]L[178]8
5275 [137]5700
5285 [139]PR[179]3[167]L[178]8
5290 [139]PR[179]5[167]L[178]7
5295 [139]PR[177]4[167]L[178]9
5300 [137]5700
5310 [139]PR[178]1[167]L[178]8
5315 [139]PR[178]2[167]L[178]10
5320 [139]PR[178]3[167]L[178]11
5325 [139]PR[178]4[167]L[178]15
5330 [137]5700
5337 [139]IT[177]0[175]S2[178]0[167]S2[178]1:L(I)[178]0:A1[178]A1[171]1:[153]"OPEN(null)LEFT$(null)(null)(null)(null)VAL #2 (null)ATN(null)(null)LENLEFT$VALSTR$":[137]5703
5340 [139]PR[177]3[167]L[178]9
5345 [137]5700
5355 [139]PR[179]3[167]L[178]9
5360 [139]PR[177]4[167]L[178]20
5365 [137]5700
5373 [139]L(1)[178]12[167]5700
5375 [139]PR[177]3[167]L[178]15
5380 [137]5700
5390 [139]PR[177]3[167]L[178]15
5395 [137]5700
5405 [139][187](1)[177].5[167][153]"DEFLEFT$U-MAN, YOU WILL SURRENDER, OR DIE!"
5406 [139]PL[178]14[167][153]"SYSLEFT$ELP ME! RIGHT$'M IN THE COMPUTER ROOM!"
5407 [139]PR[177]3[167]L[178]15
5410 [137]5700
5412 [139]TR[177]0[167]5420
5413 [139][187](1)[177].4[175]A1[179]3[175]A1[177]0[167]5418
5416 [139]A1[177]0[175]A1[179]3[175]IT[178]0[167]IT[178][181]([187](1)[172]6)[170]3:[153]"(null)VAL(null)ASC-STR$VAL(null)(null)(null)(null)LEN(null) RIGHT$(null)"IT"(null)(null)(null)(null)(null).
5417 IFIT>0THEN5420
5418 IFA1>0ANDA1<5THENPRINT"[150][205]AYDAY, MAYDAY! [194]ASE UNDER ASSAULT. [210]EQUEST ";
5419 IFA1>0ANDA1<5THENPRINT"REINFORCEMENTS.":R1=R1+1:TR=INT(RND(1)*20)+(R1*3)
5420 PR=INT(RND(1)*7)+1:IFPR=1THENL=16
5425 IFPR=2THENL=6
5430 IFPR=3THENL=13
5435 IFPR=4THENL=14
5440 IFPR=5THENL=9
5443 IFPR=7THENL=12
5445 IFPR=6THENL=21
5450 GOTO5700
5460 IFPR=1THENL=4
5465 IFPR=2THENL=15
5470 IFPR=3THENL=18
5475 IFPR=4THENL=17
5480 GOTO5700
5487 IFIT>0ANDS1=0THENS1=1:L(I)=0:A1=A1-1:PRINT"[159][211][200][213][212][212][204][197] #1 [204][193][213][206][195][200][197][196]":GOTO5703
5490 IFPR<4THENL=16
5495 GOTO5700
5505 IFPR<3THENL=16
5510 IFPR>4THENL=19
5515 GOTO5700
5525 IFPR<3THENL=18
5530 IFPR>4THENL=21
5535 GOTO5700
5545 IFPR<3THENL=21
5550 IFPR>4THENL=11
5555 GOTO5700
5565 IFPR=1THENL=15
5567 IFPR=2THENL=20
5568 IFPR=3THENL=23
5570 IFPR=4THENL=24
5572 IFPR=5THENL=22
5574 IFPR=6THENL=19
5575 GOTO5700
5578 IFPR<4THENL=21
5580 GOTO5700
5584 IFPR<4THENL=21
5586 GOTO5700
5590 IFPR>3THENL=21
5700 L(I)=L:IFL=PTHENBU=BU+1
5701 IFPF<>1THENPL=L(1)
5702 NEXT:IFPL=PTHENPRINT"[217]OU SEE THE PRISONER!"
5703 IFBU<1THENRETURN
5704 IFBU>1THENPRINT"[217]OU SEE"BU"ALIENS!"
5705 IFBU=1THENPRINT"[217]OU SEE AN ALIEN!"
5706 IFH>0THENPRINT"[217]OU WEREN'T SEEN."
5707 IFH>0THENPRINT"[196]O YOU ATTACK ANYWAY?":GOSUB61000:IFA$="N"THENRETURN
5710 GOTO6000
6000 PRINT"[215]ANT TO EVADE (Y/N)"
6010 GOSUB61000
6020 IFA$="Y"ANDRND(1)>.5THENPRINT"[217]OU ESCAPED!":RETURN
6022 IFA$="Y"THENPRINT"[217]OU CAN'T ESCAPE!"
6025 IFPL=PTHENPL=0:PF=1
6030 PRINT"[195]OMBAT!"
6035 H=0:POKESO+5,136:POKESO+6,24
6040 FORK=1TOBU
6050 GOSUB61060
6060 IFPR>4THENPRINT"[207]W! "
6063 IFPR>4THENPOKESO+1,253:POKESO,46:POKESO+4,17:FORJ=1TO20:NEXTJ:POKESO+4,16
6065 IFPR<5THENPRINT"[201]T MISSED! "
6070 IFPR>4THENGOSUB61060:WP=WP-PR
6080 NEXTK
6083 IFWP>4ANDWP<11THENPRINT"[158]++[217]OU ARE BLEEDING++"
6085 IFWP>0ANDWP<5THENPRINT"++[217]OU ARE BADLY BLEEDING++"
6090 IFWP<1THENPRINT"[217]OU'VE BEEN KILLED!":SC=SC-1000:GOTO50105
6095 IFLC>0THENPRINT"[218]AP!":POKESO+1,36:POKESO,85:POKESO+4,65:FORM=1TO10:NEXTM
6096 IFLC>0THENPOKESO+4,64
6097 IFLC<1THENPRINT"[200]AND TO CLAW COMBAT!":KI=4
6100 GOSUB61060:IFPR>KITHENGOSUB7000
6110 IFLC>0THENLC=LC-1
6120 IFBU>0THEN6040
6300 RETURN
7000 PRINT"[217]OU KILLED ONE!":SC=SC+50:POKESO+4,129:FORM=1TO10:NEXTM:POKESO+4,128
7005 HI=0:C(P)=C(P)+1
7010 FORM=1TOA
7020 IFL(M)<>PTHENNEXTM
7030 A1=A1-1
7040 BU=BU-1
7045 L(M)=0
7070 IFPF=1THENPRINT"[159][217]OU HAVE THE PRISONER."
7100 RETURN
10000 IT=IT-1:FORK=1TO5
10002 POKESO+5,144:POKESO+6,76:POKESO+1,15:POKESO,75:POKESO+4,33
10005 FORI=1TO40:NEXT:POKESO+4,32:FORK1=1TO50:NEXTK1:NEXTK
10010 PRINT"[158]"IT"TURNS TO IMPLOSION!"
10015 IFIT<1THENPRINT"*******[160][194]OOM! *******":SC=SC+500
10017 IFIT<1THENPOKESO+4,129:POKESO+1,15:POKESO,75:FORI=1TO300:NEXT:POKESO+4,128
10020 IFIT<1THENPRINT"[217]OU ARE NOW SUBATOMIC PARTICLES!":SC=SC-1000:GOTO50105
10100 FORI=1TO500:NEXT
10200 RETURN
50000 FORI=1TOA
50010 IFL(I)=13THEN50200
50015 NEXT
50090 IFPF=1THENPRINT"[217]OU HAVE ESCAPED WITH THE PRISONER!"
50100 IFPF<>1THENPRINT"[217]OU HAVE ESCAPED WITHOUT THE PRISONER!"
50105 IFPF=1THENSC=SC+500
50120 IFIT>0THENPRINT"***** [194]OOM! *****":SC=SC+500
50125 IFIT>0THENPRINT"[217]OU DESTROYED THE ENEMY BASE!"
50127 IFIT>0THENPOKESO+1,15:POKESO,75
50130 IFIT>0THENPOKESO+5,155:POKESO+6,76:POKESO+4,129:FORI=1TO300:NEXT
50135 IFIT>0THENPOKESO+4,128
50140 IFA1=0THENSC=SC+A
50150 SC=SC+1000-TP+(R1*100):PRINT"[217]OUR SCORE IS:"SC
50158 GOSUB50600
50160 INPUT"[215]ANT TO PLAY AGAIN";A$:IFLEFT$(A$,1)="Y"THENRUN
50190 END
50200 PRINT"[212]HERE IS AN ALIEN MANNING THE LASER!"
50210 FORI=1TO4
50215 POKESO+1,51:POKESO,97:POKESO+4,129:FORJ=1TO50:NEXTJ:POKESO+4,128
50220 GOSUB61060:IFPR>5THENPRINT"[203]A-BOOOM!":SC=SC-1000
50223 IFPR>5THENPOKESO+6,45
50225 IFPR>5THENPOKESO+1,51:POKESO,97:POKESO+4,129:FORJ=1TO90:NEXT:POKESO+4,128
50230 IFPR<6THENPRINT"[194]OOOM!"
50240 IFPR>5THENPRINT"[217]OUR SHIP WAS DESTROYED!":SC=SC-700:GOTO50105
50250 FORJ=1TO100:NEXTJ:NEXTI
50260 GOTO50090
50500 END
50600 OPEN2,8,2,"0:HIGH SCORES,S,R"
50610 FORI=1TO10
50620 INPUT#2,A$(I)
50625 INPUT#2,A(I)
50630 NEXT
50640 CLOSE2
50680 IFA(1)=0THENRETURN
50690 FORI=1TO10
50700 IFSC>=A(I)THEN50720
50710 NEXT:GOTO50750
50720 PRINT"[217]OU'RE SCORE IS RANKED NUMBER"I"!"
50725 INPUT"[208]RINT YOUR NAME (UP TO 20 CHARACTERS)";N$
50730 IFLEN(N$)>20ORLEN(N$)<1THEN50725
50735 GOSUB50910:A$(I)=N$:A(I)=SC
50740 OPEN2,8,2,"@0:HIGH SCORES,S,W"
50743 FORJ=1TO10
50745 PRINT#2,A$(J)
50747 PRINT#2,A(J)
50748 NEXT
50749 CLOSE2
50750 OPEN2,8,2,"0:HIGH SCORES,S,R"
50755 FORI=1TO10
50760 INPUT#2,A$(I)
50763 INPUT#2,A(I)
50765 NEXT
50770 CLOSE2
50775 PRINT"[158][200][201][199][200] [211][195][207][210][197][211]:"
50780 FORI=1TO10
50785 PRINTA(I),"- "A$(I)
50790 NEXT:PRINT""
50800 RETURN
50910 FORJ=10TOISTEP-1
50920 A$(J+1)=A$(J):A(J+1)=A(J)
50930 NEXT
50990 RETURN
59000 INPUT"[206]EED INSTRUCTIONS";A$
59010 IFLEFT$(A$,1)="N"THENRETURN
59020 PRINT"[147]"
59030 PRINT"[210]ESCUE ON THE [195]ENTAURI IS A TEXT BASED GAME IN WHICH YOUR MISSION IS TO"
59040 PRINT"RESCUE A CAPTIVE ON A SPACE STATION. [217]OU PLAY BY ENTERING ONE LETTER"
59050 PRINT"COMMANDS. [215]HEN YOU ENTER AN AREA YOU MAY GET A DESCRIPTION LIKE THIS:
59060 [153]"(null)(null)(null) ATN(null)VALCLOSERIGHT$(null)CLOSE(null)LEFT$VAL PEEKATN(null)LEFT$(null)(null)(null)(null). VAL(null)RIGHT$(null)(null): SYS(null). SYSVAL. SYSASC(null)(null)(null)LEFT$CLOSE(null)(null)RIGHT$(null)VAL(null)."
59065 [153]"RIGHT$N THIS EXAMPLE YOU CAN HIT SYS(null) TO GO (null)ORTH, OR SYSVAL TO GO VALAST, OR "
59070 [153]"SYSASC TO FLUSH THE TOILET."
59080 [153]"LENOMMANDS ARE ALWAYS COLORED IN YELLOW. (null)HERE IS ONE COMMAND THAT CAN"
59085 [153]"BE USED IN ALL ROOMS THAT IS THE SYSLEFT$ COMMAND TO HIDE YOURSELF."
59090 [153]"LEFT$IDING DOESN'T ALWAYS HELP BUT IT SURE HELPS WHEN YOUR LASER ENERGY IS"
59095 [153]"RUNNING LOW."
59100 [133]"LEFT$RIGHT$(null) <(null)VAL(null)(null)(null)(null)> ASC(null)(null)CLOSE(null)(null)(null)VAL";A$
59110 [153]"LOAD"
59120 [153]"(null)CORING IS SIMPLE."
59130 [153]"(null)OU LOSE POINTS FOR DYING AND YOU GAIN POINTS FOR BLASTING ALIENS."
59140 [153]"(null)OU ALSO GET POINT FOR:"
59150 [153]"(null)AVING THE PRISONER AND ESCAPING."
59160 [153]"(null)AKING OVER THE SPACE STATION."
59170 [153]"PEEKLOWING UP THE SPACE STATION."
59180 [153]:[153]"LEFT$RIGHT$(null)(null)(null):"
59190 [153]"(null)HE SICK BAY IS A GREAT PLACE TO GO IF YOU GET SHOT."
59200 [153]"LENYCLE THE AIRLOCKS OFTEN, YOU NEVER KNOWWHO COULD BE IN THEM."
59205 [153]"(null)HE PRISONER IS ALWAYS GUARDED AND BEINGMOVED FROM ROOM TO ROOM."
59207 [153]"(null)END COMMENTS TO STR$EVIL STR$OG2."
59210 [133]"LEFT$RIGHT$(null)CLOSE<(null)VAL(null)(null)(null)(null)> ASC(null)(null) (null)(null)(null)VAL";$
60011 [151]SO[170]24,15:[151]54273,34:[151]54272,75:[151]54277,4:[151]54278,4
60015 [153]"LOADVALARTH TO SPACESHIP (null)EBULA:"
60020 A$[178]"(null)HE (null)UDE-DE-MANN EMPIRE HAS CAPTURED OURAMBASSADOR."
60025 [141]62000
60030 A$[178]"(null)OUR MISSION IS TO BEAM DOWN TO THEIR BASE AND RESCUE HIM, ALIVE."
60035 [141]62000
60036 [153]
60040 [153]"STR$O YOU ACCEPT";:[133]A$:[139][200](A$,1)[178]"N"[167][137]63000
60900 [142]
61000 [133]"(null)RDERS";A$
61005 A$[178][200](A$,1)
61010 [142]
61060 PR[178][181]([187](1)[172]6)[170]1
61070 [142]
62000 [129]I[178]1[164][195](A$):[151]54276,129
62005 [153][202](A$,I,1);
62010 [129]K[178]1[164]100:[130]:[151]54276,128
62020 [130]:[142]
63000 A$[178]"LENHICKEN!"
63005 [153]"LOAD":[129]I[178]1[164]9:[153]:[130]:[153][163]14);:[141]62000:[128]