
 *NAME ** STAR TREK ** ô = ô This version altered and massaged into working order by( ô Matthew^2. March 19882 ô9< ô ****      Anglicised and tidied up for the     ****9F ô ****      Z88 USERS' CLUB SOFTWARE LIBRARY     ****9P ô ****      and lots of pretty bits added by     ****9Z ô ****             Ian Braby MRPharmS            ****9d ô ****       Software Librarian - June 1990      ****n ô 9x ô ****            **** STAR TREK ****            ****>‚ ô ****  Simulation of a mission of the starship ENTERPRISE-Œ ô ****  as seen on the Star Trek tv show.2– ô ****  Original program in Creative Computing-  ô ****  Basic Computer Games by Dave Ahl.7ھ ô ****  Modifications by Bob Fritz and Sharon Fritz@´ ô ****  for the IBM Personal Computer, October-November 1981B¾ ô ****  Bob Fritz, 9915 Caninito Cuadro, San Diego, Ca., 92129ب ô ****  (714) 484-2955ز ôـ غ;و ٌ"                                       _____________";ً ٌ"                     _____________    (____________/"2ْ ٌ"                     \___________/      / /"4ٌ"                          _\ \_________/ /___"4ٌ"                         {__________________/"Iٌ:ٌ ½(1)"B                   THE USS ENTERPRISE --- NCC-1701";½(1)"B"""Z$="                         "+,ق G(8,8),C(9,2),K(3,3),N(3),Z(8,8),D(8)>6T=¨(³(1)*20+20)*100:T0=T:T9=25+¨(³(1)*10):D0=0:E=3000:E0=E3@P=10:P0=P:S9=200:S=0:B9=0:K9=0:X$="":X0$=" is "*Jف ¤D(D)=¶((K(I,1)-S1)^2+(K(I,2)-S2)^2)Tف ¤R(R)=¨(³(R)*7.98+1.01)&^ô initialize enterprise's position'hQ1=¤R(1):Q2=¤R(1):S1=¤R(1):S2=¤R(1)#rم I=1 ¸ 9:C(I,1)=0:C(I,2)=0:ي I?|C(3,1)=-1:C(2,1)=-1:C(4,1)=-1:C(4,2)=-1:C(5,2)=-1:C(6,2)=-1B†C(1,2)=1:C(2,2)=1:C(6,1)=1:C(7,1)=1:C(8,1)=1:C(8,2)=1:C(9,2)=1گم I=1 ¸ 8:D(I)=0:ي I%ڑA1$="NAVSRSLRSPHATORSHEDAMCOMRES""¤ô set up what exists in galaxy,®ô k3=#klingons  b3=#starbases  s3=#stars-¸م I=1 ¸ 8:م J=1 ¸ 8:K3=0:Z(I,J)=0:R1=³(1)(آç R1>.9799999 Œ K3=3:K9=K9+3: ه چd`A#جç R1>.95 Œ K3=2:K9=K9+2: ه چd`Aضç R1>.8 Œ K3=1:K9=K9+1"àB3=0:ç ³(1)>.96 Œ B3=1:B9=B9+17êG(I,J)=K3*100+B3*10+¤R(1):ي J:ي I:ç K9>T9 Œ T9=K9+1ôç B9<>0 Œ چTRB2‏ç G(Q1,Q2)<200 Œ G(Q1,Q2)=G(Q1,Q2)+100:K9=K9+1/B9=1:G(Q1,Q2)=G(Q1,Q2)+10:Q1=¤R(1):Q2=¤R(1)&K7=K9:ç B9<>1 Œ X$="s":X0$=" are ""ٌ"Your orders are as follows:"&ٌ=0ٌ"Destroy the ";K9;" Klingon warships which have invaded"@:ٌ"the galaxy before they can attack Federation headquarters"EDٌ"on stardate ";T0+T9;"  this gives you ";T9;" days.  There ";X0$FNٌ "";B9;" starbase";X$;" in the galaxy for re-supplying your ship"Xٌbٌ "Press a key to start";lI=³(1):ç ¦(5)=-1 Œ چDlB(vô here any time new quadrant entered€غ@ٹZ4=Q1:Z5=Q2:K3=0:B3=0:S3=0:G5=0:D4=.5*³(1):Z(Q1,Q2)=G(Q1,Q2)&”ç Q1<1 „ Q1>8 „ Q2<1 „ Q2>8 Œ چTVC‍ن چdjP:ٌ:ç T0 <>T Œ چt|B5¨ٌ"Your mission begins with your starship located"9²ٌ"in the galactic quadrant ";G2$;".":MM=¦(200):ه چdPB)¼ٌ"Now entering ";G2$;" quadrant. . ."ئMM=¦(100)1ذٌ:K3=¨(G(Q1,Q2)*1E-2):B3=¨(G(Q1,Q2)*.1)-10*K3*عS3=G(Q1,Q2)-100*K3-10*B3:ç K3=0 Œ چTLC0نٌ ½(1)"B    COMBAT AREA!! Condition";½(1)"B":îٌ:ٌ ½(1)"F";½(1)"B               RED ";½(1)"B";½(1)"F"ّن چddQ:ç S>200 Œ چTLC2ٌ:ٌ ½(1)"B    SHIELDS DANGEROUSLY LOW";½(1)"B"#م I=1 ¸ 3:K(I,1)=0:K(I,2)=0:ي I;م I=1 ¸ 3:K(I,3)=0: ي I:Q$=Z$+Z$+Z$+Z$+Z$+Z$+Z$+ہZ$,17)A ô position enterprise in quadrant, then place "k3" klingons,&+*ô "b3" starbases &"s3" stars elsewhere.-4A$="<*>":Z1=S1:Z2=S2:ن چTXP:ç K3<1 Œ چDRC*>م I=1 ¸ K3:ن چdzO:A$="+K+":Z1=R1:Z2=R26Hن چTXP:K(I,1)=R1:K(I,2)=R2:K(I,3)=S9*(.5+³(1)):ي IRç B3<1 Œ چDpC+\ن چdzO:A$=">!<":Z1=R1:B4=R1:Z2=R2:B5=R2
fن چTXP5pم I=1 ¸ S3:ن چdzO:A$=" * ":Z1=R1:Z2=R2:ن چTXP:ي I
zن چdtK%„ç S+E>10 Œ ç E>10 „ D(7)=0 Œ چd@C/ژٌ ½(1)"B*** FATAL ERROR ***";½(1)"B":ن چddQEکٌ"You've just stranded your ship in space. You have insufficient">¢ٌ"manoeuvring energy, and Deflector Control is presently";@¬ٌ"incapable of cross-circuiting to the Engine Room!!":ه چDTK¶ôہٍCOMPASSتè ٹ70,7);"Command: "A$شغ.قم I=1 ¸ 9: ç ہA$,3)<> ءA1$,3*I-2,3) Œ چdrC6èî I ه چDVD,چDzC,چT\G,چt@G,چDfH,چtzI,چTTJ,چTLM,چDrK&ٍي I:ٌ"Enter one of the following:"üٌ"  NAV   (to set course)",ٌ"  SRS   (for short range sensor scan)"+ٌ"  LRS   (for long range sensor scan)" ٌ"  PHA   (to fire phasers)")$ٌ"  TOR   (to fire photon torpedoes)"*.ٌ"  SHE   (to raise or lower shields)"+8ٌ"  DAM   (for damage control reports)"4Bٌ"  COM   (to call on library-computer)";:ه چtDC Lô course control begins hereVٍCOMPASS:è"Course (1-8)";C1`ç C1>=1 € C1<9 Œ چDtDAjٌ"   Lt. Sulu reports,  'Incorrect course data, sir!'":ه چtDCtX$="8":ç D(1)<0 Œ X$="0.2":~ٌ"Warp factor(0-";X$;")";:è W1:ç D(1)<0 € W1>.2 Œ چtpDˆç W1>0 € W1<8 Œ چtzD’ç W1=0 Œ چtDCCœغ:ٌ:ٌ"   Chief Engineer Scott reports 'The engines won't take";!¦ٌ" warp ";W1;", Sir!'":ه چtDCA°ٌ"Warp engines are damaged.  Maximum speed = warp 0.2":ه چtDC ؛N=¨(W1*8+.5):ç E-N>=0 Œ چTJE;ؤٌ"Engineering reports   'Insufficient energy available"=خٌ"                       for manoeuvring at warp";W1;"!'"طç S<N-E „ D(7)<0 Œ چtDCAâٌ"Deflector Control Room acknowledges ";S;" units of energy" %ىٌ"presently deployed to shields."
ِه چtDC1 ô klingons move/fire on moving starship . . . 
م I=1 ¸ K3:ç K(I,3)=0 Œ چThE.A$="   ":Z1=K(I,1):Z2=K(I,2):ن چTXP:ن چdzO'K(I,1)=Z1:K(I,2)=Z2:A$="+K+":ن چTXP((ي I:ن چTDP:D1=0:D6=W1:ç W1>=1 Œ D6=12م I=1 ¸ 8:ç D(I)>=0 Œ چDdE8<D(I)=D(I)+D6:ç D(I)>-.1  € D(I)<0 Œ D(I)=-.1:ه  چDdEFç D(I)<0 Œ چDdE:Pç D1<>1 Œ D1=1:ٌ ½(1)"BDAMAGE CONTROL REPORT:";½(1)"B"1Zٌ ٹ8);:R1=I:ن چDTP:ٌ G2$;" Repair completed."dي I:ç ³(1)>.2 Œ چtjEnR1=¤R(1):ç ³(1)>=.6 Œ چtLEBxD(R1)=D(R1)-(³(1)*5+1):ٌ ½(1)"BDAMAGE CONTROL REPORT:";½(1)"B"$‚ن چDTP:ٌ G2$;" damaged":ٌ:ه چtjE@ŒD(R1)=D(R1)+³(1)*3+1:ٌ ½(1)"BDAMAGE CONTROL REPORT:";½(1)"B".–ن چDTP:ٌ G2$;" State of repair improved":ٌ ô begin moving starship&ھA$="   " :Z1=¨(S1):Z2=¨(S2):ن چTXP7´X1=C(C1,1)+(C(C1+1,1)-C(C1,1))*(C1-¨(C1)):X=S1:Y=S29¾X2=C(C1,2)+(C(C1+1,2)-C(C1,2))*(C1-¨(C1)):Q4=Q1:Q5=Q2Dبم I=1 ¸ N:S1=S1+X1:S2=S2+X2:ç S1<1 „ S1>=9 „ S2<1 „ S2>=9 Œ چD@F2زS8=¨(S1)*24+¨(S2)*3-26:ç ءQ$,S8,2)="  " Œ چdpE:ـS1=¨(S1-X1):S2=¨(S2-X2):ٌ"Warp engines shut down at ";:وٌ "sector ";S1;",";S2;" due to bad navigation.":ه چdzEًي I:S1=¨(S1):S2=¨(S2)ْA$="<*>"(Z1=¨(S1):Z2=¨(S2):ن چTXP:ن چdjF:T8=1ç W1<1 Œ T8=.1*¨(10*W1)T=T+T8:ç T>T0+T9 Œ چDTK$"ô see if docked then get command
,ه چDzC6ô exceeded quadrant limits@@X=8*Q1+X+N*X1:Y=8*Q2+Y+N*X2:Q1=¨(X/8):Q2=¨(Y/8):S1=¨(X-Q1*8)&JS2=¨(Y-Q2*8):ç S1=0 Œ Q1=Q1-1:S1=8Tç S2=0 Œ Q2=Q2-1:S2=8 ^X5=0:ç Q1<1 Œ X5=1:Q1=1:S1=1hç Q1>8 Œ X5=1:Q1=8:S1=8rç Q2<1 Œ X5=1:Q2=1:S2=1|ç Q2>8 Œ X5=1:Q2=8:S2=8†ç X5=0 Œ چdLF8گٌ"Lt. Uhura reports message from Starfleet Command:">ڑٌ"  'Permission to attempt crossing of galactic perimeter"7¤ٌ"   is hereby *DENIED*.  Shut down your engines.'";®ٌ"Chief Engineer Scott reports 'Warp engines shut down"<¸ٌ"   at sector ";S1;",";S2;" of quadrant ";Q1;",";Q2".'"آç T>T0 Œ چDTKجç 8*Q1+Q2=8*Q4+Q5 Œ چdzEضT=T+1:ن چdjF:ه چtJBàô manoeuvre energy s/r **êE=E-N-10:ç E>0 Œ ّ Côٌ"Deflector Control supplies energy to complete the manoeuvre."‏S=S+E:E=0:ç S<=0 Œ S=0ّ !ô long range sensor scan codeHç D(3)<0 Œ ٌ ½(1)"BLong Range Sensors are inoperable";½(1)"B":ه چtDC&غX0ٌ"Long Range Scan for Quadrant: ";Q1;",";Q2:ٌ:ٌ"ABC; A=Klingon B=Starbase C=Stars":ٌ:ô;Dم I=Q1-1 ¸ Q1+1:N(1)=-1:N(2)=-2:N(3)=-3:م J=Q2-1 ¸ Q2+1<Nç I>0 € I<9 € J>0 € J<9 Œ N(J-Q2+2)=G(I,J):Z(I,J)=G(I,J)3Xي J:م L=1 ¸ 3:ٌ": ";:ç N(L)<0 Œ ٌ"*** ";:ه چDlGbٌ آأ(N(L)+1000),3);" ";lي L:ٌ ":":ي I:ه چtDC%vô phaser control code begins here:€ç D(4)<0 Œ ٌ ½(1)"BPhasers Inoperative";½(1)"B":ه چtDCٹç K3>0 Œ چthGB”ٌ"Science Officer Spock reports  'Sensors show no enemy ships"?‍ٌ"                                in this quadrant'":ه چtDC3¨ç D(8)<0 Œ ٌ"Computer failure hampers accuracy"!²ٌ"Phasers locked on target:";%¼ٌ"Energy available = ";E;" units"1ئè"Numbers of units to fire: ";X:ç X<=0 Œ چtDCذç E-X<0 Œ چt|G%عE=E-X:ن چT`R:ç D(8)<0 Œ X=X*³(1) +نH1=¨(X/K3):م I=1 ¸ 3:ç K(I,3)<=0 Œ چDHH2îH=¨((H1/¤D(0))*(³(1)+2)):ç H>.15*K(I,3) Œ چTBHCّٌ"Sensors show no damage to enemy at ";K(I,1);",";K(I,2):ه چDHHKK(I,3)=K(I,3)-H:ٌ H;" unit hit on Klingon at sector ";K(I,1);",";K(I,2)ç K(I,3) > 0 Œ ه چTjHEٌ ٹ10);½(1)"F";½(1)"B**** KLINGON DESTROYED ****";½(1)"B";½(1)"F"
 ه چTtH:*ٌ"   (Sensors show ";K(I,3);" units remaining)":ه چDHH74K3=K3-1:K9=K9-1:Z1=K(I,1):Z2=K(I,2):A$="   ":ن چTXPC>K(I,3)=0:G(Q1,Q2)=G(Q1,Q2)-100:Z(Q1,Q2)=G(Q1,Q2):ç K9<=0 Œ چdBKHي I:ن چdHJ
