Home » Archimedes archive » Micro User » MU 1990-10.adf » PD-Stuff » !StarTrek/StarTrek
!StarTrek/StarTrek
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Archimedes archive » Micro User » MU 1990-10.adf » PD-Stuff |
| Filename: | !StarTrek/StarTrek |
| Read OK: | ✔ |
| File size: | 98AC bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
0REM > StarTrek
10REM Adapted for the BBC computer by T.E.Kennington, Nov 1983;
20REM Revised for Archimedes, Aug 1988 by Les Hurst, Bournemouth.
30REM Graphically Adapted/Rewritten by Alex Hopkins
40REM November 88 - March 89. {RISC OS update September 1989}
50REM Version G/1.5
60:
70MODE 12 : OFF
80ON ERROR PROCerror : END
90:
100PROCcolours : PROCspriteLoad : PROCsetup
110:
120REPEAT
130PROCinit
140PROCenergyBanks
150PROCupdateTime
160PROCintro
170PROCquadBuild
180PROCupdatePos
190PROCshortRangeScan
200REPEAT
210OSCLI "FX 21 9" : V%+=1
220PROCcondition
230PROCcommand
240IF D%=0 THEN
250 : Z=RND(1)
260 : IF Z>.998 AND NEU%=FALSE THEN PROCneutron : GOTO 310
270 : IF Z>.996 AND DIL%=FALSE THEN PROCdilithium : GOTO 310
280 : IF Z>.99 AND MYS%=FALSE THEN PROCmystery : GOTO 310
290 : IF Z>0.98 THEN PROCnova : GOTO 310
300 : IF Z<.5 AND V%>Z% THEN PROCprobeReturn
310ENDIF
320IF E<1 AND S<1 AND NOT Dead% THEN PROCdead(1)
330IF S<1 THEN S=0
340UNTIL Dead%
350UNTIL FALSE
360END
370:
380DEF PROCquadBuild
390X=G(Q1,Q2)*.01 : Z(Q1,Q2)=G(Q1,Q2)
400K3=INT(X) : B3=INT((X-K3)*10)
410S3=G(Q1,Q2)-INT(G(Q1,Q2)*.1)*10
420Q$()="" : FOR I%=1 TO 3 : K(I%,1)=0 : K(I%,2)=0 : K(I%,3)=0 : NEXT
430Q$(S1,S2)="enterprise"
440IF K3>0 THEN
450 : FOR I%=1 TO K3
460 : PROCrnd : Q$(R1,R2)="klingon"
470 : K(I%,1)=R1 : K(I%,2)=R2 : K(I%,3)=S9+RND(35)
480 : NEXT
490ENDIF
500IF B3>0 THEN
510 : PROCrnd : Q$(R1,R2)="starbase"
520ENDIF
530IF S3>0 THEN
540 : FOR I%=1 TO S3
550 : PROCrnd : Q$(R1,R2)="star"
560 : NEXT
570ENDIF
580PROCbaseCheck
590ENDPROC
600:
610DEF PROCcommand
620L%=0 : L%=FNmouse
630:
640CASE L% OF
650WHEN 0 : PROCclear(3) : PROCcommandInfo : ENDPROC
660WHEN 1 : PROCdamageReport
670WHEN 2 : PROCstatusReport
680WHEN 3 : PROCinstruct
690WHEN 4 : PROCshortRangeScan
700WHEN 5 : PROCcomputerMap
710WHEN 6 : PROClongRangeScan
720WHEN 7 : PROChyperProbe
730WHEN 8 : PROCphasors
740WHEN 9 : PROCscannerInfo
750WHEN 10 : PROCtorpedoes
760WHEN 11 : PROCphotonAim
770WHEN 12 : PROCdeflector
780WHEN 13 : PROCnavigation
790WHEN 14 : PROCcourseCalculator
800ENDCASE
810IF Dead% THEN ENDPROC
820IF K3>0 AND RND(2)=1 THEN PROCattack
830IF Dead% THEN ENDPROC
840IF V% MOD 4=0 THEN PROCreport
850ENDPROC
860:
870DEF FNmouse
880LOCAL x,y,but
890REPEAT : MOUSE x,y,but : UNTIL but
900IF y>116 AND y<216 THEN
910IF x>24 AND x<96 THEN L%=1
920IF x>96 AND x<168 THEN L%=2
930IF x>168 AND x<250 THEN L%=3
940ENDIF
950IF y>248 AND y<316 THEN
960IF x>288 AND x<360 THEN L%=4
970IF x>360 AND x<432 THEN L%=5
980IF x>432 AND x<504 THEN L%=6
990IF x>504 AND x<576 THEN L%=7
1000IF x>616 AND x<688 THEN L%=8
1010IF x>696 AND x<768 THEN L%=9
1020IF x>776 AND x<848 THEN L%=10
1030IF x>856 AND x<928 THEN L%=11
1040IF x>936 AND x<1008 THEN L%=12
1050IF x>1068 AND x<1140 THEN L%=13
1060IF x>1188 AND x<1260 THEN L%=14
1070ENDIF
1080=L%
1090:
1100DEF PROCnavigation
1110PROCclear(5)
1120IF D(10)<0 THEN
1130 : PROCfont(1084,228,1,"NAVCOMP")
1140 : PROCfont(1084,192,1,"DISABLED")
1150 : ENDPROC
1160ENDIF
1170IF D(7)<0 THEN
1180 : PROCprinter(2,"R","WARP DRIVE DISABLED ... MAX IMPULSE - 0.2")
1190ENDIF
1200PROCfont(1084,228,8,"HEADING")
1210C1=FNinput(1084,192,1100,192,3,":",4) : PROCclear(5)
1220PROCfont(1084,228,8,"WARP")
1230W1=FNinput(1084,192,1100,192,3,":",4) : PROCclear(5)
1240IF D(7)<0 AND W1>.2 THEN GOTO 1110
1250C1=C1+1 : IF C1=9 THEN C1=1
1260IF C1>9 OR C1<1 OR W1>8 OR W1<.1 THEN
1270 : PROCclear(5) : ENDPROC
1280ENDIF
1290IF D%=1 AND W1>.9 THEN
1300 : PROCprinter(1,"B","DOCKED AT STARBASE .....")
1310 : PROCprinter(2,"Y","NO WARP AVAILABLE WHILST DOCKED .....")
1320 : GOTO 1110
1330ENDIF
1340N=INT((W1+.0625)*8)
1350IF E-N<1 THEN
1360 : PROCprinter(2,"R","INSUFFICIENT ENERGY FOR WARP .....")
1370 : IF E<=0 AND S<=0 THEN
1380 : PROCspace : PROCdead(1) : ENDPROC
1390ELSE : PROCspace : PROCclear(5) : PROCclear(6) : ENDPROC
1400ENDIF
1410ENDIF
1420Q$(S1,S2)="" : X=S1 : Y=S2 : PROCXY
1430IF W1>=1 THEN
1440 : PROCprinter(2,"G","WARP ENGINES ACTIVATED .....")
1450ENDIF
1460PROCupdateBanks
1470I%=0 : REPEAT
1480S1=S1+X1 : S2=S2+X2
1490IF S1<1 OR S1>8 OR S2<1 OR S2>8 THEN
1500 : X=Q1*8+X+X1*N : Y=Q2*8+Y+X2*N
1510 : Q1=INT(X/8) : Q2=INT(Y/8)
1520 : S1=INT(X-Q1*8) : S2=INT(Y-Q2*8)
1530 : IF S1=0 THEN Q1=Q1-1 : S1=8
1540 : IF S2=0 THEN Q2=Q2-1 : S2=8
1550 : T=T+1 : E=E-N+5
1560 : IF T>T8 THEN PROCdead(2) : ENDPROC
1570 : PROCnewQuadrant : ENDPROC
1580ENDIF
1590IF Q$(S1,S2)="" THEN
1600 : I%=I%+1 : UNTIL I%>=N
1610ELSE : S1=INT(S1-X1) : S2=INT(S2-X2) : PROCclear(3)
1620 : IF W1<1 THEN
1630 : PROCtext(308,608,"R","IMPULSE DRIVE SHUT DOWN")
1640ELSE : PROCtext(308,608,"R","WARP ENGINES SHUT DOWN")
1650ENDIF
1660 : PROCtext(308,556,"R","AT SECTOR "+STR$(S2)+"."+STR$(S1)+" DUE TO BAD")
1670 : PROCtext(308,504,"R","NAVIGATION .....") : W=INKEY(200)
1680ENDIF
1690S1=INT(S1+.5) : S2=INT(S2+.5) : Q$(S1,S2)="enterprise"
1700E=E-N : T=(INT(10*T+1.1))/10 : IF W1<1 THEN 1720
1710T=(INT(10*T+9))/10
1720IF T>T0+T9 THEN PROCdead(2)
1730PROCbaseCheck : PROCshortRangeScan
1740PROCclear(5) : PROCclear(6)
1750ENDPROC
1760:
1770DEF PROCnewQuadrant
1780PROCclear(1) : PROCclear(6)
1790PROCprinter(1,"W","NOW ENTERING QUADRANT "+STR$(Q2)+"."+STR$(Q1)+" SECTOR "+STR$(S2)+"."+STR$(S1)+" .....")
1800IF Q1<1 OR Q1>8 OR Q2<1 OR Q2>8 THEN
1810 : PROCclear(6)
1820 : IF Q1>9 THEN Q1=9
1830 : IF Q2>9 THEN Q2=9
1840 : IF Q1<0 THEN Q1=0
1850 : IF Q2<0 THEN Q2=0
1860 : PROCprinter(2,"Y","YOU HAVE STRAYED OUTSIDE OPERATIONS REGION")
1870 : W=INKEY(80) : PROCprinter(2,"Y","NO CHARTS HELD .....")
1880ENDIF
1890PROCquadBuild : PROCbaseCheck
1900PROCshortRangeScan : PROCupdatePos : PROCclear(1) : PROCclear(6)
1910IF G(Q1,Q2)=-1 THEN PROCsuperNova
1920ENDPROC
1930:
1940DEF PROCnoKlingons
1950PROCclear(1) : PROCclear(4) : PROCclear(6)
1960PROCfont(624,228,8,"SENSORS REPORT NO")
1970PROCfont(624,192,8,"KLINGONS IN THIS")
1980PROCfont(624,156,8,"QUADRANT .....")
1990ENDPROC
2000:
2010DEF PROCphasors
2020IF K3<1 THEN
2030 : PROCnoKlingons : ENDPROC
2040ENDIF
2050PROCclear(4) : PROCclear(6)
2060IF D(9)<0 THEN
2070 : PROCfont(624,228,1,"COMBAT COMPUTER")
2080 : PROCfont(624,192,1,"IS DOWN .....")
2090 : ENDPROC
2100ENDIF
2110IF D(4)<0 THEN
2120 : PROCfont(624,228,1,"PHASORS ARE DOWN!")
2130 : ENDPROC
2140ENDIF
2150PROCfont(624,228,8,"ENERGY BANKS HAVE")
2160PROCfont(624,192,8,STR$(E)+" UNITS USABLE -")
2170X=FNinput(624,156,900,156,3,"UNITS TO FIRE:",4)
2180IF X<1 THEN ENDPROC
2190IF E-X<0 THEN
2200 : PROCprinter(2,"R","INSUFFICENT ENERGY FOR PHASOR SHOT .....")
2210 : PROCspace : GOTO 2050
2220ENDIF
2230E=E-X : PROCupdateBanks : PROCclear(4)
2240PROCprinter(2,"Y","PHASOR STRIKE REPORT:") : W=INKEY(40)
2250FOR I%=1 TO 3
2260IF K(I%,3)<=0 THEN 2360
2270H=INT(X/K3/(FND(0)/2)) : K(I%,3)=K(I%,3)-H
2280PROCprinter(2,"Y",STR$(H)+" UNIT HIT IN SECTOR "+STR$(K(I%,2))+"."+STR$(K(I%,1))+" .....")
2290W=INKEY(40)
2300IF K(I%,3)<=0 THEN
2310 : PROCklingonWipe(Y-52)
2320 : IF K9<=0 THEN PROCdead(4) : ENDPROC
2330ELSE : PROCprinter(2,"Y","TARGET HAS "+STR$(K(I%,3))+" UNITS REMAINING ...")
2340ENDIF
2350W=INKEY(40)
2360NEXT
2370PROCshortRangeScan : PROCclear(1) : PROCclear(6)
2380IF E<1 AND S<1 THEN PROCdead(1)
2390ENDPROC
2400:
2410DEF PROCtorpedoes
2420IF K3<1 THEN
2430 : PROCnoKlingons : ENDPROC
2440ENDIF
2450PROCclear(4)
2460IF D(9)<0 THEN
2470 : PROCfont(624,228,1,"COMBAT COMPUTER")
2480 : PROCfont(624,192,1,"IS DOWN .....")
2490 : ENDPROC
2500ENDIF
2510IF P=0 THEN
2520 : PROCfont(624,228,1,"ALL TORPEDOES")
2530 : PROCfont(624,192,1,"EXPENDED .....")
2540 : ENDPROC
2550ENDIF
2560IF D(5)<0 THEN
2570 : PROCfont(624,228,1,"PHOTON TUBES ARE")
2580 : PROCfont(624,192,1,"DAMAGED .....")
2590 : ENDPROC
2600ENDIF
2610PROCfont(624,228,3,"FIRE BEARING (0-7)")
2620C1=FNinput(624,192,648,192,3,":",4)
2630C1=C1+1 : IF C1>9 THEN ENDPROC
2640PROCfireTorpedoes
2650ENDPROC
2660:
2670DEF PROCfireTorpedoes
2680F%=0 : PROCXY
2690X=S1 : Y=S2 : P=P-1 : PROCfont(624,156,8,"TORPEDO TRACK")
2700X=X+X1 : Y=Y+X2 : W=INKEY(25)
2710IF X<1 OR X>8 OR Y<1 OR Y>8 THEN
2720 : PROCclear(4) : PROCprinter(2,"Y","TORPEDO MISSED .....")
2730 : ENDPROC
2740ENDIF
2750x$=STR$(INT(X+.5)) : y$=STR$(INT(Y+.5))
2760GCOL 0 : RECTANGLE FILL 920,124,64,32
2770PROCfont(920,156,3,y$+"."+x$)
2780IF INT(X+.25)<>INT(X+.75) THEN 2700
2790IF INT(Y+.25)<>INT(Y+.75) THEN 2700
2800Z1=INT(X+.5) : Z2=INT(Y+.5)
2810A$="" : PROCcheck : IF Z3<>0 THEN 2700
2820A$="klingon" : PROCcheck : IF Z3<>0 THEN
2830 : PROCclear(4) : PROCprinter(2,"R","TARGET KLINGON DESTROYED .....")
2840 : K3=K3-1 : K9=K9-1
2850 : IF K9<=0 THEN PROCdead(4) : ENDPROC
2860 : FOR I%=1 TO 3
2870 : IF Z1<>K(I%,1) THEN 2900
2880 : IF Z2=K(I%,2) THEN K(I%,3)=0 : Q$(Z1,Z2)=""
2890 : G(Q1,Q2)=K3*100+B3*10+S3 : Z(Q1,Q2)=G(Q1,Q2)
2900 : NEXT : PROCshortRangeScan : ENDPROC
2910ELSE : A$="star" : PROCcheck
2920ENDIF
2930IF Z3<>0 THEN
2940 : PROCclear(4) : PROCprinter(2,"Y","STAR ABSORBED TORPEDO .....")
2950 : IF RND(1)>.8 THEN PROCdead(5)
2960 : ENDPROC
2970ELSE : A$="starbase" : PROCcheck
2980ENDIF
2990IF Z3=0 THEN GOTO 2700
3000ENDIF
3010PROCclear(4) : PROCprinter(2,"B","STARBASE DESTROYED .....") : W=INKEY(80)
3020PROCprinter(2,"Y","YOU WILL APPEAR BEFOR A COURT MARSHALL .....")
3030W=INKEY(40) : PROCprinter(2,"Y","IF YOU SURVIVE THE MISSION .....")
3040B3=B3-1 : B9=B9-1 : Q$(Z1,Z2)=""
3050G(Q1,Q2)=K3*100+B3*10+S3 : Z(Q1,Q2)=G(Q1,Q2)
3060IF E<1 THEN PROCdead(1)
3070ENDPROC
3080:
3090DEF PROCdeflector
3100PROCclear(4)
3110IF D(6)<0 THEN
3120 : PROCfont(624,228,1,"DEFLECTORS ARE")
3130 : PROCfont(624,192,1,"OUT OF ACTION ..")
3140 : ENDPROC
3150ENDIF
3160PROCfont(624,228,8,"ENERGY BANKS "+STR$(E))
3170PROCfont(624,192,5,"DEFLECTOR AT "+STR$(S))
3180X=FNinput(624,156,800,156,3,"SET TO:",4)
3190IF X>E+S THEN
3200PROCclear(4)
3210 : PROCprinter(2,"Y","INSUFFICENT ENERGY FOR SETTING .....")
3220 : W=INKEY(80) : GOTO 3100
3230ENDIF
3240W=INKEY(15) : PROCclear(4)
3250IF X<=1 OR X=S THEN
3260 : PROCfont(624,228,8,"DEFLECTORS STILL")
3270 : PROCfont(624,192,8,"UNCHANGED AT "+STR$(S))
3280ELSE : E=E+S-X : S=X : PROCupdateBanks
3290 : PROCfont(624,228,8,"DEFLECTORS STABLE")
3300 : PROCfont(624,192,8,"AT "+STR$(S)+" UNITS.")
3310ENDIF
3320PROCclear(1) : PROCclear(6)
3330ENDPROC
3340:
3350DEF PROCdamageReport
3360LOCAL A,B,C,Y,A$ : PROCclear(2)
3370IF D(8)<0 THEN
3380 : PROCfont(32,748,1,"SYSTEMS")
3390 : PROCfont(32,708,1,"STATUS")
3400 : PROCfont(32,668,1,"IS DOWN")
3410 : ENDPROC
3420ENDIF
3430Y=748 : RESTORE 3530
3440FOR A=1 TO 12
3450IF A=4 OR A=7 OR A=9 OR A=11 THEN Y-=4
3460READ B,A$ : PROCfont(32,Y,B,A$)
3470C=D(A)+4 : IF C<1 THEN 3520
3480IF C<4 THEN
3490 : PROCfont(64,Y,1,STRING$(C,"_"))
3500ELSE : PROCfont(64,Y,B,STRING$(C,"_"))
3510ENDIF
3520Y-=40 : NEXT
3530DATA 8,"S",8,"L",8,"H",2,"P",2,"T",2,"D"
3540DATA 3,"W",3,"D",5,"C",5,"N",6,"C",6,"L"
3550ENDPROC
3560:
3570DEF PROCklingonWipe(Y)
3580PROCprinter(2,"R","TARGET KLINGON DESTROYED .....")
3590K3=K3-1 : K9=K9-1 : Z1=K(I%,1) : Z2=K(I%,2) : Q$(Z1,Z2)=""
3600G(Q1,Q2)=K3*100+B3*10+S3 : Z(Q1,Q2)=G(Q1,Q2)
3610ENDPROC
3620:
3630DEF PROCattack
3640IF K3=0 THEN ENDPROC
3650k$="S ARE" : IF K3=1 THEN k$=" IS"
3660IF D%=1 THEN
3670 : PROCprinter(1,"R",STR$(K3)+" KLINGON"+k$+" ATTACKING .....")
3680 : PROCprinter(2,"Y","STARBASE SHIELDS PROTECT YOUR VESSEL .....")
3690 : ENDPROC
3700ENDIF
3710PROCprinter(1,"R",STR$(K3)+" KLINGON"+k$+" ATTACKING .....")
3720FOR I%=1 TO 3 : IF K(I%,3)<=0 THEN GOTO 3880
3730H=INT(K(I%,3)/FND(0)*RND(8))
3740PROCprinter(2,"Y",STR$(H)+" UNIT HIT FROM SECTOR "+STR$(K(I%,2))+"."+STR$(K(I%,1))+" .....")
3750SS=S-H : IF SS<0 THEN
3760 : E+=SS : H-=S : S=0
3770 : IF H<0 THEN H=0
3780ELSE : S=SS : H=0
3790ENDIF
3800W=INKEY(40) : PROCupdateBanks
3810IF S<=0 THEN
3820 : PROCprinter(2,"R","DEFLECTOR SHIELDS ARE DOWN .....")
3830 : IF E<0 THEN PROCspace : PROCdead(3) : ENDPROC
3840ELSE : PROCprinter(2,"G","SHIELDS STEADY AT "+STR$(S)+" UNITS .....")
3850ENDIF
3860W=INKEY(40)
3870PROCdamage : PROCmove
3880NEXT : PROCclear(1) : PROCshortRangeScan
3890ENDPROC
3900:
3910DEF PROCdamage
3920IF H<100 AND S>0 THEN ENDPROC
3930R1=INT(RND(12))
3940IF S>0 THEN
3950 : D(R1)=D(R1)-INT(RND(2)+1)
3960ELSE : IF H<100 THEN
3970 : D(R1)=D(R1)-INT(RND(2)+2)
3980ELSE : D(R1)=D(R1)-INT(RND(5)+2)
3990ENDIF
4000ENDIF
4010PROCprinter(2,"Y",D$(R1)+" SUSTAINED DAMAGE .....")
4020IF H>1000 THEN
4030 : R1=INT(RND(12))
4040 : IF S>0 THEN
4050 : D(R1)=D(R1)-INT(RND(2)+2)
4060ELSE : D(R1)=D(R1)-INT(RND(5)+2)
4070ENDIF
4080W=INKEY(40) : PROCprinter(2,"Y",D$(R1)+" SUSTAINED DAMAGE .....")
4090ENDIF
4100PROCdamageReport
4110ENDPROC
4120:
4130DEF PROCdead(a)
4140PROCclear(3)
4150PROCprinter(1,"Y","YOUR MISSION HAS ENDED .....")
4160PROCtext(308,708,"B","STARTREK: THE GAME -")
4170CASE a OF
4180WHEN 1 : PROCtext(308,652,"W","THE ENTERPRISE IS DEAD")
4190 : PROCtext(308,604,"W","IN SPACE - YOU WILL")
4200 : PROCtext(308,556,"W","SUFFER A SLOW COLD DEATH")
4210 : PROCtext(308,508,"W","AS LIFE SUPPORT FAILS!")
4220WHEN 2 : PROCtext(308,652,"W","IT IS NOW SD "+STR$(T)+" AND")
4230 : PROCtext(308,604,"W","YOUR TIME HAS RUN OUT!")
4240WHEN 3 : PROCtext(308,652,"Y","THE ENTERPRISE HAS BEEN")
4250 : PROCtext(308,604,"Y","DESTROYED .....")
4260WHEN 4 : PROCtext(308,652,"B","THE LAST KLINGON SHIP IS")
4270 : PROCtext(308,604,"B","DESTROYED .....")
4280 : PROCtext(308,556,"W","WELL DONE CAPTAIN!")
4290 : Dead%=TRUE : PROCspace : PROCagain : ENDPROC
4300WHEN 5 : PROCtext(308,652,"Y","YOUR TORPEDO HAS CAUSED")
4310 : PROCtext(308,604,"Y","A STAR TO GO NOVA .....")
4320 : PROCtext(308,556,"Y","THE ENTERPRISE HAS BEEN")
4330 : PROCtext(308,508,"Y","DESTROYED .....")
4340ENDCASE
4350PROCtext(308,460,"R","THERE WERE "+STR$(K9)+" KLINGON")
4360PROCtext(308,412,"R","SHIPS LEFT TO CONQUER")
4370PROCtext(308,364,"R","THE FEDERATION!!")
4380Dead%=TRUE : PROCspace : PROCagain
4390ENDPROC
4400:
4410DEF PROCagain
4420PROCclear(1) : PROCclear(3)
4430PROCtext(308,708,"B","STARTREK: THE GAME -")
4440PROCtext(308,652,"W","WOULD YOU LIKE ANOTHER")
4450Y$=FNinputVarious(308,604,724,604,"W","MISSION (Y-N):")
4460IF Y$="Y" OR Y$="y" THEN ENDPROC
4470OSCLI "<StarTrek$Dir>.ArcFont"
4480ENDPROC
4490:
4500DEF PROCbaseCheck
4510A=FNbaseCheck
4520IF D%=0 AND A=1 THEN
4530 : D%=1 : S=0 : E=E0 : P=P0 : PROCdocked
4540ENDIF
4550IF D%=1 AND A=0 THEN D%=0
4560ENDPROC
4570:
4580DEF FNbaseCheck
4590FOR I%=S1-1 TO S1+1 : FOR J%=S2-1 TO S2+1
4600IF I%>0 AND I%<9 AND J%>0 AND J%<9 THEN
4610 : A$="starbase" : Z1=I% : Z2=J% : PROCcheck
4620 : IF Z3>0 THEN =1
4630ENDIF
4640NEXT ,
4650=0
4660:
4670DEF PROCdocked
4680PROCclear(1) : PROCprinter(1,"B","DOCKED AT STARBASE .....")
4690PROCclear(3) : PROCtext(308,708,"W","WELCOME TO STARBASE .....")
4700PROCenergyBanks
4710PROCfont(308,692,5,"RE-ARMING AND RE-FUELING HAVE")
4720PROCfont(308,652,5,"BEEN CARRIED OUT AS NECESSARY ...")
4730PROCfont(308,612,7,"DIAGNOSTIC CHECKS ARE PROCEEDING:")
4740PROCdamageReport : W=INKEY(100) : RESTORE 4850
4750N%=0 : J%=0 : X=308 : Y=572 : FOR I%=1 TO 12
4760IF I%=7 THEN GCOL 0 : RECTANGLE FILL 308,360,700,220 : Y=572
4770READ col : PROCfont(X,Y,col,D$(I%)) : PROCfont(X+500,Y,col,STR$(D(I%)))
4780IF D(I%)<4 THEN N%=N%+D(I%)-4 : J%=J%+1
4790Y-=36 : W=INKEY(100) : NEXT
4800IF J%>0 THEN
4810 : Tl=ABS((N%/J%)/4) : IF Tl>5 THEN Tl=5
4820ELSE : ENDPROC
4830ENDIF
4840PROCclear(3)
4850DATA 8,8,8,2,2,2,3,3,5,5,6,6
4860PROCtext(308,708,"B","STARBASE CONTROL REPORT:")
4870PROCtext(308,656,"Y","ESTIMATED TIME FOR A")
4880PROCtext(308,604,"Y","COMPLETE SYSTEMS REFIT")
4890PROCtext(308,552,"Y",": "+LEFT$(STR$(Tl),4)+" STARDATES.")
4900PROCtext(308,500,"B","PROCEED WITH REFITTING")
4910A$=FNinputVarious(308,448,556,448,"B","(Y-N):")
4920IF LEFT$(A$,1)="Y" THEN
4930 : N%=4 : T=T+Tl
4940ELSE : ENDPROC
4950ENDIF
4960PROCclear(3) : PROCtext(308,708,"B","STARBASE CONTROL:")
4970PROCtext(308,656,"B","ENGINEERING REPORT -")
4980FOR I%=1 TO 12
4990WHILE D(I%)<4
5000D(I%)=4
5010ENDWHILE
5020NEXT
5030PROCdamageReport
5040MYS%=FALSE : DIL%=FALSE : NEU%=FALSE : PROCupdateTime
5050PROCtext(308,604,"W","ALL SYSTEMS NOW FULLY")
5060PROCtext(308,552,"W","FUNCTIONAL .....") : W=INKEY(100)
5070ENDPROC
5080:
5090DEF PROCstatusReport
5100PROCclear(2)
5110X=32 : Y=740 : RESTORE 5310
5120FOR a=0 TO 6 : READ a$
5130CASE a OF
5140WHEN 0 : PROCfont(X,Y,2,a$)
5150 : PROCfont(X,Y-32,3,":ALDEVRON")
5160WHEN 1 : PROCfont(X,Y,6,a$)
5170 : PROCfont(X,Y-32,3,":"+STR$(B9))
5180WHEN 2 : PROCfont(X,Y,8,a$)
5190 : PROCfont(X,Y-32,3,":"+STR$((INT(T8-T)*10)/10))
5200WHEN 3 : PROCfont(X,Y,1,a$)
5210 : PROCfont(X,Y-32,3,":"+STR$(K9))
5220WHEN 4 : PROCfont(X,Y,8,a$)
5230 : PROCfont(X,Y-32,3,":"+STR$(E))
5240WHEN 5 : PROCfont(X,Y,6,a$)
5250 : PROCfont(X,Y-32,3,":"+STR$(S))
5260WHEN 6 : PROCfont(X,Y,2,a$)
5270 : PROCfont(X,Y-32,3,":"+STR$(P))
5280ENDCASE
5290Y-=68 : NEXT
5300:
5310DATA SYSTEM,STARBASES,TIME LEFT,KLINGONS,ENERGY,DEFLECTOR,TORPEDOES
5320:
5330ENDPROC
5340:
5350DEF PROCphotonAim
5360IF D(9)<0 THEN
5370 : PROCfont(324,228,1,"COMBAT COMPUTER")
5380 : PROCfont(324,192,1,"IS DOWN .....")
5390 : ENDPROC
5400ENDIF
5410IF K3<1 THEN
5420 : PROCnoKlingons : ENDPROC
5430ENDIF
5440PROCclear(3)
5450PROCtext(308,708,"R","AIMING DATA FOR ENEMY:")
5460Q%=648 : FOR I%=1 TO 3 : P%=420
5470IF K(I%,3)<=0 THEN 5510
5480C1=S1 : A=S2 : W1=K(I%,1) : X=K(I%,2)
5490PROCtext(308,Q%,"R","("+STR$(I%)+")")
5500GOSUB 5770
5510Q%-=116 : NEXT
5520ENDPROC
5530:
5540DEF PROCcourseCalculator
5550IF D(10)<0 THEN
5560 : PROCfont(1084,228,1,"NAV COMP")
5570 : PROCfont(1084,192,1,"DISABLED")
5580 : ENDPROC
5590ENDIF
5600PROCclear(3) : S%=1
5610PROCtext(308,708,"W","COURSE CALCULATOR:")
5620PROCtext(308,656,"G","IN THIS SECTOR OR A NEW")
5630A$=FNinputVarious(308,604,772,604,"G","QUADRANT (S-Q):")
5640B$="" : IF A$="S" THEN B$="SECTOR"
5650IF A$="Q" THEN B$="QUADRANT" : S%=0
5660IF B$="" THEN W=INKEY(15) : PROCclear(3) : ENDPROC
5670PROCtext(308,552,"Y","COORDINATES")
5680X=FNinputNumber(704,552,772,552,"Y","X:")
5690W1=FNinputNumber(704,500,772,500,"Y","Y:")
5700IF X<1 OR X>8 OR W1<1 OR W1>8 THEN
5710 : W=INKEY(15) : PROCclear(3) : ENDPROC
5720ENDIF
5730C1=S1 : A=S2 : IF B$="QUADRANT" THEN C1=Q1 : A=Q2
5740P%=308 : Q%=432 : GOSUB 5770
5750ENDPROC
5760:
5770X=X-A : A=C1-W1
5780IF X<0 THEN GOTO 5900
5790IF A<0 THEN GOTO 5970
5800IF X>0 THEN GOTO 5830
5810IF A=0 THEN GOTO 5930
5820:
5830C1=0
5840IF ABS(X)<=ABS(A) THEN GOTO 5870
5850DR=C1+(((ABS(X)-ABS(A))+ABS(X))/ABS(X))
5860GOTO 6020
5870DR=C1+(ABS(X)/ABS(A))
5880GOTO 6020
5890:
5900IF A>0 THEN GOTO 5950
5910IF X=0 THEN GOTO 5970
5920:
5930IF X=0 THEN RETURN
5940C1=4 : GOTO 5840
5950C1=6 : GOTO 5980
5960:
5970C1=2
5980IF ABS(X)>=ABS(A) THEN GOTO 6010
5990DR=C1+(((ABS(A)-ABS(X))+ABS(A))/ABS(A))
6000GOTO6020
6010DR=C1+(ABS(A)/ABS(X))
6020bear$=STR$(DR)
6030IF S%=0 THEN
6040 : dist$=STR$(INT(SQR(X*X+A*A)))
6050ELSE : dist$=STR$(SQR(X*X+A*A)/10)
6060ENDIF
6070PROCtext(P%,Q%,"W","BEARING: "+LEFT$(bear$,4))
6080PROCtext(P%,Q%-52,"W","DISTANCE: "+LEFT$(dist$,4))
6090RETURN
6100:
6110DEF PROCrnd
6120R1=RND(8) : R2=RND(8)
6130A$="" : Z1=R1 : Z2=R2 : PROCcheck
6140IF Z3=0 THEN 6120
6150ENDPROC
6160:
6170DEF PROCcheck
6180Z3=0 : IF Q$(Z1,Z2)=A$ THEN Z3=1
6190ENDPROC
6200:
6210DEF PROChyperProbe
6220PROCclear(3)
6230IF D(3)<0 THEN
6240 : PROCtext(308,708,"R","HYPERPROBE DAMAGED .....")
6250 : ENDPROC
6260ENDIF
6270IF Q4<>0 THEN
6280 : PROCtext(308,708,"R","HYPERPROBE IS ALREADY")
6290 : PROCtext(308,656,"R","LAUNCHED .....")
6300 : ENDPROC
6310ENDIF
6320PROCtext(308,708,"Y","LAUNCH HYPERPROBE TO")
6330PROCtext(308,656,"Y","QUADRANT -")
6340Q5=FNinputNumber(620,604,680,604,"W","X:")
6350Q4=FNinputNumber(620,552,680,552,"W","Y:")
6360IF Q4<1 OR Q4>8 OR Q5<1 OR Q5>8 THEN
6370 : PROCtext(308,448,"R","HYPERPROBE IS NOW ON AN")
6380 : PROCtext(308,396,"R","IRRETRIEVABLE TRAJECTORY.")
6390 : Q4=-1 : ENDPROC
6400ENDIF
6410PROCtext(308,448,"W","HYPERPROBE LAUNCHED TO")
6420PROCtext(308,396,"W","QUADRANT "+STR$(Q5)+"."+STR$(Q4)+" .....")
6430Z%=V%+RND(9)
6440ENDPROC
6450:
6460DEF PROCsuperNova
6470PROCclear(1) : PROCclear(2)
6480PROCtext(24,768,"R","YOU HAVE ENTERED A SUPERNOVA IN")
6490PROCtext(24,708,"R","QUADRANT "+STR$(Q2)+"."+STR$(Q1)+" .....")
6500PROCdead(2)
6510ENDPROC
6520:
6530DEF PROCnova
6540PROCrnd : IF Z1<>Q1 THEN 6560
6550IF Z2=Q2 THEN6540
6560IF G(Z1,Z2)=-1 THEN 6540
6570X=G(Z1,Z2)/100 : X1=INT(X)
6580PROCprinter(2,"W","COMMUNICATIONS OFFICER REPORTING:") : W=INKEY(80)
6590PROCprinter(2,"W","SPACE WATCH HAS REPORTED A SUPERNOVA") : W=INKEY(40)
6600PROCprinter(2,"W","IN QUADRANT "+STR$(Z2)+"."+STR$(Z1)+" .....")
6610W=INKEY(40) : PROCprinter(2,"R","DO NOT ENTER AT SUB LIGHT SPEED .....")
6620IF X1<=0 GOTO 6660
6630W=INKEY(40) : A$="" : IF X1>1 THEN A$="S"
6640PROCprinter(2,"Y",STR$(X1)+" KLINGON"+A$+" DESTROYED .....")
6650K9=K9-X1 : IF K9<=0 THEN PROCdead(4) : ENDPROC
6660IF 10*(X-X1)<1 THEN 6690
6670W=INKEY(40) : PROCprinter(2,"Y","STARBASE DESTROYED .....")
6680B9=B9-1
6690G(Z1,Z2)=-1 : Z(Z1,Z2)=-1
6700W=INKEY(40) : PROCclear(6)
6710ENDPROC
6720:
6730DEF PROCprobeReturn
6740LOCAL A,B,C,X,Y : IF Q4<1 THEN ENDPROC
6750PROCclear(3) : N%=G(Q4,Q5)
6760IF N%<0 THEN
6770 : PROCtext(308,708,"R","CONTACT WITH HYPERPROBE")
6780 : PROCtext(308,656,"R","HAS BEEN LOST .....")
6790 : Q4=-1 : ENDPROC
6800ENDIF
6810PROCtext(308,708,"W","HYPERPROBE HAS RETURNED")
6820PROCtext(308,656,"W","FROM QUADRANT "+STR$(Q5)+"."+STR$(Q4)+" .....")
6830Y=560 : FOR A=Q4-1 TO Q4+1
6840X=308 : N(1)=0 : N(2)=0 : N(3)=0
6850FOR B=Q5-1 TO Q5+1
6860IF A>0 AND A<9 AND B>0 AND B<9 THEN N(B-Q5+2)=G(A,B) : Z(A,B)=G(A,B)
6870NEXT
6880FOR C=1 TO 3
6890GCOL 8 : RECTANGLE FILL X,Y,220,84
6900GCOL 0 : RECTANGLE FILL X+4,Y+4,212,76
6910IF N(C)=0 THEN PROCtext(X+26,Y+12,"W"," ") : GOTO 6970
6920IF N(C)=-1 THEN PROCtext(X+32,Y+12,"Y","* * *") : GOTO 6970
6930q$=RIGHT$(STR$(N(C)+1000),3)
6940k$=LEFT$(q$,1) : PROCtext(X+32,Y+24,"R",k$)
6950s$=MID$(q$,2,1) : PROCtext(X+96,Y+24,"B",s$)
6960p$=RIGHT$(q$,1) : PROCtext(X+160,Y+24,"Y",p$)
6970X+=232 : NEXT
6980Y-=96 : NEXT
6990Q4=0
7000ENDPROC
7010:
7020DEF PROCscannerInfo
7030IF K3<1 THEN PROCnoKlingons : ENDPROC
7040IF D(9)<0 THEN
7050 : PROCfont(324,228,1,"COMBAT COMPUTER")
7060 : PROCfont(324,192,1,"IS DOWN .....")
7070 : ENDPROC
7080ENDIF
7090PROCclear(3)
7100PROCtext(308,708,"R","KLINGON FORCE STATUS:")
7110PROCtext(308,656,"Y","SECTOR:") : PROCtext(608,656,"Y","STRENGTH:")
7120P%=308 : Q%=604
7130FOR I%=1 TO K3
7140PROCtext(P%,Q%,"W",STR$(K(I%,2))+"."+STR$(K(I%,1)))
7150PROCtext(P%+300,Q%,"W",STR$(K(I%,3))+" UNITS.")
7160Q%-=120
7170NEXT
7180ENDPROC
7190:
7200DEF PROCreport
7210LOCAL I%,T,W,A$ : T=0
7220FOR I%=1 TO 12
7230IF I%=7 AND DIL% THEN 7260
7240IF I%=6 AND NEU% THEN 7260
7250IF D(I%)<0 THEN T=1
7260NEXT
7270IF T=1 THEN
7280 : PROCclear(6) : PROCprinter(2,"W","DAMAGE CONTROL REPORTING:")
7290 : W=INKEY(20)
7300ENDIF
7310FOR I%=1 TO 12
7320IF I%=7 AND DIL% THEN 7390
7330IF I%=6 AND NEU% THEN 7390
7340IF D(I%)>=0 THEN 7390
7350A$=" BEING REPAIRED ....."
7360D(I%)=D(I%)+1
7370IF D(I%)>=0 THEN A$=" NOW OPERATIONAL."
7380PROCprinter(2,"W",D$(I%)+A$) : W=INKEY(20)
7390NEXT : PROCclear(6)
7400ENDPROC
7410:
7420DEF PROCmove
7430Z1=K(I%,1) : Z2=K(I%,2)
7440IF S1-Z1>0 THEN Z1=Z1+1
7450IF S2-Z2>0 THEN Z2=Z2+1
7460IF S1-Z1<0 THEN Z1=Z1-1
7470IF S2-Z2<0 THEN Z2=Z2-1
7480A$="" : PROCcheck : IF Z3=0 THEN ENDPROC
7490Q$(K(I%,1),K(I%,2))=""
7500K(I%,1)=Z1 : K(I%,2)=Z2 : Q$(Z1,Z2)="klingon"
7510ENDPROC
7520:
7530DEF FND(D)
7540=SQR((K(I%,1)-S1)^2+(K(I%,2)-S2)^2)
7550:
7560DEF PROCmystery
7570E9=RND(1) : IF E9<.2 OR E9>.6 THEN 7570
7580E=INT(E*E9+1) : MYS%=TRUE
7590PROCprinter(2,"W","SCIENCE OFFICER REPORTING:") : W=INKEY(40)
7600PROCprinter(2,"Y","A MYSTERY POWER DRAIN HAS OCCURRED .....")
7610PROCupdateBanks : W=INKEY(40)
7620PROCprinter(2,"R","ONLY "+STR$(E)+" UNITS OF POWER REMAINING .....")
7630ENDPROC
7640:
7650DEF PROCdilithium
7660PROCprinter(2,"W","ENGINEERING REPORTING:") : W=INKEY(40)
7670PROCprinter(2,"Y","DILITHIUM CRYSTALS STOLEN BY INTRUDER .....")
7680D(7)=-1E2 : DIL%=TRUE : W=INKEY(40)
7690PROCprinter(2,"R","NO POWER FOR WARP DRIVE .....") : W=INKEY(40)
7700PROCprinter(2,"R","RETURN TO STARBASE FOR REPAIRS .....")
7710ENDPROC
7720:
7730DEF PROCneutron
7740PROCprinter(2,"W","SCIENCE OFFICER REPORTING:") : W=INKEY(40)
7750PROCprinter(2,"Y","COLLISION WITH A NEUTRON MINE HAS OCCURRED")
7760W=INKEY(40) : D(6)=-1E2 : NEU%=TRUE
7770PROCprinter(2,"R","SHIELDS DISABLED - NO CONTROL AVAILABLE .....")
7780W=INKEY(40) : PROCprinter(2,"R","RETURN TO STARBASE FOR REPAIRS .....")
7790ENDPROC
7800:
7810DEFPROCXY
7820X1=C(C1,1)+(C(C1+1,1)-C(C1,1))*(C1-INT(C1))
7830X2=C(C1,2)+(C(C1+1,2)-C(C1,2))*(C1-INT(C1))
7840ENDPROC
7850:
7860DEF PROCpointer
7870DIM Data 400
7880OSCLI "LOAD <StarTrek$Dir>.Pointer "+STR$~(Data)
7890Data?&01=2 : Data!&06=Data+&0A
7900SYS "OS_Word",21,Data
7910OSCLI "POINTER"
7920MOUSE RECTANGLE 0,120,1280,200
7930MOUSE COLOUR 1,240,192,0
7940MOUSE COLOUR 3,0,0,224
7950MOUSE ON 2
7960ENDPROC
7970:
7980DEF PROCsetup
7990DIM G(9,9),Z(9,9),C(9,2),K(3,3),N(3),D(12),Q$(9,9),D$(12)
8000C(1,1)=-1 : C(2,1)=-1 : C(7,2)=-1
8010C(8,1)=-1 : C(8,2)=-1 : C(6,2)=-1
8020C(9,1)=-1 : C(1,2)=0 : C(3,1)=0
8030C(5,2)=0 : C(7,1)=0 : C(9,2)=0
8040C(2,2)=1 : C(3,2)=1 : C(4,1)=1
8050C(4,2)=1 : C(5,1)=1 : C(6,1)=1
8060RESTORE 8070 : FOR I%=1 TO 12 : READ D$(I%) : NEXT
8070DATA SHORT RANGE SENSORS,LONG RANGE SENSORS,HYPERPROBE LAUNCHER
8080DATA PHASER CONTROL,PHOTON TUBES,DEFLECTOR CONTROL
8090DATA WARP ENGINES,DAMAGE CONTROL,COMBAT COMPUTER
8100DATA NAVIGATION COMPUTER,CENTRAL COMPUTER,LIFE SUPPORT
8110ENDPROC
8120:
8130DEF PROCinit
8140T=(INT((RND(1)+3)*1E4))/10 : T0=T : K9=0 : B9=0
8150T9=25+INT(RND(10)) : T8=T9+T : Q4=0 : MAP%=0
8160S9=200 : E0=4000 : P0=10 : P=P0 : E=E0 : E1=E+1 : S=0
8170D()=4 : G()=0 : Z()=0 : D%=0
8180FOR I%=1 TO 8 : FOR J%=1 TO 8
8190R1=RND(1) : K3=0
8200IF R1>.8 THEN K3=1
8210IF R1>.95 THEN K3=2
8220IF R1>.98 THEN K3=3
8230K9=K9+K3 : R1=RND(1) : B3=0 : IF R1>.96 THEN B3=1
8240B9=B9+B3 : S3=RND(8) : G(I%,J%)=K3*100+B3*10+S3
8250NEXT : NEXT
8260IF B9<=0 THEN G(6,3)=G(6,3)+10 : B9=1
8270Q1=RND(8) : Q2=RND(8) : S1=RND(8) : S2=RND(8)
8280Dead%=FALSE : MYS%=FALSE : DIL%=FALSE : NEU%=FALSE : V%=0
8290ENDPROC
8300:
8310DEF PROCprinter(a,c$,a$)
8320LOCAL B,B$,X,Y : X=28
8330CASE a OF
8340WHEN 1 : Y=824 : PROCclear(1)
8350WHEN 2 : Y=24 : PROCclear(6)
8360ENDCASE
8370GCOL 8,0
8380FOR B=1 TO LEN(a$) : B$=MID$(a$,B,1)
8390IF ASC(B$)<>13 AND ASC(B$)<>32 THEN
8400 : SYS "OS_SpriteOp",290,Sprite%,c$+B$,X,Y,0
8410 : IF B$=")" THEN X+=8
8420 : IF B$="M" OR B$="W" THEN X+=16
8430 : IF B$="I" OR B$="." OR B$=":" THEN X-=16
8440ENDIF
8450X+=30 : W=INKEY(6)
8460NEXT
8470ENDPROC
8480:
8490DEF PROClongRangeScan
8500LOCAL A,B,C,X,Y : PROCclear(3)
8510IF D(2)<0 THEN
8520 : PROCtext(308,708,"R","THE LONG RANGE SENSORS")
8530 : PROCtext(308,656,"R","ARE DAMAGED .....") : ENDPROC
8540ENDIF
8550Y=664 : FOR A=Q1-1 TO Q1+1
8560X=328 : N(1)=0 : N(2)=0 : N(3)=0
8570FOR B=Q2-1 TO Q2+1
8580IF A>0 AND A<9 AND B>0 AND B<9 THEN N(B-Q2+2)=G(A,B) : Z(A,B)=G(A,B)
8590NEXT
8600FOR C=1 TO 3
8610GCOL 8 : RECTANGLE FILL X,Y,208,84
8620IF A=Q1 AND C=2 THEN GCOL 3 : RECTANGLE FILL X,Y,208,84
8630GCOL 0 : RECTANGLE FILL X+4,Y+4,200,76
8640IF N(C)=0 THEN PROCtext(X+26,Y+12,"W"," ") : GOTO 8700
8650IF N(C)=-1 THEN PROCtext(X+32,Y+24,"Y","* * *") : GOTO 8700
8660q$=RIGHT$(STR$(N(C)+1000),3)
8670k$=LEFT$(q$,1) : PROCtext(X+32,Y+24,"R",k$)
8680s$=MID$(q$,2,1) : PROCtext(X+96,Y+24,"B",s$)
8690p$=RIGHT$(q$,1) : PROCtext(X+160,Y+24,"Y",p$)
8700X+=220 : NEXT
8710Y-=96 : NEXT
8720PROCfont(328,460,1,"1 - NUMBER OF KLINGONS")
8730PROCfont(328,424,5,"2 - NUMBER OF STARBASES")
8740PROCfont(328,384,3,"3 - NUMBER OF STARS")
8750ENDPROC
8760:
8770DEF PROCcomputerMap
8780LOCAL A,B,C,X,Y
8790PROCclear(1) : PROCclear(3) : PROCclear(6)
8800IF D(11)<0 THEN
8810 : PROCtext(308,708,"R","THE CENTRAL COMPUTER IS")
8820 : PROCtext(308,656,"R","DAMAGED .....") : ENDPROC
8830ENDIF
8840Y=708 : FOR A=0 TO 8
8850X=304 : FOR B=0 TO 9
8860IF A>0 AND B>0 AND B<9 THEN
8870 : GCOL 8 : RECTANGLE FILL X,Y,80,44
8880 : GCOL 0 : RECTANGLE FILL X+4,Y+4,72,36
8890ENDIF
8900IF A=0 AND B>0 AND B<9 THEN
8910 : PROCfont(X+32,Y+36,7,STR$(B))
8920ENDIF
8930IF A>0 AND (B=0 OR B=9) THEN
8940 : PROCfont(X+12,Y+36,7,STR$(A))
8950ENDIF
8960IF A>0 AND B>0 AND B<9 THEN
8970IF Z(A,B)=0 THEN PROCfont(X+10,Y+36,7," ") : GOTO 9020
8980IF Z(A,B)=-1 THEN PROCfont(X+10,Y+36,3,"***") : GOTO 9020
8990C=Z(A,B)+1000
9000PROCfont(X+12,Y+36,7,RIGHT$(STR$(C),3))
9010ENDIF
9020IF B>0 THEN
9030 : X+=78
9040ELSE : X+=36
9050ENDIF
9060NEXT
9070IF A>0 THEN
9080 : Y-=44
9090ELSE : Y-=40
9100ENDIF
9110NEXT
9120X=262+(Q2*78) : Y=712-(Q1*44) : GCOL 3
9130RECTANGLE X,Y,78,44 : LINE X+2,Y,X+2,Y+44 : LINE X+80,Y,X+80,Y+44
9140ENDPROC
9150:
9160DEF FNinput(x%,y%,x1,y1,c%,a$,n)
9170PROCfont(x%,y%,c%,a$) : Temp$=""
9180REPEAT : REPEAT : G=GET : UNTIL G>12
9190IF INSTR("0123456789.",CHR$(G))<>0 THEN Temp$=Temp$+CHR$(G)
9200IF G=127 THEN Temp$=LEFT$(Temp$,LEN(Temp$)-1)
9210IF LEN(Temp$)>n THEN VDU 7 : Temp$=LEFT$(Temp$,LEN(Temp$)-1)
9220IF Temp$<"" THEN Temp$=""
9230GCOL 0 : RECTANGLE FILL x1,y1-32,n*20,32
9240IF Temp$>"" AND Temp$<CHR$127 THEN PROCfont(x1,y1,1,Temp$)
9250UNTIL G=13 : IF Temp$="" THEN =0
9260=VAL(Temp$)
9270:
9280DEF FNinput2(x%,y%,x1,y1,c%,a$,n)
9290PROCfont(x%,y%,c%,a$) : Temp$=""
9300REPEAT : REPEAT : G=GET : UNTIL G>12
9310IF INSTR("ABCDEFGHIJKLMNOPQRSTUVWXYZ ",CHR$(G))<>0 THEN Temp$=Temp$+CHR$(G)
9320IF G=127 THEN Temp$=LEFT$(Temp$,LEN(Temp$)-1)
9330IF LEN(Temp$)>n THEN VDU 7 : Temp$=LEFT$(Temp$,LEN(Temp$)-1)
9340IF Temp$<"" THEN Temp$=""
9350GCOL 0 : RECTANGLE FILL x1,y1-32,n*20,32
9360IF Temp$>"" AND Temp$<CHR$127 THEN PROCfont(x1,y1,1,Temp$)
9370UNTIL G=13
9380=Temp$
9390:
9400DEF FNinputNumber(x%,y%,x1,y1,c$,a$)
9410PROCtext(x%,y%,c$,a$) : Temp$=""
9420REPEAT : REPEAT : G=GET : UNTIL G>12
9430IF INSTR("0123456789.",CHR$(G))<>0 THEN
9440 : Temp$=Temp$+CHR$(G)
9450ENDIF
9460IF G=127 THEN Temp$=LEFT$(Temp$,LEN(Temp$)-1)
9470IF Temp$<"" THEN Temp$=""
9480GCOL 0 : RECTANGLE FILL x1,y1,108,40
9490IF Temp$>"" AND Temp$<CHR$127 THEN PROCtext(x1,y1,"R",Temp$)
9500UNTIL G=13 : IF Temp$="" THEN =0
9510=VAL(Temp$)
9520:
9530DEF FNinputVarious(x%,y%,x1,y1,c$,a$)
9540PROCtext(x%,y%,c$,a$) : Temp$=""
9550REPEAT : REPEAT : G=GET : UNTIL G>12
9560IF INSTR("0123456789.ABCDEFGHIJKLMNOPQRSTUVWXYZ",CHR$(G))<>0 THEN
9570 : Temp$=Temp$+CHR$(G)
9580ENDIF
9590IF G=127 THEN Temp$=LEFT$(Temp$,LEN(Temp$)-1)
9600IF Temp$<"" THEN Temp$=""
9610GCOL 0 : RECTANGLE FILL x1,y1,128,40
9620IF Temp$>"" AND Temp$<CHR$127 THEN PROCtext(x1,y1,"R",Temp$)
9630UNTIL G=13
9640=Temp$
9650:
9660DEF PROCcommandInfo
9670LOCAL X,Y,a$,b$ : X=308 : Y=628
9680PROCtext(308,704,"Y","COMMAND BUTTONS HELP 1:")
9690RESTORE 9880 : FOR a=1 TO 5 : READ a$,b$
9700SYS "OS_SpriteOp",290,Sprite%,a$,X,Y,0
9710PROCtext(400,Y+8,"G",b$)
9720Y-=68 : NEXT
9730PROCspace
9740PROCclear(3) : X=308 : Y=628
9750PROCtext(308,704,"Y","COMMAND BUTTONS HELP 2:")
9760FOR a=1 TO 5 : READ a$,b$
9770SYS "OS_SpriteOp",290,Sprite%,a$,X,Y,0
9780PROCtext(400,Y+8,"G",b$)
9790Y-=68 : NEXT
9800PROCspace
9810PROCclear(3) : X=308 : Y=628
9820PROCtext(308,704,"Y","COMMAND BUTTONS HELP 3:")
9830FOR a=1 TO 4 : READ a$,b$
9840SYS "OS_SpriteOp",290,Sprite%,a$,X,Y,0
9850PROCtext(400,Y+8,"G",b$)
9860Y-=68 : NEXT
9870:
9880DATA sys,SYSTEMS STATUS,sta,MISSION STATUS,ins,INSTRUCTIONS
9890DATA srs,SHORT RANGE SCAN,map,GALACTIC MAP,lrs,LONG RANGE SCAN
9900DATA hyp,HYPERPROBE LAUNCHER,pha,ENERGY PHASORS,kli,KLINGON FORCE STATUS
9910DATA tor,PHOTON TORPEDOES,dat,TORPEDO AIMING DATA,def,DEFLECTOR CONTROL
9920DATA nav,NAVIGATION COMPUTER,crc,COURSE CALCULATOR
9930ENDPROC
9940:
9950DEF PROCintro
9960LOCAL A$,C$ : PROCclear(3)
9970PROCtext(308,704,"W","STARFLEET ORDERS:")
9980PROCtext(308,652,"Y","SEEK AND DESTROY THE "+STR$(K9))
9990PROCtext(308,604,"Y","KLINGON SHIPS THAT HAVE")
10000PROCtext(308,556,"Y","INVADED FEDERATION SPACE.")
10010A$="IS " : C$=" " : IF B9>1 THEN A$="ARE " : C$="S "
10020PROCtext(308,508,"Y","THERE "+A$+STR$(B9)+" STARBASE"+C$)
10030PROCtext(308,460,"Y","AT YOUR DISPOSAL - AND")
10040PROCtext(308,412,"Y","YOU HAVE UNTIL SD "+STR$(T8))
10050PROCtext(308,364,"Y","TO COMPLETE THE MISSION.")
10060PROCspace : PROCclear(3)
10070PROCtext(308,708,"W","FM: STARFLEET COMMAND")
10080PROCtext(308,656,"W","TO: USS ENTERPRISE")
10090PROCtext(308,500,"Y","GOOD LUCK DURING YOUR")
10100PROCtext(308,448,"Y","MISSION ... COMMANDER.")
10110PROCspace
10120ENDPROC
10130:
10140DEF PROCclear(p)
10150CASE p OF
10160WHEN 1 : GCOL 0 : RECTANGLE FILL 20,816,1236,52
10170WHEN 2 : GCOL 0 : RECTANGLE FILL 24,264,208,488
10180WHEN 3 : GCOL 0 : RECTANGLE FILL 296,352,712,400
10190WHEN 4 : GCOL 0 : RECTANGLE FILL 616,128,388,108
10200WHEN 5 : GCOL 0 : RECTANGLE FILL 1076,124,174,108
10210WHEN 6 : GCOL 0 : RECTANGLE FILL 20,16,1236,52
10220WHEN 7 : GCOL 0 : RECTANGLE FILL 308,128,240,44
10230ENDCASE
10240ENDPROC
10250:
10260DEF PROCupdatePos
10270GCOL 14 : RECTANGLE FILL 176,968,120,40
10280PROCtext(184,968,"W",STR$(Q2)+"."+STR$(Q1))
10290GCOL 14 : RECTANGLE FILL 176,916,120,40
10300PROCtext(184,916,"W",STR$(S2)+"."+STR$(S1))
10310PROCupdateTime
10320IF K3>0 AND S<200 AND D%=0 THEN
10330 : PROCprinter(1,"R","WARNING: SHIELD POWER ONLY "+STR$(S)+" UNITS .....")
10340ENDIF
10350ENDPROC
10360:
10370DEF PROCupdateTime
10380GCOL 14 : RECTANGLE FILL 1020,916,240,40
10390PROCtext(1022,916,"W",LEFT$(STR$(T),7))
10400IF T>T8 THEN PROCdead(2)
10410ENDPROC
10420:
10430DEF PROCcondition
10440s$="green" : t$="G"
10450IF E<E0*.1 THEN s$="yellow" : t$="Y"
10460IF K3>0 THEN s$="red" : t$="R"
10470IF D%=1 THEN s$="docked" : t$="B"
10480PROCclear(7)
10490PROCtext(312,128,t$,s$)
10500ENDPROC
10510:
10520DEF PROCenergyBanks
10530LOCAL A,B,C,D,X,Y
10540A=E/30.25 : B=0 : X=1080
10550IF E>E1 THEN
10560 : E1=E
10570ENDIF
10580FOR C=1 TO 4 : Y=360 : FOR D=1 TO 33
10590B+=1 : IF B>A THEN ENDPROC
10600SYS "OS_SpriteOp",290,Sprite%,"unit",X,Y,0
10610Y+=12 : NEXT
10620X+=44 : NEXT
10630ENDPROC
10640:
10650DEF PROCupdateBanks
10660LOCAL A,B,C,D,X,Y
10670A=E/30.25 : B=132 : X=1212
10680IF E=E1 THEN ENDPROC
10690IF E<E1 THEN
10700 : E1=E
10710ELSE : PROCenergyBanks
10720ENDIF
10730FOR C=1 TO 4
10740Y=744
10750FOR D=1 TO 33
10760B-=1 : IF B<A THEN ENDPROC
10770SYS "OS_SpriteOp",290,Sprite%,"blank",X,Y,0
10780Y-=12 : NEXT
10790X-=44 : NEXT
10800ENDPROC
10810:
10820DEF PROCtext(x%,y%,c$,a$)
10830LOCAL B,B$
10840FOR B=1 TO LEN(a$) : B$=MID$(a$,B,1)
10850IF ASC(B$)<>13 AND ASC(B$)<>32 THEN
10860 : IF B$=")" THEN x%+=8
10870 : SYS "OS_SpriteOp",290,Sprite%,c$+B$,x%,y%,8
10880 : IF B$="M" OR B$="W" THEN x%+=16
10890 : IF B$="I" OR B$="." OR B$=":" THEN x%-=16
10900ENDIF
10910IF B$=" " THEN x%-=2
10920x%+=30 : NEXT
10930ENDPROC
10940:
10950DEF PROCfont(X,Y,col,a$)
10960LOCAL A,b$
10970VDU 5 : GCOL col
10980FOR A=1 TO LEN(a$) : b$=MID$(a$,A,1)
10990IF b$="/" THEN b$+="t"
11000IF b$="M" THEN b$+="m"
11010IF b$="T" THEN b$+="t"
11020IF b$="W" THEN b$+="w"
11030IF b$="Y" THEN b$+="y"
11040MOVE X,Y : PRINT b$
11050IF b$="Mm" OR b$="Ww" THEN X+=10
11060IF b$="/t" OR b$="Tt" OR b$="Yy" THEN X+=2
11070IF b$="I" THEN X-=10
11080IF b$=" " THEN X-=8
11090IF b$=".:()0123456789" THEN X-=4
11100X+=22 : NEXT : VDU 4 : OFF
11110ENDPROC
11120:
11130DEF PROCerror
11140OSCLI "<StarTrek$Dir>.ArcFont"
11150IF ERR=17 THEN *DESKTOP
11160REPORT : PRINT " at line ";ERL
11170ENDPROC
11180:
11190DEF PROCspace
11200LOCAL x,y,but,a : a=0 : OSCLI "FX 21 9"
11210PROCprinter(2,"B","CLICK A MOUSE BUTTON .....")
11220REPEAT
11230a+=1 : MOUSE x,y,but
11240UNTIL but OR a>40000
11250PROCclear(6)
11260ENDPROC
11270:
11280DEF PROCinstruct
11290LOCAL W,H,a
11300PROCclear(3)
11310PROCtext(308,708,"B","STARTREK: THE GAME -")
11320W=308 : H=652 : RESTORE 11370
11330FOR a=1 TO 7 : READ i$ : PROCfont(W,H,3,i$)
11340H-=40 : NEXT
11350PROCspace
11360:
11370DATA YOU TAKE THE ROLE OF COMMANDER
11380DATA OF THE STARSHIP - ENTERPRISE -," ",THE OBJECT OF THE GAME IS TO
11390DATA DESTROY ALL OF THE KLINGON SHIPS,THAT HAVE INVADED FEDERATION
11400DATA CONTROLLED SPACE .....
11410:
11420PROCclear(3)
11430W=308 : H=740 : RESTORE 11510
11440FOR a=1 TO 5 : READ i$ : PROCfont(W,H,7,i$)
11450H-=40 : NEXT : H-=52
11460SYS "OS_SpriteOp",290,Sprite%,"map",W-4,H,0
11470H-=12 : FOR a=1 TO 3 : READ i$ : PROCfont(W,H,3,i$)
11480H-=40 : NEXT
11490PROCspace
11500:
11510DATA YOUR ZONE OF OPERATIONS IS SHOWN,AS A GRID OF 64 QUADRANTS FORMED
11520DATA INTO AN 8*8 SQUARE .....
11530DATA THIS CAN BE ACCESSED AT ANY TIME,BY USING THE COMMAND BUTTON:
11540DATA NOTE: IT IS KEPT UP TO DATE FROM,INFORMATION PROVIDED BY ONBOARD
11550DATA SENSORS - (NO INFO - NO MAP) ....
11560:
11570PROCclear(3)
11580W=308 : H=740 : RESTORE 11720
11590FOR a=1 TO 3 : READ i$ : PROCfont(W,H,7,i$)
11600H-=40 : NEXT : H-=48
11610SYS "OS_SpriteOp",290,Sprite%,"srs",W-4,H,0
11620PROCfont(W+140,596,7,"ENTERPRISE")
11630SYS "OS_SpriteOp",290,Sprite%,"enterprise3",800,556,0
11640PROCfont(W+140,536,1,"KLINGON")
11650SYS "OS_SpriteOp",290,Sprite%,"klingon3",800,496,0
11660PROCfont(W+140,476,3,"STAR")
11670SYS "OS_SpriteOp",290,Sprite%,"star3",800,436,0
11680PROCfont(W+140,416,6,"STARBASE")
11690SYS "OS_SpriteOp",290,Sprite%,"starbase3",800,376,0
11700PROCspace
11710:
11720DATA EACH QUADRANT IS DIVIDED INTO 64,SECTORS AND THIS INFORMATION IS
11730DATA DISPLAYED BY THE SHORT RANGE SCAN:
11740DATA ENTERPRISE,KLINGON,STAR,STARBASE
11750:
11760PROCclear(3)
11770W=308 : H=740 : RESTORE 11880
11780FOR i=1 TO 2 : READ i$ : PROCfont(W,H,7,i$)
11790H-=40 : NEXT : H-=52
11800SYS "OS_SpriteOp",290,Sprite%,"lrs",W-4,H,0
11810H-=12 : FOR i=1 TO 5 : READ i$ : PROCfont(W,H,7,i$)
11820H-=40 : NEXT
11830READ i$ : PROCfont(W,H,1,i$)
11840READ i$ : PROCfont(W+260,H,6,i$)
11850READ i$ : PROCfont(W+560,H,3,i$)
11860PROCspace
11870:
11880DATA THE LONG RANGE SENSORS ARE,ACTIVATED WITH THE COMMAND:
11890DATA THIS DISPLAYS DATA ON ALL OF THE,SURROUNDING QUADRANTS AND ALSO
11900DATA UPDATES THE GALACTIC MAP.,THIS INFORMATION IS DISPLAYED AS
11910DATA A THREE DIGIT NUMBER -,KLINGONS,STARBASES,STARS
11920:
11930PROCclear(3)
11940W=308 : H=740 : RESTORE 12020
11950FOR a=1 TO 3 : READ i$ : PROCfont(W,H,7,i$)
11960H-=40 : NEXT : H-=52
11970SYS "OS_SpriteOp",290,Sprite%,"hyp",W-4,H,0
11980H-=12 : FOR a=1 TO 4 : READ i$ : PROCfont(W,H,7,i$)
11990H-=40 : NEXT
12000PROCspace
12010:
12020DATA THE HYPER-PROBE MAY BE USED TO,INVESTIGATE INDIVIDUAL QUADRANTS
12030DATA AT A DISTANCE WITH THE COMMAND:
12040DATA THE HYPER-PROBE WILL RETURN,EVENTUALLY AND GIVE A LONG RANGE
12050DATA SCAN FROM THAT QUADRANT ALSO,UPDATING THE GALACTIC MAP.
12060:
12070PROCclear(3)
12080W=308 : H=740 : RESTORE 12270
12090FOR a=1 TO 2 : READ i$ : PROCfont(W,H,7,i$)
12100H-=40 : NEXT : H-=52
12110SYS "OS_SpriteOp",290,Sprite%,"nav",W-4,H,0
12120H+=28 : READ i$ : PROCfont(W+100,H,7,i$) : H-=40
12130READ i$ : PROCfont(W,H,7,i$) : H-=104
12140FOR i=1 TO 3 : W=308 : FOR j=1 TO 3 : READ i$
12150GCOL 8 : RECTANGLE FILL W,H,64,60
12160GCOL 0 : RECTANGLE FILL W+4,H+4,56,52
12170IF i=2 AND j=2 THEN
12180 : SYS "OS_SpriteOp",290,Sprite%,i$,W+8,H+4
12190ELSE : PROCtext(W+20,H+12,"Y",i$)
12200ENDIF
12210W+=62 : NEXT
12220H-=60 : NEXT : W=532 : H+=240
12230FOR a=1 TO 4 : READ i$ : PROCfont(W,H,1,i$)
12240H-=40 : NEXT
12250PROCspace
12260:
12270DATA TO MOVE AROUND YOU SHOULD USE THE,NAVIGATION COMMAND BUTTON:
12280DATA YOU WILL THEN BE ASKED FOR A,BEARING (0-7) - USE:
12290DATA 7,0,1,6,enterprise3,2,5,4,3,NOTE: THIS SYSTEM OF
12300DATA BEARING IS ALSO USED,BY ALL OTHER RELEVANT,COMMANDS .....
12310:
12320PROCclear(3)
12330W=308 : H=740 : RESTORE 12400
12340FOR i=1 TO 6 : READ i$ : PROCfont(W,H,7,i$)
12350H-=40 : NEXT
12360FOR i=1 TO 3 : READ i$ : PROCfont(W,H,3,i$)
12370H-=40 : NEXT
12380PROCspace
12390:
12400DATA YOU MAY ALSO USE FRACTIONS OF,NUMBERS - IE 1.5 .....," "
12410DATA YOU WILL THEN BE ASKED FOR A WARP,FACTOR (0-8) - USE:," "
12420DATA "1 TO MOVE A WHOLE QUADRANT, AND",TO MOVE WITHIN A QUADRANT USE A
12430DATA NUMBER OF LESS THAN 1 - IE 0.4
12440:
12450PROCclear(3)
12460W=308 : H=740 : RESTORE 12510
12470FOR a=1 TO 10 : READ i$ : PROCfont(W,H,7,i$)
12480H-=36 : NEXT
12490PROCspace
12500:
12510DATA THERE CAN BE UP TO 3 KLINGONS IN,ANY ONE QUADRANT.
12520DATA THEY DO NOT MOVE OUT OF THEIR,QUADRANTS BUT THEY WILL CLOSE ON
12530DATA AND ATTACK THE ENTERPRISE.
12540DATA KLINGON FIRE-POWER DEPENDS ON,THEIR DISTANCE FROM YOU. ANY
12550DATA ENERGY FROM A KLINGON HIT WILL,REDUCE YOUR SHIELD STRENGTH AND
12560DATA CAUSE A CERTAIN AMOUNT OF DAMAGE.
12570:
12580PROCclear(3)
12590W=308 : H=740 : RESTORE 12720
12600READ i$ : PROCfont(W,H,7,i$)
12610H-=40 : READ i$ : PROCfont(W,H,1,i$)
12620H-=40 : RESTORE 12730
12630FOR a=1 TO 2 : READ i$ : PROCfont(W,H,7,i$)
12640H-=40 : NEXT : H-=48
12650SYS "OS_SpriteOp",290,Sprite%,"def",W-4,H,0
12660H-=12 : FOR a=1 TO 2 : READ i$ : PROCfont(W,H,7,i$)
12670H-=40 : NEXT
12680FOR a=1 TO 2 : READ i$ : PROCfont(W,H,1,i$)
12690H-=40 : NEXT
12700PROCspace
12710:
12720DATA AND WHEN YOUR SHIELDS FAIL....,THE DAMAGE GETS WORSE!
12730DATA TO UPDATE YOUR SHIELDS YOU SHOULD,USE THE COMMAND BUTTON:
12740DATA THEN SET THE AMOUNT OF ENERGY,TO BE TRANSFERRED TO THE SHIELDS.
12750DATA THIS AMOUNT IS SUBTRACTED FROM,YOUR TOTAL ENERGY.
12760:
12770PROCclear(3)
12780W=308 : H=740 : RESTORE 12880
12790FOR a=1 TO 2 : READ i$ : PROCfont(W,H,7,i$)
12800H-=40 : NEXT : READ i$ : PROCfont(W,H,3,i$) : H-=92
12810SYS "OS_SpriteOp",290,Sprite%,"pha",W-4,H,0
12820H-=12 : FOR a=1 TO 3 : READ i$ : PROCfont(W,H,7,i$)
12830H-=40 : NEXT
12840FOR a=1 TO 2 : READ i$ : PROCfont(W,H,1,i$)
12850H-=40 : NEXT
12860PROCspace
12870:
12880DATA ENTERPRISE HAS TWO MAIN TYPES OF,WEAPON SYSTEMS .....
12890DATA ENERGY PHASORS - USE COMMAND:
12900DATA THESE AUTOMATICALLY LOCK ONTO A,TARGET - BUT THEIR STRENGTH WILL
12910DATA FADE WITH DISTANCE.
12920DATA PHASOR POWER IS SUBTRACTED FROM,YOUR TOTAL ENERGY.
12930:
12940PROCclear(3)
12950W=308 : H=740 : RESTORE 13050
12960FOR a=1 TO 2 : READ i$ : PROCfont(W,H,3,i$)
12970H-=40 : NEXT : H-=52
12980SYS "OS_SpriteOp",290,Sprite%,"tor",W-4,H,0
12990H-=12 : FOR a=1 TO 3 : READ i$ : PROCfont(W,H,7,i$)
13000H-=40 : NEXT
13010FOR a=1 TO 2 : READ i$ : PROCfont(W,H,1,i$)
13020H-=40 : NEXT
13030PROCspace
13040:
13050DATA PHOTON TORPEDOES - ACTIVATED BY,COMMAND BUTTON:
13060DATA UNLIKE PHASORS - TORPEDOES HAVE,TO BE AIMED AT THE ENEMY.
13070DATA THEY CAN NOT PASS THROUGH A STAR.
13080DATA "IF THEY HIT, THEY WILL COMPLETELY",DESTROY THE KLINGON VESSEL.
13090:
13100PROCclear(3)
13110W=308 : H=740 : RESTORE 13170
13120FOR a=1 TO 8 : READ i$ : PROCfont(W,H,7,i$)
13130H-=40 : NEXT : H-=52
13140SYS "OS_SpriteOp",290,Sprite%,"sys",W-4,H,0
13150PROCspace
13160:
13170DATA UNDER ATTACK THE ENTERPRISE WILL,SUFFER DAMAGE IF HIT BY MORE THAN
13180DATA 100 UNITS PER KLINGON ....," "
13190DATA ANY DAMAGE WILL BE AUTOMATICALLY,REPORTED BY DAMAGE CONTROL.
13200DATA FOR A COMPLETE LIST OF SYSTEMS,STATUS - USE COMMAND BUTTON:
13210:
13220PROCclear(3)
13230W=308 : H=740 : RESTORE 13300
13240FOR a=1 TO 4 : READ i$ : PROCfont(W,H,7,i$)
13250H-=40 : NEXT
13260FOR a=1 TO 3 : READ i$ : PROCfont(W,H,3,i$)
13270H-=40 : NEXT
13280PROCspace
13290:
13300DATA SYSTEMS WILL BE REPAIRED BY A,FACTOR OF 1 FOR EACH MOVE UNTIL
13310DATA THEY REACH 0 ..... IE 'USABLE'," "
13320DATA SYSTEMS CAN ONLY BE RETURNED TO,'NEW' BY OVERHAUL AT A STARBASE.
13330DATA THIS WILL INCUR A TIME PENALTY.
13340:
13350PROCclear(3)
13360W=308 : H=740 : RESTORE 13450
13370FOR a=1 TO 4 : READ i$ : PROCfont(W,H,7,i$)
13380H-=40 : NEXT : H-=52
13390SYS "OS_SpriteOp",290,Sprite%,"sta",W-4,H,0
13400H-=12 : FOR a=1 TO 2 : READ i$ : PROCfont(W,H,7,i$)
13410H-=40 : NEXT : H-=52
13420SYS "OS_SpriteOp",290,Sprite%,"kli",W-4,H,0
13430PROCspace
13440:
13450DATA THERE ARE SERVERAL OTHER COMMAND,BUTTONS WITH VARIOUS FUNCTIONS:
13460DATA FOR A MISSION STATUS REPORT USE,COMMAND BUTTON:
13470DATA INFORMATION ON KLINGON SHIPS CAN,BE ACCESSED WITH COMMAND BUTTON:
13480DATA A STATUS REPORT ON THE MISSION.
13490:
13500PROCclear(3)
13510W=308 : H=740 : RESTORE 13600
13520FOR a=1 TO 3 : READ i$ : PROCfont(W,H,7,i$)
13530H-=40 : NEXT : H-=52
13540SYS "OS_SpriteOp",290,Sprite%,"dat",W-4,H,0
13550H-=12 : FOR a=1 TO 3 : READ i$ : PROCfont(W,H,7,i$)
13560H-=40 : NEXT : H-=52
13570SYS "OS_SpriteOp",290,Sprite%,"crc",W-4,H,0
13580PROCspace
13590:
13600DATA FURTHER - KLINGON SHIP POSITIONS,CAN ALSO BE ACCESSED FOR AIMING
13610DATA TORPEDOES USING COMMAND BUTTON:
13620DATA TO HELP WITH YOUR NAVIGATION THERE,IS A COURSE AND RANGE CALCULATOR
13630DATA ACCESSED WITH COMMAND BUTTON:
13640:
13650ENDPROC
13660:
13670DEF PROCshortRangeScan
13680IF D(1)<0 THEN
13690 : PROCclear(3) : PROCtext(308,708,"R","THE SHORT RANGE SENSORS")
13700 : PROCtext(308,656,"R","ARE DAMAGED .....") : ENDPROC
13710ENDIF
13720X=276 : Y=336 : GCOL 8,0
13730SYS "OS_SpriteOp",290,Sprite%,"shortscan",X+20,Y+16,0
13740FOR A=1 TO 8
13750CASE A OF
13760WHEN 1 : x=X+240 : y=Y+352 : B$="1"
13770WHEN 2 : x=X+224 : y=Y+320
13780WHEN 3 : x=X+200 : y=Y+284 : B$="3"
13790WHEN 4 : x=X+178 : y=Y+248
13800WHEN 5 : x=X+154 : y=Y+208 : B$="5"
13810WHEN 6 : x=X+132 : y=Y+172
13820WHEN 7 : x=X+102 : y=Y+128 : B$="7"
13830WHEN 8 : x=X+74 : y=Y+80
13840ENDCASE
13850FOR B=1 TO 8
13860A$=Q$(A,B) : IF A$<>"" THEN
13870 : SYS "OS_SpriteOp",290,Sprite%,A$+B$,x,y,8
13880ENDIF
13890IF A=1 THEN x+=34
13900IF A=2 THEN x+=38
13910IF A=3 THEN x+=44
13920IF A=4 THEN x+=50
13930IF A=5 THEN x+=56
13940IF A=6 THEN x+=62
13950IF A=7 THEN x+=70
13960IF A=8 THEN x+=78
13970NEXT
13980NEXT
13990ENDPROC
14000:
14010DEF PROCcolours
14020VDU 19,0,24,176,176,176
14030VDU 19,1,16,208,0,0
14040VDU 19,2,16,208,144,0
14050VDU 19,3,16,240,192,0
14060VDU 19,4,16,0,0,224
14070VDU 19,5,16,0,128,208
14080VDU 19,6,16,0,176,224
14090VDU 19,7,16,224,224,224
14100VDU 19,8,16,0,192,0
14110VDU 19,9,16,208,208,208
14120VDU 19,10,16,96,96,96
14130VDU 19,11,16,128,128,128
14140VDU 19,12,16,144,144,144
14150VDU 19,13,16,160,160,160
14160VDU 19,14,16,176,176,176
14170VDU 19,15,16,192,192,192
14180COLOUR 142 : CLS
14190ENDPROC
14200:
14210DEF PROCspriteLoad
14220DIM Screen% &15000
14230!Screen%=&15000 : Screen%!4=0 : Screen%!8=16 : Screen%!12=16
14240SYS "OS_SpriteOp",266,Screen%,"<StarTrek$Dir>.SPRITES.Screen"
14250SYS "OS_SpriteOp",290,Screen%,"screen",0,0,0
14260CLEAR
14270DIM Sprite% &E900
14280!Sprite%=&E900 : Sprite%!4=0 : Sprite%!8=16 : Sprite%!12=16
14290SYS "OS_SpriteOp",266,Sprite%,"<StarTrek$Dir>.SPRITES.BackGround"
14300SYS "OS_SpriteOp",267,Sprite%,"<StarTrek$Dir>.SPRITES.Buttons"
14310SYS "OS_SpriteOp",267,Sprite%,"<StarTrek$Dir>.SPRITES.Wtext"
14320SYS "OS_SpriteOp",267,Sprite%,"<StarTrek$Dir>.SPRITES.Rtext"
14330SYS "OS_SpriteOp",267,Sprite%,"<StarTrek$Dir>.SPRITES.Ytext"
14340SYS "OS_SpriteOp",267,Sprite%,"<StarTrek$Dir>.SPRITES.Gtext"
14350SYS "OS_SpriteOp",267,Sprite%,"<StarTrek$Dir>.SPRITES.Btext"
14360OSCLI "<StarTrek$Dir>.TrekFont"
14370PROCpointer
14380ENDPROC
� > StarTrek
?� Adapted for the BBC computer by T.E.Kennington, Nov 1983;
A� Revised for Archimedes, Aug 1988 by Les Hurst, Bournemouth.
3� Graphically Adapted/Rewritten by Alex Hopkins
(=� November 88 - March 89. {RISC OS update September 1989}
2� Version G/1.5
<:
F � 12 : �
P� � �error : �
Z:
d#�colours : �spriteLoad : �setup
n:
x�
� �init
��energyBanks
��updateTime
�
�intro
��quadBuild
��updatePos
��shortRangeScan
��
�� "FX 21 9" : V%+=1
��condition
� �command
� � D%=0 �
� : Z=�(1)
0 : � Z>.998 � NEU%=� � �neutron : � �TvA
2 : � Z>.996 � DIL%=� � �dilithium : � �TvA
/ : � Z>.99 � MYS%=� � �mystery : � �TvA
"$ : � Z>0.98 � �nova : � �TvA
,( : � Z<.5 � V%>Z% � �probeReturn
6�
@$� E<1 � S<1 � � Dead% � �dead(1)
J� S<1 � S=0
T � Dead%
^� �
h�
r:
|� �quadBuild
�&X=G(Q1,Q2)*.01 : Z(Q1,Q2)=G(Q1,Q2)
� K3=�(X) : B3=�((X-K3)*10)
�!S3=G(Q1,Q2)-�(G(Q1,Q2)*.1)*10
�@Q$()="" : � I%=1 � 3 : K(I%,1)=0 : K(I%,2)=0 : K(I%,3)=0 : �
�Q$(S1,S2)="enterprise"
� � K3>0 �
� : � I%=1 � K3
�% : �rnd : Q$(R1,R2)="klingon"
�5 : K(I%,1)=R1 : K(I%,2)=R2 : K(I%,3)=S9+�(35)
� : �
��
� � B3>0 �
�& : �rnd : Q$(R1,R2)="starbase"
�
� S3>0 �
: � I%=1 � S3
&" : �rnd : Q$(R1,R2)="star"
0 : �
:�
D�baseCheck
N�
X:
b� �command
lL%=0 : L%=�mouse
v:
� Ȏ L% �
�'� 0 : �clear(3) : �commandInfo : �
�� 1 : �damageReport
�� 2 : �statusReport
�� 3 : �instruct
�� 4 : �shortRangeScan
�� 5 : �computerMap
�� 6 : �longRangeScan
�� 7 : �hyperProbe
�� 8 : �phasors
�� 9 : �scannerInfo
�� 10 : �torpedoes
�� 11 : �photonAim
� 12 : �deflector
� 13 : �navigation
� 14 : �courseCalculator
�
*� Dead% � �
4 � K3>0 � �(2)=1 � �attack
>� Dead% � �
H� V% � 4=0 � �report
R�
\:
f � �mouse
p
� x,y,but
z� : ȗ x,y,but : � but
�� y>116 � y<216 �
�� x>24 � x<96 � L%=1
�� x>96 � x<168 � L%=2
�� x>168 � x<250 � L%=3
��
�� y>248 � y<316 �
�� x>288 � x<360 � L%=4
�� x>360 � x<432 � L%=5
�� x>432 � x<504 � L%=6
�� x>504 � x<576 � L%=7
�� x>616 � x<688 � L%=8
�� x>696 � x<768 � L%=9
�� x>776 � x<848 � L%=10
� x>856 � x<928 � L%=11
� x>936 � x<1008 � L%=12
� x>1068 � x<1140 � L%=13
$ � x>1188 � x<1260 � L%=14
.�
8=L%
B:
L� �navigation
V
�clear(5)
`� D(10)<0 �
j& : �font(1084,228,1,"NAVCOMP")
t' : �font(1084,192,1,"DISABLED")
~ : �
��
�� D(7)<0 �
�F : �printer(2,"R","WARP DRIVE DISABLED ... MAX IMPULSE - 0.2")
��
� �font(1084,228,8,"HEADING")
�4C1=�input(1084,192,1100,192,3,":",4) : �clear(5)
� �font(1084,228,8,"WARP")
�4W1=�input(1084,192,1100,192,3,":",4) : �clear(5)
� � D(7)<0 � W1>.2 � � �DVD
�C1=C1+1 : � C1=9 � C1=1
�"� C1>9 � C1<1 � W1>8 � W1<.1 �
� : �clear(5) : �
�
� D%=1 � W1>.9 �
5 : �printer(1,"B","DOCKED AT STARBASE .....")
B : �printer(2,"Y","NO WARP AVAILABLE WHILST DOCKED .....")
( : � �DVD
2�
<N=�((W1+.0625)*8)
F
� E-N<1 �
P? : �printer(2,"R","INSUFFICIENT ENERGY FOR WARP .....")
Z : � E<=0 � S<=0 �
d : �space : �dead(1) : �
n*� : �space : �clear(5) : �clear(6) : �
x�
��
�$Q$(S1,S2)="" : X=S1 : Y=S2 : �XY
�
� W1>=1 �
�9 : �printer(2,"G","WARP ENGINES ACTIVATED .....")
��
��updateBanks
� I%=0 : �
�S1=S1+X1 : S2=S2+X2
�!� S1<1 � S1>8 � S2<1 � S2>8 �
�( : X=Q1*8+X+X1*N : Y=Q2*8+Y+X2*N
� : Q1=�(X/8) : Q2=�(Y/8)
�& : S1=�(X-Q1*8) : S2=�(Y-Q2*8)
�" : � S1=0 � Q1=Q1-1 : S1=8
" : � S2=0 � Q2=Q2-1 : S2=8
: T=T+1 : E=E-N+5
: � T>T8 � �dead(2) : �
" : �newQuadrant : �
,�
6� Q$(S1,S2)="" �
@ : I%=I%+1 : � I%>=N
J-� : S1=�(S1-X1) : S2=�(S2-X2) : �clear(3)
T : � W1<1 �
^7 : �text(308,608,"R","IMPULSE DRIVE SHUT DOWN")
h3� : �text(308,608,"R","WARP ENGINES SHUT DOWN")
r�
|H : �text(308,556,"R","AT SECTOR "+�(S2)+"."+�(S1)+" DUE TO BAD")
�; : �text(308,504,"R","NAVIGATION .....") : W=�(200)
��
�6S1=�(S1+.5) : S2=�(S2+.5) : Q$(S1,S2)="enterprise"
�.E=E-N : T=(�(10*T+1.1))/10 : � W1<1 � �txF
�T=(�(10*T+9))/10
�� T>T0+T9 � �dead(2)
� �baseCheck : �shortRangeScan
��clear(5) : �clear(6)
��
�:
�� �newQuadrant
��clear(1) : �clear(6)
�`�printer(1,"W","NOW ENTERING QUADRANT "+�(Q2)+"."+�(Q1)+" SECTOR "+�(S2)+"."+�(S1)+" .....")
!� Q1<1 � Q1>8 � Q2<1 � Q2>8 �
: �clear(6)
: � Q1>9 � Q1=9
& : � Q2>9 � Q2=9
0 : � Q1<0 � Q1=0
: : � Q2<0 � Q2=0
DG : �printer(2,"Y","YOU HAVE STRAYED OUTSIDE OPERATIONS REGION")
N; : W=�(80) : �printer(2,"Y","NO CHARTS HELD .....")
X�
b�quadBuild : �baseCheck
l8�shortRangeScan : �updatePos : �clear(1) : �clear(6)
v � G(Q1,Q2)=-1 � �superNova
��
�:
�� �noKlingons
�%�clear(1) : �clear(4) : �clear(6)
�(�font(624,228,8,"SENSORS REPORT NO")
�'�font(624,192,8,"KLINGONS IN THIS")
�%�font(624,156,8,"QUADRANT .....")
��
�:
�� �phasors
� � K3<1 �
� : �noKlingons : �
��
�clear(4) : �clear(6)
� D(9)<0 �
- : �font(624,228,1,"COMBAT COMPUTER")
+ : �font(624,192,1,"IS DOWN .....")
* : �
4�
>� D(4)<0 �
H/ : �font(624,228,1,"PHASORS ARE DOWN!")
R : �
\�
f(�font(624,228,8,"ENERGY BANKS HAVE")
p+�font(624,192,8,�(E)+" UNITS USABLE -")
z2X=�input(624,156,900,156,3,"UNITS TO FIRE:",4)
�
� X<1 � �
�
� E-X<0 �
�E : �printer(2,"R","INSUFFICENT ENERGY FOR PHASOR SHOT .....")
� : �space : � �TBH
��
�$E=E-X : �updateBanks : �clear(4)
�5�printer(2,"Y","PHASOR STRIKE REPORT:") : W=�(40)
�� I%=1 � 3
�� K(I%,3)<=0 � �TxI
�+H=�(X/K3/(�D(0)/2)) : K(I%,3)=K(I%,3)-H
�R�printer(2,"Y",�(H)+" UNIT HIT IN SECTOR "+�(K(I%,2))+"."+�(K(I%,1))+" .....")
� W=�(40)
�� K(I%,3)<=0 �
: �klingonWipe(Y-52)
! : � K9<=0 � �dead(4) : �
G� : �printer(2,"Y","TARGET HAS "+�(K(I%,3))+" UNITS REMAINING ...")
$�
. W=�(40)
8�
B+�shortRangeScan : �clear(1) : �clear(6)
L� E<1 � S<1 � �dead(1)
V�
`:
j� �torpedoes
t � K3<1 �
~ : �noKlingons : �
��
�
�clear(4)
�� D(9)<0 �
�- : �font(624,228,1,"COMBAT COMPUTER")
�+ : �font(624,192,1,"IS DOWN .....")
� : �
��
� � P=0 �
�+ : �font(624,228,1,"ALL TORPEDOES")
�, : �font(624,192,1,"EXPENDED .....")
� : �
��
� D(5)<0 �
. : �font(624,228,1,"PHOTON TUBES ARE")
+ : �font(624,192,1,"DAMAGED .....")
: �
(�
2)�font(624,228,3,"FIRE BEARING (0-7)")
<&C1=�input(624,192,648,192,3,":",4)
FC1=C1+1 : � C1>9 � �
P�fireTorpedoes
Z�
d:
n� �fireTorpedoes
xF%=0 : �XY
�:X=S1 : Y=S2 : P=P-1 : �font(624,156,8,"TORPEDO TRACK")
� X=X+X1 : Y=Y+X2 : W=�(25)
� � X<1 � X>8 � Y<1 � Y>8 �
�= : �clear(4) : �printer(2,"Y","TORPEDO MISSED .....")
� : �
��
�!x$=�(�(X+.5)) : y$=�(�(Y+.5))
� � 0 : ȓ Ȑ 920,124,64,32
� �font(920,156,3,y$+"."+x$)
� � �(X+.25)<>�(X+.75) � �tLJ
� � �(Y+.25)<>�(Y+.75) � �tLJ
�Z1=�(X+.5) : Z2=�(Y+.5)
�#A$="" : �check : � Z3<>0 � �tLJ
%A$="klingon" : �check : � Z3<>0 �
G : �clear(4) : �printer(2,"R","TARGET KLINGON DESTROYED .....")
: K3=K3-1 : K9=K9-1
"! : � K9<=0 � �dead(4) : �
, : � I%=1 � 3
6 : � Z1<>K(I%,1) � �DTK
@2 : � Z2=K(I%,2) � K(I%,3)=0 : Q$(Z1,Z2)=""
J7 : G(Q1,Q2)=K3*100+B3*10+S3 : Z(Q1,Q2)=G(Q1,Q2)
T" : � : �shortRangeScan : �
^� : A$="star" : �check
h�
r
� Z3<>0 �
|D : �clear(4) : �printer(2,"Y","STAR ABSORBED TORPEDO .....")
� : � �(1)>.8 � �dead(5)
� : �
� � : A$="starbase" : �check
��
�� Z3=0 � � �tLJ
��
�D�clear(4) : �printer(2,"B","STARBASE DESTROYED .....") : W=�(80)
�B�printer(2,"Y","YOU WILL APPEAR BEFOR A COURT MARSHALL .....")
�@W=�(40) : �printer(2,"Y","IF YOU SURVIVE THE MISSION .....")
�$B3=B3-1 : B9=B9-1 : Q$(Z1,Z2)=""
�0G(Q1,Q2)=K3*100+B3*10+S3 : Z(Q1,Q2)=G(Q1,Q2)
�� E<1 � �dead(1)
��
:
� �deflector
�clear(4)
&� D(6)<0 �
0, : �font(624,228,1,"DEFLECTORS ARE")
:. : �font(624,192,1,"OUT OF ACTION ..")
D : �
N�
X)�font(624,228,8,"ENERGY BANKS "+�(E))
b)�font(624,192,5,"DEFLECTOR AT "+�(S))
l+X=�input(624,156,800,156,3,"SET TO:",4)
v
� X>E+S �
�
�clear(4)
�A : �printer(2,"Y","INSUFFICENT ENERGY FOR SETTING .....")
� : W=�(80) : � �T\L
��
�W=�(15) : �clear(4)
�� X<=1 � X=S �
�. : �font(624,228,8,"DEFLECTORS STILL")
�0 : �font(624,192,8,"UNCHANGED AT "+�(S))
�$� : E=E+S-X : S=X : �updateBanks
�/ : �font(624,228,8,"DEFLECTORS STABLE")
�0 : �font(624,192,8,"AT "+�(S)+" UNITS.")
��
��clear(1) : �clear(6)
�
:
� �damageReport
� A,B,C,Y,A$ : �clear(2)
*� D(8)<0 �
4$ : �font(32,748,1,"SYSTEMS")
># : �font(32,708,1,"STATUS")
H$ : �font(32,668,1,"IS DOWN")
R : �
\�
fY=748 : � �dJM
p� A=1 � 12
z#� A=4 � A=7 � A=9 � A=11 � Y-=4
� � B,A$ : �font(32,Y,B,A$)
�C=D(A)+4 : � C<1 � �d@M
� � C<4 �
� : �font(64,Y,1,�C,"_"))
� � : �font(64,Y,B,�C,"_"))
��
�
Y-=40 : �
�)� 8,"S",8,"L",8,"H",2,"P",2,"T",2,"D"
�)� 3,"W",3,"D",5,"C",5,"N",6,"C",6,"L"
��
�:
�� �klingonWipe(Y)
�4�printer(2,"R","TARGET KLINGON DESTROYED .....")
>K3=K3-1 : K9=K9-1 : Z1=K(I%,1) : Z2=K(I%,2) : Q$(Z1,Z2)=""
0G(Q1,Q2)=K3*100+B3*10+S3 : Z(Q1,Q2)=G(Q1,Q2)
�
$:
.
� �attack
8� K3=0 � �
B"k$="S ARE" : � K3=1 � k$=" IS"
L � D%=1 �
VA : �printer(1,"R",�(K3)+" KLINGON"+k$+" ATTACKING .....")
`G : �printer(2,"Y","STARBASE SHIELDS PROTECT YOUR VESSEL .....")
j : �
t�
~:�printer(1,"R",�(K3)+" KLINGON"+k$+" ATTACKING .....")
�&� I%=1 � 3 : � K(I%,3)<=0 � � �ThO
�H=�(K(I%,3)/�D(0)*�(8))
�T�printer(2,"Y",�(H)+" UNIT HIT FROM SECTOR "+�(K(I%,2))+"."+�(K(I%,1))+" .....")
�SS=S-H : � SS<0 �
� : E+=SS : H-=S : S=0
� : � H<0 � H=0
�� : S=SS : H=0
��
�W=�(40) : �updateBanks
� � S<=0 �
�= : �printer(2,"R","DEFLECTOR SHIELDS ARE DOWN .....")
�( : � E<0 � �space : �dead(3) : �
@� : �printer(2,"G","SHIELDS STEADY AT "+�(S)+" UNITS .....")
�
W=�(40)
�damage : �move
(#� : �clear(1) : �shortRangeScan
2�
<:
F
� �damage
P� H<100 � S>0 � �
ZR1=�(�(12))
d � S>0 �
n : D(R1)=D(R1)-�(�(2)+1)
x� : � H<100 �
� : D(R1)=D(R1)-�(�(2)+2)
� � : D(R1)=D(R1)-�(�(5)+2)
��
��
�4�printer(2,"Y",D$(R1)+" SUSTAINED DAMAGE .....")
�� H>1000 �
� : R1=�(�(12))
� : � S>0 �
� : D(R1)=D(R1)-�(�(2)+2)
� � : D(R1)=D(R1)-�(�(5)+2)
��
�>W=�(40) : �printer(2,"Y",D$(R1)+" SUSTAINED DAMAGE .....")
��
�damageReport
�
:
"� �dead(a)
,
�clear(3)
62�printer(1,"Y","YOUR MISSION HAS ENDED .....")
@-�text(308,708,"B","STARTREK: THE GAME -")
J
Ȏ a �
T5� 1 : �text(308,652,"W","THE ENTERPRISE IS DEAD")
^5 : �text(308,604,"W","IN SPACE - YOU WILL")
h: : �text(308,556,"W","SUFFER A SLOW COLD DEATH")
r8 : �text(308,508,"W","AS LIFE SUPPORT FAILS!")
|8� 2 : �text(308,652,"W","IT IS NOW SD "+�(T)+" AND")
�8 : �text(308,604,"W","YOUR TIME HAS RUN OUT!")
�6� 3 : �text(308,652,"Y","THE ENTERPRISE HAS BEEN")
�1 : �text(308,604,"Y","DESTROYED .....")
�7� 4 : �text(308,652,"B","THE LAST KLINGON SHIP IS")
�1 : �text(308,604,"B","DESTROYED .....")
�4 : �text(308,556,"W","WELL DONE CAPTAIN!")
�* : Dead%=� : �space : �again : �
�6� 5 : �text(308,652,"Y","YOUR TORPEDO HAS CAUSED")
�9 : �text(308,604,"Y","A STAR TO GO NOVA .....")
�9 : �text(308,556,"Y","THE ENTERPRISE HAS BEEN")
�1 : �text(308,508,"Y","DESTROYED .....")
��
�5�text(308,460,"R","THERE WERE "+�(K9)+" KLINGON")
.�text(308,412,"R","SHIPS LEFT TO CONQUER")
)�text(308,364,"R","THE FEDERATION!!")
Dead%=� : �space : �again
&�
0:
: � �again
D�clear(1) : �clear(3)
N-�text(308,708,"B","STARTREK: THE GAME -")
X/�text(308,652,"W","WOULD YOU LIKE ANOTHER")
b:Y$=�inputVarious(308,604,724,604,"W","MISSION (Y-N):")
l� Y$="Y" � Y$="y" � �
v � "<StarTrek$Dir>.ArcFont"
��
�:
�� �baseCheck
�A=�baseCheck
�� D%=0 � A=1 �
�- : D%=1 : S=0 : E=E0 : P=P0 : �docked
��
�� D%=1 � A=0 � D%=0
��
�:
�� �baseCheck
�'� I%=S1-1 � S1+1 : � J%=S2-1 � S2+1
�!� I%>0 � I%<9 � J%>0 � J%<9 �
1 : A$="starbase" : Z1=I% : Z2=J% : �check
: � Z3>0 � =1
�
� ,
*=0
4:
>
� �docked
H:�clear(1) : �printer(1,"B","DOCKED AT STARBASE .....")
R>�clear(3) : �text(308,708,"W","WELCOME TO STARBASE .....")
\�energyBanks
f4�font(308,692,5,"RE-ARMING AND RE-FUELING HAVE")
p8�font(308,652,5,"BEEN CARRIED OUT AS NECESSARY ...")
z8�font(308,612,7,"DIAGNOSTIC CHECKS ARE PROCEEDING:")
�%�damageReport : W=�(100) : � �drR
�-N%=0 : J%=0 : X=308 : Y=572 : � I%=1 � 12
�0� I%=7 � � 0 : ȓ Ȑ 308,360,700,220 : Y=572
�?� col : �font(X,Y,col,D$(I%)) : �font(X+500,Y,col,�(D(I%)))
�'� D(I%)<4 � N%=N%+D(I%)-4 : J%=J%+1
�Y-=36 : W=�(100) : �
� � J%>0 �
�* : Tl=�((N%/J%)/4) : � Tl>5 � Tl=5
� � : �
��
�
�clear(3)
� � 8,8,8,2,2,2,3,3,5,5,6,6
�1�text(308,708,"B","STARBASE CONTROL REPORT:")
-�text(308,656,"Y","ESTIMATED TIME FOR A")
/�text(308,604,"Y","COMPLETE SYSTEMS REFIT")
3�text(308,552,"Y",": "+��(Tl),4)+" STARDATES.")
$/�text(308,500,"B","PROCEED WITH REFITTING")
.2A$=�inputVarious(308,448,556,448,"B","(Y-N):")
8� �A$,1)="Y" �
B : N%=4 : T=T+Tl
L � : �
V�
`6�clear(3) : �text(308,708,"B","STARBASE CONTROL:")
j-�text(308,656,"B","ENGINEERING REPORT -")
t� I%=1 � 12
~ȕ D(I%)<4
� D(I%)=4
��
��
��damageReport
�*MYS%=� : DIL%=� : NEU%=� : �updateTime
�.�text(308,604,"W","ALL SYSTEMS NOW FULLY")
�4�text(308,552,"W","FUNCTIONAL .....") : W=�(100)
��
�:
�� �statusReport
�
�clear(2)
�X=32 : Y=740 : � �t~T
� a=0 � 6 : � a$
Ȏ a �
� 0 : �font(X,Y,2,a$)
( : �font(X,Y-32,3,":ALDEVRON")
(� 1 : �font(X,Y,6,a$)
2& : �font(X,Y-32,3,":"+�(B9))
<� 2 : �font(X,Y,8,a$)
F3 : �font(X,Y-32,3,":"+�((�(T8-T)*10)/10))
P� 3 : �font(X,Y,1,a$)
Z& : �font(X,Y-32,3,":"+�(K9))
d� 4 : �font(X,Y,8,a$)
n% : �font(X,Y-32,3,":"+�(E))
x� 5 : �font(X,Y,6,a$)
�% : �font(X,Y-32,3,":"+�(S))
�� 6 : �font(X,Y,2,a$)
�% : �font(X,Y-32,3,":"+�(P))
��
�
Y-=68 : �
�:
�D� SYSTEM,STARBASES,TIME LEFT,KLINGONS,ENERGY,DEFLECTOR,TORPEDOES
�:
��
�:
�� �photonAim
�� D(9)<0 �
�- : �font(324,228,1,"COMBAT COMPUTER")
+ : �font(324,192,1,"IS DOWN .....")
: �
�
" � K3<1 �
, : �noKlingons : �
6�
@
�clear(3)
J/�text(308,708,"R","AIMING DATA FOR ENEMY:")
T Q%=648 : � I%=1 � 3 : P%=420
^� K(I%,3)<=0 � �tFU
h)C1=S1 : A=S2 : W1=K(I%,1) : X=K(I%,2)
r#�text(308,Q%,"R","("+�(I%)+")")
|
� �tJV
�Q%-=116 : �
��
�:
�� �courseCalculator
�� D(10)<0 �
�' : �font(1084,228,1,"NAV COMP")
�' : �font(1084,192,1,"DISABLED")
� : �
��
��clear(3) : S%=1
�+�text(308,708,"W","COURSE CALCULATOR:")
�0�text(308,656,"G","IN THIS SECTOR OR A NEW")
�;A$=�inputVarious(308,604,772,604,"G","QUADRANT (S-Q):")
"B$="" : � A$="S" � B$="SECTOR"
#� A$="Q" � B$="QUADRANT" : S%=0
%� B$="" � W=�(15) : �clear(3) : �
&$�text(308,552,"Y","COORDINATES")
0,X=�inputNumber(704,552,772,552,"Y","X:")
:-W1=�inputNumber(704,500,772,500,"Y","Y:")
D � X<1 � X>8 � W1<1 � W1>8 �
N" : W=�(15) : �clear(3) : �
X�
b1C1=S1 : A=S2 : � B$="QUADRANT" � C1=Q1 : A=Q2
l P%=308 : Q%=432 : � �tJV
v�
�:
�X=X-A : A=C1-W1
�� X<0 � � �TLW
�� A<0 � � �DRW
�� X>0 � � �dFV
�� A=0 � � �TjW
�:
�C1=0
�� �(X)<=�(A) � � �dnV
�#DR=C1+(((�(X)-�(A))+�(X))/�(X))
�
� �tDW
�DR=C1+(�(X)/�(A))
�
� �tDW
:
� A>0 � � �T~W
� X=0 � � �DRW
:
*
� X=0 � �
4C1=4 : � �dPV
>C1=6 : � �D\W
H:
RC1=2
\� �(X)>=�(A) � � �DzW
f#DR=C1+(((�(A)-�(X))+�(A))/�(A))
p �tDW
zDR=C1+(�(A)/�(X))
�bear$=�(DR)
� � S%=0 �
�! : dist$=�(�(�(X*X+A*A)))
� � : dist$=�(�(X*X+A*A)/10)
��
�+�text(P%,Q%,"W","BEARING: "+�bear$,4))
�.�text(P%,Q%-52,"W","DISTANCE: "+�dist$,4))
��
�:
�
� �rnd
�R1=�(8) : R2=�(8)
�"A$="" : Z1=R1 : Z2=R2 : �check
�� Z3=0 � �dhW
�
:
� �check
$ Z3=0 : � Q$(Z1,Z2)=A$ � Z3=1
.�
8:
B� �hyperProbe
L
�clear(3)
V� D(3)<0 �
`8 : �text(308,708,"R","HYPERPROBE DAMAGED .....")
j : �
t�
~
� Q4<>0 �
�5 : �text(308,708,"R","HYPERPROBE IS ALREADY")
�. : �text(308,656,"R","LAUNCHED .....")
� : �
��
�-�text(308,708,"Y","LAUNCH HYPERPROBE TO")
�#�text(308,656,"Y","QUADRANT -")
�-Q5=�inputNumber(620,604,680,604,"W","X:")
�-Q4=�inputNumber(620,552,680,552,"W","Y:")
�!� Q4<1 � Q4>8 � Q5<1 � Q5>8 �
�7 : �text(308,448,"R","HYPERPROBE IS NOW ON AN")
�9 : �text(308,396,"R","IRRETRIEVABLE TRAJECTORY.")
� : Q4=-1 : �
�
/�text(308,448,"W","HYPERPROBE LAUNCHED TO")
;�text(308,396,"W","QUADRANT "+�(Q5)+"."+�(Q4)+" .....")
Z%=V%+�(9)
(�
2:
<� �superNova
F�clear(1) : �clear(2)
P7�text(24,768,"R","YOU HAVE ENTERED A SUPERNOVA IN")
Z:�text(24,708,"R","QUADRANT "+�(Q2)+"."+�(Q1)+" .....")
d �dead(2)
n�
x:
� � �nova
��rnd : � Z1<>Q1 � �t`Y
�� Z2=Q2 ��tLY
�� G(Z1,Z2)=-1 � �tLY
� X=G(Z1,Z2)/100 : X1=�(X)
�A�printer(2,"W","COMMUNICATIONS OFFICER REPORTING:") : W=�(80)
�D�printer(2,"W","SPACE WATCH HAS REPORTED A SUPERNOVA") : W=�(40)
�;�printer(2,"W","IN QUADRANT "+�(Z2)+"."+�(Z1)+" .....")
�EW=�(40) : �printer(2,"R","DO NOT ENTER AT SUB LIGHT SPEED .....")
�� X1<=0 � �TDZ
�%W=�(40) : A$="" : � X1>1 � A$="S"
�:�printer(2,"Y",�(X1)+" KLINGON"+A$+" DESTROYED .....")
�%K9=K9-X1 : � K9<=0 � �dead(4) : �
� 10*(X-X1)<1 � �TbZ
8W=�(40) : �printer(2,"Y","STARBASE DESTROYED .....")
B9=B9-1
" G(Z1,Z2)=-1 : Z(Z1,Z2)=-1
,W=�(40) : �clear(6)
6�
@:
J� �probeReturn
T � A,B,C,X,Y : � Q4<1 � �
^�clear(3) : N%=G(Q4,Q5)
h � N%<0 �
r7 : �text(308,708,"R","CONTACT WITH HYPERPROBE")
|3 : �text(308,656,"R","HAS BEEN LOST .....")
� : Q4=-1 : �
��
�0�text(308,708,"W","HYPERPROBE HAS RETURNED")
�@�text(308,656,"W","FROM QUADRANT "+�(Q5)+"."+�(Q4)+" .....")
�Y=560 : � A=Q4-1 � Q4+1
�$X=308 : N(1)=0 : N(2)=0 : N(3)=0
�� B=Q5-1 � Q5+1
�>� A>0 � A<9 � B>0 � B<9 � N(B-Q5+2)=G(A,B) : Z(A,B)=G(A,B)
��
�
� C=1 � 3
�� 8 : ȓ Ȑ X,Y,220,84
� � 0 : ȓ Ȑ X+4,Y+4,212,76
�3� N(C)=0 � �text(X+26,Y+12,"W"," ") : � �Tz[
5� N(C)=-1 � �text(X+32,Y+12,"Y","* * *") : � �Tz[
q$=��(N(C)+1000),3)
(k$=�q$,1) : �text(X+32,Y+24,"R",k$)
&)s$=�q$,2,1) : �text(X+96,Y+24,"B",s$)
0(p$=�q$,1) : �text(X+160,Y+24,"Y",p$)
:X+=232 : �
DY-=96 : �
NQ4=0
X�
b:
l� �scannerInfo
v � K3<1 � �noKlingons : �
�� D(9)<0 �
�- : �font(324,228,1,"COMBAT COMPUTER")
�+ : �font(324,192,1,"IS DOWN .....")
� : �
��
�
�clear(3)
�.�text(308,708,"R","KLINGON FORCE STATUS:")
�A�text(308,656,"Y","SECTOR:") : �text(608,656,"Y","STRENGTH:")
�P%=308 : Q%=604
�� I%=1 � K3
�.�text(P%,Q%,"W",�(K(I%,2))+"."+�(K(I%,1)))
�-�text(P%+300,Q%,"W",�(K(I%,3))+" UNITS.")
� Q%-=120
�
�
:
� �report
*� I%,T,W,A$ : T=0
4� I%=1 � 12
>� I%=7 � DIL% � �D\\
H� I%=6 � NEU% � �D\\
R� D(I%)<0 � T=1
\�
f � T=1 �
pB : �clear(6) : �printer(2,"W","DAMAGE CONTROL REPORTING:")
z : W=�(20)
��
�� I%=1 � 12
�� I%=7 � DIL% � �d^\
�� I%=6 � NEU% � �d^\
�� D(I%)>=0 � �d^\
� A$=" BEING REPAIRED ....."
�D(I%)=D(I%)+1
�'� D(I%)>=0 � A$=" NOW OPERATIONAL."
�'�printer(2,"W",D$(I%)+A$) : W=�(20)
�� : �clear(6)
��
�:
� � �move
Z1=K(I%,1) : Z2=K(I%,2)
� S1-Z1>0 � Z1=Z1+1
� S2-Z2>0 � Z2=Z2+1
$� S1-Z1<0 � Z1=Z1-1
.� S2-Z2<0 � Z2=Z2-1
8 A$="" : �check : � Z3=0 � �
BQ$(K(I%,1),K(I%,2))=""
L1K(I%,1)=Z1 : K(I%,2)=Z2 : Q$(Z1,Z2)="klingon"
V�
`:
j � �D(D)
t%=�((K(I%,1)-S1)^2+(K(I%,2)-S2)^2)
~:
�� �mystery
�$E9=�(1) : � E9<.2 � E9>.6 � �tR]
�E=�(E*E9+1) : MYS%=�
�:�printer(2,"W","SCIENCE OFFICER REPORTING:") : W=�(40)
�>�printer(2,"Y","A MYSTERY POWER DRAIN HAS OCCURRED .....")
��updateBanks : W=�(40)
�B�printer(2,"R","ONLY "+�(E)+" UNITS OF POWER REMAINING .....")
��
�:
�� �dilithium
�6�printer(2,"W","ENGINEERING REPORTING:") : W=�(40)
�A�printer(2,"Y","DILITHIUM CRYSTALS STOLEN BY INTRUDER .....")
D(7)=-1E2 : DIL%=� : W=�(40)
=�printer(2,"R","NO POWER FOR WARP DRIVE .....") : W=�(40)
:�printer(2,"R","RETURN TO STARBASE FOR REPAIRS .....")
�
(:
2� �neutron
<:�printer(2,"W","SCIENCE OFFICER REPORTING:") : W=�(40)
F@�printer(2,"Y","COLLISION WITH A NEUTRON MINE HAS OCCURRED")
P W=�(40) : D(6)=-1E2 : NEU%=�
ZC�printer(2,"R","SHIELDS DISABLED - NO CONTROL AVAILABLE .....")
dDW=�(40) : �printer(2,"R","RETURN TO STARBASE FOR REPAIRS .....")
n�
x:
���XY
�-X1=C(C1,1)+(C(C1+1,1)-C(C1,1))*(C1-�(C1))
�-X2=C(C1,2)+(C(C1+1,2)-C(C1,2))*(C1-�(C1))
��
�:
�� �pointer
�� Data 400
�-� "LOAD <StarTrek$Dir>.Pointer "+�~(Data)
�"Data?&01=2 : Data!&06=Data+&0A
�ș "OS_Word",21,Data
�� "POINTER"
�ȗ ȓ 0,120,1280,200
�ȗ � 1,240,192,0
ȗ � 3,0,0,224
ȗ � 2
�
":
, � �setup
6;� G(9,9),Z(9,9),C(9,2),K(3,3),N(3),D(12),Q$(9,9),D$(12)
@%C(1,1)=-1 : C(2,1)=-1 : C(7,2)=-1
J%C(8,1)=-1 : C(8,2)=-1 : C(6,2)=-1
T$C(9,1)=-1 : C(1,2)=0 : C(3,1)=0
^$C(5,2)=0 : C(7,1)=0 : C(9,2)=0
h$C(2,2)=1 : C(3,2)=1 : C(4,1)=1
r$C(4,2)=1 : C(5,1)=1 : C(6,1)=1
|'� �tF_ : � I%=1 � 12 : � D$(I%) : �
�@� SHORT RANGE SENSORS,LONG RANGE SENSORS,HYPERPROBE LAUNCHER
�3� PHASER CONTROL,PHOTON TUBES,DEFLECTOR CONTROL
�1� WARP ENGINES,DAMAGE CONTROL,COMBAT COMPUTER
�7� NAVIGATION COMPUTER,CENTRAL COMPUTER,LIFE SUPPORT
��
�:
� � �init
�/T=(�((�(1)+3)*1E4))/10 : T0=T : K9=0 : B9=0
�,T9=25+�(�(10)) : T8=T9+T : Q4=0 : MAP%=0
�9S9=200 : E0=4000 : P0=10 : P=P0 : E=E0 : E1=E+1 : S=0
� D()=4 : G()=0 : Z()=0 : D%=0
�� I%=1 � 8 : � J%=1 � 8
�R1=�(1) : K3=0
� R1>.8 � K3=1
� R1>.95 � K3=2
� R1>.98 � K3=3
&/K9=K9+K3 : R1=�(1) : B3=0 : � R1>.96 � B3=1
01B9=B9+B3 : S3=�(8) : G(I%,J%)=K3*100+B3*10+S3
: � : �
D%� B9<=0 � G(6,3)=G(6,3)+10 : B9=1
N)Q1=�(8) : Q2=�(8) : S1=�(8) : S2=�(8)
X-Dead%=� : MYS%=� : DIL%=� : NEU%=� : V%=0
b�
l:
v� �printer(a,c$,a$)
�� B,B$,X,Y : X=28
�
Ȏ a �
�� 1 : Y=824 : �clear(1)
�� 2 : Y=24 : �clear(6)
��
� � 8,0
� � B=1 � �(a$) : B$=�a$,B,1)
� � �(B$)<>13 � �(B$)<>32 �
�3 : ș "OS_SpriteOp",290,Sprite%,c$+B$,X,Y,0
� : � B$=")" � X+=8
�$ : � B$="M" � B$="W" � X+=16
�- : � B$="I" � B$="." � B$=":" � X-=16
��
!X+=30 : W=�(6)
! �
!�
! :
!*� �longRangeScan
!4� A,B,C,X,Y : �clear(3)
!>� D(2)<0 �
!H6 : �text(308,708,"R","THE LONG RANGE SENSORS")
!R5 : �text(308,656,"R","ARE DAMAGED .....") : �
!\�
!fY=664 : � A=Q1-1 � Q1+1
!p$X=328 : N(1)=0 : N(2)=0 : N(3)=0
!z� B=Q2-1 � Q2+1
!�>� A>0 � A<9 � B>0 � B<9 � N(B-Q2+2)=G(A,B) : Z(A,B)=G(A,B)
!��
!�
� C=1 � 3
!�� 8 : ȓ Ȑ X,Y,208,84
!�)� A=Q1 � C=2 � � 3 : ȓ Ȑ X,Y,208,84
!� � 0 : ȓ Ȑ X+4,Y+4,200,76
!�3� N(C)=0 � �text(X+26,Y+12,"W"," ") : � �d|a
!�5� N(C)=-1 � �text(X+32,Y+24,"Y","* * *") : � �d|a
!�q$=��(N(C)+1000),3)
!�(k$=�q$,1) : �text(X+32,Y+24,"R",k$)
!�)s$=�q$,2,1) : �text(X+96,Y+24,"B",s$)
!�(p$=�q$,1) : �text(X+160,Y+24,"Y",p$)
!�X+=220 : �
"Y-=96 : �
"-�font(328,460,1,"1 - NUMBER OF KLINGONS")
".�font(328,424,5,"2 - NUMBER OF STARBASES")
"$*�font(328,384,3,"3 - NUMBER OF STARS")
".�
"8:
"B� �computerMap
"L� A,B,C,X,Y
"V%�clear(1) : �clear(3) : �clear(6)
"`� D(11)<0 �
"j7 : �text(308,708,"R","THE CENTRAL COMPUTER IS")
"t1 : �text(308,656,"R","DAMAGED .....") : �
"~�
"�Y=708 : � A=0 � 8
"�X=304 : � B=0 � 9
"�� A>0 � B>0 � B<9 �
"� : � 8 : ȓ Ȑ X,Y,80,44
"�$ : � 0 : ȓ Ȑ X+4,Y+4,72,36
"��
"�� A=0 � B>0 � B<9 �
"�" : �font(X+32,Y+36,7,�(B))
"��
"�� A>0 � (B=0 � B=9) �
"�" : �font(X+12,Y+36,7,�(A))
"��
# � A>0 � B>0 � B<9 �
#
3� Z(A,B)=0 � �font(X+10,Y+36,7," ") : � �T|c
#3� Z(A,B)=-1 � �font(X+10,Y+36,3,"***") : � �T|c
# C=Z(A,B)+1000
#( �font(X+12,Y+36,7,��(C),3))
#2�
#< � B>0 �
#F : X+=78
#P
� : X+=36
#Z�
#d�
#n � A>0 �
#x : Y-=44
#�
� : Y-=40
#��
#��
#�'X=262+(Q2*78) : Y=712-(Q1*44) : � 3
#�8ȓ X,Y,78,44 : � X+2,Y,X+2,Y+44 : � X+80,Y,X+80,Y+44
#��
#�:
#�!� �input(x%,y%,x1,y1,c%,a$,n)
#�!�font(x%,y%,c%,a$) : Temp$=""
#�� : � : G=� : � G>12
#�0� �"0123456789.",�(G))<>0 � Temp$=Temp$+�(G)
#�&� G=127 � Temp$=�Temp$,�(Temp$)-1)
#�1� �(Temp$)>n � � 7 : Temp$=�Temp$,�(Temp$)-1)
$� Temp$<"" � Temp$=""
$ � 0 : ȓ Ȑ x1,y1-32,n*20,32
$2� Temp$>"" � Temp$<�127 � �font(x1,y1,1,Temp$)
$" � G=13 : � Temp$="" � =0
$,
=�(Temp$)
$6:
$@"� �input2(x%,y%,x1,y1,c%,a$,n)
$J!�font(x%,y%,c%,a$) : Temp$=""
$T� : � : G=� : � G>12
$^@� �"ABCDEFGHIJKLMNOPQRSTUVWXYZ ",�(G))<>0 � Temp$=Temp$+�(G)
$h&� G=127 � Temp$=�Temp$,�(Temp$)-1)
$r1� �(Temp$)>n � � 7 : Temp$=�Temp$,�(Temp$)-1)
$|� Temp$<"" � Temp$=""
$� � 0 : ȓ Ȑ x1,y1-32,n*20,32
$�2� Temp$>"" � Temp$<�127 � �font(x1,y1,1,Temp$)
$�
� G=13
$�
=Temp$
$�:
$�%� �inputNumber(x%,y%,x1,y1,c$,a$)
$�!�text(x%,y%,c$,a$) : Temp$=""
$�� : � : G=� : � G>12
$� � �"0123456789.",�(G))<>0 �
$� : Temp$=Temp$+�(G)
$��
$�&� G=127 � Temp$=�Temp$,�(Temp$)-1)
$�� Temp$<"" � Temp$=""
% � 0 : ȓ Ȑ x1,y1,108,40
%4� Temp$>"" � Temp$<�127 � �text(x1,y1,"R",Temp$)
% � G=13 : � Temp$="" � =0
%&
=�(Temp$)
%0:
%:&� �inputVarious(x%,y%,x1,y1,c$,a$)
%D!�text(x%,y%,c$,a$) : Temp$=""
%N� : � : G=� : � G>12
%X9� �"0123456789.ABCDEFGHIJKLMNOPQRSTUVWXYZ",�(G))<>0 �
%b : Temp$=Temp$+�(G)
%l�
%v&� G=127 � Temp$=�Temp$,�(Temp$)-1)
%�� Temp$<"" � Temp$=""
%� � 0 : ȓ Ȑ x1,y1,128,40
%�4� Temp$>"" � Temp$<�127 � �text(x1,y1,"R",Temp$)
%�
� G=13
%�
=Temp$
%�:
%�� �commandInfo
%� � X,Y,a$,b$ : X=308 : Y=628
%�0�text(308,704,"Y","COMMAND BUTTONS HELP 1:")
%� � �tXf : � a=1 � 5 : � a$,b$
%�)ș "OS_SpriteOp",290,Sprite%,a$,X,Y,0
%��text(400,Y+8,"G",b$)
%�
Y-=68 : �
&
�space
& �clear(3) : X=308 : Y=628
&0�text(308,704,"Y","COMMAND BUTTONS HELP 2:")
& � a=1 � 5 : � a$,b$
&*)ș "OS_SpriteOp",290,Sprite%,a$,X,Y,0
&4�text(400,Y+8,"G",b$)
&>
Y-=68 : �
&H
�space
&R �clear(3) : X=308 : Y=628
&\0�text(308,704,"Y","COMMAND BUTTONS HELP 3:")
&f� a=1 � 4 : � a$,b$
&p)ș "OS_SpriteOp",290,Sprite%,a$,X,Y,0
&z�text(400,Y+8,"G",b$)
&�
Y-=68 : �
&�:
&�<� sys,SYSTEMS STATUS,sta,MISSION STATUS,ins,INSTRUCTIONS
&�?� srs,SHORT RANGE SCAN,map,GALACTIC MAP,lrs,LONG RANGE SCAN
&�I� hyp,HYPERPROBE LAUNCHER,pha,ENERGY PHASORS,kli,KLINGON FORCE STATUS
&�H� tor,PHOTON TORPEDOES,dat,TORPEDO AIMING DATA,def,DEFLECTOR CONTROL
&�3� nav,NAVIGATION COMPUTER,crc,COURSE CALCULATOR
&��
&�:
&� � �intro
&�� A$,C$ : �clear(3)
&�*�text(308,704,"W","STARFLEET ORDERS:")
&�4�text(308,652,"Y","SEEK AND DESTROY THE "+�(K9))
'0�text(308,604,"Y","KLINGON SHIPS THAT HAVE")
'2�text(308,556,"Y","INVADED FEDERATION SPACE.")
'4A$="IS " : C$=" " : � B9>1 � A$="ARE " : C$="S "
'$7�text(308,508,"Y","THERE "+A$+�(B9)+" STARBASE"+C$)
'./�text(308,460,"Y","AT YOUR DISPOSAL - AND")
'81�text(308,412,"Y","YOU HAVE UNTIL SD "+�(T8))
'B1�text(308,364,"Y","TO COMPLETE THE MISSION.")
'L�space : �clear(3)
'V.�text(308,708,"W","FM: STARFLEET COMMAND")
'`+�text(308,656,"W","TO: USS ENTERPRISE")
'j.�text(308,500,"Y","GOOD LUCK DURING YOUR")
't/�text(308,448,"Y","MISSION ... COMMANDER.")
'~
�space
'��
'�:
'�� �clear(p)
'�
Ȏ p �
'�$� 1 : � 0 : ȓ Ȑ 20,816,1236,52
'�$� 2 : � 0 : ȓ Ȑ 24,264,208,488
'�%� 3 : � 0 : ȓ Ȑ 296,352,712,400
'�%� 4 : � 0 : ȓ Ȑ 616,128,388,108
'�&� 5 : � 0 : ȓ Ȑ 1076,124,174,108
'�#� 6 : � 0 : ȓ Ȑ 20,16,1236,52
'�$� 7 : � 0 : ȓ Ȑ 308,128,240,44
'��
( �
(
:
(� �updatePos
( � 14 : ȓ Ȑ 176,968,120,40
((&�text(184,968,"W",�(Q2)+"."+�(Q1))
(2 � 14 : ȓ Ȑ 176,916,120,40
(<&�text(184,916,"W",�(S2)+"."+�(S1))
(F�updateTime
(P� K3>0 � S<200 � D%=0 �
(ZL : �printer(1,"R","WARNING: SHIELD POWER ONLY "+�(S)+" UNITS .....")
(d�
(n�
(x:
(�� �updateTime
(� � 14 : ȓ Ȑ 1020,916,240,40
(� �text(1022,916,"W",��(T),7))
(�� T>T8 � �dead(2)
(��
(�:
(�� �condition
(�s$="green" : t$="G"
(�$� E<E0*.1 � s$="yellow" : t$="Y"
(� � K3>0 � s$="red" : t$="R"
(�!� D%=1 � s$="docked" : t$="B"
(�
�clear(7)
(��text(312,128,t$,s$)
)�
):
)� �energyBanks
)"� A,B,C,D,X,Y
), A=E/30.25 : B=0 : X=1080
)6 � E>E1 �
)@ : E1=E
)J�
)T"� C=1 � 4 : Y=360 : � D=1 � 33
)^B+=1 : � B>A � �
)h-ș "OS_SpriteOp",290,Sprite%,"unit",X,Y,0
)r
Y+=12 : �
)|
X+=44 : �
)��
)�:
)�� �updateBanks
)�� A,B,C,D,X,Y
)� A=E/30.25 : B=132 : X=1212
)�� E=E1 � �
)� � E<E1 �
)� : E1=E
)�� : �energyBanks
)��
)�
� C=1 � 4
)� Y=744
)�� D=1 � 33
*B-=1 : � B<A � �
*.ș "OS_SpriteOp",290,Sprite%,"blank",X,Y,0
*
Y-=12 : �
*&
X-=44 : �
*0�
*::
*D� �text(x%,y%,c$,a$)
*N
� B,B$
*X � B=1 � �(a$) : B$=�a$,B,1)
*b � �(B$)<>13 � �(B$)<>32 �
*l : � B$=")" � x%+=8
*v5 : ș "OS_SpriteOp",290,Sprite%,c$+B$,x%,y%,8
*�% : � B$="M" � B$="W" � x%+=16
*�. : � B$="I" � B$="." � B$=":" � x%-=16
*��
*�� B$=" " � x%-=2
*�x%+=30 : �
*��
*�:
*�� �font(X,Y,col,a$)
*�
� A,b$
*�� 5 : � col
*� � A=1 � �(a$) : b$=�a$,A,1)
*�� b$="/" � b$+="t"
*�� b$="M" � b$+="m"
+� b$="T" � b$+="t"
+ � b$="W" � b$+="w"
+� b$="Y" � b$+="y"
+ � X,Y : � b$
+* � b$="Mm" � b$="Ww" � X+=10
+4(� b$="/t" � b$="Tt" � b$="Yy" � X+=2
+>� b$="I" � X-=10
+H� b$=" " � X-=8
+R � b$=".:()0123456789" � X-=4
+\X+=22 : � : � 4 : �
+f�
+p:
+z � �error
+� � "<StarTrek$Dir>.ArcFont"
+�� �=17 � *DESKTOP
+�� : � " at line ";�
+��
+�:
+� � �space
+�#� x,y,but,a : a=0 : � "FX 21 9"
+�0�printer(2,"B","CLICK A MOUSE BUTTON .....")
+��
+�a+=1 : ȗ x,y,but
+�� but � a>40000
+�
�clear(6)
+��
,:
,� �instruct
, � W,H,a
,$
�clear(3)
,.-�text(308,708,"B","STARTREK: THE GAME -")
,8W=308 : H=652 : � �Djl
,B&� a=1 � 7 : � i$ : �font(W,H,3,i$)
,L
H-=40 : �
,V
�space
,`:
,j$� YOU TAKE THE ROLE OF COMMANDER
,tE� OF THE STARSHIP - ENTERPRISE -," ",THE OBJECT OF THE GAME IS TO
,~C� DESTROY ALL OF THE KLINGON SHIPS,THAT HAVE INVADED FEDERATION
,� � CONTROLLED SPACE .....
,�:
,�
�clear(3)
,�W=308 : H=740 : � �dvl
,�&� a=1 � 5 : � i$ : �font(W,H,7,i$)
,�H-=40 : � : H-=52
,�.ș "OS_SpriteOp",290,Sprite%,"map",W-4,H,0
,�.H-=12 : � a=1 � 3 : � i$ : �font(W,H,3,i$)
,�
H-=40 : �
,�
�space
,�:
,�G� YOUR ZONE OF OPERATIONS IS SHOWN,AS A GRID OF 64 QUADRANTS FORMED
- � INTO AN 8*8 SQUARE .....
-
C� THIS CAN BE ACCESSED AT ANY TIME,BY USING THE COMMAND BUTTON:
-F� NOTE: IT IS KEPT UP TO DATE FROM,INFORMATION PROVIDED BY ONBOARD
- '� SENSORS - (NO INFO - NO MAP) ....
-(:
-2
�clear(3)
-<W=308 : H=740 : � �dHm
-F&� a=1 � 3 : � i$ : �font(W,H,7,i$)
-PH-=40 : � : H-=48
-Z.ș "OS_SpriteOp",290,Sprite%,"srs",W-4,H,0
-d#�font(W+140,596,7,"ENTERPRISE")
-n8ș "OS_SpriteOp",290,Sprite%,"enterprise3",800,556,0
-x �font(W+140,536,1,"KLINGON")
-�5ș "OS_SpriteOp",290,Sprite%,"klingon3",800,496,0
-� �font(W+140,476,3,"STAR")
-�2ș "OS_SpriteOp",290,Sprite%,"star3",800,436,0
-�!�font(W+140,416,6,"STARBASE")
-�6ș "OS_SpriteOp",290,Sprite%,"starbase3",800,376,0
-�
�space
-�:
-�F� EACH QUADRANT IS DIVIDED INTO 64,SECTORS AND THIS INFORMATION IS
-�(� DISPLAYED BY THE SHORT RANGE SCAN:
-�&� ENTERPRISE,KLINGON,STAR,STARBASE
-�:
-�
�clear(3)
-�W=308 : H=740 : � �Dhn
.&� i=1 � 2 : � i$ : �font(W,H,7,i$)
.H-=40 : � : H-=52
..ș "OS_SpriteOp",290,Sprite%,"lrs",W-4,H,0
.".H-=12 : � i=1 � 5 : � i$ : �font(W,H,7,i$)
.,
H-=40 : �
.6� i$ : �font(W,H,1,i$)
.@ � i$ : �font(W+260,H,6,i$)
.J � i$ : �font(W+560,H,3,i$)
.T
�space
.^:
.h<� THE LONG RANGE SENSORS ARE,ACTIVATED WITH THE COMMAND:
.rE� THIS DISPLAYS DATA ON ALL OF THE,SURROUNDING QUADRANTS AND ALSO
.|@� UPDATES THE GALACTIC MAP.,THIS INFORMATION IS DISPLAYED AS
.�5� A THREE DIGIT NUMBER -,KLINGONS,STARBASES,STARS
.�:
.�
�clear(3)
.�W=308 : H=740 : � �dtn
.�&� a=1 � 3 : � i$ : �font(W,H,7,i$)
.�H-=40 : � : H-=52
.�.ș "OS_SpriteOp",290,Sprite%,"hyp",W-4,H,0
.�.H-=12 : � a=1 � 4 : � i$ : �font(W,H,7,i$)
.�
H-=40 : �
.�
�space
.�:
.�E� THE HYPER-PROBE MAY BE USED TO,INVESTIGATE INDIVIDUAL QUADRANTS
.�%� AT A DISTANCE WITH THE COMMAND:
/B� THE HYPER-PROBE WILL RETURN,EVENTUALLY AND GIVE A LONG RANGE
/=� SCAN FROM THAT QUADRANT ALSO,UPDATING THE GALACTIC MAP.
/ :
/&
�clear(3)
/0W=308 : H=740 : � �dno
/:&� a=1 � 2 : � i$ : �font(W,H,7,i$)
/DH-=40 : � : H-=52
/N.ș "OS_SpriteOp",290,Sprite%,"nav",W-4,H,0
/X.H+=28 : � i$ : �font(W+100,H,7,i$) : H-=40
/b#� i$ : �font(W,H,7,i$) : H-=104
/l(� i=1 � 3 : W=308 : � j=1 � 3 : � i$
/v� 8 : ȓ Ȑ W,H,64,60
/� � 0 : ȓ Ȑ W+4,H+4,56,52
/�� i=2 � j=2 �
/�2 : ș "OS_SpriteOp",290,Sprite%,i$,W+8,H+4
/� � : �text(W+20,H+12,"Y",i$)
/��
/�
W+=62 : �
/� H-=60 : � : W=532 : H+=240
/�&� a=1 � 4 : � i$ : �font(W,H,1,i$)
/�
H-=40 : �
/�
�space
/�:
/�B� TO MOVE AROUND YOU SHOULD USE THE,NAVIGATION COMMAND BUTTON:
/�7� YOU WILL THEN BE ASKED FOR A,BEARING (0-7) - USE:
06� 7,0,1,6,enterprise3,2,5,4,3,NOTE: THIS SYSTEM OF
0 ?� BEARING IS ALSO USED,BY ALL OTHER RELEVANT,COMMANDS .....
0:
0
�clear(3)
0*W=308 : H=740 : � �Dpp
04&� i=1 � 6 : � i$ : �font(W,H,7,i$)
0>
H-=40 : �
0H&� i=1 � 3 : � i$ : �font(W,H,3,i$)
0R
H-=40 : �
0\
�space
0f:
0p?� YOU MAY ALSO USE FRACTIONS OF,NUMBERS - IE 1.5 .....," "
0z?� YOU WILL THEN BE ASKED FOR A WARP,FACTOR (0-8) - USE:," "
0�G� "1 TO MOVE A WHOLE QUADRANT, AND",TO MOVE WITHIN A QUADRANT USE A
0�%� NUMBER OF LESS THAN 1 - IE 0.4
0�:
0�
�clear(3)
0�W=308 : H=740 : � �d^p
0�'� a=1 � 10 : � i$ : �font(W,H,7,i$)
0�
H-=36 : �
0�
�space
0�:
0�8� THERE CAN BE UP TO 3 KLINGONS IN,ANY ONE QUADRANT.
0�D� THEY DO NOT MOVE OUT OF THEIR,QUADRANTS BUT THEY WILL CLOSE ON
0� � AND ATTACK THE ENTERPRISE.
0�@� KLINGON FIRE-POWER DEPENDS ON,THEIR DISTANCE FROM YOU. ANY
1D� ENERGY FROM A KLINGON HIT WILL,REDUCE YOUR SHIELD STRENGTH AND
1'� CAUSE A CERTAIN AMOUNT OF DAMAGE.
1:
1$
�clear(3)
1.W=308 : H=740 : � �tpq
18� i$ : �font(W,H,7,i$)
1B"H-=40 : � i$ : �font(W,H,1,i$)
1LH-=40 : � �tzq
1V&� a=1 � 2 : � i$ : �font(W,H,7,i$)
1`H-=40 : � : H-=48
1j.ș "OS_SpriteOp",290,Sprite%,"def",W-4,H,0
1t.H-=12 : � a=1 � 2 : � i$ : �font(W,H,7,i$)
1~
H-=40 : �
1�&� a=1 � 2 : � i$ : �font(W,H,1,i$)
1�
H-=40 : �
1�
�space
1�:
1�;� AND WHEN YOUR SHIELDS FAIL....,THE DAMAGE GETS WORSE!
1�?� TO UPDATE YOUR SHIELDS YOU SHOULD,USE THE COMMAND BUTTON:
1�E� THEN SET THE AMOUNT OF ENERGY,TO BE TRANSFERRED TO THE SHIELDS.
1�7� THIS AMOUNT IS SUBTRACTED FROM,YOUR TOTAL ENERGY.
1�:
1�
�clear(3)
1�W=308 : H=740 : � �DPr
1�&� a=1 � 2 : � i$ : �font(W,H,7,i$)
2 .H-=40 : � : � i$ : �font(W,H,3,i$) : H-=92
2
.ș "OS_SpriteOp",290,Sprite%,"pha",W-4,H,0
2.H-=12 : � a=1 � 3 : � i$ : �font(W,H,7,i$)
2
H-=40 : �
2(&� a=1 � 2 : � i$ : �font(W,H,1,i$)
22
H-=40 : �
2<
�space
2F:
2P;� ENTERPRISE HAS TWO MAIN TYPES OF,WEAPON SYSTEMS .....
2Z#� ENERGY PHASORS - USE COMMAND:
2dF� THESE AUTOMATICALLY LOCK ONTO A,TARGET - BUT THEIR STRENGTH WILL
2n� FADE WITH DISTANCE.
2x8� PHASOR POWER IS SUBTRACTED FROM,YOUR TOTAL ENERGY.
2�:
2�
�clear(3)
2�W=308 : H=740 : � �dzr
2�&� a=1 � 2 : � i$ : �font(W,H,3,i$)
2�H-=40 : � : H-=52
2�.ș "OS_SpriteOp",290,Sprite%,"tor",W-4,H,0
2�.H-=12 : � a=1 � 3 : � i$ : �font(W,H,7,i$)
2�
H-=40 : �
2�&� a=1 � 2 : � i$ : �font(W,H,1,i$)
2�
H-=40 : �
2�
�space
2�:
2�5� PHOTON TORPEDOES - ACTIVATED BY,COMMAND BUTTON:
3?� UNLIKE PHASORS - TORPEDOES HAVE,TO BE AIMED AT THE ENEMY.
3'� THEY CAN NOT PASS THROUGH A STAR.
3E� "IF THEY HIT, THEY WILL COMPLETELY",DESTROY THE KLINGON VESSEL.
3":
3,
�clear(3)
36W=308 : H=740 : � �Drs
3@&� a=1 � 8 : � i$ : �font(W,H,7,i$)
3JH-=40 : � : H-=52
3T.ș "OS_SpriteOp",290,Sprite%,"sys",W-4,H,0
3^
�space
3h:
3rH� UNDER ATTACK THE ENTERPRISE WILL,SUFFER DAMAGE IF HIT BY MORE THAN
3|$� 100 UNITS PER KLINGON ....," "
3�B� ANY DAMAGE WILL BE AUTOMATICALLY,REPORTED BY DAMAGE CONTROL.
3�A� FOR A COMPLETE LIST OF SYSTEMS,STATUS - USE COMMAND BUTTON:
3�:
3�
�clear(3)
3�W=308 : H=740 : � �dts
3�&� a=1 � 4 : � i$ : �font(W,H,7,i$)
3�
H-=40 : �
3�&� a=1 � 3 : � i$ : �font(W,H,3,i$)
3�
H-=40 : �
3�
�space
3�:
3�C� SYSTEMS WILL BE REPAIRED BY A,FACTOR OF 1 FOR EACH MOVE UNTIL
3�(� THEY REACH 0 ..... IE 'USABLE'," "
4F� SYSTEMS CAN ONLY BE RETURNED TO,'NEW' BY OVERHAUL AT A STARBASE.
4%� THIS WILL INCUR A TIME PENALTY.
4 :
4&
�clear(3)
40W=308 : H=740 : � �tJt
4:&� a=1 � 4 : � i$ : �font(W,H,7,i$)
4DH-=40 : � : H-=52
4N.ș "OS_SpriteOp",290,Sprite%,"sta",W-4,H,0
4X.H-=12 : � a=1 � 2 : � i$ : �font(W,H,7,i$)
4bH-=40 : � : H-=52
4l.ș "OS_SpriteOp",290,Sprite%,"kli",W-4,H,0
4v
�space
4�:
4�F� THERE ARE SERVERAL OTHER COMMAND,BUTTONS WITH VARIOUS FUNCTIONS:
4�5� FOR A MISSION STATUS REPORT USE,COMMAND BUTTON:
4�G� INFORMATION ON KLINGON SHIPS CAN,BE ACCESSED WITH COMMAND BUTTON:
4�%� A STATUS REPORT ON THE MISSION.
4�:
4�
�clear(3)
4�W=308 : H=740 : � �T`u
4�&� a=1 � 3 : � i$ : �font(W,H,7,i$)
4�H-=40 : � : H-=52
4�.ș "OS_SpriteOp",290,Sprite%,"dat",W-4,H,0
4�.H-=12 : � a=1 � 3 : � i$ : �font(W,H,7,i$)
4�H-=40 : � : H-=52
5.ș "OS_SpriteOp",290,Sprite%,"crc",W-4,H,0
5
�space
5:
5 F� FURTHER - KLINGON SHIP POSITIONS,CAN ALSO BE ACCESSED FOR AIMING
5*%� TORPEDOES USING COMMAND BUTTON:
54I� TO HELP WITH YOUR NAVIGATION THERE,IS A COURSE AND RANGE CALCULATOR
5>#� ACCESSED WITH COMMAND BUTTON:
5H:
5R�
5\:
5f� �shortRangeScan
5p� D(1)<0 �
5zC : �clear(3) : �text(308,708,"R","THE SHORT RANGE SENSORS")
5�5 : �text(308,656,"R","ARE DAMAGED .....") : �
5��
5�X=276 : Y=336 : � 8,0
5�8ș "OS_SpriteOp",290,Sprite%,"shortscan",X+20,Y+16,0
5�
� A=1 � 8
5�
Ȏ A �
5�$� 1 : x=X+240 : y=Y+352 : B$="1"
5�� 2 : x=X+224 : y=Y+320
5�$� 3 : x=X+200 : y=Y+284 : B$="3"
5�� 4 : x=X+178 : y=Y+248
5�$� 5 : x=X+154 : y=Y+208 : B$="5"
5�� 6 : x=X+132 : y=Y+172
5�$� 7 : x=X+102 : y=Y+128 : B$="7"
6� 8 : x=X+74 : y=Y+80
6�
6
� B=1 � 8
6$A$=Q$(A,B) : � A$<>"" �
6.3 : ș "OS_SpriteOp",290,Sprite%,A$+B$,x,y,8
68�
6B� A=1 � x+=34
6L� A=2 � x+=38
6V� A=3 � x+=44
6`� A=4 � x+=50
6j� A=5 � x+=56
6t� A=6 � x+=62
6~� A=7 � x+=70
6�� A=8 � x+=78
6��
6��
6��
6�:
6�� �colours
6�� 19,0,24,176,176,176
6�� 19,1,16,208,0,0
6�� 19,2,16,208,144,0
6�� 19,3,16,240,192,0
6�� 19,4,16,0,0,224
6�� 19,5,16,0,128,208
7 � 19,6,16,0,176,224
7
� 19,7,16,224,224,224
7� 19,8,16,0,192,0
7 � 19,9,16,208,208,208
7(� 19,10,16,96,96,96
72� 19,11,16,128,128,128
7<� 19,12,16,144,144,144
7F� 19,13,16,160,160,160
7P� 19,14,16,176,176,176
7Z� 19,15,16,192,192,192
7d
� 142 : �
7n�
7x:
7�� �spriteLoad
7�� Screen% &15000
7�@!Screen%=&15000 : Screen%!4=0 : Screen%!8=16 : Screen%!12=16
7�@ș "OS_SpriteOp",266,Screen%,"<StarTrek$Dir>.SPRITES.Screen"
7�/ș "OS_SpriteOp",290,Screen%,"screen",0,0,0
7��
7�� Sprite% &E900
7�?!Sprite%=&E900 : Sprite%!4=0 : Sprite%!8=16 : Sprite%!12=16
7�Dș "OS_SpriteOp",266,Sprite%,"<StarTrek$Dir>.SPRITES.BackGround"
7�Aș "OS_SpriteOp",267,Sprite%,"<StarTrek$Dir>.SPRITES.Buttons"
7�?ș "OS_SpriteOp",267,Sprite%,"<StarTrek$Dir>.SPRITES.Wtext"
7�?ș "OS_SpriteOp",267,Sprite%,"<StarTrek$Dir>.SPRITES.Rtext"
7�?ș "OS_SpriteOp",267,Sprite%,"<StarTrek$Dir>.SPRITES.Ytext"
8?ș "OS_SpriteOp",267,Sprite%,"<StarTrek$Dir>.SPRITES.Gtext"
8?ș "OS_SpriteOp",267,Sprite%,"<StarTrek$Dir>.SPRITES.Btext"
8 � "<StarTrek$Dir>.TrekFont"
8" �pointer
8,�
� 00000000 0d 00 00 10 f4 20 3e 20 53 74 61 72 54 72 65 6b |..... > StarTrek|
00000010 0d 00 0a 3f f4 20 41 64 61 70 74 65 64 20 66 6f |...?. Adapted fo|
00000020 72 20 74 68 65 20 42 42 43 20 63 6f 6d 70 75 74 |r the BBC comput|
00000030 65 72 20 62 79 20 54 2e 45 2e 4b 65 6e 6e 69 6e |er by T.E.Kennin|
00000040 67 74 6f 6e 2c 20 4e 6f 76 20 31 39 38 33 3b 0d |gton, Nov 1983;.|
00000050 00 14 41 f4 20 52 65 76 69 73 65 64 20 66 6f 72 |..A. Revised for|
00000060 20 41 72 63 68 69 6d 65 64 65 73 2c 20 41 75 67 | Archimedes, Aug|
00000070 20 31 39 38 38 20 62 79 20 4c 65 73 20 48 75 72 | 1988 by Les Hur|
00000080 73 74 2c 20 42 6f 75 72 6e 65 6d 6f 75 74 68 2e |st, Bournemouth.|
00000090 0d 00 1e 33 f4 20 47 72 61 70 68 69 63 61 6c 6c |...3. Graphicall|
000000a0 79 20 41 64 61 70 74 65 64 2f 52 65 77 72 69 74 |y Adapted/Rewrit|
000000b0 74 65 6e 20 62 79 20 41 6c 65 78 20 48 6f 70 6b |ten by Alex Hopk|
000000c0 69 6e 73 0d 00 28 3d f4 20 4e 6f 76 65 6d 62 65 |ins..(=. Novembe|
000000d0 72 20 38 38 20 2d 20 4d 61 72 63 68 20 38 39 2e |r 88 - March 89.|
000000e0 20 7b 52 49 53 43 20 4f 53 20 75 70 64 61 74 65 | {RISC OS update|
000000f0 20 53 65 70 74 65 6d 62 65 72 20 31 39 38 39 7d | September 1989}|
00000100 0d 00 32 13 f4 20 56 65 72 73 69 6f 6e 20 47 2f |..2.. Version G/|
00000110 31 2e 35 0d 00 3c 05 3a 0d 00 46 0c eb 20 31 32 |1.5..<.:..F.. 12|
00000120 20 3a 20 87 0d 00 50 12 ee 20 85 20 f2 65 72 72 | : ...P.. . .err|
00000130 6f 72 20 3a 20 e0 0d 00 5a 05 3a 0d 00 64 23 f2 |or : ...Z.:..d#.|
00000140 63 6f 6c 6f 75 72 73 20 3a 20 f2 73 70 72 69 74 |colours : .sprit|
00000150 65 4c 6f 61 64 20 3a 20 f2 73 65 74 75 70 0d 00 |eLoad : .setup..|
00000160 6e 05 3a 0d 00 78 05 f5 0d 00 82 09 f2 69 6e 69 |n.:..x.......ini|
00000170 74 0d 00 8c 10 f2 65 6e 65 72 67 79 42 61 6e 6b |t.....energyBank|
00000180 73 0d 00 96 0f f2 75 70 64 61 74 65 54 69 6d 65 |s.....updateTime|
00000190 0d 00 a0 0a f2 69 6e 74 72 6f 0d 00 aa 0e f2 71 |.....intro.....q|
000001a0 75 61 64 42 75 69 6c 64 0d 00 b4 0e f2 75 70 64 |uadBuild.....upd|
000001b0 61 74 65 50 6f 73 0d 00 be 13 f2 73 68 6f 72 74 |atePos.....short|
000001c0 52 61 6e 67 65 53 63 61 6e 0d 00 c8 05 f5 0d 00 |RangeScan.......|
000001d0 d2 17 ff 20 22 46 58 20 32 31 20 39 22 20 3a 20 |... "FX 21 9" : |
000001e0 56 25 2b 3d 31 0d 00 dc 0e f2 63 6f 6e 64 69 74 |V%+=1.....condit|
000001f0 69 6f 6e 0d 00 e6 0c f2 63 6f 6d 6d 61 6e 64 0d |ion.....command.|
00000200 00 f0 0c e7 20 44 25 3d 30 20 8c 0d 00 fa 11 20 |.... D%=0 ..... |
00000210 20 20 20 20 3a 20 5a 3d b3 28 31 29 0d 01 04 30 | : Z=.(1)...0|
00000220 20 20 20 20 20 3a 20 e7 20 5a 3e 2e 39 39 38 20 | : . Z>.998 |
00000230 80 20 4e 45 55 25 3d a3 20 8c 20 f2 6e 65 75 74 |. NEU%=. . .neut|
00000240 72 6f 6e 20 3a 20 e5 20 8d 54 76 41 0d 01 0e 32 |ron : . .TvA...2|
00000250 20 20 20 20 20 3a 20 e7 20 5a 3e 2e 39 39 36 20 | : . Z>.996 |
00000260 80 20 44 49 4c 25 3d a3 20 8c 20 f2 64 69 6c 69 |. DIL%=. . .dili|
00000270 74 68 69 75 6d 20 3a 20 e5 20 8d 54 76 41 0d 01 |thium : . .TvA..|
00000280 18 2f 20 20 20 20 20 3a 20 e7 20 5a 3e 2e 39 39 |./ : . Z>.99|
00000290 20 80 20 4d 59 53 25 3d a3 20 8c 20 f2 6d 79 73 | . MYS%=. . .mys|
000002a0 74 65 72 79 20 3a 20 e5 20 8d 54 76 41 0d 01 22 |tery : . .TvA.."|
000002b0 24 20 20 20 20 20 3a 20 e7 20 5a 3e 30 2e 39 38 |$ : . Z>0.98|
000002c0 20 8c 20 f2 6e 6f 76 61 20 3a 20 e5 20 8d 54 76 | . .nova : . .Tv|
000002d0 41 0d 01 2c 28 20 20 20 20 20 3a 20 e7 20 5a 3c |A..,( : . Z<|
000002e0 2e 35 20 80 20 56 25 3e 5a 25 20 8c 20 f2 70 72 |.5 . V%>Z% . .pr|
000002f0 6f 62 65 52 65 74 75 72 6e 0d 01 36 05 cd 0d 01 |obeReturn..6....|
00000300 40 24 e7 20 45 3c 31 20 80 20 53 3c 31 20 80 20 |@$. E<1 . S<1 . |
00000310 ac 20 44 65 61 64 25 20 8c 20 f2 64 65 61 64 28 |. Dead% . .dead(|
00000320 31 29 0d 01 4a 0f e7 20 53 3c 31 20 8c 20 53 3d |1)..J.. S<1 . S=|
00000330 30 0d 01 54 0b fd 20 44 65 61 64 25 0d 01 5e 07 |0..T.. Dead%..^.|
00000340 fd 20 a3 0d 01 68 05 e0 0d 01 72 05 3a 0d 01 7c |. ...h....r.:..||
00000350 10 dd 20 f2 71 75 61 64 42 75 69 6c 64 0d 01 86 |.. .quadBuild...|
00000360 26 58 3d 47 28 51 31 2c 51 32 29 2a 2e 30 31 20 |&X=G(Q1,Q2)*.01 |
00000370 3a 20 5a 28 51 31 2c 51 32 29 3d 47 28 51 31 2c |: Z(Q1,Q2)=G(Q1,|
00000380 51 32 29 0d 01 90 1d 4b 33 3d a8 28 58 29 20 3a |Q2)....K3=.(X) :|
00000390 20 42 33 3d a8 28 28 58 2d 4b 33 29 2a 31 30 29 | B3=.((X-K3)*10)|
000003a0 0d 01 9a 21 53 33 3d 47 28 51 31 2c 51 32 29 2d |...!S3=G(Q1,Q2)-|
000003b0 a8 28 47 28 51 31 2c 51 32 29 2a 2e 31 29 2a 31 |.(G(Q1,Q2)*.1)*1|
000003c0 30 0d 01 a4 40 51 24 28 29 3d 22 22 20 3a 20 e3 |0...@Q$()="" : .|
000003d0 20 49 25 3d 31 20 b8 20 33 20 3a 20 4b 28 49 25 | I%=1 . 3 : K(I%|
000003e0 2c 31 29 3d 30 20 3a 20 4b 28 49 25 2c 32 29 3d |,1)=0 : K(I%,2)=|
000003f0 30 20 3a 20 4b 28 49 25 2c 33 29 3d 30 20 3a 20 |0 : K(I%,3)=0 : |
00000400 ed 0d 01 ae 1a 51 24 28 53 31 2c 53 32 29 3d 22 |.....Q$(S1,S2)="|
00000410 65 6e 74 65 72 70 72 69 73 65 22 0d 01 b8 0c e7 |enterprise".....|
00000420 20 4b 33 3e 30 20 8c 0d 01 c2 16 20 20 20 20 20 | K3>0 ..... |
00000430 3a 20 e3 20 49 25 3d 31 20 b8 20 4b 33 0d 01 cc |: . I%=1 . K3...|
00000440 25 20 20 20 20 20 3a 20 f2 72 6e 64 20 3a 20 51 |% : .rnd : Q|
00000450 24 28 52 31 2c 52 32 29 3d 22 6b 6c 69 6e 67 6f |$(R1,R2)="klingo|
00000460 6e 22 0d 01 d6 35 20 20 20 20 20 3a 20 4b 28 49 |n"...5 : K(I|
00000470 25 2c 31 29 3d 52 31 20 3a 20 4b 28 49 25 2c 32 |%,1)=R1 : K(I%,2|
00000480 29 3d 52 32 20 3a 20 4b 28 49 25 2c 33 29 3d 53 |)=R2 : K(I%,3)=S|
00000490 39 2b b3 28 33 35 29 0d 01 e0 0c 20 20 20 20 20 |9+.(35).... |
000004a0 3a 20 ed 0d 01 ea 05 cd 0d 01 f4 0c e7 20 42 33 |: ........... B3|
000004b0 3e 30 20 8c 0d 01 fe 26 20 20 20 20 20 3a 20 f2 |>0 ....& : .|
000004c0 72 6e 64 20 3a 20 51 24 28 52 31 2c 52 32 29 3d |rnd : Q$(R1,R2)=|
000004d0 22 73 74 61 72 62 61 73 65 22 0d 02 08 05 cd 0d |"starbase"......|
000004e0 02 12 0c e7 20 53 33 3e 30 20 8c 0d 02 1c 16 20 |.... S3>0 ..... |
000004f0 20 20 20 20 3a 20 e3 20 49 25 3d 31 20 b8 20 53 | : . I%=1 . S|
00000500 33 0d 02 26 22 20 20 20 20 20 3a 20 f2 72 6e 64 |3..&" : .rnd|
00000510 20 3a 20 51 24 28 52 31 2c 52 32 29 3d 22 73 74 | : Q$(R1,R2)="st|
00000520 61 72 22 0d 02 30 0c 20 20 20 20 20 3a 20 ed 0d |ar"..0. : ..|
00000530 02 3a 05 cd 0d 02 44 0e f2 62 61 73 65 43 68 65 |.:....D..baseChe|
00000540 63 6b 0d 02 4e 05 e1 0d 02 58 05 3a 0d 02 62 0e |ck..N....X.:..b.|
00000550 dd 20 f2 63 6f 6d 6d 61 6e 64 0d 02 6c 14 4c 25 |. .command..l.L%|
00000560 3d 30 20 3a 20 4c 25 3d a4 6d 6f 75 73 65 0d 02 |=0 : L%=.mouse..|
00000570 76 05 3a 0d 02 80 0b c8 8e 20 4c 25 20 ca 0d 02 |v.:...... L% ...|
00000580 8a 27 c9 20 30 20 20 3a 20 f2 63 6c 65 61 72 28 |.'. 0 : .clear(|
00000590 33 29 20 3a 20 f2 63 6f 6d 6d 61 6e 64 49 6e 66 |3) : .commandInf|
000005a0 6f 20 3a 20 e1 0d 02 94 18 c9 20 31 20 20 3a 20 |o : ...... 1 : |
000005b0 f2 64 61 6d 61 67 65 52 65 70 6f 72 74 0d 02 9e |.damageReport...|
000005c0 18 c9 20 32 20 20 3a 20 f2 73 74 61 74 75 73 52 |.. 2 : .statusR|
000005d0 65 70 6f 72 74 0d 02 a8 14 c9 20 33 20 20 3a 20 |eport..... 3 : |
000005e0 f2 69 6e 73 74 72 75 63 74 0d 02 b2 1a c9 20 34 |.instruct..... 4|
000005f0 20 20 3a 20 f2 73 68 6f 72 74 52 61 6e 67 65 53 | : .shortRangeS|
00000600 63 61 6e 0d 02 bc 17 c9 20 35 20 20 3a 20 f2 63 |can..... 5 : .c|
00000610 6f 6d 70 75 74 65 72 4d 61 70 0d 02 c6 19 c9 20 |omputerMap..... |
00000620 36 20 20 3a 20 f2 6c 6f 6e 67 52 61 6e 67 65 53 |6 : .longRangeS|
00000630 63 61 6e 0d 02 d0 16 c9 20 37 20 20 3a 20 f2 68 |can..... 7 : .h|
00000640 79 70 65 72 50 72 6f 62 65 0d 02 da 13 c9 20 38 |yperProbe..... 8|
00000650 20 20 3a 20 f2 70 68 61 73 6f 72 73 0d 02 e4 17 | : .phasors....|
00000660 c9 20 39 20 20 3a 20 f2 73 63 61 6e 6e 65 72 49 |. 9 : .scannerI|
00000670 6e 66 6f 0d 02 ee 15 c9 20 31 30 20 3a 20 f2 74 |nfo..... 10 : .t|
00000680 6f 72 70 65 64 6f 65 73 0d 02 f8 15 c9 20 31 31 |orpedoes..... 11|
00000690 20 3a 20 f2 70 68 6f 74 6f 6e 41 69 6d 0d 03 02 | : .photonAim...|
000006a0 15 c9 20 31 32 20 3a 20 f2 64 65 66 6c 65 63 74 |.. 12 : .deflect|
000006b0 6f 72 0d 03 0c 16 c9 20 31 33 20 3a 20 f2 6e 61 |or..... 13 : .na|
000006c0 76 69 67 61 74 69 6f 6e 0d 03 16 1c c9 20 31 34 |vigation..... 14|
000006d0 20 3a 20 f2 63 6f 75 72 73 65 43 61 6c 63 75 6c | : .courseCalcul|
000006e0 61 74 6f 72 0d 03 20 05 cb 0d 03 2a 0f e7 20 44 |ator.. ....*.. D|
000006f0 65 61 64 25 20 8c 20 e1 0d 03 34 1d e7 20 4b 33 |ead% . ...4.. K3|
00000700 3e 30 20 80 20 b3 28 32 29 3d 31 20 8c 20 f2 61 |>0 . .(2)=1 . .a|
00000710 74 74 61 63 6b 0d 03 3e 0f e7 20 44 65 61 64 25 |ttack..>.. Dead%|
00000720 20 8c 20 e1 0d 03 48 18 e7 20 56 25 20 83 20 34 | . ...H.. V% . 4|
00000730 3d 30 20 8c 20 f2 72 65 70 6f 72 74 0d 03 52 05 |=0 . .report..R.|
00000740 e1 0d 03 5c 05 3a 0d 03 66 0c dd 20 a4 6d 6f 75 |...\.:..f.. .mou|
00000750 73 65 0d 03 70 0d ea 20 78 2c 79 2c 62 75 74 0d |se..p.. x,y,but.|
00000760 03 7a 1a f5 20 3a 20 c8 97 20 78 2c 79 2c 62 75 |.z.. : .. x,y,bu|
00000770 74 20 3a 20 fd 20 62 75 74 0d 03 84 15 e7 20 79 |t : . but..... y|
00000780 3e 31 31 36 20 80 20 79 3c 32 31 36 20 8c 0d 03 |>116 . y<216 ...|
00000790 8e 18 e7 20 78 3e 32 34 20 80 20 78 3c 39 36 20 |... x>24 . x<96 |
000007a0 8c 20 4c 25 3d 31 0d 03 98 19 e7 20 78 3e 39 36 |. L%=1..... x>96|
000007b0 20 80 20 78 3c 31 36 38 20 8c 20 4c 25 3d 32 0d | . x<168 . L%=2.|
000007c0 03 a2 1a e7 20 78 3e 31 36 38 20 80 20 78 3c 32 |.... x>168 . x<2|
000007d0 35 30 20 8c 20 4c 25 3d 33 0d 03 ac 05 cd 0d 03 |50 . L%=3.......|
000007e0 b6 15 e7 20 79 3e 32 34 38 20 80 20 79 3c 33 31 |... y>248 . y<31|
000007f0 36 20 8c 0d 03 c0 1a e7 20 78 3e 32 38 38 20 80 |6 ...... x>288 .|
00000800 20 78 3c 33 36 30 20 8c 20 4c 25 3d 34 0d 03 ca | x<360 . L%=4...|
00000810 1a e7 20 78 3e 33 36 30 20 80 20 78 3c 34 33 32 |.. x>360 . x<432|
00000820 20 8c 20 4c 25 3d 35 0d 03 d4 1a e7 20 78 3e 34 | . L%=5..... x>4|
00000830 33 32 20 80 20 78 3c 35 30 34 20 8c 20 4c 25 3d |32 . x<504 . L%=|
00000840 36 0d 03 de 1a e7 20 78 3e 35 30 34 20 80 20 78 |6..... x>504 . x|
00000850 3c 35 37 36 20 8c 20 4c 25 3d 37 0d 03 e8 1a e7 |<576 . L%=7.....|
00000860 20 78 3e 36 31 36 20 80 20 78 3c 36 38 38 20 8c | x>616 . x<688 .|
00000870 20 4c 25 3d 38 0d 03 f2 1a e7 20 78 3e 36 39 36 | L%=8..... x>696|
00000880 20 80 20 78 3c 37 36 38 20 8c 20 4c 25 3d 39 0d | . x<768 . L%=9.|
00000890 03 fc 1b e7 20 78 3e 37 37 36 20 80 20 78 3c 38 |.... x>776 . x<8|
000008a0 34 38 20 8c 20 4c 25 3d 31 30 0d 04 06 1b e7 20 |48 . L%=10..... |
000008b0 78 3e 38 35 36 20 80 20 78 3c 39 32 38 20 8c 20 |x>856 . x<928 . |
000008c0 4c 25 3d 31 31 0d 04 10 1c e7 20 78 3e 39 33 36 |L%=11..... x>936|
000008d0 20 80 20 78 3c 31 30 30 38 20 8c 20 4c 25 3d 31 | . x<1008 . L%=1|
000008e0 32 0d 04 1a 1d e7 20 78 3e 31 30 36 38 20 80 20 |2..... x>1068 . |
000008f0 78 3c 31 31 34 30 20 8c 20 4c 25 3d 31 33 0d 04 |x<1140 . L%=13..|
00000900 24 1d e7 20 78 3e 31 31 38 38 20 80 20 78 3c 31 |$.. x>1188 . x<1|
00000910 32 36 30 20 8c 20 4c 25 3d 31 34 0d 04 2e 05 cd |260 . L%=14.....|
00000920 0d 04 38 07 3d 4c 25 0d 04 42 05 3a 0d 04 4c 11 |..8.=L%..B.:..L.|
00000930 dd 20 f2 6e 61 76 69 67 61 74 69 6f 6e 0d 04 56 |. .navigation..V|
00000940 0d f2 63 6c 65 61 72 28 35 29 0d 04 60 0f e7 20 |..clear(5)..`.. |
00000950 44 28 31 30 29 3c 30 20 8c 0d 04 6a 26 20 20 20 |D(10)<0 ...j& |
00000960 20 20 3a 20 f2 66 6f 6e 74 28 31 30 38 34 2c 32 | : .font(1084,2|
00000970 32 38 2c 31 2c 22 4e 41 56 43 4f 4d 50 22 29 0d |28,1,"NAVCOMP").|
00000980 04 74 27 20 20 20 20 20 3a 20 f2 66 6f 6e 74 28 |.t' : .font(|
00000990 31 30 38 34 2c 31 39 32 2c 31 2c 22 44 49 53 41 |1084,192,1,"DISA|
000009a0 42 4c 45 44 22 29 0d 04 7e 0c 20 20 20 20 20 3a |BLED")..~. :|
000009b0 20 e1 0d 04 88 05 cd 0d 04 92 0e e7 20 44 28 37 | ........... D(7|
000009c0 29 3c 30 20 8c 0d 04 9c 46 20 20 20 20 20 3a 20 |)<0 ....F : |
000009d0 f2 70 72 69 6e 74 65 72 28 32 2c 22 52 22 2c 22 |.printer(2,"R","|
000009e0 57 41 52 50 20 44 52 49 56 45 20 44 49 53 41 42 |WARP DRIVE DISAB|
000009f0 4c 45 44 20 2e 2e 2e 20 4d 41 58 20 49 4d 50 55 |LED ... MAX IMPU|
00000a00 4c 53 45 20 2d 20 30 2e 32 22 29 0d 04 a6 05 cd |LSE - 0.2").....|
00000a10 0d 04 b0 1f f2 66 6f 6e 74 28 31 30 38 34 2c 32 |.....font(1084,2|
00000a20 32 38 2c 38 2c 22 48 45 41 44 49 4e 47 22 29 0d |28,8,"HEADING").|
00000a30 04 ba 34 43 31 3d a4 69 6e 70 75 74 28 31 30 38 |..4C1=.input(108|
00000a40 34 2c 31 39 32 2c 31 31 30 30 2c 31 39 32 2c 33 |4,192,1100,192,3|
00000a50 2c 22 3a 22 2c 34 29 20 3a 20 f2 63 6c 65 61 72 |,":",4) : .clear|
00000a60 28 35 29 0d 04 c4 1c f2 66 6f 6e 74 28 31 30 38 |(5).....font(108|
00000a70 34 2c 32 32 38 2c 38 2c 22 57 41 52 50 22 29 0d |4,228,8,"WARP").|
00000a80 04 ce 34 57 31 3d a4 69 6e 70 75 74 28 31 30 38 |..4W1=.input(108|
00000a90 34 2c 31 39 32 2c 31 31 30 30 2c 31 39 32 2c 33 |4,192,1100,192,3|
00000aa0 2c 22 3a 22 2c 34 29 20 3a 20 f2 63 6c 65 61 72 |,":",4) : .clear|
00000ab0 28 35 29 0d 04 d8 1d e7 20 44 28 37 29 3c 30 20 |(5)..... D(7)<0 |
00000ac0 80 20 57 31 3e 2e 32 20 8c 20 e5 20 8d 44 56 44 |. W1>.2 . . .DVD|
00000ad0 0d 04 e2 1b 43 31 3d 43 31 2b 31 20 3a 20 e7 20 |....C1=C1+1 : . |
00000ae0 43 31 3d 39 20 8c 20 43 31 3d 31 0d 04 ec 22 e7 |C1=9 . C1=1...".|
00000af0 20 43 31 3e 39 20 84 20 43 31 3c 31 20 84 20 57 | C1>9 . C1<1 . W|
00000b00 31 3e 38 20 84 20 57 31 3c 2e 31 20 8c 0d 04 f6 |1>8 . W1<.1 ....|
00000b10 18 20 20 20 20 20 3a 20 f2 63 6c 65 61 72 28 35 |. : .clear(5|
00000b20 29 20 3a 20 e1 0d 05 00 05 cd 0d 05 0a 14 e7 20 |) : ........... |
00000b30 44 25 3d 31 20 80 20 57 31 3e 2e 39 20 8c 0d 05 |D%=1 . W1>.9 ...|
00000b40 14 35 20 20 20 20 20 3a 20 f2 70 72 69 6e 74 65 |.5 : .printe|
00000b50 72 28 31 2c 22 42 22 2c 22 44 4f 43 4b 45 44 20 |r(1,"B","DOCKED |
00000b60 41 54 20 53 54 41 52 42 41 53 45 20 2e 2e 2e 2e |AT STARBASE ....|
00000b70 2e 22 29 0d 05 1e 42 20 20 20 20 20 3a 20 f2 70 |.")...B : .p|
00000b80 72 69 6e 74 65 72 28 32 2c 22 59 22 2c 22 4e 4f |rinter(2,"Y","NO|
00000b90 20 57 41 52 50 20 41 56 41 49 4c 41 42 4c 45 20 | WARP AVAILABLE |
00000ba0 57 48 49 4c 53 54 20 44 4f 43 4b 45 44 20 2e 2e |WHILST DOCKED ..|
00000bb0 2e 2e 2e 22 29 0d 05 28 11 20 20 20 20 20 3a 20 |...")..(. : |
00000bc0 e5 20 8d 44 56 44 0d 05 32 05 cd 0d 05 3c 15 4e |. .DVD..2....<.N|
00000bd0 3d a8 28 28 57 31 2b 2e 30 36 32 35 29 2a 38 29 |=.((W1+.0625)*8)|
00000be0 0d 05 46 0d e7 20 45 2d 4e 3c 31 20 8c 0d 05 50 |..F.. E-N<1 ...P|
00000bf0 3f 20 20 20 20 20 3a 20 f2 70 72 69 6e 74 65 72 |? : .printer|
00000c00 28 32 2c 22 52 22 2c 22 49 4e 53 55 46 46 49 43 |(2,"R","INSUFFIC|
00000c10 49 45 4e 54 20 45 4e 45 52 47 59 20 46 4f 52 20 |IENT ENERGY FOR |
00000c20 57 41 52 50 20 2e 2e 2e 2e 2e 22 29 0d 05 5a 1a |WARP .....")..Z.|
00000c30 20 20 20 20 20 3a 20 e7 20 45 3c 3d 30 20 80 20 | : . E<=0 . |
00000c40 53 3c 3d 30 20 8c 0d 05 64 20 20 20 20 20 20 3a |S<=0 ...d :|
00000c50 20 f2 73 70 61 63 65 20 3a 20 f2 64 65 61 64 28 | .space : .dead(|
00000c60 31 29 20 3a 20 e1 0d 05 6e 2a cc 20 3a 20 f2 73 |1) : ...n*. : .s|
00000c70 70 61 63 65 20 3a 20 f2 63 6c 65 61 72 28 35 29 |pace : .clear(5)|
00000c80 20 3a 20 f2 63 6c 65 61 72 28 36 29 20 3a 20 e1 | : .clear(6) : .|
00000c90 0d 05 78 05 cd 0d 05 82 05 cd 0d 05 8c 24 51 24 |..x..........$Q$|
00000ca0 28 53 31 2c 53 32 29 3d 22 22 20 3a 20 58 3d 53 |(S1,S2)="" : X=S|
00000cb0 31 20 3a 20 59 3d 53 32 20 3a 20 f2 58 59 0d 05 |1 : Y=S2 : .XY..|
00000cc0 96 0d e7 20 57 31 3e 3d 31 20 8c 0d 05 a0 39 20 |... W1>=1 ....9 |
00000cd0 20 20 20 20 3a 20 f2 70 72 69 6e 74 65 72 28 32 | : .printer(2|
00000ce0 2c 22 47 22 2c 22 57 41 52 50 20 45 4e 47 49 4e |,"G","WARP ENGIN|
00000cf0 45 53 20 41 43 54 49 56 41 54 45 44 20 2e 2e 2e |ES ACTIVATED ...|
00000d00 2e 2e 22 29 0d 05 aa 05 cd 0d 05 b4 10 f2 75 70 |..")..........up|
00000d10 64 61 74 65 42 61 6e 6b 73 0d 05 be 0c 49 25 3d |dateBanks....I%=|
00000d20 30 20 3a 20 f5 0d 05 c8 17 53 31 3d 53 31 2b 58 |0 : .....S1=S1+X|
00000d30 31 20 3a 20 53 32 3d 53 32 2b 58 32 0d 05 d2 21 |1 : S2=S2+X2...!|
00000d40 e7 20 53 31 3c 31 20 84 20 53 31 3e 38 20 84 20 |. S1<1 . S1>8 . |
00000d50 53 32 3c 31 20 84 20 53 32 3e 38 20 8c 0d 05 dc |S2<1 . S2>8 ....|
00000d60 28 20 20 20 20 20 3a 20 58 3d 51 31 2a 38 2b 58 |( : X=Q1*8+X|
00000d70 2b 58 31 2a 4e 20 3a 20 59 3d 51 32 2a 38 2b 59 |+X1*N : Y=Q2*8+Y|
00000d80 2b 58 32 2a 4e 0d 05 e6 20 20 20 20 20 20 3a 20 |+X2*N... : |
00000d90 51 31 3d a8 28 58 2f 38 29 20 3a 20 51 32 3d a8 |Q1=.(X/8) : Q2=.|
00000da0 28 59 2f 38 29 0d 05 f0 26 20 20 20 20 20 3a 20 |(Y/8)...& : |
00000db0 53 31 3d a8 28 58 2d 51 31 2a 38 29 20 3a 20 53 |S1=.(X-Q1*8) : S|
00000dc0 32 3d a8 28 59 2d 51 32 2a 38 29 0d 05 fa 22 20 |2=.(Y-Q2*8)..." |
00000dd0 20 20 20 20 3a 20 e7 20 53 31 3d 30 20 8c 20 51 | : . S1=0 . Q|
00000de0 31 3d 51 31 2d 31 20 3a 20 53 31 3d 38 0d 06 04 |1=Q1-1 : S1=8...|
00000df0 22 20 20 20 20 20 3a 20 e7 20 53 32 3d 30 20 8c |" : . S2=0 .|
00000e00 20 51 32 3d 51 32 2d 31 20 3a 20 53 32 3d 38 0d | Q2=Q2-1 : S2=8.|
00000e10 06 0e 1a 20 20 20 20 20 3a 20 54 3d 54 2b 31 20 |... : T=T+1 |
00000e20 3a 20 45 3d 45 2d 4e 2b 35 0d 06 18 20 20 20 20 |: E=E-N+5... |
00000e30 20 20 3a 20 e7 20 54 3e 54 38 20 8c 20 f2 64 65 | : . T>T8 . .de|
00000e40 61 64 28 32 29 20 3a 20 e1 0d 06 22 1b 20 20 20 |ad(2) : ...". |
00000e50 20 20 3a 20 f2 6e 65 77 51 75 61 64 72 61 6e 74 | : .newQuadrant|
00000e60 20 3a 20 e1 0d 06 2c 05 cd 0d 06 36 14 e7 20 51 | : ...,....6.. Q|
00000e70 24 28 53 31 2c 53 32 29 3d 22 22 20 8c 0d 06 40 |$(S1,S2)="" ...@|
00000e80 1c 20 20 20 20 20 3a 20 49 25 3d 49 25 2b 31 20 |. : I%=I%+1 |
00000e90 3a 20 fd 20 49 25 3e 3d 4e 0d 06 4a 2d cc 20 3a |: . I%>=N..J-. :|
00000ea0 20 53 31 3d a8 28 53 31 2d 58 31 29 20 3a 20 53 | S1=.(S1-X1) : S|
00000eb0 32 3d a8 28 53 32 2d 58 32 29 20 3a 20 f2 63 6c |2=.(S2-X2) : .cl|
00000ec0 65 61 72 28 33 29 0d 06 54 13 20 20 20 20 20 3a |ear(3)..T. :|
00000ed0 20 e7 20 57 31 3c 31 20 8c 0d 06 5e 37 20 20 20 | . W1<1 ...^7 |
00000ee0 20 20 3a 20 f2 74 65 78 74 28 33 30 38 2c 36 30 | : .text(308,60|
00000ef0 38 2c 22 52 22 2c 22 49 4d 50 55 4c 53 45 20 44 |8,"R","IMPULSE D|
00000f00 52 49 56 45 20 53 48 55 54 20 44 4f 57 4e 22 29 |RIVE SHUT DOWN")|
00000f10 0d 06 68 33 cc 20 3a 20 f2 74 65 78 74 28 33 30 |..h3. : .text(30|
00000f20 38 2c 36 30 38 2c 22 52 22 2c 22 57 41 52 50 20 |8,608,"R","WARP |
00000f30 45 4e 47 49 4e 45 53 20 53 48 55 54 20 44 4f 57 |ENGINES SHUT DOW|
00000f40 4e 22 29 0d 06 72 05 cd 0d 06 7c 48 20 20 20 20 |N")..r....|H |
00000f50 20 3a 20 f2 74 65 78 74 28 33 30 38 2c 35 35 36 | : .text(308,556|
00000f60 2c 22 52 22 2c 22 41 54 20 53 45 43 54 4f 52 20 |,"R","AT SECTOR |
00000f70 22 2b c3 28 53 32 29 2b 22 2e 22 2b c3 28 53 31 |"+.(S2)+"."+.(S1|
00000f80 29 2b 22 20 44 55 45 20 54 4f 20 42 41 44 22 29 |)+" DUE TO BAD")|
00000f90 0d 06 86 3b 20 20 20 20 20 3a 20 f2 74 65 78 74 |...; : .text|
00000fa0 28 33 30 38 2c 35 30 34 2c 22 52 22 2c 22 4e 41 |(308,504,"R","NA|
00000fb0 56 49 47 41 54 49 4f 4e 20 2e 2e 2e 2e 2e 22 29 |VIGATION .....")|
00000fc0 20 3a 20 57 3d a6 28 32 30 30 29 0d 06 90 05 cd | : W=.(200).....|
00000fd0 0d 06 9a 36 53 31 3d a8 28 53 31 2b 2e 35 29 20 |...6S1=.(S1+.5) |
00000fe0 3a 20 53 32 3d a8 28 53 32 2b 2e 35 29 20 3a 20 |: S2=.(S2+.5) : |
00000ff0 51 24 28 53 31 2c 53 32 29 3d 22 65 6e 74 65 72 |Q$(S1,S2)="enter|
00001000 70 72 69 73 65 22 0d 06 a4 2e 45 3d 45 2d 4e 20 |prise"....E=E-N |
00001010 3a 20 54 3d 28 a8 28 31 30 2a 54 2b 31 2e 31 29 |: T=(.(10*T+1.1)|
00001020 29 2f 31 30 20 3a 20 e7 20 57 31 3c 31 20 8c 20 |)/10 : . W1<1 . |
00001030 8d 74 78 46 0d 06 ae 14 54 3d 28 a8 28 31 30 2a |.txF....T=(.(10*|
00001040 54 2b 39 29 29 2f 31 30 0d 06 b8 18 e7 20 54 3e |T+9))/10..... T>|
00001050 54 30 2b 54 39 20 8c 20 f2 64 65 61 64 28 32 29 |T0+T9 . .dead(2)|
00001060 0d 06 c2 20 f2 62 61 73 65 43 68 65 63 6b 20 3a |... .baseCheck :|
00001070 20 f2 73 68 6f 72 74 52 61 6e 67 65 53 63 61 6e | .shortRangeScan|
00001080 0d 06 cc 19 f2 63 6c 65 61 72 28 35 29 20 3a 20 |.....clear(5) : |
00001090 f2 63 6c 65 61 72 28 36 29 0d 06 d6 05 e1 0d 06 |.clear(6).......|
000010a0 e0 05 3a 0d 06 ea 12 dd 20 f2 6e 65 77 51 75 61 |..:..... .newQua|
000010b0 64 72 61 6e 74 0d 06 f4 19 f2 63 6c 65 61 72 28 |drant.....clear(|
000010c0 31 29 20 3a 20 f2 63 6c 65 61 72 28 36 29 0d 06 |1) : .clear(6)..|
000010d0 fe 60 f2 70 72 69 6e 74 65 72 28 31 2c 22 57 22 |.`.printer(1,"W"|
000010e0 2c 22 4e 4f 57 20 45 4e 54 45 52 49 4e 47 20 51 |,"NOW ENTERING Q|
000010f0 55 41 44 52 41 4e 54 20 22 2b c3 28 51 32 29 2b |UADRANT "+.(Q2)+|
00001100 22 2e 22 2b c3 28 51 31 29 2b 22 20 53 45 43 54 |"."+.(Q1)+" SECT|
00001110 4f 52 20 22 2b c3 28 53 32 29 2b 22 2e 22 2b c3 |OR "+.(S2)+"."+.|
00001120 28 53 31 29 2b 22 20 2e 2e 2e 2e 2e 22 29 0d 07 |(S1)+" .....")..|
00001130 08 21 e7 20 51 31 3c 31 20 84 20 51 31 3e 38 20 |.!. Q1<1 . Q1>8 |
00001140 84 20 51 32 3c 31 20 84 20 51 32 3e 38 20 8c 0d |. Q2<1 . Q2>8 ..|
00001150 07 12 14 20 20 20 20 20 3a 20 f2 63 6c 65 61 72 |... : .clear|
00001160 28 36 29 0d 07 1c 18 20 20 20 20 20 3a 20 e7 20 |(6).... : . |
00001170 51 31 3e 39 20 8c 20 51 31 3d 39 0d 07 26 18 20 |Q1>9 . Q1=9..&. |
00001180 20 20 20 20 3a 20 e7 20 51 32 3e 39 20 8c 20 51 | : . Q2>9 . Q|
00001190 32 3d 39 0d 07 30 18 20 20 20 20 20 3a 20 e7 20 |2=9..0. : . |
000011a0 51 31 3c 30 20 8c 20 51 31 3d 30 0d 07 3a 18 20 |Q1<0 . Q1=0..:. |
000011b0 20 20 20 20 3a 20 e7 20 51 32 3c 30 20 8c 20 51 | : . Q2<0 . Q|
000011c0 32 3d 30 0d 07 44 47 20 20 20 20 20 3a 20 f2 70 |2=0..DG : .p|
000011d0 72 69 6e 74 65 72 28 32 2c 22 59 22 2c 22 59 4f |rinter(2,"Y","YO|
000011e0 55 20 48 41 56 45 20 53 54 52 41 59 45 44 20 4f |U HAVE STRAYED O|
000011f0 55 54 53 49 44 45 20 4f 50 45 52 41 54 49 4f 4e |UTSIDE OPERATION|
00001200 53 20 52 45 47 49 4f 4e 22 29 0d 07 4e 3b 20 20 |S REGION")..N; |
00001210 20 20 20 3a 20 57 3d a6 28 38 30 29 20 3a 20 f2 | : W=.(80) : .|
00001220 70 72 69 6e 74 65 72 28 32 2c 22 59 22 2c 22 4e |printer(2,"Y","N|
00001230 4f 20 43 48 41 52 54 53 20 48 45 4c 44 20 2e 2e |O CHARTS HELD ..|
00001240 2e 2e 2e 22 29 0d 07 58 05 cd 0d 07 62 1b f2 71 |...")..X....b..q|
00001250 75 61 64 42 75 69 6c 64 20 3a 20 f2 62 61 73 65 |uadBuild : .base|
00001260 43 68 65 63 6b 0d 07 6c 38 f2 73 68 6f 72 74 52 |Check..l8.shortR|
00001270 61 6e 67 65 53 63 61 6e 20 3a 20 f2 75 70 64 61 |angeScan : .upda|
00001280 74 65 50 6f 73 20 3a 20 f2 63 6c 65 61 72 28 31 |tePos : .clear(1|
00001290 29 20 3a 20 f2 63 6c 65 61 72 28 36 29 0d 07 76 |) : .clear(6)..v|
000012a0 1e e7 20 47 28 51 31 2c 51 32 29 3d 2d 31 20 8c |.. G(Q1,Q2)=-1 .|
000012b0 20 f2 73 75 70 65 72 4e 6f 76 61 0d 07 80 05 e1 | .superNova.....|
000012c0 0d 07 8a 05 3a 0d 07 94 11 dd 20 f2 6e 6f 4b 6c |....:..... .noKl|
000012d0 69 6e 67 6f 6e 73 0d 07 9e 25 f2 63 6c 65 61 72 |ingons...%.clear|
000012e0 28 31 29 20 3a 20 f2 63 6c 65 61 72 28 34 29 20 |(1) : .clear(4) |
000012f0 3a 20 f2 63 6c 65 61 72 28 36 29 0d 07 a8 28 f2 |: .clear(6)...(.|
00001300 66 6f 6e 74 28 36 32 34 2c 32 32 38 2c 38 2c 22 |font(624,228,8,"|
00001310 53 45 4e 53 4f 52 53 20 52 45 50 4f 52 54 20 4e |SENSORS REPORT N|
00001320 4f 22 29 0d 07 b2 27 f2 66 6f 6e 74 28 36 32 34 |O")...'.font(624|
00001330 2c 31 39 32 2c 38 2c 22 4b 4c 49 4e 47 4f 4e 53 |,192,8,"KLINGONS|
00001340 20 49 4e 20 54 48 49 53 22 29 0d 07 bc 25 f2 66 | IN THIS")...%.f|
00001350 6f 6e 74 28 36 32 34 2c 31 35 36 2c 38 2c 22 51 |ont(624,156,8,"Q|
00001360 55 41 44 52 41 4e 54 20 2e 2e 2e 2e 2e 22 29 0d |UADRANT .....").|
00001370 07 c6 05 e1 0d 07 d0 05 3a 0d 07 da 0e dd 20 f2 |........:..... .|
00001380 70 68 61 73 6f 72 73 0d 07 e4 0c e7 20 4b 33 3c |phasors..... K3<|
00001390 31 20 8c 0d 07 ee 1a 20 20 20 20 20 3a 20 f2 6e |1 ..... : .n|
000013a0 6f 4b 6c 69 6e 67 6f 6e 73 20 3a 20 e1 0d 07 f8 |oKlingons : ....|
000013b0 05 cd 0d 08 02 19 f2 63 6c 65 61 72 28 34 29 20 |.......clear(4) |
000013c0 3a 20 f2 63 6c 65 61 72 28 36 29 0d 08 0c 0e e7 |: .clear(6).....|
000013d0 20 44 28 39 29 3c 30 20 8c 0d 08 16 2d 20 20 20 | D(9)<0 ....- |
000013e0 20 20 3a 20 f2 66 6f 6e 74 28 36 32 34 2c 32 32 | : .font(624,22|
000013f0 38 2c 31 2c 22 43 4f 4d 42 41 54 20 43 4f 4d 50 |8,1,"COMBAT COMP|
00001400 55 54 45 52 22 29 0d 08 20 2b 20 20 20 20 20 3a |UTER").. + :|
00001410 20 f2 66 6f 6e 74 28 36 32 34 2c 31 39 32 2c 31 | .font(624,192,1|
00001420 2c 22 49 53 20 44 4f 57 4e 20 2e 2e 2e 2e 2e 22 |,"IS DOWN ....."|
00001430 29 0d 08 2a 0c 20 20 20 20 20 3a 20 e1 0d 08 34 |)..*. : ...4|
00001440 05 cd 0d 08 3e 0e e7 20 44 28 34 29 3c 30 20 8c |....>.. D(4)<0 .|
00001450 0d 08 48 2f 20 20 20 20 20 3a 20 f2 66 6f 6e 74 |..H/ : .font|
00001460 28 36 32 34 2c 32 32 38 2c 31 2c 22 50 48 41 53 |(624,228,1,"PHAS|
00001470 4f 52 53 20 41 52 45 20 44 4f 57 4e 21 22 29 0d |ORS ARE DOWN!").|
00001480 08 52 0c 20 20 20 20 20 3a 20 e1 0d 08 5c 05 cd |.R. : ...\..|
00001490 0d 08 66 28 f2 66 6f 6e 74 28 36 32 34 2c 32 32 |..f(.font(624,22|
000014a0 38 2c 38 2c 22 45 4e 45 52 47 59 20 42 41 4e 4b |8,8,"ENERGY BANK|
000014b0 53 20 48 41 56 45 22 29 0d 08 70 2b f2 66 6f 6e |S HAVE")..p+.fon|
000014c0 74 28 36 32 34 2c 31 39 32 2c 38 2c c3 28 45 29 |t(624,192,8,.(E)|
000014d0 2b 22 20 55 4e 49 54 53 20 55 53 41 42 4c 45 20 |+" UNITS USABLE |
000014e0 2d 22 29 0d 08 7a 32 58 3d a4 69 6e 70 75 74 28 |-")..z2X=.input(|
000014f0 36 32 34 2c 31 35 36 2c 39 30 30 2c 31 35 36 2c |624,156,900,156,|
00001500 33 2c 22 55 4e 49 54 53 20 54 4f 20 46 49 52 45 |3,"UNITS TO FIRE|
00001510 3a 22 2c 34 29 0d 08 84 0d e7 20 58 3c 31 20 8c |:",4)..... X<1 .|
00001520 20 e1 0d 08 8e 0d e7 20 45 2d 58 3c 30 20 8c 0d | ...... E-X<0 ..|
00001530 08 98 45 20 20 20 20 20 3a 20 f2 70 72 69 6e 74 |..E : .print|
00001540 65 72 28 32 2c 22 52 22 2c 22 49 4e 53 55 46 46 |er(2,"R","INSUFF|
00001550 49 43 45 4e 54 20 45 4e 45 52 47 59 20 46 4f 52 |ICENT ENERGY FOR|
00001560 20 50 48 41 53 4f 52 20 53 48 4f 54 20 2e 2e 2e | PHASOR SHOT ...|
00001570 2e 2e 22 29 0d 08 a2 1a 20 20 20 20 20 3a 20 f2 |..").... : .|
00001580 73 70 61 63 65 20 3a 20 e5 20 8d 54 42 48 0d 08 |space : . .TBH..|
00001590 ac 05 cd 0d 08 b6 24 45 3d 45 2d 58 20 3a 20 f2 |......$E=E-X : .|
000015a0 75 70 64 61 74 65 42 61 6e 6b 73 20 3a 20 f2 63 |updateBanks : .c|
000015b0 6c 65 61 72 28 34 29 0d 08 c0 35 f2 70 72 69 6e |lear(4)...5.prin|
000015c0 74 65 72 28 32 2c 22 59 22 2c 22 50 48 41 53 4f |ter(2,"Y","PHASO|
000015d0 52 20 53 54 52 49 4b 45 20 52 45 50 4f 52 54 3a |R STRIKE REPORT:|
000015e0 22 29 20 3a 20 57 3d a6 28 34 30 29 0d 08 ca 0e |") : W=.(40)....|
000015f0 e3 20 49 25 3d 31 20 b8 20 33 0d 08 d4 17 e7 20 |. I%=1 . 3..... |
00001600 4b 28 49 25 2c 33 29 3c 3d 30 20 8c 20 8d 54 78 |K(I%,3)<=0 . .Tx|
00001610 49 0d 08 de 2b 48 3d a8 28 58 2f 4b 33 2f 28 a4 |I...+H=.(X/K3/(.|
00001620 44 28 30 29 2f 32 29 29 20 3a 20 4b 28 49 25 2c |D(0)/2)) : K(I%,|
00001630 33 29 3d 4b 28 49 25 2c 33 29 2d 48 0d 08 e8 52 |3)=K(I%,3)-H...R|
00001640 f2 70 72 69 6e 74 65 72 28 32 2c 22 59 22 2c c3 |.printer(2,"Y",.|
00001650 28 48 29 2b 22 20 55 4e 49 54 20 48 49 54 20 49 |(H)+" UNIT HIT I|
00001660 4e 20 53 45 43 54 4f 52 20 22 2b c3 28 4b 28 49 |N SECTOR "+.(K(I|
00001670 25 2c 32 29 29 2b 22 2e 22 2b c3 28 4b 28 49 25 |%,2))+"."+.(K(I%|
00001680 2c 31 29 29 2b 22 20 2e 2e 2e 2e 2e 22 29 0d 08 |,1))+" .....")..|
00001690 f2 0b 57 3d a6 28 34 30 29 0d 08 fc 12 e7 20 4b |..W=.(40)..... K|
000016a0 28 49 25 2c 33 29 3c 3d 30 20 8c 0d 09 06 1d 20 |(I%,3)<=0 ..... |
000016b0 20 20 20 20 3a 20 f2 6b 6c 69 6e 67 6f 6e 57 69 | : .klingonWi|
000016c0 70 65 28 59 2d 35 32 29 0d 09 10 21 20 20 20 20 |pe(Y-52)...! |
000016d0 20 3a 20 e7 20 4b 39 3c 3d 30 20 8c 20 f2 64 65 | : . K9<=0 . .de|
000016e0 61 64 28 34 29 20 3a 20 e1 0d 09 1a 47 cc 20 3a |ad(4) : ....G. :|
000016f0 20 f2 70 72 69 6e 74 65 72 28 32 2c 22 59 22 2c | .printer(2,"Y",|
00001700 22 54 41 52 47 45 54 20 48 41 53 20 22 2b c3 28 |"TARGET HAS "+.(|
00001710 4b 28 49 25 2c 33 29 29 2b 22 20 55 4e 49 54 53 |K(I%,3))+" UNITS|
00001720 20 52 45 4d 41 49 4e 49 4e 47 20 2e 2e 2e 22 29 | REMAINING ...")|
00001730 0d 09 24 05 cd 0d 09 2e 0b 57 3d a6 28 34 30 29 |..$......W=.(40)|
00001740 0d 09 38 05 ed 0d 09 42 2b f2 73 68 6f 72 74 52 |..8....B+.shortR|
00001750 61 6e 67 65 53 63 61 6e 20 3a 20 f2 63 6c 65 61 |angeScan : .clea|
00001760 72 28 31 29 20 3a 20 f2 63 6c 65 61 72 28 36 29 |r(1) : .clear(6)|
00001770 0d 09 4c 1a e7 20 45 3c 31 20 80 20 53 3c 31 20 |..L.. E<1 . S<1 |
00001780 8c 20 f2 64 65 61 64 28 31 29 0d 09 56 05 e1 0d |. .dead(1)..V...|
00001790 09 60 05 3a 0d 09 6a 10 dd 20 f2 74 6f 72 70 65 |.`.:..j.. .torpe|
000017a0 64 6f 65 73 0d 09 74 0c e7 20 4b 33 3c 31 20 8c |does..t.. K3<1 .|
000017b0 0d 09 7e 1a 20 20 20 20 20 3a 20 f2 6e 6f 4b 6c |..~. : .noKl|
000017c0 69 6e 67 6f 6e 73 20 3a 20 e1 0d 09 88 05 cd 0d |ingons : .......|
000017d0 09 92 0d f2 63 6c 65 61 72 28 34 29 0d 09 9c 0e |....clear(4)....|
000017e0 e7 20 44 28 39 29 3c 30 20 8c 0d 09 a6 2d 20 20 |. D(9)<0 ....- |
000017f0 20 20 20 3a 20 f2 66 6f 6e 74 28 36 32 34 2c 32 | : .font(624,2|
00001800 32 38 2c 31 2c 22 43 4f 4d 42 41 54 20 43 4f 4d |28,1,"COMBAT COM|
00001810 50 55 54 45 52 22 29 0d 09 b0 2b 20 20 20 20 20 |PUTER")...+ |
00001820 3a 20 f2 66 6f 6e 74 28 36 32 34 2c 31 39 32 2c |: .font(624,192,|
00001830 31 2c 22 49 53 20 44 4f 57 4e 20 2e 2e 2e 2e 2e |1,"IS DOWN .....|
00001840 22 29 0d 09 ba 0c 20 20 20 20 20 3a 20 e1 0d 09 |").... : ...|
00001850 c4 05 cd 0d 09 ce 0b e7 20 50 3d 30 20 8c 0d 09 |........ P=0 ...|
00001860 d8 2b 20 20 20 20 20 3a 20 f2 66 6f 6e 74 28 36 |.+ : .font(6|
00001870 32 34 2c 32 32 38 2c 31 2c 22 41 4c 4c 20 54 4f |24,228,1,"ALL TO|
00001880 52 50 45 44 4f 45 53 22 29 0d 09 e2 2c 20 20 20 |RPEDOES")..., |
00001890 20 20 3a 20 f2 66 6f 6e 74 28 36 32 34 2c 31 39 | : .font(624,19|
000018a0 32 2c 31 2c 22 45 58 50 45 4e 44 45 44 20 2e 2e |2,1,"EXPENDED ..|
000018b0 2e 2e 2e 22 29 0d 09 ec 0c 20 20 20 20 20 3a 20 |...").... : |
000018c0 e1 0d 09 f6 05 cd 0d 0a 00 0e e7 20 44 28 35 29 |........... D(5)|
000018d0 3c 30 20 8c 0d 0a 0a 2e 20 20 20 20 20 3a 20 f2 |<0 ..... : .|
000018e0 66 6f 6e 74 28 36 32 34 2c 32 32 38 2c 31 2c 22 |font(624,228,1,"|
000018f0 50 48 4f 54 4f 4e 20 54 55 42 45 53 20 41 52 45 |PHOTON TUBES ARE|
00001900 22 29 0d 0a 14 2b 20 20 20 20 20 3a 20 f2 66 6f |")...+ : .fo|
00001910 6e 74 28 36 32 34 2c 31 39 32 2c 31 2c 22 44 41 |nt(624,192,1,"DA|
00001920 4d 41 47 45 44 20 2e 2e 2e 2e 2e 22 29 0d 0a 1e |MAGED .....")...|
00001930 0c 20 20 20 20 20 3a 20 e1 0d 0a 28 05 cd 0d 0a |. : ...(....|
00001940 32 29 f2 66 6f 6e 74 28 36 32 34 2c 32 32 38 2c |2).font(624,228,|
00001950 33 2c 22 46 49 52 45 20 42 45 41 52 49 4e 47 20 |3,"FIRE BEARING |
00001960 28 30 2d 37 29 22 29 0d 0a 3c 26 43 31 3d a4 69 |(0-7)")..<&C1=.i|
00001970 6e 70 75 74 28 36 32 34 2c 31 39 32 2c 36 34 38 |nput(624,192,648|
00001980 2c 31 39 32 2c 33 2c 22 3a 22 2c 34 29 0d 0a 46 |,192,3,":",4)..F|
00001990 18 43 31 3d 43 31 2b 31 20 3a 20 e7 20 43 31 3e |.C1=C1+1 : . C1>|
000019a0 39 20 8c 20 e1 0d 0a 50 12 f2 66 69 72 65 54 6f |9 . ...P..fireTo|
000019b0 72 70 65 64 6f 65 73 0d 0a 5a 05 e1 0d 0a 64 05 |rpedoes..Z....d.|
000019c0 3a 0d 0a 6e 14 dd 20 f2 66 69 72 65 54 6f 72 70 |:..n.. .fireTorp|
000019d0 65 64 6f 65 73 0d 0a 78 0e 46 25 3d 30 20 3a 20 |edoes..x.F%=0 : |
000019e0 f2 58 59 0d 0a 82 3a 58 3d 53 31 20 3a 20 59 3d |.XY...:X=S1 : Y=|
000019f0 53 32 20 3a 20 50 3d 50 2d 31 20 3a 20 f2 66 6f |S2 : P=P-1 : .fo|
00001a00 6e 74 28 36 32 34 2c 31 35 36 2c 38 2c 22 54 4f |nt(624,156,8,"TO|
00001a10 52 50 45 44 4f 20 54 52 41 43 4b 22 29 0d 0a 8c |RPEDO TRACK")...|
00001a20 1d 58 3d 58 2b 58 31 20 3a 20 59 3d 59 2b 58 32 |.X=X+X1 : Y=Y+X2|
00001a30 20 3a 20 57 3d a6 28 32 35 29 0d 0a 96 1d e7 20 | : W=.(25)..... |
00001a40 58 3c 31 20 84 20 58 3e 38 20 84 20 59 3c 31 20 |X<1 . X>8 . Y<1 |
00001a50 84 20 59 3e 38 20 8c 0d 0a a0 3d 20 20 20 20 20 |. Y>8 ....= |
00001a60 3a 20 f2 63 6c 65 61 72 28 34 29 20 3a 20 f2 70 |: .clear(4) : .p|
00001a70 72 69 6e 74 65 72 28 32 2c 22 59 22 2c 22 54 4f |rinter(2,"Y","TO|
00001a80 52 50 45 44 4f 20 4d 49 53 53 45 44 20 2e 2e 2e |RPEDO MISSED ...|
00001a90 2e 2e 22 29 0d 0a aa 0c 20 20 20 20 20 3a 20 e1 |..").... : .|
00001aa0 0d 0a b4 05 cd 0d 0a be 21 78 24 3d c3 28 a8 28 |........!x$=.(.(|
00001ab0 58 2b 2e 35 29 29 20 3a 20 79 24 3d c3 28 a8 28 |X+.5)) : y$=.(.(|
00001ac0 59 2b 2e 35 29 29 0d 0a c8 1d e6 20 30 20 3a 20 |Y+.5))..... 0 : |
00001ad0 c8 93 20 c8 90 20 39 32 30 2c 31 32 34 2c 36 34 |.. .. 920,124,64|
00001ae0 2c 33 32 0d 0a d2 1e f2 66 6f 6e 74 28 39 32 30 |,32.....font(920|
00001af0 2c 31 35 36 2c 33 2c 79 24 2b 22 2e 22 2b 78 24 |,156,3,y$+"."+x$|
00001b00 29 0d 0a dc 1f e7 20 a8 28 58 2b 2e 32 35 29 3c |)..... .(X+.25)<|
00001b10 3e a8 28 58 2b 2e 37 35 29 20 8c 20 8d 74 4c 4a |>.(X+.75) . .tLJ|
00001b20 0d 0a e6 1f e7 20 a8 28 59 2b 2e 32 35 29 3c 3e |..... .(Y+.25)<>|
00001b30 a8 28 59 2b 2e 37 35 29 20 8c 20 8d 74 4c 4a 0d |.(Y+.75) . .tLJ.|
00001b40 0a f0 1b 5a 31 3d a8 28 58 2b 2e 35 29 20 3a 20 |...Z1=.(X+.5) : |
00001b50 5a 32 3d a8 28 59 2b 2e 35 29 0d 0a fa 23 41 24 |Z2=.(Y+.5)...#A$|
00001b60 3d 22 22 20 3a 20 f2 63 68 65 63 6b 20 3a 20 e7 |="" : .check : .|
00001b70 20 5a 33 3c 3e 30 20 8c 20 8d 74 4c 4a 0d 0b 04 | Z3<>0 . .tLJ...|
00001b80 25 41 24 3d 22 6b 6c 69 6e 67 6f 6e 22 20 3a 20 |%A$="klingon" : |
00001b90 f2 63 68 65 63 6b 20 3a 20 e7 20 5a 33 3c 3e 30 |.check : . Z3<>0|
00001ba0 20 8c 0d 0b 0e 47 20 20 20 20 20 3a 20 f2 63 6c | ....G : .cl|
00001bb0 65 61 72 28 34 29 20 3a 20 f2 70 72 69 6e 74 65 |ear(4) : .printe|
00001bc0 72 28 32 2c 22 52 22 2c 22 54 41 52 47 45 54 20 |r(2,"R","TARGET |
00001bd0 4b 4c 49 4e 47 4f 4e 20 44 45 53 54 52 4f 59 45 |KLINGON DESTROYE|
00001be0 44 20 2e 2e 2e 2e 2e 22 29 0d 0b 18 1c 20 20 20 |D .....").... |
00001bf0 20 20 3a 20 4b 33 3d 4b 33 2d 31 20 3a 20 4b 39 | : K3=K3-1 : K9|
00001c00 3d 4b 39 2d 31 0d 0b 22 21 20 20 20 20 20 3a 20 |=K9-1.."! : |
00001c10 e7 20 4b 39 3c 3d 30 20 8c 20 f2 64 65 61 64 28 |. K9<=0 . .dead(|
00001c20 34 29 20 3a 20 e1 0d 0b 2c 15 20 20 20 20 20 3a |4) : ...,. :|
00001c30 20 e3 20 49 25 3d 31 20 b8 20 33 0d 0b 36 1f 20 | . I%=1 . 3..6. |
00001c40 20 20 20 20 3a 20 e7 20 5a 31 3c 3e 4b 28 49 25 | : . Z1<>K(I%|
00001c50 2c 31 29 20 8c 20 8d 44 54 4b 0d 0b 40 32 20 20 |,1) . .DTK..@2 |
00001c60 20 20 20 3a 20 e7 20 5a 32 3d 4b 28 49 25 2c 32 | : . Z2=K(I%,2|
00001c70 29 20 8c 20 4b 28 49 25 2c 33 29 3d 30 20 3a 20 |) . K(I%,3)=0 : |
00001c80 51 24 28 5a 31 2c 5a 32 29 3d 22 22 0d 0b 4a 37 |Q$(Z1,Z2)=""..J7|
00001c90 20 20 20 20 20 3a 20 47 28 51 31 2c 51 32 29 3d | : G(Q1,Q2)=|
00001ca0 4b 33 2a 31 30 30 2b 42 33 2a 31 30 2b 53 33 20 |K3*100+B3*10+S3 |
00001cb0 3a 20 5a 28 51 31 2c 51 32 29 3d 47 28 51 31 2c |: Z(Q1,Q2)=G(Q1,|
00001cc0 51 32 29 0d 0b 54 22 20 20 20 20 20 3a 20 ed 20 |Q2)..T" : . |
00001cd0 3a 20 f2 73 68 6f 72 74 52 61 6e 67 65 53 63 61 |: .shortRangeSca|
00001ce0 6e 20 3a 20 e1 0d 0b 5e 1a cc 20 3a 20 41 24 3d |n : ...^.. : A$=|
00001cf0 22 73 74 61 72 22 20 3a 20 f2 63 68 65 63 6b 0d |"star" : .check.|
00001d00 0b 68 05 cd 0d 0b 72 0d e7 20 5a 33 3c 3e 30 20 |.h....r.. Z3<>0 |
00001d10 8c 0d 0b 7c 44 20 20 20 20 20 3a 20 f2 63 6c 65 |...|D : .cle|
00001d20 61 72 28 34 29 20 3a 20 f2 70 72 69 6e 74 65 72 |ar(4) : .printer|
00001d30 28 32 2c 22 59 22 2c 22 53 54 41 52 20 41 42 53 |(2,"Y","STAR ABS|
00001d40 4f 52 42 45 44 20 54 4f 52 50 45 44 4f 20 2e 2e |ORBED TORPEDO ..|
00001d50 2e 2e 2e 22 29 0d 0b 86 1f 20 20 20 20 20 3a 20 |...").... : |
00001d60 e7 20 b3 28 31 29 3e 2e 38 20 8c 20 f2 64 65 61 |. .(1)>.8 . .dea|
00001d70 64 28 35 29 0d 0b 90 0c 20 20 20 20 20 3a 20 e1 |d(5).... : .|
00001d80 0d 0b 9a 1e cc 20 3a 20 41 24 3d 22 73 74 61 72 |..... : A$="star|
00001d90 62 61 73 65 22 20 3a 20 f2 63 68 65 63 6b 0d 0b |base" : .check..|
00001da0 a4 05 cd 0d 0b ae 13 e7 20 5a 33 3d 30 20 8c 20 |........ Z3=0 . |
00001db0 e5 20 8d 74 4c 4a 0d 0b b8 05 cd 0d 0b c2 44 f2 |. .tLJ........D.|
00001dc0 63 6c 65 61 72 28 34 29 20 3a 20 f2 70 72 69 6e |clear(4) : .prin|
00001dd0 74 65 72 28 32 2c 22 42 22 2c 22 53 54 41 52 42 |ter(2,"B","STARB|
00001de0 41 53 45 20 44 45 53 54 52 4f 59 45 44 20 2e 2e |ASE DESTROYED ..|
00001df0 2e 2e 2e 22 29 20 3a 20 57 3d a6 28 38 30 29 0d |...") : W=.(80).|
00001e00 0b cc 42 f2 70 72 69 6e 74 65 72 28 32 2c 22 59 |..B.printer(2,"Y|
00001e10 22 2c 22 59 4f 55 20 57 49 4c 4c 20 41 50 50 45 |","YOU WILL APPE|
00001e20 41 52 20 42 45 46 4f 52 20 41 20 43 4f 55 52 54 |AR BEFOR A COURT|
00001e30 20 4d 41 52 53 48 41 4c 4c 20 2e 2e 2e 2e 2e 22 | MARSHALL ....."|
00001e40 29 0d 0b d6 40 57 3d a6 28 34 30 29 20 3a 20 f2 |)...@W=.(40) : .|
00001e50 70 72 69 6e 74 65 72 28 32 2c 22 59 22 2c 22 49 |printer(2,"Y","I|
00001e60 46 20 59 4f 55 20 53 55 52 56 49 56 45 20 54 48 |F YOU SURVIVE TH|
00001e70 45 20 4d 49 53 53 49 4f 4e 20 2e 2e 2e 2e 2e 22 |E MISSION ....."|
00001e80 29 0d 0b e0 24 42 33 3d 42 33 2d 31 20 3a 20 42 |)...$B3=B3-1 : B|
00001e90 39 3d 42 39 2d 31 20 3a 20 51 24 28 5a 31 2c 5a |9=B9-1 : Q$(Z1,Z|
00001ea0 32 29 3d 22 22 0d 0b ea 30 47 28 51 31 2c 51 32 |2)=""...0G(Q1,Q2|
00001eb0 29 3d 4b 33 2a 31 30 30 2b 42 33 2a 31 30 2b 53 |)=K3*100+B3*10+S|
00001ec0 33 20 3a 20 5a 28 51 31 2c 51 32 29 3d 47 28 51 |3 : Z(Q1,Q2)=G(Q|
00001ed0 31 2c 51 32 29 0d 0b f4 14 e7 20 45 3c 31 20 8c |1,Q2)..... E<1 .|
00001ee0 20 f2 64 65 61 64 28 31 29 0d 0b fe 05 e1 0d 0c | .dead(1).......|
00001ef0 08 05 3a 0d 0c 12 10 dd 20 f2 64 65 66 6c 65 63 |..:..... .deflec|
00001f00 74 6f 72 0d 0c 1c 0d f2 63 6c 65 61 72 28 34 29 |tor.....clear(4)|
00001f10 0d 0c 26 0e e7 20 44 28 36 29 3c 30 20 8c 0d 0c |..&.. D(6)<0 ...|
00001f20 30 2c 20 20 20 20 20 3a 20 f2 66 6f 6e 74 28 36 |0, : .font(6|
00001f30 32 34 2c 32 32 38 2c 31 2c 22 44 45 46 4c 45 43 |24,228,1,"DEFLEC|
00001f40 54 4f 52 53 20 41 52 45 22 29 0d 0c 3a 2e 20 20 |TORS ARE")..:. |
00001f50 20 20 20 3a 20 f2 66 6f 6e 74 28 36 32 34 2c 31 | : .font(624,1|
00001f60 39 32 2c 31 2c 22 4f 55 54 20 4f 46 20 41 43 54 |92,1,"OUT OF ACT|
00001f70 49 4f 4e 20 2e 2e 22 29 0d 0c 44 0c 20 20 20 20 |ION ..")..D. |
00001f80 20 3a 20 e1 0d 0c 4e 05 cd 0d 0c 58 29 f2 66 6f | : ...N....X).fo|
00001f90 6e 74 28 36 32 34 2c 32 32 38 2c 38 2c 22 45 4e |nt(624,228,8,"EN|
00001fa0 45 52 47 59 20 42 41 4e 4b 53 20 22 2b c3 28 45 |ERGY BANKS "+.(E|
00001fb0 29 29 0d 0c 62 29 f2 66 6f 6e 74 28 36 32 34 2c |))..b).font(624,|
00001fc0 31 39 32 2c 35 2c 22 44 45 46 4c 45 43 54 4f 52 |192,5,"DEFLECTOR|
00001fd0 20 41 54 20 22 2b c3 28 53 29 29 0d 0c 6c 2b 58 | AT "+.(S))..l+X|
00001fe0 3d a4 69 6e 70 75 74 28 36 32 34 2c 31 35 36 2c |=.input(624,156,|
00001ff0 38 30 30 2c 31 35 36 2c 33 2c 22 53 45 54 20 54 |800,156,3,"SET T|
00002000 4f 3a 22 2c 34 29 0d 0c 76 0d e7 20 58 3e 45 2b |O:",4)..v.. X>E+|
00002010 53 20 8c 0d 0c 80 0d f2 63 6c 65 61 72 28 34 29 |S ......clear(4)|
00002020 0d 0c 8a 41 20 20 20 20 20 3a 20 f2 70 72 69 6e |...A : .prin|
00002030 74 65 72 28 32 2c 22 59 22 2c 22 49 4e 53 55 46 |ter(2,"Y","INSUF|
00002040 46 49 43 45 4e 54 20 45 4e 45 52 47 59 20 46 4f |FICENT ENERGY FO|
00002050 52 20 53 45 54 54 49 4e 47 20 2e 2e 2e 2e 2e 22 |R SETTING ....."|
00002060 29 0d 0c 94 1b 20 20 20 20 20 3a 20 57 3d a6 28 |).... : W=.(|
00002070 38 30 29 20 3a 20 e5 20 8d 54 5c 4c 0d 0c 9e 05 |80) : . .T\L....|
00002080 cd 0d 0c a8 17 57 3d a6 28 31 35 29 20 3a 20 f2 |.....W=.(15) : .|
00002090 63 6c 65 61 72 28 34 29 0d 0c b2 12 e7 20 58 3c |clear(4)..... X<|
000020a0 3d 31 20 84 20 58 3d 53 20 8c 0d 0c bc 2e 20 20 |=1 . X=S ..... |
000020b0 20 20 20 3a 20 f2 66 6f 6e 74 28 36 32 34 2c 32 | : .font(624,2|
000020c0 32 38 2c 38 2c 22 44 45 46 4c 45 43 54 4f 52 53 |28,8,"DEFLECTORS|
000020d0 20 53 54 49 4c 4c 22 29 0d 0c c6 30 20 20 20 20 | STILL")...0 |
000020e0 20 3a 20 f2 66 6f 6e 74 28 36 32 34 2c 31 39 32 | : .font(624,192|
000020f0 2c 38 2c 22 55 4e 43 48 41 4e 47 45 44 20 41 54 |,8,"UNCHANGED AT|
00002100 20 22 2b c3 28 53 29 29 0d 0c d0 24 cc 20 3a 20 | "+.(S))...$. : |
00002110 45 3d 45 2b 53 2d 58 20 3a 20 53 3d 58 20 3a 20 |E=E+S-X : S=X : |
00002120 f2 75 70 64 61 74 65 42 61 6e 6b 73 0d 0c da 2f |.updateBanks.../|
00002130 20 20 20 20 20 3a 20 f2 66 6f 6e 74 28 36 32 34 | : .font(624|
00002140 2c 32 32 38 2c 38 2c 22 44 45 46 4c 45 43 54 4f |,228,8,"DEFLECTO|
00002150 52 53 20 53 54 41 42 4c 45 22 29 0d 0c e4 30 20 |RS STABLE")...0 |
00002160 20 20 20 20 3a 20 f2 66 6f 6e 74 28 36 32 34 2c | : .font(624,|
00002170 31 39 32 2c 38 2c 22 41 54 20 22 2b c3 28 53 29 |192,8,"AT "+.(S)|
00002180 2b 22 20 55 4e 49 54 53 2e 22 29 0d 0c ee 05 cd |+" UNITS.").....|
00002190 0d 0c f8 19 f2 63 6c 65 61 72 28 31 29 20 3a 20 |.....clear(1) : |
000021a0 f2 63 6c 65 61 72 28 36 29 0d 0d 02 05 e1 0d 0d |.clear(6).......|
000021b0 0c 05 3a 0d 0d 16 13 dd 20 f2 64 61 6d 61 67 65 |..:..... .damage|
000021c0 52 65 70 6f 72 74 0d 0d 20 1c ea 20 41 2c 42 2c |Report.. .. A,B,|
000021d0 43 2c 59 2c 41 24 20 3a 20 f2 63 6c 65 61 72 28 |C,Y,A$ : .clear(|
000021e0 32 29 0d 0d 2a 0e e7 20 44 28 38 29 3c 30 20 8c |2)..*.. D(8)<0 .|
000021f0 0d 0d 34 24 20 20 20 20 20 3a 20 f2 66 6f 6e 74 |..4$ : .font|
00002200 28 33 32 2c 37 34 38 2c 31 2c 22 53 59 53 54 45 |(32,748,1,"SYSTE|
00002210 4d 53 22 29 0d 0d 3e 23 20 20 20 20 20 3a 20 f2 |MS")..># : .|
00002220 66 6f 6e 74 28 33 32 2c 37 30 38 2c 31 2c 22 53 |font(32,708,1,"S|
00002230 54 41 54 55 53 22 29 0d 0d 48 24 20 20 20 20 20 |TATUS")..H$ |
00002240 3a 20 f2 66 6f 6e 74 28 33 32 2c 36 36 38 2c 31 |: .font(32,668,1|
00002250 2c 22 49 53 20 44 4f 57 4e 22 29 0d 0d 52 0c 20 |,"IS DOWN")..R. |
00002260 20 20 20 20 3a 20 e1 0d 0d 5c 05 cd 0d 0d 66 12 | : ...\....f.|
00002270 59 3d 37 34 38 20 3a 20 f7 20 8d 64 4a 4d 0d 0d |Y=748 : . .dJM..|
00002280 70 0e e3 20 41 3d 31 20 b8 20 31 32 0d 0d 7a 23 |p.. A=1 . 12..z#|
00002290 e7 20 41 3d 34 20 84 20 41 3d 37 20 84 20 41 3d |. A=4 . A=7 . A=|
000022a0 39 20 84 20 41 3d 31 31 20 8c 20 59 2d 3d 34 0d |9 . A=11 . Y-=4.|
000022b0 0d 84 1d f3 20 42 2c 41 24 20 3a 20 f2 66 6f 6e |.... B,A$ : .fon|
000022c0 74 28 33 32 2c 59 2c 42 2c 41 24 29 0d 0d 8e 1b |t(32,Y,B,A$)....|
000022d0 43 3d 44 28 41 29 2b 34 20 3a 20 e7 20 43 3c 31 |C=D(A)+4 : . C<1|
000022e0 20 8c 20 8d 64 40 4d 0d 0d 98 0b e7 20 43 3c 34 | . .d@M..... C<4|
000022f0 20 8c 0d 0d a2 20 20 20 20 20 20 3a 20 f2 66 6f | .... : .fo|
00002300 6e 74 28 36 34 2c 59 2c 31 2c c4 43 2c 22 5f 22 |nt(64,Y,1,.C,"_"|
00002310 29 29 0d 0d ac 1d cc 20 3a 20 f2 66 6f 6e 74 28 |))..... : .font(|
00002320 36 34 2c 59 2c 42 2c c4 43 2c 22 5f 22 29 29 0d |64,Y,B,.C,"_")).|
00002330 0d b6 05 cd 0d 0d c0 0d 59 2d 3d 34 30 20 3a 20 |........Y-=40 : |
00002340 ed 0d 0d ca 29 dc 20 38 2c 22 53 22 2c 38 2c 22 |....). 8,"S",8,"|
00002350 4c 22 2c 38 2c 22 48 22 2c 32 2c 22 50 22 2c 32 |L",8,"H",2,"P",2|
00002360 2c 22 54 22 2c 32 2c 22 44 22 0d 0d d4 29 dc 20 |,"T",2,"D"...). |
00002370 33 2c 22 57 22 2c 33 2c 22 44 22 2c 35 2c 22 43 |3,"W",3,"D",5,"C|
00002380 22 2c 35 2c 22 4e 22 2c 36 2c 22 43 22 2c 36 2c |",5,"N",6,"C",6,|
00002390 22 4c 22 0d 0d de 05 e1 0d 0d e8 05 3a 0d 0d f2 |"L".........:...|
000023a0 15 dd 20 f2 6b 6c 69 6e 67 6f 6e 57 69 70 65 28 |.. .klingonWipe(|
000023b0 59 29 0d 0d fc 34 f2 70 72 69 6e 74 65 72 28 32 |Y)...4.printer(2|
000023c0 2c 22 52 22 2c 22 54 41 52 47 45 54 20 4b 4c 49 |,"R","TARGET KLI|
000023d0 4e 47 4f 4e 20 44 45 53 54 52 4f 59 45 44 20 2e |NGON DESTROYED .|
000023e0 2e 2e 2e 2e 22 29 0d 0e 06 3e 4b 33 3d 4b 33 2d |....")...>K3=K3-|
000023f0 31 20 3a 20 4b 39 3d 4b 39 2d 31 20 3a 20 5a 31 |1 : K9=K9-1 : Z1|
00002400 3d 4b 28 49 25 2c 31 29 20 3a 20 5a 32 3d 4b 28 |=K(I%,1) : Z2=K(|
00002410 49 25 2c 32 29 20 3a 20 51 24 28 5a 31 2c 5a 32 |I%,2) : Q$(Z1,Z2|
00002420 29 3d 22 22 0d 0e 10 30 47 28 51 31 2c 51 32 29 |)=""...0G(Q1,Q2)|
00002430 3d 4b 33 2a 31 30 30 2b 42 33 2a 31 30 2b 53 33 |=K3*100+B3*10+S3|
00002440 20 3a 20 5a 28 51 31 2c 51 32 29 3d 47 28 51 31 | : Z(Q1,Q2)=G(Q1|
00002450 2c 51 32 29 0d 0e 1a 05 e1 0d 0e 24 05 3a 0d 0e |,Q2).......$.:..|
00002460 2e 0d dd 20 f2 61 74 74 61 63 6b 0d 0e 38 0e e7 |... .attack..8..|
00002470 20 4b 33 3d 30 20 8c 20 e1 0d 0e 42 22 6b 24 3d | K3=0 . ...B"k$=|
00002480 22 53 20 41 52 45 22 20 3a 20 e7 20 4b 33 3d 31 |"S ARE" : . K3=1|
00002490 20 8c 20 6b 24 3d 22 20 49 53 22 0d 0e 4c 0c e7 | . k$=" IS"..L..|
000024a0 20 44 25 3d 31 20 8c 0d 0e 56 41 20 20 20 20 20 | D%=1 ...VA |
000024b0 3a 20 f2 70 72 69 6e 74 65 72 28 31 2c 22 52 22 |: .printer(1,"R"|
000024c0 2c c3 28 4b 33 29 2b 22 20 4b 4c 49 4e 47 4f 4e |,.(K3)+" KLINGON|
000024d0 22 2b 6b 24 2b 22 20 41 54 54 41 43 4b 49 4e 47 |"+k$+" ATTACKING|
000024e0 20 2e 2e 2e 2e 2e 22 29 0d 0e 60 47 20 20 20 20 | .....")..`G |
000024f0 20 3a 20 f2 70 72 69 6e 74 65 72 28 32 2c 22 59 | : .printer(2,"Y|
00002500 22 2c 22 53 54 41 52 42 41 53 45 20 53 48 49 45 |","STARBASE SHIE|
00002510 4c 44 53 20 50 52 4f 54 45 43 54 20 59 4f 55 52 |LDS PROTECT YOUR|
00002520 20 56 45 53 53 45 4c 20 2e 2e 2e 2e 2e 22 29 0d | VESSEL .....").|
00002530 0e 6a 0c 20 20 20 20 20 3a 20 e1 0d 0e 74 05 cd |.j. : ...t..|
00002540 0d 0e 7e 3a f2 70 72 69 6e 74 65 72 28 31 2c 22 |..~:.printer(1,"|
00002550 52 22 2c c3 28 4b 33 29 2b 22 20 4b 4c 49 4e 47 |R",.(K3)+" KLING|
00002560 4f 4e 22 2b 6b 24 2b 22 20 41 54 54 41 43 4b 49 |ON"+k$+" ATTACKI|
00002570 4e 47 20 2e 2e 2e 2e 2e 22 29 0d 0e 88 26 e3 20 |NG .....")...&. |
00002580 49 25 3d 31 20 b8 20 33 20 3a 20 e7 20 4b 28 49 |I%=1 . 3 : . K(I|
00002590 25 2c 33 29 3c 3d 30 20 8c 20 e5 20 8d 54 68 4f |%,3)<=0 . . .ThO|
000025a0 0d 0e 92 1b 48 3d a8 28 4b 28 49 25 2c 33 29 2f |....H=.(K(I%,3)/|
000025b0 a4 44 28 30 29 2a b3 28 38 29 29 0d 0e 9c 54 f2 |.D(0)*.(8))...T.|
000025c0 70 72 69 6e 74 65 72 28 32 2c 22 59 22 2c c3 28 |printer(2,"Y",.(|
000025d0 48 29 2b 22 20 55 4e 49 54 20 48 49 54 20 46 52 |H)+" UNIT HIT FR|
000025e0 4f 4d 20 53 45 43 54 4f 52 20 22 2b c3 28 4b 28 |OM SECTOR "+.(K(|
000025f0 49 25 2c 32 29 29 2b 22 2e 22 2b c3 28 4b 28 49 |I%,2))+"."+.(K(I|
00002600 25 2c 31 29 29 2b 22 20 2e 2e 2e 2e 2e 22 29 0d |%,1))+" .....").|
00002610 0e a6 15 53 53 3d 53 2d 48 20 3a 20 e7 20 53 53 |...SS=S-H : . SS|
00002620 3c 30 20 8c 0d 0e b0 1d 20 20 20 20 20 3a 20 45 |<0 ..... : E|
00002630 2b 3d 53 53 20 3a 20 48 2d 3d 53 20 3a 20 53 3d |+=SS : H-=S : S=|
00002640 30 0d 0e ba 16 20 20 20 20 20 3a 20 e7 20 48 3c |0.... : . H<|
00002650 30 20 8c 20 48 3d 30 0d 0e c4 12 cc 20 3a 20 53 |0 . H=0..... : S|
00002660 3d 53 53 20 3a 20 48 3d 30 0d 0e ce 05 cd 0d 0e |=SS : H=0.......|
00002670 d8 1a 57 3d a6 28 34 30 29 20 3a 20 f2 75 70 64 |..W=.(40) : .upd|
00002680 61 74 65 42 61 6e 6b 73 0d 0e e2 0c e7 20 53 3c |ateBanks..... S<|
00002690 3d 30 20 8c 0d 0e ec 3d 20 20 20 20 20 3a 20 f2 |=0 ....= : .|
000026a0 70 72 69 6e 74 65 72 28 32 2c 22 52 22 2c 22 44 |printer(2,"R","D|
000026b0 45 46 4c 45 43 54 4f 52 20 53 48 49 45 4c 44 53 |EFLECTOR SHIELDS|
000026c0 20 41 52 45 20 44 4f 57 4e 20 2e 2e 2e 2e 2e 22 | ARE DOWN ....."|
000026d0 29 0d 0e f6 28 20 20 20 20 20 3a 20 e7 20 45 3c |)...( : . E<|
000026e0 30 20 8c 20 f2 73 70 61 63 65 20 3a 20 f2 64 65 |0 . .space : .de|
000026f0 61 64 28 33 29 20 3a 20 e1 0d 0f 00 40 cc 20 3a |ad(3) : ....@. :|
00002700 20 f2 70 72 69 6e 74 65 72 28 32 2c 22 47 22 2c | .printer(2,"G",|
00002710 22 53 48 49 45 4c 44 53 20 53 54 45 41 44 59 20 |"SHIELDS STEADY |
00002720 41 54 20 22 2b c3 28 53 29 2b 22 20 55 4e 49 54 |AT "+.(S)+" UNIT|
00002730 53 20 2e 2e 2e 2e 2e 22 29 0d 0f 0a 05 cd 0d 0f |S .....").......|
00002740 14 0b 57 3d a6 28 34 30 29 0d 0f 1e 13 f2 64 61 |..W=.(40).....da|
00002750 6d 61 67 65 20 3a 20 f2 6d 6f 76 65 0d 0f 28 23 |mage : .move..(#|
00002760 ed 20 3a 20 f2 63 6c 65 61 72 28 31 29 20 3a 20 |. : .clear(1) : |
00002770 f2 73 68 6f 72 74 52 61 6e 67 65 53 63 61 6e 0d |.shortRangeScan.|
00002780 0f 32 05 e1 0d 0f 3c 05 3a 0d 0f 46 0d dd 20 f2 |.2....<.:..F.. .|
00002790 64 61 6d 61 67 65 0d 0f 50 15 e7 20 48 3c 31 30 |damage..P.. H<10|
000027a0 30 20 80 20 53 3e 30 20 8c 20 e1 0d 0f 5a 0f 52 |0 . S>0 . ...Z.R|
000027b0 31 3d a8 28 b3 28 31 32 29 29 0d 0f 64 0b e7 20 |1=.(.(12))..d.. |
000027c0 53 3e 30 20 8c 0d 0f 6e 20 20 20 20 20 20 3a 20 |S>0 ...n : |
000027d0 44 28 52 31 29 3d 44 28 52 31 29 2d a8 28 b3 28 |D(R1)=D(R1)-.(.(|
000027e0 32 29 2b 31 29 0d 0f 78 11 cc 20 3a 20 e7 20 48 |2)+1)..x.. : . H|
000027f0 3c 31 30 30 20 8c 0d 0f 82 20 20 20 20 20 20 3a |<100 .... :|
00002800 20 44 28 52 31 29 3d 44 28 52 31 29 2d a8 28 b3 | D(R1)=D(R1)-.(.|
00002810 28 32 29 2b 32 29 0d 0f 8c 1d cc 20 3a 20 44 28 |(2)+2)..... : D(|
00002820 52 31 29 3d 44 28 52 31 29 2d a8 28 b3 28 35 29 |R1)=D(R1)-.(.(5)|
00002830 2b 32 29 0d 0f 96 05 cd 0d 0f a0 05 cd 0d 0f aa |+2).............|
00002840 34 f2 70 72 69 6e 74 65 72 28 32 2c 22 59 22 2c |4.printer(2,"Y",|
00002850 44 24 28 52 31 29 2b 22 20 53 55 53 54 41 49 4e |D$(R1)+" SUSTAIN|
00002860 45 44 20 44 41 4d 41 47 45 20 2e 2e 2e 2e 2e 22 |ED DAMAGE ....."|
00002870 29 0d 0f b4 0e e7 20 48 3e 31 30 30 30 20 8c 0d |)..... H>1000 ..|
00002880 0f be 16 20 20 20 20 20 3a 20 52 31 3d a8 28 b3 |... : R1=.(.|
00002890 28 31 32 29 29 0d 0f c8 12 20 20 20 20 20 3a 20 |(12)).... : |
000028a0 e7 20 53 3e 30 20 8c 0d 0f d2 20 20 20 20 20 20 |. S>0 .... |
000028b0 3a 20 44 28 52 31 29 3d 44 28 52 31 29 2d a8 28 |: D(R1)=D(R1)-.(|
000028c0 b3 28 32 29 2b 32 29 0d 0f dc 1d cc 20 3a 20 44 |.(2)+2)..... : D|
000028d0 28 52 31 29 3d 44 28 52 31 29 2d a8 28 b3 28 35 |(R1)=D(R1)-.(.(5|
000028e0 29 2b 32 29 0d 0f e6 05 cd 0d 0f f0 3e 57 3d a6 |)+2)........>W=.|
000028f0 28 34 30 29 20 3a 20 f2 70 72 69 6e 74 65 72 28 |(40) : .printer(|
00002900 32 2c 22 59 22 2c 44 24 28 52 31 29 2b 22 20 53 |2,"Y",D$(R1)+" S|
00002910 55 53 54 41 49 4e 45 44 20 44 41 4d 41 47 45 20 |USTAINED DAMAGE |
00002920 2e 2e 2e 2e 2e 22 29 0d 0f fa 05 cd 0d 10 04 11 |.....").........|
00002930 f2 64 61 6d 61 67 65 52 65 70 6f 72 74 0d 10 0e |.damageReport...|
00002940 05 e1 0d 10 18 05 3a 0d 10 22 0e dd 20 f2 64 65 |......:..".. .de|
00002950 61 64 28 61 29 0d 10 2c 0d f2 63 6c 65 61 72 28 |ad(a)..,..clear(|
00002960 33 29 0d 10 36 32 f2 70 72 69 6e 74 65 72 28 31 |3)..62.printer(1|
00002970 2c 22 59 22 2c 22 59 4f 55 52 20 4d 49 53 53 49 |,"Y","YOUR MISSI|
00002980 4f 4e 20 48 41 53 20 45 4e 44 45 44 20 2e 2e 2e |ON HAS ENDED ...|
00002990 2e 2e 22 29 0d 10 40 2d f2 74 65 78 74 28 33 30 |..")..@-.text(30|
000029a0 38 2c 37 30 38 2c 22 42 22 2c 22 53 54 41 52 54 |8,708,"B","START|
000029b0 52 45 4b 3a 20 54 48 45 20 47 41 4d 45 20 2d 22 |REK: THE GAME -"|
000029c0 29 0d 10 4a 0a c8 8e 20 61 20 ca 0d 10 54 35 c9 |)..J... a ...T5.|
000029d0 20 31 20 3a 20 f2 74 65 78 74 28 33 30 38 2c 36 | 1 : .text(308,6|
000029e0 35 32 2c 22 57 22 2c 22 54 48 45 20 45 4e 54 45 |52,"W","THE ENTE|
000029f0 52 50 52 49 53 45 20 49 53 20 44 45 41 44 22 29 |RPRISE IS DEAD")|
00002a00 0d 10 5e 35 20 20 20 20 20 20 20 3a 20 f2 74 65 |..^5 : .te|
00002a10 78 74 28 33 30 38 2c 36 30 34 2c 22 57 22 2c 22 |xt(308,604,"W","|
00002a20 49 4e 20 53 50 41 43 45 20 2d 20 59 4f 55 20 57 |IN SPACE - YOU W|
00002a30 49 4c 4c 22 29 0d 10 68 3a 20 20 20 20 20 20 20 |ILL")..h: |
00002a40 3a 20 f2 74 65 78 74 28 33 30 38 2c 35 35 36 2c |: .text(308,556,|
00002a50 22 57 22 2c 22 53 55 46 46 45 52 20 41 20 53 4c |"W","SUFFER A SL|
00002a60 4f 57 20 43 4f 4c 44 20 44 45 41 54 48 22 29 0d |OW COLD DEATH").|
00002a70 10 72 38 20 20 20 20 20 20 20 3a 20 f2 74 65 78 |.r8 : .tex|
00002a80 74 28 33 30 38 2c 35 30 38 2c 22 57 22 2c 22 41 |t(308,508,"W","A|
00002a90 53 20 4c 49 46 45 20 53 55 50 50 4f 52 54 20 46 |S LIFE SUPPORT F|
00002aa0 41 49 4c 53 21 22 29 0d 10 7c 38 c9 20 32 20 3a |AILS!")..|8. 2 :|
00002ab0 20 f2 74 65 78 74 28 33 30 38 2c 36 35 32 2c 22 | .text(308,652,"|
00002ac0 57 22 2c 22 49 54 20 49 53 20 4e 4f 57 20 53 44 |W","IT IS NOW SD|
00002ad0 20 22 2b c3 28 54 29 2b 22 20 41 4e 44 22 29 0d | "+.(T)+" AND").|
00002ae0 10 86 38 20 20 20 20 20 20 20 3a 20 f2 74 65 78 |..8 : .tex|
00002af0 74 28 33 30 38 2c 36 30 34 2c 22 57 22 2c 22 59 |t(308,604,"W","Y|
00002b00 4f 55 52 20 54 49 4d 45 20 48 41 53 20 52 55 4e |OUR TIME HAS RUN|
00002b10 20 4f 55 54 21 22 29 0d 10 90 36 c9 20 33 20 3a | OUT!")...6. 3 :|
00002b20 20 f2 74 65 78 74 28 33 30 38 2c 36 35 32 2c 22 | .text(308,652,"|
00002b30 59 22 2c 22 54 48 45 20 45 4e 54 45 52 50 52 49 |Y","THE ENTERPRI|
00002b40 53 45 20 48 41 53 20 42 45 45 4e 22 29 0d 10 9a |SE HAS BEEN")...|
00002b50 31 20 20 20 20 20 20 20 3a 20 f2 74 65 78 74 28 |1 : .text(|
00002b60 33 30 38 2c 36 30 34 2c 22 59 22 2c 22 44 45 53 |308,604,"Y","DES|
00002b70 54 52 4f 59 45 44 20 2e 2e 2e 2e 2e 22 29 0d 10 |TROYED .....")..|
00002b80 a4 37 c9 20 34 20 3a 20 f2 74 65 78 74 28 33 30 |.7. 4 : .text(30|
00002b90 38 2c 36 35 32 2c 22 42 22 2c 22 54 48 45 20 4c |8,652,"B","THE L|
00002ba0 41 53 54 20 4b 4c 49 4e 47 4f 4e 20 53 48 49 50 |AST KLINGON SHIP|
00002bb0 20 49 53 22 29 0d 10 ae 31 20 20 20 20 20 20 20 | IS")...1 |
00002bc0 3a 20 f2 74 65 78 74 28 33 30 38 2c 36 30 34 2c |: .text(308,604,|
00002bd0 22 42 22 2c 22 44 45 53 54 52 4f 59 45 44 20 2e |"B","DESTROYED .|
00002be0 2e 2e 2e 2e 22 29 0d 10 b8 34 20 20 20 20 20 20 |....")...4 |
00002bf0 20 3a 20 f2 74 65 78 74 28 33 30 38 2c 35 35 36 | : .text(308,556|
00002c00 2c 22 57 22 2c 22 57 45 4c 4c 20 44 4f 4e 45 20 |,"W","WELL DONE |
00002c10 43 41 50 54 41 49 4e 21 22 29 0d 10 c2 2a 20 20 |CAPTAIN!")...* |
00002c20 20 20 20 20 20 3a 20 44 65 61 64 25 3d b9 20 3a | : Dead%=. :|
00002c30 20 f2 73 70 61 63 65 20 3a 20 f2 61 67 61 69 6e | .space : .again|
00002c40 20 3a 20 e1 0d 10 cc 36 c9 20 35 20 3a 20 f2 74 | : ....6. 5 : .t|
00002c50 65 78 74 28 33 30 38 2c 36 35 32 2c 22 59 22 2c |ext(308,652,"Y",|
00002c60 22 59 4f 55 52 20 54 4f 52 50 45 44 4f 20 48 41 |"YOUR TORPEDO HA|
00002c70 53 20 43 41 55 53 45 44 22 29 0d 10 d6 39 20 20 |S CAUSED")...9 |
00002c80 20 20 20 20 20 3a 20 f2 74 65 78 74 28 33 30 38 | : .text(308|
00002c90 2c 36 30 34 2c 22 59 22 2c 22 41 20 53 54 41 52 |,604,"Y","A STAR|
00002ca0 20 54 4f 20 47 4f 20 4e 4f 56 41 20 2e 2e 2e 2e | TO GO NOVA ....|
00002cb0 2e 22 29 0d 10 e0 39 20 20 20 20 20 20 20 3a 20 |.")...9 : |
00002cc0 f2 74 65 78 74 28 33 30 38 2c 35 35 36 2c 22 59 |.text(308,556,"Y|
00002cd0 22 2c 22 54 48 45 20 45 4e 54 45 52 50 52 49 53 |","THE ENTERPRIS|
00002ce0 45 20 48 41 53 20 42 45 45 4e 22 29 0d 10 ea 31 |E HAS BEEN")...1|
00002cf0 20 20 20 20 20 20 20 3a 20 f2 74 65 78 74 28 33 | : .text(3|
00002d00 30 38 2c 35 30 38 2c 22 59 22 2c 22 44 45 53 54 |08,508,"Y","DEST|
00002d10 52 4f 59 45 44 20 2e 2e 2e 2e 2e 22 29 0d 10 f4 |ROYED .....")...|
00002d20 05 cb 0d 10 fe 35 f2 74 65 78 74 28 33 30 38 2c |.....5.text(308,|
00002d30 34 36 30 2c 22 52 22 2c 22 54 48 45 52 45 20 57 |460,"R","THERE W|
00002d40 45 52 45 20 22 2b c3 28 4b 39 29 2b 22 20 4b 4c |ERE "+.(K9)+" KL|
00002d50 49 4e 47 4f 4e 22 29 0d 11 08 2e f2 74 65 78 74 |INGON").....text|
00002d60 28 33 30 38 2c 34 31 32 2c 22 52 22 2c 22 53 48 |(308,412,"R","SH|
00002d70 49 50 53 20 4c 45 46 54 20 54 4f 20 43 4f 4e 51 |IPS LEFT TO CONQ|
00002d80 55 45 52 22 29 0d 11 12 29 f2 74 65 78 74 28 33 |UER")...).text(3|
00002d90 30 38 2c 33 36 34 2c 22 52 22 2c 22 54 48 45 20 |08,364,"R","THE |
00002da0 46 45 44 45 52 41 54 49 4f 4e 21 21 22 29 0d 11 |FEDERATION!!")..|
00002db0 1c 1d 44 65 61 64 25 3d b9 20 3a 20 f2 73 70 61 |..Dead%=. : .spa|
00002dc0 63 65 20 3a 20 f2 61 67 61 69 6e 0d 11 26 05 e1 |ce : .again..&..|
00002dd0 0d 11 30 05 3a 0d 11 3a 0c dd 20 f2 61 67 61 69 |..0.:..:.. .agai|
00002de0 6e 0d 11 44 19 f2 63 6c 65 61 72 28 31 29 20 3a |n..D..clear(1) :|
00002df0 20 f2 63 6c 65 61 72 28 33 29 0d 11 4e 2d f2 74 | .clear(3)..N-.t|
00002e00 65 78 74 28 33 30 38 2c 37 30 38 2c 22 42 22 2c |ext(308,708,"B",|
00002e10 22 53 54 41 52 54 52 45 4b 3a 20 54 48 45 20 47 |"STARTREK: THE G|
00002e20 41 4d 45 20 2d 22 29 0d 11 58 2f f2 74 65 78 74 |AME -")..X/.text|
00002e30 28 33 30 38 2c 36 35 32 2c 22 57 22 2c 22 57 4f |(308,652,"W","WO|
00002e40 55 4c 44 20 59 4f 55 20 4c 49 4b 45 20 41 4e 4f |ULD YOU LIKE ANO|
00002e50 54 48 45 52 22 29 0d 11 62 3a 59 24 3d a4 69 6e |THER")..b:Y$=.in|
00002e60 70 75 74 56 61 72 69 6f 75 73 28 33 30 38 2c 36 |putVarious(308,6|
00002e70 30 34 2c 37 32 34 2c 36 30 34 2c 22 57 22 2c 22 |04,724,604,"W","|
00002e80 4d 49 53 53 49 4f 4e 20 28 59 2d 4e 29 3a 22 29 |MISSION (Y-N):")|
00002e90 0d 11 6c 19 e7 20 59 24 3d 22 59 22 20 84 20 59 |..l.. Y$="Y" . Y|
00002ea0 24 3d 22 79 22 20 8c 20 e1 0d 11 76 1e ff 20 22 |$="y" . ...v.. "|
00002eb0 3c 53 74 61 72 54 72 65 6b 24 44 69 72 3e 2e 41 |<StarTrek$Dir>.A|
00002ec0 72 63 46 6f 6e 74 22 0d 11 80 05 e1 0d 11 8a 05 |rcFont".........|
00002ed0 3a 0d 11 94 10 dd 20 f2 62 61 73 65 43 68 65 63 |:..... .baseChec|
00002ee0 6b 0d 11 9e 10 41 3d a4 62 61 73 65 43 68 65 63 |k....A=.baseChec|
00002ef0 6b 0d 11 a8 12 e7 20 44 25 3d 30 20 80 20 41 3d |k..... D%=0 . A=|
00002f00 31 20 8c 0d 11 b2 2d 20 20 20 20 20 3a 20 44 25 |1 ....- : D%|
00002f10 3d 31 20 3a 20 53 3d 30 20 3a 20 45 3d 45 30 20 |=1 : S=0 : E=E0 |
00002f20 3a 20 50 3d 50 30 20 3a 20 f2 64 6f 63 6b 65 64 |: P=P0 : .docked|
00002f30 0d 11 bc 05 cd 0d 11 c6 17 e7 20 44 25 3d 31 20 |.......... D%=1 |
00002f40 80 20 41 3d 30 20 8c 20 44 25 3d 30 0d 11 d0 05 |. A=0 . D%=0....|
00002f50 e1 0d 11 da 05 3a 0d 11 e4 10 dd 20 a4 62 61 73 |.....:..... .bas|
00002f60 65 43 68 65 63 6b 0d 11 ee 27 e3 20 49 25 3d 53 |eCheck...'. I%=S|
00002f70 31 2d 31 20 b8 20 53 31 2b 31 20 3a 20 e3 20 4a |1-1 . S1+1 : . J|
00002f80 25 3d 53 32 2d 31 20 b8 20 53 32 2b 31 0d 11 f8 |%=S2-1 . S2+1...|
00002f90 21 e7 20 49 25 3e 30 20 80 20 49 25 3c 39 20 80 |!. I%>0 . I%<9 .|
00002fa0 20 4a 25 3e 30 20 80 20 4a 25 3c 39 20 8c 0d 12 | J%>0 . J%<9 ...|
00002fb0 02 31 20 20 20 20 20 3a 20 41 24 3d 22 73 74 61 |.1 : A$="sta|
00002fc0 72 62 61 73 65 22 20 3a 20 5a 31 3d 49 25 20 3a |rbase" : Z1=I% :|
00002fd0 20 5a 32 3d 4a 25 20 3a 20 f2 63 68 65 63 6b 0d | Z2=J% : .check.|
00002fe0 12 0c 16 20 20 20 20 20 3a 20 e7 20 5a 33 3e 30 |... : . Z3>0|
00002ff0 20 8c 20 3d 31 0d 12 16 05 cd 0d 12 20 07 ed 20 | . =1....... .. |
00003000 2c 0d 12 2a 06 3d 30 0d 12 34 05 3a 0d 12 3e 0d |,..*.=0..4.:..>.|
00003010 dd 20 f2 64 6f 63 6b 65 64 0d 12 48 3a f2 63 6c |. .docked..H:.cl|
00003020 65 61 72 28 31 29 20 3a 20 f2 70 72 69 6e 74 65 |ear(1) : .printe|
00003030 72 28 31 2c 22 42 22 2c 22 44 4f 43 4b 45 44 20 |r(1,"B","DOCKED |
00003040 41 54 20 53 54 41 52 42 41 53 45 20 2e 2e 2e 2e |AT STARBASE ....|
00003050 2e 22 29 0d 12 52 3e f2 63 6c 65 61 72 28 33 29 |.")..R>.clear(3)|
00003060 20 3a 20 f2 74 65 78 74 28 33 30 38 2c 37 30 38 | : .text(308,708|
00003070 2c 22 57 22 2c 22 57 45 4c 43 4f 4d 45 20 54 4f |,"W","WELCOME TO|
00003080 20 53 54 41 52 42 41 53 45 20 2e 2e 2e 2e 2e 22 | STARBASE ....."|
00003090 29 0d 12 5c 10 f2 65 6e 65 72 67 79 42 61 6e 6b |)..\..energyBank|
000030a0 73 0d 12 66 34 f2 66 6f 6e 74 28 33 30 38 2c 36 |s..f4.font(308,6|
000030b0 39 32 2c 35 2c 22 52 45 2d 41 52 4d 49 4e 47 20 |92,5,"RE-ARMING |
000030c0 41 4e 44 20 52 45 2d 46 55 45 4c 49 4e 47 20 48 |AND RE-FUELING H|
000030d0 41 56 45 22 29 0d 12 70 38 f2 66 6f 6e 74 28 33 |AVE")..p8.font(3|
000030e0 30 38 2c 36 35 32 2c 35 2c 22 42 45 45 4e 20 43 |08,652,5,"BEEN C|
000030f0 41 52 52 49 45 44 20 4f 55 54 20 41 53 20 4e 45 |ARRIED OUT AS NE|
00003100 43 45 53 53 41 52 59 20 2e 2e 2e 22 29 0d 12 7a |CESSARY ...")..z|
00003110 38 f2 66 6f 6e 74 28 33 30 38 2c 36 31 32 2c 37 |8.font(308,612,7|
00003120 2c 22 44 49 41 47 4e 4f 53 54 49 43 20 43 48 45 |,"DIAGNOSTIC CHE|
00003130 43 4b 53 20 41 52 45 20 50 52 4f 43 45 45 44 49 |CKS ARE PROCEEDI|
00003140 4e 47 3a 22 29 0d 12 84 25 f2 64 61 6d 61 67 65 |NG:")...%.damage|
00003150 52 65 70 6f 72 74 20 3a 20 57 3d a6 28 31 30 30 |Report : W=.(100|
00003160 29 20 3a 20 f7 20 8d 64 72 52 0d 12 8e 2d 4e 25 |) : . .drR...-N%|
00003170 3d 30 20 3a 20 4a 25 3d 30 20 3a 20 58 3d 33 30 |=0 : J%=0 : X=30|
00003180 38 20 3a 20 59 3d 35 37 32 20 3a 20 e3 20 49 25 |8 : Y=572 : . I%|
00003190 3d 31 20 b8 20 31 32 0d 12 98 30 e7 20 49 25 3d |=1 . 12...0. I%=|
000031a0 37 20 8c 20 e6 20 30 20 3a 20 c8 93 20 c8 90 20 |7 . . 0 : .. .. |
000031b0 33 30 38 2c 33 36 30 2c 37 30 30 2c 32 32 30 20 |308,360,700,220 |
000031c0 3a 20 59 3d 35 37 32 0d 12 a2 3f f3 20 63 6f 6c |: Y=572...?. col|
000031d0 20 3a 20 f2 66 6f 6e 74 28 58 2c 59 2c 63 6f 6c | : .font(X,Y,col|
000031e0 2c 44 24 28 49 25 29 29 20 3a 20 f2 66 6f 6e 74 |,D$(I%)) : .font|
000031f0 28 58 2b 35 30 30 2c 59 2c 63 6f 6c 2c c3 28 44 |(X+500,Y,col,.(D|
00003200 28 49 25 29 29 29 0d 12 ac 27 e7 20 44 28 49 25 |(I%)))...'. D(I%|
00003210 29 3c 34 20 8c 20 4e 25 3d 4e 25 2b 44 28 49 25 |)<4 . N%=N%+D(I%|
00003220 29 2d 34 20 3a 20 4a 25 3d 4a 25 2b 31 0d 12 b6 |)-4 : J%=J%+1...|
00003230 18 59 2d 3d 33 36 20 3a 20 57 3d a6 28 31 30 30 |.Y-=36 : W=.(100|
00003240 29 20 3a 20 ed 0d 12 c0 0c e7 20 4a 25 3e 30 20 |) : ...... J%>0 |
00003250 8c 0d 12 ca 2a 20 20 20 20 20 3a 20 54 6c 3d 94 |....* : Tl=.|
00003260 28 28 4e 25 2f 4a 25 29 2f 34 29 20 3a 20 e7 20 |((N%/J%)/4) : . |
00003270 54 6c 3e 35 20 8c 20 54 6c 3d 35 0d 12 d4 09 cc |Tl>5 . Tl=5.....|
00003280 20 3a 20 e1 0d 12 de 05 cd 0d 12 e8 0d f2 63 6c | : ...........cl|
00003290 65 61 72 28 33 29 0d 12 f2 1d dc 20 38 2c 38 2c |ear(3)..... 8,8,|
000032a0 38 2c 32 2c 32 2c 32 2c 33 2c 33 2c 35 2c 35 2c |8,2,2,2,3,3,5,5,|
000032b0 36 2c 36 0d 12 fc 31 f2 74 65 78 74 28 33 30 38 |6,6...1.text(308|
000032c0 2c 37 30 38 2c 22 42 22 2c 22 53 54 41 52 42 41 |,708,"B","STARBA|
000032d0 53 45 20 43 4f 4e 54 52 4f 4c 20 52 45 50 4f 52 |SE CONTROL REPOR|
000032e0 54 3a 22 29 0d 13 06 2d f2 74 65 78 74 28 33 30 |T:")...-.text(30|
000032f0 38 2c 36 35 36 2c 22 59 22 2c 22 45 53 54 49 4d |8,656,"Y","ESTIM|
00003300 41 54 45 44 20 54 49 4d 45 20 46 4f 52 20 41 22 |ATED TIME FOR A"|
00003310 29 0d 13 10 2f f2 74 65 78 74 28 33 30 38 2c 36 |).../.text(308,6|
00003320 30 34 2c 22 59 22 2c 22 43 4f 4d 50 4c 45 54 45 |04,"Y","COMPLETE|
00003330 20 53 59 53 54 45 4d 53 20 52 45 46 49 54 22 29 | SYSTEMS REFIT")|
00003340 0d 13 1a 33 f2 74 65 78 74 28 33 30 38 2c 35 35 |...3.text(308,55|
00003350 32 2c 22 59 22 2c 22 3a 20 22 2b c0 c3 28 54 6c |2,"Y",": "+..(Tl|
00003360 29 2c 34 29 2b 22 20 53 54 41 52 44 41 54 45 53 |),4)+" STARDATES|
00003370 2e 22 29 0d 13 24 2f f2 74 65 78 74 28 33 30 38 |.")..$/.text(308|
00003380 2c 35 30 30 2c 22 42 22 2c 22 50 52 4f 43 45 45 |,500,"B","PROCEE|
00003390 44 20 57 49 54 48 20 52 45 46 49 54 54 49 4e 47 |D WITH REFITTING|
000033a0 22 29 0d 13 2e 32 41 24 3d a4 69 6e 70 75 74 56 |")...2A$=.inputV|
000033b0 61 72 69 6f 75 73 28 33 30 38 2c 34 34 38 2c 35 |arious(308,448,5|
000033c0 35 36 2c 34 34 38 2c 22 42 22 2c 22 28 59 2d 4e |56,448,"B","(Y-N|
000033d0 29 3a 22 29 0d 13 38 12 e7 20 c0 41 24 2c 31 29 |):")..8.. .A$,1)|
000033e0 3d 22 59 22 20 8c 0d 13 42 18 20 20 20 20 20 3a |="Y" ...B. :|
000033f0 20 4e 25 3d 34 20 3a 20 54 3d 54 2b 54 6c 0d 13 | N%=4 : T=T+Tl..|
00003400 4c 09 cc 20 3a 20 e1 0d 13 56 05 cd 0d 13 60 36 |L.. : ...V....`6|
00003410 f2 63 6c 65 61 72 28 33 29 20 3a 20 f2 74 65 78 |.clear(3) : .tex|
00003420 74 28 33 30 38 2c 37 30 38 2c 22 42 22 2c 22 53 |t(308,708,"B","S|
00003430 54 41 52 42 41 53 45 20 43 4f 4e 54 52 4f 4c 3a |TARBASE CONTROL:|
00003440 22 29 0d 13 6a 2d f2 74 65 78 74 28 33 30 38 2c |")..j-.text(308,|
00003450 36 35 36 2c 22 42 22 2c 22 45 4e 47 49 4e 45 45 |656,"B","ENGINEE|
00003460 52 49 4e 47 20 52 45 50 4f 52 54 20 2d 22 29 0d |RING REPORT -").|
00003470 13 74 0f e3 20 49 25 3d 31 20 b8 20 31 32 0d 13 |.t.. I%=1 . 12..|
00003480 7e 0e c8 95 20 44 28 49 25 29 3c 34 0d 13 88 0b |~... D(I%)<4....|
00003490 44 28 49 25 29 3d 34 0d 13 92 05 ce 0d 13 9c 05 |D(I%)=4.........|
000034a0 ed 0d 13 a6 11 f2 64 61 6d 61 67 65 52 65 70 6f |......damageRepo|
000034b0 72 74 0d 13 b0 2a 4d 59 53 25 3d a3 20 3a 20 44 |rt...*MYS%=. : D|
000034c0 49 4c 25 3d a3 20 3a 20 4e 45 55 25 3d a3 20 3a |IL%=. : NEU%=. :|
000034d0 20 f2 75 70 64 61 74 65 54 69 6d 65 0d 13 ba 2e | .updateTime....|
000034e0 f2 74 65 78 74 28 33 30 38 2c 36 30 34 2c 22 57 |.text(308,604,"W|
000034f0 22 2c 22 41 4c 4c 20 53 59 53 54 45 4d 53 20 4e |","ALL SYSTEMS N|
00003500 4f 57 20 46 55 4c 4c 59 22 29 0d 13 c4 34 f2 74 |OW FULLY")...4.t|
00003510 65 78 74 28 33 30 38 2c 35 35 32 2c 22 57 22 2c |ext(308,552,"W",|
00003520 22 46 55 4e 43 54 49 4f 4e 41 4c 20 2e 2e 2e 2e |"FUNCTIONAL ....|
00003530 2e 22 29 20 3a 20 57 3d a6 28 31 30 30 29 0d 13 |.") : W=.(100)..|
00003540 ce 05 e1 0d 13 d8 05 3a 0d 13 e2 13 dd 20 f2 73 |.......:..... .s|
00003550 74 61 74 75 73 52 65 70 6f 72 74 0d 13 ec 0d f2 |tatusReport.....|
00003560 63 6c 65 61 72 28 32 29 0d 13 f6 19 58 3d 33 32 |clear(2)....X=32|
00003570 20 3a 20 59 3d 37 34 30 20 3a 20 f7 20 8d 74 7e | : Y=740 : . .t~|
00003580 54 0d 14 00 14 e3 20 61 3d 30 20 b8 20 36 20 3a |T..... a=0 . 6 :|
00003590 20 f3 20 61 24 0d 14 0a 0a c8 8e 20 61 20 ca 0d | . a$...... a ..|
000035a0 14 14 19 c9 20 30 20 3a 20 f2 66 6f 6e 74 28 58 |.... 0 : .font(X|
000035b0 2c 59 2c 32 2c 61 24 29 0d 14 1e 28 20 20 20 20 |,Y,2,a$)...( |
000035c0 20 20 20 3a 20 f2 66 6f 6e 74 28 58 2c 59 2d 33 | : .font(X,Y-3|
000035d0 32 2c 33 2c 22 3a 41 4c 44 45 56 52 4f 4e 22 29 |2,3,":ALDEVRON")|
000035e0 0d 14 28 19 c9 20 31 20 3a 20 f2 66 6f 6e 74 28 |..(.. 1 : .font(|
000035f0 58 2c 59 2c 36 2c 61 24 29 0d 14 32 26 20 20 20 |X,Y,6,a$)..2& |
00003600 20 20 20 20 3a 20 f2 66 6f 6e 74 28 58 2c 59 2d | : .font(X,Y-|
00003610 33 32 2c 33 2c 22 3a 22 2b c3 28 42 39 29 29 0d |32,3,":"+.(B9)).|
00003620 14 3c 19 c9 20 32 20 3a 20 f2 66 6f 6e 74 28 58 |.<.. 2 : .font(X|
00003630 2c 59 2c 38 2c 61 24 29 0d 14 46 33 20 20 20 20 |,Y,8,a$)..F3 |
00003640 20 20 20 3a 20 f2 66 6f 6e 74 28 58 2c 59 2d 33 | : .font(X,Y-3|
00003650 32 2c 33 2c 22 3a 22 2b c3 28 28 a8 28 54 38 2d |2,3,":"+.((.(T8-|
00003660 54 29 2a 31 30 29 2f 31 30 29 29 0d 14 50 19 c9 |T)*10)/10))..P..|
00003670 20 33 20 3a 20 f2 66 6f 6e 74 28 58 2c 59 2c 31 | 3 : .font(X,Y,1|
00003680 2c 61 24 29 0d 14 5a 26 20 20 20 20 20 20 20 3a |,a$)..Z& :|
00003690 20 f2 66 6f 6e 74 28 58 2c 59 2d 33 32 2c 33 2c | .font(X,Y-32,3,|
000036a0 22 3a 22 2b c3 28 4b 39 29 29 0d 14 64 19 c9 20 |":"+.(K9))..d.. |
000036b0 34 20 3a 20 f2 66 6f 6e 74 28 58 2c 59 2c 38 2c |4 : .font(X,Y,8,|
000036c0 61 24 29 0d 14 6e 25 20 20 20 20 20 20 20 3a 20 |a$)..n% : |
000036d0 f2 66 6f 6e 74 28 58 2c 59 2d 33 32 2c 33 2c 22 |.font(X,Y-32,3,"|
000036e0 3a 22 2b c3 28 45 29 29 0d 14 78 19 c9 20 35 20 |:"+.(E))..x.. 5 |
000036f0 3a 20 f2 66 6f 6e 74 28 58 2c 59 2c 36 2c 61 24 |: .font(X,Y,6,a$|
00003700 29 0d 14 82 25 20 20 20 20 20 20 20 3a 20 f2 66 |)...% : .f|
00003710 6f 6e 74 28 58 2c 59 2d 33 32 2c 33 2c 22 3a 22 |ont(X,Y-32,3,":"|
00003720 2b c3 28 53 29 29 0d 14 8c 19 c9 20 36 20 3a 20 |+.(S))..... 6 : |
00003730 f2 66 6f 6e 74 28 58 2c 59 2c 32 2c 61 24 29 0d |.font(X,Y,2,a$).|
00003740 14 96 25 20 20 20 20 20 20 20 3a 20 f2 66 6f 6e |..% : .fon|
00003750 74 28 58 2c 59 2d 33 32 2c 33 2c 22 3a 22 2b c3 |t(X,Y-32,3,":"+.|
00003760 28 50 29 29 0d 14 a0 05 cb 0d 14 aa 0d 59 2d 3d |(P)).........Y-=|
00003770 36 38 20 3a 20 ed 0d 14 b4 05 3a 0d 14 be 44 dc |68 : .....:...D.|
00003780 20 53 59 53 54 45 4d 2c 53 54 41 52 42 41 53 45 | SYSTEM,STARBASE|
00003790 53 2c 54 49 4d 45 20 4c 45 46 54 2c 4b 4c 49 4e |S,TIME LEFT,KLIN|
000037a0 47 4f 4e 53 2c 45 4e 45 52 47 59 2c 44 45 46 4c |GONS,ENERGY,DEFL|
000037b0 45 43 54 4f 52 2c 54 4f 52 50 45 44 4f 45 53 0d |ECTOR,TORPEDOES.|
000037c0 14 c8 05 3a 0d 14 d2 05 e1 0d 14 dc 05 3a 0d 14 |...:.........:..|
000037d0 e6 10 dd 20 f2 70 68 6f 74 6f 6e 41 69 6d 0d 14 |... .photonAim..|
000037e0 f0 0e e7 20 44 28 39 29 3c 30 20 8c 0d 14 fa 2d |... D(9)<0 ....-|
000037f0 20 20 20 20 20 3a 20 f2 66 6f 6e 74 28 33 32 34 | : .font(324|
00003800 2c 32 32 38 2c 31 2c 22 43 4f 4d 42 41 54 20 43 |,228,1,"COMBAT C|
00003810 4f 4d 50 55 54 45 52 22 29 0d 15 04 2b 20 20 20 |OMPUTER")...+ |
00003820 20 20 3a 20 f2 66 6f 6e 74 28 33 32 34 2c 31 39 | : .font(324,19|
00003830 32 2c 31 2c 22 49 53 20 44 4f 57 4e 20 2e 2e 2e |2,1,"IS DOWN ...|
00003840 2e 2e 22 29 0d 15 0e 0c 20 20 20 20 20 3a 20 e1 |..").... : .|
00003850 0d 15 18 05 cd 0d 15 22 0c e7 20 4b 33 3c 31 20 |.......".. K3<1 |
00003860 8c 0d 15 2c 1a 20 20 20 20 20 3a 20 f2 6e 6f 4b |...,. : .noK|
00003870 6c 69 6e 67 6f 6e 73 20 3a 20 e1 0d 15 36 05 cd |lingons : ...6..|
00003880 0d 15 40 0d f2 63 6c 65 61 72 28 33 29 0d 15 4a |..@..clear(3)..J|
00003890 2f f2 74 65 78 74 28 33 30 38 2c 37 30 38 2c 22 |/.text(308,708,"|
000038a0 52 22 2c 22 41 49 4d 49 4e 47 20 44 41 54 41 20 |R","AIMING DATA |
000038b0 46 4f 52 20 45 4e 45 4d 59 3a 22 29 0d 15 54 20 |FOR ENEMY:")..T |
000038c0 51 25 3d 36 34 38 20 3a 20 e3 20 49 25 3d 31 20 |Q%=648 : . I%=1 |
000038d0 b8 20 33 20 3a 20 50 25 3d 34 32 30 0d 15 5e 17 |. 3 : P%=420..^.|
000038e0 e7 20 4b 28 49 25 2c 33 29 3c 3d 30 20 8c 20 8d |. K(I%,3)<=0 . .|
000038f0 74 46 55 0d 15 68 29 43 31 3d 53 31 20 3a 20 41 |tFU..h)C1=S1 : A|
00003900 3d 53 32 20 3a 20 57 31 3d 4b 28 49 25 2c 31 29 |=S2 : W1=K(I%,1)|
00003910 20 3a 20 58 3d 4b 28 49 25 2c 32 29 0d 15 72 23 | : X=K(I%,2)..r#|
00003920 f2 74 65 78 74 28 33 30 38 2c 51 25 2c 22 52 22 |.text(308,Q%,"R"|
00003930 2c 22 28 22 2b c3 28 49 25 29 2b 22 29 22 29 0d |,"("+.(I%)+")").|
00003940 15 7c 0a e4 20 8d 74 4a 56 0d 15 86 0f 51 25 2d |.|.. .tJV....Q%-|
00003950 3d 31 31 36 20 3a 20 ed 0d 15 90 05 e1 0d 15 9a |=116 : .........|
00003960 05 3a 0d 15 a4 17 dd 20 f2 63 6f 75 72 73 65 43 |.:..... .courseC|
00003970 61 6c 63 75 6c 61 74 6f 72 0d 15 ae 0f e7 20 44 |alculator..... D|
00003980 28 31 30 29 3c 30 20 8c 0d 15 b8 27 20 20 20 20 |(10)<0 ....' |
00003990 20 3a 20 f2 66 6f 6e 74 28 31 30 38 34 2c 32 32 | : .font(1084,22|
000039a0 38 2c 31 2c 22 4e 41 56 20 43 4f 4d 50 22 29 0d |8,1,"NAV COMP").|
000039b0 15 c2 27 20 20 20 20 20 3a 20 f2 66 6f 6e 74 28 |..' : .font(|
000039c0 31 30 38 34 2c 31 39 32 2c 31 2c 22 44 49 53 41 |1084,192,1,"DISA|
000039d0 42 4c 45 44 22 29 0d 15 cc 0c 20 20 20 20 20 3a |BLED").... :|
000039e0 20 e1 0d 15 d6 05 cd 0d 15 e0 14 f2 63 6c 65 61 | ...........clea|
000039f0 72 28 33 29 20 3a 20 53 25 3d 31 0d 15 ea 2b f2 |r(3) : S%=1...+.|
00003a00 74 65 78 74 28 33 30 38 2c 37 30 38 2c 22 57 22 |text(308,708,"W"|
00003a10 2c 22 43 4f 55 52 53 45 20 43 41 4c 43 55 4c 41 |,"COURSE CALCULA|
00003a20 54 4f 52 3a 22 29 0d 15 f4 30 f2 74 65 78 74 28 |TOR:")...0.text(|
00003a30 33 30 38 2c 36 35 36 2c 22 47 22 2c 22 49 4e 20 |308,656,"G","IN |
00003a40 54 48 49 53 20 53 45 43 54 4f 52 20 4f 52 20 41 |THIS SECTOR OR A|
00003a50 20 4e 45 57 22 29 0d 15 fe 3b 41 24 3d a4 69 6e | NEW")...;A$=.in|
00003a60 70 75 74 56 61 72 69 6f 75 73 28 33 30 38 2c 36 |putVarious(308,6|
00003a70 30 34 2c 37 37 32 2c 36 30 34 2c 22 47 22 2c 22 |04,772,604,"G","|
00003a80 51 55 41 44 52 41 4e 54 20 28 53 2d 51 29 3a 22 |QUADRANT (S-Q):"|
00003a90 29 0d 16 08 22 42 24 3d 22 22 20 3a 20 e7 20 41 |)..."B$="" : . A|
00003aa0 24 3d 22 53 22 20 8c 20 42 24 3d 22 53 45 43 54 |$="S" . B$="SECT|
00003ab0 4f 52 22 0d 16 12 23 e7 20 41 24 3d 22 51 22 20 |OR"...#. A$="Q" |
00003ac0 8c 20 42 24 3d 22 51 55 41 44 52 41 4e 54 22 20 |. B$="QUADRANT" |
00003ad0 3a 20 53 25 3d 30 0d 16 1c 25 e7 20 42 24 3d 22 |: S%=0...%. B$="|
00003ae0 22 20 8c 20 57 3d a6 28 31 35 29 20 3a 20 f2 63 |" . W=.(15) : .c|
00003af0 6c 65 61 72 28 33 29 20 3a 20 e1 0d 16 26 24 f2 |lear(3) : ...&$.|
00003b00 74 65 78 74 28 33 30 38 2c 35 35 32 2c 22 59 22 |text(308,552,"Y"|
00003b10 2c 22 43 4f 4f 52 44 49 4e 41 54 45 53 22 29 0d |,"COORDINATES").|
00003b20 16 30 2c 58 3d a4 69 6e 70 75 74 4e 75 6d 62 65 |.0,X=.inputNumbe|
00003b30 72 28 37 30 34 2c 35 35 32 2c 37 37 32 2c 35 35 |r(704,552,772,55|
00003b40 32 2c 22 59 22 2c 22 58 3a 22 29 0d 16 3a 2d 57 |2,"Y","X:")..:-W|
00003b50 31 3d a4 69 6e 70 75 74 4e 75 6d 62 65 72 28 37 |1=.inputNumber(7|
00003b60 30 34 2c 35 30 30 2c 37 37 32 2c 35 30 30 2c 22 |04,500,772,500,"|
00003b70 59 22 2c 22 59 3a 22 29 0d 16 44 1f e7 20 58 3c |Y","Y:")..D.. X<|
00003b80 31 20 84 20 58 3e 38 20 84 20 57 31 3c 31 20 84 |1 . X>8 . W1<1 .|
00003b90 20 57 31 3e 38 20 8c 0d 16 4e 22 20 20 20 20 20 | W1>8 ...N" |
00003ba0 3a 20 57 3d a6 28 31 35 29 20 3a 20 f2 63 6c 65 |: W=.(15) : .cle|
00003bb0 61 72 28 33 29 20 3a 20 e1 0d 16 58 05 cd 0d 16 |ar(3) : ...X....|
00003bc0 62 31 43 31 3d 53 31 20 3a 20 41 3d 53 32 20 3a |b1C1=S1 : A=S2 :|
00003bd0 20 e7 20 42 24 3d 22 51 55 41 44 52 41 4e 54 22 | . B$="QUADRANT"|
00003be0 20 8c 20 43 31 3d 51 31 20 3a 20 41 3d 51 32 0d | . C1=Q1 : A=Q2.|
00003bf0 16 6c 1c 50 25 3d 33 30 38 20 3a 20 51 25 3d 34 |.l.P%=308 : Q%=4|
00003c00 33 32 20 3a 20 e4 20 8d 74 4a 56 0d 16 76 05 e1 |32 : . .tJV..v..|
00003c10 0d 16 80 05 3a 0d 16 8a 13 58 3d 58 2d 41 20 3a |....:....X=X-A :|
00003c20 20 41 3d 43 31 2d 57 31 0d 16 94 12 e7 20 58 3c | A=C1-W1..... X<|
00003c30 30 20 8c 20 e5 20 8d 54 4c 57 0d 16 9e 12 e7 20 |0 . . .TLW..... |
00003c40 41 3c 30 20 8c 20 e5 20 8d 44 52 57 0d 16 a8 12 |A<0 . . .DRW....|
00003c50 e7 20 58 3e 30 20 8c 20 e5 20 8d 64 46 56 0d 16 |. X>0 . . .dFV..|
00003c60 b2 12 e7 20 41 3d 30 20 8c 20 e5 20 8d 54 6a 57 |... A=0 . . .TjW|
00003c70 0d 16 bc 05 3a 0d 16 c6 08 43 31 3d 30 0d 16 d0 |....:....C1=0...|
00003c80 19 e7 20 94 28 58 29 3c 3d 94 28 41 29 20 8c 20 |.. .(X)<=.(A) . |
00003c90 e5 20 8d 64 6e 56 0d 16 da 23 44 52 3d 43 31 2b |. .dnV...#DR=C1+|
00003ca0 28 28 28 94 28 58 29 2d 94 28 41 29 29 2b 94 28 |(((.(X)-.(A))+.(|
00003cb0 58 29 29 2f 94 28 58 29 29 0d 16 e4 0a e5 20 8d |X))/.(X))..... .|
00003cc0 74 44 57 0d 16 ee 15 44 52 3d 43 31 2b 28 94 28 |tDW....DR=C1+(.(|
00003cd0 58 29 2f 94 28 41 29 29 0d 16 f8 0a e5 20 8d 74 |X)/.(A))..... .t|
00003ce0 44 57 0d 17 02 05 3a 0d 17 0c 12 e7 20 41 3e 30 |DW....:..... A>0|
00003cf0 20 8c 20 e5 20 8d 54 7e 57 0d 17 16 12 e7 20 58 | . . .T~W..... X|
00003d00 3d 30 20 8c 20 e5 20 8d 44 52 57 0d 17 20 05 3a |=0 . . .DRW.. .:|
00003d10 0d 17 2a 0d e7 20 58 3d 30 20 8c 20 f8 0d 17 34 |..*.. X=0 . ...4|
00003d20 11 43 31 3d 34 20 3a 20 e5 20 8d 64 50 56 0d 17 |.C1=4 : . .dPV..|
00003d30 3e 11 43 31 3d 36 20 3a 20 e5 20 8d 44 5c 57 0d |>.C1=6 : . .D\W.|
00003d40 17 48 05 3a 0d 17 52 08 43 31 3d 32 0d 17 5c 19 |.H.:..R.C1=2..\.|
00003d50 e7 20 94 28 58 29 3e 3d 94 28 41 29 20 8c 20 e5 |. .(X)>=.(A) . .|
00003d60 20 8d 44 7a 57 0d 17 66 23 44 52 3d 43 31 2b 28 | .DzW..f#DR=C1+(|
00003d70 28 28 94 28 41 29 2d 94 28 58 29 29 2b 94 28 41 |((.(A)-.(X))+.(A|
00003d80 29 29 2f 94 28 41 29 29 0d 17 70 09 e5 8d 74 44 |))/.(A))..p...tD|
00003d90 57 0d 17 7a 15 44 52 3d 43 31 2b 28 94 28 41 29 |W..z.DR=C1+(.(A)|
00003da0 2f 94 28 58 29 29 0d 17 84 0f 62 65 61 72 24 3d |/.(X))....bear$=|
00003db0 c3 28 44 52 29 0d 17 8e 0c e7 20 53 25 3d 30 20 |.(DR)..... S%=0 |
00003dc0 8c 0d 17 98 21 20 20 20 20 20 3a 20 64 69 73 74 |....! : dist|
00003dd0 24 3d c3 28 a8 28 b6 28 58 2a 58 2b 41 2a 41 29 |$=.(.(.(X*X+A*A)|
00003de0 29 29 0d 17 a2 1e cc 20 3a 20 64 69 73 74 24 3d |))..... : dist$=|
00003df0 c3 28 b6 28 58 2a 58 2b 41 2a 41 29 2f 31 30 29 |.(.(X*X+A*A)/10)|
00003e00 0d 17 ac 05 cd 0d 17 b6 2b f2 74 65 78 74 28 50 |........+.text(P|
00003e10 25 2c 51 25 2c 22 57 22 2c 22 42 45 41 52 49 4e |%,Q%,"W","BEARIN|
00003e20 47 3a 20 20 22 2b c0 62 65 61 72 24 2c 34 29 29 |G: "+.bear$,4))|
00003e30 0d 17 c0 2e f2 74 65 78 74 28 50 25 2c 51 25 2d |.....text(P%,Q%-|
00003e40 35 32 2c 22 57 22 2c 22 44 49 53 54 41 4e 43 45 |52,"W","DISTANCE|
00003e50 3a 20 22 2b c0 64 69 73 74 24 2c 34 29 29 0d 17 |: "+.dist$,4))..|
00003e60 ca 05 f8 0d 17 d4 05 3a 0d 17 de 0a dd 20 f2 72 |.......:..... .r|
00003e70 6e 64 0d 17 e8 15 52 31 3d b3 28 38 29 20 3a 20 |nd....R1=.(8) : |
00003e80 52 32 3d b3 28 38 29 0d 17 f2 22 41 24 3d 22 22 |R2=.(8)..."A$=""|
00003e90 20 3a 20 5a 31 3d 52 31 20 3a 20 5a 32 3d 52 32 | : Z1=R1 : Z2=R2|
00003ea0 20 3a 20 f2 63 68 65 63 6b 0d 17 fc 11 e7 20 5a | : .check..... Z|
00003eb0 33 3d 30 20 8c 20 8d 64 68 57 0d 18 06 05 e1 0d |3=0 . .dhW......|
00003ec0 18 10 05 3a 0d 18 1a 0c dd 20 f2 63 68 65 63 6b |...:..... .check|
00003ed0 0d 18 24 20 5a 33 3d 30 20 3a 20 e7 20 51 24 28 |..$ Z3=0 : . Q$(|
00003ee0 5a 31 2c 5a 32 29 3d 41 24 20 8c 20 5a 33 3d 31 |Z1,Z2)=A$ . Z3=1|
00003ef0 0d 18 2e 05 e1 0d 18 38 05 3a 0d 18 42 11 dd 20 |.......8.:..B.. |
00003f00 f2 68 79 70 65 72 50 72 6f 62 65 0d 18 4c 0d f2 |.hyperProbe..L..|
00003f10 63 6c 65 61 72 28 33 29 0d 18 56 0e e7 20 44 28 |clear(3)..V.. D(|
00003f20 33 29 3c 30 20 8c 0d 18 60 38 20 20 20 20 20 3a |3)<0 ...`8 :|
00003f30 20 f2 74 65 78 74 28 33 30 38 2c 37 30 38 2c 22 | .text(308,708,"|
00003f40 52 22 2c 22 48 59 50 45 52 50 52 4f 42 45 20 44 |R","HYPERPROBE D|
00003f50 41 4d 41 47 45 44 20 2e 2e 2e 2e 2e 22 29 0d 18 |AMAGED .....")..|
00003f60 6a 0c 20 20 20 20 20 3a 20 e1 0d 18 74 05 cd 0d |j. : ...t...|
00003f70 18 7e 0d e7 20 51 34 3c 3e 30 20 8c 0d 18 88 35 |.~.. Q4<>0 ....5|
00003f80 20 20 20 20 20 3a 20 f2 74 65 78 74 28 33 30 38 | : .text(308|
00003f90 2c 37 30 38 2c 22 52 22 2c 22 48 59 50 45 52 50 |,708,"R","HYPERP|
00003fa0 52 4f 42 45 20 49 53 20 41 4c 52 45 41 44 59 22 |ROBE IS ALREADY"|
00003fb0 29 0d 18 92 2e 20 20 20 20 20 3a 20 f2 74 65 78 |).... : .tex|
00003fc0 74 28 33 30 38 2c 36 35 36 2c 22 52 22 2c 22 4c |t(308,656,"R","L|
00003fd0 41 55 4e 43 48 45 44 20 2e 2e 2e 2e 2e 22 29 0d |AUNCHED .....").|
00003fe0 18 9c 0c 20 20 20 20 20 3a 20 e1 0d 18 a6 05 cd |... : ......|
00003ff0 0d 18 b0 2d f2 74 65 78 74 28 33 30 38 2c 37 30 |...-.text(308,70|
00004000 38 2c 22 59 22 2c 22 4c 41 55 4e 43 48 20 48 59 |8,"Y","LAUNCH HY|
00004010 50 45 52 50 52 4f 42 45 20 54 4f 22 29 0d 18 ba |PERPROBE TO")...|
00004020 23 f2 74 65 78 74 28 33 30 38 2c 36 35 36 2c 22 |#.text(308,656,"|
00004030 59 22 2c 22 51 55 41 44 52 41 4e 54 20 2d 22 29 |Y","QUADRANT -")|
00004040 0d 18 c4 2d 51 35 3d a4 69 6e 70 75 74 4e 75 6d |...-Q5=.inputNum|
00004050 62 65 72 28 36 32 30 2c 36 30 34 2c 36 38 30 2c |ber(620,604,680,|
00004060 36 30 34 2c 22 57 22 2c 22 58 3a 22 29 0d 18 ce |604,"W","X:")...|
00004070 2d 51 34 3d a4 69 6e 70 75 74 4e 75 6d 62 65 72 |-Q4=.inputNumber|
00004080 28 36 32 30 2c 35 35 32 2c 36 38 30 2c 35 35 32 |(620,552,680,552|
00004090 2c 22 57 22 2c 22 59 3a 22 29 0d 18 d8 21 e7 20 |,"W","Y:")...!. |
000040a0 51 34 3c 31 20 84 20 51 34 3e 38 20 84 20 51 35 |Q4<1 . Q4>8 . Q5|
000040b0 3c 31 20 84 20 51 35 3e 38 20 8c 0d 18 e2 37 20 |<1 . Q5>8 ....7 |
000040c0 20 20 20 20 3a 20 f2 74 65 78 74 28 33 30 38 2c | : .text(308,|
000040d0 34 34 38 2c 22 52 22 2c 22 48 59 50 45 52 50 52 |448,"R","HYPERPR|
000040e0 4f 42 45 20 49 53 20 4e 4f 57 20 4f 4e 20 41 4e |OBE IS NOW ON AN|
000040f0 22 29 0d 18 ec 39 20 20 20 20 20 3a 20 f2 74 65 |")...9 : .te|
00004100 78 74 28 33 30 38 2c 33 39 36 2c 22 52 22 2c 22 |xt(308,396,"R","|
00004110 49 52 52 45 54 52 49 45 56 41 42 4c 45 20 54 52 |IRRETRIEVABLE TR|
00004120 41 4a 45 43 54 4f 52 59 2e 22 29 0d 18 f6 14 20 |AJECTORY.").... |
00004130 20 20 20 20 3a 20 51 34 3d 2d 31 20 3a 20 e1 0d | : Q4=-1 : ..|
00004140 19 00 05 cd 0d 19 0a 2f f2 74 65 78 74 28 33 30 |......./.text(30|
00004150 38 2c 34 34 38 2c 22 57 22 2c 22 48 59 50 45 52 |8,448,"W","HYPER|
00004160 50 52 4f 42 45 20 4c 41 55 4e 43 48 45 44 20 54 |PROBE LAUNCHED T|
00004170 4f 22 29 0d 19 14 3b f2 74 65 78 74 28 33 30 38 |O")...;.text(308|
00004180 2c 33 39 36 2c 22 57 22 2c 22 51 55 41 44 52 41 |,396,"W","QUADRA|
00004190 4e 54 20 22 2b c3 28 51 35 29 2b 22 2e 22 2b c3 |NT "+.(Q5)+"."+.|
000041a0 28 51 34 29 2b 22 20 2e 2e 2e 2e 2e 22 29 0d 19 |(Q4)+" .....")..|
000041b0 1e 0e 5a 25 3d 56 25 2b b3 28 39 29 0d 19 28 05 |..Z%=V%+.(9)..(.|
000041c0 e1 0d 19 32 05 3a 0d 19 3c 10 dd 20 f2 73 75 70 |...2.:..<.. .sup|
000041d0 65 72 4e 6f 76 61 0d 19 46 19 f2 63 6c 65 61 72 |erNova..F..clear|
000041e0 28 31 29 20 3a 20 f2 63 6c 65 61 72 28 32 29 0d |(1) : .clear(2).|
000041f0 19 50 37 f2 74 65 78 74 28 32 34 2c 37 36 38 2c |.P7.text(24,768,|
00004200 22 52 22 2c 22 59 4f 55 20 48 41 56 45 20 45 4e |"R","YOU HAVE EN|
00004210 54 45 52 45 44 20 41 20 53 55 50 45 52 4e 4f 56 |TERED A SUPERNOV|
00004220 41 20 49 4e 22 29 0d 19 5a 3a f2 74 65 78 74 28 |A IN")..Z:.text(|
00004230 32 34 2c 37 30 38 2c 22 52 22 2c 22 51 55 41 44 |24,708,"R","QUAD|
00004240 52 41 4e 54 20 22 2b c3 28 51 32 29 2b 22 2e 22 |RANT "+.(Q2)+"."|
00004250 2b c3 28 51 31 29 2b 22 20 2e 2e 2e 2e 2e 22 29 |+.(Q1)+" .....")|
00004260 0d 19 64 0c f2 64 65 61 64 28 32 29 0d 19 6e 05 |..d..dead(2)..n.|
00004270 e1 0d 19 78 05 3a 0d 19 82 0b dd 20 f2 6e 6f 76 |...x.:..... .nov|
00004280 61 0d 19 8c 1a f2 72 6e 64 20 3a 20 e7 20 5a 31 |a.....rnd : . Z1|
00004290 3c 3e 51 31 20 8c 20 8d 74 60 59 0d 19 96 11 e7 |<>Q1 . .t`Y.....|
000042a0 20 5a 32 3d 51 32 20 8c 8d 74 4c 59 0d 19 a0 18 | Z2=Q2 ..tLY....|
000042b0 e7 20 47 28 5a 31 2c 5a 32 29 3d 2d 31 20 8c 20 |. G(Z1,Z2)=-1 . |
000042c0 8d 74 4c 59 0d 19 aa 1c 58 3d 47 28 5a 31 2c 5a |.tLY....X=G(Z1,Z|
000042d0 32 29 2f 31 30 30 20 3a 20 58 31 3d a8 28 58 29 |2)/100 : X1=.(X)|
000042e0 0d 19 b4 41 f2 70 72 69 6e 74 65 72 28 32 2c 22 |...A.printer(2,"|
000042f0 57 22 2c 22 43 4f 4d 4d 55 4e 49 43 41 54 49 4f |W","COMMUNICATIO|
00004300 4e 53 20 4f 46 46 49 43 45 52 20 52 45 50 4f 52 |NS OFFICER REPOR|
00004310 54 49 4e 47 3a 22 29 20 3a 20 57 3d a6 28 38 30 |TING:") : W=.(80|
00004320 29 0d 19 be 44 f2 70 72 69 6e 74 65 72 28 32 2c |)...D.printer(2,|
00004330 22 57 22 2c 22 53 50 41 43 45 20 57 41 54 43 48 |"W","SPACE WATCH|
00004340 20 48 41 53 20 52 45 50 4f 52 54 45 44 20 41 20 | HAS REPORTED A |
00004350 53 55 50 45 52 4e 4f 56 41 22 29 20 3a 20 57 3d |SUPERNOVA") : W=|
00004360 a6 28 34 30 29 0d 19 c8 3b f2 70 72 69 6e 74 65 |.(40)...;.printe|
00004370 72 28 32 2c 22 57 22 2c 22 49 4e 20 51 55 41 44 |r(2,"W","IN QUAD|
00004380 52 41 4e 54 20 22 2b c3 28 5a 32 29 2b 22 2e 22 |RANT "+.(Z2)+"."|
00004390 2b c3 28 5a 31 29 2b 22 20 2e 2e 2e 2e 2e 22 29 |+.(Z1)+" .....")|
000043a0 0d 19 d2 45 57 3d a6 28 34 30 29 20 3a 20 f2 70 |...EW=.(40) : .p|
000043b0 72 69 6e 74 65 72 28 32 2c 22 52 22 2c 22 44 4f |rinter(2,"R","DO|
000043c0 20 4e 4f 54 20 45 4e 54 45 52 20 41 54 20 53 55 | NOT ENTER AT SU|
000043d0 42 20 4c 49 47 48 54 20 53 50 45 45 44 20 2e 2e |B LIGHT SPEED ..|
000043e0 2e 2e 2e 22 29 0d 19 dc 12 e7 20 58 31 3c 3d 30 |...")..... X1<=0|
000043f0 20 e5 20 8d 54 44 5a 0d 19 e6 25 57 3d a6 28 34 | . .TDZ...%W=.(4|
00004400 30 29 20 3a 20 41 24 3d 22 22 20 3a 20 e7 20 58 |0) : A$="" : . X|
00004410 31 3e 31 20 8c 20 41 24 3d 22 53 22 0d 19 f0 3a |1>1 . A$="S"...:|
00004420 f2 70 72 69 6e 74 65 72 28 32 2c 22 59 22 2c c3 |.printer(2,"Y",.|
00004430 28 58 31 29 2b 22 20 4b 4c 49 4e 47 4f 4e 22 2b |(X1)+" KLINGON"+|
00004440 41 24 2b 22 20 44 45 53 54 52 4f 59 45 44 20 2e |A$+" DESTROYED .|
00004450 2e 2e 2e 2e 22 29 0d 19 fa 25 4b 39 3d 4b 39 2d |....")...%K9=K9-|
00004460 58 31 20 3a 20 e7 20 4b 39 3c 3d 30 20 8c 20 f2 |X1 : . K9<=0 . .|
00004470 64 65 61 64 28 34 29 20 3a 20 e1 0d 1a 04 18 e7 |dead(4) : ......|
00004480 20 31 30 2a 28 58 2d 58 31 29 3c 31 20 8c 20 8d | 10*(X-X1)<1 . .|
00004490 54 62 5a 0d 1a 0e 38 57 3d a6 28 34 30 29 20 3a |TbZ...8W=.(40) :|
000044a0 20 f2 70 72 69 6e 74 65 72 28 32 2c 22 59 22 2c | .printer(2,"Y",|
000044b0 22 53 54 41 52 42 41 53 45 20 44 45 53 54 52 4f |"STARBASE DESTRO|
000044c0 59 45 44 20 2e 2e 2e 2e 2e 22 29 0d 1a 18 0b 42 |YED .....")....B|
000044d0 39 3d 42 39 2d 31 0d 1a 22 1d 47 28 5a 31 2c 5a |9=B9-1..".G(Z1,Z|
000044e0 32 29 3d 2d 31 20 3a 20 5a 28 5a 31 2c 5a 32 29 |2)=-1 : Z(Z1,Z2)|
000044f0 3d 2d 31 0d 1a 2c 17 57 3d a6 28 34 30 29 20 3a |=-1..,.W=.(40) :|
00004500 20 f2 63 6c 65 61 72 28 36 29 0d 1a 36 05 e1 0d | .clear(6)..6...|
00004510 1a 40 05 3a 0d 1a 4a 12 dd 20 f2 70 72 6f 62 65 |.@.:..J.. .probe|
00004520 52 65 74 75 72 6e 0d 1a 54 1c ea 20 41 2c 42 2c |Return..T.. A,B,|
00004530 43 2c 58 2c 59 20 3a 20 e7 20 51 34 3c 31 20 8c |C,X,Y : . Q4<1 .|
00004540 20 e1 0d 1a 5e 1b f2 63 6c 65 61 72 28 33 29 20 | ...^..clear(3) |
00004550 3a 20 4e 25 3d 47 28 51 34 2c 51 35 29 0d 1a 68 |: N%=G(Q4,Q5)..h|
00004560 0c e7 20 4e 25 3c 30 20 8c 0d 1a 72 37 20 20 20 |.. N%<0 ...r7 |
00004570 20 20 3a 20 f2 74 65 78 74 28 33 30 38 2c 37 30 | : .text(308,70|
00004580 38 2c 22 52 22 2c 22 43 4f 4e 54 41 43 54 20 57 |8,"R","CONTACT W|
00004590 49 54 48 20 48 59 50 45 52 50 52 4f 42 45 22 29 |ITH HYPERPROBE")|
000045a0 0d 1a 7c 33 20 20 20 20 20 3a 20 f2 74 65 78 74 |..|3 : .text|
000045b0 28 33 30 38 2c 36 35 36 2c 22 52 22 2c 22 48 41 |(308,656,"R","HA|
000045c0 53 20 42 45 45 4e 20 4c 4f 53 54 20 2e 2e 2e 2e |S BEEN LOST ....|
000045d0 2e 22 29 0d 1a 86 14 20 20 20 20 20 3a 20 51 34 |.").... : Q4|
000045e0 3d 2d 31 20 3a 20 e1 0d 1a 90 05 cd 0d 1a 9a 30 |=-1 : .........0|
000045f0 f2 74 65 78 74 28 33 30 38 2c 37 30 38 2c 22 57 |.text(308,708,"W|
00004600 22 2c 22 48 59 50 45 52 50 52 4f 42 45 20 48 41 |","HYPERPROBE HA|
00004610 53 20 52 45 54 55 52 4e 45 44 22 29 0d 1a a4 40 |S RETURNED")...@|
00004620 f2 74 65 78 74 28 33 30 38 2c 36 35 36 2c 22 57 |.text(308,656,"W|
00004630 22 2c 22 46 52 4f 4d 20 51 55 41 44 52 41 4e 54 |","FROM QUADRANT|
00004640 20 22 2b c3 28 51 35 29 2b 22 2e 22 2b c3 28 51 | "+.(Q5)+"."+.(Q|
00004650 34 29 2b 22 20 2e 2e 2e 2e 2e 22 29 0d 1a ae 1b |4)+" .....")....|
00004660 59 3d 35 36 30 20 3a 20 e3 20 41 3d 51 34 2d 31 |Y=560 : . A=Q4-1|
00004670 20 b8 20 51 34 2b 31 0d 1a b8 24 58 3d 33 30 38 | . Q4+1...$X=308|
00004680 20 3a 20 4e 28 31 29 3d 30 20 3a 20 4e 28 32 29 | : N(1)=0 : N(2)|
00004690 3d 30 20 3a 20 4e 28 33 29 3d 30 0d 1a c2 13 e3 |=0 : N(3)=0.....|
000046a0 20 42 3d 51 35 2d 31 20 b8 20 51 35 2b 31 0d 1a | B=Q5-1 . Q5+1..|
000046b0 cc 3e e7 20 41 3e 30 20 80 20 41 3c 39 20 80 20 |.>. A>0 . A<9 . |
000046c0 42 3e 30 20 80 20 42 3c 39 20 8c 20 4e 28 42 2d |B>0 . B<9 . N(B-|
000046d0 51 35 2b 32 29 3d 47 28 41 2c 42 29 20 3a 20 5a |Q5+2)=G(A,B) : Z|
000046e0 28 41 2c 42 29 3d 47 28 41 2c 42 29 0d 1a d6 05 |(A,B)=G(A,B)....|
000046f0 ed 0d 1a e0 0d e3 20 43 3d 31 20 b8 20 33 0d 1a |...... C=1 . 3..|
00004700 ea 1a e6 20 38 20 3a 20 c8 93 20 c8 90 20 58 2c |... 8 : .. .. X,|
00004710 59 2c 32 32 30 2c 38 34 0d 1a f4 1e e6 20 30 20 |Y,220,84..... 0 |
00004720 3a 20 c8 93 20 c8 90 20 58 2b 34 2c 59 2b 34 2c |: .. .. X+4,Y+4,|
00004730 32 31 32 2c 37 36 0d 1a fe 33 e7 20 4e 28 43 29 |212,76...3. N(C)|
00004740 3d 30 20 20 8c 20 f2 74 65 78 74 28 58 2b 32 36 |=0 . .text(X+26|
00004750 2c 59 2b 31 32 2c 22 57 22 2c 22 20 20 20 22 29 |,Y+12,"W"," ")|
00004760 20 3a 20 e5 20 8d 54 7a 5b 0d 1b 08 35 e7 20 4e | : . .Tz[...5. N|
00004770 28 43 29 3d 2d 31 20 8c 20 f2 74 65 78 74 28 58 |(C)=-1 . .text(X|
00004780 2b 33 32 2c 59 2b 31 32 2c 22 59 22 2c 22 2a 20 |+32,Y+12,"Y","* |
00004790 2a 20 2a 22 29 20 3a 20 e5 20 8d 54 7a 5b 0d 1b |* *") : . .Tz[..|
000047a0 12 17 71 24 3d c2 c3 28 4e 28 43 29 2b 31 30 30 |..q$=..(N(C)+100|
000047b0 30 29 2c 33 29 0d 1b 1c 28 6b 24 3d c0 71 24 2c |0),3)...(k$=.q$,|
000047c0 31 29 20 20 3a 20 f2 74 65 78 74 28 58 2b 33 32 |1) : .text(X+32|
000047d0 2c 59 2b 32 34 2c 22 52 22 2c 6b 24 29 0d 1b 26 |,Y+24,"R",k$)..&|
000047e0 29 73 24 3d c1 71 24 2c 32 2c 31 29 20 3a 20 f2 |)s$=.q$,2,1) : .|
000047f0 74 65 78 74 28 58 2b 39 36 2c 59 2b 32 34 2c 22 |text(X+96,Y+24,"|
00004800 42 22 2c 73 24 29 0d 1b 30 28 70 24 3d c2 71 24 |B",s$)..0(p$=.q$|
00004810 2c 31 29 20 3a 20 f2 74 65 78 74 28 58 2b 31 36 |,1) : .text(X+16|
00004820 30 2c 59 2b 32 34 2c 22 59 22 2c 70 24 29 0d 1b |0,Y+24,"Y",p$)..|
00004830 3a 0e 58 2b 3d 32 33 32 20 3a 20 ed 0d 1b 44 0e |:.X+=232 : ...D.|
00004840 59 2d 3d 39 36 20 20 3a 20 ed 0d 1b 4e 08 51 34 |Y-=96 : ...N.Q4|
00004850 3d 30 0d 1b 58 05 e1 0d 1b 62 05 3a 0d 1b 6c 12 |=0..X....b.:..l.|
00004860 dd 20 f2 73 63 61 6e 6e 65 72 49 6e 66 6f 0d 1b |. .scannerInfo..|
00004870 76 1c e7 20 4b 33 3c 31 20 8c 20 f2 6e 6f 4b 6c |v.. K3<1 . .noKl|
00004880 69 6e 67 6f 6e 73 20 3a 20 e1 0d 1b 80 0e e7 20 |ingons : ...... |
00004890 44 28 39 29 3c 30 20 8c 0d 1b 8a 2d 20 20 20 20 |D(9)<0 ....- |
000048a0 20 3a 20 f2 66 6f 6e 74 28 33 32 34 2c 32 32 38 | : .font(324,228|
000048b0 2c 31 2c 22 43 4f 4d 42 41 54 20 43 4f 4d 50 55 |,1,"COMBAT COMPU|
000048c0 54 45 52 22 29 0d 1b 94 2b 20 20 20 20 20 3a 20 |TER")...+ : |
000048d0 f2 66 6f 6e 74 28 33 32 34 2c 31 39 32 2c 31 2c |.font(324,192,1,|
000048e0 22 49 53 20 44 4f 57 4e 20 2e 2e 2e 2e 2e 22 29 |"IS DOWN .....")|
000048f0 0d 1b 9e 0c 20 20 20 20 20 3a 20 e1 0d 1b a8 05 |.... : .....|
00004900 cd 0d 1b b2 0d f2 63 6c 65 61 72 28 33 29 0d 1b |......clear(3)..|
00004910 bc 2e f2 74 65 78 74 28 33 30 38 2c 37 30 38 2c |...text(308,708,|
00004920 22 52 22 2c 22 4b 4c 49 4e 47 4f 4e 20 46 4f 52 |"R","KLINGON FOR|
00004930 43 45 20 53 54 41 54 55 53 3a 22 29 0d 1b c6 41 |CE STATUS:")...A|
00004940 f2 74 65 78 74 28 33 30 38 2c 36 35 36 2c 22 59 |.text(308,656,"Y|
00004950 22 2c 22 53 45 43 54 4f 52 3a 22 29 20 3a 20 f2 |","SECTOR:") : .|
00004960 74 65 78 74 28 36 30 38 2c 36 35 36 2c 22 59 22 |text(608,656,"Y"|
00004970 2c 22 53 54 52 45 4e 47 54 48 3a 22 29 0d 1b d0 |,"STRENGTH:")...|
00004980 13 50 25 3d 33 30 38 20 3a 20 51 25 3d 36 30 34 |.P%=308 : Q%=604|
00004990 0d 1b da 0f e3 20 49 25 3d 31 20 b8 20 4b 33 0d |..... I%=1 . K3.|
000049a0 1b e4 2e f2 74 65 78 74 28 50 25 2c 51 25 2c 22 |....text(P%,Q%,"|
000049b0 57 22 2c c3 28 4b 28 49 25 2c 32 29 29 2b 22 2e |W",.(K(I%,2))+".|
000049c0 22 2b c3 28 4b 28 49 25 2c 31 29 29 29 0d 1b ee |"+.(K(I%,1)))...|
000049d0 2d f2 74 65 78 74 28 50 25 2b 33 30 30 2c 51 25 |-.text(P%+300,Q%|
000049e0 2c 22 57 22 2c c3 28 4b 28 49 25 2c 33 29 29 2b |,"W",.(K(I%,3))+|
000049f0 22 20 55 4e 49 54 53 2e 22 29 0d 1b f8 0b 51 25 |" UNITS.")....Q%|
00004a00 2d 3d 31 32 30 0d 1c 02 05 ed 0d 1c 0c 05 e1 0d |-=120...........|
00004a10 1c 16 05 3a 0d 1c 20 0d dd 20 f2 72 65 70 6f 72 |...:.. .. .repor|
00004a20 74 0d 1c 2a 15 ea 20 49 25 2c 54 2c 57 2c 41 24 |t..*.. I%,T,W,A$|
00004a30 20 3a 20 54 3d 30 0d 1c 34 0f e3 20 49 25 3d 31 | : T=0..4.. I%=1|
00004a40 20 b8 20 31 32 0d 1c 3e 18 e7 20 49 25 3d 37 20 | . 12..>.. I%=7 |
00004a50 80 20 44 49 4c 25 20 8c 20 8d 44 5c 5c 0d 1c 48 |. DIL% . .D\\..H|
00004a60 18 e7 20 49 25 3d 36 20 80 20 4e 45 55 25 20 8c |.. I%=6 . NEU% .|
00004a70 20 8d 44 5c 5c 0d 1c 52 13 e7 20 44 28 49 25 29 | .D\\..R.. D(I%)|
00004a80 3c 30 20 8c 20 54 3d 31 0d 1c 5c 05 ed 0d 1c 66 |<0 . T=1..\....f|
00004a90 0b e7 20 54 3d 31 20 8c 0d 1c 70 42 20 20 20 20 |.. T=1 ...pB |
00004aa0 20 3a 20 f2 63 6c 65 61 72 28 36 29 20 3a 20 f2 | : .clear(6) : .|
00004ab0 70 72 69 6e 74 65 72 28 32 2c 22 57 22 2c 22 44 |printer(2,"W","D|
00004ac0 41 4d 41 47 45 20 43 4f 4e 54 52 4f 4c 20 52 45 |AMAGE CONTROL RE|
00004ad0 50 4f 52 54 49 4e 47 3a 22 29 0d 1c 7a 12 20 20 |PORTING:")..z. |
00004ae0 20 20 20 3a 20 57 3d a6 28 32 30 29 0d 1c 84 05 | : W=.(20)....|
00004af0 cd 0d 1c 8e 0f e3 20 49 25 3d 31 20 b8 20 31 32 |...... I%=1 . 12|
00004b00 0d 1c 98 18 e7 20 49 25 3d 37 20 80 20 44 49 4c |..... I%=7 . DIL|
00004b10 25 20 8c 20 8d 64 5e 5c 0d 1c a2 18 e7 20 49 25 |% . .d^\..... I%|
00004b20 3d 36 20 80 20 4e 45 55 25 20 8c 20 8d 64 5e 5c |=6 . NEU% . .d^\|
00004b30 0d 1c ac 15 e7 20 44 28 49 25 29 3e 3d 30 20 8c |..... D(I%)>=0 .|
00004b40 20 8d 64 5e 5c 0d 1c b6 1e 41 24 3d 22 20 42 45 | .d^\....A$=" BE|
00004b50 49 4e 47 20 52 45 50 41 49 52 45 44 20 2e 2e 2e |ING REPAIRED ...|
00004b60 2e 2e 22 0d 1c c0 11 44 28 49 25 29 3d 44 28 49 |.."....D(I%)=D(I|
00004b70 25 29 2b 31 0d 1c ca 27 e7 20 44 28 49 25 29 3e |%)+1...'. D(I%)>|
00004b80 3d 30 20 8c 20 41 24 3d 22 20 4e 4f 57 20 4f 50 |=0 . A$=" NOW OP|
00004b90 45 52 41 54 49 4f 4e 41 4c 2e 22 0d 1c d4 27 f2 |ERATIONAL."...'.|
00004ba0 70 72 69 6e 74 65 72 28 32 2c 22 57 22 2c 44 24 |printer(2,"W",D$|
00004bb0 28 49 25 29 2b 41 24 29 20 3a 20 57 3d a6 28 32 |(I%)+A$) : W=.(2|
00004bc0 30 29 0d 1c de 11 ed 20 3a 20 f2 63 6c 65 61 72 |0)..... : .clear|
00004bd0 28 36 29 0d 1c e8 05 e1 0d 1c f2 05 3a 0d 1c fc |(6).........:...|
00004be0 0b dd 20 f2 6d 6f 76 65 0d 1d 06 1b 5a 31 3d 4b |.. .move....Z1=K|
00004bf0 28 49 25 2c 31 29 20 3a 20 5a 32 3d 4b 28 49 25 |(I%,1) : Z2=K(I%|
00004c00 2c 32 29 0d 1d 10 17 e7 20 53 31 2d 5a 31 3e 30 |,2)..... S1-Z1>0|
00004c10 20 8c 20 5a 31 3d 5a 31 2b 31 0d 1d 1a 17 e7 20 | . Z1=Z1+1..... |
00004c20 53 32 2d 5a 32 3e 30 20 8c 20 5a 32 3d 5a 32 2b |S2-Z2>0 . Z2=Z2+|
00004c30 31 0d 1d 24 17 e7 20 53 31 2d 5a 31 3c 30 20 8c |1..$.. S1-Z1<0 .|
00004c40 20 5a 31 3d 5a 31 2d 31 0d 1d 2e 17 e7 20 53 32 | Z1=Z1-1..... S2|
00004c50 2d 5a 32 3c 30 20 8c 20 5a 32 3d 5a 32 2d 31 0d |-Z2<0 . Z2=Z2-1.|
00004c60 1d 38 1f 41 24 3d 22 22 20 3a 20 f2 63 68 65 63 |.8.A$="" : .chec|
00004c70 6b 20 3a 20 e7 20 5a 33 3d 30 20 8c 20 e1 0d 1d |k : . Z3=0 . ...|
00004c80 42 1a 51 24 28 4b 28 49 25 2c 31 29 2c 4b 28 49 |B.Q$(K(I%,1),K(I|
00004c90 25 2c 32 29 29 3d 22 22 0d 1d 4c 31 4b 28 49 25 |%,2))=""..L1K(I%|
00004ca0 2c 31 29 3d 5a 31 20 3a 20 4b 28 49 25 2c 32 29 |,1)=Z1 : K(I%,2)|
00004cb0 3d 5a 32 20 3a 20 51 24 28 5a 31 2c 5a 32 29 3d |=Z2 : Q$(Z1,Z2)=|
00004cc0 22 6b 6c 69 6e 67 6f 6e 22 0d 1d 56 05 e1 0d 1d |"klingon"..V....|
00004cd0 60 05 3a 0d 1d 6a 0b dd 20 a4 44 28 44 29 0d 1d |`.:..j.. .D(D)..|
00004ce0 74 25 3d b6 28 28 4b 28 49 25 2c 31 29 2d 53 31 |t%=.((K(I%,1)-S1|
00004cf0 29 5e 32 2b 28 4b 28 49 25 2c 32 29 2d 53 32 29 |)^2+(K(I%,2)-S2)|
00004d00 5e 32 29 0d 1d 7e 05 3a 0d 1d 88 0e dd 20 f2 6d |^2)..~.:..... .m|
00004d10 79 73 74 65 72 79 0d 1d 92 24 45 39 3d b3 28 31 |ystery...$E9=.(1|
00004d20 29 20 3a 20 e7 20 45 39 3c 2e 32 20 84 20 45 39 |) : . E9<.2 . E9|
00004d30 3e 2e 36 20 8c 20 8d 74 52 5d 0d 1d 9c 18 45 3d |>.6 . .tR]....E=|
00004d40 a8 28 45 2a 45 39 2b 31 29 20 3a 20 4d 59 53 25 |.(E*E9+1) : MYS%|
00004d50 3d b9 0d 1d a6 3a f2 70 72 69 6e 74 65 72 28 32 |=....:.printer(2|
00004d60 2c 22 57 22 2c 22 53 43 49 45 4e 43 45 20 4f 46 |,"W","SCIENCE OF|
00004d70 46 49 43 45 52 20 52 45 50 4f 52 54 49 4e 47 3a |FICER REPORTING:|
00004d80 22 29 20 3a 20 57 3d a6 28 34 30 29 0d 1d b0 3e |") : W=.(40)...>|
00004d90 f2 70 72 69 6e 74 65 72 28 32 2c 22 59 22 2c 22 |.printer(2,"Y","|
00004da0 41 20 4d 59 53 54 45 52 59 20 50 4f 57 45 52 20 |A MYSTERY POWER |
00004db0 44 52 41 49 4e 20 48 41 53 20 4f 43 43 55 52 52 |DRAIN HAS OCCURR|
00004dc0 45 44 20 2e 2e 2e 2e 2e 22 29 0d 1d ba 1a f2 75 |ED .....").....u|
00004dd0 70 64 61 74 65 42 61 6e 6b 73 20 3a 20 57 3d a6 |pdateBanks : W=.|
00004de0 28 34 30 29 0d 1d c4 42 f2 70 72 69 6e 74 65 72 |(40)...B.printer|
00004df0 28 32 2c 22 52 22 2c 22 4f 4e 4c 59 20 22 2b c3 |(2,"R","ONLY "+.|
00004e00 28 45 29 2b 22 20 55 4e 49 54 53 20 4f 46 20 50 |(E)+" UNITS OF P|
00004e10 4f 57 45 52 20 52 45 4d 41 49 4e 49 4e 47 20 2e |OWER REMAINING .|
00004e20 2e 2e 2e 2e 22 29 0d 1d ce 05 e1 0d 1d d8 05 3a |....").........:|
00004e30 0d 1d e2 10 dd 20 f2 64 69 6c 69 74 68 69 75 6d |..... .dilithium|
00004e40 0d 1d ec 36 f2 70 72 69 6e 74 65 72 28 32 2c 22 |...6.printer(2,"|
00004e50 57 22 2c 22 45 4e 47 49 4e 45 45 52 49 4e 47 20 |W","ENGINEERING |
00004e60 52 45 50 4f 52 54 49 4e 47 3a 22 29 20 3a 20 57 |REPORTING:") : W|
00004e70 3d a6 28 34 30 29 0d 1d f6 41 f2 70 72 69 6e 74 |=.(40)...A.print|
00004e80 65 72 28 32 2c 22 59 22 2c 22 44 49 4c 49 54 48 |er(2,"Y","DILITH|
00004e90 49 55 4d 20 43 52 59 53 54 41 4c 53 20 53 54 4f |IUM CRYSTALS STO|
00004ea0 4c 45 4e 20 42 59 20 49 4e 54 52 55 44 45 52 20 |LEN BY INTRUDER |
00004eb0 2e 2e 2e 2e 2e 22 29 0d 1e 00 20 44 28 37 29 3d |.....")... D(7)=|
00004ec0 2d 31 45 32 20 3a 20 44 49 4c 25 3d b9 20 3a 20 |-1E2 : DIL%=. : |
00004ed0 57 3d a6 28 34 30 29 0d 1e 0a 3d f2 70 72 69 6e |W=.(40)...=.prin|
00004ee0 74 65 72 28 32 2c 22 52 22 2c 22 4e 4f 20 50 4f |ter(2,"R","NO PO|
00004ef0 57 45 52 20 46 4f 52 20 57 41 52 50 20 44 52 49 |WER FOR WARP DRI|
00004f00 56 45 20 2e 2e 2e 2e 2e 22 29 20 3a 20 57 3d a6 |VE .....") : W=.|
00004f10 28 34 30 29 0d 1e 14 3a f2 70 72 69 6e 74 65 72 |(40)...:.printer|
00004f20 28 32 2c 22 52 22 2c 22 52 45 54 55 52 4e 20 54 |(2,"R","RETURN T|
00004f30 4f 20 53 54 41 52 42 41 53 45 20 46 4f 52 20 52 |O STARBASE FOR R|
00004f40 45 50 41 49 52 53 20 2e 2e 2e 2e 2e 22 29 0d 1e |EPAIRS .....")..|
00004f50 1e 05 e1 0d 1e 28 05 3a 0d 1e 32 0e dd 20 f2 6e |.....(.:..2.. .n|
00004f60 65 75 74 72 6f 6e 0d 1e 3c 3a f2 70 72 69 6e 74 |eutron..<:.print|
00004f70 65 72 28 32 2c 22 57 22 2c 22 53 43 49 45 4e 43 |er(2,"W","SCIENC|
00004f80 45 20 4f 46 46 49 43 45 52 20 52 45 50 4f 52 54 |E OFFICER REPORT|
00004f90 49 4e 47 3a 22 29 20 3a 20 57 3d a6 28 34 30 29 |ING:") : W=.(40)|
00004fa0 0d 1e 46 40 f2 70 72 69 6e 74 65 72 28 32 2c 22 |..F@.printer(2,"|
00004fb0 59 22 2c 22 43 4f 4c 4c 49 53 49 4f 4e 20 57 49 |Y","COLLISION WI|
00004fc0 54 48 20 41 20 4e 45 55 54 52 4f 4e 20 4d 49 4e |TH A NEUTRON MIN|
00004fd0 45 20 48 41 53 20 4f 43 43 55 52 52 45 44 22 29 |E HAS OCCURRED")|
00004fe0 0d 1e 50 20 57 3d a6 28 34 30 29 20 3a 20 44 28 |..P W=.(40) : D(|
00004ff0 36 29 3d 2d 31 45 32 20 3a 20 4e 45 55 25 3d b9 |6)=-1E2 : NEU%=.|
00005000 0d 1e 5a 43 f2 70 72 69 6e 74 65 72 28 32 2c 22 |..ZC.printer(2,"|
00005010 52 22 2c 22 53 48 49 45 4c 44 53 20 44 49 53 41 |R","SHIELDS DISA|
00005020 42 4c 45 44 20 2d 20 4e 4f 20 43 4f 4e 54 52 4f |BLED - NO CONTRO|
00005030 4c 20 41 56 41 49 4c 41 42 4c 45 20 2e 2e 2e 2e |L AVAILABLE ....|
00005040 2e 22 29 0d 1e 64 44 57 3d a6 28 34 30 29 20 3a |.")..dDW=.(40) :|
00005050 20 f2 70 72 69 6e 74 65 72 28 32 2c 22 52 22 2c | .printer(2,"R",|
00005060 22 52 45 54 55 52 4e 20 54 4f 20 53 54 41 52 42 |"RETURN TO STARB|
00005070 41 53 45 20 46 4f 52 20 52 45 50 41 49 52 53 20 |ASE FOR REPAIRS |
00005080 2e 2e 2e 2e 2e 22 29 0d 1e 6e 05 e1 0d 1e 78 05 |.....")..n....x.|
00005090 3a 0d 1e 82 08 dd f2 58 59 0d 1e 8c 2d 58 31 3d |:......XY...-X1=|
000050a0 43 28 43 31 2c 31 29 2b 28 43 28 43 31 2b 31 2c |C(C1,1)+(C(C1+1,|
000050b0 31 29 2d 43 28 43 31 2c 31 29 29 2a 28 43 31 2d |1)-C(C1,1))*(C1-|
000050c0 a8 28 43 31 29 29 0d 1e 96 2d 58 32 3d 43 28 43 |.(C1))...-X2=C(C|
000050d0 31 2c 32 29 2b 28 43 28 43 31 2b 31 2c 32 29 2d |1,2)+(C(C1+1,2)-|
000050e0 43 28 43 31 2c 32 29 29 2a 28 43 31 2d a8 28 43 |C(C1,2))*(C1-.(C|
000050f0 31 29 29 0d 1e a0 05 e1 0d 1e aa 05 3a 0d 1e b4 |1)).........:...|
00005100 0e dd 20 f2 70 6f 69 6e 74 65 72 0d 1e be 0e de |.. .pointer.....|
00005110 20 44 61 74 61 20 34 30 30 0d 1e c8 2d ff 20 22 | Data 400...-. "|
00005120 4c 4f 41 44 20 3c 53 74 61 72 54 72 65 6b 24 44 |LOAD <StarTrek$D|
00005130 69 72 3e 2e 50 6f 69 6e 74 65 72 20 22 2b c3 7e |ir>.Pointer "+.~|
00005140 28 44 61 74 61 29 0d 1e d2 22 44 61 74 61 3f 26 |(Data)..."Data?&|
00005150 30 31 3d 32 20 3a 20 44 61 74 61 21 26 30 36 3d |01=2 : Data!&06=|
00005160 44 61 74 61 2b 26 30 41 0d 1e dc 18 c8 99 20 22 |Data+&0A...... "|
00005170 4f 53 5f 57 6f 72 64 22 2c 32 31 2c 44 61 74 61 |OS_Word",21,Data|
00005180 0d 1e e6 0f ff 20 22 50 4f 49 4e 54 45 52 22 0d |..... "POINTER".|
00005190 1e f0 18 c8 97 20 c8 93 20 30 2c 31 32 30 2c 31 |..... .. 0,120,1|
000051a0 32 38 30 2c 32 30 30 0d 1e fa 14 c8 97 20 fb 20 |280,200...... . |
000051b0 31 2c 32 34 30 2c 31 39 32 2c 30 0d 1f 04 12 c8 |1,240,192,0.....|
000051c0 97 20 fb 20 33 2c 30 2c 30 2c 32 32 34 0d 1f 0e |. . 3,0,0,224...|
000051d0 0a c8 97 20 ee 20 32 0d 1f 18 05 e1 0d 1f 22 05 |... . 2.......".|
000051e0 3a 0d 1f 2c 0c dd 20 f2 73 65 74 75 70 0d 1f 36 |:..,.. .setup..6|
000051f0 3b de 20 47 28 39 2c 39 29 2c 5a 28 39 2c 39 29 |;. G(9,9),Z(9,9)|
00005200 2c 43 28 39 2c 32 29 2c 4b 28 33 2c 33 29 2c 4e |,C(9,2),K(3,3),N|
00005210 28 33 29 2c 44 28 31 32 29 2c 51 24 28 39 2c 39 |(3),D(12),Q$(9,9|
00005220 29 2c 44 24 28 31 32 29 0d 1f 40 25 43 28 31 2c |),D$(12)..@%C(1,|
00005230 31 29 3d 2d 31 20 3a 20 43 28 32 2c 31 29 3d 2d |1)=-1 : C(2,1)=-|
00005240 31 20 3a 20 43 28 37 2c 32 29 3d 2d 31 0d 1f 4a |1 : C(7,2)=-1..J|
00005250 25 43 28 38 2c 31 29 3d 2d 31 20 3a 20 43 28 38 |%C(8,1)=-1 : C(8|
00005260 2c 32 29 3d 2d 31 20 3a 20 43 28 36 2c 32 29 3d |,2)=-1 : C(6,2)=|
00005270 2d 31 0d 1f 54 24 43 28 39 2c 31 29 3d 2d 31 20 |-1..T$C(9,1)=-1 |
00005280 3a 20 43 28 31 2c 32 29 3d 30 20 20 3a 20 43 28 |: C(1,2)=0 : C(|
00005290 33 2c 31 29 3d 30 0d 1f 5e 24 43 28 35 2c 32 29 |3,1)=0..^$C(5,2)|
000052a0 3d 30 20 20 3a 20 43 28 37 2c 31 29 3d 30 20 20 |=0 : C(7,1)=0 |
000052b0 3a 20 43 28 39 2c 32 29 3d 30 0d 1f 68 24 43 28 |: C(9,2)=0..h$C(|
000052c0 32 2c 32 29 3d 31 20 20 3a 20 43 28 33 2c 32 29 |2,2)=1 : C(3,2)|
000052d0 3d 31 20 20 3a 20 43 28 34 2c 31 29 3d 31 0d 1f |=1 : C(4,1)=1..|
000052e0 72 24 43 28 34 2c 32 29 3d 31 20 20 3a 20 43 28 |r$C(4,2)=1 : C(|
000052f0 35 2c 31 29 3d 31 20 20 3a 20 43 28 36 2c 31 29 |5,1)=1 : C(6,1)|
00005300 3d 31 0d 1f 7c 27 f7 20 8d 74 46 5f 20 3a 20 e3 |=1..|'. .tF_ : .|
00005310 20 49 25 3d 31 20 b8 20 31 32 20 3a 20 f3 20 44 | I%=1 . 12 : . D|
00005320 24 28 49 25 29 20 3a 20 ed 0d 1f 86 40 dc 20 53 |$(I%) : ....@. S|
00005330 48 4f 52 54 20 52 41 4e 47 45 20 53 45 4e 53 4f |HORT RANGE SENSO|
00005340 52 53 2c 4c 4f 4e 47 20 52 41 4e 47 45 20 53 45 |RS,LONG RANGE SE|
00005350 4e 53 4f 52 53 2c 48 59 50 45 52 50 52 4f 42 45 |NSORS,HYPERPROBE|
00005360 20 4c 41 55 4e 43 48 45 52 0d 1f 90 33 dc 20 50 | LAUNCHER...3. P|
00005370 48 41 53 45 52 20 43 4f 4e 54 52 4f 4c 2c 50 48 |HASER CONTROL,PH|
00005380 4f 54 4f 4e 20 54 55 42 45 53 2c 44 45 46 4c 45 |OTON TUBES,DEFLE|
00005390 43 54 4f 52 20 43 4f 4e 54 52 4f 4c 0d 1f 9a 31 |CTOR CONTROL...1|
000053a0 dc 20 57 41 52 50 20 45 4e 47 49 4e 45 53 2c 44 |. WARP ENGINES,D|
000053b0 41 4d 41 47 45 20 43 4f 4e 54 52 4f 4c 2c 43 4f |AMAGE CONTROL,CO|
000053c0 4d 42 41 54 20 43 4f 4d 50 55 54 45 52 0d 1f a4 |MBAT COMPUTER...|
000053d0 37 dc 20 4e 41 56 49 47 41 54 49 4f 4e 20 43 4f |7. NAVIGATION CO|
000053e0 4d 50 55 54 45 52 2c 43 45 4e 54 52 41 4c 20 43 |MPUTER,CENTRAL C|
000053f0 4f 4d 50 55 54 45 52 2c 4c 49 46 45 20 53 55 50 |OMPUTER,LIFE SUP|
00005400 50 4f 52 54 0d 1f ae 05 e1 0d 1f b8 05 3a 0d 1f |PORT.........:..|
00005410 c2 0b dd 20 f2 69 6e 69 74 0d 1f cc 2f 54 3d 28 |... .init.../T=(|
00005420 a8 28 28 b3 28 31 29 2b 33 29 2a 31 45 34 29 29 |.((.(1)+3)*1E4))|
00005430 2f 31 30 20 3a 20 54 30 3d 54 20 3a 20 4b 39 3d |/10 : T0=T : K9=|
00005440 30 20 3a 20 42 39 3d 30 0d 1f d6 2c 54 39 3d 32 |0 : B9=0...,T9=2|
00005450 35 2b a8 28 b3 28 31 30 29 29 20 3a 20 54 38 3d |5+.(.(10)) : T8=|
00005460 54 39 2b 54 20 3a 20 51 34 3d 30 20 3a 20 4d 41 |T9+T : Q4=0 : MA|
00005470 50 25 3d 30 0d 1f e0 39 53 39 3d 32 30 30 20 3a |P%=0...9S9=200 :|
00005480 20 45 30 3d 34 30 30 30 20 3a 20 50 30 3d 31 30 | E0=4000 : P0=10|
00005490 20 3a 20 50 3d 50 30 20 3a 20 45 3d 45 30 20 3a | : P=P0 : E=E0 :|
000054a0 20 45 31 3d 45 2b 31 20 3a 20 53 3d 30 0d 1f ea | E1=E+1 : S=0...|
000054b0 20 44 28 29 3d 34 20 3a 20 47 28 29 3d 30 20 3a | D()=4 : G()=0 :|
000054c0 20 5a 28 29 3d 30 20 3a 20 44 25 3d 30 0d 1f f4 | Z()=0 : D%=0...|
000054d0 1b e3 20 49 25 3d 31 20 b8 20 38 20 3a 20 e3 20 |.. I%=1 . 8 : . |
000054e0 4a 25 3d 31 20 b8 20 38 0d 1f fe 12 52 31 3d b3 |J%=1 . 8....R1=.|
000054f0 28 31 29 20 3a 20 4b 33 3d 30 0d 20 08 12 e7 20 |(1) : K3=0. ... |
00005500 52 31 3e 2e 38 20 8c 20 4b 33 3d 31 0d 20 12 13 |R1>.8 . K3=1. ..|
00005510 e7 20 52 31 3e 2e 39 35 20 8c 20 4b 33 3d 32 0d |. R1>.95 . K3=2.|
00005520 20 1c 13 e7 20 52 31 3e 2e 39 38 20 8c 20 4b 33 | ... R1>.98 . K3|
00005530 3d 33 0d 20 26 2f 4b 39 3d 4b 39 2b 4b 33 20 3a |=3. &/K9=K9+K3 :|
00005540 20 52 31 3d b3 28 31 29 20 3a 20 42 33 3d 30 20 | R1=.(1) : B3=0 |
00005550 3a 20 e7 20 52 31 3e 2e 39 36 20 8c 20 42 33 3d |: . R1>.96 . B3=|
00005560 31 0d 20 30 31 42 39 3d 42 39 2b 42 33 20 3a 20 |1. 01B9=B9+B3 : |
00005570 53 33 3d b3 28 38 29 20 3a 20 47 28 49 25 2c 4a |S3=.(8) : G(I%,J|
00005580 25 29 3d 4b 33 2a 31 30 30 2b 42 33 2a 31 30 2b |%)=K3*100+B3*10+|
00005590 53 33 0d 20 3a 09 ed 20 3a 20 ed 0d 20 44 25 e7 |S3. :.. : .. D%.|
000055a0 20 42 39 3c 3d 30 20 8c 20 47 28 36 2c 33 29 3d | B9<=0 . G(6,3)=|
000055b0 47 28 36 2c 33 29 2b 31 30 20 3a 20 42 39 3d 31 |G(6,3)+10 : B9=1|
000055c0 0d 20 4e 29 51 31 3d b3 28 38 29 20 3a 20 51 32 |. N)Q1=.(8) : Q2|
000055d0 3d b3 28 38 29 20 3a 20 53 31 3d b3 28 38 29 20 |=.(8) : S1=.(8) |
000055e0 3a 20 53 32 3d b3 28 38 29 0d 20 58 2d 44 65 61 |: S2=.(8). X-Dea|
000055f0 64 25 3d a3 20 3a 20 4d 59 53 25 3d a3 20 3a 20 |d%=. : MYS%=. : |
00005600 44 49 4c 25 3d a3 20 3a 20 4e 45 55 25 3d a3 20 |DIL%=. : NEU%=. |
00005610 3a 20 56 25 3d 30 0d 20 62 05 e1 0d 20 6c 05 3a |: V%=0. b... l.:|
00005620 0d 20 76 17 dd 20 f2 70 72 69 6e 74 65 72 28 61 |. v.. .printer(a|
00005630 2c 63 24 2c 61 24 29 0d 20 80 15 ea 20 42 2c 42 |,c$,a$). ... B,B|
00005640 24 2c 58 2c 59 20 3a 20 58 3d 32 38 0d 20 8a 0a |$,X,Y : X=28. ..|
00005650 c8 8e 20 61 20 ca 0d 20 94 1b c9 20 31 20 3a 20 |.. a .. ... 1 : |
00005660 59 3d 38 32 34 20 3a 20 f2 63 6c 65 61 72 28 31 |Y=824 : .clear(1|
00005670 29 0d 20 9e 1b c9 20 32 20 3a 20 59 3d 32 34 20 |). ... 2 : Y=24 |
00005680 20 3a 20 f2 63 6c 65 61 72 28 36 29 0d 20 a8 05 | : .clear(6). ..|
00005690 cb 0d 20 b2 09 e6 20 38 2c 30 0d 20 bc 1f e3 20 |.. ... 8,0. ... |
000056a0 42 3d 31 20 b8 20 a9 28 61 24 29 20 3a 20 42 24 |B=1 . .(a$) : B$|
000056b0 3d c1 61 24 2c 42 2c 31 29 0d 20 c6 1d e7 20 97 |=.a$,B,1). ... .|
000056c0 28 42 24 29 3c 3e 31 33 20 80 20 97 28 42 24 29 |(B$)<>13 . .(B$)|
000056d0 3c 3e 33 32 20 8c 0d 20 d0 33 20 20 20 20 20 3a |<>32 .. .3 :|
000056e0 20 c8 99 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 | .. "OS_SpriteOp|
000056f0 22 2c 32 39 30 2c 53 70 72 69 74 65 25 2c 63 24 |",290,Sprite%,c$|
00005700 2b 42 24 2c 58 2c 59 2c 30 0d 20 da 1a 20 20 20 |+B$,X,Y,0. .. |
00005710 20 20 3a 20 e7 20 42 24 3d 22 29 22 20 8c 20 58 | : . B$=")" . X|
00005720 2b 3d 38 0d 20 e4 24 20 20 20 20 20 3a 20 e7 20 |+=8. .$ : . |
00005730 42 24 3d 22 4d 22 20 84 20 42 24 3d 22 57 22 20 |B$="M" . B$="W" |
00005740 8c 20 58 2b 3d 31 36 0d 20 ee 2d 20 20 20 20 20 |. X+=16. .- |
00005750 3a 20 e7 20 42 24 3d 22 49 22 20 84 20 42 24 3d |: . B$="I" . B$=|
00005760 22 2e 22 20 84 20 42 24 3d 22 3a 22 20 8c 20 58 |"." . B$=":" . X|
00005770 2d 3d 31 36 0d 20 f8 05 cd 0d 21 02 12 58 2b 3d |-=16. ....!..X+=|
00005780 33 30 20 3a 20 57 3d a6 28 36 29 0d 21 0c 05 ed |30 : W=.(6).!...|
00005790 0d 21 16 05 e1 0d 21 20 05 3a 0d 21 2a 14 dd 20 |.!....! .:.!*.. |
000057a0 f2 6c 6f 6e 67 52 61 6e 67 65 53 63 61 6e 0d 21 |.longRangeScan.!|
000057b0 34 1b ea 20 41 2c 42 2c 43 2c 58 2c 59 20 3a 20 |4.. A,B,C,X,Y : |
000057c0 f2 63 6c 65 61 72 28 33 29 0d 21 3e 0e e7 20 44 |.clear(3).!>.. D|
000057d0 28 32 29 3c 30 20 8c 0d 21 48 36 20 20 20 20 20 |(2)<0 ..!H6 |
000057e0 3a 20 f2 74 65 78 74 28 33 30 38 2c 37 30 38 2c |: .text(308,708,|
000057f0 22 52 22 2c 22 54 48 45 20 4c 4f 4e 47 20 52 41 |"R","THE LONG RA|
00005800 4e 47 45 20 53 45 4e 53 4f 52 53 22 29 0d 21 52 |NGE SENSORS").!R|
00005810 35 20 20 20 20 20 3a 20 f2 74 65 78 74 28 33 30 |5 : .text(30|
00005820 38 2c 36 35 36 2c 22 52 22 2c 22 41 52 45 20 44 |8,656,"R","ARE D|
00005830 41 4d 41 47 45 44 20 2e 2e 2e 2e 2e 22 29 20 3a |AMAGED .....") :|
00005840 20 e1 0d 21 5c 05 cd 0d 21 66 1b 59 3d 36 36 34 | ..!\...!f.Y=664|
00005850 20 3a 20 e3 20 41 3d 51 31 2d 31 20 b8 20 51 31 | : . A=Q1-1 . Q1|
00005860 2b 31 0d 21 70 24 58 3d 33 32 38 20 3a 20 4e 28 |+1.!p$X=328 : N(|
00005870 31 29 3d 30 20 3a 20 4e 28 32 29 3d 30 20 3a 20 |1)=0 : N(2)=0 : |
00005880 4e 28 33 29 3d 30 0d 21 7a 13 e3 20 42 3d 51 32 |N(3)=0.!z.. B=Q2|
00005890 2d 31 20 b8 20 51 32 2b 31 0d 21 84 3e e7 20 41 |-1 . Q2+1.!.>. A|
000058a0 3e 30 20 80 20 41 3c 39 20 80 20 42 3e 30 20 80 |>0 . A<9 . B>0 .|
000058b0 20 42 3c 39 20 8c 20 4e 28 42 2d 51 32 2b 32 29 | B<9 . N(B-Q2+2)|
000058c0 3d 47 28 41 2c 42 29 20 3a 20 5a 28 41 2c 42 29 |=G(A,B) : Z(A,B)|
000058d0 3d 47 28 41 2c 42 29 0d 21 8e 05 ed 0d 21 98 0d |=G(A,B).!....!..|
000058e0 e3 20 43 3d 31 20 b8 20 33 0d 21 a2 1a e6 20 38 |. C=1 . 3.!... 8|
000058f0 20 3a 20 c8 93 20 c8 90 20 58 2c 59 2c 32 30 38 | : .. .. X,Y,208|
00005900 2c 38 34 0d 21 ac 29 e7 20 41 3d 51 31 20 80 20 |,84.!.). A=Q1 . |
00005910 43 3d 32 20 8c 20 e6 20 33 20 3a 20 c8 93 20 c8 |C=2 . . 3 : .. .|
00005920 90 20 58 2c 59 2c 32 30 38 2c 38 34 0d 21 b6 1e |. X,Y,208,84.!..|
00005930 e6 20 30 20 3a 20 c8 93 20 c8 90 20 58 2b 34 2c |. 0 : .. .. X+4,|
00005940 59 2b 34 2c 32 30 30 2c 37 36 0d 21 c0 33 e7 20 |Y+4,200,76.!.3. |
00005950 4e 28 43 29 3d 30 20 20 8c 20 f2 74 65 78 74 28 |N(C)=0 . .text(|
00005960 58 2b 32 36 2c 59 2b 31 32 2c 22 57 22 2c 22 20 |X+26,Y+12,"W"," |
00005970 20 20 22 29 20 3a 20 e5 20 8d 64 7c 61 0d 21 ca | ") : . .d|a.!.|
00005980 35 e7 20 4e 28 43 29 3d 2d 31 20 8c 20 f2 74 65 |5. N(C)=-1 . .te|
00005990 78 74 28 58 2b 33 32 2c 59 2b 32 34 2c 22 59 22 |xt(X+32,Y+24,"Y"|
000059a0 2c 22 2a 20 2a 20 2a 22 29 20 3a 20 e5 20 8d 64 |,"* * *") : . .d|
000059b0 7c 61 0d 21 d4 17 71 24 3d c2 c3 28 4e 28 43 29 ||a.!..q$=..(N(C)|
000059c0 2b 31 30 30 30 29 2c 33 29 0d 21 de 28 6b 24 3d |+1000),3).!.(k$=|
000059d0 c0 71 24 2c 31 29 20 20 3a 20 f2 74 65 78 74 28 |.q$,1) : .text(|
000059e0 58 2b 33 32 2c 59 2b 32 34 2c 22 52 22 2c 6b 24 |X+32,Y+24,"R",k$|
000059f0 29 0d 21 e8 29 73 24 3d c1 71 24 2c 32 2c 31 29 |).!.)s$=.q$,2,1)|
00005a00 20 3a 20 f2 74 65 78 74 28 58 2b 39 36 2c 59 2b | : .text(X+96,Y+|
00005a10 32 34 2c 22 42 22 2c 73 24 29 0d 21 f2 28 70 24 |24,"B",s$).!.(p$|
00005a20 3d c2 71 24 2c 31 29 20 3a 20 f2 74 65 78 74 28 |=.q$,1) : .text(|
00005a30 58 2b 31 36 30 2c 59 2b 32 34 2c 22 59 22 2c 70 |X+160,Y+24,"Y",p|
00005a40 24 29 0d 21 fc 0e 58 2b 3d 32 32 30 20 3a 20 ed |$).!..X+=220 : .|
00005a50 0d 22 06 0e 59 2d 3d 39 36 20 20 3a 20 ed 0d 22 |."..Y-=96 : .."|
00005a60 10 2d f2 66 6f 6e 74 28 33 32 38 2c 34 36 30 2c |.-.font(328,460,|
00005a70 31 2c 22 31 20 2d 20 4e 55 4d 42 45 52 20 4f 46 |1,"1 - NUMBER OF|
00005a80 20 4b 4c 49 4e 47 4f 4e 53 22 29 0d 22 1a 2e f2 | KLINGONS")."...|
00005a90 66 6f 6e 74 28 33 32 38 2c 34 32 34 2c 35 2c 22 |font(328,424,5,"|
00005aa0 32 20 2d 20 4e 55 4d 42 45 52 20 4f 46 20 53 54 |2 - NUMBER OF ST|
00005ab0 41 52 42 41 53 45 53 22 29 0d 22 24 2a f2 66 6f |ARBASES")."$*.fo|
00005ac0 6e 74 28 33 32 38 2c 33 38 34 2c 33 2c 22 33 20 |nt(328,384,3,"3 |
00005ad0 2d 20 4e 55 4d 42 45 52 20 4f 46 20 53 54 41 52 |- NUMBER OF STAR|
00005ae0 53 22 29 0d 22 2e 05 e1 0d 22 38 05 3a 0d 22 42 |S")."...."8.:."B|
00005af0 12 dd 20 f2 63 6f 6d 70 75 74 65 72 4d 61 70 0d |.. .computerMap.|
00005b00 22 4c 0f ea 20 41 2c 42 2c 43 2c 58 2c 59 0d 22 |"L.. A,B,C,X,Y."|
00005b10 56 25 f2 63 6c 65 61 72 28 31 29 20 3a 20 f2 63 |V%.clear(1) : .c|
00005b20 6c 65 61 72 28 33 29 20 3a 20 f2 63 6c 65 61 72 |lear(3) : .clear|
00005b30 28 36 29 0d 22 60 0f e7 20 44 28 31 31 29 3c 30 |(6)."`.. D(11)<0|
00005b40 20 8c 0d 22 6a 37 20 20 20 20 20 3a 20 f2 74 65 | .."j7 : .te|
00005b50 78 74 28 33 30 38 2c 37 30 38 2c 22 52 22 2c 22 |xt(308,708,"R","|
00005b60 54 48 45 20 43 45 4e 54 52 41 4c 20 43 4f 4d 50 |THE CENTRAL COMP|
00005b70 55 54 45 52 20 49 53 22 29 0d 22 74 31 20 20 20 |UTER IS")."t1 |
00005b80 20 20 3a 20 f2 74 65 78 74 28 33 30 38 2c 36 35 | : .text(308,65|
00005b90 36 2c 22 52 22 2c 22 44 41 4d 41 47 45 44 20 2e |6,"R","DAMAGED .|
00005ba0 2e 2e 2e 2e 22 29 20 3a 20 e1 0d 22 7e 05 cd 0d |....") : .."~...|
00005bb0 22 88 15 59 3d 37 30 38 20 3a 20 e3 20 41 3d 30 |"..Y=708 : . A=0|
00005bc0 20 b8 20 38 0d 22 92 15 58 3d 33 30 34 20 3a 20 | . 8."..X=304 : |
00005bd0 e3 20 42 3d 30 20 b8 20 39 0d 22 9c 17 e7 20 41 |. B=0 . 9."... A|
00005be0 3e 30 20 80 20 42 3e 30 20 80 20 42 3c 39 20 8c |>0 . B>0 . B<9 .|
00005bf0 0d 22 a6 20 20 20 20 20 20 3a 20 e6 20 38 20 3a |.". : . 8 :|
00005c00 20 c8 93 20 c8 90 20 58 2c 59 2c 38 30 2c 34 34 | .. .. X,Y,80,44|
00005c10 0d 22 b0 24 20 20 20 20 20 3a 20 e6 20 30 20 3a |.".$ : . 0 :|
00005c20 20 c8 93 20 c8 90 20 58 2b 34 2c 59 2b 34 2c 37 | .. .. X+4,Y+4,7|
00005c30 32 2c 33 36 0d 22 ba 05 cd 0d 22 c4 17 e7 20 41 |2,36."...."... A|
00005c40 3d 30 20 80 20 42 3e 30 20 80 20 42 3c 39 20 8c |=0 . B>0 . B<9 .|
00005c50 0d 22 ce 22 20 20 20 20 20 3a 20 f2 66 6f 6e 74 |."." : .font|
00005c60 28 58 2b 33 32 2c 59 2b 33 36 2c 37 2c c3 28 42 |(X+32,Y+36,7,.(B|
00005c70 29 29 0d 22 d8 05 cd 0d 22 e2 19 e7 20 41 3e 30 |))."...."... A>0|
00005c80 20 80 20 28 42 3d 30 20 84 20 42 3d 39 29 20 8c | . (B=0 . B=9) .|
00005c90 0d 22 ec 22 20 20 20 20 20 3a 20 f2 66 6f 6e 74 |."." : .font|
00005ca0 28 58 2b 31 32 2c 59 2b 33 36 2c 37 2c c3 28 41 |(X+12,Y+36,7,.(A|
00005cb0 29 29 0d 22 f6 05 cd 0d 23 00 17 e7 20 41 3e 30 |))."....#... A>0|
00005cc0 20 80 20 42 3e 30 20 80 20 42 3c 39 20 8c 0d 23 | . B>0 . B<9 ..#|
00005cd0 0a 33 e7 20 5a 28 41 2c 42 29 3d 30 20 20 8c 20 |.3. Z(A,B)=0 . |
00005ce0 f2 66 6f 6e 74 28 58 2b 31 30 2c 59 2b 33 36 2c |.font(X+10,Y+36,|
00005cf0 37 2c 22 20 20 20 22 29 20 3a 20 e5 20 8d 54 7c |7," ") : . .T||
00005d00 63 0d 23 14 33 e7 20 5a 28 41 2c 42 29 3d 2d 31 |c.#.3. Z(A,B)=-1|
00005d10 20 8c 20 f2 66 6f 6e 74 28 58 2b 31 30 2c 59 2b | . .font(X+10,Y+|
00005d20 33 36 2c 33 2c 22 2a 2a 2a 22 29 20 3a 20 e5 20 |36,3,"***") : . |
00005d30 8d 54 7c 63 0d 23 1e 11 43 3d 5a 28 41 2c 42 29 |.T|c.#..C=Z(A,B)|
00005d40 2b 31 30 30 30 0d 23 28 1f f2 66 6f 6e 74 28 58 |+1000.#(..font(X|
00005d50 2b 31 32 2c 59 2b 33 36 2c 37 2c c2 c3 28 43 29 |+12,Y+36,7,..(C)|
00005d60 2c 33 29 29 0d 23 32 05 cd 0d 23 3c 0b e7 20 42 |,3)).#2...#<.. B|
00005d70 3e 30 20 8c 0d 23 46 10 20 20 20 20 20 3a 20 58 |>0 ..#F. : X|
00005d80 2b 3d 37 38 0d 23 50 0d cc 20 3a 20 58 2b 3d 33 |+=78.#P.. : X+=3|
00005d90 36 0d 23 5a 05 cd 0d 23 64 05 ed 0d 23 6e 0b e7 |6.#Z...#d...#n..|
00005da0 20 41 3e 30 20 8c 0d 23 78 10 20 20 20 20 20 3a | A>0 ..#x. :|
00005db0 20 59 2d 3d 34 34 0d 23 82 0d cc 20 3a 20 59 2d | Y-=44.#... : Y-|
00005dc0 3d 34 30 0d 23 8c 05 cd 0d 23 96 05 ed 0d 23 a0 |=40.#....#....#.|
00005dd0 27 58 3d 32 36 32 2b 28 51 32 2a 37 38 29 20 3a |'X=262+(Q2*78) :|
00005de0 20 59 3d 37 31 32 2d 28 51 31 2a 34 34 29 20 3a | Y=712-(Q1*44) :|
00005df0 20 e6 20 33 0d 23 aa 38 c8 93 20 58 2c 59 2c 37 | . 3.#.8.. X,Y,7|
00005e00 38 2c 34 34 20 3a 20 86 20 58 2b 32 2c 59 2c 58 |8,44 : . X+2,Y,X|
00005e10 2b 32 2c 59 2b 34 34 20 3a 20 86 20 58 2b 38 30 |+2,Y+44 : . X+80|
00005e20 2c 59 2c 58 2b 38 30 2c 59 2b 34 34 0d 23 b4 05 |,Y,X+80,Y+44.#..|
00005e30 e1 0d 23 be 05 3a 0d 23 c8 21 dd 20 a4 69 6e 70 |..#..:.#.!. .inp|
00005e40 75 74 28 78 25 2c 79 25 2c 78 31 2c 79 31 2c 63 |ut(x%,y%,x1,y1,c|
00005e50 25 2c 61 24 2c 6e 29 0d 23 d2 21 f2 66 6f 6e 74 |%,a$,n).#.!.font|
00005e60 28 78 25 2c 79 25 2c 63 25 2c 61 24 29 20 3a 20 |(x%,y%,c%,a$) : |
00005e70 54 65 6d 70 24 3d 22 22 0d 23 dc 18 f5 20 3a 20 |Temp$="".#... : |
00005e80 f5 20 3a 20 47 3d a5 20 3a 20 fd 20 47 3e 31 32 |. : G=. : . G>12|
00005e90 0d 23 e6 30 e7 20 a7 22 30 31 32 33 34 35 36 37 |.#.0. ."01234567|
00005ea0 38 39 2e 22 2c bd 28 47 29 29 3c 3e 30 20 8c 20 |89.",.(G))<>0 . |
00005eb0 54 65 6d 70 24 3d 54 65 6d 70 24 2b bd 28 47 29 |Temp$=Temp$+.(G)|
00005ec0 0d 23 f0 26 e7 20 47 3d 31 32 37 20 8c 20 54 65 |.#.&. G=127 . Te|
00005ed0 6d 70 24 3d c0 54 65 6d 70 24 2c a9 28 54 65 6d |mp$=.Temp$,.(Tem|
00005ee0 70 24 29 2d 31 29 0d 23 fa 31 e7 20 a9 28 54 65 |p$)-1).#.1. .(Te|
00005ef0 6d 70 24 29 3e 6e 20 8c 20 ef 20 37 20 3a 20 54 |mp$)>n . . 7 : T|
00005f00 65 6d 70 24 3d c0 54 65 6d 70 24 2c a9 28 54 65 |emp$=.Temp$,.(Te|
00005f10 6d 70 24 29 2d 31 29 0d 24 04 19 e7 20 54 65 6d |mp$)-1).$... Tem|
00005f20 70 24 3c 22 22 20 8c 20 54 65 6d 70 24 3d 22 22 |p$<"" . Temp$=""|
00005f30 0d 24 0e 20 e6 20 30 20 3a 20 c8 93 20 c8 90 20 |.$. . 0 : .. .. |
00005f40 78 31 2c 79 31 2d 33 32 2c 6e 2a 32 30 2c 33 32 |x1,y1-32,n*20,32|
00005f50 0d 24 18 32 e7 20 54 65 6d 70 24 3e 22 22 20 80 |.$.2. Temp$>"" .|
00005f60 20 54 65 6d 70 24 3c bd 31 32 37 20 8c 20 f2 66 | Temp$<.127 . .f|
00005f70 6f 6e 74 28 78 31 2c 79 31 2c 31 2c 54 65 6d 70 |ont(x1,y1,1,Temp|
00005f80 24 29 0d 24 22 1c fd 20 47 3d 31 33 20 3a 20 e7 |$).$".. G=13 : .|
00005f90 20 54 65 6d 70 24 3d 22 22 20 8c 20 3d 30 0d 24 | Temp$="" . =0.$|
00005fa0 2c 0d 3d bb 28 54 65 6d 70 24 29 0d 24 36 05 3a |,.=.(Temp$).$6.:|
00005fb0 0d 24 40 22 dd 20 a4 69 6e 70 75 74 32 28 78 25 |.$@". .input2(x%|
00005fc0 2c 79 25 2c 78 31 2c 79 31 2c 63 25 2c 61 24 2c |,y%,x1,y1,c%,a$,|
00005fd0 6e 29 0d 24 4a 21 f2 66 6f 6e 74 28 78 25 2c 79 |n).$J!.font(x%,y|
00005fe0 25 2c 63 25 2c 61 24 29 20 3a 20 54 65 6d 70 24 |%,c%,a$) : Temp$|
00005ff0 3d 22 22 0d 24 54 18 f5 20 3a 20 f5 20 3a 20 47 |="".$T.. : . : G|
00006000 3d a5 20 3a 20 fd 20 47 3e 31 32 0d 24 5e 40 e7 |=. : . G>12.$^@.|
00006010 20 a7 22 41 42 43 44 45 46 47 48 49 4a 4b 4c 4d | ."ABCDEFGHIJKLM|
00006020 4e 4f 50 51 52 53 54 55 56 57 58 59 5a 20 22 2c |NOPQRSTUVWXYZ ",|
00006030 bd 28 47 29 29 3c 3e 30 20 8c 20 54 65 6d 70 24 |.(G))<>0 . Temp$|
00006040 3d 54 65 6d 70 24 2b bd 28 47 29 0d 24 68 26 e7 |=Temp$+.(G).$h&.|
00006050 20 47 3d 31 32 37 20 8c 20 54 65 6d 70 24 3d c0 | G=127 . Temp$=.|
00006060 54 65 6d 70 24 2c a9 28 54 65 6d 70 24 29 2d 31 |Temp$,.(Temp$)-1|
00006070 29 0d 24 72 31 e7 20 a9 28 54 65 6d 70 24 29 3e |).$r1. .(Temp$)>|
00006080 6e 20 8c 20 ef 20 37 20 3a 20 54 65 6d 70 24 3d |n . . 7 : Temp$=|
00006090 c0 54 65 6d 70 24 2c a9 28 54 65 6d 70 24 29 2d |.Temp$,.(Temp$)-|
000060a0 31 29 0d 24 7c 19 e7 20 54 65 6d 70 24 3c 22 22 |1).$|.. Temp$<""|
000060b0 20 8c 20 54 65 6d 70 24 3d 22 22 0d 24 86 20 e6 | . Temp$="".$. .|
000060c0 20 30 20 3a 20 c8 93 20 c8 90 20 78 31 2c 79 31 | 0 : .. .. x1,y1|
000060d0 2d 33 32 2c 6e 2a 32 30 2c 33 32 0d 24 90 32 e7 |-32,n*20,32.$.2.|
000060e0 20 54 65 6d 70 24 3e 22 22 20 80 20 54 65 6d 70 | Temp$>"" . Temp|
000060f0 24 3c bd 31 32 37 20 8c 20 f2 66 6f 6e 74 28 78 |$<.127 . .font(x|
00006100 31 2c 79 31 2c 31 2c 54 65 6d 70 24 29 0d 24 9a |1,y1,1,Temp$).$.|
00006110 0a fd 20 47 3d 31 33 0d 24 a4 0a 3d 54 65 6d 70 |.. G=13.$..=Temp|
00006120 24 0d 24 ae 05 3a 0d 24 b8 25 dd 20 a4 69 6e 70 |$.$..:.$.%. .inp|
00006130 75 74 4e 75 6d 62 65 72 28 78 25 2c 79 25 2c 78 |utNumber(x%,y%,x|
00006140 31 2c 79 31 2c 63 24 2c 61 24 29 0d 24 c2 21 f2 |1,y1,c$,a$).$.!.|
00006150 74 65 78 74 28 78 25 2c 79 25 2c 63 24 2c 61 24 |text(x%,y%,c$,a$|
00006160 29 20 3a 20 54 65 6d 70 24 3d 22 22 0d 24 cc 18 |) : Temp$="".$..|
00006170 f5 20 3a 20 f5 20 3a 20 47 3d a5 20 3a 20 fd 20 |. : . : G=. : . |
00006180 47 3e 31 32 0d 24 d6 1f e7 20 a7 22 30 31 32 33 |G>12.$... ."0123|
00006190 34 35 36 37 38 39 2e 22 2c bd 28 47 29 29 3c 3e |456789.",.(G))<>|
000061a0 30 20 8c 0d 24 e0 1b 20 20 20 20 20 3a 20 54 65 |0 ..$.. : Te|
000061b0 6d 70 24 3d 54 65 6d 70 24 2b bd 28 47 29 0d 24 |mp$=Temp$+.(G).$|
000061c0 ea 05 cd 0d 24 f4 26 e7 20 47 3d 31 32 37 20 8c |....$.&. G=127 .|
000061d0 20 54 65 6d 70 24 3d c0 54 65 6d 70 24 2c a9 28 | Temp$=.Temp$,.(|
000061e0 54 65 6d 70 24 29 2d 31 29 0d 24 fe 19 e7 20 54 |Temp$)-1).$... T|
000061f0 65 6d 70 24 3c 22 22 20 8c 20 54 65 6d 70 24 3d |emp$<"" . Temp$=|
00006200 22 22 0d 25 08 1c e6 20 30 20 3a 20 c8 93 20 c8 |"".%... 0 : .. .|
00006210 90 20 78 31 2c 79 31 2c 31 30 38 2c 34 30 0d 25 |. x1,y1,108,40.%|
00006220 12 34 e7 20 54 65 6d 70 24 3e 22 22 20 80 20 54 |.4. Temp$>"" . T|
00006230 65 6d 70 24 3c bd 31 32 37 20 8c 20 f2 74 65 78 |emp$<.127 . .tex|
00006240 74 28 78 31 2c 79 31 2c 22 52 22 2c 54 65 6d 70 |t(x1,y1,"R",Temp|
00006250 24 29 0d 25 1c 1c fd 20 47 3d 31 33 20 3a 20 e7 |$).%... G=13 : .|
00006260 20 54 65 6d 70 24 3d 22 22 20 8c 20 3d 30 0d 25 | Temp$="" . =0.%|
00006270 26 0d 3d bb 28 54 65 6d 70 24 29 0d 25 30 05 3a |&.=.(Temp$).%0.:|
00006280 0d 25 3a 26 dd 20 a4 69 6e 70 75 74 56 61 72 69 |.%:&. .inputVari|
00006290 6f 75 73 28 78 25 2c 79 25 2c 78 31 2c 79 31 2c |ous(x%,y%,x1,y1,|
000062a0 63 24 2c 61 24 29 0d 25 44 21 f2 74 65 78 74 28 |c$,a$).%D!.text(|
000062b0 78 25 2c 79 25 2c 63 24 2c 61 24 29 20 3a 20 54 |x%,y%,c$,a$) : T|
000062c0 65 6d 70 24 3d 22 22 0d 25 4e 18 f5 20 3a 20 f5 |emp$="".%N.. : .|
000062d0 20 3a 20 47 3d a5 20 3a 20 fd 20 47 3e 31 32 0d | : G=. : . G>12.|
000062e0 25 58 39 e7 20 a7 22 30 31 32 33 34 35 36 37 38 |%X9. ."012345678|
000062f0 39 2e 41 42 43 44 45 46 47 48 49 4a 4b 4c 4d 4e |9.ABCDEFGHIJKLMN|
00006300 4f 50 51 52 53 54 55 56 57 58 59 5a 22 2c bd 28 |OPQRSTUVWXYZ",.(|
00006310 47 29 29 3c 3e 30 20 8c 0d 25 62 1b 20 20 20 20 |G))<>0 ..%b. |
00006320 20 3a 20 54 65 6d 70 24 3d 54 65 6d 70 24 2b bd | : Temp$=Temp$+.|
00006330 28 47 29 0d 25 6c 05 cd 0d 25 76 26 e7 20 47 3d |(G).%l...%v&. G=|
00006340 31 32 37 20 8c 20 54 65 6d 70 24 3d c0 54 65 6d |127 . Temp$=.Tem|
00006350 70 24 2c a9 28 54 65 6d 70 24 29 2d 31 29 0d 25 |p$,.(Temp$)-1).%|
00006360 80 19 e7 20 54 65 6d 70 24 3c 22 22 20 8c 20 54 |... Temp$<"" . T|
00006370 65 6d 70 24 3d 22 22 0d 25 8a 1c e6 20 30 20 3a |emp$="".%... 0 :|
00006380 20 c8 93 20 c8 90 20 78 31 2c 79 31 2c 31 32 38 | .. .. x1,y1,128|
00006390 2c 34 30 0d 25 94 34 e7 20 54 65 6d 70 24 3e 22 |,40.%.4. Temp$>"|
000063a0 22 20 80 20 54 65 6d 70 24 3c bd 31 32 37 20 8c |" . Temp$<.127 .|
000063b0 20 f2 74 65 78 74 28 78 31 2c 79 31 2c 22 52 22 | .text(x1,y1,"R"|
000063c0 2c 54 65 6d 70 24 29 0d 25 9e 0a fd 20 47 3d 31 |,Temp$).%... G=1|
000063d0 33 0d 25 a8 0a 3d 54 65 6d 70 24 0d 25 b2 05 3a |3.%..=Temp$.%..:|
000063e0 0d 25 bc 12 dd 20 f2 63 6f 6d 6d 61 6e 64 49 6e |.%... .commandIn|
000063f0 66 6f 0d 25 c6 1f ea 20 58 2c 59 2c 61 24 2c 62 |fo.%... X,Y,a$,b|
00006400 24 20 3a 20 58 3d 33 30 38 20 3a 20 59 3d 36 32 |$ : X=308 : Y=62|
00006410 38 0d 25 d0 30 f2 74 65 78 74 28 33 30 38 2c 37 |8.%.0.text(308,7|
00006420 30 34 2c 22 59 22 2c 22 43 4f 4d 4d 41 4e 44 20 |04,"Y","COMMAND |
00006430 42 55 54 54 4f 4e 53 20 48 45 4c 50 20 31 3a 22 |BUTTONS HELP 1:"|
00006440 29 0d 25 da 20 f7 20 8d 74 58 66 20 3a 20 e3 20 |).%. . .tXf : . |
00006450 61 3d 31 20 b8 20 35 20 3a 20 f3 20 61 24 2c 62 |a=1 . 5 : . a$,b|
00006460 24 0d 25 e4 29 c8 99 20 22 4f 53 5f 53 70 72 69 |$.%.).. "OS_Spri|
00006470 74 65 4f 70 22 2c 32 39 30 2c 53 70 72 69 74 65 |teOp",290,Sprite|
00006480 25 2c 61 24 2c 58 2c 59 2c 30 0d 25 ee 19 f2 74 |%,a$,X,Y,0.%...t|
00006490 65 78 74 28 34 30 30 2c 59 2b 38 2c 22 47 22 2c |ext(400,Y+8,"G",|
000064a0 62 24 29 0d 25 f8 0d 59 2d 3d 36 38 20 3a 20 ed |b$).%..Y-=68 : .|
000064b0 0d 26 02 0a f2 73 70 61 63 65 0d 26 0c 1d f2 63 |.&...space.&...c|
000064c0 6c 65 61 72 28 33 29 20 3a 20 58 3d 33 30 38 20 |lear(3) : X=308 |
000064d0 3a 20 59 3d 36 32 38 0d 26 16 30 f2 74 65 78 74 |: Y=628.&.0.text|
000064e0 28 33 30 38 2c 37 30 34 2c 22 59 22 2c 22 43 4f |(308,704,"Y","CO|
000064f0 4d 4d 41 4e 44 20 42 55 54 54 4f 4e 53 20 48 45 |MMAND BUTTONS HE|
00006500 4c 50 20 32 3a 22 29 0d 26 20 17 e3 20 61 3d 31 |LP 2:").& .. a=1|
00006510 20 b8 20 35 20 3a 20 f3 20 61 24 2c 62 24 0d 26 | . 5 : . a$,b$.&|
00006520 2a 29 c8 99 20 22 4f 53 5f 53 70 72 69 74 65 4f |*).. "OS_SpriteO|
00006530 70 22 2c 32 39 30 2c 53 70 72 69 74 65 25 2c 61 |p",290,Sprite%,a|
00006540 24 2c 58 2c 59 2c 30 0d 26 34 19 f2 74 65 78 74 |$,X,Y,0.&4..text|
00006550 28 34 30 30 2c 59 2b 38 2c 22 47 22 2c 62 24 29 |(400,Y+8,"G",b$)|
00006560 0d 26 3e 0d 59 2d 3d 36 38 20 3a 20 ed 0d 26 48 |.&>.Y-=68 : ..&H|
00006570 0a f2 73 70 61 63 65 0d 26 52 1d f2 63 6c 65 61 |..space.&R..clea|
00006580 72 28 33 29 20 3a 20 58 3d 33 30 38 20 3a 20 59 |r(3) : X=308 : Y|
00006590 3d 36 32 38 0d 26 5c 30 f2 74 65 78 74 28 33 30 |=628.&\0.text(30|
000065a0 38 2c 37 30 34 2c 22 59 22 2c 22 43 4f 4d 4d 41 |8,704,"Y","COMMA|
000065b0 4e 44 20 42 55 54 54 4f 4e 53 20 48 45 4c 50 20 |ND BUTTONS HELP |
000065c0 33 3a 22 29 0d 26 66 17 e3 20 61 3d 31 20 b8 20 |3:").&f.. a=1 . |
000065d0 34 20 3a 20 f3 20 61 24 2c 62 24 0d 26 70 29 c8 |4 : . a$,b$.&p).|
000065e0 99 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |. "OS_SpriteOp",|
000065f0 32 39 30 2c 53 70 72 69 74 65 25 2c 61 24 2c 58 |290,Sprite%,a$,X|
00006600 2c 59 2c 30 0d 26 7a 19 f2 74 65 78 74 28 34 30 |,Y,0.&z..text(40|
00006610 30 2c 59 2b 38 2c 22 47 22 2c 62 24 29 0d 26 84 |0,Y+8,"G",b$).&.|
00006620 0d 59 2d 3d 36 38 20 3a 20 ed 0d 26 8e 05 3a 0d |.Y-=68 : ..&..:.|
00006630 26 98 3c dc 20 73 79 73 2c 53 59 53 54 45 4d 53 |&.<. sys,SYSTEMS|
00006640 20 53 54 41 54 55 53 2c 73 74 61 2c 4d 49 53 53 | STATUS,sta,MISS|
00006650 49 4f 4e 20 53 54 41 54 55 53 2c 69 6e 73 2c 49 |ION STATUS,ins,I|
00006660 4e 53 54 52 55 43 54 49 4f 4e 53 0d 26 a2 3f dc |NSTRUCTIONS.&.?.|
00006670 20 73 72 73 2c 53 48 4f 52 54 20 52 41 4e 47 45 | srs,SHORT RANGE|
00006680 20 53 43 41 4e 2c 6d 61 70 2c 47 41 4c 41 43 54 | SCAN,map,GALACT|
00006690 49 43 20 4d 41 50 2c 6c 72 73 2c 4c 4f 4e 47 20 |IC MAP,lrs,LONG |
000066a0 52 41 4e 47 45 20 53 43 41 4e 0d 26 ac 49 dc 20 |RANGE SCAN.&.I. |
000066b0 68 79 70 2c 48 59 50 45 52 50 52 4f 42 45 20 4c |hyp,HYPERPROBE L|
000066c0 41 55 4e 43 48 45 52 2c 70 68 61 2c 45 4e 45 52 |AUNCHER,pha,ENER|
000066d0 47 59 20 50 48 41 53 4f 52 53 2c 6b 6c 69 2c 4b |GY PHASORS,kli,K|
000066e0 4c 49 4e 47 4f 4e 20 46 4f 52 43 45 20 53 54 41 |LINGON FORCE STA|
000066f0 54 55 53 0d 26 b6 48 dc 20 74 6f 72 2c 50 48 4f |TUS.&.H. tor,PHO|
00006700 54 4f 4e 20 54 4f 52 50 45 44 4f 45 53 2c 64 61 |TON TORPEDOES,da|
00006710 74 2c 54 4f 52 50 45 44 4f 20 41 49 4d 49 4e 47 |t,TORPEDO AIMING|
00006720 20 44 41 54 41 2c 64 65 66 2c 44 45 46 4c 45 43 | DATA,def,DEFLEC|
00006730 54 4f 52 20 43 4f 4e 54 52 4f 4c 0d 26 c0 33 dc |TOR CONTROL.&.3.|
00006740 20 6e 61 76 2c 4e 41 56 49 47 41 54 49 4f 4e 20 | nav,NAVIGATION |
00006750 43 4f 4d 50 55 54 45 52 2c 63 72 63 2c 43 4f 55 |COMPUTER,crc,COU|
00006760 52 53 45 20 43 41 4c 43 55 4c 41 54 4f 52 0d 26 |RSE CALCULATOR.&|
00006770 ca 05 e1 0d 26 d4 05 3a 0d 26 de 0c dd 20 f2 69 |....&..:.&... .i|
00006780 6e 74 72 6f 0d 26 e8 17 ea 20 41 24 2c 43 24 20 |ntro.&... A$,C$ |
00006790 3a 20 f2 63 6c 65 61 72 28 33 29 0d 26 f2 2a f2 |: .clear(3).&.*.|
000067a0 74 65 78 74 28 33 30 38 2c 37 30 34 2c 22 57 22 |text(308,704,"W"|
000067b0 2c 22 53 54 41 52 46 4c 45 45 54 20 4f 52 44 45 |,"STARFLEET ORDE|
000067c0 52 53 3a 22 29 0d 26 fc 34 f2 74 65 78 74 28 33 |RS:").&.4.text(3|
000067d0 30 38 2c 36 35 32 2c 22 59 22 2c 22 53 45 45 4b |08,652,"Y","SEEK|
000067e0 20 41 4e 44 20 44 45 53 54 52 4f 59 20 54 48 45 | AND DESTROY THE|
000067f0 20 22 2b c3 28 4b 39 29 29 0d 27 06 30 f2 74 65 | "+.(K9)).'.0.te|
00006800 78 74 28 33 30 38 2c 36 30 34 2c 22 59 22 2c 22 |xt(308,604,"Y","|
00006810 4b 4c 49 4e 47 4f 4e 20 53 48 49 50 53 20 54 48 |KLINGON SHIPS TH|
00006820 41 54 20 48 41 56 45 22 29 0d 27 10 32 f2 74 65 |AT HAVE").'.2.te|
00006830 78 74 28 33 30 38 2c 35 35 36 2c 22 59 22 2c 22 |xt(308,556,"Y","|
00006840 49 4e 56 41 44 45 44 20 46 45 44 45 52 41 54 49 |INVADED FEDERATI|
00006850 4f 4e 20 53 50 41 43 45 2e 22 29 0d 27 1a 34 41 |ON SPACE.").'.4A|
00006860 24 3d 22 49 53 20 22 20 3a 20 43 24 3d 22 20 22 |$="IS " : C$=" "|
00006870 20 3a 20 e7 20 42 39 3e 31 20 8c 20 41 24 3d 22 | : . B9>1 . A$="|
00006880 41 52 45 20 22 20 3a 20 43 24 3d 22 53 20 22 0d |ARE " : C$="S ".|
00006890 27 24 37 f2 74 65 78 74 28 33 30 38 2c 35 30 38 |'$7.text(308,508|
000068a0 2c 22 59 22 2c 22 54 48 45 52 45 20 22 2b 41 24 |,"Y","THERE "+A$|
000068b0 2b c3 28 42 39 29 2b 22 20 53 54 41 52 42 41 53 |+.(B9)+" STARBAS|
000068c0 45 22 2b 43 24 29 0d 27 2e 2f f2 74 65 78 74 28 |E"+C$).'./.text(|
000068d0 33 30 38 2c 34 36 30 2c 22 59 22 2c 22 41 54 20 |308,460,"Y","AT |
000068e0 59 4f 55 52 20 44 49 53 50 4f 53 41 4c 20 2d 20 |YOUR DISPOSAL - |
000068f0 41 4e 44 22 29 0d 27 38 31 f2 74 65 78 74 28 33 |AND").'81.text(3|
00006900 30 38 2c 34 31 32 2c 22 59 22 2c 22 59 4f 55 20 |08,412,"Y","YOU |
00006910 48 41 56 45 20 55 4e 54 49 4c 20 53 44 20 22 2b |HAVE UNTIL SD "+|
00006920 c3 28 54 38 29 29 0d 27 42 31 f2 74 65 78 74 28 |.(T8)).'B1.text(|
00006930 33 30 38 2c 33 36 34 2c 22 59 22 2c 22 54 4f 20 |308,364,"Y","TO |
00006940 43 4f 4d 50 4c 45 54 45 20 54 48 45 20 4d 49 53 |COMPLETE THE MIS|
00006950 53 49 4f 4e 2e 22 29 0d 27 4c 16 f2 73 70 61 63 |SION.").'L..spac|
00006960 65 20 3a 20 f2 63 6c 65 61 72 28 33 29 0d 27 56 |e : .clear(3).'V|
00006970 2e f2 74 65 78 74 28 33 30 38 2c 37 30 38 2c 22 |..text(308,708,"|
00006980 57 22 2c 22 46 4d 3a 20 53 54 41 52 46 4c 45 45 |W","FM: STARFLEE|
00006990 54 20 43 4f 4d 4d 41 4e 44 22 29 0d 27 60 2b f2 |T COMMAND").'`+.|
000069a0 74 65 78 74 28 33 30 38 2c 36 35 36 2c 22 57 22 |text(308,656,"W"|
000069b0 2c 22 54 4f 3a 20 55 53 53 20 45 4e 54 45 52 50 |,"TO: USS ENTERP|
000069c0 52 49 53 45 22 29 0d 27 6a 2e f2 74 65 78 74 28 |RISE").'j..text(|
000069d0 33 30 38 2c 35 30 30 2c 22 59 22 2c 22 47 4f 4f |308,500,"Y","GOO|
000069e0 44 20 4c 55 43 4b 20 44 55 52 49 4e 47 20 59 4f |D LUCK DURING YO|
000069f0 55 52 22 29 0d 27 74 2f f2 74 65 78 74 28 33 30 |UR").'t/.text(30|
00006a00 38 2c 34 34 38 2c 22 59 22 2c 22 4d 49 53 53 49 |8,448,"Y","MISSI|
00006a10 4f 4e 20 2e 2e 2e 20 43 4f 4d 4d 41 4e 44 45 52 |ON ... COMMANDER|
00006a20 2e 22 29 0d 27 7e 0a f2 73 70 61 63 65 0d 27 88 |.").'~..space.'.|
00006a30 05 e1 0d 27 92 05 3a 0d 27 9c 0f dd 20 f2 63 6c |...'..:.'... .cl|
00006a40 65 61 72 28 70 29 0d 27 a6 0a c8 8e 20 70 20 ca |ear(p).'.... p .|
00006a50 0d 27 b0 24 c9 20 31 20 3a 20 e6 20 30 20 3a 20 |.'.$. 1 : . 0 : |
00006a60 c8 93 20 c8 90 20 32 30 2c 38 31 36 2c 31 32 33 |.. .. 20,816,123|
00006a70 36 2c 35 32 0d 27 ba 24 c9 20 32 20 3a 20 e6 20 |6,52.'.$. 2 : . |
00006a80 30 20 3a 20 c8 93 20 c8 90 20 32 34 2c 32 36 34 |0 : .. .. 24,264|
00006a90 2c 32 30 38 2c 34 38 38 0d 27 c4 25 c9 20 33 20 |,208,488.'.%. 3 |
00006aa0 3a 20 e6 20 30 20 3a 20 c8 93 20 c8 90 20 32 39 |: . 0 : .. .. 29|
00006ab0 36 2c 33 35 32 2c 37 31 32 2c 34 30 30 0d 27 ce |6,352,712,400.'.|
00006ac0 25 c9 20 34 20 3a 20 e6 20 30 20 3a 20 c8 93 20 |%. 4 : . 0 : .. |
00006ad0 c8 90 20 36 31 36 2c 31 32 38 2c 33 38 38 2c 31 |.. 616,128,388,1|
00006ae0 30 38 0d 27 d8 26 c9 20 35 20 3a 20 e6 20 30 20 |08.'.&. 5 : . 0 |
00006af0 3a 20 c8 93 20 c8 90 20 31 30 37 36 2c 31 32 34 |: .. .. 1076,124|
00006b00 2c 31 37 34 2c 31 30 38 0d 27 e2 23 c9 20 36 20 |,174,108.'.#. 6 |
00006b10 3a 20 e6 20 30 20 3a 20 c8 93 20 c8 90 20 32 30 |: . 0 : .. .. 20|
00006b20 2c 31 36 2c 31 32 33 36 2c 35 32 0d 27 ec 24 c9 |,16,1236,52.'.$.|
00006b30 20 37 20 3a 20 e6 20 30 20 3a 20 c8 93 20 c8 90 | 7 : . 0 : .. ..|
00006b40 20 33 30 38 2c 31 32 38 2c 32 34 30 2c 34 34 0d | 308,128,240,44.|
00006b50 27 f6 05 cb 0d 28 00 05 e1 0d 28 0a 05 3a 0d 28 |'....(....(..:.(|
00006b60 14 10 dd 20 f2 75 70 64 61 74 65 50 6f 73 0d 28 |... .updatePos.(|
00006b70 1e 1f e6 20 31 34 20 3a 20 c8 93 20 c8 90 20 31 |... 14 : .. .. 1|
00006b80 37 36 2c 39 36 38 2c 31 32 30 2c 34 30 0d 28 28 |76,968,120,40.((|
00006b90 26 f2 74 65 78 74 28 31 38 34 2c 39 36 38 2c 22 |&.text(184,968,"|
00006ba0 57 22 2c c3 28 51 32 29 2b 22 2e 22 2b c3 28 51 |W",.(Q2)+"."+.(Q|
00006bb0 31 29 29 0d 28 32 1f e6 20 31 34 20 3a 20 c8 93 |1)).(2.. 14 : ..|
00006bc0 20 c8 90 20 31 37 36 2c 39 31 36 2c 31 32 30 2c | .. 176,916,120,|
00006bd0 34 30 0d 28 3c 26 f2 74 65 78 74 28 31 38 34 2c |40.(<&.text(184,|
00006be0 39 31 36 2c 22 57 22 2c c3 28 53 32 29 2b 22 2e |916,"W",.(S2)+".|
00006bf0 22 2b c3 28 53 31 29 29 0d 28 46 0f f2 75 70 64 |"+.(S1)).(F..upd|
00006c00 61 74 65 54 69 6d 65 0d 28 50 1b e7 20 4b 33 3e |ateTime.(P.. K3>|
00006c10 30 20 80 20 53 3c 32 30 30 20 80 20 44 25 3d 30 |0 . S<200 . D%=0|
00006c20 20 8c 0d 28 5a 4c 20 20 20 20 20 3a 20 f2 70 72 | ..(ZL : .pr|
00006c30 69 6e 74 65 72 28 31 2c 22 52 22 2c 22 57 41 52 |inter(1,"R","WAR|
00006c40 4e 49 4e 47 3a 20 53 48 49 45 4c 44 20 50 4f 57 |NING: SHIELD POW|
00006c50 45 52 20 4f 4e 4c 59 20 22 2b c3 28 53 29 2b 22 |ER ONLY "+.(S)+"|
00006c60 20 55 4e 49 54 53 20 2e 2e 2e 2e 2e 22 29 0d 28 | UNITS .....").(|
00006c70 64 05 cd 0d 28 6e 05 e1 0d 28 78 05 3a 0d 28 82 |d...(n...(x.:.(.|
00006c80 11 dd 20 f2 75 70 64 61 74 65 54 69 6d 65 0d 28 |.. .updateTime.(|
00006c90 8c 20 e6 20 31 34 20 3a 20 c8 93 20 c8 90 20 31 |. . 14 : .. .. 1|
00006ca0 30 32 30 2c 39 31 36 2c 32 34 30 2c 34 30 0d 28 |020,916,240,40.(|
00006cb0 96 20 f2 74 65 78 74 28 31 30 32 32 2c 39 31 36 |. .text(1022,916|
00006cc0 2c 22 57 22 2c c0 c3 28 54 29 2c 37 29 29 0d 28 |,"W",..(T),7)).(|
00006cd0 a0 15 e7 20 54 3e 54 38 20 8c 20 f2 64 65 61 64 |... T>T8 . .dead|
00006ce0 28 32 29 0d 28 aa 05 e1 0d 28 b4 05 3a 0d 28 be |(2).(....(..:.(.|
00006cf0 10 dd 20 f2 63 6f 6e 64 69 74 69 6f 6e 0d 28 c8 |.. .condition.(.|
00006d00 17 73 24 3d 22 67 72 65 65 6e 22 20 3a 20 74 24 |.s$="green" : t$|
00006d10 3d 22 47 22 0d 28 d2 24 e7 20 45 3c 45 30 2a 2e |="G".(.$. E<E0*.|
00006d20 31 20 8c 20 73 24 3d 22 79 65 6c 6c 6f 77 22 20 |1 . s$="yellow" |
00006d30 3a 20 74 24 3d 22 59 22 0d 28 dc 1e e7 20 4b 33 |: t$="Y".(... K3|
00006d40 3e 30 20 8c 20 73 24 3d 22 72 65 64 22 20 3a 20 |>0 . s$="red" : |
00006d50 74 24 3d 22 52 22 0d 28 e6 21 e7 20 44 25 3d 31 |t$="R".(.!. D%=1|
00006d60 20 8c 20 73 24 3d 22 64 6f 63 6b 65 64 22 20 3a | . s$="docked" :|
00006d70 20 74 24 3d 22 42 22 0d 28 f0 0d f2 63 6c 65 61 | t$="B".(...clea|
00006d80 72 28 37 29 0d 28 fa 18 f2 74 65 78 74 28 33 31 |r(7).(...text(31|
00006d90 32 2c 31 32 38 2c 74 24 2c 73 24 29 0d 29 04 05 |2,128,t$,s$).)..|
00006da0 e1 0d 29 0e 05 3a 0d 29 18 12 dd 20 f2 65 6e 65 |..)..:.)... .ene|
00006db0 72 67 79 42 61 6e 6b 73 0d 29 22 11 ea 20 41 2c |rgyBanks.)".. A,|
00006dc0 42 2c 43 2c 44 2c 58 2c 59 0d 29 2c 1c 41 3d 45 |B,C,D,X,Y.),.A=E|
00006dd0 2f 33 30 2e 32 35 20 3a 20 42 3d 30 20 3a 20 58 |/30.25 : B=0 : X|
00006de0 3d 31 30 38 30 0d 29 36 0c e7 20 45 3e 45 31 20 |=1080.)6.. E>E1 |
00006df0 8c 0d 29 40 0f 20 20 20 20 20 3a 20 45 31 3d 45 |..)@. : E1=E|
00006e00 0d 29 4a 05 cd 0d 29 54 22 e3 20 43 3d 31 20 b8 |.)J...)T". C=1 .|
00006e10 20 34 20 3a 20 59 3d 33 36 30 20 3a 20 e3 20 44 | 4 : Y=360 : . D|
00006e20 3d 31 20 b8 20 33 33 0d 29 5e 14 42 2b 3d 31 20 |=1 . 33.)^.B+=1 |
00006e30 3a 20 e7 20 42 3e 41 20 8c 20 e1 0d 29 68 2d c8 |: . B>A . ..)h-.|
00006e40 99 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |. "OS_SpriteOp",|
00006e50 32 39 30 2c 53 70 72 69 74 65 25 2c 22 75 6e 69 |290,Sprite%,"uni|
00006e60 74 22 2c 58 2c 59 2c 30 0d 29 72 0d 59 2b 3d 31 |t",X,Y,0.)r.Y+=1|
00006e70 32 20 3a 20 ed 0d 29 7c 0d 58 2b 3d 34 34 20 3a |2 : ..)|.X+=44 :|
00006e80 20 ed 0d 29 86 05 e1 0d 29 90 05 3a 0d 29 9a 12 | ..)....)..:.)..|
00006e90 dd 20 f2 75 70 64 61 74 65 42 61 6e 6b 73 0d 29 |. .updateBanks.)|
00006ea0 a4 11 ea 20 41 2c 42 2c 43 2c 44 2c 58 2c 59 0d |... A,B,C,D,X,Y.|
00006eb0 29 ae 1e 41 3d 45 2f 33 30 2e 32 35 20 3a 20 42 |)..A=E/30.25 : B|
00006ec0 3d 31 33 32 20 3a 20 58 3d 31 32 31 32 0d 29 b8 |=132 : X=1212.).|
00006ed0 0e e7 20 45 3d 45 31 20 8c 20 e1 0d 29 c2 0c e7 |.. E=E1 . ..)...|
00006ee0 20 45 3c 45 31 20 8c 0d 29 cc 0f 20 20 20 20 20 | E<E1 ..).. |
00006ef0 3a 20 45 31 3d 45 0d 29 d6 14 cc 20 3a 20 f2 65 |: E1=E.)... : .e|
00006f00 6e 65 72 67 79 42 61 6e 6b 73 0d 29 e0 05 cd 0d |nergyBanks.)....|
00006f10 29 ea 0d e3 20 43 3d 31 20 b8 20 34 0d 29 f4 09 |)... C=1 . 4.)..|
00006f20 59 3d 37 34 34 0d 29 fe 0e e3 20 44 3d 31 20 b8 |Y=744.)... D=1 .|
00006f30 20 33 33 0d 2a 08 14 42 2d 3d 31 20 3a 20 e7 20 | 33.*..B-=1 : . |
00006f40 42 3c 41 20 8c 20 e1 0d 2a 12 2e c8 99 20 22 4f |B<A . ..*.... "O|
00006f50 53 5f 53 70 72 69 74 65 4f 70 22 2c 32 39 30 2c |S_SpriteOp",290,|
00006f60 53 70 72 69 74 65 25 2c 22 62 6c 61 6e 6b 22 2c |Sprite%,"blank",|
00006f70 58 2c 59 2c 30 0d 2a 1c 0d 59 2d 3d 31 32 20 3a |X,Y,0.*..Y-=12 :|
00006f80 20 ed 0d 2a 26 0d 58 2d 3d 34 34 20 3a 20 ed 0d | ..*&.X-=44 : ..|
00006f90 2a 30 05 e1 0d 2a 3a 05 3a 0d 2a 44 18 dd 20 f2 |*0...*:.:.*D.. .|
00006fa0 74 65 78 74 28 78 25 2c 79 25 2c 63 24 2c 61 24 |text(x%,y%,c$,a$|
00006fb0 29 0d 2a 4e 0a ea 20 42 2c 42 24 0d 2a 58 1f e3 |).*N.. B,B$.*X..|
00006fc0 20 42 3d 31 20 b8 20 a9 28 61 24 29 20 3a 20 42 | B=1 . .(a$) : B|
00006fd0 24 3d c1 61 24 2c 42 2c 31 29 0d 2a 62 1d e7 20 |$=.a$,B,1).*b.. |
00006fe0 97 28 42 24 29 3c 3e 31 33 20 80 20 97 28 42 24 |.(B$)<>13 . .(B$|
00006ff0 29 3c 3e 33 32 20 8c 0d 2a 6c 1b 20 20 20 20 20 |)<>32 ..*l. |
00007000 3a 20 e7 20 42 24 3d 22 29 22 20 8c 20 78 25 2b |: . B$=")" . x%+|
00007010 3d 38 0d 2a 76 35 20 20 20 20 20 3a 20 c8 99 20 |=8.*v5 : .. |
00007020 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 32 39 |"OS_SpriteOp",29|
00007030 30 2c 53 70 72 69 74 65 25 2c 63 24 2b 42 24 2c |0,Sprite%,c$+B$,|
00007040 78 25 2c 79 25 2c 38 0d 2a 80 25 20 20 20 20 20 |x%,y%,8.*.% |
00007050 3a 20 e7 20 42 24 3d 22 4d 22 20 84 20 42 24 3d |: . B$="M" . B$=|
00007060 22 57 22 20 8c 20 78 25 2b 3d 31 36 0d 2a 8a 2e |"W" . x%+=16.*..|
00007070 20 20 20 20 20 3a 20 e7 20 42 24 3d 22 49 22 20 | : . B$="I" |
00007080 84 20 42 24 3d 22 2e 22 20 84 20 42 24 3d 22 3a |. B$="." . B$=":|
00007090 22 20 8c 20 78 25 2d 3d 31 36 0d 2a 94 05 cd 0d |" . x%-=16.*....|
000070a0 2a 9e 14 e7 20 42 24 3d 22 20 22 20 8c 20 78 25 |*... B$=" " . x%|
000070b0 2d 3d 32 0d 2a a8 0e 78 25 2b 3d 33 30 20 3a 20 |-=2.*..x%+=30 : |
000070c0 ed 0d 2a b2 05 e1 0d 2a bc 05 3a 0d 2a c6 17 dd |..*....*..:.*...|
000070d0 20 f2 66 6f 6e 74 28 58 2c 59 2c 63 6f 6c 2c 61 | .font(X,Y,col,a|
000070e0 24 29 0d 2a d0 0a ea 20 41 2c 62 24 0d 2a da 0f |$).*... A,b$.*..|
000070f0 ef 20 35 20 3a 20 e6 20 63 6f 6c 0d 2a e4 1f e3 |. 5 : . col.*...|
00007100 20 41 3d 31 20 b8 20 a9 28 61 24 29 20 3a 20 62 | A=1 . .(a$) : b|
00007110 24 3d c1 61 24 2c 41 2c 31 29 0d 2a ee 16 e7 20 |$=.a$,A,1).*... |
00007120 62 24 3d 22 2f 22 20 8c 20 62 24 2b 3d 22 74 22 |b$="/" . b$+="t"|
00007130 0d 2a f8 16 e7 20 62 24 3d 22 4d 22 20 8c 20 62 |.*... b$="M" . b|
00007140 24 2b 3d 22 6d 22 0d 2b 02 16 e7 20 62 24 3d 22 |$+="m".+... b$="|
00007150 54 22 20 8c 20 62 24 2b 3d 22 74 22 0d 2b 0c 16 |T" . b$+="t".+..|
00007160 e7 20 62 24 3d 22 57 22 20 8c 20 62 24 2b 3d 22 |. b$="W" . b$+="|
00007170 77 22 0d 2b 16 16 e7 20 62 24 3d 22 59 22 20 8c |w".+... b$="Y" .|
00007180 20 62 24 2b 3d 22 79 22 0d 2b 20 10 ec 20 58 2c | b$+="y".+ .. X,|
00007190 59 20 3a 20 f1 20 62 24 0d 2b 2a 1f e7 20 62 24 |Y : . b$.+*.. b$|
000071a0 3d 22 4d 6d 22 20 84 20 62 24 3d 22 57 77 22 20 |="Mm" . b$="Ww" |
000071b0 8c 20 58 2b 3d 31 30 0d 2b 34 28 e7 20 62 24 3d |. X+=10.+4(. b$=|
000071c0 22 2f 74 22 20 84 20 62 24 3d 22 54 74 22 20 84 |"/t" . b$="Tt" .|
000071d0 20 62 24 3d 22 59 79 22 20 8c 20 58 2b 3d 32 0d | b$="Yy" . X+=2.|
000071e0 2b 3e 14 e7 20 62 24 3d 22 49 22 20 8c 20 58 2d |+>.. b$="I" . X-|
000071f0 3d 31 30 0d 2b 48 13 e7 20 62 24 3d 22 20 22 20 |=10.+H.. b$=" " |
00007200 8c 20 58 2d 3d 38 0d 2b 52 20 e7 20 62 24 3d 22 |. X-=8.+R . b$="|
00007210 2e 3a 28 29 30 31 32 33 34 35 36 37 38 39 22 20 |.:()0123456789" |
00007220 8c 20 58 2d 3d 34 0d 2b 5c 17 58 2b 3d 32 32 20 |. X-=4.+\.X+=22 |
00007230 3a 20 ed 20 3a 20 ef 20 34 20 3a 20 87 0d 2b 66 |: . : . 4 : ..+f|
00007240 05 e1 0d 2b 70 05 3a 0d 2b 7a 0c dd 20 f2 65 72 |...+p.:.+z.. .er|
00007250 72 6f 72 0d 2b 84 1e ff 20 22 3c 53 74 61 72 54 |ror.+... "<StarT|
00007260 72 65 6b 24 44 69 72 3e 2e 41 72 63 46 6f 6e 74 |rek$Dir>.ArcFont|
00007270 22 0d 2b 8e 15 e7 20 9f 3d 31 37 20 8c 20 2a 44 |".+... .=17 . *D|
00007280 45 53 4b 54 4f 50 0d 2b 98 17 f6 20 3a 20 f1 20 |ESKTOP.+... : . |
00007290 22 20 61 74 20 6c 69 6e 65 20 22 3b 9e 0d 2b a2 |" at line ";..+.|
000072a0 05 e1 0d 2b ac 05 3a 0d 2b b6 0c dd 20 f2 73 70 |...+..:.+... .sp|
000072b0 61 63 65 0d 2b c0 23 ea 20 78 2c 79 2c 62 75 74 |ace.+.#. x,y,but|
000072c0 2c 61 20 3a 20 61 3d 30 20 3a 20 ff 20 22 46 58 |,a : a=0 : . "FX|
000072d0 20 32 31 20 39 22 0d 2b ca 30 f2 70 72 69 6e 74 | 21 9".+.0.print|
000072e0 65 72 28 32 2c 22 42 22 2c 22 43 4c 49 43 4b 20 |er(2,"B","CLICK |
000072f0 41 20 4d 4f 55 53 45 20 42 55 54 54 4f 4e 20 2e |A MOUSE BUTTON .|
00007300 2e 2e 2e 2e 22 29 0d 2b d4 05 f5 0d 2b de 15 61 |....").+....+..a|
00007310 2b 3d 31 20 3a 20 c8 97 20 78 2c 79 2c 62 75 74 |+=1 : .. x,y,but|
00007320 0d 2b e8 13 fd 20 62 75 74 20 84 20 61 3e 34 30 |.+... but . a>40|
00007330 30 30 30 0d 2b f2 0d f2 63 6c 65 61 72 28 36 29 |000.+...clear(6)|
00007340 0d 2b fc 05 e1 0d 2c 06 05 3a 0d 2c 10 0f dd 20 |.+....,..:.,... |
00007350 f2 69 6e 73 74 72 75 63 74 0d 2c 1a 0b ea 20 57 |.instruct.,... W|
00007360 2c 48 2c 61 0d 2c 24 0d f2 63 6c 65 61 72 28 33 |,H,a.,$..clear(3|
00007370 29 0d 2c 2e 2d f2 74 65 78 74 28 33 30 38 2c 37 |).,.-.text(308,7|
00007380 30 38 2c 22 42 22 2c 22 53 54 41 52 54 52 45 4b |08,"B","STARTREK|
00007390 3a 20 54 48 45 20 47 41 4d 45 20 2d 22 29 0d 2c |: THE GAME -").,|
000073a0 38 1a 57 3d 33 30 38 20 3a 20 48 3d 36 35 32 20 |8.W=308 : H=652 |
000073b0 3a 20 f7 20 8d 44 6a 6c 0d 2c 42 26 e3 20 61 3d |: . .Djl.,B&. a=|
000073c0 31 20 b8 20 37 20 3a 20 f3 20 69 24 20 3a 20 f2 |1 . 7 : . i$ : .|
000073d0 66 6f 6e 74 28 57 2c 48 2c 33 2c 69 24 29 0d 2c |font(W,H,3,i$).,|
000073e0 4c 0d 48 2d 3d 34 30 20 3a 20 ed 0d 2c 56 0a f2 |L.H-=40 : ..,V..|
000073f0 73 70 61 63 65 0d 2c 60 05 3a 0d 2c 6a 24 dc 20 |space.,`.:.,j$. |
00007400 59 4f 55 20 54 41 4b 45 20 54 48 45 20 52 4f 4c |YOU TAKE THE ROL|
00007410 45 20 4f 46 20 43 4f 4d 4d 41 4e 44 45 52 0d 2c |E OF COMMANDER.,|
00007420 74 45 dc 20 4f 46 20 54 48 45 20 53 54 41 52 53 |tE. OF THE STARS|
00007430 48 49 50 20 2d 20 45 4e 54 45 52 50 52 49 53 45 |HIP - ENTERPRISE|
00007440 20 2d 2c 22 20 22 2c 54 48 45 20 4f 42 4a 45 43 | -," ",THE OBJEC|
00007450 54 20 4f 46 20 54 48 45 20 47 41 4d 45 20 49 53 |T OF THE GAME IS|
00007460 20 54 4f 0d 2c 7e 43 dc 20 44 45 53 54 52 4f 59 | TO.,~C. DESTROY|
00007470 20 41 4c 4c 20 4f 46 20 54 48 45 20 4b 4c 49 4e | ALL OF THE KLIN|
00007480 47 4f 4e 20 53 48 49 50 53 2c 54 48 41 54 20 48 |GON SHIPS,THAT H|
00007490 41 56 45 20 49 4e 56 41 44 45 44 20 46 45 44 45 |AVE INVADED FEDE|
000074a0 52 41 54 49 4f 4e 0d 2c 88 1c dc 20 43 4f 4e 54 |RATION.,... CONT|
000074b0 52 4f 4c 4c 45 44 20 53 50 41 43 45 20 2e 2e 2e |ROLLED SPACE ...|
000074c0 2e 2e 0d 2c 92 05 3a 0d 2c 9c 0d f2 63 6c 65 61 |...,..:.,...clea|
000074d0 72 28 33 29 0d 2c a6 1a 57 3d 33 30 38 20 3a 20 |r(3).,..W=308 : |
000074e0 48 3d 37 34 30 20 3a 20 f7 20 8d 64 76 6c 0d 2c |H=740 : . .dvl.,|
000074f0 b0 26 e3 20 61 3d 31 20 b8 20 35 20 3a 20 f3 20 |.&. a=1 . 5 : . |
00007500 69 24 20 3a 20 f2 66 6f 6e 74 28 57 2c 48 2c 37 |i$ : .font(W,H,7|
00007510 2c 69 24 29 0d 2c ba 15 48 2d 3d 34 30 20 3a 20 |,i$).,..H-=40 : |
00007520 ed 20 3a 20 48 2d 3d 35 32 0d 2c c4 2e c8 99 20 |. : H-=52.,.... |
00007530 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 32 39 |"OS_SpriteOp",29|
00007540 30 2c 53 70 72 69 74 65 25 2c 22 6d 61 70 22 2c |0,Sprite%,"map",|
00007550 57 2d 34 2c 48 2c 30 0d 2c ce 2e 48 2d 3d 31 32 |W-4,H,0.,..H-=12|
00007560 20 3a 20 e3 20 61 3d 31 20 b8 20 33 20 3a 20 f3 | : . a=1 . 3 : .|
00007570 20 69 24 20 3a 20 f2 66 6f 6e 74 28 57 2c 48 2c | i$ : .font(W,H,|
00007580 33 2c 69 24 29 0d 2c d8 0d 48 2d 3d 34 30 20 3a |3,i$).,..H-=40 :|
00007590 20 ed 0d 2c e2 0a f2 73 70 61 63 65 0d 2c ec 05 | ..,...space.,..|
000075a0 3a 0d 2c f6 47 dc 20 59 4f 55 52 20 5a 4f 4e 45 |:.,.G. YOUR ZONE|
000075b0 20 4f 46 20 4f 50 45 52 41 54 49 4f 4e 53 20 49 | OF OPERATIONS I|
000075c0 53 20 53 48 4f 57 4e 2c 41 53 20 41 20 47 52 49 |S SHOWN,AS A GRI|
000075d0 44 20 4f 46 20 36 34 20 51 55 41 44 52 41 4e 54 |D OF 64 QUADRANT|
000075e0 53 20 46 4f 52 4d 45 44 0d 2d 00 1e dc 20 49 4e |S FORMED.-... IN|
000075f0 54 4f 20 41 4e 20 38 2a 38 20 53 51 55 41 52 45 |TO AN 8*8 SQUARE|
00007600 20 2e 2e 2e 2e 2e 0d 2d 0a 43 dc 20 54 48 49 53 | ......-.C. THIS|
00007610 20 43 41 4e 20 42 45 20 41 43 43 45 53 53 45 44 | CAN BE ACCESSED|
00007620 20 41 54 20 41 4e 59 20 54 49 4d 45 2c 42 59 20 | AT ANY TIME,BY |
00007630 55 53 49 4e 47 20 54 48 45 20 43 4f 4d 4d 41 4e |USING THE COMMAN|
00007640 44 20 42 55 54 54 4f 4e 3a 0d 2d 14 46 dc 20 4e |D BUTTON:.-.F. N|
00007650 4f 54 45 3a 20 49 54 20 49 53 20 4b 45 50 54 20 |OTE: IT IS KEPT |
00007660 55 50 20 54 4f 20 44 41 54 45 20 46 52 4f 4d 2c |UP TO DATE FROM,|
00007670 49 4e 46 4f 52 4d 41 54 49 4f 4e 20 50 52 4f 56 |INFORMATION PROV|
00007680 49 44 45 44 20 42 59 20 4f 4e 42 4f 41 52 44 0d |IDED BY ONBOARD.|
00007690 2d 1e 27 dc 20 53 45 4e 53 4f 52 53 20 2d 20 28 |-.'. SENSORS - (|
000076a0 4e 4f 20 49 4e 46 4f 20 2d 20 4e 4f 20 4d 41 50 |NO INFO - NO MAP|
000076b0 29 20 2e 2e 2e 2e 0d 2d 28 05 3a 0d 2d 32 0d f2 |) .....-(.:.-2..|
000076c0 63 6c 65 61 72 28 33 29 0d 2d 3c 1a 57 3d 33 30 |clear(3).-<.W=30|
000076d0 38 20 3a 20 48 3d 37 34 30 20 3a 20 f7 20 8d 64 |8 : H=740 : . .d|
000076e0 48 6d 0d 2d 46 26 e3 20 61 3d 31 20 b8 20 33 20 |Hm.-F&. a=1 . 3 |
000076f0 3a 20 f3 20 69 24 20 3a 20 f2 66 6f 6e 74 28 57 |: . i$ : .font(W|
00007700 2c 48 2c 37 2c 69 24 29 0d 2d 50 15 48 2d 3d 34 |,H,7,i$).-P.H-=4|
00007710 30 20 3a 20 ed 20 3a 20 48 2d 3d 34 38 0d 2d 5a |0 : . : H-=48.-Z|
00007720 2e c8 99 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 |... "OS_SpriteOp|
00007730 22 2c 32 39 30 2c 53 70 72 69 74 65 25 2c 22 73 |",290,Sprite%,"s|
00007740 72 73 22 2c 57 2d 34 2c 48 2c 30 0d 2d 64 23 f2 |rs",W-4,H,0.-d#.|
00007750 66 6f 6e 74 28 57 2b 31 34 30 2c 35 39 36 2c 37 |font(W+140,596,7|
00007760 2c 22 45 4e 54 45 52 50 52 49 53 45 22 29 0d 2d |,"ENTERPRISE").-|
00007770 6e 38 c8 99 20 22 4f 53 5f 53 70 72 69 74 65 4f |n8.. "OS_SpriteO|
00007780 70 22 2c 32 39 30 2c 53 70 72 69 74 65 25 2c 22 |p",290,Sprite%,"|
00007790 65 6e 74 65 72 70 72 69 73 65 33 22 2c 38 30 30 |enterprise3",800|
000077a0 2c 35 35 36 2c 30 0d 2d 78 20 f2 66 6f 6e 74 28 |,556,0.-x .font(|
000077b0 57 2b 31 34 30 2c 35 33 36 2c 31 2c 22 4b 4c 49 |W+140,536,1,"KLI|
000077c0 4e 47 4f 4e 22 29 0d 2d 82 35 c8 99 20 22 4f 53 |NGON").-.5.. "OS|
000077d0 5f 53 70 72 69 74 65 4f 70 22 2c 32 39 30 2c 53 |_SpriteOp",290,S|
000077e0 70 72 69 74 65 25 2c 22 6b 6c 69 6e 67 6f 6e 33 |prite%,"klingon3|
000077f0 22 2c 38 30 30 2c 34 39 36 2c 30 0d 2d 8c 1d f2 |",800,496,0.-...|
00007800 66 6f 6e 74 28 57 2b 31 34 30 2c 34 37 36 2c 33 |font(W+140,476,3|
00007810 2c 22 53 54 41 52 22 29 0d 2d 96 32 c8 99 20 22 |,"STAR").-.2.. "|
00007820 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 32 39 30 |OS_SpriteOp",290|
00007830 2c 53 70 72 69 74 65 25 2c 22 73 74 61 72 33 22 |,Sprite%,"star3"|
00007840 2c 38 30 30 2c 34 33 36 2c 30 0d 2d a0 21 f2 66 |,800,436,0.-.!.f|
00007850 6f 6e 74 28 57 2b 31 34 30 2c 34 31 36 2c 36 2c |ont(W+140,416,6,|
00007860 22 53 54 41 52 42 41 53 45 22 29 0d 2d aa 36 c8 |"STARBASE").-.6.|
00007870 99 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |. "OS_SpriteOp",|
00007880 32 39 30 2c 53 70 72 69 74 65 25 2c 22 73 74 61 |290,Sprite%,"sta|
00007890 72 62 61 73 65 33 22 2c 38 30 30 2c 33 37 36 2c |rbase3",800,376,|
000078a0 30 0d 2d b4 0a f2 73 70 61 63 65 0d 2d be 05 3a |0.-...space.-..:|
000078b0 0d 2d c8 46 dc 20 45 41 43 48 20 51 55 41 44 52 |.-.F. EACH QUADR|
000078c0 41 4e 54 20 49 53 20 44 49 56 49 44 45 44 20 49 |ANT IS DIVIDED I|
000078d0 4e 54 4f 20 36 34 2c 53 45 43 54 4f 52 53 20 41 |NTO 64,SECTORS A|
000078e0 4e 44 20 54 48 49 53 20 49 4e 46 4f 52 4d 41 54 |ND THIS INFORMAT|
000078f0 49 4f 4e 20 49 53 0d 2d d2 28 dc 20 44 49 53 50 |ION IS.-.(. DISP|
00007900 4c 41 59 45 44 20 42 59 20 54 48 45 20 53 48 4f |LAYED BY THE SHO|
00007910 52 54 20 52 41 4e 47 45 20 53 43 41 4e 3a 0d 2d |RT RANGE SCAN:.-|
00007920 dc 26 dc 20 45 4e 54 45 52 50 52 49 53 45 2c 4b |.&. ENTERPRISE,K|
00007930 4c 49 4e 47 4f 4e 2c 53 54 41 52 2c 53 54 41 52 |LINGON,STAR,STAR|
00007940 42 41 53 45 0d 2d e6 05 3a 0d 2d f0 0d f2 63 6c |BASE.-..:.-...cl|
00007950 65 61 72 28 33 29 0d 2d fa 1a 57 3d 33 30 38 20 |ear(3).-..W=308 |
00007960 3a 20 48 3d 37 34 30 20 3a 20 f7 20 8d 44 68 6e |: H=740 : . .Dhn|
00007970 0d 2e 04 26 e3 20 69 3d 31 20 b8 20 32 20 3a 20 |...&. i=1 . 2 : |
00007980 f3 20 69 24 20 3a 20 f2 66 6f 6e 74 28 57 2c 48 |. i$ : .font(W,H|
00007990 2c 37 2c 69 24 29 0d 2e 0e 15 48 2d 3d 34 30 20 |,7,i$)....H-=40 |
000079a0 3a 20 ed 20 3a 20 48 2d 3d 35 32 0d 2e 18 2e c8 |: . : H-=52.....|
000079b0 99 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |. "OS_SpriteOp",|
000079c0 32 39 30 2c 53 70 72 69 74 65 25 2c 22 6c 72 73 |290,Sprite%,"lrs|
000079d0 22 2c 57 2d 34 2c 48 2c 30 0d 2e 22 2e 48 2d 3d |",W-4,H,0..".H-=|
000079e0 31 32 20 3a 20 e3 20 69 3d 31 20 b8 20 35 20 3a |12 : . i=1 . 5 :|
000079f0 20 f3 20 69 24 20 3a 20 f2 66 6f 6e 74 28 57 2c | . i$ : .font(W,|
00007a00 48 2c 37 2c 69 24 29 0d 2e 2c 0d 48 2d 3d 34 30 |H,7,i$)..,.H-=40|
00007a10 20 3a 20 ed 0d 2e 36 1a f3 20 69 24 20 3a 20 f2 | : ...6.. i$ : .|
00007a20 66 6f 6e 74 28 57 2c 48 2c 31 2c 69 24 29 0d 2e |font(W,H,1,i$)..|
00007a30 40 1e f3 20 69 24 20 3a 20 f2 66 6f 6e 74 28 57 |@.. i$ : .font(W|
00007a40 2b 32 36 30 2c 48 2c 36 2c 69 24 29 0d 2e 4a 1e |+260,H,6,i$)..J.|
00007a50 f3 20 69 24 20 3a 20 f2 66 6f 6e 74 28 57 2b 35 |. i$ : .font(W+5|
00007a60 36 30 2c 48 2c 33 2c 69 24 29 0d 2e 54 0a f2 73 |60,H,3,i$)..T..s|
00007a70 70 61 63 65 0d 2e 5e 05 3a 0d 2e 68 3c dc 20 54 |pace..^.:..h<. T|
00007a80 48 45 20 4c 4f 4e 47 20 52 41 4e 47 45 20 53 45 |HE LONG RANGE SE|
00007a90 4e 53 4f 52 53 20 41 52 45 2c 41 43 54 49 56 41 |NSORS ARE,ACTIVA|
00007aa0 54 45 44 20 57 49 54 48 20 54 48 45 20 43 4f 4d |TED WITH THE COM|
00007ab0 4d 41 4e 44 3a 0d 2e 72 45 dc 20 54 48 49 53 20 |MAND:..rE. THIS |
00007ac0 44 49 53 50 4c 41 59 53 20 44 41 54 41 20 4f 4e |DISPLAYS DATA ON|
00007ad0 20 41 4c 4c 20 4f 46 20 54 48 45 2c 53 55 52 52 | ALL OF THE,SURR|
00007ae0 4f 55 4e 44 49 4e 47 20 51 55 41 44 52 41 4e 54 |OUNDING QUADRANT|
00007af0 53 20 41 4e 44 20 41 4c 53 4f 0d 2e 7c 40 dc 20 |S AND ALSO..|@. |
00007b00 55 50 44 41 54 45 53 20 54 48 45 20 47 41 4c 41 |UPDATES THE GALA|
00007b10 43 54 49 43 20 4d 41 50 2e 2c 54 48 49 53 20 49 |CTIC MAP.,THIS I|
00007b20 4e 46 4f 52 4d 41 54 49 4f 4e 20 49 53 20 44 49 |NFORMATION IS DI|
00007b30 53 50 4c 41 59 45 44 20 41 53 0d 2e 86 35 dc 20 |SPLAYED AS...5. |
00007b40 41 20 54 48 52 45 45 20 44 49 47 49 54 20 4e 55 |A THREE DIGIT NU|
00007b50 4d 42 45 52 20 2d 2c 4b 4c 49 4e 47 4f 4e 53 2c |MBER -,KLINGONS,|
00007b60 53 54 41 52 42 41 53 45 53 2c 53 54 41 52 53 0d |STARBASES,STARS.|
00007b70 2e 90 05 3a 0d 2e 9a 0d f2 63 6c 65 61 72 28 33 |...:.....clear(3|
00007b80 29 0d 2e a4 1a 57 3d 33 30 38 20 3a 20 48 3d 37 |)....W=308 : H=7|
00007b90 34 30 20 3a 20 f7 20 8d 64 74 6e 0d 2e ae 26 e3 |40 : . .dtn...&.|
00007ba0 20 61 3d 31 20 b8 20 33 20 3a 20 f3 20 69 24 20 | a=1 . 3 : . i$ |
00007bb0 3a 20 f2 66 6f 6e 74 28 57 2c 48 2c 37 2c 69 24 |: .font(W,H,7,i$|
00007bc0 29 0d 2e b8 15 48 2d 3d 34 30 20 3a 20 ed 20 3a |)....H-=40 : . :|
00007bd0 20 48 2d 3d 35 32 0d 2e c2 2e c8 99 20 22 4f 53 | H-=52...... "OS|
00007be0 5f 53 70 72 69 74 65 4f 70 22 2c 32 39 30 2c 53 |_SpriteOp",290,S|
00007bf0 70 72 69 74 65 25 2c 22 68 79 70 22 2c 57 2d 34 |prite%,"hyp",W-4|
00007c00 2c 48 2c 30 0d 2e cc 2e 48 2d 3d 31 32 20 3a 20 |,H,0....H-=12 : |
00007c10 e3 20 61 3d 31 20 b8 20 34 20 3a 20 f3 20 69 24 |. a=1 . 4 : . i$|
00007c20 20 3a 20 f2 66 6f 6e 74 28 57 2c 48 2c 37 2c 69 | : .font(W,H,7,i|
00007c30 24 29 0d 2e d6 0d 48 2d 3d 34 30 20 3a 20 ed 0d |$)....H-=40 : ..|
00007c40 2e e0 0a f2 73 70 61 63 65 0d 2e ea 05 3a 0d 2e |....space....:..|
00007c50 f4 45 dc 20 54 48 45 20 48 59 50 45 52 2d 50 52 |.E. THE HYPER-PR|
00007c60 4f 42 45 20 4d 41 59 20 42 45 20 55 53 45 44 20 |OBE MAY BE USED |
00007c70 54 4f 2c 49 4e 56 45 53 54 49 47 41 54 45 20 49 |TO,INVESTIGATE I|
00007c80 4e 44 49 56 49 44 55 41 4c 20 51 55 41 44 52 41 |NDIVIDUAL QUADRA|
00007c90 4e 54 53 0d 2e fe 25 dc 20 41 54 20 41 20 44 49 |NTS...%. AT A DI|
00007ca0 53 54 41 4e 43 45 20 57 49 54 48 20 54 48 45 20 |STANCE WITH THE |
00007cb0 43 4f 4d 4d 41 4e 44 3a 0d 2f 08 42 dc 20 54 48 |COMMAND:./.B. TH|
00007cc0 45 20 48 59 50 45 52 2d 50 52 4f 42 45 20 57 49 |E HYPER-PROBE WI|
00007cd0 4c 4c 20 52 45 54 55 52 4e 2c 45 56 45 4e 54 55 |LL RETURN,EVENTU|
00007ce0 41 4c 4c 59 20 41 4e 44 20 47 49 56 45 20 41 20 |ALLY AND GIVE A |
00007cf0 4c 4f 4e 47 20 52 41 4e 47 45 0d 2f 12 3d dc 20 |LONG RANGE./.=. |
00007d00 53 43 41 4e 20 46 52 4f 4d 20 54 48 41 54 20 51 |SCAN FROM THAT Q|
00007d10 55 41 44 52 41 4e 54 20 41 4c 53 4f 2c 55 50 44 |UADRANT ALSO,UPD|
00007d20 41 54 49 4e 47 20 54 48 45 20 47 41 4c 41 43 54 |ATING THE GALACT|
00007d30 49 43 20 4d 41 50 2e 0d 2f 1c 05 3a 0d 2f 26 0d |IC MAP../..:./&.|
00007d40 f2 63 6c 65 61 72 28 33 29 0d 2f 30 1a 57 3d 33 |.clear(3)./0.W=3|
00007d50 30 38 20 3a 20 48 3d 37 34 30 20 3a 20 f7 20 8d |08 : H=740 : . .|
00007d60 64 6e 6f 0d 2f 3a 26 e3 20 61 3d 31 20 b8 20 32 |dno./:&. a=1 . 2|
00007d70 20 3a 20 f3 20 69 24 20 3a 20 f2 66 6f 6e 74 28 | : . i$ : .font(|
00007d80 57 2c 48 2c 37 2c 69 24 29 0d 2f 44 15 48 2d 3d |W,H,7,i$)./D.H-=|
00007d90 34 30 20 3a 20 ed 20 3a 20 48 2d 3d 35 32 0d 2f |40 : . : H-=52./|
00007da0 4e 2e c8 99 20 22 4f 53 5f 53 70 72 69 74 65 4f |N... "OS_SpriteO|
00007db0 70 22 2c 32 39 30 2c 53 70 72 69 74 65 25 2c 22 |p",290,Sprite%,"|
00007dc0 6e 61 76 22 2c 57 2d 34 2c 48 2c 30 0d 2f 58 2e |nav",W-4,H,0./X.|
00007dd0 48 2b 3d 32 38 20 3a 20 f3 20 69 24 20 3a 20 f2 |H+=28 : . i$ : .|
00007de0 66 6f 6e 74 28 57 2b 31 30 30 2c 48 2c 37 2c 69 |font(W+100,H,7,i|
00007df0 24 29 20 3a 20 48 2d 3d 34 30 0d 2f 62 23 f3 20 |$) : H-=40./b#. |
00007e00 69 24 20 3a 20 f2 66 6f 6e 74 28 57 2c 48 2c 37 |i$ : .font(W,H,7|
00007e10 2c 69 24 29 20 3a 20 48 2d 3d 31 30 34 0d 2f 6c |,i$) : H-=104./l|
00007e20 28 e3 20 69 3d 31 20 b8 20 33 20 3a 20 57 3d 33 |(. i=1 . 3 : W=3|
00007e30 30 38 20 3a 20 e3 20 6a 3d 31 20 b8 20 33 20 3a |08 : . j=1 . 3 :|
00007e40 20 f3 20 69 24 0d 2f 76 19 e6 20 38 20 3a 20 c8 | . i$./v.. 8 : .|
00007e50 93 20 c8 90 20 57 2c 48 2c 36 34 2c 36 30 0d 2f |. .. W,H,64,60./|
00007e60 80 1d e6 20 30 20 3a 20 c8 93 20 c8 90 20 57 2b |... 0 : .. .. W+|
00007e70 34 2c 48 2b 34 2c 35 36 2c 35 32 0d 2f 8a 11 e7 |4,H+4,56,52./...|
00007e80 20 69 3d 32 20 80 20 6a 3d 32 20 8c 0d 2f 94 32 | i=2 . j=2 ../.2|
00007e90 20 20 20 20 20 3a 20 c8 99 20 22 4f 53 5f 53 70 | : .. "OS_Sp|
00007ea0 72 69 74 65 4f 70 22 2c 32 39 30 2c 53 70 72 69 |riteOp",290,Spri|
00007eb0 74 65 25 2c 69 24 2c 57 2b 38 2c 48 2b 34 0d 2f |te%,i$,W+8,H+4./|
00007ec0 9e 1f cc 20 3a 20 f2 74 65 78 74 28 57 2b 32 30 |... : .text(W+20|
00007ed0 2c 48 2b 31 32 2c 22 59 22 2c 69 24 29 0d 2f a8 |,H+12,"Y",i$)./.|
00007ee0 05 cd 0d 2f b2 0d 57 2b 3d 36 32 20 3a 20 ed 0d |.../..W+=62 : ..|
00007ef0 2f bc 1e 48 2d 3d 36 30 20 3a 20 ed 20 3a 20 57 |/..H-=60 : . : W|
00007f00 3d 35 33 32 20 3a 20 48 2b 3d 32 34 30 0d 2f c6 |=532 : H+=240./.|
00007f10 26 e3 20 61 3d 31 20 b8 20 34 20 3a 20 f3 20 69 |&. a=1 . 4 : . i|
00007f20 24 20 3a 20 f2 66 6f 6e 74 28 57 2c 48 2c 31 2c |$ : .font(W,H,1,|
00007f30 69 24 29 0d 2f d0 0d 48 2d 3d 34 30 20 3a 20 ed |i$)./..H-=40 : .|
00007f40 0d 2f da 0a f2 73 70 61 63 65 0d 2f e4 05 3a 0d |./...space./..:.|
00007f50 2f ee 42 dc 20 54 4f 20 4d 4f 56 45 20 41 52 4f |/.B. TO MOVE ARO|
00007f60 55 4e 44 20 59 4f 55 20 53 48 4f 55 4c 44 20 55 |UND YOU SHOULD U|
00007f70 53 45 20 54 48 45 2c 4e 41 56 49 47 41 54 49 4f |SE THE,NAVIGATIO|
00007f80 4e 20 43 4f 4d 4d 41 4e 44 20 42 55 54 54 4f 4e |N COMMAND BUTTON|
00007f90 3a 0d 2f f8 37 dc 20 59 4f 55 20 57 49 4c 4c 20 |:./.7. YOU WILL |
00007fa0 54 48 45 4e 20 42 45 20 41 53 4b 45 44 20 46 4f |THEN BE ASKED FO|
00007fb0 52 20 41 2c 42 45 41 52 49 4e 47 20 28 30 2d 37 |R A,BEARING (0-7|
00007fc0 29 20 2d 20 55 53 45 3a 0d 30 02 36 dc 20 37 2c |) - USE:.0.6. 7,|
00007fd0 30 2c 31 2c 36 2c 65 6e 74 65 72 70 72 69 73 65 |0,1,6,enterprise|
00007fe0 33 2c 32 2c 35 2c 34 2c 33 2c 4e 4f 54 45 3a 20 |3,2,5,4,3,NOTE: |
00007ff0 54 48 49 53 20 53 59 53 54 45 4d 20 4f 46 0d 30 |THIS SYSTEM OF.0|
00008000 0c 3f dc 20 42 45 41 52 49 4e 47 20 49 53 20 41 |.?. BEARING IS A|
00008010 4c 53 4f 20 55 53 45 44 2c 42 59 20 41 4c 4c 20 |LSO USED,BY ALL |
00008020 4f 54 48 45 52 20 52 45 4c 45 56 41 4e 54 2c 43 |OTHER RELEVANT,C|
00008030 4f 4d 4d 41 4e 44 53 20 2e 2e 2e 2e 2e 0d 30 16 |OMMANDS ......0.|
00008040 05 3a 0d 30 20 0d f2 63 6c 65 61 72 28 33 29 0d |.:.0 ..clear(3).|
00008050 30 2a 1a 57 3d 33 30 38 20 3a 20 48 3d 37 34 30 |0*.W=308 : H=740|
00008060 20 3a 20 f7 20 8d 44 70 70 0d 30 34 26 e3 20 69 | : . .Dpp.04&. i|
00008070 3d 31 20 b8 20 36 20 3a 20 f3 20 69 24 20 3a 20 |=1 . 6 : . i$ : |
00008080 f2 66 6f 6e 74 28 57 2c 48 2c 37 2c 69 24 29 0d |.font(W,H,7,i$).|
00008090 30 3e 0d 48 2d 3d 34 30 20 3a 20 ed 0d 30 48 26 |0>.H-=40 : ..0H&|
000080a0 e3 20 69 3d 31 20 b8 20 33 20 3a 20 f3 20 69 24 |. i=1 . 3 : . i$|
000080b0 20 3a 20 f2 66 6f 6e 74 28 57 2c 48 2c 33 2c 69 | : .font(W,H,3,i|
000080c0 24 29 0d 30 52 0d 48 2d 3d 34 30 20 3a 20 ed 0d |$).0R.H-=40 : ..|
000080d0 30 5c 0a f2 73 70 61 63 65 0d 30 66 05 3a 0d 30 |0\..space.0f.:.0|
000080e0 70 3f dc 20 59 4f 55 20 4d 41 59 20 41 4c 53 4f |p?. YOU MAY ALSO|
000080f0 20 55 53 45 20 46 52 41 43 54 49 4f 4e 53 20 4f | USE FRACTIONS O|
00008100 46 2c 4e 55 4d 42 45 52 53 20 2d 20 49 45 20 20 |F,NUMBERS - IE |
00008110 31 2e 35 20 2e 2e 2e 2e 2e 2c 22 20 22 0d 30 7a |1.5 .....," ".0z|
00008120 3f dc 20 59 4f 55 20 57 49 4c 4c 20 54 48 45 4e |?. YOU WILL THEN|
00008130 20 42 45 20 41 53 4b 45 44 20 46 4f 52 20 41 20 | BE ASKED FOR A |
00008140 57 41 52 50 2c 46 41 43 54 4f 52 20 28 30 2d 38 |WARP,FACTOR (0-8|
00008150 29 20 2d 20 55 53 45 3a 2c 22 20 22 0d 30 84 47 |) - USE:," ".0.G|
00008160 dc 20 22 31 20 54 4f 20 4d 4f 56 45 20 41 20 57 |. "1 TO MOVE A W|
00008170 48 4f 4c 45 20 51 55 41 44 52 41 4e 54 2c 20 41 |HOLE QUADRANT, A|
00008180 4e 44 22 2c 54 4f 20 4d 4f 56 45 20 57 49 54 48 |ND",TO MOVE WITH|
00008190 49 4e 20 41 20 51 55 41 44 52 41 4e 54 20 55 53 |IN A QUADRANT US|
000081a0 45 20 41 0d 30 8e 25 dc 20 4e 55 4d 42 45 52 20 |E A.0.%. NUMBER |
000081b0 4f 46 20 4c 45 53 53 20 54 48 41 4e 20 31 20 2d |OF LESS THAN 1 -|
000081c0 20 49 45 20 20 30 2e 34 0d 30 98 05 3a 0d 30 a2 | IE 0.4.0..:.0.|
000081d0 0d f2 63 6c 65 61 72 28 33 29 0d 30 ac 1a 57 3d |..clear(3).0..W=|
000081e0 33 30 38 20 3a 20 48 3d 37 34 30 20 3a 20 f7 20 |308 : H=740 : . |
000081f0 8d 64 5e 70 0d 30 b6 27 e3 20 61 3d 31 20 b8 20 |.d^p.0.'. a=1 . |
00008200 31 30 20 3a 20 f3 20 69 24 20 3a 20 f2 66 6f 6e |10 : . i$ : .fon|
00008210 74 28 57 2c 48 2c 37 2c 69 24 29 0d 30 c0 0d 48 |t(W,H,7,i$).0..H|
00008220 2d 3d 33 36 20 3a 20 ed 0d 30 ca 0a f2 73 70 61 |-=36 : ..0...spa|
00008230 63 65 0d 30 d4 05 3a 0d 30 de 38 dc 20 54 48 45 |ce.0..:.0.8. THE|
00008240 52 45 20 43 41 4e 20 42 45 20 55 50 20 54 4f 20 |RE CAN BE UP TO |
00008250 33 20 4b 4c 49 4e 47 4f 4e 53 20 49 4e 2c 41 4e |3 KLINGONS IN,AN|
00008260 59 20 4f 4e 45 20 51 55 41 44 52 41 4e 54 2e 0d |Y ONE QUADRANT..|
00008270 30 e8 44 dc 20 54 48 45 59 20 44 4f 20 4e 4f 54 |0.D. THEY DO NOT|
00008280 20 4d 4f 56 45 20 4f 55 54 20 4f 46 20 54 48 45 | MOVE OUT OF THE|
00008290 49 52 2c 51 55 41 44 52 41 4e 54 53 20 42 55 54 |IR,QUADRANTS BUT|
000082a0 20 54 48 45 59 20 57 49 4c 4c 20 43 4c 4f 53 45 | THEY WILL CLOSE|
000082b0 20 4f 4e 0d 30 f2 20 dc 20 41 4e 44 20 41 54 54 | ON.0. . AND ATT|
000082c0 41 43 4b 20 54 48 45 20 45 4e 54 45 52 50 52 49 |ACK THE ENTERPRI|
000082d0 53 45 2e 0d 30 fc 40 dc 20 4b 4c 49 4e 47 4f 4e |SE..0.@. KLINGON|
000082e0 20 46 49 52 45 2d 50 4f 57 45 52 20 44 45 50 45 | FIRE-POWER DEPE|
000082f0 4e 44 53 20 4f 4e 2c 54 48 45 49 52 20 44 49 53 |NDS ON,THEIR DIS|
00008300 54 41 4e 43 45 20 46 52 4f 4d 20 59 4f 55 2e 20 |TANCE FROM YOU. |
00008310 41 4e 59 0d 31 06 44 dc 20 45 4e 45 52 47 59 20 |ANY.1.D. ENERGY |
00008320 46 52 4f 4d 20 41 20 4b 4c 49 4e 47 4f 4e 20 48 |FROM A KLINGON H|
00008330 49 54 20 57 49 4c 4c 2c 52 45 44 55 43 45 20 59 |IT WILL,REDUCE Y|
00008340 4f 55 52 20 53 48 49 45 4c 44 20 53 54 52 45 4e |OUR SHIELD STREN|
00008350 47 54 48 20 41 4e 44 0d 31 10 27 dc 20 43 41 55 |GTH AND.1.'. CAU|
00008360 53 45 20 41 20 43 45 52 54 41 49 4e 20 41 4d 4f |SE A CERTAIN AMO|
00008370 55 4e 54 20 4f 46 20 44 41 4d 41 47 45 2e 0d 31 |UNT OF DAMAGE..1|
00008380 1a 05 3a 0d 31 24 0d f2 63 6c 65 61 72 28 33 29 |..:.1$..clear(3)|
00008390 0d 31 2e 1a 57 3d 33 30 38 20 3a 20 48 3d 37 34 |.1..W=308 : H=74|
000083a0 30 20 3a 20 f7 20 8d 74 70 71 0d 31 38 1a f3 20 |0 : . .tpq.18.. |
000083b0 69 24 20 3a 20 f2 66 6f 6e 74 28 57 2c 48 2c 37 |i$ : .font(W,H,7|
000083c0 2c 69 24 29 0d 31 42 22 48 2d 3d 34 30 20 3a 20 |,i$).1B"H-=40 : |
000083d0 f3 20 69 24 20 3a 20 f2 66 6f 6e 74 28 57 2c 48 |. i$ : .font(W,H|
000083e0 2c 31 2c 69 24 29 0d 31 4c 12 48 2d 3d 34 30 20 |,1,i$).1L.H-=40 |
000083f0 3a 20 f7 20 8d 74 7a 71 0d 31 56 26 e3 20 61 3d |: . .tzq.1V&. a=|
00008400 31 20 b8 20 32 20 3a 20 f3 20 69 24 20 3a 20 f2 |1 . 2 : . i$ : .|
00008410 66 6f 6e 74 28 57 2c 48 2c 37 2c 69 24 29 0d 31 |font(W,H,7,i$).1|
00008420 60 15 48 2d 3d 34 30 20 3a 20 ed 20 3a 20 48 2d |`.H-=40 : . : H-|
00008430 3d 34 38 0d 31 6a 2e c8 99 20 22 4f 53 5f 53 70 |=48.1j... "OS_Sp|
00008440 72 69 74 65 4f 70 22 2c 32 39 30 2c 53 70 72 69 |riteOp",290,Spri|
00008450 74 65 25 2c 22 64 65 66 22 2c 57 2d 34 2c 48 2c |te%,"def",W-4,H,|
00008460 30 0d 31 74 2e 48 2d 3d 31 32 20 3a 20 e3 20 61 |0.1t.H-=12 : . a|
00008470 3d 31 20 b8 20 32 20 3a 20 f3 20 69 24 20 3a 20 |=1 . 2 : . i$ : |
00008480 f2 66 6f 6e 74 28 57 2c 48 2c 37 2c 69 24 29 0d |.font(W,H,7,i$).|
00008490 31 7e 0d 48 2d 3d 34 30 20 3a 20 ed 0d 31 88 26 |1~.H-=40 : ..1.&|
000084a0 e3 20 61 3d 31 20 b8 20 32 20 3a 20 f3 20 69 24 |. a=1 . 2 : . i$|
000084b0 20 3a 20 f2 66 6f 6e 74 28 57 2c 48 2c 31 2c 69 | : .font(W,H,1,i|
000084c0 24 29 0d 31 92 0d 48 2d 3d 34 30 20 3a 20 ed 0d |$).1..H-=40 : ..|
000084d0 31 9c 0a f2 73 70 61 63 65 0d 31 a6 05 3a 0d 31 |1...space.1..:.1|
000084e0 b0 3b dc 20 41 4e 44 20 57 48 45 4e 20 59 4f 55 |.;. AND WHEN YOU|
000084f0 52 20 53 48 49 45 4c 44 53 20 46 41 49 4c 2e 2e |R SHIELDS FAIL..|
00008500 2e 2e 2c 54 48 45 20 44 41 4d 41 47 45 20 47 45 |..,THE DAMAGE GE|
00008510 54 53 20 57 4f 52 53 45 21 0d 31 ba 3f dc 20 54 |TS WORSE!.1.?. T|
00008520 4f 20 55 50 44 41 54 45 20 59 4f 55 52 20 53 48 |O UPDATE YOUR SH|
00008530 49 45 4c 44 53 20 59 4f 55 20 53 48 4f 55 4c 44 |IELDS YOU SHOULD|
00008540 2c 55 53 45 20 54 48 45 20 43 4f 4d 4d 41 4e 44 |,USE THE COMMAND|
00008550 20 42 55 54 54 4f 4e 3a 0d 31 c4 45 dc 20 54 48 | BUTTON:.1.E. TH|
00008560 45 4e 20 53 45 54 20 54 48 45 20 41 4d 4f 55 4e |EN SET THE AMOUN|
00008570 54 20 4f 46 20 45 4e 45 52 47 59 2c 54 4f 20 42 |T OF ENERGY,TO B|
00008580 45 20 54 52 41 4e 53 46 45 52 52 45 44 20 54 4f |E TRANSFERRED TO|
00008590 20 54 48 45 20 53 48 49 45 4c 44 53 2e 0d 31 ce | THE SHIELDS..1.|
000085a0 37 dc 20 54 48 49 53 20 41 4d 4f 55 4e 54 20 49 |7. THIS AMOUNT I|
000085b0 53 20 53 55 42 54 52 41 43 54 45 44 20 46 52 4f |S SUBTRACTED FRO|
000085c0 4d 2c 59 4f 55 52 20 54 4f 54 41 4c 20 45 4e 45 |M,YOUR TOTAL ENE|
000085d0 52 47 59 2e 0d 31 d8 05 3a 0d 31 e2 0d f2 63 6c |RGY..1..:.1...cl|
000085e0 65 61 72 28 33 29 0d 31 ec 1a 57 3d 33 30 38 20 |ear(3).1..W=308 |
000085f0 3a 20 48 3d 37 34 30 20 3a 20 f7 20 8d 44 50 72 |: H=740 : . .DPr|
00008600 0d 31 f6 26 e3 20 61 3d 31 20 b8 20 32 20 3a 20 |.1.&. a=1 . 2 : |
00008610 f3 20 69 24 20 3a 20 f2 66 6f 6e 74 28 57 2c 48 |. i$ : .font(W,H|
00008620 2c 37 2c 69 24 29 0d 32 00 2e 48 2d 3d 34 30 20 |,7,i$).2..H-=40 |
00008630 3a 20 ed 20 3a 20 f3 20 69 24 20 3a 20 f2 66 6f |: . : . i$ : .fo|
00008640 6e 74 28 57 2c 48 2c 33 2c 69 24 29 20 3a 20 48 |nt(W,H,3,i$) : H|
00008650 2d 3d 39 32 0d 32 0a 2e c8 99 20 22 4f 53 5f 53 |-=92.2.... "OS_S|
00008660 70 72 69 74 65 4f 70 22 2c 32 39 30 2c 53 70 72 |priteOp",290,Spr|
00008670 69 74 65 25 2c 22 70 68 61 22 2c 57 2d 34 2c 48 |ite%,"pha",W-4,H|
00008680 2c 30 0d 32 14 2e 48 2d 3d 31 32 20 3a 20 e3 20 |,0.2..H-=12 : . |
00008690 61 3d 31 20 b8 20 33 20 3a 20 f3 20 69 24 20 3a |a=1 . 3 : . i$ :|
000086a0 20 f2 66 6f 6e 74 28 57 2c 48 2c 37 2c 69 24 29 | .font(W,H,7,i$)|
000086b0 0d 32 1e 0d 48 2d 3d 34 30 20 3a 20 ed 0d 32 28 |.2..H-=40 : ..2(|
000086c0 26 e3 20 61 3d 31 20 b8 20 32 20 3a 20 f3 20 69 |&. a=1 . 2 : . i|
000086d0 24 20 3a 20 f2 66 6f 6e 74 28 57 2c 48 2c 31 2c |$ : .font(W,H,1,|
000086e0 69 24 29 0d 32 32 0d 48 2d 3d 34 30 20 3a 20 ed |i$).22.H-=40 : .|
000086f0 0d 32 3c 0a f2 73 70 61 63 65 0d 32 46 05 3a 0d |.2<..space.2F.:.|
00008700 32 50 3b dc 20 45 4e 54 45 52 50 52 49 53 45 20 |2P;. ENTERPRISE |
00008710 48 41 53 20 54 57 4f 20 4d 41 49 4e 20 54 59 50 |HAS TWO MAIN TYP|
00008720 45 53 20 4f 46 2c 57 45 41 50 4f 4e 20 53 59 53 |ES OF,WEAPON SYS|
00008730 54 45 4d 53 20 2e 2e 2e 2e 2e 0d 32 5a 23 dc 20 |TEMS ......2Z#. |
00008740 45 4e 45 52 47 59 20 50 48 41 53 4f 52 53 20 2d |ENERGY PHASORS -|
00008750 20 55 53 45 20 43 4f 4d 4d 41 4e 44 3a 0d 32 64 | USE COMMAND:.2d|
00008760 46 dc 20 54 48 45 53 45 20 41 55 54 4f 4d 41 54 |F. THESE AUTOMAT|
00008770 49 43 41 4c 4c 59 20 4c 4f 43 4b 20 4f 4e 54 4f |ICALLY LOCK ONTO|
00008780 20 41 2c 54 41 52 47 45 54 20 2d 20 42 55 54 20 | A,TARGET - BUT |
00008790 54 48 45 49 52 20 53 54 52 45 4e 47 54 48 20 57 |THEIR STRENGTH W|
000087a0 49 4c 4c 0d 32 6e 19 dc 20 46 41 44 45 20 57 49 |ILL.2n.. FADE WI|
000087b0 54 48 20 44 49 53 54 41 4e 43 45 2e 0d 32 78 38 |TH DISTANCE..2x8|
000087c0 dc 20 50 48 41 53 4f 52 20 50 4f 57 45 52 20 49 |. PHASOR POWER I|
000087d0 53 20 53 55 42 54 52 41 43 54 45 44 20 46 52 4f |S SUBTRACTED FRO|
000087e0 4d 2c 59 4f 55 52 20 54 4f 54 41 4c 20 45 4e 45 |M,YOUR TOTAL ENE|
000087f0 52 47 59 2e 0d 32 82 05 3a 0d 32 8c 0d f2 63 6c |RGY..2..:.2...cl|
00008800 65 61 72 28 33 29 0d 32 96 1a 57 3d 33 30 38 20 |ear(3).2..W=308 |
00008810 3a 20 48 3d 37 34 30 20 3a 20 f7 20 8d 64 7a 72 |: H=740 : . .dzr|
00008820 0d 32 a0 26 e3 20 61 3d 31 20 b8 20 32 20 3a 20 |.2.&. a=1 . 2 : |
00008830 f3 20 69 24 20 3a 20 f2 66 6f 6e 74 28 57 2c 48 |. i$ : .font(W,H|
00008840 2c 33 2c 69 24 29 0d 32 aa 15 48 2d 3d 34 30 20 |,3,i$).2..H-=40 |
00008850 3a 20 ed 20 3a 20 48 2d 3d 35 32 0d 32 b4 2e c8 |: . : H-=52.2...|
00008860 99 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |. "OS_SpriteOp",|
00008870 32 39 30 2c 53 70 72 69 74 65 25 2c 22 74 6f 72 |290,Sprite%,"tor|
00008880 22 2c 57 2d 34 2c 48 2c 30 0d 32 be 2e 48 2d 3d |",W-4,H,0.2..H-=|
00008890 31 32 20 3a 20 e3 20 61 3d 31 20 b8 20 33 20 3a |12 : . a=1 . 3 :|
000088a0 20 f3 20 69 24 20 3a 20 f2 66 6f 6e 74 28 57 2c | . i$ : .font(W,|
000088b0 48 2c 37 2c 69 24 29 0d 32 c8 0d 48 2d 3d 34 30 |H,7,i$).2..H-=40|
000088c0 20 3a 20 ed 0d 32 d2 26 e3 20 61 3d 31 20 b8 20 | : ..2.&. a=1 . |
000088d0 32 20 3a 20 f3 20 69 24 20 3a 20 f2 66 6f 6e 74 |2 : . i$ : .font|
000088e0 28 57 2c 48 2c 31 2c 69 24 29 0d 32 dc 0d 48 2d |(W,H,1,i$).2..H-|
000088f0 3d 34 30 20 3a 20 ed 0d 32 e6 0a f2 73 70 61 63 |=40 : ..2...spac|
00008900 65 0d 32 f0 05 3a 0d 32 fa 35 dc 20 50 48 4f 54 |e.2..:.2.5. PHOT|
00008910 4f 4e 20 54 4f 52 50 45 44 4f 45 53 20 2d 20 41 |ON TORPEDOES - A|
00008920 43 54 49 56 41 54 45 44 20 42 59 2c 43 4f 4d 4d |CTIVATED BY,COMM|
00008930 41 4e 44 20 42 55 54 54 4f 4e 3a 0d 33 04 3f dc |AND BUTTON:.3.?.|
00008940 20 55 4e 4c 49 4b 45 20 50 48 41 53 4f 52 53 20 | UNLIKE PHASORS |
00008950 2d 20 54 4f 52 50 45 44 4f 45 53 20 48 41 56 45 |- TORPEDOES HAVE|
00008960 2c 54 4f 20 42 45 20 41 49 4d 45 44 20 41 54 20 |,TO BE AIMED AT |
00008970 54 48 45 20 45 4e 45 4d 59 2e 0d 33 0e 27 dc 20 |THE ENEMY..3.'. |
00008980 54 48 45 59 20 43 41 4e 20 4e 4f 54 20 50 41 53 |THEY CAN NOT PAS|
00008990 53 20 54 48 52 4f 55 47 48 20 41 20 53 54 41 52 |S THROUGH A STAR|
000089a0 2e 0d 33 18 45 dc 20 22 49 46 20 54 48 45 59 20 |..3.E. "IF THEY |
000089b0 48 49 54 2c 20 54 48 45 59 20 57 49 4c 4c 20 43 |HIT, THEY WILL C|
000089c0 4f 4d 50 4c 45 54 45 4c 59 22 2c 44 45 53 54 52 |OMPLETELY",DESTR|
000089d0 4f 59 20 54 48 45 20 4b 4c 49 4e 47 4f 4e 20 56 |OY THE KLINGON V|
000089e0 45 53 53 45 4c 2e 0d 33 22 05 3a 0d 33 2c 0d f2 |ESSEL..3".:.3,..|
000089f0 63 6c 65 61 72 28 33 29 0d 33 36 1a 57 3d 33 30 |clear(3).36.W=30|
00008a00 38 20 3a 20 48 3d 37 34 30 20 3a 20 f7 20 8d 44 |8 : H=740 : . .D|
00008a10 72 73 0d 33 40 26 e3 20 61 3d 31 20 b8 20 38 20 |rs.3@&. a=1 . 8 |
00008a20 3a 20 f3 20 69 24 20 3a 20 f2 66 6f 6e 74 28 57 |: . i$ : .font(W|
00008a30 2c 48 2c 37 2c 69 24 29 0d 33 4a 15 48 2d 3d 34 |,H,7,i$).3J.H-=4|
00008a40 30 20 3a 20 ed 20 3a 20 48 2d 3d 35 32 0d 33 54 |0 : . : H-=52.3T|
00008a50 2e c8 99 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 |... "OS_SpriteOp|
00008a60 22 2c 32 39 30 2c 53 70 72 69 74 65 25 2c 22 73 |",290,Sprite%,"s|
00008a70 79 73 22 2c 57 2d 34 2c 48 2c 30 0d 33 5e 0a f2 |ys",W-4,H,0.3^..|
00008a80 73 70 61 63 65 0d 33 68 05 3a 0d 33 72 48 dc 20 |space.3h.:.3rH. |
00008a90 55 4e 44 45 52 20 41 54 54 41 43 4b 20 54 48 45 |UNDER ATTACK THE|
00008aa0 20 45 4e 54 45 52 50 52 49 53 45 20 57 49 4c 4c | ENTERPRISE WILL|
00008ab0 2c 53 55 46 46 45 52 20 44 41 4d 41 47 45 20 49 |,SUFFER DAMAGE I|
00008ac0 46 20 48 49 54 20 42 59 20 4d 4f 52 45 20 54 48 |F HIT BY MORE TH|
00008ad0 41 4e 0d 33 7c 24 dc 20 31 30 30 20 55 4e 49 54 |AN.3|$. 100 UNIT|
00008ae0 53 20 50 45 52 20 4b 4c 49 4e 47 4f 4e 20 2e 2e |S PER KLINGON ..|
00008af0 2e 2e 2c 22 20 22 0d 33 86 42 dc 20 41 4e 59 20 |..," ".3.B. ANY |
00008b00 44 41 4d 41 47 45 20 57 49 4c 4c 20 42 45 20 41 |DAMAGE WILL BE A|
00008b10 55 54 4f 4d 41 54 49 43 41 4c 4c 59 2c 52 45 50 |UTOMATICALLY,REP|
00008b20 4f 52 54 45 44 20 42 59 20 44 41 4d 41 47 45 20 |ORTED BY DAMAGE |
00008b30 43 4f 4e 54 52 4f 4c 2e 0d 33 90 41 dc 20 46 4f |CONTROL..3.A. FO|
00008b40 52 20 41 20 43 4f 4d 50 4c 45 54 45 20 4c 49 53 |R A COMPLETE LIS|
00008b50 54 20 4f 46 20 53 59 53 54 45 4d 53 2c 53 54 41 |T OF SYSTEMS,STA|
00008b60 54 55 53 20 2d 20 55 53 45 20 43 4f 4d 4d 41 4e |TUS - USE COMMAN|
00008b70 44 20 42 55 54 54 4f 4e 3a 0d 33 9a 05 3a 0d 33 |D BUTTON:.3..:.3|
00008b80 a4 0d f2 63 6c 65 61 72 28 33 29 0d 33 ae 1a 57 |...clear(3).3..W|
00008b90 3d 33 30 38 20 3a 20 48 3d 37 34 30 20 3a 20 f7 |=308 : H=740 : .|
00008ba0 20 8d 64 74 73 0d 33 b8 26 e3 20 61 3d 31 20 b8 | .dts.3.&. a=1 .|
00008bb0 20 34 20 3a 20 f3 20 69 24 20 3a 20 f2 66 6f 6e | 4 : . i$ : .fon|
00008bc0 74 28 57 2c 48 2c 37 2c 69 24 29 0d 33 c2 0d 48 |t(W,H,7,i$).3..H|
00008bd0 2d 3d 34 30 20 3a 20 ed 0d 33 cc 26 e3 20 61 3d |-=40 : ..3.&. a=|
00008be0 31 20 b8 20 33 20 3a 20 f3 20 69 24 20 3a 20 f2 |1 . 3 : . i$ : .|
00008bf0 66 6f 6e 74 28 57 2c 48 2c 33 2c 69 24 29 0d 33 |font(W,H,3,i$).3|
00008c00 d6 0d 48 2d 3d 34 30 20 3a 20 ed 0d 33 e0 0a f2 |..H-=40 : ..3...|
00008c10 73 70 61 63 65 0d 33 ea 05 3a 0d 33 f4 43 dc 20 |space.3..:.3.C. |
00008c20 53 59 53 54 45 4d 53 20 57 49 4c 4c 20 42 45 20 |SYSTEMS WILL BE |
00008c30 52 45 50 41 49 52 45 44 20 42 59 20 41 2c 46 41 |REPAIRED BY A,FA|
00008c40 43 54 4f 52 20 4f 46 20 31 20 46 4f 52 20 45 41 |CTOR OF 1 FOR EA|
00008c50 43 48 20 4d 4f 56 45 20 55 4e 54 49 4c 0d 33 fe |CH MOVE UNTIL.3.|
00008c60 28 dc 20 54 48 45 59 20 52 45 41 43 48 20 30 20 |(. THEY REACH 0 |
00008c70 2e 2e 2e 2e 2e 20 49 45 20 27 55 53 41 42 4c 45 |..... IE 'USABLE|
00008c80 27 2c 22 20 22 0d 34 08 46 dc 20 53 59 53 54 45 |'," ".4.F. SYSTE|
00008c90 4d 53 20 43 41 4e 20 4f 4e 4c 59 20 42 45 20 52 |MS CAN ONLY BE R|
00008ca0 45 54 55 52 4e 45 44 20 54 4f 2c 27 4e 45 57 27 |ETURNED TO,'NEW'|
00008cb0 20 42 59 20 4f 56 45 52 48 41 55 4c 20 41 54 20 | BY OVERHAUL AT |
00008cc0 41 20 53 54 41 52 42 41 53 45 2e 0d 34 12 25 dc |A STARBASE..4.%.|
00008cd0 20 54 48 49 53 20 57 49 4c 4c 20 49 4e 43 55 52 | THIS WILL INCUR|
00008ce0 20 41 20 54 49 4d 45 20 50 45 4e 41 4c 54 59 2e | A TIME PENALTY.|
00008cf0 0d 34 1c 05 3a 0d 34 26 0d f2 63 6c 65 61 72 28 |.4..:.4&..clear(|
00008d00 33 29 0d 34 30 1a 57 3d 33 30 38 20 3a 20 48 3d |3).40.W=308 : H=|
00008d10 37 34 30 20 3a 20 f7 20 8d 74 4a 74 0d 34 3a 26 |740 : . .tJt.4:&|
00008d20 e3 20 61 3d 31 20 b8 20 34 20 3a 20 f3 20 69 24 |. a=1 . 4 : . i$|
00008d30 20 3a 20 f2 66 6f 6e 74 28 57 2c 48 2c 37 2c 69 | : .font(W,H,7,i|
00008d40 24 29 0d 34 44 15 48 2d 3d 34 30 20 3a 20 ed 20 |$).4D.H-=40 : . |
00008d50 3a 20 48 2d 3d 35 32 0d 34 4e 2e c8 99 20 22 4f |: H-=52.4N... "O|
00008d60 53 5f 53 70 72 69 74 65 4f 70 22 2c 32 39 30 2c |S_SpriteOp",290,|
00008d70 53 70 72 69 74 65 25 2c 22 73 74 61 22 2c 57 2d |Sprite%,"sta",W-|
00008d80 34 2c 48 2c 30 0d 34 58 2e 48 2d 3d 31 32 20 3a |4,H,0.4X.H-=12 :|
00008d90 20 e3 20 61 3d 31 20 b8 20 32 20 3a 20 f3 20 69 | . a=1 . 2 : . i|
00008da0 24 20 3a 20 f2 66 6f 6e 74 28 57 2c 48 2c 37 2c |$ : .font(W,H,7,|
00008db0 69 24 29 0d 34 62 15 48 2d 3d 34 30 20 3a 20 ed |i$).4b.H-=40 : .|
00008dc0 20 3a 20 48 2d 3d 35 32 0d 34 6c 2e c8 99 20 22 | : H-=52.4l... "|
00008dd0 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 32 39 30 |OS_SpriteOp",290|
00008de0 2c 53 70 72 69 74 65 25 2c 22 6b 6c 69 22 2c 57 |,Sprite%,"kli",W|
00008df0 2d 34 2c 48 2c 30 0d 34 76 0a f2 73 70 61 63 65 |-4,H,0.4v..space|
00008e00 0d 34 80 05 3a 0d 34 8a 46 dc 20 54 48 45 52 45 |.4..:.4.F. THERE|
00008e10 20 41 52 45 20 53 45 52 56 45 52 41 4c 20 4f 54 | ARE SERVERAL OT|
00008e20 48 45 52 20 43 4f 4d 4d 41 4e 44 2c 42 55 54 54 |HER COMMAND,BUTT|
00008e30 4f 4e 53 20 57 49 54 48 20 56 41 52 49 4f 55 53 |ONS WITH VARIOUS|
00008e40 20 46 55 4e 43 54 49 4f 4e 53 3a 0d 34 94 35 dc | FUNCTIONS:.4.5.|
00008e50 20 46 4f 52 20 41 20 4d 49 53 53 49 4f 4e 20 53 | FOR A MISSION S|
00008e60 54 41 54 55 53 20 52 45 50 4f 52 54 20 55 53 45 |TATUS REPORT USE|
00008e70 2c 43 4f 4d 4d 41 4e 44 20 42 55 54 54 4f 4e 3a |,COMMAND BUTTON:|
00008e80 0d 34 9e 47 dc 20 49 4e 46 4f 52 4d 41 54 49 4f |.4.G. INFORMATIO|
00008e90 4e 20 4f 4e 20 4b 4c 49 4e 47 4f 4e 20 53 48 49 |N ON KLINGON SHI|
00008ea0 50 53 20 43 41 4e 2c 42 45 20 41 43 43 45 53 53 |PS CAN,BE ACCESS|
00008eb0 45 44 20 57 49 54 48 20 43 4f 4d 4d 41 4e 44 20 |ED WITH COMMAND |
00008ec0 42 55 54 54 4f 4e 3a 0d 34 a8 25 dc 20 41 20 53 |BUTTON:.4.%. A S|
00008ed0 54 41 54 55 53 20 52 45 50 4f 52 54 20 4f 4e 20 |TATUS REPORT ON |
00008ee0 54 48 45 20 4d 49 53 53 49 4f 4e 2e 0d 34 b2 05 |THE MISSION..4..|
00008ef0 3a 0d 34 bc 0d f2 63 6c 65 61 72 28 33 29 0d 34 |:.4...clear(3).4|
00008f00 c6 1a 57 3d 33 30 38 20 3a 20 48 3d 37 34 30 20 |..W=308 : H=740 |
00008f10 3a 20 f7 20 8d 54 60 75 0d 34 d0 26 e3 20 61 3d |: . .T`u.4.&. a=|
00008f20 31 20 b8 20 33 20 3a 20 f3 20 69 24 20 3a 20 f2 |1 . 3 : . i$ : .|
00008f30 66 6f 6e 74 28 57 2c 48 2c 37 2c 69 24 29 0d 34 |font(W,H,7,i$).4|
00008f40 da 15 48 2d 3d 34 30 20 3a 20 ed 20 3a 20 48 2d |..H-=40 : . : H-|
00008f50 3d 35 32 0d 34 e4 2e c8 99 20 22 4f 53 5f 53 70 |=52.4.... "OS_Sp|
00008f60 72 69 74 65 4f 70 22 2c 32 39 30 2c 53 70 72 69 |riteOp",290,Spri|
00008f70 74 65 25 2c 22 64 61 74 22 2c 57 2d 34 2c 48 2c |te%,"dat",W-4,H,|
00008f80 30 0d 34 ee 2e 48 2d 3d 31 32 20 3a 20 e3 20 61 |0.4..H-=12 : . a|
00008f90 3d 31 20 b8 20 33 20 3a 20 f3 20 69 24 20 3a 20 |=1 . 3 : . i$ : |
00008fa0 f2 66 6f 6e 74 28 57 2c 48 2c 37 2c 69 24 29 0d |.font(W,H,7,i$).|
00008fb0 34 f8 15 48 2d 3d 34 30 20 3a 20 ed 20 3a 20 48 |4..H-=40 : . : H|
00008fc0 2d 3d 35 32 0d 35 02 2e c8 99 20 22 4f 53 5f 53 |-=52.5.... "OS_S|
00008fd0 70 72 69 74 65 4f 70 22 2c 32 39 30 2c 53 70 72 |priteOp",290,Spr|
00008fe0 69 74 65 25 2c 22 63 72 63 22 2c 57 2d 34 2c 48 |ite%,"crc",W-4,H|
00008ff0 2c 30 0d 35 0c 0a f2 73 70 61 63 65 0d 35 16 05 |,0.5...space.5..|
00009000 3a 0d 35 20 46 dc 20 46 55 52 54 48 45 52 20 2d |:.5 F. FURTHER -|
00009010 20 4b 4c 49 4e 47 4f 4e 20 53 48 49 50 20 50 4f | KLINGON SHIP PO|
00009020 53 49 54 49 4f 4e 53 2c 43 41 4e 20 41 4c 53 4f |SITIONS,CAN ALSO|
00009030 20 42 45 20 41 43 43 45 53 53 45 44 20 46 4f 52 | BE ACCESSED FOR|
00009040 20 41 49 4d 49 4e 47 0d 35 2a 25 dc 20 54 4f 52 | AIMING.5*%. TOR|
00009050 50 45 44 4f 45 53 20 55 53 49 4e 47 20 43 4f 4d |PEDOES USING COM|
00009060 4d 41 4e 44 20 42 55 54 54 4f 4e 3a 0d 35 34 49 |MAND BUTTON:.54I|
00009070 dc 20 54 4f 20 48 45 4c 50 20 57 49 54 48 20 59 |. TO HELP WITH Y|
00009080 4f 55 52 20 4e 41 56 49 47 41 54 49 4f 4e 20 54 |OUR NAVIGATION T|
00009090 48 45 52 45 2c 49 53 20 41 20 43 4f 55 52 53 45 |HERE,IS A COURSE|
000090a0 20 41 4e 44 20 52 41 4e 47 45 20 43 41 4c 43 55 | AND RANGE CALCU|
000090b0 4c 41 54 4f 52 0d 35 3e 23 dc 20 41 43 43 45 53 |LATOR.5>#. ACCES|
000090c0 53 45 44 20 57 49 54 48 20 43 4f 4d 4d 41 4e 44 |SED WITH COMMAND|
000090d0 20 42 55 54 54 4f 4e 3a 0d 35 48 05 3a 0d 35 52 | BUTTON:.5H.:.5R|
000090e0 05 e1 0d 35 5c 05 3a 0d 35 66 15 dd 20 f2 73 68 |...5\.:.5f.. .sh|
000090f0 6f 72 74 52 61 6e 67 65 53 63 61 6e 0d 35 70 0e |ortRangeScan.5p.|
00009100 e7 20 44 28 31 29 3c 30 20 8c 0d 35 7a 43 20 20 |. D(1)<0 ..5zC |
00009110 20 20 20 3a 20 f2 63 6c 65 61 72 28 33 29 20 3a | : .clear(3) :|
00009120 20 f2 74 65 78 74 28 33 30 38 2c 37 30 38 2c 22 | .text(308,708,"|
00009130 52 22 2c 22 54 48 45 20 53 48 4f 52 54 20 52 41 |R","THE SHORT RA|
00009140 4e 47 45 20 53 45 4e 53 4f 52 53 22 29 0d 35 84 |NGE SENSORS").5.|
00009150 35 20 20 20 20 20 3a 20 f2 74 65 78 74 28 33 30 |5 : .text(30|
00009160 38 2c 36 35 36 2c 22 52 22 2c 22 41 52 45 20 44 |8,656,"R","ARE D|
00009170 41 4d 41 47 45 44 20 2e 2e 2e 2e 2e 22 29 20 3a |AMAGED .....") :|
00009180 20 e1 0d 35 8e 05 cd 0d 35 98 19 58 3d 32 37 36 | ..5....5..X=276|
00009190 20 3a 20 59 3d 33 33 36 20 3a 20 e6 20 38 2c 30 | : Y=336 : . 8,0|
000091a0 0d 35 a2 38 c8 99 20 22 4f 53 5f 53 70 72 69 74 |.5.8.. "OS_Sprit|
000091b0 65 4f 70 22 2c 32 39 30 2c 53 70 72 69 74 65 25 |eOp",290,Sprite%|
000091c0 2c 22 73 68 6f 72 74 73 63 61 6e 22 2c 58 2b 32 |,"shortscan",X+2|
000091d0 30 2c 59 2b 31 36 2c 30 0d 35 ac 0d e3 20 41 3d |0,Y+16,0.5... A=|
000091e0 31 20 b8 20 38 0d 35 b6 0a c8 8e 20 41 20 ca 0d |1 . 8.5.... A ..|
000091f0 35 c0 24 c9 20 31 20 3a 20 78 3d 58 2b 32 34 30 |5.$. 1 : x=X+240|
00009200 20 3a 20 79 3d 59 2b 33 35 32 20 3a 20 42 24 3d | : y=Y+352 : B$=|
00009210 22 31 22 0d 35 ca 1b c9 20 32 20 3a 20 78 3d 58 |"1".5... 2 : x=X|
00009220 2b 32 32 34 20 3a 20 79 3d 59 2b 33 32 30 0d 35 |+224 : y=Y+320.5|
00009230 d4 24 c9 20 33 20 3a 20 78 3d 58 2b 32 30 30 20 |.$. 3 : x=X+200 |
00009240 3a 20 79 3d 59 2b 32 38 34 20 3a 20 42 24 3d 22 |: y=Y+284 : B$="|
00009250 33 22 0d 35 de 1b c9 20 34 20 3a 20 78 3d 58 2b |3".5... 4 : x=X+|
00009260 31 37 38 20 3a 20 79 3d 59 2b 32 34 38 0d 35 e8 |178 : y=Y+248.5.|
00009270 24 c9 20 35 20 3a 20 78 3d 58 2b 31 35 34 20 3a |$. 5 : x=X+154 :|
00009280 20 79 3d 59 2b 32 30 38 20 3a 20 42 24 3d 22 35 | y=Y+208 : B$="5|
00009290 22 0d 35 f2 1b c9 20 36 20 3a 20 78 3d 58 2b 31 |".5... 6 : x=X+1|
000092a0 33 32 20 3a 20 79 3d 59 2b 31 37 32 0d 35 fc 24 |32 : y=Y+172.5.$|
000092b0 c9 20 37 20 3a 20 78 3d 58 2b 31 30 32 20 3a 20 |. 7 : x=X+102 : |
000092c0 79 3d 59 2b 31 32 38 20 3a 20 42 24 3d 22 37 22 |y=Y+128 : B$="7"|
000092d0 0d 36 06 1a c9 20 38 20 3a 20 78 3d 58 2b 37 34 |.6... 8 : x=X+74|
000092e0 20 20 3a 20 79 3d 59 2b 38 30 0d 36 10 05 cb 0d | : y=Y+80.6....|
000092f0 36 1a 0d e3 20 42 3d 31 20 b8 20 38 0d 36 24 1b |6... B=1 . 8.6$.|
00009300 41 24 3d 51 24 28 41 2c 42 29 20 3a 20 e7 20 41 |A$=Q$(A,B) : . A|
00009310 24 3c 3e 22 22 20 8c 0d 36 2e 33 20 20 20 20 20 |$<>"" ..6.3 |
00009320 3a 20 c8 99 20 22 4f 53 5f 53 70 72 69 74 65 4f |: .. "OS_SpriteO|
00009330 70 22 2c 32 39 30 2c 53 70 72 69 74 65 25 2c 41 |p",290,Sprite%,A|
00009340 24 2b 42 24 2c 78 2c 79 2c 38 0d 36 38 05 cd 0d |$+B$,x,y,8.68...|
00009350 36 42 11 e7 20 41 3d 31 20 8c 20 78 2b 3d 33 34 |6B.. A=1 . x+=34|
00009360 0d 36 4c 11 e7 20 41 3d 32 20 8c 20 78 2b 3d 33 |.6L.. A=2 . x+=3|
00009370 38 0d 36 56 11 e7 20 41 3d 33 20 8c 20 78 2b 3d |8.6V.. A=3 . x+=|
00009380 34 34 0d 36 60 11 e7 20 41 3d 34 20 8c 20 78 2b |44.6`.. A=4 . x+|
00009390 3d 35 30 0d 36 6a 11 e7 20 41 3d 35 20 8c 20 78 |=50.6j.. A=5 . x|
000093a0 2b 3d 35 36 0d 36 74 11 e7 20 41 3d 36 20 8c 20 |+=56.6t.. A=6 . |
000093b0 78 2b 3d 36 32 0d 36 7e 11 e7 20 41 3d 37 20 8c |x+=62.6~.. A=7 .|
000093c0 20 78 2b 3d 37 30 0d 36 88 11 e7 20 41 3d 38 20 | x+=70.6... A=8 |
000093d0 8c 20 78 2b 3d 37 38 0d 36 92 05 ed 0d 36 9c 05 |. x+=78.6....6..|
000093e0 ed 0d 36 a6 05 e1 0d 36 b0 05 3a 0d 36 ba 0e dd |..6....6..:.6...|
000093f0 20 f2 63 6f 6c 6f 75 72 73 0d 36 c4 19 ef 20 31 | .colours.6... 1|
00009400 39 2c 30 2c 32 34 2c 31 37 36 2c 31 37 36 2c 31 |9,0,24,176,176,1|
00009410 37 36 0d 36 ce 15 ef 20 31 39 2c 31 2c 31 36 2c |76.6... 19,1,16,|
00009420 32 30 38 2c 30 2c 30 0d 36 d8 17 ef 20 31 39 2c |208,0,0.6... 19,|
00009430 32 2c 31 36 2c 32 30 38 2c 31 34 34 2c 30 0d 36 |2,16,208,144,0.6|
00009440 e2 17 ef 20 31 39 2c 33 2c 31 36 2c 32 34 30 2c |... 19,3,16,240,|
00009450 31 39 32 2c 30 0d 36 ec 15 ef 20 31 39 2c 34 2c |192,0.6... 19,4,|
00009460 31 36 2c 30 2c 30 2c 32 32 34 0d 36 f6 17 ef 20 |16,0,0,224.6... |
00009470 31 39 2c 35 2c 31 36 2c 30 2c 31 32 38 2c 32 30 |19,5,16,0,128,20|
00009480 38 0d 37 00 17 ef 20 31 39 2c 36 2c 31 36 2c 30 |8.7... 19,6,16,0|
00009490 2c 31 37 36 2c 32 32 34 0d 37 0a 19 ef 20 31 39 |,176,224.7... 19|
000094a0 2c 37 2c 31 36 2c 32 32 34 2c 32 32 34 2c 32 32 |,7,16,224,224,22|
000094b0 34 0d 37 14 15 ef 20 31 39 2c 38 2c 31 36 2c 30 |4.7... 19,8,16,0|
000094c0 2c 31 39 32 2c 30 0d 37 1e 19 ef 20 31 39 2c 39 |,192,0.7... 19,9|
000094d0 2c 31 36 2c 32 30 38 2c 32 30 38 2c 32 30 38 0d |,16,208,208,208.|
000094e0 37 28 17 ef 20 31 39 2c 31 30 2c 31 36 2c 39 36 |7(.. 19,10,16,96|
000094f0 2c 39 36 2c 39 36 0d 37 32 1a ef 20 31 39 2c 31 |,96,96.72.. 19,1|
00009500 31 2c 31 36 2c 31 32 38 2c 31 32 38 2c 31 32 38 |1,16,128,128,128|
00009510 0d 37 3c 1a ef 20 31 39 2c 31 32 2c 31 36 2c 31 |.7<.. 19,12,16,1|
00009520 34 34 2c 31 34 34 2c 31 34 34 0d 37 46 1a ef 20 |44,144,144.7F.. |
00009530 31 39 2c 31 33 2c 31 36 2c 31 36 30 2c 31 36 30 |19,13,16,160,160|
00009540 2c 31 36 30 0d 37 50 1a ef 20 31 39 2c 31 34 2c |,160.7P.. 19,14,|
00009550 31 36 2c 31 37 36 2c 31 37 36 2c 31 37 36 0d 37 |16,176,176,176.7|
00009560 5a 1a ef 20 31 39 2c 31 35 2c 31 36 2c 31 39 32 |Z.. 19,15,16,192|
00009570 2c 31 39 32 2c 31 39 32 0d 37 64 0d fb 20 31 34 |,192,192.7d.. 14|
00009580 32 20 3a 20 db 0d 37 6e 05 e1 0d 37 78 05 3a 0d |2 : ..7n...7x.:.|
00009590 37 82 11 dd 20 f2 73 70 72 69 74 65 4c 6f 61 64 |7... .spriteLoad|
000095a0 0d 37 8c 14 de 20 53 63 72 65 65 6e 25 20 26 31 |.7... Screen% &1|
000095b0 35 30 30 30 0d 37 96 40 21 53 63 72 65 65 6e 25 |5000.7.@!Screen%|
000095c0 3d 26 31 35 30 30 30 20 3a 20 53 63 72 65 65 6e |=&15000 : Screen|
000095d0 25 21 34 3d 30 20 3a 20 53 63 72 65 65 6e 25 21 |%!4=0 : Screen%!|
000095e0 38 3d 31 36 20 3a 20 53 63 72 65 65 6e 25 21 31 |8=16 : Screen%!1|
000095f0 32 3d 31 36 0d 37 a0 40 c8 99 20 22 4f 53 5f 53 |2=16.7.@.. "OS_S|
00009600 70 72 69 74 65 4f 70 22 2c 32 36 36 2c 53 63 72 |priteOp",266,Scr|
00009610 65 65 6e 25 2c 22 3c 53 74 61 72 54 72 65 6b 24 |een%,"<StarTrek$|
00009620 44 69 72 3e 2e 53 50 52 49 54 45 53 2e 53 63 72 |Dir>.SPRITES.Scr|
00009630 65 65 6e 22 0d 37 aa 2f c8 99 20 22 4f 53 5f 53 |een".7./.. "OS_S|
00009640 70 72 69 74 65 4f 70 22 2c 32 39 30 2c 53 63 72 |priteOp",290,Scr|
00009650 65 65 6e 25 2c 22 73 63 72 65 65 6e 22 2c 30 2c |een%,"screen",0,|
00009660 30 2c 30 0d 37 b4 05 d8 0d 37 be 13 de 20 53 70 |0,0.7....7... Sp|
00009670 72 69 74 65 25 20 26 45 39 30 30 0d 37 c8 3f 21 |rite% &E900.7.?!|
00009680 53 70 72 69 74 65 25 3d 26 45 39 30 30 20 3a 20 |Sprite%=&E900 : |
00009690 53 70 72 69 74 65 25 21 34 3d 30 20 3a 20 53 70 |Sprite%!4=0 : Sp|
000096a0 72 69 74 65 25 21 38 3d 31 36 20 3a 20 53 70 72 |rite%!8=16 : Spr|
000096b0 69 74 65 25 21 31 32 3d 31 36 0d 37 d2 44 c8 99 |ite%!12=16.7.D..|
000096c0 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c 32 | "OS_SpriteOp",2|
000096d0 36 36 2c 53 70 72 69 74 65 25 2c 22 3c 53 74 61 |66,Sprite%,"<Sta|
000096e0 72 54 72 65 6b 24 44 69 72 3e 2e 53 50 52 49 54 |rTrek$Dir>.SPRIT|
000096f0 45 53 2e 42 61 63 6b 47 72 6f 75 6e 64 22 0d 37 |ES.BackGround".7|
00009700 dc 41 c8 99 20 22 4f 53 5f 53 70 72 69 74 65 4f |.A.. "OS_SpriteO|
00009710 70 22 2c 32 36 37 2c 53 70 72 69 74 65 25 2c 22 |p",267,Sprite%,"|
00009720 3c 53 74 61 72 54 72 65 6b 24 44 69 72 3e 2e 53 |<StarTrek$Dir>.S|
00009730 50 52 49 54 45 53 2e 42 75 74 74 6f 6e 73 22 0d |PRITES.Buttons".|
00009740 37 e6 3f c8 99 20 22 4f 53 5f 53 70 72 69 74 65 |7.?.. "OS_Sprite|
00009750 4f 70 22 2c 32 36 37 2c 53 70 72 69 74 65 25 2c |Op",267,Sprite%,|
00009760 22 3c 53 74 61 72 54 72 65 6b 24 44 69 72 3e 2e |"<StarTrek$Dir>.|
00009770 53 50 52 49 54 45 53 2e 57 74 65 78 74 22 0d 37 |SPRITES.Wtext".7|
00009780 f0 3f c8 99 20 22 4f 53 5f 53 70 72 69 74 65 4f |.?.. "OS_SpriteO|
00009790 70 22 2c 32 36 37 2c 53 70 72 69 74 65 25 2c 22 |p",267,Sprite%,"|
000097a0 3c 53 74 61 72 54 72 65 6b 24 44 69 72 3e 2e 53 |<StarTrek$Dir>.S|
000097b0 50 52 49 54 45 53 2e 52 74 65 78 74 22 0d 37 fa |PRITES.Rtext".7.|
000097c0 3f c8 99 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 |?.. "OS_SpriteOp|
000097d0 22 2c 32 36 37 2c 53 70 72 69 74 65 25 2c 22 3c |",267,Sprite%,"<|
000097e0 53 74 61 72 54 72 65 6b 24 44 69 72 3e 2e 53 50 |StarTrek$Dir>.SP|
000097f0 52 49 54 45 53 2e 59 74 65 78 74 22 0d 38 04 3f |RITES.Ytext".8.?|
00009800 c8 99 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 |.. "OS_SpriteOp"|
00009810 2c 32 36 37 2c 53 70 72 69 74 65 25 2c 22 3c 53 |,267,Sprite%,"<S|
00009820 74 61 72 54 72 65 6b 24 44 69 72 3e 2e 53 50 52 |tarTrek$Dir>.SPR|
00009830 49 54 45 53 2e 47 74 65 78 74 22 0d 38 0e 3f c8 |ITES.Gtext".8.?.|
00009840 99 20 22 4f 53 5f 53 70 72 69 74 65 4f 70 22 2c |. "OS_SpriteOp",|
00009850 32 36 37 2c 53 70 72 69 74 65 25 2c 22 3c 53 74 |267,Sprite%,"<St|
00009860 61 72 54 72 65 6b 24 44 69 72 3e 2e 53 50 52 49 |arTrek$Dir>.SPRI|
00009870 54 45 53 2e 42 74 65 78 74 22 0d 38 18 1f ff 20 |TES.Btext".8... |
00009880 22 3c 53 74 61 72 54 72 65 6b 24 44 69 72 3e 2e |"<StarTrek$Dir>.|
00009890 54 72 65 6b 46 6f 6e 74 22 0d 38 22 0c f2 70 6f |TrekFont".8"..po|
000098a0 69 6e 74 65 72 0d 38 2c 05 e1 0d ff |inter.8,....|
000098ac 
.