' A A(X)(X())b G(,),Z$(),C$(),X$()|(T(A())d:T0T2T1A()<E FPPSZX$"------------------------"d D(D)((K(I,)S1)(K(I,)S2))nQ1A():Q2Q1:S1Q1:S2Q1;x I : J :C(I,J)::{C(,):C(,):C(,):C(,):C(,):C(,)C(,):C(,):C(,):C(,):C(,) W3 :D(W3):B9:K9 I  J K3:B3 ()L "K3A()/K9K9K3G ()u PB3\B9B9iS3A()G(I,J)K3dB3 S3 J" I, K9 B9 6 |@ z J Q1 ^TS1:Q1^ Q1 rhS1:Q1r Q1 |S2:Q21 Q2 ?S2:Q2QXG(Q1,Q2)d^K3(X)sB3((XK3) )S3G(Q1,Q2)((B3 )(K3d)) K3  "COMBAT AREA","CONDITION RED" S(K3d)  " SHIELDS DANGEROUSLY LOW"- W3 : W4 :K(W3,W4)::V W3 : W4 :Q(W3,W4)::eQ(S1,S2)t I K3~ 4 Q(R1,R2)&K(I,)R10K(I,)R2:K(I,)D IN B3 lX 4 bQ(R1,R2)l I S3v 4 Q(R1,R2) I#  5 "COMMAND:";= ACd A A A(A) oR1A D(R1)    Z$;" NOT OPERATIONAL"  (A) f,,,,,\,T ,f   "0=SET COARSE";);"4 3 2"1 "1=LONG RANGE SCAN";);"\ ^ /"R  "2=PHASER CTRL";);"\^/"|* "3=TORPEDO CTRL";);"5 ------- 1"4 "4=SHIELDS";);"/^\"> "5=LIBRARY COMPUTER";);"/ ^ \"H "6=RESIGNATION";);"6 7 8"R\ f "COARSE (1-9):";p C11z C1 C1 M "WARP FACTOR (0-8):";V W1o W1 W1  D() W1  "ENGINES ARE DAMAGED, MAXIMUM SPEED IS WARP .5"  E(W1)  S1 . 0 "YOU ONLY HAVE ";E;" UNITS...SUGGEST YOU TRANSFER"^ " FROM SHIELDS, WHICH HAVE ";S;" UNITS"h v I  D(I) D(I)D(I) I W1 .$ @.N(W1)8Q(S1,S2)BXS1LYS2VC2(C1)&`X1C(C2,)(C(C2,)C(C2,))(C1C2)QjX2C(C2,)(C(C2,)C(C2,))(C1C2)_t I Nl~S1S1X1yS2S2X2 S1 S1 S2 S2  Q((S1),(S2)) S1S1X1S2S2X2  IS1(S1)S2(S2)Q(S1,S2)EEN0 W1 :TTN  TT0T1 L X jXQ1XX1N|(YQ2YX2N2Q1(X)<Q2(Y)FS1(XQ1)PS2(YQ2)Z S1 xdQ1Q1nS1x S2  Q2Q2S2 TT.EE(N)B TT0- L L J\ (X$,)s I(Q1) (Q1)N():N():N() J(Q2) (Q2) I I J J N(JQ2)G(I,J) J  "_:_ ###";N(),N(),N();:" :" (X$,)# I-" >, K3 \6 "ENERGY AVAILABLE = ";E~@ "NUMBER OF UNITS TO FIRE:";J XT X ^ (EX) @hEEXr I | K(I,) H(XK3(D()))K(I,)K(I,)H  H;"UNIT HIT ON KLINGON"5 K(I,) ? G IQ a P  "ALL PHOTON TORPEDOS EXPENDED"  "TORPEDO COARSE (1-9):"; C1 C1 C1 C2(C1) X1C(C2,)(C(C2,)C(C2,))(C1C2)5X2C(C2,)(C(C2,)C(C2,))(C1C2)>&XS1G0YS2Q:PPWDbNXXX1mXYYX2b X X Y Y Hl Q((X),(Y)) Q((X),(Y)) Nv I   (X)K(I,) (Y)K(I,) 5  (X)K(I,) (Y)K(I,) =  IG   Q  [  e   K(I,):Q(K(I,),K(I,))  "***KLINGON DESTROYED***" K3K3 K9K9  K9 ~ G(Q1,Q2)G(Q1,Q2)d  !  Q((X),(Y)) */! "STAR HAS ABSORBED ALL ENERGY"9!  HZ!* "***STARBASE DESTROYED***"!4 "YOU ARE HEREBY RELIEVED OF DUTY!! CONGRATULATIONS!"!> j !H "TORPEDO MISSED"!R !\ Z!f: "DEVICE","STATE OF REPAIR"!p R1 "z  " Z$,D(R1)" R1$"." n" "SHORT RANGE SENSORS REPORT NO KLINGONS IN THIS QUADRANT"x" " C$"DOCKED" $ " K3 $ " I " K(I,)  "H(K(I,)D())"SSH# H;"UNIT HIT ON ENTERPRISE"# S ` # I*# @0#$ H#. "**FATAL ERROR**"#8 "THE ENTERPRISE IS DEAD IN SPACE, AND MUST BE EVACUATED!!"#B j #L : "IT IS STARDATE";T#V j #` : "***THE ENTERPRISE HAS BEEN DESTROYED***"$j : "THE FEDERATION WILL BE CONQUERED!!!""$t p ($~ e$ "THE LAST KLINGON BATTLE CRUISER HAS BEEN DESTROYED!!"$ "THE FEDERATION HAS BEEN SAVED !!"$ $ p $ I(S1) (S1)$ J(S2) (S2)$ I I J J  % Q(I,J)  % J% I% 2 /% C$"DOCKED"9% E B% P[% Z6 :D(Z6):d% Sn%(  t%2 %< K3 d %F E, x %P C$"GREEN"%Z  %d C$"*RED*"%n  %x C$"YELLOW"% X$% Z%  & "STARDATE";);T&  2& "SECTOR";);S1;",";S2<&  [& "QUADRANT";);Q1;",";Q2e&  |& "CONDITION";);& (C$,)"*" & (C$,)"Y" & C$: &  & "ENERGY";);E&  & "TORPEDOES";);P'  ' "SHIELDS";);S('"  @', "KLINGONS";);K9I'6 X$S'@ Y'J 'T "COMPUTER ACTIVE AND AWAITING COMMAND";'^ A'h (A) f, , 'r "FUNCTIONS AVAILABLE FROM COMPUTER"'| " 0=DAMAGE REPORT"( " 1=PHOTON TORPEDO DATA"-( " 2=SHORT RANGE SCAN"3( =( T C( Q( I i( K(I,)   y( XK(I,)S2( YS1K(I,)( X : ( A(((33e(YX))-)d)d( X Y l ( X & ( "DIRECTION=";A) I ) )& AA!)0  1): Y X 9)D AC)N  K)X AU)b  _)l AAi)v  s)  }) ) ***** OUTPUT QUADRANT *****) ZZ) I ) Z$" <*>+++ * >!<") (Z$,(Q(Z,I)),);) I* );* +* ***** PRINTS DEVICE NAME *****1* p* "WARP ENGINES","SCANNERS","PHASER BANKS","TORPEDO TUBES"* "SHIELD CTRL","COMPUTER"* X R1* Z$* X** *4 **** PLACEMENT IN QUADRANT ARRAY *****> R1A()*H R2A()+R Q(R1,R2) > +\ H+f : "YOUR RESIGNATION HAS BEEN *ACCEPTED*"N+p p+z "DO YOU NEED INSTRUCTIONS";y+ A$+ ::::+ A$"Y" + );"<*> =ENTERPRISE"+ );" * =STAR"+ );"+++ =KLINGON", );">!< =STARBASE" , :+, "COMMAND 0=WARP ENGINES"k, "COURSE IS IN A CIRCULAR VECTOR AS SHOWN.";2);"4 3 2", "REAL VALUES MAY BE USED. FOR EXAMPLE,";3);"\ ~ /", "1.5 WOULD BE HALFWAY BETWEEN 1 AND 2.";4);"\~/", 0);"5 ------- 1"9- "A 'WARP FACTOR' IS THE SIZE OF ONE QUADRANT.";4);"/~\"L- 3);"/ ~ \"a- 2);"6 7 8"-$ "COMMAND 1=LONG RANGE SCAN"-. "CODED IN THE FORM XXX, WHERE THE UNITS ARE THE NUMBER"-8 "OF STARS, TENS THE NUMBER OF STARBASES, AND HUNDREDS"&.B: "PRESS ANY KEY TO CONTINUE...."7.L "" LW.V "THE NUMBER OF KLINGONS."s.`: "COMMAND 2=PHASERS".j "YOU MAY DESTROY THE KLINGON BY USING ENOUGH PHASER".t "POWER AS TO DEPLETE HIS SHIELDS. KEEP IN MIND THAT WHEN"$/~ "YOU FIRE AT HIM, HE GONNA DO IT TO YOU, TOO!"I/: "COMMAND 3=PHOTON TORPEDOES"/ "COURSE IS SAME AS WITH WARP ENGINES. THE LIBRARY"/ "COMPUTER CAN COMPUTE TRAJECTORY FOR YOU (OPTION 1)"/: "COMMAND 4=SHIELDS"0 "DEFINES THE AMOUNT OF ENERGY TO BE ASSIGNED TO SHIELDS."?0: "COMMAND 5=LIBRARY COMPUTER"a0 " OPTION 0=DAMAGE REPORT"0 " A STATE OF REPAIR LESS THAN ZERO INDICATEDS THAT"0 " THAT DEVICE IS TEMPORARILY DISABLED."0: "PRESS ANY KEY TO CONTINUE...."1 "" ,1 " OPTION 1=PHOTON TORPEDO DATE"h1 " GIVES DIRECTION TO ALL KLINGONS IN YOUR QUADRANT."1  " OPTION 2=SHORT RANGE SCAN"1 " ALSO GIVEN AUTOMATICALLY AFTER SUCCESSFUL COMPLETION"1 " OF WARP ENGINE MANEUVERS."2(: "COMMAND 6=RESIGNATION"22::A2<: "PRESS ANY KEY TO CONTINUE...."R2F "" F\2P p2Z "1-ENERGY=";E2d "2-SHIELDS";S2n: "TRANSFER FROM:";2x L2 "NUMBER OF UNITS:";2 L12 L 2 L 2 3 L1E 3EEL13SSL1%3 /3SSE73EA3 S3 L1S "^3SSL1i3EEL1s3 }3"EES3,S36 3@ A() r3JR1A()3TD(R1)D(R1)A()3^  4h: "DAMAGE CONTROL REPORTS ";Z$;" DAMAGED": 4rT4| " WELCOME TO THE ENTERPRIZE, CAPTAIN. YOUR ORDERS ARE AS FOLLOWS;"4 " THE KLINGON EMPIRE HAS INVADED FEDERATION TERRITORY, LONG RANGE"4 " SCANNERS AT STARFLEET HEADQUARTERS HAVE COUNTED ";K9;" INVADING"5 " SHIPS IN QUADRANTS 1,1 THROUGH 8,8."c5 " YOU ARE ORDERED TO DEFEND THESE QUADRANTS, AND ELIMINATE THE"5 " KLINGON THREAT. YOU HAVE UNTIL STARDATE ";T0T1;"TO COMPLETE"5 " YOUR MISSION.":5 " GOOD LUCK!"::5