Rه چtDC%\ô photon torpedo code begins hereBfç P<=0 Œ ٌ ½(1)"BAll photon torpedoes expended";½(1)"B":ه چtDCGpç D(5)<0 Œ ٌ ½(1)"BPhoton tubes are not operational";½(1)"B":ه چtDC.zٍCOMPASS:è"Photon torpedo course (1-8)";C1„ç C1>=1 € C1<9 Œ چtbH<ژٌ"Ensign Chekov reports,  'Incorrect course data, sir!'"
که چtDC9¢X1=C(C1,1)+(C(C1+1,1)-C(C1,1))*(C1-¨(C1)):E=E-2:P=P-17¬X2=C(C1,2)+(C(C1+1,2)-C(C1,2))*(C1-¨(C1)):X=S1:Y=S2¶غ:ٌ"Torpedo track:"'ہX=X+X1:Y=Y+X2:X3=¨(X+.5):Y3=¨(Y+.5)&تç X3<1 „ X3>8 „ Y3<1 „ Y3>8 Œ چtfI9شٌ"              ";X3;",";Y3:A$="   ":Z1=X:Z2=Y:ن چtxPقç Z3<>0 Œ چd@H+èA$="+K+":Z1=X:Z2=Y:ن چtxP:ç Z3=0 Œ چTdILٍٌ ٹ10);½(1)"F";½(1)"B**** KLINGON DESTROYED ****";½(1)"B";½(1)"F":ن چTBR"üK3=K3-1:K9=K9-1:ç K9<=0 Œ چdBK,	م I=1 ¸ 3:ç X3=K(I,1) € Y3=K(I,2) Œ چTZI	ي I:I=3	K(I,3)=0:ه چtRI+$	A$=" * ":Z1=X:Z2=Y:ن چtxP:ç Z3=0 Œ چTxIC.	ٌ"Star at ";X3;",";Y3;" absorbed torpedo energy.":ن چdHJ:ه چtDC+8	A$=">!<":Z1=X:Z2=Y:ن چtxP:ç Z3=0 Œ چDzHGB	ٌ:ٌ ٹ10);½(1)"F"; ½(1)"B*** STARBASE DESTROYED ***";½(1)"B";½(1)"F"L	B3=B3-1 : B9=B9-1V	ç B9>0 „ K9>T-T0-T9 Œ چD~IB`	ٌ"THAT DOES IT, CAPTAIN!!  You are hereby reliev%d of command"?j	ٌ"and sentenced to 99 stardates hard labour on CYGNUS 12!!"
t	ه چDrKH~	ٌ"Starfleet reviewing your record to consider a court martial!":D0=0ˆ	ô’	Z1=X:Z2=Y:A$="   ":ن چTXP<œ	G(Q1,Q2)=K3*100+B3*10+S3:Z(Q1,Q2)=G(Q1,Q2):ن چdHJ:ه چtDC#¦	ٌ"Torpedo missed":ن چdHJ:ه چtDC°	ô shield control @؛	ç D(7)<0 Œ ٌ ½(1)"BShield control inoperable";½(1)"B":ه چtDC@ؤ	ٌ"Energy available = ";E+S :è "Number of units to shields";X4خ	ç X<0 „ S=X Œ ٌ"     <shields unchanged>":ه چtDCط	ç X<E+S Œ چdvIHâ	ٌ"Deflector Control reports  'This is not the federation treasury.'"&ى	ٌ"     <shields unchanged>":ه چTpG1ِ	E=E+S-X:S=X:ٌ"Deflector Control Room report:"A 
ٌ"  'Shields now at ";¨(S);" units per your command.'":ه چtDC

