2шП INSTRUCTIONS FOR "STARTREK"<Є└:╔ ▌P№В Iч ╠ :С:Г IВС ╬);"*************************************┤С ╬);"* *цС ╬);"* *$С ╬);"* * * SUPER STAR TREK * * *J.С ╬);"* *|8С ╬);"* *оBС ╬);"*************************************ёLС " PLEASE SHIFT KEYBOARD TO UPPER CASE.":С0VЕ " DO YOU NEED INSTRUCTIONS (Y/N)";K$L`Л K$ч"N" я K$ч"n" ═ мRj└tС" INSTRUCTIONS FOR SUPER STAR TREK"Е~С╚ИС"1. WHEN YOU SEE \COMMAND ?\ PRINTED, ENTER ONE OF THE LEGAL"ТС" COMMANDS (NAV,SRS,LRS,PHA,TOR,SHE,DAM,COM, OR XXX)."ЬСSжС"2. IF YOU SHOULD TYPE IN AN ILLEGAL COMMAND, YOU'LL GET A SHORT"Е░С" LIST OF THE LEGAL COMMANDS PRINTED OUT."Л║С╒─С"3. SOME COMMANDS REQUIRE YOU TO ENTER DATA (FOR EXAMPLE, THE `NAV'"╬С" COMMAND COMES BACK WITH `COURSE (1-9) ?'). IF YOU TYPE IN"_╪С" ILLEGAL DATA (LIKE NEGATIVE NUMBERS), THAT COMMAND WILL BE"rтС" ABORTED."xьС╛ЎС"4. THE GALAXY IS DIVIDED INTO AN 8 X 8 QUADRANT GRID, AND EACH" С" QUADRANT IS FURTHER DIVIDED INTO AN 8 X 8 SECTOR GRID." СMС"5. YOU WILL BE ASSIGNED A STARTING POINT SOMEWHERE IN THE GALAXY"МС" TO BEGIN A TOUR OF DUTY AS COMMANDER OF THE STARSHIP"╙(С" \ENTERPRISE\; YOUR MISSION: TO SEEK AND DESTROY THE FLEET OF"2С" KLINGON WARSHIPS WHICH ARE MENACING THE UNITED FEDERATION OF"-<С" PLANETS."5FС:СnP┐ :Е"PRESS ENTER TO CONTINUE (E to exit) ",O$:┐ ФUЛ O$ч"e" я O$ч"E" ═ ■М "MENU",шЪZ└рdС"6. YOU HAVE THE FOLLOWING COMMANDS AVAILABLE TO YOU AS CAPTAIN"nС" OF THE STARSHIP ENTERPRISE:"xС5ВС" \NAV\ = WARP ENGINE CONTROL --"uМС" COURSE IS IN A CIRCULAR NUMERICAL 4 3 2"┤ЦС" VECTOR ARRANGEMENT AS SHOWN. . . ."ЄаС" INTEGER AND REAL VALUES MAY BE ..."4кС" USED. THUS COURSE 1.5 IS HALFWAY 5 -- * -- 1"r┤С" BETWEEN 1 AND 2. ..."▒╛С" . . ."ё╚С" VALUES MAY APPROACH 9.0, WHICH 6 7 8"╥С" ITSELF IS EQUIVALENT TO 1.0."]▄С" COURSE"МцС" ONE WARP FACTOR IS THE SIZE OF"╜ЁС" ONE QUADRANT. THEREFORE, TO GET"Ё·С" FROM QUADRANT 6,5 TO 5,5 YOU WOULD"С" USE COURSE 3, WARP FACTOR 1."'С:С:С`┐ :Е"PRESS ENTER TO CONTINUE (E to exit) ",O$:┐ ЖЛ O$ч"e" я O$ч"E" ═ ■М "MENU",шМ"└╘,С" \SRS\ = SHORT RANGE SENSOR SCAN. IT SHOWS YOU A SCAN OF YOUR"6С" PRESENT QUADRANT. SENSOR SCREEN SYMBOLOGY IS AS FOLLOWS:"M@С" = YOUR STARSHIP'S POSITION"zJС" +K+ = KLINGON BATTLE CRUISER"┴TС" >B< = FEDERATION STARBASE (REFUEL/REPAIR/RE-ARM HERE!)"▄^С" * = STAR"тhС&rС" A CONDENSED `STATUS REPORT' WILL ALSO BE PRESENTED.",|СvЖС" \LRS\ = LONG RANGE SENSOR SCAN. THIS SHOWS CONDITIONS IN SPACE"└РС" FOR ONE QUADRANT ON EACH SIDE OF THE ENTERPRISE (WHICH IS"ЪС" IN THE MIDDLE OF THE SCAN). THE SCAN IS CODED IN THE FORM"TдС" `###', WHERE THE UNITS DIGIT IS THE NUMBER OF STARS, THE"ЬоС" TENS DIGIT IS THE NUMBER OF STARBASES, AND THE HUNDREDS"═╕С" DIGIT IS THE NUMBER OF KLINGONS."╙┬С╠С" EXAMPLE: 207 = 2 KLINGONS, NO STARBASES, AND 7 STARS." ╓СhрС" \PHA\ = PHASER CONTROL. IT ALLOWS YOU TO DESTROY THE KLINGON"▓ъС" BATTLE CRUISERS BY ZAPPING THEM WITH SUITABLY LARGE UNITS"■ЇС" OF ENERGY TO DEPLETE THEIR SHIELD POWER. (REMBER, KLINGONS" ■С" HAVE PHASERS TOO!"& С_ ┐ :Е"PRESS ENTER TO CONTINUE (E to exit) ",O$:┐ Е Л O$ч"e" я O$ч"E" ═ ■М "MENU",шЛ └╘ &С" \TOR\ = PHOTON TORPEDO CONTROL. TORPEDO COURSE IS THE SAME AS" !0С" USED IN WARP ENFINE CONTROL. IF YOU HIT THE KLINGON VESSEL"l!:С" HE IS DESTROYED AND CANNOT FIRE BACK. IF YOU MISS, YOU ARE"╢!DС" SUBJECT TO HIS PHASER FIRE. IN EITHER CASE, YOU ARE ALSO"■!NС" SUBJECT TO THE PHASER FIRE OF ALL OTHER KLINGONS IN THE"E"XС" QUADRANT. THE LIBRARY-COMPUTER (\COM\ COMMAND) HAS AN"О"bС" OPTION TO COMPUTE TORPEDO TRAJECTORY FOR YOU (OPTION 2)."Ф"lС▀"vС" \SHE\ = SHIELD CONTROL. THIS DEFINES THE NUMBER OF ENERGY UNITS"*#АС" TO BE ASSIGNED TO THE SHIELDS. ENERGY IS TAKEN FROM TOTAL"v#КС" SHIP'S ENERGY. NOTE THAT THE STATUS DISPLAY `TOTAL ENERGY'"Ю#ФС" INCLUDES SHIELD ENERGY."д#ЮСю#иС" \DAM\ = DAMAGE CONTROL REPORT. IT GIVES THE STATE OF REPAIR OF":$▓С" ALL DEVICES. WHERE A NEGATIVE `STATE OF REPAIR' SHOWS THAT"l$╝С" THE DEVICE IS TEMPORARILY DAMAGED.z$╞С:С:С:С:С│$╨┐ :Е"PRESS ENTER TO CONTINUE (E to exit) ",O$:┐ ┘$╒Л O$ч"e" я O$ч"E" ═ ■М "MENU",ш▀$┌└%фС" \COM\ = LIBRARY-COMPUTER. IT CONTAINS SIX OPTIONS:"i%юС" OPTION 0 = CUMULATIVE GALACTIC RECORD, WHICH SHOWS COMPUTER"▓%°С" MEMORY OF THE RESULTS OF ALL PREVIOUS SHORT AND"ф%С" LONG RANGE SENSOR SCANS."0&С" OPTION 1 = STATUS REPORT. IT SHOWS THE NUMBER OF KLINGONS,"y&С" STARDATES, AND STARBASES REMAINING IN THE GAME."─& С" OPTION 2 = PHOTON TORPEDO DATA, WHICH GIVES DIRECTIONS AND" '*С" DISTANCE FROM THE ENTERPRISE TO ALL KLINGONS IN"5'4С" YOUR QUADRANT."}'>С" OPTION 3 = STARBASE NAV DATA. THIS TELLS DIRECTION AND"┼'HС" DISTANCE TO ANY STARBASE WITHIN YOUR QUADRANT."(RС" OPTION 4 = DIRECTION/DISTANCE CALCULATOR. IT ALLOWS YOU"S(\С" TO ENTER COORDINATES FOR DIRECTION/DISTANCE"z(fС" CALCULATIONS."┬(pС" OPTION 5 = GALACTIC `REGION NAME' MAP, WHICH PRINTS THE")zС" NAMES OF THE SIXTEEN MAJOR GALACTIC REGIONS"9)ДС" REFERRED TO IN THE GAME."W)ОС:С:С"END OF INSTRUCTIONSЕ)ШЕ"DO YOU WISH TO SEE THEM AGAIN (Y/N)";K$м)вЛ K$ч"Y" я K$ч"YES" я K$ч"y" ═ j▓)м└щ)╢П * * * * RANDOMIZE RND FUNCTION * * * *ї)└Т ,,╨*╩CLOCK$ч■О+*╘SEED$ч Г(CLOCK$,,)щ Г(CLOCK$,,);*▐╣ Ф(SEED$)A*ш└n*ЄA$ч"MBL2N30N40.L8N39L4N37L8N35N34L2N33."x*№■У A$к* B$ч"MBL4N31L2N30N42.L8N40L4N39L8N37N35L2N34."┤* ■У B$┬* ╔ ▌:┐ ,+$ С " .------^------, "r+. С " .---------------, '---, ,-----' "╩+8 С " '----------, ,-' / / "",B С " ,---' `-----------, "z,L С " `-------------------' "Е,V ┐ ,▌,` С " THE STARSHIP USS ENTERPRISE --- NCC-1701 "ш,j ┐ ,-t Z$ч" "7-~ Ж G(,),C(,),K(,),N(),Z(,),D()x-И Tч Е( И()ыщ)ыd:T0чT:T9чщ Е( И()ы ):D0ч:Eч╕:E0чEл-Т Pч :P0чP:S9ч╚:Sч:B9ч:K9ч:X$ч"":X0$ч" IS "╫-Ь Ч ╤D(D)ч З((K(I,)ъS1)эщ(K(I,)ъS2)э)∙-ж Ч ╤R(R)ч Е( И(R)ы)\ГщоGБ)(.░ П ********** SET FUNCTION KEYS **********?.║ ╔ , "NAV"щ Ц( )V.─ ╔ , "SRS"щ Ц( )m.╬ ╔ , "LRS"щ Ц( )Д.╪ ╔ , "PHA"щ Ц( )Ы.т ╔ , "TOR"щ Ц( )▓.ь ╔ , "SHE"щ Ц( )╔.Ў ╔ , "DAM"щ Ц( )р. ╔ , "COM"щ Ц( )ў. ╔ , "HLP"щ Ц( )/ ╔ , "XXX"щ Ц( )/ ╔ ХU/( П ********** INITIALIZE ENTERPRISE'S POSITION **********И/2 Q1ч╤R():Q2ч╤R():S1ч╤R():S2ч╤R():WINDч И()в/< Л WINDц═╠L~ ═ WINDч╞/F В Iч ╠ :C(I,)ч:C(I,)ч:Г I0P C(,)чъ:C(,)чъьQ8А:C(,)чъьQ8А:C(,)чъьQ8А:C(,)чъ:C(,)чъьQ8Аi0Z C(,)ч:C(,)чьQ8А:C(,)чьQ8А:C(,)ч:C(,)чьQ8А:C(,)чьQ8А:C(,)чВ0d В Iч ╠ :D(I)ч:Г Iи0n A1$ч"NAVSRSLRSPHATORSHEDAMCOMXXX"х0x П * * * * * * SET UP WHAT EXISTS IN GALAXY * * * * * *!1В П * * * K3=# KLINGONS, B3=# STARBASES, S3=# STARS * *P1М В Iч ╠ :В Jч ╠ :K3ч:Z(I,J)ч:R1ч И()t1Ц Л R1цFсzА ═ K3ч:K9чK9щ:Й ┤ Ш1а Л R1ц33sА ═ K3ч:K9чK9щ:Й ┤ ╢1к Л R1ц═╠LА ═ K3ч:K9чK9щ▄1┤ B3ч:Л И()цП┬uА ═ B3ч:B9чB9щ2╛ G(I,J)чK3ыdщB3ы щ╤R():Г J:Г I:Л K9цT9 ═ T9чK9щ%2╚ Л B9шц ═ ц V2╥ Л G(Q1,Q2)ш╚ ═ G(Q1,Q2)чG(Q1,Q2)щd:K9чK9щЖ2▄ B9ч:G(Q1,Q2)чG(Q1,Q2)щ :Q1ч╤R():Q2ч╤R()н2ц K7чK9:Л B9шц ═ X$ч"S":X0$ч" ARE "с2Ё └:┐ :С" YOUR ORDERS ARE AS FOLLOWS:":┐ :С$3· С" DESTROY THE";K9;"KLINGON WARSHIPS WHICH HAVE INVADED THE"d3С" GALAXY BEFORE THEY CAN ATTACK FEDERATION HEADQUARTERS"к3С" ON STARDATE";T0щT9;". THIS GIVES YOU";T9;"DAYS. THERE";X0$ю3С" "B9;"STARBASE"X$" IN THE GALAXY FOR RESUPPLYING YOUR SHIP."Ў3"С:С=4,Е "Hit RETURN KEY when ready to accept command. (E to exit) ",K12$g41Л K12$ч"E" я K12$ч"e" ═ ■М "MENU",ш|46В Uч ╠ ,: Г UВ4@└Я4JIч И():Л Р()ч ═ Jс4TП * * * * * HERE ANY TIME NEW QUADRANT ENTERED * * * * *&5^Z4чQ1:Z5чQ2:K3ч:B3ч:S3ч:G5ч:D4чАы И():Z(Q1,Q2)чG(Q1,Q2)L5hЛ Q1ш я Q1ц я Q2ш я Q2ц ═ Їh5rН Ц:С:С:Л T0шцT ═ Ро5|С"YOUR MISSION BEGINS WITH YOUR STARSHIP LOCATED IN THE GALACTIC"┘5ЖС"QUADRANT, `";G2$;"'.":M$чЕ$():Й Ъ6РС"NOW ENTERING ";G2$;" QUADRANT . . ."<6ЪС:K3ч Е(G(Q1,Q2)ы ╫#z):B3ч Е(G(Q1,Q2)ы═╠L})ъ ыK3e6дS3чG(Q1,Q2)ъdыK3ъ ыB3:Л K3ч ═ ъЙ6оВ Iч ╠ :■У "MBL16N10N30":Г Iп6╕С"COMBAT AREA CONDITION RED"═6┬Ч SEGч░:В RTч ╠ = ╧ щ6╠Ш └ щRT,П:Г RT:Ч SEG·6╓Л Sц╚ ═ ъ%7р┐ :С" SHIELDS DANGEROUSLY LOW":┐ I7ъВ Iч ╠ :K(I,)ч:K(I,)ч:Г IЖ7ЇВ Iч ╠ :K(I,)ч:Г I:Q$чZ$щZ$щZ$щZ$щZ$щZ$щZ$щ Б(Z$,)╥7■П * * POSITION ENTERPRISE IN QUADRANT, THEN PLACE "K3" KLINGONS, * *8П * * "B3" STARBASES, AND "S3" STARS ELSEWHERE. * *J8A$ч"":Z1чS1:Z2чS2:Н ─:Л K3ш ═ 0t8В Iч ╠ K3:Н ж:A$ч"+K+":Z1чR1:Z2чR2о8&Н ─:K(I,)чR1:K(I,)чR2:K(I,)чS9ы(Аы И()):Г I┐80Л B3ш ═ DЁ8:Н ж:A$ч">B<":Z1чR1:B4чR1:Z2чR2:B5чR2:Н ─$9DВ Iч ╠ S3:Н ж:A$ч" * ":Z1чR1:Z2чR2:Н ─:Г I.9NН цT9XЛ SщEц ═ Л Eц я D()цч ═ КЩ9bС:С"** FATAL ERROR ** YOU'VE JUST STRANDED YOUR SHIP IN SPACE"╦9lС"YOU HAVE INSUFFICIENT MANEUVERING ENERGY,"; :vС" AND SHIELD CONTROL":С"IS PRESENTLY INCAPABLE OF CROSS";4:АС"-CIRCUITING TO ENGINE ROOM!!":Й ZI:КЕ" COMMAND?";A$y:ФВ Iч ╠ :Л Б(A$,)шц Г(A1$,ыIъ,) ═ из:ЮХ I Й ,N,·,T,D,╢,,╓,x╤:иГ I:С" ENTER ONE OF THE FOLLOWING:"Є:▓С" NAV (TO SET COURSE)"!;╝С" SRS (FOR SHORT RANGE SENSOR SCAN)"O;╞С" LRS (FOR LONG RANGE SENSOR SCAN)"r;╨С" PHA (TO FIRE PHASERS)"Ю;┌С" TOR (TO FIRE PHOTON TORPEDOES)"╦;фС" SHE (TO RAISE OR LOWER SHIELDS)"∙;юС" DAM (FOR DAMAGE CONTROL REPORTS)"(<°С" COM (TO CALL ON LIBRARY-COMPUTER)"Z< С" XXX (TO RESIGN YOUR COMMAND)":С:Й XУ< П * * * * COURSE CONTROL BEGINS HERE * * * *╕< Е"COURSE (1-9)";C1:Л C1ч ═ C1ч╤< Л C1цч ю C1ш ═ 4 =* С" LT. SULU REPORTS, `INCORRECT COURSE DATA, SIR!'":Й X0=4 X$ч"8":Л D()ш ═ X$ч"0.2"n=> С"WARP FACTOR (0-";X$;")";:Е W1:Л D()ш ю W1ц═╠L~ ═ z Й=H В Uч ╠ d:Г U:└:Н Ъв=R Л W1ц ю W1шч ═ Д │=\ Л W1ч ═ XЇ=f С" CHIEF ENGINEER SCOTT REPORTS, `THE ENGINES WON'T TAKE";>p С" WARP ";W1;"!'":Й XP>z С"WARP ENGINES ARE DAMAGED. MAXIUM SPEED = WARP 0.2":Й Xt>Д Nч Е(W1ыщА):Л EъNцч ═ ╘ ░>О С"ENGINEERING REPORTS `INSUFFICIENT ENERGY AVAILABLE"ю>Ш С" FOR MANEUVERING AT WARP";W1;"!'" ?в Л SшNъE я D()ш ═ XG?м С"DEFLECTOR CONTROL ROOM ACKNOWLEGES";S;"UNITS OF ENERGY"Ж?╢ С" PRESENTLY DEPLOYED TO SHIELDS."Р?└ Й X╘?╩ П * * * * KLINGONS MOVE/FIRE ON MOVING STARSHIP * * * *Ї?╘ В Iч ╠ K3:Л K(I,)ч ═ Є !@▐ A$ч" ":Z1чK(I,):Z2чK(I,):Н ─:Н жH@ш K(I,)чZ1:K(I,)чZ2:A$ч"+K+":Н ─p@Є Г I:Н ░:D1ч:D6чW1:Л W1цч ═ D6чО@№ В Iч ╠ :Л D(I)цч ═ .╩@D(I)чD(I)щD6:Л D(I)цъ═╠L} ю D(I)ш ═ D(I)чъ═╠L}:Й .▌@Л D(I)ш ═ . AЛ D1шц ═ D1ч:С"DAMAGE CONTROL REPORT: ";>A$С ╬);:R1чI:Н :С G2$;" REPAIR COMPLETED."ZA.Г I:Л И()ц═╠L~ ═ t|A8R1ч╤R():Л И()цчЪЩА ═ V╡ABD(R1)чD(R1)ъ( И()ыщ):С"DAMAGE CONTROL REPORT: ";╪ALН :С G2$;" DAMAGED":С:Й tBVD(R1)чD(R1)щ И()ыщ:С"DAMAGE CONTROL REPORT: ";=B`Н :С G2$;" STATE OF REPAIR IMPROVED":СuBjП * * * * * BEGIN MOVING STARSHIP * * * * *СBtS1чS1щА:S2чS2щА╕B~A$ч" ":Z1ч Е(S1):Z2ч Е(S2):Н ─▌BИWINDч И():Л WINDцЪЩ ═ WINDчCТX1чъ Й((C1ъ)ы█IА):XчS1:YчS2$CЬX2ч М((C1ъ)ы┌IА):Q4чQ1:Q5чQ2DCжВ Iч ╠ N:S1чS1щX1:S2чS2щX2lC░Л S1ш я S1цч я S2ш я S2цч ═ вC║S8ч Е(S1)ыщ Е(S2)ыъ:Л Г(Q$,S8,)ч" " ═ ╪▀C─S1ч Е(S1ъX1):S2ч Е(S2ъX2):С"WARP ENGINES SHUT DOWN AT ";D╬С"SECTOR";S1;",";S2;"DUE TO BAD NAVAGATION":Й т1D╪Г I:S1ч Е(S1):S2ч Е(S2)iDтA$ч"":Z1ч Е(S1):Z2ч Е(S2):Н ─:Н ╚:T8ч:Н РЙDьЛ W1ш ═ T8ч═╠L}ы Е( ыW1)дDЎTчTщT8:Л TцT0щT9 ═ ZтDП * * * * SEE IF DOCKED, THEN GET COMMAND * * * *ьD Й N'EП * * * * * EXCEEDED QUADRANT LIMITS * * * * *kEXчыQ1щXщNыX1:YчыQ2щYщNыX2:Q1ч Е(Xь):Q2ч Е(Yь):S1ч Е(XъQ1ы)УE(S2ч Е(YъQ2ы):Л S1ч ═ Q1чQ1ъ:S1чнE2Л S2ч ═ Q2чQ2ъ:S2ч╬E<X5ч:Л Q1ш ═ X5ч:Q1ч:S1чъEFЛ Q1ц ═ X5ч:Q1ч:S1чFPЛ Q2ш ═ X5ч:Q2ч:S2ч"FZЛ Q2ц ═ X5ч:Q2ч:S2ч3FdЛ X5ч ═ кlFnС"LT. UHURA REPORTS MESSAGE FROM STARFLEET COMMAND:"лFxС" `PERMISSION TO ATTEMPT CROSSING OF GALACTIC PERIMETER"шFВС" IS HEREBY *DENIED*. SHUT DOWN YOUR ENGINES.'":Н Р%GМС"CHIEF ENGINEER SCOTT REPORTS `WARP ENGINES SHUT DOWN"eGЦС" AT SECTOR";S1;",";S2;"OF QUADRANT";Q1;",";Q2;".'":Н РyGаЛ TцT0щT9 ═ ZХGкЛ ыQ1щQ2чыQ4щQ5 ═ ЎлG┤TчTщ:Н ╚:Н ^чG╛П * * * * * * MANEUVER ENERGY S/R * * * * * * G╚EчEъNъ :Л Eцч ═ О?H╥С"SHIELD CONTROL SUPPLIES ENERGY TO COMPLETE THE MANEUVER."ZH▄SчSщE:Eч:Л Sшч ═ Sч`HцОЮHЁП * * * * * LONG RANGE SENSOR SCAN CODE * * * * *╪H·Л D()ш ═ С"LONG RANGE SENSORS ARE INOPERABLE":Й XIС"LONG RANGE SCAN FOR QUADRANT";Q1;",";Q2*IO1$ч"-------------------":С O1$fIВ IчQ1ъ ╠ Q1щ:N()чъ:N()чъ:N()чъ:В JчQ2ъ ╠ Q2щгI"Л Iц ю Iш ю Jц ю Jш ═ N(JъQ2щ)чG(I,J):Z(I,J)чG(I,J)╓I,Г J:В Lч ╠ :С": ";:Л N(L)ш ═ С"*** ";:Й @ЇI6С В( У(N(L)щш),);" ";J@Г L:С":":С O1$:Г I:Й XTJJП * * * * * PHASER CONTROL CODE BEGINS HERE * * * * *АJTЛ D()ш ═ С"PHASERS INOPERATIVE":Й XУJ^Л K3ц ═ Й |╓JhС"SCIENCE OFFICER SPOCK REPORTS `SENSORS SHOW NO ENEMY SHIPS"KrС" IN THIS QUADRANT'":Й XIK|Л D()ш ═ С"COMPUTER FAILURE HAMPERS ACCURACY"mKЖС"PHASERS LOCKED ON TARGET; ";СKРС"ENERGY AVAILABLE =";E;"UNITS"┐KЪЕ"NUMBER OF UNITS TO FIRE";X:Л Xшч ═ X╤KдЛ EъXш ═ РхKо■У "MBN1......"L╕EчEъX:Л D()ш ═ XчXы И()0L┬H1ч Е(XьK3):В Iч ╠ :Л K(I,)шч ═ 0oL╠П ********** SOUND EFFECTS FOR PHASERS FIRING **********дL╓В QQQ ч ╕ ╠ ─ ╧ ъ :─ QQQ,А:Г QQQ:─ K,рLрHч Е((H1ь(╤D()щ))ы(щ И())):Л Hц(ЪЩ~ыK(I,)) ═ Ї#MъС"SENSORS SHOW NO DAMAGE TO ENEMY AT ";K(I,);",";K(I,):Й 0kMЇK(I,)ч Е(K(I,)ъH):С H;"UNIT HIT ON KLINGON AT SECTOR";K(I,);",";кM■С K(I,):Л K(I,)шч ═ С"*** KLINGON DESTROYED ***" :б ┤MЙ ьMС" (SENSORS SHOW";K(I,);"UNITS REMAINING)":Й 0#NK3чK3ъ:K9чK9ъ:Z1чK(I,):Z2чK(I,):A$ч" ":Н ─eN&K(I,)ч:G(Q1,Q2)чG(Q1,Q2)ъd:Z(Q1,Q1)чG(Q1,Q2):Л K9шч ═ ╛yN0Г I:Н ░:Й X╝N:П * * * * * PHOTON TORPEDO CODE BEGINS HERE * * * * *ЁNDЛ Pшч ═ С"ALL PHOTON TORPEDOES EXPENDED":Й X)ONЛ D()ш ═ С"PHOTON TUBES ARE NOT OPERATIONAL":Й X╓R4С"STAR AT";X3;",";Y3;"ABSORBED TORPEDO ENERGY.":Н ░:Й XS>A$ч">B<":Z1чX:Z2чY:Н d:Л Z3ч ═ А2SHС"*** STARBASE DESTROYED ***":B3чB3ъ:B9чB9ъPSRЛ B9ц я K9цTъT0ъT9 ═ zУS\С"THAT DOES IT, CAPTAIN!! YOU ARE HEREBY RELIEVED OF COMMAND"╒SfС"AND SENTENCED TO 00 STARDATES AT HARD LABOR ON CYGNUS 12!!"▀SpЙ xTzС"STARFLEET COMMAND REVIEWING YOUR RECORD TO CONSIDER"5TДС"COURT MARTIAL!":D0чRTОZ1чX:Z2чY:A$ч" ":Н ─МTШG(Q1,Q2)чK3ыdщB3ы щS3:Z(Q1,Q2)чG(Q1,Q2):Н ░:Й XоTвС"TORPEDO MISSED":Н ░:Й XцTмП * * * * * * SHIELD CONTROL * * * * * *U╢Л D()ш ═ С"SHIELD CONTROL INOPERABLE":Й X]U└С"ENERGY AVAILABLE =";EщS;:Е" NUMBER OF UNITS TO SHIELDS";XМU╩Л Xш я SчX ═ С"":Й XЯU╘Л XшчEщS ═ ЄхU▐С"SHIELD CONTROL REPORTS `THIS IS NOT THE FEDERATION TREASURY.'"VшС"":Й X8VЄEчEщSъX:SчX:С"DEFLECTOR CONTROL ROOM REPORT:"xV№С" `SHIELDS NOW AT"; Е(S);"UNITS PER YOUR COMMAND.'":Й X░VП * * * * * * DAMAGE CONTROL * * * * * *─VЛ D()цч ═ ~№VС"DAMAGE CONTROL REPORT NOT AVAILABLE":Л D0ч ═ X&W$D3ч:В Iч ╠ :Л D(I)ш ═ D3чD3щ═╠L};W.Г I:Л D3ч ═ X]W8С:D3чD3щD4:Л D3цч ═ D3чhffАЬWBС"TECHNICIANS STANDING BY TO EFFECT REPAIRS TO YOUR SHIP;"┘WLС"ESTIMATED TIME TO REPAIR:"; ╫#zы Е(dыD3);"STARDATES" XVЕ"WILL YOU AUTHORIZE THE REPAIR ORDER (Y/N)";A$!X`Л A$шц"Y" ═ XAXjВ Iч ╠ :Л D(I)ш ═ D(I)чVXtГ I:TчTщD3щ═╠L}НX~С:С"DEVICE STATE OF REPAIR":В R1ч ╠ ┬XИН :С G2$; Б(Z$,ъ Т(G2$)); Е(D(R1)ыd)ы ╫#z█XТГ R1:С:Л D0шц ═ $хXЬЙ X YжП * * * * * * KLINGONS SHOOTING * * * * * *0Y░Л K3шч ═ ОkY║Л D0шц ═ С"STARBASE SHIELDS PROTECT THE ENTERPRISE":ОБY─Л ═╠L~ц И() ═ ОбY╬В Iч ╠ :Л K(I,)шч ═ FтY╪Hч Е((K(I,)ь╤D())ы(щ И())):SчSъH:K(I,)чK(I,)ь(щ И())єYтЛ Hшч ═ *ZьП ********** SOUND OF KLINGON ATTACK ON ENTERPRISEaZЎВ QQQ ч , ╠ · ╧ ъ :─ QQQ,:─ QQQщ,:─ QQQъ,sZГ QQQ:─ 2,▓Z С H;"UNIT HIT ON ENTERPRISE FROM SECTOR";K(I,);",";K(I,)├ZЛ Sшч ═ d∙ZС" ":Л Hш ═ F[(Л И()цЪЩА я HьSшч ╫#{ ═ FM[2R1ч╤R():D(R1)чD(R1)ъHьSъАы И():Н И[<С"DAMAGE CONTROL REPORTS `";G2$;" DAMAGED BY THE HIT'"Т[FГ I:О╛[PП * * * * * * END OF GAME * * * * * *▄[ZС"IT IS STARDATE";T:Й x\dС:С"THE ENTERPRISE HAS BEEN DESTROYED. THE FEDERATION ";9\nС"WILL BE CONQUERED":Й Zp\xС"THERE WERE";K9;"KLINGON BATTLE CRUISERS LEFT AT"Р\ВС"THE END OF YOUR MISSION."е\МС:С:Л B9ч ═ ┤т\ЦС"THE FEDERATION IS IN NEED OF A NEW STARSHIP COMMANDER"]аС"FOR A SIMILAR MISSION -- IF THERE IS A VOLUNTEER,"[]кЕ"LET HIM STEP FORWARD AND ENTER `AYE'",A$:Л A$ч"AYE" ═ шm]┤■М "MENU",шо]╛С"CONGRATULATIONS CAPTAIN! THE LAST KLINGON BATTLE CRUISER"у]╚С"MENACING THE FEDERATION HAS BEEN DESTROYED.":С^╥С"YOUR EFFICIENCY RATING IS"; Е(dы(K7ь(TъT0))э):Й Мe^▄П * * * SHORT RANGE SENSOR SCAN AND STARTUP SUBROUTINE * * *Й^цВ IчS1ъ ╠ S1щ:В JчS2ъ ╠ S2щЮ^ЁВ Uч ╠ d:Г U:└ш^·Л Е(IщА)ш я Е(IщА)ц я Е(JщА)ш я Е(JщА)ц ═ _A$ч">B<":Z1чI:Z2чJ:Н d:Л Z3ч ═ )_Г J:Г I:D0ч:Й ,H_D0ч:C$ч"DOCKED":EчE0:PчP0~_"С"SHIELDS DROPPED FOR DOCKING PURPOSES":Sч:Й @Ь_,Л K3ц ═ C$ч"*RED*":Й @╞_6C$ч"GREEN":Л EшE0ы═╠L} ═ C$ч"YELLOW"┌_@Л D()цч ═ T`JС:С"*** SHORT RANGE SENSORS ARE OUT ***":С:ОG`TO1$ч"---------------------------------":С O1$:В Iч ╠ Б`^В Jч(Iъ)ыщ ╠ (Iъ)ыщ ╧ :С" "; Г(Q$,J,);:Г Jл`hХ I Й r,|,Ж,Р,Ъ,д,о,╕т`rС" STARDATE "; Е(Tы )ы═╠L}:Й ┬a|С" CONDITION ";C$:Й ┬@aЖС" QUADRANT ";Q1;",";Q2:Й ┬raРС" SECTOR ";S1;",";S2:Й ┬аaЪС" PHOTON TORPEDOES "; Е(P):Й ┬╨aдС" TOTAL ENERGY "; Е(EщS):Й ┬■aоС" SHIELDS "; Е(S):Й ┬'b╕С" KLINGONS REMAINING"; Е(K9)7b┬Г I:С O1$:Оub╠П * * * * * * LIBRARY COMPUTER CODE * * * * * *Яb╓Л D()ш ═ С"COMPUTER DISABLED":Й X┘bрЕ"COMPUTER ACTIVE AND AWAITING COMMAND";A:Л Aш ═ XcъС:H8ч:Х Aщ Й b,,z,~,╢,D6cЇС"FUNCTIONS AVAILABLE FROM LIBRARY-COMPUTER:"_c■С" 0 = CUMULATIVE GALACTIC RECORD"{cС" 1 = STATUS REPORT"ЭcС" 2 = PHOTON TORPEDO DATA"╜cС" 3 = STARBASE NAV DATA"щc&С" 4 = DIRECTION/DISTANCE CALCULATOR"d0С" 5 = GALAXY `REGION NAME' MAP":С:Й рcd:П * * * * SETUP TO CHANGE CUM GAL RECORD TO GALAXY MAP * * * *mdD└:С:СзdNH8ч:G5ч:С" THE GALAXY":Й ФуdXП * * * * * * CUM GALACTIC RECORD * * * * * *eb└:Е "DO YOU WANT A HARDCOPY? IS PRINTER ON (Y/N)";A$9elЛ A$ч"Y" я A$ч"y" ═ ╠LevС:С" ";ДeАС"COMPUTER RECORD OF GALAXY FOR QUADRANT";Q1;",";Q2КeКС╚eФO1$ч" 1 2 3 4 5 6 7 8"fЮС " ----- ----- ----- ----- ----- ----- ----- -----")fиС O1$:В Iч ╠ :С I;:Л H8ч ═ ╨Zf▓В Jч ╠ :С" ";:Л Z(I,J)ч ═ С"***";:Й ╞vf╝С В( У(Z(I,J)щш),);Дf╞Г J:Й ф╝f╨Z4чI:Z5ч:Н Ц:J0ч Е(ъАы Т(G2$)):С ╬J0);G2$;яf┌Z5ч:Н Ц:J0ч Е('ъАы Т(G2$)):С ╬J0);G2$; fфС:С O1$:Г I'gюЧ SEGч░:И SPOTч(▀щQ1ы@щQ2ы)Sg°В RTч ╠ ╧ :Ш SPOTщRT,П:Г RT:Ч SEG]gЙ XУgП * * * * * * STATUS REPORT * * * * * *Яg└:С:С:С╧g С " STATUS REPORT:":X$ч"":Л K9ц ═ X$ч"S"юg*С"KLINGON";X$;" LEFT: ";K95h4С"MISSION MUST BE COMPLETED IN";═╠L}ы Е((T0щT9ъT)ы );"STARDATES"\h>X$ч"S":Л B9ш ═ X$ч"":Л B9ш ═ \гhHС"THE FEDERATION IS MAINTAINING";B9;"STARBASE";X$;" IN THE GALAXY"нhRЙ ▐h\С"YOUR STUPIDITY HAS LEFT YOU ON YOUR ON IN"ifС" THE GALAXY -- YOU HAVE NO STARBASES LEFT!":Й VipП * * * * TORPEDO, BASE NAV, D/D CALCULATOR * * * *hizЛ K3шч ═ hВiДX$ч"":Л K3ц ═ X$ч"S"╢iОС"FROM ENTERPRISE TO KLINGON BATTLE CRUISER";X$█iШH8ч:В Iч ╠ :Л K(I,)шч ═ tЄiвW1чK(I,):XчK(I,)jмC1чS1:AчS2:Й ▐-j╢С"DIRECTION/DISTANCE CALCULATOR:"hj└С"YOU ARE AT QUADRANT ";Q1;",";Q2;" SECTOR ";S1;",";S2аj╩С"PLEASE ENTER":Е" INITIAL COORDINATES (X,Y)";C1,A╞j╘Е" FINAL COORDINATES (X,Y)";W1,Xфj▐XчXъA:AчC1ъW1:Л Xш ═ .ЇjшЛ Aш ═ BkЄЛ Aц ═ k№Л Aч ═ C1ч:Й $kC1ч=kЛ Ж(A)шч Ж(X) ═ $xkС "DIRECTION =";C1щ((( Ж(A)ъ Ж(X))щ Ж(A))ь Ж(A)):Й jгk$С "DIRECTION =";C1щ( Ж(A)ь Ж(X)):Й j║k.Л Aц ═ C1ч:Й L╥k8Л Xшц ═ C1ч:Й █kBC1чЇkLЛ Ж(A)цч Ж(X) ═ `/lVС "DIRECTION =";C1щ((( Ж(X)ъ Ж(A))щ Ж(X))ь Ж(X)):Й jTl`С "DIRECTION =";C1щ( Ж(X)ь Ж(A))ljС"DISTANCE ="; З(XэщAэ):Л H8ч ═ XНltГ I:Й X╠l~Л B3шц ═ С"FROM ENTERPRISE TO STARBASE:":W1чB4:XчB5:Й мmИС"MR. SPOCK REPORTS, `SENSORS SHOW NO STARBASES IN THIS";$mТС" QUADRANT.'":Й XfmЬП * * * * FIND EMPTY PLACE IN QUADRANT (FOR THINGS) * * * *дmжR1ч╤R():R2ч╤R():A$ч" ":Z1чR1:Z2чR2:Н d:Л Z3ч ═ жкm░Оюm║П * * * * * * INSERT IN STRING ARRAY FOR QUADRANT * * * * * *n─S8ч Е(Z2ъА)ыщ Е(Z1ъА)ыщUn╬Л Т(A$)шц ═ С"ERROR . . .":В Xч ╠ ш:Г X:■М "MENU",шtn╪Л S8ч ═ Q$чA$щ В(Q$,╜):ОФnтЛ S8ч╛ ═ Q$ч Б(Q$,╜)щA$:О╣nьQ$ч Б(Q$,S8ъ)щA$щ В(Q$,╛ъS8):ОыnЎП * * * * * * PRINT DEVICE NAME * * * * * *oХ R1 Й ,,,(,2,<,F,P/o G2$ч"WARP ENGINES":ОOoG2$ч"SHORT RANGE SENSORS":ОnoG2$ч"LONG RANGE SENSORS":ОЙo(G2$ч"PHASER CONTROL":Овo2G2$ч"PHOTON TUBES":О╜o<G2$ч"DAMAGE CONTROL":О╪oFG2$ч"SHIELD CONTROL":ОїoPG2$ч"LIBRARY-COMPUTER":О9pZП * * * * * * STRING COMPARISON IN QUADRANT ARRAY * * * * * *zpdZ1ч Е(Z1щА):Z2ч Е(Z2щА):S8ч(Z2ъ)ыщ(Z1ъ)ыщ:Z3чФpnЛ Г(Q$,S8,)шцA$ ═ ОЯpxZ3ч:ОфpВП * * * * * QUADRANT NAME IN G2$ FROM Z4,Z5 (=Q1,Q2) * * * * *qМП * * * * * CALL WITH G5=1 TO GET REGION NAME ONLYQqЦЛ Z5шч ═ Х Z4 Й а,к,┤,╛,╚,╥,▄,ц[qаЙ ·sqкG2$ч"ANTARES":Й TЙq┤G2$ч"RIGEL":Й Tбq╛G2$ч"PROCYON":Й T╢q╚G2$ч"VEGA":Й T╬q╥G2$ч"CANOPUS":Й Tхq▄G2$ч"ALTAIR":Й TrцG2$ч"SAGITARIUS":Й TrЁG2$ч"POLLUX":Й T2r·Х Z4 Й ,,,"IrG2$ч"SIRIUS":Й T_rG2$ч"DENEB":Й TwrG2$ч"CAPELLA":Й TТr"G2$ч"BETELGEUSE":Й Tмr,G2$ч"ALDEBARAN":Й T─r6G2$ч"REGULUS":Й T▌r@G2$ч"ARCTURUS":Й TэrJG2$ч"SPICA""sTЛ G5шц ═ Х Z5 Й h,r,|,Ж,h,r,|,Ж(s^О;shG2$чG2$щ" I":ОOsrG2$чG2$щ" II":Оds|G2$чG2$щ" III":ОxsЖG2$чG2$щ" IV":ООsРВ Uч ╠ Р:Г U:О╦sЪП ********** SOUND OF WARP ENGINE ENGAGING **********╫sд■У "MB" sоВ I ч % ╠ Z:─ I,═╠LА:Г I:■У "MB"'t╕В I ч И ╠ а ╧ ъ(:─ I,═╠L~:Г I-t┬Оht╠П ********** PRINT REPORT TO LINE PRINTER **********{t╓Э:Э " ";╢tрЭ "COMPUTER RECORD OF GALAXY FOR QUADRANT";Q1;",";Q2:ЭєtъO1$ч" 1 2 3 4 5 6 7 8"/uЇЭ " ----- ----- ----- ----- ----- ----- ----- -----"Uu■Э O1$:В Iч ╠ :Э I;:Л H8ч ═ &ИuВ Jч ╠ :Э " ";:Л Z(I,J)ч ═ Э "***";:Й дuЭ В( У(Z(I,J)щш),);▓uГ J:Й :ъu&Z4чI:Z5ч:Н Ц:J0ч Е(ъАы Т(G2$)):Э ╬J0);G2$;"v0Z4чI:Z5ч:Н Ц:J0ч Е(ъАы Т(G2$)):Э ╬J0);G2$;:v:Э:Э O1$:Г I:Э:Й X