^$%*?$D:\E8,0;"FRYING TONIGHT U.S.S.ENTERPRISE" .6,16:9800H&  !4iV(3)=07;1;S(XQ,YQ,2)-1,(S(XQ,YQ,1)-1)*2;"" !> 3500 !C,6;17,0;"ATTACK FROM THE ROMULAN BIRD OF";18,0;"PREY AT SCT ";S(XQ,YQ,1);",";S(XQ,YQ,2);4;19,0;"SULU:'CAPTAIN! THE ROMULANS HAVE";20,0;"DISAPPEARED!':";2;" SPOCK:'SENSOR";21,9 ;"INDICATES NO ROMULANS'" !D?6;2;1;18,16;"500 UNITS HIT" !HiV(3)=06;1;S(XQ,YQ,2)-1,(S(XQ,YQ,1)-1)*2;" " !M.BM=BM+100d:SH=SH-500:4300 !RSH06700, !aNS(XQ,YQ,1)=0:S(XQ,YQ,2)=0:S(XQ,YQ,3)=0 !f2a1=(*8+1):a2=(*8+1) !kDS(a1,a2,1)=a2:S(a1,a2,2)=a1:S(a1,a2,3)=5 !p.8L,16 ! ! 8900" " ANG=ANG+ " /XINC=(ANG)*1.3&fff:YINC=-(ANG)*1.3&fff "/XINC=(ANG)*1.3&fff:YINC=-(ANG)*1.3&fff "U6;1;S(XQ,YQ,2)-1,(S(XQ,YQ,1)-1)*2;" " "$VS(XQ,YQ,1)=(S(XQ,YQ,1)+XINC):S(XQ,YQ,2)=(S(XQ,YQ,2)+YINC) ")U6;1;S(XQ,YQ,2)-1,(S(XQ,YQ,1)-1)*2;"" "..3,10 :BM=BM+200:SH=SH-750:V(2)=V(2)+10 :V(9 )=V(9 )+10 :V(7)=V(7)+25:V(1)=V(1)+(*13 +17) "34300:3500 "86;17,0;"SCOTTY: MAIN ENERGIZER OUT";18,0;"SULU: SHIELDS ARE GONE!";19,0;"SPOCK: EXTENSIVE DAMAGE";20,0;"Lt.UHURU: RELIANT IS SIGNALING";1;21,10 ;"COMMUNICATON? Y/N" "=&.2~L,11 :.2~L,16 "?=""8767?" "@="N"Ŧ="n"8795[" "B 3500 "CH0;6;17,0;"KHAN: SURRENDER OR ELSE! Y/N " "D=""8772D" "E="N"Ŧ="n"8795[" "Gu5;18,0;"KAHN HAVE TAKEN OVER";19,0;"THE ENTERPRISE.";20,0;"GAME END " "I 9800H& "L "[ 10 : "?ANG=((YS-S(XQ,YQ,2))/(S(XQ,YQ,1)-XS+1E-5p'ŬF)) "<XSS(XQ,YQ,1)YSS(XQ,YQ,1)ANG=ANG+ " "HDIST=((XS-S(XQ,YQ,1)))^2+((YS-S(XQ,YQ,2)))^2 "DIST=1.25 *DIST # # /XINC=(ANG)*1.3&fff:YINC=-(ANG)*1.3&fff #96;1;YS-1,(XS-1)*2;" " #XS=(XS+XINC):YS=(YS+YINC) #96;1;YS-1,(XS-1)*2;"" # #(A(8,8,6,2):K(8,8,4,3):S(8,8,3):B(8,8,2):G(8,8,3):D$(10 ,4):V(10 ) #) #*0;7;0,0;"PROGRAM DIRECT";1,0;"STARTREK ADVENTURE";2,0;" T.SATO 1982";3,0;"INITIALISING : PLEASE WAIT" #,J=1150 #4 9100# #6 I=1 #8@A(XQ,YQ,I,1)0I=I+1:I590168# #:.A(XQ,YQ,I,1)=XS:A(XQ,YQ,I,2)=YS #<J #@KLNG=15+(*25) #BK=1KLNG #J 9100# #L I=1 #N@K(XQ,YQ,I,1)0I=I+1:I39038N# #P]K(XQ,YQ,I,1)=XS:K(XQ,YQ,I,2)=YS:K(XQ,YQ,I,3)=(1000+*5000) #RK #XI=13 #ZJ=13 #b 9100# #d>S(XQ,YQ,1)=XS:S(XQ,YQ,2)=YS:S(XQ,YQ,3)=I #fJ #hI #lI=572 #t 9100# #v>S(XQ,YQ,1)=XS:S(XQ,YQ,2)=YS:S(XQ,YQ,3)=I #xI #|STBS=(*5+2) #~I=1STBS # 9100# #*B(XQ,YQ,1)=XS:B(XQ,YQ,2)=YS #I # 9200# #XQ=(*7.99{+1) #YQ=(*7.99{+1) #XS=(*7.99{+1) #YS=(*7.99{+1) # $TSPC=0:ZX=0:KND=0:TRIB=0:SH=2000:EN=10000':PH=10 :LS=100d:BM=0:SCR=0 $^ 3600 $hPt()=((65536*23674z\+256*23673y\+23672x\)/502) $r STD=0 $| T1=t() $"TM=(KLNG*(+5)*.33() $ 9370$ $I=19 :D$(I):I $@"WARP","HYPE","SHRT","LONG","TORP","COMP","LIFE","PHSR","SHLD" $ % 3500 %&7;18,0;"GAME FINISHED AT STAR-DATE ";STD;18,0;19,0;"YOU HAVE SCORED ";SCR;" POINTS";20,0;"AND ";BM;" BLACK MARKS." &Hl5;1;21,0;"DO YOU WANT ANOTHER GAME? Y/N ":.8L,3:.4L,0 &R=""9810R& &f="Y"Ŧ="y"100d &p ?rc - ( 5 3,#i30 ^$^$Ͳ*'"%5%%"%Ā%H"%"?͈,0VA0<0% #͛,U#6#*e\B"e\+w#~ #ʹ3"]\Ͳ(.̖):;\8#ʹ33 -('( ֯ڊ(ҊO0˱8˹$( v R*O!'0N!& Fz8:!;\{ v 0%( {?G;8 {@Š!;\{ ˶yv ?O 8($+-*/^=>< d$ XJv3MM!/1!6e3&e3O%R]Rv4#d>9||90`` ~|p pxp<?  <?0t;<|{<|2r>`L-^ޭ3L>!!>"! !!>HIELD";0;" ";14,12 -SH;6;1;SH |(LS<15);1;6;15,0;"LIFE S.";0;" ";15,12 -LS;6;1;LS {(PH3);1;6;16,0;"PH. TORP";0;" ";16,12 -PH;6;1;PH  0 3500 1wB(XQ,YQ,1)=06;1;17,0;"NO STAR-BASE IN THIS QUADRANT ":.5,16: 5HDIST=((XS-B(XQ,YQ,1)))^2+((YS-B(XQ,YQ,2)))^2 :DIST=1.25 *DIST ?DIST>1.5@2;6;17,0;"STAR-BASE TOO FAR TO START ";18,0;"DOCKING PROCEDURE! ":.6,15: D:EN=10000':SH=2000:LS=100d:PH=10 Ic6;17,0;"ENTERPRISE DOCKED";18,0;"ENRGY AND SUPPLIES REPLENISHED" NTRIB>06;;20,0;"ALL TRIBBLES REMOVED":TRIB=0:1;16,13 ;" ":4450b XfTRIB=0ƥ.2~LTRIB=1:5;20,0;"Lt.UHURA: Look captain a Tribble" b%I=110 :V(I)=0:I l24;19,0;"ALL DAMAGE REPAIRED" q 4500 v 4300 {63;21,0;"Press any key to undock"  0  3500  J2;7;9 ,26;"DAMAGE";10 ,26;"REPORT" 7I=11 16:1;I,26;" ":I I=1:J=1 ]V(I)0J=J+1:V(I)<100d6;1;9 +J,26;D$(I);V(I) [V(I)100dV(I)=100d:2;6;1;9 +J,26;D$(I);" "  I=I+1 I9 4540   3500 qV(9 )01;2;7;17,0;"SHIELD CONTROL DAMAGED!":.5,16: uV(6)01;2;7;17,0;"NEGATIVE : COMPUTER FAILURE":.5,16: 44;17,0;"ENERGY AVAIABLE = ";EN  "INPUT TRANSFER UNIT";TR 7EN-TR<200SH<-TR.5,15:4620   EN=EN-TR:SH=SH+TR * 4300 4 \uV(6)01;2;7;17,0;"NEGATIVE : COMPUTER FAILURE":.5,16: a[S(XQ,YQ,3)=77;"WHICH OPTION? (1/2/3/4)";OP:OP=46800: b&S(XQ,YQ,3)=74720p f.1;6;"WHICH OPTION? (1/2/3)";OP pOP=14750: rOP=24800: tOP=34850: v.5,16:4710f z gNKSRS=04;0;17,0;"NO KLINGONS IN THIS QUADRANT":.5,4: 10;6;10 ,17;"COMPUTED" I=1NKSRS CANG=((YS-K(XQ,YQ,I,2))/(K(XQ,YQ,I,1)-XS+1E-5p'ŬF)) @XSK(XQ,YQ,I,1)YSK(XQ,YQ,I,1)ANG=ANG+ ANG=(ANG*180/) 45;1;10 +I,17;"DIRC=";ANG I  1:6:0: G7;2;0,0;"U.S.S. ENTERPRISE STATUS REPORT " 42,0;"NUMBER OF KLINGONS LEFT = ";KLNG 74,0;"NUMBER OF STARDATES LEFT = ";TM-STD 16,0;"YOUR SCORE IS ";SCR;" POINTS" 18,0;"YOU'VE GOT ";BM;" BLACKMARKS" STD=04819 710 ,0;"RATE OF KILL ";KND/STD;" KLNG/STD" SCR=04824 @12 ,0;"SCORE RATIO ";((SCR-BM)/SCR*100d);"%" H0;5;21,0;"Press anykey to continue."  0 0:0:  3800   0: G0;4;0,0;" CUMULATIVE GALACTIC RECORD " SI=18:2;6;1,3*I;I;2*I,0;I:I J=18 I=18 G(J,I,1)+G(J,I,2)+G(J,I,3)=06;1;((J+I)/2=(((I+J)/2)));I*2,J*3-1;" ":4866 6;1;((J+I)/2=(((I+J)/2)));I*2,J*3-1;G(J,I,1);G(J,I,2);G(J,I,3) I J 6;0;17,0;"UNIT DIGIT = No OF STARS";18,0;"TEN DIGIT = No OF STARBASE";19,0;"HUNDRED DIGIT = No OF KLINGONS" n0;6;1;YQ*2,XQ*3-1;G(XQ,YQ,1);G(XQ,YQ,2);G(XQ,YQ,3)  H2;6;21,0;"Press a key to continue. "  0   3800  hV(8)01;2;7;17,0;"PHASER IS OUT!":.5,16: &S(XQ,YQ,3)=75015 K(XQ,YQ,1,1)=02;6;17,0;"BATTLE COMPUTER REPORTS ";18,0;"NO KLINGONS IN THIS QUADRANT ":.5,12 :  ACC=0 V(6)07;0;18,0;"COMPUTER FAILURE ";19,0;"HAMPERS ACCURACY ":ACC=V(6) j6;0;20,0;"PHASER LOCKED ON TARGET";21,0;"ENERGY AVAILABLE = ";EN 07;2;"NUMBER OF UNITS TO FIRE?";F ݅F0F>EN1;1;6;20,25;" DON'T ";21,25;" CHAET ":.5,16:5040 16;2;10 ,17;"HIT LEFT" EN=EN-F:4300 2S(XQ,YQ,3)=75500|:5188D I=1NKSRS LDIST=((XS-K(XQ,YQ,I,1)))^2+((YS-K(XQ,YQ,I,2)))^2 DIST=1.25 *DIST 7HIT=(F*1.8ffff/DIST/NKSRS*(1-ACC/100d)) +K(XQ,YQ,I,3)=K(XQ,YQ,I,3)-HIT SCR=SCR+(HIT/15)  t6;1;10 +I,17;" ";10 +I,17;HIT;10 +I,21;K(XQ,YQ,I,3) .2~L,15 7I : J=NKSRS < I=1J >0K(XQ,YQ,I,3)0DEST=I:5800 @I B 5850 D 3500 F PV(5)1;2;7;17,0;"PHOTON TORPEDO LAUNCHER ";18,0;"IS DAMAGED":.5,16: UK(XQ,YQ,1,1)=02;6;17,0;"BATTLE COMPUTER REPORTS ";18,0;"NO KLINGONS IN THIS QUADRANT":.5,12 : ZSPH=01;2;7;17,0;"NO PHOTON TORPEDO LEFT" d51;7;"INPUT TORPEDO COURSE(0-360)";DIR i:DIR<0DIR>360h.73333,14:5220d j=PH=PH-1:DEST=0:I=0:DIR=DIR*/180 la.18~8Q6;20,0;"TORPEDO MALFUNCTIONED!":1.1 ,0:5290 n I=I+1 xLDIST=((XS-K(XQ,YQ,I,1)))^2+((YS-K(XQ,YQ,I,2)))^2 } DIST=DIST CANG=((YS-K(XQ,YQ,I,2))/(K(XQ,YQ,I,1)-XS+1E-5p'ŬF)) @XSK(XQ,YQ,I,1)YSK(XQ,YQ,I,1)ANG=ANG+ (ANG-.1745~2 *((10 -DIST)/10 ))DIRK(XQ,YQ,I,3)=-1:DEST=I <DEST06;20,0;"HIT":5290 I=NKSRSI=45285  5230n Z1;6;21,0;"PHOTON TORPEDO MISSED":.5,0:100d  J=NKSRS  I=1J 0K(XQ,YQ,I,3)0DEST=I:5800 I 5850:3500  4300  | 3500 PF<9996;17,0;(F/3);" UNITS HIT ON RELIANT": r6;17,0;"CAPTAIN:USS RELIANT HAS EXPLODED";18,0;"INTO A UNSTABLE RED GIANT STAR" 9SCR=SCR+400:S(XQ,YQ,3)=3:4000 .73333,14:300,  0;1;K(XQ,YQ,DEST,2)-1,(K(XQ,YQ,I,1)-1)*2;" ";5;10 +DEST,16;"DESTROYED" KND=KND+1:KLNG=KLNG-1:SCR=SCR+100d:NKSRS=NKSRS-1::K(XQ,YQ,DEST,3)=0:G(XQ,YQ,1)=G(XQ,YQ,1)-1 P.09}8Q,13 :.08}# =,14:.06|u\,15:.04|# =,16   I=1 CK(XQ,YQ,I,1)0K(XQ,YQ,I,3)05880  I=I+1 I<55852   J=I4 }J=4K(XQ,YQ,4,1)=0:K(XQ,YQ,4,2)=0:K(XQ,YQ,4,3)=0:5890 /K(XQ,YQ,J,1)=K(XQ,YQ,J+1,1) /K(XQ,YQ,J,2)=K(XQ,YQ,J+1,2) /K(XQ,YQ,J,3)=K(XQ,YQ,J+1,3) J  p6:0: u0,0;"COMMAND LIST";2,0;"0 = DO NOTHING LOSE 1 MINUTE";3,0;"1 = WARP DRIVE CONTROL";4,0;"2 = PHASER CONTROL";5,0;"3 = PHOTON TORPEDO CONTROL";6,0;"4 = SHIELD CONTROL";7,0;"5 = CALL COMPUTER (OPTION 1/2/3)";8,2;"1 = BATTLE COMPUTER";9 ,2;"2 = STATUS REPORT";10 ,2;"3 = CUMULATIVE GALACTIC RECORD" v11 ,0;"6 = DOCKING PROCEDURE";12 ,0;"7 = HYPER DRIVE";13 ,0;"8 = INSTRUCTIONS";14,0;"9 = END GAME";15,0;"P = CALL SPOCK" w221,0;"Press any key to to continue" x 0 y z 3800  dNKSRS=0 iI=1NKSRS nLDIST=((XS-K(XQ,YQ,I,1)))^2+((YS-K(XQ,YQ,I,2)))^2 sDIST=1.25 *DIST x!F=(K(XQ,YQ,I,3)/3) }HIT=(F/DIST)  SH=SH-HIT )K(XQ,YQ,I,3)=K(XQ,YQ,I,3)-F BM=BM+(HIT/15) l3;0;16+I,0;HIT;" UNITS HIT FROM SCT ";K(XQ,YQ,I,1);",";K(XQ,YQ,I,2) &.2~L,16:.2~L,16 I  4300 gSH02;7;1;21,12 ;"SHIELDS ARE GONE!!!!":6700,:DAMAGED  4500  ,I=-SH 18I<30V(1)=V(1)+10 :6730J 6J=0I40( ;L=(*9 +1) @!V(L)=V(L)+(*10 +5) EJ J 4500 T ^ga1=V(1)+V(2)+V(3)+V(4)+V(5)+V(6)+V(7)+V(8)+V(9 ) _a1=0 `a1300,3500 :6;1;17,0;"ENTERPRISE DAMAGE BEYOND REPAIR.";2;20,24;"GAME END":9510&% aI=19 c=V(I)>0V(I)<99cV(I)=V(I)-3-(*10 ) hV(I)<0V(I)=0 mI o 4500 r  3500 }6;2;17,0;"YOU ARE LOGGED ON TO THE RELIANP";18,0;"MAIN COMPUTER. WHICH SERVICE? " "INPUT COMMAND";a$ Ra$"4"6;2;20,0;"NOT ACCECABLE FOR OUT SIDE USER ": h5;19,0;"ENERGY AVAILABLE = 10000";20,0;"CURRENT SHIELD ENERGY = 3000" %5;"INPUT TRANSFER UNITS ";TR TR-3000 SPC=1  TRIB=(TRIB*2.5 ) 56;2;15,13 ;"TRIBBLES " M7;1;16,13 ;" ";16,13 ;TRIB TRIB=11676;19,0;"SPOCK:";4;"There is something ";20,0;"disquieting about these Tribbles " TRIB=284842 @6;19,0;"SPOCK:";4;"At this rate Tribbles will";20,0;"eat up all our supplies! "  TRIB=4450655Ҿ6;19,0;"SCOTT:";4;"Tribbles are invading the ";20,0;"main engine room. "  TRIB>1E8> 3500 :6;2;17,0;"TROUBLE WITH TRIBBLES ";18,0;0;"TRIBBLES HAVE TAKEN OVER THE ";19,0;"U.S.S ENTERPRISE ";1;"GAME END ":9800H& & X 3500 .6,13 y6;0;17,0;"PASSING ZOGRON MERCHANT CRAFT";18,0;"REQUEST BOARDING PERMISSION Y/N" RN=(11 *+1) =""7060 ="Y"Ŧ="y"7080 RN83500 :7;0;17,0;"ZOGRONS RESENT THIS ";18,0;"UNFRIENDLINESS AND ZAP YOU INTO ";19,0;"HYPER SPACE!":2,14:500:3350 : 3500 :  3500 RN=17;0;17,0;"ALL DAMAGE REPAIRED":I=19 :V(I)=0:I:.5,9 :4500: oRN=25;0;17,0;"PHOTON TORPEDOES REPLENISHED. ":PH=10 :4300: mRN=35;0;17,0;"LIFE SUPPORT SYSTEM IMPROVED.":LS=100d:4300: iRN=45;0;17,0;"FUEL STORE REPLENISHED.":EN=10000':4300: eRN=55;0;17,0;"SHIELDS IMPROVED!":SH=SH+1500:4300: RN=65;0;17,0;"THEY HAVE SLIPPED YOU INTO A ";18,0;"DIFFERENT TIME ZONE. YOU GAIN";19,0;"5 MIN EXTRA PLAY TIME.":TM=TM+7:4300: H6;0;17,0;"THEY'VE PROVED TO BE TREACHEROUS" mRN=76;0;18,0;"& HAVE STOLEN SOME PHOTON TORP.":PH=(PH*):4300: ІRN=86;0;18,0;"& HAVE SWIPED SOME ENERGY ";19,0;"RESERVES.":EN=(*EN):4300: ՂRN=9 6;0;18,0;"& HAVE SABOTAGED THE PHASER":V(8)=V(8)+(*502):4500: ډRN=10 6;0;18,0;"& HAVE DRAINED ENERGY FROM THE";19,0;"SHIELDS":SH=(*SH):4300: RN=11 6;0;17,0;"ZOGRON MERCHANT,CYRANO JONES HAS";18,0;"LEFT YOU A TRIBBLE.":TRIB=1:   3500 4S(XQ,YQ,3)=76;1,0;"SPOCK: 'YOU CAN USE THE SAME ";18,0;"TACTIC AS IN THE FILM; THE WRATH";19,0;"OF KHAN.'":7250R HTRIB50007;17,0;"SPOCK: 'Trouble with Tribbles?";18,0;"I suggest we give them back to";19,0;"the original owner.":7250R MX4;18,0;"SPOCK: I'm rather busy at the";19,0;"moment." R86;21,0;"Press any key to continue" W 0 Z 3500 \ @'8000@+S(XQ,YQ,3)*100d r  8950" VDIST5.892;0;20,0;"THERE'S A BLACK-HOLE NEAR-BY":  8900"  8970 # .2~L,10 j6;19,0;"CAPTAIN!. SE ARE BEING PULLED";20,0;"INTO THE BLACK HOLE!" 5XS=S(XQ,YQ,1)YS=S(XQ,YQ,2)8135 L6;1;YS-1,(XS-1)*2;144;145: rI=07:1;2;6;I,0;"":I ̆3500 :6;0;17,0;"ENTERPRISE HAS BEEN SWALLOWED UP";18,0;"BY A BLACK HOLE AND DESTROYED"  9800H&   8950" SDIST5.892;0;20,0;"THERE IS A PULSAR NEAR-BY":  3500 6;17,0;"CAPTAIN, WE ARE BEING ZAPPED BY";18,0;"HIGH ENERGY GAMMA RAY BEAM FROM";19,0;"THE PULSAR. SHIELDS PENETRATED.";20,0;"ENTERPRISE DAMAGED!" .5,12 :300, "I=120x:67106 0 lZX=10000'8350 q ZX=0 j.25~6;20,0;"RED GIANT STAR AT SCT ";S(XQ,YQ,1);" ";S(XQ,YQ,2): 3500 :6;17,0;"SPOCK: 'CAPTAIN I THINK THAT";18,0;"RED GIANT STAR IS ABOUT TO GO";19,0;"SUPER-NOVA!'" ZX=10000'  .75@8305q rI=07:1;2;6;I,0;"":I 3500 :6;17,0;"THE RED GIANT STAR HAS GONE";18,0;"SUPER NOVA!";19%@<||<<||~<<<||~DB>><@><>B<|@~<<~B<>BfDB@B@BBB@HBDB@bBB@@BB(BBBbB@@bBB@@B@@BBBBB@BBZBB|@<BBB|pBBB|RBB|B<J~@JN|@@~@B~@DBBDBBDD@BBBDD@DBD$@FBD@BBBB@FB@BFB@@@BB@ZB@B<B~<<BBB~BBx~B<<~>B>>B~><>B<@~~B<~$B><88 88H@yy# <@NT##8\\\\ &\8p}F&X![!@P!!8 W K SR P:\G>&Z.p+ >W>xxx "LET THE TAPE RUN" "mc"  d 9000(# 0:0: ,04000:4300:4500:4200h 96;1;YS-1,(XS-1)*2;""  6750^ KLNG=03500 :7;2;17,0;"NO KLINGON LEFT: YOU HAVE WON ":I=042:.2~L,I:I:I=511 2:.2~L,I:I:.2~L,12 :9510&% LS=LS-2:STD=((t()-T1)/60<):TM32;7;17,0;"ILLEGAL INPUT!":3,10 :17,0;" ":3010 (5;18,0;"WARP ";WAR WAR.16~# = 8X1=XQ+(XS-1)/8:Y1=YQ+(YS-1)/8 CXINC=(DIR/180*)/8:YINC=-(DIR/180*)/8 0X2=X1+XINC*WAR*8:Y2=Y1+YINC*WAR*8 X2<1X2>9 Y2<1Y2>9 6;2;17,0;"AUTOMATIC NAV-PUTER REPORT ";18,0;"ENTERPRISE WILL GO BEYOND THE ";19,0;"GALAXY. TRY AGAIN. ":5,10 :3500 :3000 II=0:X2=X1:Y2=Y1 EN=EN-100d*WAR X2=X2+XINC:Y2=Y2+YINC 90;1;YS-1,(XS-1)*2;" " =YQɺ(Y2)XQɺ(X2)YQ=(Y2):XQ=(X2):4000:II=II-1 )XQ=(X2):XS=((X2-XQ)*8+1) )YQ=(Y2):YS=((Y2-YQ)*8+1) 8(YS-1,(XS-1)*2)=83080 :(YS-1,(XS-1)*2)=1363080  3200 J6;1;YS-1,(XS-1)*2;144;145 II=II+1 IIɺ(WAR*8)3055  X2=X2-XINC:Y2=Y2-YINC 3YQɺ(Y2)XQɺ(X2)YQ=(Y2):XQ=(X2):4000 )XQ=(X2):XS=((X2-XQ)*8+1) )YQ=(Y2):YS=((Y2-YQ)*8+1) J6;1;YS-1,(XS-1)*2;144;145 5;17,0;"AUTOMATIC NAV-PUTER REPORT ";18,0;"WARP ENGINE SHOUT DOWN DUE TO ";19,0;"BAD NAVIGATION! ":3,10  cV(2)02;6;17,0;"HYPER DRIVE DAMAGED":.73333,1: gEN4002;6;1;21,0;"INSUFFICIENT ENERGY":.5,14: EN=EN-400 3350  0:0: .2~L,12  3370* ;i=037%:a1,a2,a3,a4:a2+28,a1:a4,a3:i "$23728\,7:23760\ #.6,13 $.10 :23728\,6:23760\ %.10 :23728\,4:23760\ &.10 :23728\,0:23760\ ) 20 *t96`,87W,20,2,133,106j,19,7,113q,102f,17,10 ,142,130,16,12 ,120x,118v,15,14,120x,124|,13 ,14,93],96`,11 ,17,124|,166,8,18,101e,129,7,19,101e,165,3,20 +86V,110n,-1,20,77M,168,-2,20,68D,127,-9 ,18,513,141,-11 ,17,21,147,-15,13 ,64@,101e,-17,11 ,38&,111o,-18,9 ,491,95_,-20,5,80P,87W,-19,0,27,84T,-19,0,27,84T,-19,-1,47/,82R,-20,-2,36$,70F,-19,-6 ,S74J,80P,-18,-9 ,579,63?,-16,-13 ,43+,35#,-13 ,-15,76L,68D,-10 ,-17,69E,32 ,-6,-19,82R,480,-3,-20,87W,34",1,-20,90Z,68D,3,-20,98b,568,7,-19,118v,20,8,-18,117u,47/,12 ,-15,101e,71G,13 ,-15,116t,63?,15,-12 ,92\,84T,17,-9 ,150,64@,18,-7,166,73I,19,-3 / 0: 4 3600 > 3800 C GI=1721:I,0;" ":I   9100#  J=0 I=14 $d(K(XQ,YQ,I,1)=XSK(XQ,YQ,I,2)=YS)(S(XQ,YQ,1)=XSS(XQ,YQ,2)=YS)J=1 .I 8J=13600 B 2:4000:4300:4500:4200h 96;1;YS-1,(XS-1)*2;""  *J=0:V(3)0J=1 JI=07:J;1;0;I,0;" ":I V(3)0  I=1 A(XQ,YQ,I,1)06;1;A(XQ,YQ,I,2)-1,(A(XQ,YQ,I,1)-1)*2;"*":I=I+1:I74005 7;2;9 ,13 ;"KLINGONS AT";10 ,13 ;"SCT ":I=11 16:1;I,13 ;" ":I  I=1 K(XQ,YQ,I,1)05;1;K(XQ,YQ,I,2)-1,(K(XQ,YQ,I,1)-1)*2;"";10 +I,13 ;K(XQ,YQ,I,1);",";K(XQ,YQ,I,2):I=I+1:I44008 NKSRS=I-1 xB(XQ,YQ,1)01;4;1;B(XQ,YQ,2)-1,(B(XQ,YQ,1)-1)*2;"" &S(XQ,YQ,1)04100  wS(XQ,YQ,3)=11;0;6;S(XQ,YQ,2)-1,(S(XQ,YQ,1)-1)*2;"" wS(XQ,YQ,3)=21;6;1;S(XQ,YQ,2)-1,(S(XQ,YQ,1)-1)*2;"O" nS(XQ,YQ,3)=32;1;S(XQ,YQ,2)-1,(S(XQ,YQ,1)-1)*2;""  xS(XQ,YQ,3)=51;6;1;S(XQ,YQ,2)-1,(S(XQ,YQ,1)-1)*2;"" xS(XQ,YQ,3)=71;6;1;S(XQ,YQ,2)-1,(S(XQ,YQ,1)-1)*2;"" 6 h76;2;0,17;" ENTERPRISE " lfV(4)0I=17:0;1;1;I,17;" ":I: oGI=17:0;1;I,17;" ":I plI=-11:1;6;1,25+I*4;XQ+I;5+2*I,18;YQ+I:I rI=-11 tJ=-11 vLX=XQ+J:LY=YQ+I x9LX1LX8LY1LY84250 zJ |I   S=0  4255  S=S+1 S=64256 0A(LX,LY,S+1,1)04252 G(LX,LY,3)=S G(LX,LY,1)=0 S=14 GK(LX,LY,S,1)0G(LX,LY,1)=G(LX,LY,1)+1 S 4B(LX,LY,1)0G(LX,LY,2)=1 v6;1;5+2*I,4*(2+J)+16;G(LX,LY,1);G(LX,LY,2);G(LX,LY,3)  K7;2+(NKSRS=0)*2;9 ,0;"STATUS RPT " і6;1;(STD+5TM);10 ,0;"STAR D.";0;" , ";10 ,9 -STD;6;1;STD;10 ,10 ;TM P6;1;11 ,0;"QUAD ";11 ,9 ;XQ;",";YQ P6;1;12 ,0;"SECT ";12 ,9 ;XS;",";YS (EN1000);6;1;13 ,0;"ENERGY";0;" ";13 ,12 -(EN);6;1;EN }(SH<500);1;6;14,0;"S