ô damage control
ç D(6)>=0 Œ چtBJF
ٌ ½(1)"BDamage Control report not available";½(1)"B":ç D0=0 Œ چtDC%(
D3=0:م I=1 ¸ 8:ç D(I)<0 Œ D3=D3+12
ي I:ç D3=0 Œ چtDC$<
ٌ:D3=D3+D4:ç D3>=1 Œ D3=.9000001>F
ٌ"Technicians standing by to effect repairs to your ship;">P
ٌ"estimated time to repair: ";1E-2*¨(100*D3);" stardates."3Z
è"Will you authorize the repair order (Y/N)";A$d
ç A$<>"Y" Œ چtDCn
م I=1 ¸ 8:ç D(I)<0 Œ D(I)=0x
ي I:T=T+D3+.1C‚
ٌ:ٌ ½(1)"BDevice            state of repair";½(1)"B":م R1=1 ¸ 8Œ
ٌ-–
ن چDTP:ٌ G2$;:GG2$=ہZ$,25-©(G2$)):ٌ GG2$;  
GG2=¨(D(R1)*100)*1E-2:ٌ GG2;ھ
ي R1:ç D0<>0 Œ چThJ
´
ه چtDC¾
ô klingons shootingب
ç K3<=0 Œ ّ ;ز
ç D0<>0 Œ ٌ"Starbase shields protect the ENTERPRISE":ّ *ـ
ٌ"We're being fired on.....":MM=¦(200) و
م I=1 ¸ 3:ç K(I,3)<=0 Œ چD@K=ً
H=¨((K(I,3)/¤D(1))*(2+³(1))):S=S-H:K(I,3)=K(I,3)/(3+³(0))Iْ
ٌ ٹ10);½(1)"F";½(1)"B *** ENTERPRISE HIT! ***";½(1)"B";½(1)"F":ن چT~R@ٌ H;" unit hit on ENTERPRISE from sector ";K(I,1);",";K(I,2)ç S<=0 Œ چD^K7ٌ"     <shields down to ";S;" units>":ç H<20 Œ چD@K"ç ³(1)>.6 „ H/S<=.02 Œ چD@K+,R1=¤R(1):D(R1)=D(R1)-H/S-.5*³(1):ن چDTP;6ٌ"Damage Control reports  '";G2$;" damaged by the hit'"
@ي I:ّ Jô end of gameTٌ"It is stardate ";T:ه چDrKf^ٌ:ٌ ½(1)"BThe ENTERPRISE has been destroyed.";½(1)"B";"  The Federation will be conquered.":ه چDTKhôQrٌ"There were ";K9;" Klingon battle cruisers left at the end of your mission."|ô†MM=¦(200)گٌ:ç B9=0 Œ چtxKUڑٌ"The Federation is in need of a new starship commander for a similar mission --"¤ô_®è"if there is a volunteer, let him or her step forward and enter 'AYE': ";A$:ç A$="AYE" Œ ù¸àQآٌ ½(1)"BCongratulations, Captain!";½(1)"B";" The last Klingon battle cruiser"4جٌ"menacing the Federation has been destroyed.":ٌ;ضٌ"Your efficiency rating is ";1000*(K7/(T-T0))^2:ه چtPK3àô short range sensor scan & start-up subroutineêMM=¦(200)(ôMM=£:م I=S1-1 ¸ S1+1:م J=S2-1 ¸ S2+1:‏ç ¨(I+.5)<1 „ ¨(I+.5)>8 „ ¨(J+.5)<1 „ ¨(J+.5)>8 Œ چT\LA$=">!<""Z1=I:Z2=J:ن چtxP:ç Z3=1 Œ MM=¹ي J:ي I&ç MM=¹ Œ ه چTzL0D0=0:ه چDNL:D0=1:C$="DOCKED":E=E0:P=P06Dٌ"Shields dropped for docking purposes":S=0:ه چDbLANç K3>0 Œ C$=½(1)+"F"+½(1)+"B* RED *"+½(1)+"B"+½(1)+"F":ه چDbL&XC$="GREEN":ç E<E0*.1 Œ C$="YELLOW"bç D(2)>=0 Œ چDvLAlغ:ٌ:ٌ ½(1)"B*** Short Range Sensors are out ***";½(1)"B":ٌ:ّ vم I=1 ¸ 8$€م J=(I-1)*24+1 ¸ (I-1)*24+22 ˆ 3ٹQQ$=ءQ$,J,3):ٌ " ";QQ$;:ي J1”î I ه چt^L,چt|L,چdFL,چdPL,چdZL,چddL,چdnL,چdxL‍ô¨TT=T*10:TT=¨(TT)*.1,²ٌ"        Stardate           ";TT:ه چTBM,¼ٌ"        Condition          ";C$:ه چTBM3ئٌ"        Quadrant           ";Q1;",";Q2:ه چTBM3ذٌ"        Sector             ";S1;",";S2:ه چTBM.عٌ"        Photon torpedoes   ";¨(P):ه چTBM0نٌ"        Total energy       ";¨(E+S):ه چTBM.îٌ"        Shields            ";¨(S):ه چTBM*ّٌ"        Klingons remaining ";¨(K9); 	ي I:ّô library computer codeCM1$="GALSTATORBASDIRREG"8 ç D(8)<0 Œ ٌ ½(1)"BComputer Disabled";½(1)"B":ه چtDC4*è"Computer active and awaiting command";CM$:H8=14غ>م K= 1 ¸ 6$Hç ہCM$,3)<>ءCM1$,3*K-2,3) Œ چD\M'Rî K ه چdJM,چDjN,چdDN,چdHO,چT@O,چtvM\ي K1fٌ"Functions available from library-computer:"-pٌ"   GAL RCD = Record of charted sectors"!zٌ"   STATUS  = Status report"'„ٌ"   TOR DATA= Photon torpedo data",ژٌ"   BASE NAV= Starbase navigation data"4کٌ"   DIR/DIST=Direction and distance calculator"0¢ٌ"   REG MAP =Galaxy region name map":ه چTjM2¬ô setup to change cum gal record to galaxy map:¶H8=0:G5=1:ٌ"                        the galaxy":ه چd|Mہô cum galactic record"تô This was a hardcopy routine!شô This was the rest of it!قٌ:ٌ"            ";8èٌ "Computer record of galaxy for quadrant";Q1;",";Q2ٍٌ:üٌ"       1     2     3     4     5      6    7      8"م I=1 ¸ 8:ٌٌ " ";I;:ç H8=0 Œ چTxN1م J=1 ¸ 8:ٌ"   ";:ç Z(I,J)=0 Œ ٌ"***";:ه چTnN$ٌ آأ(Z(I,J)+1000),3);.ي J:ه چDLN38Z4=I:Z5=1:ن چdjP:J0=¨(15-.5*©(G2$)):ٌ ٹJ0);G2$;.BZ5=5:ن چdjP:J0=¨(39-.5*©(G2$)):ٌ ٹJ0);G2$;Lي I
Vه چtDC`ô status report:jٌ ½(1)"BStatus Report: ";½(1)"B":X$="":ç K9>1 Œ X$="s"tٌ"Klingon";X$;" left: ";K9E~ٌ"Mission must be completed in ";.1*¨((T0+T9-T)*10);" stardates."'ˆX$="s":ç B9<2 Œ X$="":ç B9<1 Œ چtfNI’ٌ"The federation is maintaining ";B9;" starbase";X$;" in the galaxy."
œه چtDC1¦ٌ"Your stupidity has left you on your own in"7°ٌ"the galaxy -- you have no starbases left!":ه چTTJ'؛ô torpedo, base nav, d/d calculatorؤç K3<=0 Œ چtTGخX$="":ç K3>1 Œ X$="s"3طٌ"From ENTERPRISE to Klingon battle cruiser";X$%âH8=0:م I=1 ¸ 3:ç K(I,3)<=0 Œ چt~OىW1=K(I,1):X=K(I,2)ِC1=S1:A=S2:ه چThO& ٌ "Direction/Distance Calculator:":
ٌ"You are at quadrant ";Q1;",";Q2;" sector ";S1;",";S2?ٌ"Please enter:";:è ٹ15);"Initial Co-ordinates (x,y): "C1,A-è ٹ15);"  Final Co-ordinates (x,y): "W1,X(X=X-A: A=C1-W1:ç X<0 Œ چDxO2ç A<0 Œ چtLO<ç X>0 Œ چDPOFç A=0 Œ C1=5:ه چDZOPC1=1Zç ”(A)<=”(X) Œ چDnO7dٌ"Direction = ";C1+(((”(A)-”(X))+”(A))/”(A)):ه چttO)nٌ"Direction = ";C1+(”(A)/”(X)):ه چttOxç A>0 Œ C1=3:ه چtVO‚ç X<>0 Œ C1=5:ه چDZOŒC1=7–ç ”(A)>=”(X) Œ چtjO7 ٌ"Direction = ";C1+(((”(X)-”(A))+”(X))/”(X)):ه چttO-ھٌ"Direction = ";:CC1=C1+(”(X)/”(A)):ٌ CC1+´ٌ"Distance = ";¶(X^2+A^2):ç H8=1 Œ چtDC¾ي I:ه چtDC9بç B3<>0 Œ ٌ"From ENTERPRISE to Starbase: ":W1=B4:X=B5
زه چdvNNـٌ"Mr. Spock reports, 'Sensors show no starbases in this quadrant.'":ه چtDCوô/ًô find empty place in quadrant (for things)?ْR1=¤R(1):R2=¤R(1):A$="   ":Z1=R1:Z2=R2:ن چtxP:ç Z3=0 Œ چdzOّ )ô insert in string array for quadrantS8=¨(Z2-.5)*3+¨(Z1-.5)*24+1"ç ©(A$)<>3 Œ ٌ"ERROR":ْ,ç S8=1 Œ Q$=A$+آQ$,189):ّ  6ç S8=190 Œ Q$=ہQ$,189)+A$:ّ "@Q$=ہQ$,S8-1)+A$+آQ$,190-S8):ّ Jô prints device name2Tî R1 ه چD^P,چDhP,چDrP,چD|P,چtFP,چtPP,چtZP,چtdP^G2$="Warp Engines":ّ  hG2$="Short Range Sensors":ّ rG2$="Long Range Sensors":ّ |G2$="Phaser Control":ّ †G2$="Photon Tubes":ّ گG2$="Damage Control":ّ ڑG2$="Shield Control":ّ ¤G2$="Library-Computer":ّ )®ô string comparison in quadrant array8¸Z1=¨(Z1+.5):Z2=¨(Z2+.5):S8=(Z2-1)*3+(Z1-1)*24+1:Z3=0آç ءQ$,S8,3)<>A$ Œ ّ جZ3=1:ّ .ضô quadrant name in g2$ from z4,z5 (=q1,q2),àô call with g5=1 to get region name only<êç Z5<+4 Œ î Z4 ه چd~P,چTHQ,چTRQ,چT\Q,چTfQ,چTpQ,چTzQ,چDDQ
ôه چDNQ‏G2$="Antares":ه چthQG2$="Rigel":ه چthQG2$="Procyon":ه چthQG2$="Vega":ه چthQ&G2$="Canopus":ه چthQ0G2$="Altair":ه چthQ:G2$="Sagittarius":ه چthQDG2$="Pollux":ه چthQ2Nî Z4 ه چDXQ,چDbQ,چDlQ,چDvQ,چt@Q,چtJQ,چtTQ,چt^QXG2$="Sirius":ه چthQbG2$="Deneb":ه چthQlG2$="Capella":ه چthQvG2$="Betelgeuse":ه چthQ€G2$="Aldebaran":ه چthQٹG2$="Regulus":ه چthQ”G2$="Arcturus":ه چthQ‍G2$="Spica"<¨ç G5<>1 Œ î Z5 ه چt|Q,چdFQ,چdPQ,چdZQ,چt|Q,چdFQ,چdPQ,چdZQ²ّ ¼G2$=G2$+" i":ّ ئG2$=G2$+" ii":ّ ذG2$=G2$+" iii":ّ عG2$=G2$+" iv":ّ نô   red alert sound#îï 7:MM=¦(100):ï 7:MM=¦(100):ï 7ّّ ô   torpedo soundï 7ّ  ô    phaser sound*ï 74ّ >ô           alarm soundHï 7Rّ \àfف ٍCOMPASSpٌ ٹ75,0);½(1)"B3";½(1)"B"!zٌ ٹ73,1);½(1)"B4 | 2";½(1)"B"#„ٌ ٹ72,2);½(1)"B5--+--1";½(1)"B"!ژٌ ٹ73,3);½(1)"B6 | 8";½(1)"B"کٌ ٹ75,4);½(1)"B7";½(1)"B"¢ل ےے