! PO1:"HOW MANY COLUMNS";CS@"CHRACTERS PER COLUMN";CL["DOUBLE SEARCH (Y/N)"pA$:A$"Y" 34 A$"N" 31!JH1"CO$(CS) : TS 1#"USING (D)ATA OR (T)YPING"$G$:G$"D"20000%FLAP170&G$"T"36 (ITSCS> 2"COLUMN";I:CO$(I):(CO$(I))CL"MUST HAVE"CL: 50E <I[ FI1CS:CO$(I):t P "IS THIS CORRECT?" ZA$:A$"N""STAR AT WHAT LINE";TS:40 dA$"Y"90 n "SETTING UP..." xWS$(CS,CL) T1CS I1CL WS$(T,I)(CO$(T),I,1) I T> "HOW MANY WORDS TO SEARCH FOR";WOJ I1WOd I1"1 ST WORD";WD$~ I2"2 ND WORD";WD$ I3"3 RD WORD";WD$ I3I;"TH WORD";:WD$ "SEARCHING..." FL$(WD$,1,1) DO0 ME19 T1CS R1CL JH1DO1280Z WS$(T,R)FL$ME5000,5100,5200,5300,5400,5500,5600,5700h R:T:ME~ CAT1CAT0:295 ""WORD WAS NOT FOUND" 'I ," DONE.":"(M)ORE WORDS (N)EW PUZZLE OR (S)TOP" 6A$:A$"M"180 @A$"N"A$"S"310 JA$"N" T, PO$"":T(WD$)Z CK1(WD$):PO$PO$(WS$(TCK1,R),1,1)b CKr PO$WD$ FG177:10000 PO$"":CST1(WD$) CK1(WD$):PO$PO$(WS$(TCK1,R),1,1) CK PO$WD$ FG178:10000 PPO$"":CLR1(WD$)B UCK1(WD$):PO$PO$(WS$(T,RCK1),1,1)J ZCKZ dPO$WD$l nFG171:10000 PO$"":R(WD$) CK1(WD$):PO$PO$(WS$(T,RCK1),1,1) CK PO$WD$ FG179:10000 PO$"":T(WD$)CLR1(WD$):CK1(WD$):PO$PO$(WS$(TCK1,RCK1),1,1)B"CKR,PO$WD$d6FG110:10000{|PO$"":T(WD$)~R(WD$)CK1(WD$):PO$PO$(WS$(TCK1,RCK1),1,1)CKPO$WD$FG109:10000PO$"":R(WD$)CST1(WD$)GCK1(WD$):PO$PO$(WS$(TCK1,RCK1),1,1)OCK_PO$WD$qFG110:10000DPO$"":CLR1(WD$)FCST1(WD$)ICK1(WD$):PO$PO$(WS$(TCK1,RCK1),1,1)NCKXPO$WD$bFG109:10000':'(FG)('TE1CS:ET1CL2'"";J'TET ETR "";c$'TET ETR"";t''WS$(TE,ET);8'ET::TEj'CAT1r'B$:B$""10098s'"CONTINUING..."t'DODO1: NQI1CS:CO$(QI)::FLAP1:0u "DAGE CONTROL...$50 C. " REPAIR SYSTEM...$100 D"Q " EMERGENCY POWER...$150 E"m " FUEL......$50 F" " POWER......$50 G" A100:B200:C50:D100:E150:F50:G50 "PURCHASE: ";B$:B$(B$,1) B$"A" ZZA:AI1 B$"B"ZZB :BI1$ B$"C"ZZC :CI1= B$"D"ZZD :DI1V B$"E"ZZE :EI1o B$"F"ZZF :FI1 B$"G"ZZG :GI1 B$"Z"330 "Z0600 ,220 J"" O"TYPE 'Z' TO CONTINUE" T" LASORS......$50 H"^" TORPEDO...$50 I"/h" ENGINE.....$200 J"Tr" ATTACK COMPUTER ....$100 K"n|H50:I50:J200:K100" ";C$:C$(C$,1)C$"H"ZZH :HI1C$"I"ZZI :II1C$"J"ZZJ :JI1C$"K"ZZK :KI1C$"Z""YOU HAD $"Z" LEFT":SCZ:610-Z0SCZ:6006390XX" YOUR OUT OF MONEY!!"yb" TYPE ANY KEY TO START"lV$:V$""620v""JI0FI0GI010000GI1WQ1:645FI1WQ2:645WQ0" "" "'" θ">" "U" U "l" S "" A "" "" " A$:A$"L"760730: " "" "F ""U830:8000_1000h*""4EN0:TY0:BO0:DO0:MI0:JO0:NO0:VI0>"HERE ARE UNEXPLORED AREAS"HEN0" ENDOR"RTY0" TYPHON"\BO0" BONOC"fDO0" DOLIF"pMI0"MIDOL"-zJO0" JOZOC"@NO0"NOWER"WVI0"VINCINTIA"EN1TY1BO1DO1MI1JO1NO1VI120000"DOCKED." "YOUR COMMAND___ ";YM$:YM$(YM$,1)FI0WQ0FI01000::7000GI0WQ0GI01000::7000< GI0FI0WQ1WQ2950P YM$"S"8130sDI1 YM$"R"8000:SCSC250 YM$"X"830$ YM$"E"EN0EN1:X$"ENDOR":2000.YM$"T"TY0 TY1:X$"TYPHON":20008YM$"B"BO0BO1:X$"BONOC":2000)BYM$"D"DO0DO1:X$"DOLIF":2000QLYM$"M"MI0MI1:X$"MIDOL":2000zVYM$"J"JO0JO1:X$"JOZOC": 2000`YM$"N"NO0NO1:X$"NOWER":2000jYM$"V"VI0VI1:X$"VINCINTIA": 2000t1010""" YOUR IN THE GALAXY OF "X$ R((TI)10)2' X0R" YOU SEE: PLANET "X$" AND "R" SHIPS"y"<><><><><><><><><><><><><><>"FF2:F07000 " YOUR MOVE______ ";YH$:YH$(YH$,1) YH$"S"CI18130YH$"Q"  YH$"X"830' YH$"^" BI0 "YOU HAVE NO WARP"IYH$"^"BI1ACAC250:1000[ YH$"A"2100e*20404KI0"YOU HAVE NO ATTACK COMP":20409HI0II0"YOU HAVE NO LASORS OR TORPEDOS":2040>PQ((TI)3)1HPQ1"*YOU HIT ONE*":XX1:SCSC100:XR1000:2110/RPQ3"YOU MISSED"B\S((TI)2)1afS2"THEY MISSED ":2040vpV1((TI)12)1zAI1V((TI)5)1:2190V((TI)8)1V10V113"THEY HIT YOU----";V11AI1AAV:"SHIELD DAMAGED"V12BI1BBV:"WARP DAMAGED"JV13CI1CCV:"DAMAGE CONTROL DAMAGED"xV14DI1DDV:"REPAIR SYSTEM DAMAGED"V15:2160V16FI1FFV:"FEUL SYSTEM DAMAGED"V17GI1GGV:"POWER SYSTEM DAMAGED" V18HI1HHV:"LASORS DAMAGED"4V19II1IIV:"TORPEEDOS DAMAGED"\V110JI1JJV:"ENGINE DAMAGED"V110KI1KKV:"ATTACK COMPUTER DAMAGED"V11 A0AI1AI0:"SHIELDS DESTROYED" B0BI1BI0:"WARP DESTROYED" C0CI1CI0:"DAMAGE CONTROL DESTROYED"G$ D0DI1DI0:"REPAIR SYSTEM DESTROYED"V8 F07000B G0GI0:EI1"EMERGENCY POWER ACTIVE":2110G GI07000L H0HI1HI0:"LASORS DESTROYED"V I0II1II0:"TORPEEDOS DESTROYED"` J07000-j K0KI1KI0:"ATTACK COMPUTER DESTROYED"9t :2110? oX" YOU BLEW UP!!!!!"Y" YOU DON'T HAVE";ZGI0" POWER"[FI0" FUEL"bY020:T015:53280,Tl53281,T1:T:Y m"YOUR SCORE WAS : ";SC)q"TYPE ANY KEY TO END "=rS$:S$""7026CvI?b@ SUB USED ONLY ONCE{J "YOUR SCORES ARE:"YA((TI)20)15^B((TI)20)15hC((TI)20)15rD((TI)20)15|E((TI)20)15F((TI)20)15G((TI)20)15#H((TI)20)158I((TI)20)15MJ((TI)20)15bK((TI)20)15w WIDLY USED SUBAI1" SHIELD..."AL((TI)5)1BI1" WARP....."BCI1" DAMAGE CONTROL.."CDI1"REPAIR SYSTEM.."DEI1"EMERGENCY POWER.."E3FI1"FUEL......"FKGI1"POWER...."Gc HI1"LASERS..."H} II1"TORPEEDO..."I JI1"ENGINES..."J& KI1"ATTACK COMP....."K' L48245( DI1A10AA5) DI1B10BB5* DI1C10CC5+ DI1D10DD52, DI1E10EE5H- DI1F10FF5^. DI1H10HH5t/ DI1I10II50 DI1K10KK55 THIS ROUTINE WAS ERASED: ' " YOU FORGOT TO BUY NECESSARY EQUIPMENT." ' " ,YOUR SHIP DOESN'T LAUNCH AND THE "" $' "GAME HAS ENDED."( .'N N"YOUR MISSION IS COMPLETE"n *N" CONGRATULATIONS !!!!!" /N"YOUR SCORE WAS : ";SC:SC0 4N"PLAY AGAIN? (Y/N) >NA$:A$"Y" HNA$"N"20030 \N 0u" HINT:TO FLY YOU MUST HAVE"!:u"ENGINES,FUEL,AND POWER."F!?u"TO ATTACK,YOU MUST HAVE AN ATTACK COMP."v!Du"REPAIR AND EMERGENCY SYSTEMS ARE HELPFUL"!Nu"SHIELDS LOWER DAMAGE.DAMAGE CONTROL"!Xu"ENABLES YOU TO SEE YOUR SCORES"!bu"IN BATTLE.WHEN YOU ARRIVE TO A" "lu"A BATTLE SCENE YOU CAN:"&"vu"TYPE 'A' TO ATTACK"I"xu"TYPE 'S' TO SEE YOUR STATAS"v"yu"(IF YOU HAVE A DAMAGE CONTROL SYSTEM)""u"TYPE '^'TO RETREAT FROM BATTLE""u"TYPE 'L'TO LAUNCH WHEN YOUR SHIP ""u"APPEARES ON THE SCREEN."#y"TYPE ANY KEY TO START"#y D$:D$""31200#y