2 DEFINTA-Z:CLS:PRINT:PRINT" G A L A X Y T R E K":PRINT:PRINT" A D V E N T U R E # 1":MAXFILES=2:GOSUB35:PRINT:PRINT" COPYRIGHT 1983, HOWARD BATIE":PRINT" HERNDON, VA 22070":GOSUB35:GOSUB168
4 SP$=CHR$(13)+"SPOCK SAYS --":CR$="THE COMPUTER RESPONDS --":NN$="NOT NECESSARY NOW, CAPTAIN.":CD$="YOU CANNOT DO THAT":TM$="YOU'RE CARRYING TOO MUCH ":BL$=" A BUTTON LABELLED:"
5 DR$="YOU'LL HAVE TO DROP SOMETHING.":CP$="CAPTAIN":SH$="THE CRYSTALS SHATTER INTO DUST.":EN$="THE ENTERPRISE":NI$="NOTHING HAPPENED.":PF$="SORRY, YOU'RE ON YOUR OWN!":FORI=1TO41:FORJ=0TO5:READDM(I,J):NEXTJ,I
10 DS$(1)="IN THE CAPTAIN'S QUARTERS":DS$(2)="IN A CORRIDOR OF "+EN$:DS$(3)="IN THE TRANSPORTER ROOM":DS$(4)="ON THE SANDY SURFACE OF THE PLANET":DS$(5)="AT THE ENTRANCE TO A TURBOLIFT":DS$(6)="IN THE TURBOLIFT"
11 DS$(7)=DS$(2):DS$(8)="IN ONE OF THE CREW'S QUARTERS":DS$(9)=DS$(6):DS$(10)=DS$(5):DS$(11)="AT THE NAVIGATION CONSOLE":DS$(12)="AT THE COMMUNICATIONS STATION":DS$(13)="AT THE SCIENCE OFFICER'S STATION"
12 DS$(14)=DS$(2):DS$(15)=DS$(5):DS$(16)="IN THE SHIP'S LIBRARY":DS$(17)=DS$(6):DS$(18)=DS$(2):DS$(19)="IN THE SICK BAY"
13 DS$(20)=DS$(5):DS$(21)="IN THE SHIP'S SUPPLY WAREHOUSE":DS$(22)=DS$(2):DS$(23)=DS$(2):DS$(24)=DS$(6):DS$(25)=DS$(5):DS$(26)="IN A SECURITY CELL IN THE BRIG":DS$(27)=DS$(2):DS$(28)=DS$(2):DS$(29)=DS$(6):DS$(30)="IN THE WARP ENGINE DRIVE AREA"
14 DS$(31)="AT THE DILITHIUM CRYSTAL POWER STATION.":DS$(32)="AT THE AUXILIARY POWER STATION.":DS$(33)="IN A GREAT SEA OF MOVING SAND":DS$(34)="ON A SANDY HILLSIDE"
15 DS$(35)="AT THE WALL OF A CAMP TO THE NORTHEAST.":DS$(36)="ON A DUNE. MANY KLINGONS TO THE EAST."
16 DS$(37)="IN YOUR CREW'S CAMP -- YOU MUST LEAD THEM BACK TO WHERE YOU BEAMED DOWN.":DS$(38)="CAUGHT IN A ROCKSLIDE AND DIE IN AN AVALANCHE OF BOULDERS!":DS$(39)="AT A GATE OF A CAMP TO THE EAST"
17 DS$(40)="AT THE GATE OF A CAMP TO THE NORTH":DS$(41)=DS$(4):OB$(1)="AN UNARMED KLINGON COMMANDER":OB$(2)=" -- SHIP'S SENSORS --":OB$(3)=" -- SHIP'S STATUS --":OB$(4)=" -- FIRE IMPULSE ENGINES --"
18 OB$(5)="A SIGN ON THE OPPOSITE WALL":FORI=6TO9:OB$(I)=OB$(5):NEXT:OB$(10)="MR. SPOCK UNCONSCIOUS ON THE FLOOR":OB$(11)="A KLINGON SOLDIER":OB$(12)="A KLINGON GUARD"
20 OB$(18)="A HYPODERMIC ANTIDOTE":OB$(19)="A PHASER":OB$(20)="A COMMUNICATOR":OB$(21)="AN ELECTRONIC SHUNT":OB$(22)="SPOCK'S TRICORDER":OB$(23)="POWER LEVELS ARE VERY LOW.":OB$(24)="A POWER CONTROL PANEL"
21 OB$(25)="A 3D CHESS SET":OB$(26)="STAR CHARTS":DI$(0)="NORTH":DI$(1)="EAST":DI$(2)="SOUTH":DI$(3)="WEST":DI$(4)="UP":DI$(5)="DOWN":FORI=1TO25:READVB$(I):NEXT
26 CLS:PRINT:PRINT:PRINT" RESTORE A PREVIOUS GAME (Y/N)? "
27 GOSUB172:IFZZ$<>"Y"ANDZZ$<>"N"THENBEEP:GOTO27
28 IFZZ$="N"THEN30
29 PRINT:PRINT:PRINT" WAIT":BEEP:OPEN"RAM:FILE1.DO" FOR INPUT AS 1:INPUT #1,WG,CW,SC,NM,CC,SP,PL,KE,CR,SH,DE,TT,TD:FORI=0TO3:INPUT#1,DM(4,I):NEXTI:FORI=1TO26:INPUT#1,OB(I):NEXTI:CLOSE
30 CLS:IFBP=1THENBEEP
31 PRINT"YOU ";:IFSP=1THENPRINT"AND SPOCK ";
32 IFCW=1THENPRINT"AND THE CREW ";
33 PRINT"ARE":PRINT" ";DS$(PL):IFPL=38THEN73:ELSEIFPL=37THENCW=1:GOTO36:ELSEIFPL<>33THEN36:ELSEGOSUB35:PRINT"A GIANT SAND SNAKE IS SWIMMING THROUGH THE SAND TOWARD YOU!":GOSUB35:PRINT
34 PRINT"IT'S GETTING CLOSER!":GOSUB35:PRINT:PRINT"YOU CAN'T ESCAPE!":GOSUB35:PRINT:PRINT"AARRRRGHH !!! IT KILLED YOU!":PRINT:GOTO73
37 NEXTJ:PRINT:IFPL<>30THENPRINT"YOU CAN SEE";:IFPL>10ANDPL<14THENPRINTBL$
38 IFPL=21THENPRINT" ALL THE SHIP'S SUPPLIES":GOTO41:ELSEK=0:FORJ=1TO26:IFOB(J)=PL THENK=1:PRINT" ";OB$(J):NEXTJ:ELSENEXTJ:IFPL=30THENPRINT" ":ELSEIFK=0THENPRINT" NOTHING"
92 IFNN=0THENIFOB(20)=0THENIFNN=0THENCLS:PRINT:PRINTSP$:PRINT" BEAMING YOU ABOARD, CAPTAIN.":PRINT:PRINT" ";:FORI=1TO25:PRINT"*";:FORJ=1TO10:NEXTJ,I:GOSUB35:PL=3:SP=1:GOTO30
93 IFNN=0ANDOB(20)<>0THENPRINT"O.K. BUT WITHOUT THE COMMUNICATOR, YOU ARE BEAMED INTO DEEP SPACE.":GOTO73
94 IFPL=3THENIFNN=0THENPRINT:PRINT"NEED SOMEONE FOR THE CONTROLS?":GOTO45
95 IFPL=32THENIFNN$="TRIS"THENIFOB(1)=32THENCLS:PRINT:PRINT"THE COMMANDER SURRENDERS AND STATES THAT THE CREW IS UNHARMED ON THE PLANET'S SURFACE. HE WILL SUPPLY TRANSPORTER COORDINATES AND THEN GO TO THE BRIG.":OB(1)=26:SC=SC+150:GOTO45
99 IFNN>16THENPRINT"O.K.":SC=SC-50:IFSP=1THENPRINTSP$:PRINT" A MOST ILLOGICAL MOVE, ";CP$
100 IFNN>16THENOB(NN)=PL:GOTO45
101 FORI=11TO14:IFOB(I)=PL THENPRINT:PRINT"THE KLINGON WAS SO AFRAID OF THE TRIBBLE THAT HE RAN AWAY!":OB(I)=-1:OB(15)=PL:SC=SC+75:I=15:NEXTI;ELSENEXTI
102 IFPL>32THENOB(15)=8:PRINT" BUT THE TRIBBLE RAN AWAY, TOO!":GOTO45
103 IFOB(1)=PL THENPRINT"THE KLINGON COMMANDER IS VERY BRAVE AND HOLDS HIS GROUND.":OB(15)=PL:GOTO45
104 IFPL=30ANDKE THENCLS:PRINT:PRINT"WHEN THE KLINGONS SEE THE TRIBBLE, THEY RUN AWAY IN ALL DIRECTIONS!"
105 IFPL=30THENIFKE THENIFSP=1THENPRINT:PRINTSP$:PRINT" EXCELLENT, CAPTAIN! YOU REMEMBERED HOW FRIGHTENED THEY ARE OF TRIBBLES!":ELSEPRINT
106 IFPL=30ANDKE THENKE=0:OB(15)=30:GOTO45
107 OB(15)=PL:GOTO45
108 SC=SC-20:FORI=11TO14:IFOB(I)<>PL THEN112ELSEPRINT:PRINT"THE KLINGON HAS BEEN REMOVED.":SC=SC+100:IFPL>32THENPRINT" BUT YOUR PHASER VAPORIZED!":OB(19)=-1:TT=TT-1
109 IFOB(19)<>0THENPRINT:PRINTCD$;" YET.":GOTO45
110 SC=SC-20:FORI=11TO14:IFOB(I)<>PL THEN112ELSEPRINT:PRINT"THE KLINGON HAS BEEN REMOVED.":SC=SC+100:IFPL>32THENPRINT" BUT YOUR PHASER VAPORIZED!":OB(19)=-1:TT=TT-1
111 OB(I)=-1:I=15:NEXTI:GOTO45
112 NEXTI:IFOB(1)=PL THENPRINT:PRINT"THE COMMANDER HAS BEEN REMOVED.":IFSP=1THENPRINTSP$:PRINT" HIGHLY ILLOGICAL TO KILL AN UNARMED MAN, CAPTAIN.":OB(1)=-1:GOTO45ELSEOB(1)=-1:GOTO45
113 PRINT:PRINT"O.K.";:IFSP=1THENPRINT" BUT WHY WASTE VALUABLE":PRINT" PHASER CHARGE, CAPTAIN?":GOTO45ELSE45
116 SC=SC-50:IFPL=12ANDKE THENCLS:PRINT:PRINTCR$:PRINT" SENSORS SHOW ONE HUMANOID LIFE FORM ON BOARD, ONE VULCAN, AND MANY KLINGONS.":PRINT:GOTO45
117 IFPL=12THENPRINT:PRINTCR$:PRINT" SENSORS INDICATE ONE HUMAN AND ONE VULCAN ABOARD.":PRINT:GOTO45
118 IFPL=13THENCLS:PRINTCR$:PRINT" ";EN$;" IS IN A DECAYING ORBIT AROUND THE CLASS 'M' PLANET TIERAS-80. IT HAS AN OXYGEN-NITROGEN ATMOSPHERE, AND IS RICH IN CRYSTALLITE MINERALS."
119 IFPL=13THENIFDE THENPRINT" IMPULSE ENGINES MUST BE FIRED SOON, OR WE'LL BURN UP IN THE ATMOSPHERE."
120 IFPL=13THEN45
121 IFPL=11THENIFSH THENIFCR THENCLS:PRINT:PRINT:PRINT"THE SHIP SHAKES VIOLENTLY ...":PRINTCR$:PRINT" STABLE ORBIT HAS BEEN ACHIEVED !!"
127 IFPL=11THENPRINT"CHECK THE DILITHIUM CRYSTALS AND CONTROLS IN ENGINEERING.":GOTO45
128 IFPL=21ANDOB(21)=PL THENPRINT"THIS SHUNT IS USED IN THE ENGINEERING CONTROL MECHANISM.":GOTO45
129 IFPL=31THENPRINT"INSERT CRYSTALS AT THE POWER STATION":GOTO45
130 IFPL=32THENPRINT"INSTALL THE SHUNT IN THE CONTROL PANEL.":GOTO45
131 PRINT"IT DOESN'T MENTION ANYTHING OF VALUE.":GOTO45
132 IFOB(22)<>0THEN125
133 IFPL=4ORPL>32THEN136
134 IFKE<>0OR(OB(11)>0ANDOB(11)<33)OR(OB(12)>0ANDOB(12)<33)OR(OB(13)>0ANDOB(13)<33)OR(OB(14)>0ANDOB(14)<33)THENPRINT"THERE ARE STILL KLINGONS ON THE SHIP!":GOTO45
135 IFKE=0ANDOB(1)<>-1THENPRINT"IT INDICATES THAT ONLY ONE UNARMED KLINGON REMAINS ON THE SHIP.":GOTO45
136 PRINT"IT INDICATES ";:IFCW=0THENPRINT"SEVERAL HUMANOID LIFE FORMS AND KLINGONS TO THE NORTHEAST..."
137 IFOB(14)<>-1THENPRINT"ONE KLINGON TO THE WEST."
141 IFPL=31THENIFOB(16)=0THENIFNN=16THENIFCR=0THENPRINT"A LOW VIBRATION BEGINS ...":GOSUB35:PRINT" POWER LEVELS NOW AT";92+RND(7)+RND(0);"%":CR=-1:TT=TT-1:OB(16)=-1:OB(23)=-1:SC=SC+300:GOTO145
143 IFPL=32THENIFOB(21)=0THENIFNN=21THENIFSH=0THENPRINT"A GREEN PANEL LIGHT GLOWS ...":GOSUB35:PRINT" AUXILIARY POWER IS NOW OPERATIONAL.":OB(24)=-1:TT=TT-1:SH=-1:OB(21)=21:SC=SC+250:GOTO145
144 PRINTCD$:GOTO45
145 IFCR ANDSH THENTD=-17-RND(3)-RND(0)
146 GOTO45
147 IF(NN=18ORNN=10)ANDOB(10)=26ANDOB(18)=0ANDPL=26THENSC=SC+200:PRINT"O.K. SPOCK AWAKENS AND SAYS --":PRINT" I AM WELL ENOUGH TO HELP YOU NOW.":SP=1:OB(10)=-1:GOTO45
148 PRINT"NOT NOW, CAPTAIN.":GOTO45
149 IFOB(15)<>0THENIFOB(19)<>0THENGOSUB35:PRINT"WITHOUT A PHASER, YOU MUST SURRENDER!":GOTO73
155 PRINT:PRINT"TOO SLOW, CAPTAIN. YOU HAVE BEEN CAPTURED AND THE ENTERPRISE IS LOST!":GOTO73
156 IFTD>0THENRETURNELSETD=TD+1+RND(0)
157 IFTD>0THENCLS:PRINT:PRINT"TOO LATE, CAPTAIN!":GOSUB35:PRINT:PRINT"THE ENTERPRISE WILL SOON BURN UP IN THE PLANET'S ATMOSPHERE!":GOSUB35:PRINT:PRINT"GOODBYE, CAPTAIN!":GOSUB35:PRINT:PRINT:GOTO73
158 IFSP=1THENPRINTSP$:PRINT" ";PRINTUSING"##.###";-TD;" MINUTES UNTIL ORBIT DECAYS."
159 RETURN
160 CLS:PRINT:PRINT" THIS ADVENTURE IS INTERRUPTED.":PRINT:PRINT" CONTINUE GAME LATER (Y/N)?";:GOSUB172:IFZZ$="N"THENMENU
161 PRINT:PRINT:PRINT" WAIT":BEEP:GOSUB162:MENU
162 OPEN"RAM:FILE1.DO" FOR OUTPUT AS 1:PRINT #1,WG,CW,SC,NM,CC,SP,PL,KE,CR,SH,DE,TT,TD:FORI=0TO3:PRINT#1,DM(4,I):NEXTI:FORI=1TO26:PRINT#1,OB(I):NEXTI:CLOSE:RETURN:CLOSE:BEEP:MENU
163 CLS:PRINT:PRINT:PRINT" DO YOU WANT TO SAVE THE PARAMETERS FOR THIS LOCATION (Y/N)? ";:GOSUB172:IFZZ$="N"THEN30
164 PRINT:PRINT:PRINT" WAIT":BEEP:GOSUB165:GOTO30
165 OPEN"RAM:SAVE1.DO" FOR OUTPUT AS 2:PRINT #2,WG,CW,SC,NM,CC,SP,PL,KE,CR,SH,DE,TT,TD:FORI=0TO3:PRINT#2,DM(4,I):NEXTI:FORI=1TO26:PRINT#2,OB(I):NEXTI:CLOSE:RETURN
166 CLS:PRINT:PRINT:PRINT" WANT TO START AGAIN FROM THE LAST PLACE WHERE YOU 'SAVED' LOCATION PARAMETERS (Y/N)? ":GOSUB172:IFZZ$="N"THEN30
167 PRINT:PRINT" WAIT":BEEP:OPEN"RAM:SAVE1.DO" FOR INPUT AS 2:INPUT #2,WG,CW,SC,NM,CC,SP,PL,KE,CR,SH,DE,TT,TD:FORI=0TO3:INPUT#2,DM(4,I):NEXTI:FORI=1TO26:INPUT#2,OB(I):NEXTI:CLOSE:GOTO30
168 CLS:PRINT" CAPTAIN'S LOG, STARDATE 4295.3 --":PRINT" YOU ARE CAPTAIN OF THE STARSHIP ENTERPRISE AND AWOKE MOMENTS AGO TO FIND AN EMPTY SHIP. NO ONE RESPONDS - SPOCK, CHEKHOV, SULU, SCOTTY, UHURU ... IS THIS THE KLINGON'S FINAL VICTORY?"
174 CLS:PRINT":CONGRATULATIONS, CAPTAIN !!":PRINT" YOU HAVE DEFEATED THE KLINGONS, REPAIRED THE WARP DRIVE POWER, AND RETURNED THE CREW SAFELY TO THE SHIP.":PRINT:PRINT:GOSUB177
175 PRINT:PRINT"UHURU REPORTS THAT STAR FLEET COMMAND HAS JUST SIGNALLED THAT YOU ARE TO RETURN WITH THE ENTERPRISE FOR A WELL- EARNED SHORE LEAVE ON TERRA SATEY, AFTER WHICH YOU ARE TO BE PROMOTED TO COMMODORE.":GOSUB177
176 PRINT:PRINT:PRINT:PRINT" YOU MISSION SCORE IS";9*(SC-3*NM):GOTO75
177 PRINT" PRESS ENTER TO CONTINUE";:INPUTTT:CLS:RETURN
178 CLS:PRINT:PRINT"TO MOVE TO ANOTHER LOCATION WHICH IS NORTH, SOUTH, EAST, WEST, UP OR DOWN FROM YOUR PRESENT LOCATION, TYPE ONLY THE DIRECTION AND PRESS <ENTER>.":GOSUB171
179 CLS:PRINT:PRINT"TO ACCOMPLISH AN ACTION SUCH AS READING A SIGN OR OPENING A DOOR, TYPE A VERB AND A NOUN; THEN PRESS <ENTER> LIKE:":PRINT:PRINT" OPEN DOOR <ENTER>":GOSUB 171
180 CLS:PRINT:PRINT"THE COMPUTER WILL NOT ACCEPT AN INVALID COMMAND. IF IT DOES NOT UNDERSTAND WHAT YOU WANT IT TO DO, TRY DIFFERENT WORDS.":GOSUB171
181 CLS:PRINT:PRINT"IF MR. SPOCK IS WITH YOU, HE MAY BE ABLE TO HELP. TYPE: HELP <ENTER>.":PRINT"TO SEE WHAT YOU'RE CARRYING,":PRINT" TYPE: INV <ENTER>.":PRINT"TO SEE YOUR SCORE, TYPE: SCORE <ENTER>.";:GOSUB171
182 CLS:PRINT"TO SAVE YOUR CURRENT LOCATION PARAMETERS (WHERE YOU ARE, WHAT YOU HAVE, ETC), TYPE: SAVE <ENTER>.":PRINT"TO STOP THE GAME, TYPE: QUIT <ENTER>."
183 PRINT"TO START OVER AGAIN FROM THE LAST PLACE WHERE YOU SAVED LOCATION PARAMETERS, TYPE: START <ENTER>.";:GOSUB171:AG$="AGAIN ":RETURN