IMD 1.16: 7/09/2007 10:59:53 Cromemco FORTRAN IV Version 3.02 MASTER COPY    XFER COMTREK BAS TREK BAS !"%&'()TREK BAS*+,-./01234567) : NEXT 43 FOR I=1 TO 3 : READ T$(I) : NEXT : FOR I=1 TO 4 : READ S$(I) : NEXT : FOR I=1 TO 6 44 READ C2$(I) : NEXT : FOR I=MAZE ASC"MAZE COMhBKG106 COMBKG106 COM PANEL,ABANDON,CHART,COMPUTER 22 DATA DAMAGES,DESTRUCT,DOCK,IDLE,IMPULSE,LRSCAN,NAVIGATE,PHASERS,QUIT 23 DATA SHIELDS,SOS,SRSCTREK $$$TREK BAKGHIJKLMNOPQRSjklTREK BAKnopqxyz{|}~TREK BAK1 TO 9 : READ C5(I) : NEXT 46 GOSUB 24001 : S7$(1)="" : S7$(2)=" " : S7$(3)=" " : S7$(4)="" 70 IF A2<>0 THEN 901 75 J4=0 : BKG106 COMTREK $$$AN,STATUS,TORPEDO,TRANSFER,VISUAL,WARP,SHORT 24 DATA MEDIUM,LONG,BEGINNER,NOVICE,SENIOR,EXPERT,COURSE,WCOST,ICOST 25 DATA PEFFMAZE COM#$TREK BASOTHELLO COMTUVWXYZ[\]^_`abcOTHELLO COM2defghimCopyright (c) 1978 CROMEMCO, INC. XFER (Transfer) version 01.03 $ RELCD ; AND FLAG RELOC. TYPE MOECT,SCORE,OUT 27 DATA 10.5,12,1.5,9,0,3,7.5,6,4.5 28 DEF FNA(X)=INT(8*RND(X))+1:DEF FNB(X)=INT(10*RND(X))+1 29 DEF FND(X)=X/6LIFE Z80GHISPACE Z80qxyz{|}~SPACE Z80"FORLIB RELz{|}~2 LQ=1000 7 DIM C$(20),G(8,8),D$(12),Q$(10,10),D4(12),D9(106) 10 DIM S2(8,8):Q$="?" 15 DATA S.R. SENSORS,L.R. SENSORS,PHASERS  *0 30 DEFFNR(X)=INT(X*10+.5)/10 : DEFFNS(X)=INT(X*100+.5)/100 40 FOR I=1 TO 12 : READ D$(I) : NEXT : FOR I=1 TO 20 : READ C$(ILANDER COMjrstuvwTREK $$$MAZE COMFORLIB REL4,PHOTON TUBES,LIFE SUPPORT 20 DATA WARP ENGINES,IMPULSE ENGINES,SHIELDS,SUBSPACE RADIO 21 DATA SHUTTLE CRAFT,COMPUTER,TRANSFER % xI*! G |22|g>o "!\~#~ 22[!~N!+6  !~N6!~ #Àw#Èw# ‘ɷ6 #=Ú¥! 0 T])))_ð>0> 2D "E `i|>-% G    ~R62[:Qp:Rp>2[p:e!͑\\\!l͑!e6$#6$#6$\ICannot erase old  # 6#w#w++  RDRPUNLSTCONPRTDUMR @w#6:#h 6.#h 6x w w# h  w #̀ :YI"E\z ͢ :\v!^~@v~w:Vv\> :Oʉ:XG:T x open error write error close error create error T O>ɷw £ !%4~#>£ w >!%6È~/’#~!ҋ̀"E2G2Y2Z!F#^#V#~¥:U!Tw!P!Ow:R!QNwy>2[AOTPCQVRSTFUXSRVIXZW!  *E /| G x00  *E w#"E ɀ8 $ 4 :D % L #|/g}/oz{! o ))))o\ 0 x~ yGfile$:WA*J*H+ej>)!lg#Q:OA*LQ T N failed compare $ length compare error $ **#"~*$ >22>2>2!D|!~w#~w*! 5J*~OGyOxGy*! ~*" ~#fo6*~w x ͑ 9:P(x͑> ͑!G~( \͕!G6*L#"L:TY> ͕Æ:Ujx͕Æx u {͕Æ>^͑ ; ʙ ~q #w+á 4~#+} wO<Q ~ />#~>~ >~!*E\:] 42Z̀~=I#"E! ͑! ~?k#]>2Y} :YO͇ x0:w#+w# ! y ^ >@űO !   #*"!>x@͕͑!G4O:[>  G:S:N>2N!Ug:H!9~ *JDM!;w x!A~ y!D~ 9  !UgN!gQ !#N#F#~g>o N ͤ > #d  ä 6²:YRINo ambiguous files matched$! ͑:2!g!\z ͢ !^~@~w:V\!g:YR6E ;  4~#+ >wO<Q qѷ 2: :: o Q O \ 6#

͖ *J"J*H#"H:[C; :Qw>2[:Y:NN> aO:Oy:Rk͡!gz͡!Y! w#p#q! ˜  bk## 6@w6++6#666w# !~:#~ 0 !$  >2Yp:Z!] ͑!] ~?I#":[K!\>$$$z ~ f!\:R]>$$$z ͢ !"H"J"L2N*E~  Ͱ !6; ; ¢ !. կ!%w##~+w! w#w#w#w! wͰ ! >>! = < d < d v #f!!*2y x)lz*#"!~w#~wfVz!~#fo":r!::#r*))< ~xlz*))<T$(C$(I),LEN(A$)) THEN 150 130 NEXT 135 PRINT "ILLEGAL !! - USE THIS LIST" 140 PRINT : FOR I=1 TO 20 STEP 4 141 PRINT C$(I/60 30 DEF FNR(X)=INT(X*10+.5)/10 : DEF FNS(X)=INT(X*100+.5)/100 40 FOR I=1 TO 12 : READ D$(I) : NEXT : FOR I=1 TO 20 : READ  610 IF G(Q1,Q2)<>LQ THEN 70 615 GOTO 750 627 GOSUB 25010 : GOTO 70 710 IF A2<>0 THEN 901 720 IF T1<>0 THEN GOSUB 9000 730 RS,PHOTON TUBES,LIFE SUPPORT 20 DATA WARP ENGINES,IMPULSE ENGINES,SHIELDS,SUBSPACE RADIO 21 DATA SHUTTLE CRAFT,COMPUTER,TRANSF710 376 GOSUB 14001 : GOTO 70 401 GOSUB 34001 402 IF J3=0 THEN 70 410 GOTO 710 426 GOSUB 20001 : IF J3=0 THEN 70 428 GOSUB MDlzs!~#ʱ!: :ʱ*yi`"É*yñVz*"!~#fo"*MDlzVz!~#fo"* ~#fo"!);TAB(12);C$(I+1);TAB(22);C$(I+2);TAB(32);C$(I+3) 142 NEXT : PRINT : GOTO 70 150 ON I GOTO 201,226,251,276,291,301,326,351,37C$(I) : NEXT 43 FOR I=1 TO 3 : READ T$(I) : NEXT : FOR I=1 TO 4 : READ S$(I) : NEXT : FOR I=1 TO 6 44 READ C2$(I) : NEXT : FOIF A2<>0 THEN 901 740 IF G(Q1,Q2)0 THEN 901 760 IF A2<>0 THEN 901 770 GOTO 740 790 GOSER PANEL,ABANDON,CHART,COMPUTER 22 DATA DAMAGES,DESTRUCT,DOCK,IDLE,IMPULSE,LRSCAN,NAVIGATE,PHASERS,QUIT 23 DATA SHIELDS,SOS,SR 1000 : GOTO 70 476 GOSUB 26001 : IF J3=0 THEN 70 478 IF A2<>0 THEN 901 479 GOSUB 1000 : S9=0 : GOTO 70 501 GOSUB 11001 : GO*$ ~#~#~#~!!͎~##~#~*$ ##N#Fi`}o|g"*! !!yOx#Gyw*" ** * }|6,401 160 ON I-10 GOTO 426,901,476,501,526,545,551,576,601,627 201 GOSUB 35001 : GOTO 70 226 GOSUB 3001 : GOTO 70 251 GOSUR I=1 TO 9 : READ C5(I) : NEXT 46 GOSUB 24001 : S7$(1)="" : S7$(2)=" " : S7$(3)=" " : S7$(4)="" 70 IF A2<>0 THEN 901 75 J4=UB 1000 : GOTO 70 901 PRINT : PRINT : INPUT "ANOTHER GAME ";A$ 910 IF LEFT$(A$,1)="Y" THEN 46 911 PRINT CHR$(12) : END 100SCAN,STATUS,TORPEDO,TRANSFER,VISUAL,WARP,SHORT 24 DATA MEDIUM,LONG,BEGINNER,NOVICE,SENIOR,EXPERT,COURSE,WCOST,ICOST 25 DATA PETO 70 526 GOSUB 29002 : GOTO 70 545 PRINT : GOSUB 37001 : GOTO 70 551 GOSUB 21001 : IF J3=0 THEN 70ELSE710 576 GOSUB 31001 !~#«!*( ¢ #«lz!*x!N#F!N#F*xlz* ~OG* ~OGyOxB 5001 : GOTO 70 276 GOSUB 8001 : GOTO 70 291 GOSUB 36001 : GOTO 70 301 GOSUB 7000 : GOTO 70 326 GOSUB 33001 : IF J3=0 THEN 0 : T1=0 : INPUT "COMMAND";A$ : IF LEN(A$)>1 THEN 110 80 PRINT "2 LETTERS, PLEASE." : GOTO 75 110 FOR I=1 TO 20 120 IF A$=LEF0 IF (C3<>0) AND (J4=0) THEN GOSUB 16001 1020 IF K3=0 THEN RETURN 1030 IF A2<>0 THEN RETURN 1040 P2=1/I8 1050 J5=0 1060 PRIFFECT,SCORE,OUT 27 DATA 10.5,12,1.5,9,0,3,7.5,6,4.5 28 DEF FNA(X)=INT(8*RND(X))+1:DEF FNB(X)=INT(10*RND(X))+1 29 DEF FND(X)=X: IF J3=0 THEN 70 585 IF A2<>0 THEN 901 590 IF G(Q1,Q2)<>LQ THEN 70 595 GOTO 750 601 IF J3=0 THEN 70 603 IF A2<>0 THEN 901 2 LQ=1000 7 DIM C$(20),G(8,8),D$(12),Q$(10,10),D4(12),D9(106) 10 DIM S2(8,8) : Q$="?" 15 DATA S.R. SENSORS,L.R. SENSORS,PHASE70 331 IF A2<>0 THEN 901 332 IF G(Q1,Q2)=1000 THEN 750 340 GOSUB 1000 : GOTO 70 351 GOSUB 13001 : IF J3=0 THEN 70 353 GOTO  NT 1070 IF C5$="DOCKED" THEN 1780 1080 H2=0 : H3=0 : C6=1 1090 IF S9=1 THEN C6=.5+.5*RND(1) 1100 A3=0 1110 FOR L=1 TO K3 1800 1670 J8=INT(H3*RND(1)*.015) 1680 IF J8<2 THEN 1800 1690 PRINT 1700 PRINT "---> 'SICKBAY TO BRIDGE. WE SUFFERED ";J8;" D4(8)=0 THEN 1530 1510 IF S4<>0 THEN PRINT "*** SHIELDS KNOCKED DOWN." 1520 S4=0 1530 E1=E1-H4 1540 NEXT L 1550 IF A3=0 TH=1.4142+2*RND(1) 2340 D1=D6 2350 IF D6>D7 THEN D1=D7 2360 T1=10*D1/W2 2370 D2=12*RND(1) 2380 J4=0 2390 GOSUB 34500 2400 I4 1300 H3=H3+H4 1310 IF H4<(275-25*S8)*(1+.5*RND(1)) THEN 1530 1320 N4=1+INT(H4/(500+100*RND(1))) 1330 PRINT "*** CRITICAL H00 IF D4(6)=0 THEN 2290 2110 PRINT 2120 PRINT "WARP ENGINES DAMAGED." 2140 PRINT : PRINT "TRYING TO ENGAGE IMPULSE ENGINES.1120 IF K6(L)<0 THEN 1540 1130 A3=1 1140 D6=.8+.05*RND(1) 1150 H4=K6(L)*D6^K8(L) 1160 IF (S4=0) AND (S9=0) THEN 1230 1170 PCASUALTIES IN THAT ATTACK" 1730 C4=C4+J8 1740 GOTO 1800 1750 F9=5 1760 GOSUB 10000 : RETURN 1780 PRINT "*** KLINGONS ATTACKEN RETURN 1560 IF E1<=0 THEN 1750 1570 P4=100*P2*S3+.5 1580 IF J5<>0 THEN 1610 1590 PRINT "ENEMY ATTACK--SHIELDS REDUCED TO F J4<>0 THEN 2440 2410 F9=8 2420 GOSUB 10000 2430 RETURN 2440 IF R1<>0 THEN RETURN 2450 F9=1 2460 GOSUB 10000 2470 RETURNIT--"; 1340 K9=1 1350 FOR W4=1 TO N4 1360 J9=INT(12*RND(1))+1 1370 C5(W4)=J9 1380 E3=(H4*D5)/(N4*(75+25*RND(1))) 1390 IF J.." 2150 IF D4(7)=0 THEN 2190 2160 PRINT "IMPULSE ENGINES DAMAGED." 2165 F9=8 2170 GOSUB 10000 2180 RETURN 2190 P2=.75*E1 3=.1 : IF P2*S3>P3 THEN P3=P2*S3 1180 H5=P3*C6*H4+1 1190 IF H5>S3 THEN H5=S3 1195 S3=S3-H5 : H4=H4-H5 1210 IF (P3>.1) AND (H-- STARBASE SHIELDS PROTECT THE ";S5$ 1800 FOR W4=1 TO K3 1810 K8(W4)=K7(W4) 1820 NEXT W4 1830 GOSUB 28000 : RETURN 2001 PR"; 1600 GOTO 1650 1610 PRINT "ENERGY LEFT : ";FNS(E1);" SHIELDS "; 1620 IF S4<>0 THEN PRINT "UP,"; 1630 IF (S4=0) AND (D4( 3001 PRINT : PRINT " 1 2 3 4 5 6 7 8" 3010 PRINT " --- --- --- --- --- --- --- ---" 3020 FOR I=1 TO 9=6 THEN E3=E3/3 1395 D4(J9)=D4(J9)+E3 1400 IF W4=1 THEN 1470 1420 FOR V=1 TO W4 1430 IF J9=C5(V-1) THEN 1480 1440 NEXT V  2200 D6=4E-03*(P2-50) 2210 D7=1.4142+1.2*RND(1) 2220 D1=D6 2230 IF D6>D7 THEN D1=D7 2240 T1=D1/.4 2250 D2=12*RND(1) 2260 4<5E-03*E1) THEN 1540 1230 J5=1 1240 PRINT FNR(H4);"UNIT HIT ON THE ";S5$;" FROM "; 1250 J6=K4(L) : J7=K5(L) 1260 IF Q$(J6,JINT : IF J4=0 THEN 2050 2020 PRINT "*** RED ALERT! RED ALERT!" 2030 PRINT "*** THE ";S5$;" HAS STOPPED IN QUADRANT CONTAININ8)=0) THEN PRINT "DOWN, "; 1640 IF D4(8)>0 THEN PRINT "DAMAGED, "; 1650 PRINT INT(P4);"%" 1660 IF (H2<200) AND (H3<500) THEN 8 3030 PRINT I;" "; 3040 FOR J=1 TO 8 3060 ON SGN(S2(I,J))+2 GOTO 3070,3090,3110 3070 PRINT " .1."; 3080 GOTO 3160 3090 P1450 K9=K9+1 1460 IF K9=3 THEN PRINT 1465 PRINT " AND "; 1470 PRINT D$(J9); 1480 NEXT W4 1490 PRINT " DAMAGED." 1500 IFJ4=0 2270 GOSUB 13200 2280 GOTO 2400 2290 W1=6+2*RND(1) 2300 W2=W1*W1 2310 P2=.75*E1 2320 D6=P2/(W1*W1*W1*(S4+1)) 2330 D77)="K" THEN PRINT "KLINGON AT"; 1270 IF Q$(J6,J7)="C" THEN PRINT "COMMANDER AT"; 1280 PRINT J6;"-";J7 1290 IF H4>H2 THEN H2=HG SUPERNOVA" 2050 PRINT "*** AUTO-OVERRIDE ATTEMPTS TO HURL ";S5$;" TO OTHER QUADRANT" 2080 S2(Q1,Q2)=1 2090 GOSUB 18000 21 RINT " ..."; 3100 GOTO 3160 3110 IF S2(I,J)>LQ THEN 3150 3120 IF G(I,J)8) THEN 5990 5227 C6(1)=K : K=INT(A3-C6(1)*10D4(11)=0 THEN 5030 5010 PRINT " COMPUTER DISABLED" 5020 RETURN 5030 PRINT "----COMPUTER ACTIVE----" 5040 INPUT "PROGRAM NAMEATES AND USE" 5450 PRINT C7;"UNITS OF ENERGY" 5460 GOTO 5040 5510 INPUT "ENTER PHASER RANGE IN QUADRANTS";A3 5520 IF A3<0 THUT A$ 4180 FOR I=1 TO 4 4190 IF A$=LEFT$(S$(I),LEN(A$)) THEN 4220 4200 NEXT I 4210 GOTO 4160 4220 S8=I : MR=I 4230 INPUT "12 5250 PRINT "COURSE IS";FNS(D2);" FOR A DISTANCE OF"; 5260 PRINT FNS(D1);"QUADRANTS." : GOTO 5040 5302 INPUT "ENTER DISTA130 IF G(I,J)=LQ THEN PRINT " ***"; 3140 GOTO 3160 3150 PRINT S2(I,J)-LQ; 3160 NEXT J : PRINT : NEXT I : PRINT 3190 PRINT ) 5228 IF (K<1) OR (K>8) THEN 5990 5229 C6(2)=K : A4=A4+.5 5230 K=INT(A4/100) 5231 IF (K<1) OR (K>10) THEN 5990 5232 C6(1)=";B$ 5050 FOR I=1 TO 6 5060 IF B$=LEFT$(C2$(I),LEN(B$)) THEN 5120 5070 NEXT 5080 PRINT "VALID PROGRAMS ARE : " 5090 PRINT EN 5040 5530 A3=A3*10 : C7=(.9^A3)*100 5540 PRINT "PHASERS ARE ";LEFT$(STR$(C7),5);"% EFFECTIVE AT THAT RANGE" 5550 GOTO 5040ENTER MISSION PASSWORD...";X$ : PRINT 4245 PRINT "....STAND BY...." 4250 J=RND(1) 4280 D5=.5*S8 : I2=INT(L2+1+RND(1)*3) 429NCE AND WARP FACTOR";D1,A4 5304 IF (D1<0) THEN 5040 5310 C7=D1*A4*A4*A4 5315 T1=(10*D1)/((A4*A4)+1E-05) 5320 PRINT "IT WOULD"THE ";S5$;" IS CURRENTLY IN (";Q1;"-";Q2;")" 3200 RETURN 4001 PRINT CHR$(12) 4070 S8=0 : L2=0 4090 PRINT "MISSION DURATION.C6(1)+(K-1)/10 : K=INT(A4-K*100) 5233 IF (K<1) OR (K>10) THEN 5990 5234 C6(2)=C6(2)+(K-1)/10 5235 X=Q1+((S6-1)/10)-C6(1) : Y=" COURSE WCOST SCORE" 5100 PRINT " PEFFECT ICOST OUT" 5110 GOTO 5040 5120 ON I GOTO 5210,5302,5410,5510,5610,5700  5610 GOSUB 23000 5620 GOTO 5040 5700 RETURN 5990 PRINT "FOR MAT IS MN,XXYY...WHERE MN IS THE QUADRANT" 5991 PRINT "AND XXY0 IF I2>5 THEN I2=5 4300 R3=I2 4310 I5=7*L2 4320 R5=I5 4340 R7=(S8-2*RND(1)+1)*S8*.1+.1 4350 IF R7<.2 THEN R7=R7+.1 4360 I TAKE";FNS(T1);"STARDATES AND USE" 5325 PRINT FNR(C7);"UNITS OF ENERGY (";FNR(C7+C7);"IF SHIELDS ARE UP)" 5330 GOTO 5040 54.. : "; 4095 INPUT A$ 4100 FOR I=1 TO 3 4110 IF A$=LEFT$(T$(I),LEN(A$)) THEN 4150 4120 NEXT I 4130 PRINT "WOULD YOU LIKE Q2+((S7-1)/10)-C6(2) 5236 D1=0 : D2=0 : IF (X=0) AND (Y=0) THEN 5250 5237 D1=SQR(X*X+Y*Y) 5238 IF X<0 THEN Z7=SGN(Y)*(3.1416- 5210 INPUT "ENTER QUADRANT AND SECTOR - ";A3,A4 5220 IF (A3<>INT(A3)) OR (A4<>INT(A4)) THEN 5990 5221 IF A3<0 THEN 5040 522Y IS THE SEC TO R...E.G. 64,0307 REFERS" 5992 PRINT "TO QUADRANT 6-4, SECTOR 3-7." 5995 GOTO 5040 6000 IF T2$<>"C" THEN 61001=INT(2*R7*I5) 4370 R1=I1 4380 I4=INT(S8+.0625*I1*RND(1)) 4390 R2=I4 4400 I3=(I1+4*I4)*I5 4410 R4=I3 4420 RETURN 5001 IF 10 INPUT "ENTER DISTANCE...";D1 5420 IF D1<0 THEN 5040 5430 C7=250*D1+50 : T1=D1/.4 5440 PRINT "IT WOULD TAKE";FNR(T1);"STARDA SHORT, MEDIUM OR LONG GAME"; 4140 GOTO 4095 4150 L2=I 4160 PRINT "ARE YOU A BEGINNER, NOVICE, SENIOR OR EXPERT "; 4170 INPATN(ABS(Y/X))) 5239 IF X=0 THEN Z7=SGN(Y)*1.5708 5240 IF X>0 THEN Z7=ATN(Y/X) 5245 D2=12-Z7*1.9098593# : IF D2>12 THEN D2=D2-  6010 C3=0 : PRINT "*** COMMANDER AT"; 6030 FOR F=1 TO R2 : IF (C1(F)=Q1) AND (C2(F)=Q2) THEN 6050 6040 NEXT F 6050 C1(F)=C10 RETURN 9120 IF (D4(5)=0) OR (C5$="DOCKED") THEN 9180 9130 IF (L1>=X6) OR (D4(5)<=L1) THEN 9160 9140 F9=3 : GOSUB 10000 915 D4(I)<=0 THEN 8070 8020 IF J<>0 THEN 8060 8030 PRINT " DEVICE";SPC(12);"-REPAIR TIMES-" 8040 PRINT SPC(21);"IN FLIGHT Y USABLE.)" 9307 GOTO 9320 9310 GOSUB 26500 9315 S9=0 9320 GOSUB 18000 9325 F1(2)=D0+T1-1.5*(I5/R2)*LOG(RND(1)) 9326 GOTO )=K6(G+1) 6235 K7(G)=K7(G+1) : K8(G)=K7(G) 6240 NEXT G 6250 K4(K3+1)=0 : K5(K3+1)=0 : K7(K3+1)=0 : K8(K3+1)=0 : K6(K3+1)=0 6=0 THEN 9330 9292 IF C5$="DOCKED" THEN 9325 9293 I=INT(RND(1)*R2)+1 9294 Y6=(C1(I)-Q1)^2+(C2(I)-Q2)^2 9295 IF Y6=0 THEN 9325(R2) : C2(F)=C2(R2) : C1(R2)=0 : C2(R2)=0 6060 R2=R2-1 : F1(2)=1E+30 6070 IF R2<>0 THEN F1(2)=D0-(I4/R2)*LOG(RND(1)) 6080 K2=0 RETURN 9160 L1=L1-X6 9170 IF D4(5)<=X6 THEN L1=J1 9180 R=X6 9190 IF C5$="DOCKED" THEN R=X6/D3 9200 FOR L=1 TO 12 9210 IF DOCKED" : J=1 8060 PRINT " ";D$(I);TAB(23);FNS(D4(I));TAB(33);FNS(D3*D4(I)) 8070 NEXT I 8080 IF J=0 THEN PRINT " - ALL DEVI9000 9330 F1(2)=1E+30 : GOTO 9000 9340 D9(1)=D0 : D9(2)=R1 : D9(3)=R2 : D9(4)=R3 : D9(5)=R4 : D9(6)=R5 9342 D9(7)=S1 : D9(8)=260 RETURN 7000 IF C5$="DOCKED" THEN 7100 7010 IF B6=0 THEN 7020 7015 IF (ABS(S6-B6)<=1) AND (ABS(S7-B7)<=1) THEN 7040 7020  9296 Y6=SQR(Y6) : T1=.17778*Y6 9297 PRINT : PRINT "*** ";S5$;" CAUGHT IN LONG-RANGE TRACTOR BEAM--" 9298 Q1=C1(I) : Q2=C2(IK2+1 6090 GOTO 6120 6100 PRINT "*** KLINGON AT"; 6110 K1=K1+1 6120 PRINT A5;"-";A6;"DESTROYED." 6130 Q$(A5,A6)="." : R1=R1- D4(L)<=0 THEN 9230 9220 D4(L)=D4(L)-R 9225 IF D4(L)<0 THEN D4(L)=0 9226 IF D4(L)<>0 THEN 9230 9227 PRINT : PRINT "DAMAGE CCES FUNCTIONAL -" 8090 RETURN 9000 M=0 : D7=D0+T1 : FOR L=1 TO 5 9020 IF F1(L)>D7 THEN 9040 9030 M=L : D7=F1(L) 9040 NEXT LB1 : D9(9)=K1 : D9(10)=K2 9343 FOR I=1 TO 8 : FOR J=1 TO 8 : D9(I-1+8*(J-1)+11)=G(I,J) : NEXT J : NEXT I 9344 FOR I=75 TO 84 :PRINT S5$;" NOT ADJACENT TO A BASE." 7030 RETURN 7040 C5$="DOCKED" 7050 PRINT "---> DOCKING COMPLETED" 7060 E1=I7 : S3=I8 : ) 9299 S6=FNB(1) : S7=FNB(1) 9300 PRINT "PULLED TO QUADRANT";Q1;"-";Q2;", SECTOR";S6;"-";S7 9301 IF R6<>0 THEN PRINT "(IDLE P1 6140 IF R1=0 THEN RETURN 6150 R5=R4/(R1+4*R2) 6160 G(Q1,Q2)=G(Q1,Q2)-100 6170 FOR F=1 TO K3 6180 IF (K4(F)=A5) AND (K5(F)ONTROL- ";D$(L);" NOW OPERATIONAL." 9230 NEXT L 9240 IF M=0 THEN RETURN 9250 T1=T1-X6 9260 ON M GOTO 9280,9291,9340,9355,94 9050 X6=D7-D0 : D0=D7 9060 R4=R4-(R1+4*R2)*X6 9070 R5=R4/(R1+4*R2) 9080 IF R5>0 THEN 9120 9090 F9=2 9100 GOSUB 10000 911 D9(I)=C1(I-74) : NEXT 9345 FOR I=85 TO 94 : D9(I)=C2(I-84) : NEXT 9346 FOR I=95 TO 99 : D9(I)=B2(I-94) : NEXT 9347 FOR I=T4=I9 : L1=J1 7070 RETURN 7100 PRINT "CAPTAIN, WE'RE ALREADY DOCKED!" 7110 RETURN 8001 J=0 : PRINT : FOR I=1 TO 12 8010 IFERIOD CANCELLED)" 9302 R6=0 9303 IF S4<>0 THEN 9320 9304 IF (D4(8)=0) AND (S3>0) THEN 9310 9305 PRINT "(SHIELDS NOT CURRENTL=A6) THEN 6200 6190 NEXT F 6200 K3=K3-1 6210 IF F>K3 THEN 6250 6220 FOR G=F TO K3 6230 K4(G)=K4(G+1) : K5(G)=K5(G+1) : K6(G75 9280 X2=0 : Y2=0 : GOSUB 27000 9285 F1(1)=D0-.5*I5*LOG(RND(1)) 9286 IF G(Q1,Q2)=LQ THEN RETURN 9287 GOTO 9000 9291 IF R2 100 TO 104 : D9(I)=B3(I-99) : NEXT 9348 D9(105)=B4 : D9(106)=B5 9349 S0=1 : F1(3)=D0-.3*I5*LOG(RND(1)) : GOTO 9000 9355 IF ( 9720 9710 NEXT 9720 B2(I)=B2(R3) : B3(I)=B3(R3) 9730 R3=R3-1 9740 GOTO 9000 10000 PRINT : PRINT : PRINT : INPUT "CON F IF Q$(K,L)="C" THEN 9570 9565 NEXT 9570 IF K6(I)<25+50*RND(1) THEN 9000 9580 Q$(B6,B7)="." : B6=0 : B7=0 9590 GOSUB 17000 HAS RUN OUT - THE FEDERATION HAS BEEN CONQUERED AND YOUR CRAFT" 10136 PRINT "IS NOW ENEMY PROPERTY... YOU WILL STAND TRIAL AS AATE";FNR(F1(5));"!!!" 9465 IF R6=0 THEN 9000 9466 INPUT " SHALL WE CANCEL IDLE PERIOD";B$ 9468 IF LEFT$(B$,1)="Y" THEN R6=0 1*S8*(S8+1)+.1 10065 IF (K1+K2)/(D0-J2)0) THEN 9680 WAR-CRIMINAL..." 10137 PRINT "ON THE BASIS OF YOUR RECORD YOU WILL BE"; 10139 IF R1*3>I1 THEN 10150 10140 PRINT " SUMMARILY  9469 GOTO 9000 9475 F1(5)=1E+30 : IF (R2=0) OR (R3=0) THEN 9000 9485 K=INT(G(B4,B5)/100) : IF G(B4,B5)-K*100<10 THEN 9000 94 THEN 10090 10080 PRINT "PROMOTES YOU....."; 10085 IF S8=1 THEN PRINT "TO NOVICE CLASS!" 10086 IF S8=2 THEN PRINT "TO SENIOR  I 9380 F1(4)=D0+.5+3*RND(1) 9390 F1(5)=1E+30 : GOTO 9000 9400 F1(4)=1E+30 : F1(5)=1E+30 : GOTO 9000 9410 B4=B2(I) : B5=B3(I ON F9 GOTO 10025,10135,10165,10190,10200,10205,10225,10240 10015 ON F9-8 GOTO 10250,10271,10285 10025 PRINT "YOU HAVE DESTROY 9640 PRINT 9650 PRINT "--> STARFLEET COMMAND REPORTS THAT STARBASE IN QUADRANT";B4;"-";B5 9660 PRINT "HAS BEEN DESTROYED BYEXECUTED" 10145 A1=0 : GOSUB 23000 : RETURN 10150 PRINT " IMPRISONED FOR LIFE" 10165 PRINT "YOUR LIFE SUPPORT RESERVES HAVE 90 FOR I=1 TO R2 : IF (C1(I)=B4) AND (C2(I)=B5) THEN 9520 9510 NEXT : GOTO 9000 9520 IF S2(B4,B5)=-1 THEN S2(B4,B5)=0 9530 IFCLASS!" 10087 IF S8=3 THEN PRINT "TO EXPERT CLASS!" 10088 PRINT " ***CONGRATULATIONS***" : GOTO 10110 10090 PRINT "PROMOTES) 9420 IF (B4=Q1) AND (B5=Q2) THEN 9380 9430 F1(5)=D0+.5+3*RND(1) 9440 F1(4)=F1(5)-.3*I5*LOG(RND(1)) 9450 IF D4(9)>0 THEN 90ED THE KLINGON INVASION FLEET" : PRINT 10030 PRINT " ***THE FEDERATION IS SAVED***" : G1=1 10035 IF (A1=0) OR (B1<>0) THE ENEMY COMMANDER !!" 9680 G(B4,B5)=G(B4,B5)-10 9690 IF R3<=1 THEN 9730 9700 FOR I=1 TO R3 : IF (B2(I)=B4) AND (B3(I)=B5) THENRUN OUT, AND" 10170 PRINT "YOU WILL SOON DIE!!!" 10172 PRINT 10175 PRINT "YOUR STARSHIP IS A DERELICT IN SPACE." 10180 GOT S2(B4,B5)>999 THEN S2(B4,B5)=S2(B4,B5)-10 9540 IF (B4<>Q1) OR (B5<>Q2) THEN 9630 9550 FOR I=1 TO K3 : K=K4(I) : L=K5(I) 9560 YOU TO 'COMMODORE EMERITUS'." 10100 PRINT : PRINT "NOW YOU CAN RETIRE !" 10110 GOSUB 23000 10120 RETURN 10135 PRINT "TIME 00 9460 PRINT : PRINT " CAPTAIN, THE STARBASE IN";B4;"-";B5;"IS UNDER ATTACK-" 9462 PRINT " AND CAN ONLY RESIST UNTIL STARDN 10110 10040 IF LEFT$(S5$,1)<>"E" THEN 10110 10045 IF 3*S1+35*N1+C4>=100 THEN 10110 10050 IF D0-J2<=6 THEN 10075 10060 R8=.  O 10300 10190 PRINT "YOUR ENERGY SUPPLY IS EXHAUSTED." : GOTO 10172 10200 PRINT "THE ";S5$;" HAS BEEN DESTROYED IN BATTLE." 1=0 THEN 11030 11025 PRINT "SUBSPACE RADIO DAMAGED...CANNOT TRANSMIT." : RETURN 11030 IF R3<>0 THEN 11050 11040 PRINT "CAPTAIN) THEN 10340 10335 PRINT "FAVORABLE TO THE FEDERATION." : PRINT 10336 PRINT "CONGRATULATIONS." : GOTO 10350 10340 PRINT "HIG"CAPTAIN, WE MADE IT!" : RETURN 12001 P4=2 : L5=K3 : N=1 12010 FOR K=1 TO L5 12020 IF H3(K)=0 THEN 12240 12030 D6=.9+.01*RND PRINT "OF SUB-ATOMIC PARTICLES..." : GOTO 10300 10285 PRINT "STARBASE WAS UNABLE TO RE-MATERIALIZE YOUR STARSHIP." 10300 PRIN"2ND "; 11170 IF L=3 THEN PRINT "3RD "; 11180 PRINT "ATTEMPT TO RE-MATERIALIZE THE ";S5$;". . . . ."; 11190 IF RND(1)>P2 THEN0201 GOTO 10300 10205 RETURN 10225 PRINT "YOUR STARSHIP HAS BEEN DESTROYED BY A NOVA." 10230 PRINT "NICE WORK, IDIOT !!!" : G, NO RESPONSE FROM STARBASE !" : RETURN 11050 N1=N1+1 : IF B6=0 THEN 11070 11060 GOTO 11130 11070 D1=1E+30 11080 FOR L=1 TO HLY UNFAVORABLE TO THE FEDERATION." : GOTO 10350 10345 PRINT "THE FEDERATION WILL BE DESTROYED!" 10350 GOSUB 23000 : RETURN 1(1) : H2=H3(K)*D6^K7(N) 12040 P3=K6(N) 12050 P=ABS(P3) : IF P4*H2

D1 THEN 11110 11100 D1=X : K=L 11110 NEXT L 11120 Q1=B2(K) : Q2=B3(K) : 0355 PRINT "SINCE YOU TOOK THE LAST KLINGON WITH YOU, YOU ARE" 10360 PRINT "A MARTYR AND A HERO." : G1=1 : A1=0 10390 GOSUB 23) : Y8=K5(N) 12080 IF H2>4.99 THEN 12100 12090 PRINT "MINOR HIT ON " : GOTO 12110 12100 PRINT FNR(H2);"UNIT HIT ON "; 12110 355 10325 G3=R4/I3 : B8=(R1+2*R2)/(I1+2*I4) 10326 A3=G3/B8 10327 IF A3<1+.5+RND(1) THEN 10345 10330 PRINT "AS A RESULT OF YI<1) OR (I>10) THEN 11260 11235 J=B7+INT(3*RND(1))-1 11240 IF (J<1) OR (J>10) THEN 11260 11250 IF Q$(I,J)="." THEN 11270 112 BY THE ENEMY. IF YOU STILL HAD A STARBASE," 10255 PRINT "YOU WOULD HAVE BEEN REPATRIATED. SINCE YOU HAVE NO BASES, YOU WILL" GOSUB 18000 11130 Q$(S6,S7)="." 11135 PRINT 11140 PRINT "STARBASE IN QUADRANT";Q1;"-";Q2;"RESPONDS --"; 11145 PRINT " ";S5000 : RETURN 11001 IF C5$<>"DOCKED" THEN 11020 11010 PRINT "--> CAPTAIN, WE'RE ALREAD Y DOCKED!" 11015 RETURN 11020 IF D4(9)M$=Q$(X8,Y8) 12120 IF M$="K" THEN PRINT "KLINGON AT"; 12125 IF M$="C" THEN PRINT "COMMANDER AT"; 12130 PRINT X8;"-";Y8 1214OUR ACTIONS, A TREATY WITH THE KLINGON" 10331 PRINT "EMPIRE HAS BEEN SIGNED. THE TERMS OF THE TREATY ARE" 10332 IF A3<3*RND(160 NEXT L : PRINT "FAILS." : GOTO 11210 11270 PRINT "SUCCEEDS." : S6=I : S7=J : Q$(I,J)=LEFT$(S5$,1) 11280 GOSUB 7000 : PRINT  10260 PRINT "BE MERCILESSLY TORTURED !!" 10266 GOTO 10300 10271 PRINT : PRINT "THE ";S5$;" IS NOW AN EXPANDING CLOUD" 10272$;" DEMATERIALIZES." 11146 P2=(1-.98^D1)^.333333 11150 FOR L=1 TO 3 11155 IF L=1 THEN PRINT "1ST "; 11160 IF L=2 THEN PRINT  0 IF K6(N)<>0 THEN 12180 12150 A5=X8 : A6=Y8 : T2$=Q$(X8,Y8) : GOSUB 6000 12160 IF R1<>0 THEN 12250 12170 F9=1 : GOSUB 10000 Í   :Dm:C     0ڱ:ұOyOxGGñxOx!=~!=  ʅͮ  )}2D  ͮ  )Ҧ2C:D_2EO6x~zW:C=:A   " ***";" "; 14090 IF G(M,N)0 THEN 13050 13049 RETURN 13050 P3=50+250*D1 13060 IF P30 THEN RETURN 13220 E1=E1-P3 13230 IF E1>0 THEN RETURN 13240 F9=4 : GOSUB 10000 : RETURN : GOTO 12250 12180 IF K6(N)<0 THEN 12240 12190 IF RND(1)<.9 THEN 12240 12200 IF K6(N)>(.4+.4*RND(1))*P3 THEN 12240 12205 PRI~w#~w#~w#~w:D_!x 3)&&YFG~Oxa{_R |}Oy0:8~ zWy!  ~!zW:D=7  ~7zWz@;>2B_zYkatҡʘá~w~w:C= N : PRINT 14130 PRINT 14140 NEXT M 14150 IF D4(11)=0 THEN RETURN 14160 PRINT "*** WARNING *** - COMPUTER DISABLED - SCAN  OFFICER SPOCK- 'CAPTAIN, THE IMPULSE ENGINES" 13090 PRINT "REQUIRE 50 UNITS OF ENERGY TO ENGAGE, PLUS 250 UNITS PER "; 1310013250 PRINT "IMPULSE ENGINES DAMAGED." : RETURN 14001 N$=" #" 14005 PRINT 14010 IF D4(2)<>0 THEN 14180 14020 PRINT "L.R.NT 12210 PRINT "*** CAPTAIN, THE VESSEL AT SECTOR"; 12215 PRINT X8;"-";Y8 12220 PRINT " HAS JUST LOST ITS FIREPOWER !!!" G+)~#fo ##~P+A+B+#00P_>:( 0 J>0 HF+# > bk 0:?H|ͺʌ~w>2A:EO ~w~w ~w :D~ұ:C¹:B>2Bù      :E NOT RECORDED." 14170 RETURN 14180 PRINT "LONG RANGE SENSORS DAMAGED." : RETURN 15001 A5=(15-D2)*.523599 : D4=-SIN(A5) : D6=CO IF E1>75 THEN 13120 13110 PRINT "QUADRANT. THEY ARE USELESS NOW.'" : RETURN 13120 PRINT "QUADRANT. WE CAN GO A MAXIMUM OF " SCAN FOR QUADRANT";Q1;"-";Q2 : PRINT 14030 I=Q1-1 : J=Q1+1 : K=Q2-1 : L=Q2+1 14040 FOR M=I TO J : FOR N=K TO L 14050 IF (M12225 PRINT 12230 K6(N)=-K6(N) 12240 N=N+1 12250 NEXT K 12260 RETURN 13001 J3=0 13010 IF D4(7)<>0 THEN 13250 13020 IF E1; 13130 PRINT FNR(4E-03*(E1-50)-.05);"QUADRANTS.'" : RETURN 13140 T1=D1/.4 13150 IF T1B8 THEN B8=ABS(D6) 15040 D4=D4/B8 : D6=D6/B8 : T5=0 : T6=0 15050 IF D0+T12A2B!F 6#}'|'}  {PEBͱB    Yy <=0) OR (M>8) THEN 14110 14060 IF (N<=0) OR (N>8) THEN 14110 14070 IF D4(11)=0 THEN S2(M,N)=1 14080 IF G(M,N)>=LQ THEN PRINT<=75 THEN 13070 13030 INPUT "ENTER COURSE....";D2 13040 IF D2<.01ORD2>12 THEN GOSUB 40000ELSE13048 13041 RETURN 13048 INPUT SPEED UNDER IMPULSE IS ONLY 4 SECTORS PER STARDATE" 13170 INPUT "-- AUTHORIZE ";B$ 13190 IF LEFT$(B$,1)<>"Y" THEN RETURN 1320  0 15060 T5=1 : C5$="RED" : D1=D1*(F1(2)-D0)/T1+.1 15070 T1=F1(2)-D0+1E-05 15080 Q$(S6,S7)="." : X7=S6 : Y7=S7 : H9=INT(10*D1*EN 15220 15215 X1=161-X1 : L5=1 15220 IF Y1<=80 THEN 15230 15225 Y1=161-Y1 : L5=1 15230 IF L5=0 THEN 15240 15235 L6=1 : GOT0000 : RETURN 15145 S6=X1 : S7=Y1 : GOSUB 22001 : F4=S6 : F5=S7 : GOTO 15320 15150 IF K3=0 THEN 15165 15155 FOR L=1 TO K3 15K3 16060 IF F>LQ THEN N=INT(RND(1)*K7(K)+1) 16065 IF ((C5$="DOCKED") AND ((B4<>Q1) OR (B5<>Q2))) THEN N=-S8 16070 IF N=0 THENL ENTERED ***" : GOTO 15307 15125 T6=1 : K=50*D1/T1+1E-03 : D1=.1*SQR((S6-X1)^2+(S7-Y1)^2) 15127 IF (Q$(X1,Y1)="K") OR (Q$(X1,PRINT "ENTERING THE QUADRANT (";Q1;"-";Q2;")" 15315 Q$(S6,S7)=LEFT$(S5$,1) : GOSUB 18000 : GOSUB 29002 : GOSUB 14001 : RETURN B8+.5) 15090 IF H9=0 THEN 15115 15100 FOR L=1 TO H9 15102 X7=X7+D4 : X1=INT(X7+.5) : Y7=Y7+D6 : Y1=INT(Y7+.5) 15105 IF (X1<1O 15180 15240 IF L6=0 THEN 15270 15260 PRINT : PRINT "*** MESSAGE FROM STARFLEET COMMAND.....STARDATE";FNR(DO) 15261 PRINT "156 F3=SQR((X1-K4(L))^2+(Y1-K5(L))^2) 15158 K8(L)=.5*(F3+K7(L)) : NEXT L 15160 IF G(Q1,Q2)<>LQ THEN GOSUB 1000 15162 IF A2<>0 N=INT(((F+200*RND(1))/150)-5) 16071 IF N=0 THEN RETURN 16072 IF (N>0) AND (K7(K)<1.5) THEN RETURN 16075 IF ABS(N)>S8 THEN N=Y1)="C") THEN 15145 15129 PRINT : PRINT S5$;" BLOCKED BY "; 15130 IF Q$(X1,Y1)="*" THEN PRINT "STAR AT"; 15131 IF Q$(X1,Y1)= 15320 Q$(S6,S7)=LEFT$(S5$,1) 15321 IF L6=1 THEN RETURN 15325 IF K3=0 THEN 15390 15330 FOR L=1 TO K3 15340 F3=SQR((F4-K4(L))) OR (X1>10) THEN 15150 15106 IF (Y1<1) OR (Y1>10) THEN 15150 15108 IF Q$(X1,Y1)="O" THEN 15111 15109 IF Q$(X1,Y1)<>"." THEN PERMISSION TO EXIT GALAXY - DENIED -" 15265 PRINT "'ENGINES SHUT DOWN AT "; 15266 Z1=INT((X1+9)/10) : Z2=INT((Y1+9)/10) 15267 THEN RETURN 15165 X7=10*(Q1-1)+S6 : Y7=10*(Q2-1)+S7 15170 X1=INT(X7+10*D1*B8*D4+.5) 15175 Y1=INT(Y7+10*D1*B8*D6+.5) : L6=0 SGN(N)*ABS(S8) 16080 T=ABS(N) : P=S6-C : Q=S7-D 16085 IF 2*ABS(P)"O" THE PRINT "QUADRANT";Z1;"-";Z2;", "; 15268 PRINT "SECTOR";X1-10*(Z1-1);"-";Y1-10*(Z2-1);"'" 15270 IF T5<>0 THEN RETURN 15295 Q115180 L5=0 15185 IF X1>0 THEN 15195 15190 X1=-X1+1 : L5=1 15195 IF Y1>0 THEN 15210 15200 Y1=-Y1+1 : L5=1 15210 IF X1<=80 TH P<>0 THEN P=SGN(P*N) 16100 IF Q<>0 THEN Q=SGN(Q*N) 16105 R=C : S=D : Q$(C,D)="." 16110 FOR L2=1 TO T : L=R+P : M=S+Q 16115 ERGY." 15135 E1=E1-K 15137 S6=INT(X7-D4+.5) : F4=S6 : S7=INT(Y7-D6+.5) : F5=S7 15140 IF E1>0 THEN 15320 15141 F9=4 : GOSUB 1A=1 : B=1 16010 FOR K=1 TO K3 16020 C=K4(K) : D=K5(K) 16030 IF Q$(C,D)="C" THEN 16050 16040 NEXT K 16050 N=0 : F=K6(K)+100*N 15320 15120 T2=FNA(1) : T3=FNA(1) 15122 Q1=FNA(1) : Q2=FNA(1) : S6=FNB(1) : S7=FNB(1) : PRINT 15123 PRINT "*** SPACE PORTA=INT((X1+9)/10) : Q2=INT((Y1+9)/10) 15296 S6=X1-10*(Q1-1) : S7=Y1-10*(Q2-1) 15307 PRINT : GOTO 15315 15310 PRINT CHR$(12) :  IF (L>0) AND (L<=10) THEN 16120 16117 ON SGN(N)+2 GOTO 16240,16165,16165 16120 IF (M>0) AND (M<=10) THEN 16130 16125 ON SGN(N : K3=0 : C3=0 : U=G(Q1,Q2) : IF U>999 THEN 18290 18030 K3=INT(.01*U) : FOR A=1 TO 10 : FOR B=1 TO 10 : Q$(A,B)="." : NEXT B : AND REGAINS STRENGTH)" 16280 K4(K)=K4(K3) : K5(K)=K5(K3) : K7(K)=K7(K3) : K8(K)=K8(K3) 16285 K6(K)=K6(K3) : K3=K3-1 : C3=0 16)+)+:6G+26:6> (>+2;!;+:6͸$*;#";!!̀"!̀"! !+2626*** *** !!G~#!argu 16215 K4(K)=R : K5(K)=S : K7(K)=SQR((S6-R)^2+(S7-S)^2) 16220 K8(K)=K7(K) : IF N>0 THEN PRINT "*** COMMANDER ADVANCES TO"; 162U-10 18170 B6=FNB(1) : B7=FNB(1) : IF Q$(B6,B7)<>"." THEN 18170 18180 Q$(B6,B7)="B" 18190 GOSUB 17000 : IF U<1 THEN RETURN 1)+2 GOTO 16240,16135,16135 16130 IF Q$(L,M)="." THEN 16195 16135 IF (Q=B) OR (P=0) THEN 16165 16140 M=S+B 16145 IF (M>0) ANDNEXT A 18040 Q$(S6,S7)=LEFT$(S5$,1) : U=G(Q1,Q2) : IF U<100 THEN 18150 18050 U=U-100*K3 : FOR A=1 TO K3 18060 S=FNB(1) : K4(A290 IF C5$<>"DOCKED" THEN GOSUB 17000 16300 GOSUB 28000 16310 G(Q1,Q2)=G(Q1,Q2)-100 : G(I,J)=G(I,J)+100 16320 FOR L3=1 TO R2 ment erromultiple definitioexpression errolabel erromissing labenesting erroopcode errophase errorange errosyntax erro25 IF N<0 THEN PRINT "*** COMMANDER RETREATS TO"; 16230 PRINT " SECTOR";R;"-";S : GOSUB 28000 : RETURN 16240 I=Q1+INT((L+9)/108200 FOR A=1 TO U 18210 S=FNB(1) : T=FNB(1) : IF Q$(S,T)<>"." THEN 18210 18220 Q$(S,T)="*" : NEXT A 18230 IF (T2<>Q1) OR (T3< (M<=10) THEN 16155 16150 ON SGN(N)+2 GOTO 16240,16160,16160 16155 IF Q$(L,M)="." THEN 16195 16160 B=-B 16165 IF (P=A) OR (Q)=S : T=FNB(1) : K5(A)=T 18070 IF Q$(S,T)<>"." THEN 18060 18080 Q$(S,T)="K" : K7(A)=SQR((S6-S)^2+(S7-T)^2) : K8(A)=K7(A) 1809 16330 IF (C1(L3)=Q1) AND (C2(L3)=Q2) THEN 16340 16335 NEXT L3 16340 C1(L3)=I : C2(L3)=J : RETURN 16350 A=-A : B=-B : GOTO 16undefined symbovalue errofile not foundivide by zero errono matching Ino matching MACRtoo many COMMONmultiple MACRO defin)-1 : J=Q2+INT((M+9)/10)-1 16245 IF (I<1) OR (I>8) THEN 16350 16250 IF (J<1) OR (J>8) THEN 16350 16260 FOR L3=1 TO R2 16265 ͺ#~ ( #!ͮ~,:+-/* )<>=; ] Ö"͊" :6 !6i)H ô *; : 6M"=0) THEN 16200 16170 L=R+A 16175 IF (L>0) AND (L<=10) THEN 16185 16180 ON SGN(N)+2 GOTO 16240,16190,16190 16185 IF Q$(L,M)="0 K6(A)=RND(1)*150+325 : NEXT A 18100 IF R2=0 THEN 18140 18110 FOR A=1 TO R2 18115 IF (C1(A)=Q1) AND (C2(A)=Q2) THEN 18130 1200 17000 C5$="GREEN" : IF E199 THEN C5$="RED" 17030 RETURN 18000 J4=1 : B6=0 : B7=0itiolabel not alloweinstruction not allowe8>!]"F+ '"*: 6o 0(>M"#+F+~#ͯ; Ò*; ";: IF (C1(L3)=I) AND (C2(L3)=J) THEN 16350 16270 NEXT L3 : PRINT "*** COMMANDER ESCAPES TO "; 16275 PRINT "QUADRANT";I;"-";J;" (!6xH (~# a"y( !6Ϳ~#a" ͼͿ? *; : 6M"(+ : 6o 8 a"." THEN 16195 16190 A=-A : GOTO 16200 16195 R=L : S=M 16200 NEXT L2 16205 Q$(R,S)="C" 16210 IF (R=C) AND (S=D) THEN RETURN 8120 NEXT A : GOTO 18140 18130 Q$(S,T)="C" : K6(K3)=LQ+400*RND(1) : C3=1 18140 GOSUB 28000 18150 IF U<10 THEN 18190 18160 U=  6!;s#r!:~#fos#rC6͊"C6͊" C6 6x( OS) GWX: 68(0t)3#HÖ"{SNT "*** STAR AT SECTOR";A5;"-";A6;"NOVAS." 19020 G(Q1,Q2)=G(Q1,Q2)-1 : S1=S1+1 19025 B9=1 : T6=1 : T7=1 : K=0 : X1=0 : Y1=0 1CR,LF,FF,NUL DEFB NUL,NUL,NUL,NUL,NUL,NUL DEFB NUL,NUL,NUL,NUL,NUL,'$' CRLF: DEFB CR,LF,NUL,'$' OD: DEFB ' :','$' CD: DE0 19160 D6=LQ-S3 : E1=E1-D6 : GOSUB 17000 : S3=0 : S4=0 19165 PRINT "*** STARSHIP SHIELDS KNOCKED OUT." : D4(8)=5E-03*D5*RND(1*+ $ $ :$--:$ $ I$8080 MAZE PROGRAM $HOW WIDE? $HOW HIGH? $AGAIN? $}c(8!d7ɧ:5$o&;MCTOR";J5;"-";J6;"NOVAS." 19100 GOTO 19255 19105 IF Q$(J5,J6)<>"B" THEN 19140 19110 G(Q1,Q2)=G(Q1,Q2)-10 : FOR V=1 TO R3 1911)zS)()>: 6:6*;H * 6~G: 6w+r+s6![;!##[;!#f#[;!#n#[:!#z#[:!#z#9030 H4(B9,1)=A5 : H4(B9,2)=A6 19035 FOR M=B9 TO T6 : FOR Q=1 TO 3 : FOR J=1 TO 3 19040 IF J*Q=4 THEN 19260 19045 J5=H4(M,1)+>Q2) THEN RETURN 18240 S=FNB(1) : T=FNB(1) : IF Q$(S,T)<>"." THEN 18240 18250 Q$(S,T)="O" : PRINT 18260 PRINT "*** SHORT-RAN))*D6 19170 IF E1>0 THEN 19185 19175 F9=7 : GOSUB 10000 : RETURN 19180 S3=S3-LQ 19185 X1=X1+S6-H4(M,1) : Y1=Y1+S7-H4(M,2) :  .-2-&.&8 ! :$--:$ $ I$8080 MAZE PROGRAM $HOW WIDE? $HOW HIGH? $AGAIN? $}c(8!d7ɧ:5$o&;M5 IF (B2(V)<>Q1) OR (B3(V)<>Q2) THEN 19125 19120 B2(V)=B2(R3) : B3(V)=B3(R3) 19125 NEXT V : R3=R3-1 : B6=0 : B7=0 : B1=B1+1 : $6!Errors Range CountParity CountProgram LengthData length̀"> ͒$!G<s̀"l$:;!]$̀"!::/+F+Q-2 : J6=H4(M,2)+J-2 19050 IF (J5<1) OR (J5>10) THEN 19260 19055 IF (J6<1) OR (J6>10) THEN 19260 19060 IF Q$(J5,J6)="." THEN GE SENSORS DETECT A SPACE-WARP IN THIS QUADRANT" 18280 RETURN 18290 FOR A=1 TO 10 : FOR B=1 TO 10 : Q$(A,B)="." : NEXT B : NEXK=K+1 : GOTO 19260 19190 IF Q$(J5,J6)<>"C" THEN 19250 19195 FOR V=1 TO K3 19200 IF (K4(V)=J5) AND (K5(V)=J6) THEN 19210 1920 HL,DE JP MULT1 MULT2: POP BC LD E,C ADD HL,DE LD DE,MTX ADD HL,DE POP AF POP DE RET SHIFT: DEFB 0FFH DEFB GOSUB 17000 19130 PRINT "*** STARBASE AT SECTOR";J5;"-";J6;"DESTROYED." 19135 GOTO 19255 19140 IF (S6<>J5) OR (S7<>J6) THEN 1#~ (G+ /+ /+ + +ogl$ = COMMON Lengths > ͒$(+!F<~ # s)+J<> ;19260 19065 IF Q$(J5,J6)="O" THEN 19260 19070 IF Q$(J5,J6)<>"*" THEN 19105 19075 IF RND(1)>=.1 THEN 19085 19080 X2=J5 : Y2=JT A 18300 Q$(S6,S7)=LEFT$(S5$,1) : RETURN 19002 IF RND(1)>.1 THEN 19015 19010 GOSUB 27000 : RETURN 19015 Q$(A5,A6)="." : PRI5 NEXT V 19210 K6(V)=K6(V)-800 : IF K6(V)<=0 THEN 19250 19215 N5=J5+J5-H4(M,1) : N6=J6+J6-H4(M,2) 19220 PRINT "*** COMMANDER 0FFH,0FFH,0FFH PFLAG: DEFS 1 MFLAG: DEFS 1 BMAX: DEFS 1 CMAX: DEFS 1 SPOS: DEFS 1 MTX: DEFS 1600 MTXE: EQU $ PAGE: DEFB 9190 19145 PRINT "*** STARSHIP BUFFETED BY NOVA." : IF S4<>0 THEN 19155 19150 E1=E1-LQ : GOTO 19170 19155 IF S3>=LQ THEN 1918{0= O0y:6u%T]g9:6w#[;r#su%|!g9͙!g9͊%~(@G~!*+++F+ ~#%6 : GOSUB 27000 : RETURN 19085 T7=T7+1 : H4(T7,1)=J5 : H4(T7,2)=J6 : G(Q1,Q2)=G(Q1,Q2)-1 19090 S1=S1+1 : PRINT "*** STAR AT SE AT SECTOR";J5;"-";J6;"DAMAGED"; 19225 IF (N5<1) OR (N5>10) OR (N6<1) OR (N6>10) THEN 19245 19230 PRINT " AND BUFFETED TO SECTO(I)=((K3+1-I)/T5)*P1 20170 H5(I)=ABS(K6(I))/(P*.9^K7(I)) 20180 IF H3(I)<=H5(I) THEN 20200 20190 E=E+(H3(I)-H5(I)) : H3(I)=H5( QUADRANT." 20080 J3=0 : RETURN 20090 PRINT "PHASERS LOCKED ON TARGET. ENERGY AVAILABLE="; 20095 PRINT .01*INT(100*E1) 2010Z6 : R=RND(1) 21085 R=(R+RND(1))*.5-.5 21090 IF (R>=-.4) AND (R<=.4) THEN 21125 21095 R=(RND(1)+1.2)*R : IF N=3 THEN 21105 2 19350 IF D1=0 THEN RETURN 19360 PRINT : PRINT "FOR CE OF NOVA DISPLACES STARSHIP." 19370 GOSUB 15001 : RETURN 20001 P=2 : 1035 21025 INPUT"TORPEDO COURSE";C6 21030 IF C6<.01ORC6>12 THEN GOSUB 40000ELSE21040 21035 J3=0 : RETURN 21040 INPUT"BURST OR";N5;"-";N6 19235 Q$(N5,N6)="C" : K4(V)=N5 : K5(V)=N6 19240 K7(V)=SQR((S6-N5)^2+(S7-N6)^2) : K8(V)=K7(V) 19241 Q$(J5,J6)="."I) 20200 NEXT I 20210 IF E=0 THEN 20280 20220 FOR I=1 TO K3 : R7=H5(I)-H3(I) 20230 IF R7<=0 THEN 20260 20240 IF R7>=E THEN 0 INPUT"UNITS TO FIRE";P1 : IF P1"DOCKED" THEN 20030 20025 PRINT "PHASERS CAN'T BE FIRED THRU BASE SHIELDS." : GO TO 20080 20030 IF D4(3)=F 3";B$ : N=1 21045 IF LEFT$(B$,1)="N" THEN 21070 21050 IF LEFT$(B$,1)<>"Y" THEN 21040 21051 IF T4>2 THEN 21060 21055 PRINT  19245 PRINT : GOTO 19260 19250 A5=J5 : A6=J6 : T2$=Q$(J5,J6) : GOSUB 6000 : GOTO 19260 19255 PRINT : Q$(J5,J6)="." 19260 20270 20250 H3(I)=H5(I) : E=E-R7 20260 NEXT I : GOTO 20280 20270 H3(I)=H3(I)+E : E=0 20280 GOSUB 12001 20290 IF (E<>0) AND  J3=0 : RETURN 20140 E1=E1-P1 20142 IF D4(11)=0 THEN 20147 20144 P1=P1*(RND(1)*.5+.5) 20145 PRINT : PRINT "COMPUTER MALFUNC1110 21105 PRINT "*** TORPEDO NUMBER";Z6;"MISFIRE - ";R;"% DOWN" 21110 IF RND(1)>.2 THEN 21125 21115 PRINT "*** PHOTON TUBES0 THEN 20050 20040 PRINT "PHASER BANKS DAMAGED." : GOTO 20080 20050 IF S4=0 THEN 20060 20055 PRINT "SHIELDS MUST BE DOWN TO F"NO BURST. ONLY";T4;"TORPEDOS LEFT." : GOTO 21035 21060 INPUT"SPREAD ANGLE (3 - 30 DEG)";G2 21061 IF G2<0 THEN 21035 21062 INEXT J : NEXT Q : NEXT M 19265 IF T6=T7 THEN 19280 19270 B9=T6+1 : T6=T7 : GOTO 19035 19280 IF K=0 THEN RETURN 19290 D1=K*.1(A2=0) THEN 20310 20300 J3=1 : RETURN 20310 PRINT FNR(E);"EXPENDED ON EMPTY SPACE." : J3=1 : RETURN 21001 J3=1 : IF D4(4)=0 TTION HAMPERS PHASER ACCURACY." : PRINT 20147 E=P1 : IF K3=0 THEN 20310 20150 E=0 : T5=(K3*(K3+1))/2 20160 FOR I=1 TO K3 : H3 DAMAGED BY MISFIRE." 21120 D4(4)=D5*(1+2*RND(1)) : GOTO 21440 21125 IF (S4<>0) OR (C5$="DOCKED") THEN R=R+1E-03*S3*R 21130 AIRE PHASERS." : GOTO 20080 20060 IF K3>0 THEN 20090 20065 PRINT 20070 PRINT "THE SHORT-RANGE SENSORS DETECT NO ENEMY IN THISF (G2<3) OR (G2>30) THEN 21060 21063 G2=FND(G2) 21065 N=3 21070 FOR Z6=1 TO N 21075 IF C5$<>"DOCKED" THEN T4=T4-1 21080 Z7= 19300 IF X1<>0 THEN X1=SGN(X1) 19310 IF Y1<>0 THEN Y1=SGN(Y1) 19320 I=3*(X1+1)+Y1+2 19330 D2=C5(I) 19340 IF D2=0 THEN D1=0HEN 21015 21010 PRINT "PHOTON TUBES DAMAGED." : GOTO 21035 21015 IF T4<>0 THEN 21025 21020 PRINT "NO TORPEDOS LEFT." : GOTO 2 3=C6+.25*R : IF N=1 THEN 21140 21135 A8=(15-A3+(2-Z6)*G2)*.523599 : PRINT 21137 PRINT "TRACK FOR TO RPEDO NUMBER";Z7;"--" :R((S6-P)^2+(S7-Q)^2) 21311 K8(V)=K7(V) 21315 GOSUB 28000 : GOTO 21435 21320 PRINT "DAMAGED, BUT NOT DESTROYED." : GOTO 21435 "*** KLINGON AT"; 21260 IF Q$(A5,A6)="C" THEN PRINT "*** COMMANDER AT"; 21265 PRINT A5;"-";A6; 21270 A7=A8+2.5*(RND(1)-.5) 2;S5$;" RAMS "; : W7=1 : IF Q$(S6,S7)="C" THEN W7=2 22030 IF W7=1 THEN PRINT "KLINGON AT "; 22040 IF W7=2 THEN PRINT "COMMANDERF Q$(A5,A6)="K" THEN 21220 21200 IF Q$(A5,A6)<>"C" THEN 21325 21205 IF RND(1)>.1 THEN 21220 21210 PRINT "*** COMMANDER AT SEC5 : Y2=A6 : GOSUB 19002 : A5=X2 : A6=Y2 21390 IF G(Q1,Q2)=LQ THEN RETURN 21395 IF A2<>0 THEN RETURN 21400 GOTO 21435 21405 P GOTO 21145 21140 PRINT : PRINT "TORPEDO TRACK --" : A8=(15-A3)*.523599 21145 X4=-SIN(A8) : Y4=COS(A8) : B8=ABS(X4) 21146 IF 21325 IF Q$(A5,A6)<>"B" THEN 21365 21330 PRINT "*** STARBASE DESTROYED...!!!" 21335 IF S2(Q1,Q2)<0 THEN S2(Q1,Q2)=0 21340 FO1275 W3=ABS(-SIN(A7)) : IF ABS(COS(A7))>W3 THEN W3=ABS(COS(A7)) 21280 X7=-SIN(A7)/W3 : Y7=COS(A7)/W3 21285 P=INT(A5+X7+.5) : Q AT "; 22050 PRINT "SECTOR";S6;"-";S7 : A5=S6 : A6=S7 : T2$=Q$(S6,S7) 22060 GOSUB 6000 : PRINT "*** ";S5$;" HEAVILY DAMAGED." TOR";A5;"-";A6;"USES ANTI-PHOTON DEVICE !" 21215 PRINT "-- TORPEDO NEUTRALIZED." : GOTO 21435 21220 FOR V=1 TO K3 21225 IF (ARINT : PRINT " >>> ORGANIAN TRUCE-MONITOR DESTROYED <<<" : Q$(A5,A6)="." : PRINT 21420 T2=0 : T3=0 : GOTO 21435 21425 NEXT  ABS(Y4)>ABS(X4) THEN B8=ABS(Y4) 21150 X4=X4/B8 : Y4=Y4/B8 : X5=S6 : Y5=S7 21155 FOR L9=1 TO 15 : X5=X5+X4 : A5=INT(X5+.5) 21R W=1 TO R3 21345 IF (B2(W)<>Q1) OR (B3(W)<>Q2) THEN 21355 21350 B2(W)=B2(R3) : B3(W)=B3(R3) 21355 NEXT W : Q$(A5,A6)="." : R=INT(A6+Y7+.5) 21290 IF (P<1) OR (P>10) OR (Q<1) OR (Q>10) THEN 21320 21295 IF Q$(P,Q)<>"." THEN 21320 21300 Q$(P,Q)=Q$(A5,A6 22070 K=INT(5+RND(1)*20) : PRINT "***SICKBAY REPORTS";K;"CASUALTIES!" 22080 C4=C4+K : FOR L=1 TO 12 : I=RND(1) 22090 J=(3.5*W5=K4(V)) AND (A6=K5(V)) THEN 21235 21230 NEXT V 21235 K=K6(V) : W3=200+800*RND(1) 21240 IF ABS(K)0 THEN RETURN 21445 F9=1 : GOSUB 10000 : RETURN 22001 160 IF (A5<1) OR (A5>10) THEN 21430 21165 Y5=Y5+Y4 : A6=INT(Y5+.5) 21170 IF (A6<1) OR (A6>10) THEN 21430 21175 IF (L9=5) OR (3=R3-1 : B6=0 : B7=0 21360 G(Q1,Q2)=G(Q1,Q2)-10 : B1=B1+1 : GOSUB 17000 : GOTO 21435 21365 IF Q$(A5,A6)<>"*" THEN 21405 21370) : Q$(A5,A6)="." : PRINT "DAMAGED--" 21305 PRINT " DISPLACED BY BLAST TO SECTOR";P;"-";Q 21310 K4(V)=P : K5(V)=Q : K7(V)=SQ7*(RND(1)+I)+1)*D5 22100 IF L=6 THEN J=J/3 22110 D4(L)=D4(L)+T1+J : NEXT L : D4(6)=D4(6)-3 22120 IF D4(6)<0 THEN D4(6)=0 221(V)=K-SGN(K)*ABS(W3) : IF K6(V)<>0 THEN 21255 21250 T2$=Q$(A5,A6) : GOSUB 6000 : GOTO 21435 21255 IF Q$(A5,A6)="K" THEN PRINT PRINT : PRINT "*** RED ALERT!! RED ALERT!! ***" : PRINT 22010 PRINT "*** COLLISION IMMINENT!!" : PRINT 22020 PRINT "*** "L9=9) THEN PRINT 21180 PRINT FNR(X5);"-";FNR(Y5);", "; 21185 IF Q$(A5,A6)<>"." THEN 21195 21190 GOTO 21425 21195 PRINT : I IF RND(1)>.15 THEN 21385 21375 PRINT "*** STAR AT SECTOR";A5;"-";A6;"UNAFFECTED BY PHOTON BLAST" 21380 GOTO 21435 21385 X2=A 30 S4=0 : IF R1<>0 THEN RETURN 22140 F9=1 : GOSUB 10000 : RETURN 23000 P=D0-J2 : IF (P<>0) AND (R1=0) THEN 23020 23010 IF P<57 : I8=2500 : S3=I8 : S4=0 : S9=S4 : J1=4 : L1=J1 24020 Q1=FNA(1) : Q2=FNA(1) : S6=FNB(1) : S7=FNB(1) : I9=10 : T4=I9 24030 W1B(5);"CASUALTIES INCURRED";TAB(36);-C4*MR 23240 IF M=0 THEN 23260 23250 PRINT M;TAB(5);"SHIP(S) LOST OR DESTROYED";TAB(36)-100A(1) : IF (G(X,Y)<99) AND (RND(1)<.75) THEN 24250 24260 IF G(X,Y)>899 THEN 24250 24270 IF I=1 THEN 24300 24280 M=I-1 : FOR J= THEN 23140 23130 PRINT K2;TAB(5);"KLINGON COMMANDER(S) DESTROYED";TAB(36);50*K2*MR 23140 IF K=0 THEN 23160 23150 PRINT FNR(N)*6+2) : Y=INT(RND(1)*6+2) 24130 IF G(X,Y)>=10 THEN 24120 24140 IF I<2 THEN 24180 24150 K=I-1 : FOR J=1 TO K : D1=SQR((B2(J)- THEN P=5 23020 N=(K2+K1)/P : K=INT(500*N+.5) : L=0 23030 IF G1<>0 THEN L=100*S8 23035 I=0 23040 IF LEFT$(S5$,1)="E" THEN M==5 : W2=25 : FOR I=1 TO 12 : D4(I)=0 : NEXT 24040 J2=100*INT(31*RND(1)+20) : D0=J2 : K1=0 : K2=0 : N1=0 : N2=0 : R6=0 : C4=0 *M*MR 23260 IF A1<>0 THEN 23280 23270 PRINT TAB(5)"PENALTY FOR GETTING KILLED";TAB(36);-200*MR 23280 IF G1=0 THEN 23300 2321 TO M : IF (C1(J)=X) AND (C2(J)=Y) THEN 24250 24290 NEXT J 24300 G(X,Y)=G(X,Y)+100 : C1(I)=X : C2(I)=Y : NEXT I 24305 I=INT();TAB(5);"KLINGONS PER STARDATE, AVERAGE"; 23155 PRINT TAB(36);K*MR 23160 IF S1=0 THEN 23180 23170 PRINT S1;TAB(5);"STAR(S) DX)^2+(B3(J)-Y)^2) 24160 IF D1<2 THEN 24120 24170 NEXT J 24180 B2(I)=X : B3(I)=Y : S2(X,Y)=-1 : G(X,Y)=G(X,Y)+10 : NEXT I 2410 23045 IF LEFT$(S5$,1)="F" THEN M=1 23050 IF LEFT$(S5$,1)="" THEN M=2 23060 IF A1=0 THEN I=200 23070 J=10*K1+50*K2+K+L-I-1024050 A1=1 : D3=.25 : FOR I=1 TO 8 : FOR J=1 TO 8 : S2(I,J)=0 : NEXT J : NEXT I 24060 F1(1)=D0-.5*I5*LOG(RND(1)) : F1(5)=1E+30 90 PRINT TAB(5);"BONUS FOR WINNING ";S$(S8);" GAME";TAB(36);L*MR 23300 PRINT TAB(5);"-------------------------------------" 2D0) : PRINT : S0=0 24310 T2=FNA(1) : T3=FNA(1) : IF G(T2,T3)<100 THEN 24310 24440 PRINT "STARDATE..............";I 24450 PRIESTROYED";TAB(36);-3*S1*MR 23180 IF B1=0 THEN 23200 23190 PRINT B1;TAB(5);"STARBASES DESTROYED";TAB(36);-100*B1*MR 23200 IF N90 B1=0 : K=I1-I4 : L=INT(.25*S8*(9-L2)+1) 24200 M=INT((1-RND(1)^2)*L) : IF M>K THEN M=K 24210 N=100*M 24220 X=FNA(1) : Y=FNA0*B1-100*M-35*N1-3*S1-C4 23080 PRINT : IF J<>0 THEN 23100 23090 PRINT "AS YET, YOU HAVE NO SCORE." : RETURN 23100 PRINT "YOU 24070 F1(2)=D0-1.5*(I5/R2)*LOG(RND(1)) : I6=0 24080 F1(3)=D0-.3*I5*LOG(RND(1)) : F1(4)=D0-.3*I5*LOG(RND(1)) 24090 FOR I=1 TO 3310 PRINT TAB(28);" TO TAL";TAB(36);J*MR;"**" : RETURN 24001 A2=0 : G1=0 : GOSUB 4001 : S5$="ENTERPRISE" 24010 I7=5000 : E1=INT "NUMBER OF KLINGONS....";I1 24460 PRINT "NUMBER OF STARDATES...";INT(I5) 24470 PRINT "NUMBER OF STARBASES...";I2 24480 PRI1=0 THEN 23220 23210 PRINT N1;TAB(5);"SOS CALL(S) TO A STARBASE";TAB(36);-35*N1*MR 23220 IF C4=0 THEN 23240 23230 PRINT C4;TA(1) : IF G(X,Y)+N>999 THEN 24220 24230 G(X,Y)=G(X,Y)+N : K=K-M : IF K<>0 THEN 24200 24240 FOR I=1 TO I4 24250 X=FNA(1) : Y=FNR SCORE --" : PRINT : IF K1=0 THEN 23120 23110 PRINT K1;TAB(5);"ORDINARY KLINGON(S) DESTROYED";TAB(36);10*K1*MR 23120 IF K2=08 : FOR J=1 TO 8 : K=INT(RND(1)*9+1) : I6=I6+K 24100 G(I,J)=K : NEXT J : NEXT I : S1=0 24110 FOR I=1 TO I2 24120 X=INT(RND(1 NT "STARBASE LOCATIONS...."; 24490 FOR I=1 TO I2 : PRINT B2(I);"-";B3(I); 24500 IF I<>I2 THEN PRINT ", "; 24510 NEXT I : PRIN1) OR (Y<>Q2) THEN 27150 27050 IF J4<>0 THEN 27150 27060 N=INT(RND(1)*(G(X,Y)-INT(G(X,Y)/10)*10))+1 27070 FOR X3=1 TO 10 : FO560 S4=1 : S9=1 : IF C5$<>"DOCKED" THEN E1=E1-50 26570 PRINT "SHIELDS RAISED." : IF E1<=0 THEN 26610 26580 J3=1 : RETURN 2659=B2(R3) : B3(L)=B3(R3) : B2(R3)=0 : B3(R3)=0 : R3=R3-1 27300 NEXT L 27310 IF X2=0 THEN 27350 27320 N=G(X,Y)-INT(G(X,Y)/100)*1OUR ENGINES MAY NOT TAKE IT !" : RETURN 25130 PRINT "-'AYE, CAPTAIN, WE'LL GIVE IT A TRY.'" : RETURN 25140 PRINT "-'WE CAN'T GPERNOVA IN QUADRANT";X;"-";Y; 27175 PRINT "....CAUTION ADVISED'" 27180 N=G(X,Y) : R=INT(N/100) : Q=0 27190 IF (X<>Q1) OR (Y<>T : PRINT 24530 GOSUB 18000 24531 PRINT : INPUT"READY TO CONTINUE";NL$ : PRINT CHR$(12) : GOSUB 29002 : GOSUB 14001 : RETURR Y3=1 TO 10 : IF Q$(X3,Y3)<>"*" THEN 27090 27080 N=N-1 : IF N=0 THEN 27100 27090 NEXT Y3 : NEXT X3 27100 PRINT : PRINT "***0 S4=0 : S9=1 : PRINT "SHIELDS LOWERED." : J3=1 : RETURN 26600 PRINT "SHIELDS DAMAGED AND DOWN. " : RETURN 26610 PRINT : PRIN00 27330 S1=S1+(N-INT(N/10)*10) : B1=B1+INT(N/10) 27340 K1=K1+R : K2=K2+Q 27350 IF (S2(X,Y)<>0) AND (D4(9)<>0) THEN S2(X,Y)=LO BELOW WARP 1, CAPTAIN.'" : RETURN 25150 PRINT "-'OUR TOP SPEED IS WARP 10, CAPTAIN.'" 25160 RETURN 26001 J3=0 : IF D4(8)<>0Q2) THEN 27210 27200 K3=0 : C3=0 27210 IF R=0 THEN 27270 27220 R1=R1-R : IF R2=0 THEN 27270 27230 FOR L=1 TO R2 : IF (C1(L)<N 25010 INPUT"WARP FACTOR";K 25020 PRINT 25025 IF K<1 THEN 25140 25026 IF K>10 THEN 25150 25030 J=W1 : W1=K : W2=W1*W1 25 RED ALERT!! RED ALERT!! *** 27105 X3=X2 : Y3=Y2 27110 PRINT "*** INCIPIENT SUPERNOVA DETECTED AT SECTOR";X3;"-";Y3 27120 X=T "SHIELDS CONSUME ALL ENERGY." 26620 F9=4 : GOSUB 10000 : RETURN 27000 IF X2<>0 THEN 27100 27010 N=INT(RND(1)*I6+1) : FOR X=Q+G(X,Y) 27360 IF (D4(9)=0) OR ((Q1=X) AND (Q2=Y)) THEN S2(X,Y)=1 27370 G(X,Y)=1000 27380 IF (R1<>0) OR ((X=Q1) AND (Y=Q2)) T THEN 26600 26010 IF S4<>0 THEN 26530 26500 INPUT"SHIELDS ARE DOWN. DO YOU WANT THEM UP";B$ 26510 IF LEFT$(B$,1)="Y" THEN 26>X) OR (C2(L)<>Y) THEN 27260 27240 C1(L)=C1(R2) : C2(L)=C2(R2) : C1(R2)=0 : C2(R2)=0 27250 R2=R2-1 : R=R-1 : Q=1 : IF R2=0 THE040 IF (W1<=J) OR (W1<=6) THEN 25070 25050 IF W1<=8 THEN 25080 25060 IF W1>8 THEN 25100 25070 PRINT "'WARP FACTOR";W1;"CAPTAIQ1 : Y=Q2 : K=(X2-S6)^2+(Y2-S7)^2 27130 IF K>1.5 THEN 27180 27140 PRINT "*** EMERGENCY AUTO-OVERRIDE JAMMED ***" : A2=1 : GOTO1 TO 8 : FOR Y=1 TO 8 27020 N=N-(G(X,Y)-INT(G(X,Y)/10)*10) : IF N<=0 THEN 27040 27030 NEXT Y : NEXT X : RETURN 27040 IF (X<>QHEN 27430 27390 PRINT CHR$(12) : PRINT "*** SUPERNOVA IN QUADRANT";X;"-";Y;"HAS DESTROYED THE" 27400 PRINT "REMAINDER OF THE E560 26520 RETURN 26530 INPUT"SHIELDS ARE UP. DO YOU WANT THEM DOWN";B$ 26540 IF LEFT$(B$,1)="Y" THEN 26590 26550 RETURN 26N F1(2)=1E+30 27260 NEXT L 27270 IF R3=0 THEN 27310 27280 FOR L=1 TO R3 : IF (B2(L)<>X) OR (B3(L)<>Y) THEN 27300 27290 B2(L)N'" : RETURN 25080 PRINT "*** OUR MAXIMUM SAFE SPEED IS WARP 6" : RETURN 25100 IF W1=10 THEN 25130 25110 PRINT "*** CAPTAIN,  27180 27150 IF D4(9)<>0 THEN 27180 27160 PRINT : PRINT "MESSAGE FROM STARFLEET COMMAND...STARDATE";INT(D0) 27170 PRINT "'SU NEMY FLEET !!" 27420 F9=1 : GOSUB 10010 : RETURN 27430 IF A2=0 THEN RETURN 27440 F9=8 : GOSUB 10010 : RETURN 28000 IF K3<=1 RANGE SENSORS DAMAGED." : RETURN 30001 PRINT : PRINT "*** TIME WARP ENTERED ***" : PRINT "YOU ARE TRAVELING "; 30010 IF S0<>0GOTO 29220 29130 PRINT "DAMAGED, RESERVES=";FNS(L1) : GOTO 29220 29140 PRINT " WARP FACTOR ";FNR(W1) : GOTO 29220 29150 PRI3 31030 IF Z3<0 THEN RETURN 31040 IF E1+S3-Z3>0 THEN 31060 31050 PRINT "SCOTT HERE- 'WE ONLY HAVE";FNR(E1+S3);"UNITS LEFT.'": PRINT Q$(I,J);" "; : NEXT J 29040 ONI GOTO 29050,29060,29080,29090,29140 29045 ONI-5 GOTO 29150,29160,29170,29200,29210 290I=95 TO 99 : B2(I-94)=D9(I) : NEXT 30130 FOR I=100 TO 104 : B3(I-99)=D9(I) : NEXT : B4=D9(105) : B5=D9(106) 30140 F1(1)=D0-.THEN RETURN 28010 Z4=0 : FOR O=1 TO K3-1 : IF K7(O)<=K7(O+1) THEN 28080 28020 K=K7(O) : K7(O)=K7(O+1) : K7(O+1)=K 28030 K=K8( THEN 30050 30020 T1=-.5*I5*LOG(RND(1)) 30030 PRINT "FOR WARD IN TIME";FNR(T1);"STARDATES." 30040 F1(2)=F1(2)+T1 : GO TO 302NT " ENERGY";SPC(8);.01*INT(100*E1) : GOTO 29220 29160 PRINT " TORPEDOS ";T4 : GOTO 29220 29170 PRINT " SHIELDS "; 31051 RETURN 31060 E1=E1+S3-Z3 : S3=Z3 : PRINT "--ENERGY TRANSFER COMPLETE--" 31070 PRINT "(SHIP ENERGY=";FNR(E1);" SHIEL50 PRINT " STARDATE ";FNR(D0) : GOTO 29220 29060 IF C5$<>"DOCKED" THEN GOSUB 17000 29070 PRINT " CONDITION ";C5$ : G5*I5*LOG(RND(1)) 30150 IF R2<>0 THEN F1(2)=D0-(I5/R2)*LOG(RND(1)) 30160 F1(3)=D0-.5*I5*LOG(RND(1)) 30170 FOR I=1 TO 8 : FOR JO) : K8(O)=K8(O+1) : K8(O+1)=K 28040 K=K4(O) : K4(O)=K4(O+1) : K4(O+1)=K 28050 K=K5(O) : K5(O)=K5(O+1) : K5(O+1)=K 28060 K=K600 30050 M=D0 : D0=D9(1) 30060 PRINT "BACKWARD IN TIME";FNR(M-D0);"STARDATES." : S0=0 30070 R1=D9(2) : R2=D9(3) : R3=D9(4) :  : B$="DOWN," : IF S4<>0 THEN B$="UP," 29180 IF D4(8)>0 THEN B$="DAMAGED," 29190 PRINT B$;INT(100*S3/I8+.5);"%" : GOTO 29220 D ENERGY=";FNR(S3);")" 31075 J3=1 31080 T1=.1 : P5=(K3+4*C3)/48 : IF P5<.1 THEN P5=.1 31090 IF P5>RND(1) THEN GOSUB 1000 311OTO 29220 29080 PRINT " POSITION ";Q1;"-";Q2;", ";S6;"-";S7 : GOTO 29220 29090 PRINT " LIF E SUPPORT "; : IF D4(5)<>0 T=1 TO 8 : IF 10 THEN 28010 28100 RETURN 29002 IF D(1)<>0 THEN 29230 R4=D9(5) : R5=D9(6) 30080 S1=D9(7) : B1=D9(8) : K1=D9(9) : K2=D9(10) 30090 FOR I=1 TO 8 : FOR J=1 TO 8 : G(I,J)=D9(I-1+8*(J-1)29200 PRINT " KLINGONS LEFT ";R1 : GOTO 29220 29210 PRINT " TIME LEFT ";FNS(R5) 29220 NEXT I : RETURN 29230 PRINT "SHORT 00 IF A2<>0 THEN RETURN 31110 GOSUB 9000 : RETURN 31120 PRINT "TRANSFER PANEL DAMAGED." : RETURN 33001 J3=0 : INPUT"HOW MANY HEN 29110 29100 PRINT "ACTIVE" : GOTO 29220 29110 IF C5$<>"DOCKED" THEN 29130 29120 PRINT "DAMAGED, SUPPORTED BY STARBASE" : CHART FROM MEMORY." 30200 GOSUB 18000 : RETURN 31001 J3=0 : IF D4(12)<>0 THEN 31120 31020 INPUT"NUMBER OF UNITS TO SHIELDS";Z 29010 PRINT : PRINT " 1 2 3 4 5 6 7 8 9 10" 29020 FOR I=1 TO 10 : IF I<10 THEN PRINT " "; 29030 PRINT I; : FOR J=1 TO 10 +11) : NEXT J : NEXT I 30100 FOR I=75 TO 84 : C1(I-74)=D9(I) : NEXT 30110 FOR I=85 TO 94 : C2(I-84)=D9(I) : NEXT 30120 FOR  STARDATES";Z5 : IF (Z5"Y" THEN RETURN 33030 R6=1 330 : GOTO 70 476 GOSUB 26001 : IF J3=0 THEN 70 478 IF A2<>0 THEN 901 479 GOSUB 1000 : S9=0 : GOTO 70 501 GOSUB 11001 : GOTO 71 160 ON I-10 GOTO 426,901,476,501,526,545,551,576,601,627 201 GOSUB 35001 : GOTO 70 226 GOSUB 3001 : GOTO 70 251 GOSUB 50 : IF P2*S3>P3 THEN P3=P2*S3 1180 H5=P3*C6*H4+1 1190 IF H5>S3 THEN H5=S3 1195 S3=S3-H5 : H4=H4-H5 1210 IF (P3>.1) AND (H4<5E THEN 34150 34040 J3=0 : PRINT : PRINT "ENGINEERING TO BRIDGE--" 34050 IF (S4=0) OR (.5*P>E1) THEN 34080 34060 PRINT " WE H000 : GOTO 70 901 PRINT : PRINT : INPUT "ANOTHER GAME ";A$ 910 IF LEFT$(A$,1)="Y" THEN 46 911 PRINT CHR$(12) : END 1000 IF040 IF Z5<=0 THEN R6=0 33050 IF R6=0 THEN RETURN 33060 T1=Z5 : Z6=Z5 33070 IF K3=0 THEN 33100 33080 T1=1+RND(1) : IF Z51 THEN 110 80 PRINT "2 LETTERS, PLEASE." : GOTO 75 110 FOR I=1 TO 20 120 IF A$=LEFT$(C (C3<>0) AND (J4=0) THEN GOSUB 16001 1020 IF K3=0 THEN RETURN 1030 IF A2<>0 THEN RETURN 1040 P2=1/I8 1050 J5=0 1060 PRINT HEN T1=Z5 33090 Z6=T1 33100 IF T10 THEN RETURN 33120 GOSUB 9000 : J3=1 : IF A2<>0 THEN RETU J3=0 THEN 70 585 IF A2<>0 THEN 901 590 IF G(Q1,Q2)<>LQ THEN 70 595 GOTO 750 601 IF J3=0 THEN 70 603 IF A2<>0 THEN 901 610331 IF A2<>0 THEN 901 332 IF G(Q1,Q2)=1000 THEN 750 340 GOSUB 1000 : GOTO 70 351 GOSUB 13001 : IF J3=0 THEN 70 353 GOTO 710 K" THEN PRINT "KLINGON AT"; 1270 IF Q$(J6,J7)="C" THEN PRINT "COMMANDER AT"; 1280 PRINT J6;"-";J7 1290 IF H4>H2 THEN H2=H4 1$(I),LEN(A$)) THEN 150 130 NEXT 135 PRINT "ILLEGAL !! - USE THIS LIST" 140 PRINT : FOR I=1 TO 20 STEP 4 141 PRINT C$(I);TA 1070 IF C5$="DOCKED" THEN 1780 1080 H2=0 : H3=0 : C6=1 1090 IF S9=1 THEN C6=.5+.5*RND(1) 1100 A3=0 1110 FOR L=1 TO K3 1120RN 33130 Z5=Z5-Z6 : GOTO 33040 34001 J3=0 : IF D4(6)<>0 THEN 34750 34010 INPUT"ENTER COURSE...";D2 : IF D2<.01ORD2>12 THEN GO IF G(Q1,Q2)<>LQ THEN 70 615 GOTO 750 627 GOSUB 25010 : GOTO 70 710 IF A2<>0 THEN 901 720 IF T1<>0 THEN GOSUB 9000 730 IF A 376 GOSUB 14001 : GOTO 70 401 GOSUB 34001 402 IF J3=0 THEN 70 410 GOTO 710 426 GOSUB 20001 : IF J3=0 THEN 70 428 GOSUB 100300 H3=H3+H4 1310 IF H4<(275-25*S8)*(1+.5*RND(1)) THEN 1530 1320 N4=1+INT(H4/(500+100*RND(1))) 1330 PRINT "*** CRITICAL HIT--B(12);C$(I+1);TAB(22);C$(I+2);TAB(32);C$(I+3) 142 NEXT : PRINT : GOTO 70 150 ON I GOTO 201,226,251,276,291,301,326,351,376,40 IF K6(L)<0 THEN 1540 1130 A3=1 1140 D6=.8+.05*RND(1) 1150 H4=K6(L)*D6^K8(L) 1160 IF (S4=0) AND (S9=0) THEN 1230 1170 P3=.1SUB 40000ELSE34013 34012 RETURN 34013 INPUT"DISTANCE...";D1 : IF D1<=0 THEN RETURN 34030 P=(D1+.05)*W1*W1*W1*(S4+1) : IF P0 THEN 901 740 IF G(Q1,Q2)0 THEN 901 760 IF A2<>0 THEN 901 770 GOTO 740 790 GOSUB 1 "; 1340 K9=1 1350 FOR W4=1 TO N4 1360 J9=INT(12*RND(1))+1 1370 C5(W4)=J9 1380 E3=(H4*D5)/(N4*(75+25*RND(1))) 1390 IF J9=6  2150 IF D4(7)=0 THEN 2190 2160 PRINT "IMPULSE ENGINES DAMAGED." 2165 F9=8 2170 GOSUB 10000 2180 RETURN 2190 P2=.75*E1 220TARBASE SHIELDS PROTECT THE ";S5$ 1800 FOR W4=1 TO K3 1810 K8(W4)=K7(W4) 1820 NEXT W4 1830 GOSUB 28000 : RETURN 2001 PRINT  ";S5$;" IS CURRENTLY IN (";Q1;"-";Q2;")" 3200 RETURN 4001 PRINT CHR$(12) 4070 S8=0 : L2=0 4090 PRINT "MISSION DURATION... :1600 GOTO 1650 1610 PRINT "ENERGY LEFT : ";FNS(E1);" SHIELDS "; 1620 IF S4<>0 THEN PRINT "UP,"; 1630 IF (S4=0) AND (D4(8)=001 PRINT : PRINT " 1 2 3 4 5 6 7 8" 3010 PRINT " --- --- --- --- --- --- --- ---" 3020 FOR I=1 TO 8 3THEN E3=E3/3 1395 D4(J9)=D4(J9)+E3 1400 IF W4=1 THEN 1470 1420 FOR V=1 TO W4 1430 IF J9=C5(V-1) THEN 1480 1440 NEXT V 14500 D6=4E-03*(P2-50) 2210 D7=1.4142+1.2*RND(1) 2220 D1=D6 2230 IF D6>D7 THEN D1=D7 2240 T1=D1/.4 2250 D2=12*RND(1) 2260 J4=0 : IF J4=0 THEN 2050 2020 PRINT "*** RED ALERT! RED ALERT!" 2030 PRINT "*** THE ";S5$;" HAS STOPPED IN QUADRANT CONTAINING SU "; 4095 INPUT A$ 4100 FOR I=1 TO 3 4110 IF A$=LEFT$(T$(I),LEN(A$)) THEN 4150 4120 NEXT I 4130 PRINT "WOULD YOU LIKE A SH) THEN PRINT "DOWN, "; 1640 IF D4(8)>0 THEN PRINT "DAMAGED, "; 1650 PRINT INT(P4);"%" 1660 IF (H2<200) AND (H3<500) THEN 1800030 PRINT I;" "; 3040 FOR J=1 TO 8 3060 ON SGN(S2(I,J))+2 GOTO 3070,3090,3110 3070 PRINT " .1."; 3080 GOTO 3160 3090 PRINT K9=K9+1 1460 IF K9=3 THEN PRINT 1465 PRINT " AND "; 1470 PRINT D$(J9); 1480 NEXT W4 1490 PRINT " DAMAGED." 1500 IF D4( 2270 GOSUB 13200 2280 GOTO 2400 2290 W1=6+2*RND(1) 2300 W2=W1*W1 2310 P2=.75*E1 2320 D6=P2/(W1*W1*W1*(S4+1)) 2330 D7=1.4PERNOVA" 2050 PRINT "*** AUTO-OVERRIDE ATTEMPTS TO HURL ";S5$;" TO OTHER QUADRANT" 2080 S2(Q1,Q2)=1 2090 GOSUB 18000 2100 IORT, MEDIUM OR LONG GAME"; 4140 GOTO 4095 4150 L2=I 4160 PRINT "ARE YOU A BEGINNER, NOVICE, SENIOR OR EXPERT "; 4170 INPUT A 1670 J8=INT(H3*RND(1)*.015) 1680 IF J8<2 THEN 1800 1690 PRINT 1700 PRINT "---> 'SICKBAY TO BRIDGE. WE SUFFERED ";J8;"CASU " ..."; 3100 GOTO 3160 3110 IF S2(I,J)>LQ THEN 3150 3120 IF G(I,J)0 THEN PRINT "*** SHIELDS KNOCKED DOWN." 1520 S4=0 1530 E1=E1-H4 1540 NEXT L 1550 IF A3=0 THEN R142+2*RND(1) 2340 D1=D6 2350 IF D6>D7 THEN D1=D7 2360 T1=10*D1/W2 2370 D2=12*RND(1) 2380 J4=0 2390 GOSUB 34500 2400 IF J4F D4(6)=0 THEN 2290 2110 PRINT 2120 PRINT "WARP ENGINES DAMAGED." 2140 PRINT : PRINT "TRYING TO ENGAGE IMPULSE ENGINES..." $ 4180 FOR I=1 TO 4 4190 IF A$=LEFT$(S$(I),LEN(A$)) THEN 4220 4200 NEXT I 4210 GOTO 4160 4220 S8=I : MR=I 4230 INPUT "ENTEALTIES IN THAT ATTACK" 1730 C4=C4+J8 1740 GOTO 1800 1750 F9=5 1760 GOSUB 10000 : RETURN 1780 PRINT "*** KLINGONS ATTACK-- SIF G(I,J)=LQ THEN PRINT " ***"; 3140 GOTO 3160 3150 PRINT S2(I,J)-LQ; 3160 NEXT J : PRINT : NEXT I : PRINT 3190 PRINT "THEETURN 1560 IF E1<=0 THEN 1750 1570 P4=100*P2*S3+.5 1580 IF J5<>0 THEN 1610 1590 PRINT "ENEMY ATTACK--SHIELDS REDUCED TO "; <>0 THEN 2440 2410 F9=8 2420 GOSUB 10000 2430 RETURN 2440 IF R1<>0 THEN RETURN 2450 F9=1 2460 GOSUB 10000 2470 RETURN 30 R MISSION PASSWORD...";X$ : PRINT 4245 PRINT "....STAND BY...." 4250 J=RND(1) 4280 D5=.5*S8 : I2=INT(L2+1+RND(1)*3) 4290 IFAND WARP FACTOR";D1,A4 5304 IF (D1<0) THEN 5040 5310 C7=D1*A4*A4*A4 5315 T1=(10*D1)/((A4*A4)+1E-05) 5320 PRINT "IT WOULD TAK)+(K-1)/10 : K=INT(A4-K*100) 5233 IF (K<1) OR (K>10) THEN 5990 5234 C6(2)=C6(2)+(K-1)/10 5235 X=Q1+((S6-1)/10)-C6(1) : Y=Q2+( 6090 GOTO 6120 6100 PRINT "*** KLINGON AT"; 6110 K1=K1+1 6120 PRINT A5;"-";A6;"DESTROYED." 6130 Q$(A5,A6)="." : R1=R1-1 6OURSE WCOST SCORE" 5100 PRINT " PEFFECT ICOST OUT" 5110 GOTO 5040 5120 ON I GOTO 5210,5302,5410,5510,5610,5700 52110 GOSUB 23000 5620 GOTO 5040 5700 RETURN 5990 PRINT "FOR MAT IS MN,XXYY...WHERE MN IS THE QUADRANT" 5991 PRINT "AND XXYY IS I2>5 THEN I2=5 4300 R3=I2 4310 I5=7*L2 4320 R5=I5 4340 R7=(S8-2*RND(1)+1)*S8*.1+.1 4350 IF R7<.2 THEN R7=R7+.1 4360 I1=INE";FNS(T1);"STARDATES AND USE" 5325 PRINT FNR(C7);"UNITS OF ENERGY (";FNR(C7+C7);"IF SHIELDS ARE UP)" 5330 GOTO 5040 5410 I(S7-1)/10)-C6(2) 5236 D1=0 : D2=0 : IF (X=0) AND (Y=0) THEN 5250 5237 D1=SQR(X*X+Y*Y) 5238 IF X<0 THEN Z7=SGN(Y)*(3.1416-ATN(140 IF R1=0 THEN RETURN 6150 R5=R4/(R1+4*R2) 6160 G(Q1,Q2)=G(Q1,Q2)-100 6170 FOR F=1 TO K3 6180 IF (K4(F)=A5) AND (K5(F)=A6)0 INPUT "ENTER QUADRANT AND SECTOR - ";A3,A4 5220 IF (A3<>INT(A3)) OR (A4<>INT(A4)) THEN 5990 5221 IF A3<0 THEN 5040 5222 IF THE SEC TO R...E.G. 64,0307 REFERS" 5992 PRINT "TO QUADRANT 6-4, SECTOR 3-7." 5995 GOTO 5040 6000 IF T2$<>"C" THEN 6100 60T(2*R7*I5) 4370 R1=I1 4380 I4=INT(S8+.0625*I1*RND(1)) 4390 R2=I4 4400 I3=(I1+4*I4)*I5 4410 R4=I3 4420 RETURN 5001 IF D4(1NPUT "ENTER DISTANCE...";D1 5420 IF D1<0 THEN 5040 5430 C7=250*D1+50 : T1=D1/.4 5440 PRINT "IT WOULD TAKE";FNR(T1);"STARDATESABS(Y/X))) 5239 IF X=0 THEN Z7=SGN(Y)*1.5708 5240 IF X>0 THEN Z7=ATN(Y/X) 5245 D2=12-Z7*1.9098593# : IF D2>12 THEN D2=D2-12  THEN 6200 6190 NEXT F 6200 K3=K3-1 6210 IF F>K3 THEN 6250 6220 FOR G=F TO K3 6230 K4(G)=K4(G+1) : K5(G)=K5(G+1) : K6(G)=K6 A3=0 THEN A3=10*Q1+Q2 5223 A3=A3+.5 5225 K=INT(A3/10) 5226 IF (K<1) OR (K>8) THEN 5990 5227 C6(1)=K : K=INT(A3-C6(1)*10) 510 C3=0 : PRINT "*** COMMANDER AT"; 6030 FOR F=1 TO R2 : IF (C1(F)=Q1) AND (C2(F)=Q2) THEN 6050 6040 NEXT F 6050 C1(F)=C1(R2)1)=0 THEN 5030 5010 PRINT " COMPUTER DISABLED" 5020 RETURN 5030 PRINT "----COMPUTER ACTIVE----" 5040 INPUT "PROGRAM NAME";B$ AND USE" 5450 PRINT C7;"UNITS OF ENERGY" 5460 GOTO 5040 5510 INPUT "ENTER PHASER RANGE IN QUADRANTS";A3 5520 IF A3<0 THEN 55250 PRINT "COURSE IS";FNS(D2);" FOR A DISTANCE OF"; 5260 PRINT FNS(D1);"QUADRANTS." : GOTO 5040 5302 INPUT "ENTER DISTANCE (G+1) 6235 K7(G)=K7(G+1) : K8(G)=K7(G) 6240 NEXT G 6250 K4(K3+1)=0 : K5(K3+1)=0 : K7(K3+1)=0 : K8(K3+1)=0 : K6(K3+1)=0 6260 228 IF (K<1) OR (K>8) THEN 5990 5229 C6(2)=K : A4=A4+.5 5230 K=INT(A4/100) 5231 IF (K<1) OR (K>10) THEN 5990 5232 C6(1)=C6(1 : C2(F)=C2(R2) : C1(R2)=0 : C2(R2)=0 6060 R2=R2-1 : F1(2)=1E+30 6070 IF R2<>0 THEN F1(2)=D0-(I4/R2)*LOG(RND(1)) 6080 K2=K2+1 5050 FOR I=1 TO 6 5060 IF B$=LEFT$(C2$(I),LEN(B$)) THEN 5120 5070 NEXT 5080 PRINT "VALID PROGRAMS ARE : " 5090 PRINT " C040 5530 A3=A3*10 : C7=(.9^A3)*100 5540 PRINT "PHASERS ARE ";LEFT$(STR$(C7),5);"% EFFECTIVE AT THAT RANGE" 5550 GOTO 5040 56 RETURN 7000 IF C5$="DOCKED" THEN 7100 7010 IF B6=0 THEN 7020 7015 IF (ABS(S6-B6)<=1) AND (ABS(S7-B7)<=1) THEN 7040 7020 PRIN96 Y6=SQR(Y6) : T1=.17778*Y6 9297 PRINT : PRINT "*** ";S5$;" CAUGHT IN LONG-RANGE TRACTOR BEAM--" 9298 Q1=C1(I) : Q2=C2(I) 9L)<=0 THEN 9230 9220 D4(L)=D4(L)-R 9225 IF D4(L)<0 THEN D4(L)=0 9226 IF D4(L)<>0 THEN 9230 9227 PRINT : PRINT "DAMAGE CONTR9380 F1(4)=D0+.5+3*RND(1) 9390 F1(5)=1E+30 : GOTO 9000 9400 F1(4)=1E+30 : F1(5)=1E+30 : GOTO 9000 9410 B4=B2(I) : B5=B3(I) 9FUNCTIONAL -" 8090 RETURN 9000 M=0 : D7=D0+T1 : FOR L=1 TO 5 9020 IF F1(L)>D7 THEN 9040 9030 M=L : D7=F1(L) 9040 NEXT L 90 D9(9)=K1 : D9(10)=K2 9343 FOR I=1 TO 8 : FOR J=1 TO 8 : D9(I-1+8*(J-1)+11)=G(I,J) : NEXT J : NEXT I 9344 FOR I=75 TO 84 : D9(T S5$;" NOT ADJACENT TO A BASE." 7030 RETURN 7040 C5$="DOCKED" 7050 PRINT "---> DOCKING COMPLETED" 7060 E1=I7 : S3=I8 : T4=I299 S6=FNB(1) : S7=FNB(1) 9300 PRINT "PULLED TO QUADRANT";Q1;"-";Q2;", SECTOR";S6;"-";S7 9301 IF R6<>0 THEN PRINT "(IDLE PERIOOL- ";D$(L);" NOW OPERATIONAL." 9230 NEXT L 9240 IF M=0 THEN RETURN 9250 T1=T1-X6 9260 ON M GOTO 9280,9291,9340,9355,9475 420 IF (B4=Q1) AND (B5=Q2) THEN 9380 9430 F1(5)=D0+.5+3*RND(1) 9440 F1(4)=F1(5)-.3*I5*LOG(RND(1)) 9450 IF D4(9)>0 THEN 9000 50 X6=D7-D0 : D0=D7 9060 R4=R4-(R1+4*R2)*X6 9070 R5=R4/(R1+4*R2) 9080 IF R5>0 THEN 9120 9090 F9=2 9100 GOSUB 10000 9110 REI)=C1(I-74) : NEXT 9345 FOR I=85 TO 94 : D9(I)=C2(I-84) : NEXT 9346 FOR I=95 TO 99 : D9(I)=B2(I-94) : NEXT 9347 FOR I=100 9 : L1=J1 7070 RETURN 7100 PRINT "CAPTAIN, WE'RE ALREADY DOCKED!" 7110 RETURN 8001 J=0 : PRINT : FOR I=1 TO 12 8010 IF D4(D CANCELLED)" 9302 R6=0 9303 IF S4<>0 THEN 9320 9304 IF (D4(8)=0) AND (S3>0) THEN 9310 9305 PRINT "(SHIELDS NOT CURRENTLY US9280 X2=0 : Y2=0 : GOSUB 27000 9285 F1(1)=D0-.5*I5*LOG(RND(1)) 9286 IF G(Q1,Q2)=LQ THEN RETURN 9287 GOTO 9000 9291 IF R2=0 T9460 PRINT : PRINT " CAPTAIN, THE STARBASE IN";B4;"-";B5;"IS UNDER ATTACK-" 9462 PRINT " AND CAN ONLY RESIST UNTIL STARDATE"TURN 9120 IF (D4(5)=0) OR (C5$="DOCKED") THEN 9180 9130 IF (L1>=X6) OR (D4(5)<=L1) THEN 9160 9140 F9=3 : GOSUB 10000 9150 RETO 104 : D9(I)=B3(I-99) : NEXT 9348 D9(105)=B4 : D9(106)=B5 9349 S0=1 : F1(3)=D0-.3*I5*LOG(RND(1)) : GOTO 9000 9355 IF (R2=0I)<=0 THEN 8070 8020 IF J<>0 THEN 8060 8030 PRINT " DEVICE";SPC(12);"-REPAIR TIMES-" 8040 PRINT SPC(21);"IN FLIGHT DOCABLE.)" 9307 GOTO 9320 9310 GOSUB 26500 9315 S9=0 9320 GOSUB 18000 9325 F1(2)=D0+T1-1.5*(I5/R2)*LOG(RND(1)) 9326 GOTO 9000HEN 9330 9292 IF C5$="DOCKED" THEN 9325 9293 I=INT(RND(1)*R2)+1 9294 Y6=(C1(I)-Q1)^2+(C2(I)-Q2)^2 9295 IF Y6=0 THEN 9325 92;FNR(F1(5));"!!!" 9465 IF R6=0 THEN 9000 9466 INPUT " SHALL WE CANCEL IDLE PERIOD";B$ 9468 IF LEFT$(B$,1)="Y" THEN R6=0 946TURN 9160 L1=L1-X6 9170 IF D4(5)<=X6 THEN L1=J1 9180 R=X6 9190 IF C5$="DOCKED" THEN R=X6/D3 9200 FOR L=1 TO 12 9210 IF D4() OR (R3=0) THEN 9400 9360 FOR I=1 TO R3 : FOR J=1 TO R2 : IF (B2(I)=C1(J)) AND (B3(I)=C2(J)) THEN 9410 9370 NEXT J : NEXT I KED" : J=1 8060 PRINT " ";D$(I);TAB(23);FNS(D4(I));TAB(33);FNS(D3*D4(I)) 8070 NEXT I 8080 IF J=0 THEN PRINT " - ALL DEVICES  9330 F1(2)=1E+30 : GOTO 9000 9340 D9(1)=D0 : D9(2)=R1 : D9(3)=R2 : D9(4)=R3 : D9(5)=R4 : D9(6)=R5 9342 D9(7)=S1 : D9(8)=B1 : 9 GOTO 9000 9475 F1(5)=1E+30 : IF (R2=0) OR (R3=0) THEN 9000 9485 K=INT(G(B4,B5)/100) : IF G(B4,B5)-K*100<10 THEN 9000 9490 FN 10090 10080 PRINT "PROMOTES YOU....."; 10085 IF S8=1 THEN PRINT "TO NOVICE CLASS!" 10086 IF S8=2 THEN PRINT "TO SENIOR CLASF9 GOTO 10025,10135,10165,10190,10200,10205,10225,10240 10015 ON F9-8 GOTO 10250,10271,10285 10025 PRINT "YOU HAVE DESTROYED T10300 10240 PRINT "THE ";S5$;" HAS BEEN INCINERATED BY A SUPERNOVA." 10241 GOTO 10300 10250 PRINT "YOU HAVE BEEN CAPTURED BY 40 PRINT 9650 PRINT "--> STARFLEET COMMAND REPORTS THAT STARBASE IN QUADRANT";B4;"-";B5 9660 PRINT "HAS BEEN DESTROYED BY ENEUTED" 10145 A1=0 : GOSUB 23000 : RETURN 10150 PRINT " IMPRISONED FOR LIFE" 10165 PRINT "YOUR LIFE SUPPORT RESERVES HAVE RUN OR I=1 TO R2 : IF (C1(I)=B4) AND (C2(I)=B5) THEN 9520 9510 NEXT : GOTO 9000 9520 IF S2(B4,B5)=-1 THEN S2(B4,B5)=0 9530 IF S2(S!" 10087 IF S8=3 THEN PRINT "TO EXPERT CLASS!" 10088 PRINT " ***CONGRATULATIONS***" : GOTO 10110 10090 PRINT "PROMOTES YOUHE KLINGON INVASION FLEET" : PRINT 10030 PRINT " ***THE FEDERATION IS SAVED***" : G1=1 10035 IF (A1=0) OR (B1<>0) THEN 10THE ENEMY. IF YOU STILL HAD A STARBASE," 10255 PRINT "YOU WOULD HAVE BEEN REPATRIATED. SINCE YOU HAVE NO BASES, YOU WILL" 102MY COMMANDER !!" 9680 G(B4,B5)=G(B4,B5)-10 9690 IF R3<=1 THEN 9730 9700 FOR I=1 TO R3 : IF (B2(I)=B4) AND (B3(I)=B5) THEN 972OUT, AND" 10170 PRINT "YOU WILL SOON DIE!!!" 10172 PRINT 10175 PRINT "YOUR STARSHIP IS A DERELICT IN SPACE." 10180 GOTO 10B4,B5)>999 THEN S2(B4,B5)=S2(B4,B5)-10 9540 IF (B4<>Q1) OR (B5<>Q2) THEN 9630 9550 FOR I=1 TO K3 : K=K4(I) : L=K5(I) 9560 IF  TO 'COMMODORE EMERITUS'." 10100 PRINT : PRINT "NOW YOU CAN RETIRE !" 10110 GOSUB 23000 10120 RETURN 10135 PRINT "TIME HAS 110 10040 IF LEFT$(S5$,1)<>"E" THEN 10110 10045 IF 3*S1+35*N1+C4>=100 THEN 10110 10050 IF D0-J2<=6 THEN 10075 10060 R8=.1*S860 PRINT "BE MERCILESSLY TORTURED !!" 10266 GOTO 10300 10271 PRINT : PRINT "THE ";S5$;" IS NOW AN EXPANDING CLOUD" 10272 PRI0 9710 NEXT 9720 B2(I)=B2(R3) : B3(I)=B3(R3) 9730 R3=R3-1 9740 GOTO 9000 10000 PRINT : PRINT : PRINT : INPUT "CON FLICT300 10190 PRINT "YOUR ENERGY SUPPLY IS EXHAUSTED." : GOTO 10172 10200 PRINT "THE ";S5$;" HAS BEEN DESTROYED IN BATTLE." 10201Q$(K,L)="C" THEN 9570 9565 NEXT 9570 IF K6(I)<25+50*RND(1) THEN 9000 9580 Q$(B6,B7)="." : B6=0 : B7=0 9590 GOSUB 17000 960RUN OUT - THE FEDERATION HAS BEEN CONQUERED AND YOUR CRAFT" 10136 PRINT "IS NOW ENEMY PROPERTY... YOU WILL STAND TRIAL AS A WAR*(S8+1)+.1 10065 IF (K1+K2)/(D0-J2)0) THEN 9680 96-CRIMINAL..." 10137 PRINT "ON THE BASIS OF YOUR RECORD YOU WILL BE"; 10139 IF R1*3>I1 THEN 10150 10140 PRINT " SUMMARILY EXEC 10310 IF LEFT$(S5$,1)="F" THEN S5$="" 10315 IF LEFT$(S5$,1)="E" THEN S5$="FAERIE QUEENE" 10316 A1=0 10320 IF R1=0 THEN 10355 20 11200 PRINT "FAILS." : NEXT L 11210 F9=11 : GOSUB 10000 : RETURN 11220 FOR L=1 TO 5 : I=B6+INT(3*RND(1))-1 11230 IF (I<1) X=10*SQR((B2(L)-Q1)^2+(B3(L)-Q2)^2) 11090 IF X>D1 THEN 11110 11100 D1=X : K=L 11110 NEXT L 11120 Q1=B2(K) : Q2=B3(K) : GOSU 12210 PRINT "*** CAPTAIN, THE VESSEL AT SECTOR"; 12215 PRINT X8;"-";Y8 12220 PRINT " HAS JUST LOST ITS FIREPOWER !!!" 1222 PRINT "SINCE YOU TOOK THE LAST KLINGON WITH YOU, YOU ARE" 10360 PRINT "A MARTYR AND A HERO." : G1=1 : A1=0 10390 GOSUB 23000 Y8=K5(N) 12080 IF H2>4.99 THEN 12100 12090 PRINT "MINOR HIT ON " : GOTO 12110 12100 PRINT FNR(H2);"UNIT HIT ON "; 12110 M$=Q 10325 G3=R4/I3 : B8=(R1+2*R2)/(I1+2*I4) 10326 A3=G3/B8 10327 IF A3<1+.5+RND(1) THEN 10345 10330 PRINT "AS A RESULT OF YOUR  OR (I>10) THEN 11260 11235 J=B7+INT(3*RND(1))-1 11240 IF (J<1) OR (J>10) THEN 11260 11250 IF Q$(I,J)="." THEN 11270 11260 NB 18000 11130 Q$(S6,S7)="." 11135 PRINT 11140 PRINT "STARBASE IN QUADRANT";Q1;"-";Q2;"RESPONDS --"; 11145 PRINT " ";S5$;" 5 PRINT 12230 K6(N)=-K6(N) 12240 N=N+1 12250 NEXT K 12260 RETURN 13001 J3=0 13010 IF D4(7)<>0 THEN 13250 13020 IF E1<=75: RETURN 11001 IF C5$<>"DOCKED" THEN 11020 11010 PRINT "--> CAPTAIN, WE'RE ALREAD Y DOCKED!" 11015 RETURN 11020 IF D4(9)=0 T$(X8,Y8) 12120 IF M$="K" THEN PRINT "KLINGON AT"; 12125 IF M$="C" THEN PRINT "COMMANDER AT"; 12130 PRINT X8;"-";Y8 12140 IFACTIONS, A TREATY WITH THE KLINGON" 10331 PRINT "EMPIRE HAS BEEN SIGNED. THE TERMS OF THE TREATY ARE" 10332 IF A3<3*RND(1) THEXT L : PRINT "FAILS." : GOTO 11210 11270 PRINT "SUCCEEDS." : S6=I : S7=J : Q$(I,J)=LEFT$(S5$,1) 11280 GOSUB 7000 : PRINT "CAPDEMATERIALIZES." 11146 P2=(1-.98^D1)^.333333 11150 FOR L=1 TO 3 11155 IF L=1 THEN PRINT "1ST "; 11160 IF L=2 THEN PRINT "2ND THEN 13070 13030 INPUT "ENTER COURSE....";D2 13040 IF D2<.01ORD2>12 THEN GOSUB 40000ELSE13048 13041 RETURN 13048 INPUT "DISHEN 11030 11025 PRINT "SUBSPACE RADIO DAMAGED...CANNOT TRANSMIT." : RETURN 11030 IF R3<>0 THEN 11050 11040 PRINT "CAPTAIN, NO K6(N)<>0 THEN 12180 12150 A5=X8 : A6=Y8 : T2$=Q$(X8,Y8) : GOSUB 6000 12160 IF R1<>0 THEN 12250 12170 F9=1 : GOSUB 10000 : GOEN 10340 10335 PRINT "FAVORABLE TO THE FEDERATION." : PRINT 10336 PRINT "CONGRATULATIONS." : GOTO 10350 10340 PRINT "HIGHLY TAIN, WE MADE IT!" : RETURN 12001 P4=2 : L5=K3 : N=1 12010 FOR K=1 TO L5 12020 IF H3(K)=0 THEN 12240 12030 D6=.9+.01*RND(1)  "; 11170 IF L=3 THEN PRINT "3RD "; 11180 PRINT "ATTEMPT TO RE-MATERIALIZE THE ";S5$;". . . . ."; 11190 IF RND(1)>P2 THEN 112TANCE ";D1 : IF D1>0 THEN 13050 13049 RETURN 13050 P3=50+250*D1 13060 IF P3(.4+.4*RND(1))*P3 THEN 12240 12205 PRINT UNFAVORABLE TO THE FEDERATION." : GOTO 10350 10345 PRINT "THE FEDERATION WILL BE DESTROYED!" 10350 GOSUB 23000 : RETURN 10355: H2=H3(K)*D6^K7(N) 12040 P3=K6(N) 12050 P=ABS(P3) : IF P4*H2

LQ THEN GOSUB 1000 15162 IF A2<>0 THE0 PRINT "IMPULSE ENGINES DAMAGED." : RETURN 14001 N$=" #" 14005 PRINT 14010 IF D4(2)<>0 THEN 14180 14020 PRINT "L.R. SCA"C") THEN 15145 15129 PRINT : PRINT S5$;" BLOCKED BY "; 15130 IF Q$(X1,Y1)="*" THEN PRINT "STAR AT"; 15131 IF Q$(X1,Y1)="B" E1>75 THEN 13120 13110 PRINT "QUADRANT. THEY ARE USELESS NOW.'" : RETURN 13120 PRINT "QUADRANT. WE CAN GO A MAXIMUM OF "; 1 (X1>10) THEN 15150 15106 IF (Y1<1) OR (Y1>10) THEN 15150 15108 IF Q$(X1,Y1)="O" THEN 15111 15109 IF Q$(X1,Y1)<>"." THEN 1512RECORDED." 14170 RETURN 14180 PRINT "LONG RANGE SENSORS DAMAGED." : RETURN 15001 A5=(15-D2)*.523599 : D4=-SIN(A5) : D6=COS(A5N RETURN 15165 X7=10*(Q1-1)+S6 : Y7=10*(Q2-1)+S7 15170 X1=INT(X7+10*D1*B8*D4+.5) 15175 Y1=INT(Y7+10*D1*B8*D6+.5) : L6=0 1518N FOR QUADRANT";Q1;"-";Q2 : PRINT 14030 I=Q1-1 : J=Q1+1 : K=Q2-1 : L=Q2+1 14040 FOR M=I TO J : FOR N=K TO L 14050 IF (M<=0)THEN PRINT "STARBASE AT"; 15132 PRINT " SECTOR";X1;"-";Y1;"...." 15133 PRINT "EMERGENCY STOP REQUIRED";FNR(K);"UNITS OF ENERGY3130 PRINT FNR(4E-03*(E1-50)-.05);"QUADRANTS.'" : RETURN 13140 T1=D1/.4 13150 IF T1"O" THEN 15) : B8=ABS(D4) 15030 IF ABS(D6)>B8 THEN B8=ABS(D6) 15040 D4=D4/B8 : D6=D6/B8 : T5=0 : T6=0 15050 IF D0+T10 THEN 15195 15190 X1=-X1+1 : L5=1 15195 IF Y1>0 THEN 15210 15200 Y1=-Y1+1 : L5=1 15210 IF X1<=80 THEN 1 OR (M>8) THEN 14110 14060 IF (N<=0) OR (N>8) THEN 14110 14070 IF D4(11)=0 THEN S2(M,N)=1 14080 IF G(M,N)>=LQ THEN PRINT " ." 15135 E1=E1-K 15137 S6=INT(X7-D4+.5) : F4=S6 : S7=INT(Y7-D6+.5) : F5=S7 15140 IF E1>0 THEN 15320 15141 F9=4 : GOSUB 10000D UNDER IMPULSE IS ONLY 4 SECTORS PER STARDATE" 13170 INPUT "-- AUTHORIZE ";B$ 13190 IF LEFT$(B$,1)<>"Y" THEN RETURN 13200 GO320 15120 T2=FNA(1) : T3=FNA(1) 15122 Q1=FNA(1) : Q2=FNA(1) : S6=FNB(1) : S7=FNB(1) : PRINT 15123 PRINT "*** SPACE PORTAL EN5060 T5=1 : C5$="RED" : D1=D1*(F1(2)-D0)/T1+.1 15070 T1=F1(2)-D0+1E-05 15080 Q$(S6,S7)="." : X7=S6 : Y7=S7 : H9=INT(10*D1*B8+.5220 15215 X1=161-X1 : L5=1 15220 IF Y1<=80 THEN 15230 15225 Y1=161-Y1 : L5=1 15230 IF L5=0 THEN 15240 15235 L6=1 : GOTO 15***";" "; 14090 IF G(M,N)0 THEN RETURN 13220 E1=E1-P3 13230 IF E1>0 THEN RETURN 13240 F9=4 : GOSUB 10000 : RETURN 1325TERED ***" : GOTO 15307 15125 T6=1 : K=50*D1/T1+1E-03 : D1=.1*SQR((S6-X1)^2+(S7-Y1)^2) 15127 IF (Q$(X1,Y1)="K") OR (Q$(X1,Y1)= 180 15240 IF L6=0 THEN 15270 15260 PRINT : PRINT "*** MESSAGE FROM STARFLEET COMMAND.....STARDATE";FNR(DO) 15261 PRINT "PERMGOTO 16240,16135,16135 16130 IF Q$(L,M)="." THEN 16195 16135 IF (Q=B) OR (P=0) THEN 16165 16140 M=S+B 16145 IF (M>0) AND (M<NT(((F+200*RND(1))/150)-5) 16071 IF N=0 THEN RETURN 16072 IF (N>0) AND (K7(K)<1.5) THEN RETURN 16075 IF ABS(N)>S8 THEN N=SGN(IF C5$<>"DOCKED" THEN GOSUB 17000 16300 GOSUB 28000 16310 G(Q1,Q2)=G(Q1,Q2)-100 : G(I,J)=G(I,J)+100 16320 FOR L3=1 TO R2 16320 Q$(S6,S7)=LEFT$(S5$,1) 15321 IF L6=1 THEN RETURN 15325 IF K3=0 THEN 15390 15330 FOR L=1 TO K3 15340 F3=SQR((F4-K4(L))^2+(F N<0 THEN PRINT "*** COMMANDER RETREATS TO"; 16230 PRINT " SECTOR";R;"-";S : GOSUB 28000 : RETURN 16240 I=Q1+INT((L+9)/10)-1 ISSION TO EXIT GALAXY - DENIED -" 15265 PRINT "'ENGINES SHUT DOWN AT "; 15266 Z1=INT((X1+9)/10) : Z2=INT((Y1+9)/10) 15267 PRI=10) THEN 16155 16150 ON SGN(N)+2 GOTO 16240,16160,16160 16155 IF Q$(L,M)="." THEN 16195 16160 B=-B 16165 IF (P=A) OR (Q=0) N)*ABS(S8) 16080 T=ABS(N) : P=S6-C : Q=S7-D 16085 IF 2*ABS(P)30 IF (C1(L3)=Q1) AND (C2(L3)=Q2) THEN 16340 16335 NEXT L3 16340 C1(L3)=I : C2(L3)=J : RETURN 16350 A=-A : B=-B : GOTO 16200 F5-K5(L))^2) 15350 K8(L)=.5*(K7(L)+F3) 15360 K7(L)=F3 15370 NEXT L 15380 GOSUB 28000 15390 GOSUB 17000 : RETURN 16001 A=1 : J=Q2+INT((M+9)/10)-1 16245 IF (I<1) OR (I>8) THEN 16350 16250 IF (J<1) OR (J>8) THEN 16350 16260 FOR L3=1 TO R2 16265 IF (NT "QUADRANT";Z1;"-";Z2;", "; 15268 PRINT "SECTOR";X1-10*(Z1-1);"-";Y1-10*(Z2-1);"'" 15270 IF T5<>0 THEN RETURN 15295 Q1=INTTHEN 16200 16170 L=R+A 16175 IF (L>0) AND (L<=10) THEN 16185 16180 ON SGN(N)+2 GOTO 16240,16190,16190 16185 IF Q$(L,M)="." T0 THEN P=SGN(P*N) 16100 IF Q<>0 THEN Q=SGN(Q*N) 16105 R=C : S=D : Q$(C,D)="." 16110 FOR L2=1 TO T : L=R+P : M=S+Q 16115 IF ( 17000 C5$="GREEN" : IF E199 THEN C5$="RED" 17030 RETURN 18000 J4=1 : B6=0 : B7=0 : K: B=1 16010 FOR K=1 TO K3 16020 C=K4(K) : D=K5(K) 16030 IF Q$(C,D)="C" THEN 16050 16040 NEXT K 16050 N=0 : F=K6(K)+100*K3 C1(L3)=I) AND (C2(L3)=J) THEN 16350 16270 NEXT L3 : PRINT "*** COMMANDER ESCAPES TO "; 16275 PRINT "QUADRANT";I;"-";J;" (AND ((X1+9)/10) : Q2=INT((Y1+9)/10) 15296 S6=X1-10*(Q1-1) : S7=Y1-10*(Q2-1) 15307 PRINT : GOTO 15315 15310 PRINT CHR$(12) : PRINHEN 16195 16190 A=-A : GOTO 16200 16195 R=L : S=M 16200 NEXT L2 16205 Q$(R,S)="C" 16210 IF (R=C) AND (S=D) THEN RETURN 162L>0) AND (L<=10) THEN 16120 16117 ON SGN(N)+2 GOTO 16240,16165,16165 16120 IF (M>0) AND (M<=10) THEN 16130 16125 ON SGN(N)+2 3=0 : C3=0 : U=G(Q1,Q2) : IF U>999 THEN 18290 18030 K3=INT(.01*U) : FOR A=1 TO 10 : FOR B=1 TO 10 : Q$(A,B)="." : NEXT B : NEXT16060 IF F>LQ THEN N=INT(RND(1)*K7(K)+1) 16065 IF ((C5$="DOCKED") AND ((B4<>Q1) OR (B5<>Q2))) THEN N=-S8 16070 IF N=0 THEN N=IREGAINS STRENGTH)" 16280 K4(K)=K4(K3) : K5(K)=K5(K3) : K7(K)=K7(K3) : K8(K)=K8(K3) 16285 K6(K)=K6(K3) : K3=K3-1 : C3=0 16290 T "ENTERING THE QUADRANT (";Q1;"-";Q2;")" 15315 Q$(S6,S7)=LEFT$(S5$,1) : GOSUB 18000 : GOSUB 29002 : GOSUB 14001 : RETURN 15315 K4(K)=R : K5(K)=S : K7(K)=SQR((S6-R)^2+(S7-S)^2) 16220 K8(K)=K7(K) : IF N>0 THEN PRINT "*** COMMANDER ADVANCES TO"; 16225 I  A 18040 Q$(S6,S7)=LEFT$(S5$,1) : U=G(Q1,Q2) : IF U<100 THEN 18150 18050 U=U-100*K3 : FOR A=1 TO K3 18060 S=FNB(1) : K4(A)=S GOSUB 27000 : RETURN 19085 T7=T7+1 : H4(T7,1)=J5 : H4(T7,2)=J6 : G(Q1,Q2)=G(Q1,Q2)-1 19090 S1=S1+1 : PRINT "*** STAR AT SECTOR*** STAR AT SECTOR";A5;"-";A6;"NOVAS." 19020 G(Q1,Q2)=G(Q1,Q2)-1 : S1=S1+1 19025 B9=1 : T6=1 : T7=1 : K=0 : X1=0 : Y1=0 19030-M>B>2.:P,.:ʘ'B  FOR A=1 TO U 18210 S=FNB(1) : T=FNB(1) : IF Q$(S,T)<>"." THEN 18210 18220 Q$(S,T)="*" : NEXT A 18230 IF (T2<>Q1) OR (T3<>Q2)9160 D6=LQ-S3 : E1=E1-D6 : GOSUB 17000 : S3=0 : S4=0 19165 PRINT "*** STARSHIP SHIELDS KNOCKED OUT." : D4(8)=5E-03*D5*RND(1))*D: T=FNB(1) : K5(A)=T 18070 IF Q$(S,T)<>"." THEN 18060 18080 Q$(S,T)="K" : K7(A)=SQR((S6-S)^2+(S7-T)^2) : K8(A)=K7(A) 18090 K6";J5;"-";J6;"NOVAS." 19100 GOTO 19255 19105 IF Q$(J5,J6)<>"B" THEN 19140 19110 G(Q1,Q2)=G(Q1,Q2)-10 : FOR V=1 TO R3 19115 IF H4(B9,1)=A5 : H4(B9,2)=A6 19035 FOR M=B9 TO T6 : FOR Q=1 TO 3 : FOR J=1 TO 3 19040 IF J*Q=4 THEN 19260 19045 J5=H4(M,1)+Q-2 -M2.go9"G>(b͵#:.N`*$:P,6͝U:.ͼbg'QI:vT 2GC :'’͊VͶͧ;!͹4C*G+V+^+ THEN RETURN 18240 S=FNB(1) : T=FNB(1) : IF Q$(S,T)<>"." THEN 18240 18250 Q$(S,T)="O" : PRINT 18260 PRINT "*** SHORT-RANGE S6 19170 IF E1>0 THEN 19185 19175 F9=7 : GOSUB 10000 : RETURN 19180 S3=S3-LQ 19185 X1=X1+S6-H4(M,1) : Y1=Y1+S7-H4(M,2) : K=K+(A)=RND(1)*150+325 : NEXT A 18100 IF R2=0 THEN 18140 18110 FOR A=1 TO R2 18115 IF (C1(A)=Q1) AND (C2(A)=Q2) THEN 18130 18120 (B2(V)<>Q1) OR (B3(V)<>Q2) THEN 19125 19120 B2(V)=B2(R3) : B3(V)=B3(R3) 19125 NEXT V : R3=R3-1 : B6=0 : B7=0 : B1=B1+1 : GOSU: J6=H4(M,2)+J-2 19050 IF (J5<1) OR (J5>10) THEN 19260 19055 IF (J6<1) OR (J6>10) THEN 19260 19060 IF Q$(J5,J6)="." THEN 19268@:'¾͊VͶͧ;!͹2>2U2>2aW!NENSORS DETECT A SPACE-WARP IN THIS QUADRANT" 18280 RETURN 18290 FOR A=1 TO 10 : FOR B=1 TO 10 : Q$(A,B)="." : NEXT B : NEXT A 1 : GOTO 19260 19190 IF Q$(J5,J6)<>"C" THEN 19250 19195 FOR V=1 TO K3 19200 IF (K4(V)=J5) AND (K5(V)=J6) THEN 19210 19205 NE NEXT A : GOTO 18140 18130 Q$(S,T)="C" : K6(K3)=LQ+400*RND(1) : C3=1 18140 GOSUB 28000 18150 IF U<10 THEN 18190 18160 U=U-10B 17000 19130 PRINT "*** STARBASE AT SECTOR";J5;"-";J6;"DESTROYED." 19135 GOTO 19255 19140 IF (S6<>J5) OR (S7<>J6) THEN 191900 19065 IF Q$(J5,J6)="O" THEN 19260 19070 IF Q$(J5,J6)<>"*" THEN 19105 19075 IF RND(1)>=.1 THEN 19085 19080 X2=J5 : Y2=J6 : #F ͨ ! Cw+.:'X͊VͶͧ;> eV!+~4C]PʬØ'!ͨ w+{:P b*"Mʹ 18300 Q$(S6,S7)=LEFT$(S5$,1) : RETURN 19002 IF RND(1)>.1 THEN 19015 19010 GOSUB 27000 : RETURN 19015 Q$(A5,A6)="." : PRINT "XT V 19210 K6(V)=K6(V)-800 : IF K6(V)<=0 THEN 19250 19215 N5=J5+J5-H4(M,1) : N6=J6+J6-H4(M,2) 19220 PRINT "*** COMMANDER AT S 18170 B6=FNB(1) : B7=FNB(1) : IF Q$(B6,B7)<>"." THEN 18170 18180 Q$(B6,B7)="B" 18190 GOSUB 17000 : IF U<1 THEN RETURN 18200 19145 PRINT "*** STARSHIP BUFFETED BY NOVA." : IF S4<>0 THEN 19155 19150 E1=E1-LQ : GOTO 19170 19155 IF S3>=LQ THEN 19180 1 "]##>2a2*"pW:P,ʛ"͝U2K:o:P a{ 2PA[ 0:<7=:PG!o~6xQ!!ͬ*j}2¹ !=Pͫ>!p.Ptp!"*l}2m  ! =! ͚B! >5BI ! =! ͚BIOU PLAYED WELL AND WE HAVE TIED. I WAS LUCKY.',1X,'THANK YOU FOR A FINE GAME.')(/,1X,'DO YOU WISH TO PLAY AGAIN? ')ùW>2!X,'I HAVE NO MOVE AND MUST PASS.')" " > ! P!" * )++* " !* s#r* )++* " !* s#r* #>>4!* s#r!ln('+','WHAT IS YOUR MOVE ? ')('+','EXAMPLE - UPPER LEFT CORNER IS A1 ')(A1,I1)('+',A1)('+','MOVE INVALID. PLEASE RE-ENTE! >)BI1!*j#"jdj!ͬÆ  ! =! ͚BI`! ͗B\! >/BI ! =! ͚B! >5BI!\=P^4!~ 32P:>//ͨUC<!6 A B C D E F G H YES NO Y N "*""*}=25  ! =! ͚BI! =P>"! ͗B! >)BI ! =! ͚B! >5BI*"*#""!"!"*)"*!A*"!*s#r*}2*+}!2ʉ*)"*!A*"!" !" * )" * !A* * ~#fo}2 !" !" * )++" * ~#fo" * * ~#fo" * * " * * R. ')pmd('+','I SEE NO MOVE FOR YOU, SO I WILL MOVE IF I CAN')j1mlnڐj1mla('+','MY !@2† !\=P!@2† *l}2‚ !c!=Pͫ>!p.Pp!c**{ozg}=Ɓ2 W8@>2W;@>,!5:<2xa5-MgW͵#*"ͼb͵#*"ͼb͵#*"Ø':=@Q G'!"*)""*/~#fo*{ozg}2*~#fo*{ozg}!2 *#*l{z  ! =! ͚BId*s#r*}2*+}!2*)"*!A*"!d*s#r*#> > *#> >!"`!"t" * )" * !A* * ~#fovA* @2 «!" * #" * A* " * * A* " * )" * !A* MOVE IS : ',A1,I1)am('+','DO YOU HAVE A MOVE? ').!('+','CONGRATULATIONS, YOU PLAYED WELL AND HAVE WON.',1X,'THANK  ! =! ͚BI` **{ozg}2K  ! =! ͚BI`  ! =y! ͚BI! ͚BI`! ͗B\! >/B&y:=#Q'#y Eѯ{~0_:lk<͂#n!~wMAڊ7U>'b(//////////////5 *j#"j!=Pͫ>!p.P1!dj!ͬ !vA!.P!;!"!"t*d#"jdj!ͬÆ  ! =! ͚B!"b!"v! ͚BI`! ͗B\! >/BI!vA!.P!\=P!@23 !\=P!@23 f!;*d"jdj* ~#fo}2 «* )" * !A* * ~#fo}2 «* )" * !A* * ~#fovA* @YOU FOR A FINE GAME.')('+','YOU PLAYED WELL; HOWEVER, YOUR LUCK WAS BAD AND',1X,'I HAVE WON. THANK YOU FOR A FINE GAME.')('+','YI!\=P!@2!\=P!@2q@  OTHELLO RELcjklBIO ASC (1//////////,1X,'"OTHELLO" - DO YOU WISH TO GO FIRST ?',/,1X,'YOU ARE "X" IF YOU ARE FIRST. ')2y(A3)!:d"y' 2j1mI*j}2¹ M!"*l}2. c!͞+*a)"~#fo? "*/~#fo+" ! =w! ͚B 2 ?* +}2 0* ~#fo#* s#r!" * ~#fo)++* " ~#fo* * s#r* ~#fo)++* " ~#fo#* s#r* ~#fo)" ++*~#fo)++*~#fo"!"*~#fo)"*!<A**~#fo")++"*~#fo"**~#fo" !" * #" *A*"A*A"*))]=P*.P*#> >G*#> >A!"*+"*###"!S=!K͚B*)"*!K>)B!"Pool Overflow; Out of MemorLiteral String is too largInvalid Data List Element in I/Unbalanced DO NesIdentifier Too LonIlleB,NHD,NAH,OC) POTHELLO,=OTHELLO F-?Command error?FILE NOA BÓ12+>'=3!=ª3!>3_!' 3 3<3~=w4{ 4> 2~3 47ȷ ~#fo" !<A* * " * * s#r* #>>* }2 * ~#fo)++* " * * s#r* ~#fo)++* " * * * * A*"*)"*!A**~#fovA*Ͱ?2‚*)"*!A**"*=Pͫ>>*s#r*))"*!(A*A"*!K>/B*#> >I*#> >77W1D7R7>"V"X`i"Z!*Zs#r!"\!gal OperatoMismatched ParenthesiConsecutive OperatorImproper Subscript SyntaIllegal Integer QuantitIllegal Hollerith Constu C D E F G H NTER FILE~('+','BOARD POSITION AFTER ',I2,' MOVES',' YOU HAVE ',I2,' PIECES, I HAVE ',I2,/)('+',' 1 2 3 4!A4ͷ-@@24> n1!G4ͷ-͛1DISK FULLIllegal Statement NumbeStatement Unrecognizable or MisspelleIllegal Statement Cos#r* #> >* #> >* ~#fo}=2 W!=P* @2 W !X͚BINCORNJ(O - X I1,I2)=SIGN*OC *#*{zw'X22+:'K/:' 2> 2>2*.)0)'20)'O2:'"^*\)"`*^!A*`*V~#fovA*X@2b*Z~#fo#*Zs#r*^#> >*\#> >|Q0M’02'Q0I02'Q0ZctioBackwards DO referencIllegal Statement Function NamIllegal Character for SyntaStatement is out of SequencMissing Intege 5 6 7 8')#(_/( >('+',A1,2X,8(A1,1X))"["]`i"_*]~#fo*_~#fo{ozg"!=P!.P*[c!vA!@!.PmpletioIllegal DO NestinIllegal Data ConstanMissing NamIllegal Procedure NamInvalid DATA Constant or Repeat FactoIncorrect RETURN END K/:'X2>]3*,(.('2.('O2|}2ƀ)`i-3> 2> 2> 2:'K/:'!P*~#fo)++"*~#fo"**~#fo"*)"*!A**"*=Pͫ>>*s#r*r QuantitInvalid Logical OperatoIllegal Item in Type DeclaratioPremature End Of File on input devicIllegal Mixed Mode Operat*[cI!M=!K͚B!K>)BIQ!O=p!K͚BI!"!"*)"*!A**[~#fo##"*))"*!( Number of DATA ConstantIncorrect Integer ConstanInvalid Statement NumbeNot a Variable NamIllegal Logical Form OperatoData  147 FORMAT(/////////////////////////) CALL CLEAR 100 RETURN END SUBROUTINE HANDI(w0)!'>!4 =-3!.(>!'-3:'K/:'m1*,(|=R3#",(-(w:'<ʀ14*0+|̥3#"0+1+ ioFunction Call with No ParameterStack OverfloIllegal Statement Following Logical IƀDuplicate Statement LabeIllegal DO Term<"<͠b >͊V!?͹2A͚ba>G>[>:*[><"͊V:Aʑ>!?͹͚bڑ>‹><"<*] <͏V͠bt>͊V:G>!?͹cV:*[<**]*8@<*]]|>+L<>-eVBO;8@:>/eV=•<>[eV:O/_!cV~c;# }<>]eVü_:P.~B.~BïB*~B2o~B`iɯog2G:'BC:'BC!x# C~#CCment Number UsagNo Path to this StatemenMissing Do TerminatioCode Output in BLOCK DATUndefined Labels Have OccurreRETURN in~2+V+^"]:<@>2b:*]*p*2.:* "V+^+8@:a*@*7. s#r#=@:!.=EA=~&AinatioBlock Name = Procedure NamArray Name MisusCOMMON Name UsagWrong Number of SubscriptArray Multiply EQUIVALENCEd Within͚b>><"<:a>cV*]:'>ͬ;>:̬;ļ;͠bҤ>>2*d|>͏V>%eV;!?͹*|?͏V>?eV;!?͹2* eV+~eV:G+~c;®<<>/eV>LeV:O!~eV+ <:XHҏV͢CyډC>͢CCMCBMCy :GW>͢C!FMC+—C a Main PrograSTATUS Error on REAInvalid Operand UsagFunction with no ParameteHex Constant OverfloDivision by ZerArray NaG*AGEA!%x;ATADA++TA78@"p"]V+^%s#r*ͅA"̈́A"̈́A"̈́A"ÿ́A"{^#V#>!>!>&2E*A a GrouMultiple EQUIVALENCE of COMMOCOMMON Base LowereNon-COMMON Variable in BLOCK DATEmpty List for Unformatted WRITNon-InbC:b@?:C?* 8@bCbC*Y|ʿ LM? Program Unit Length Bytes Data Area Length Bytes Subroutine==*|9=:QL=:F=VL=XE 2G͚b===œ=:*]| :w=bC:'=͊VͶͧ;cV*:äD͠bS===W>ʲC_x¬CGxGL      me ExpecteIllegal Argument to ENCODE/DECODcV:'ˆ;|c;}c;G:'Ÿ;xz;xz;0:eVeVÓ;)))z; Ž;/B0G:E=AAx=ʋA=ʔA/BxʑAʎA/B2o:2>s!3 B>sNO*͒ B2:EVb͍U2P2o!B"ʹ:E2teger ExpressioOperand Mode Not Compatible with OperatoMixing of Operand Modes Not AlloweMissing Integer VariablMissing Stats Referenced: Variables: COMMON Length Labels: Warning(s) Issued Fatal Error(s) Detected :a=*]¼;<2A*<2G:a͟!l:Gw#¶=:a*]|:=bC͊V!]?͹* $>:a$>*]|$>       `Ñ;*O;>'eV*O;>"ò;<>N#F# ;<33;O=;;y;7yz;;O;> eV>(eV;>)eVW:P(_Æ ! z'D:OBT !N#F B :P.ʎB*B!~B+nB2ÊB)~2#~2>s !ement Number on FORMAZero Repeat FactoZero Format ValuFormat Nest Too DeeStatement Number not FORMAT AssociateInvalid State*p8@"<8@>+eVO;"*#|+*͒ ~2G~2+~O2~82~2a+V+^"]+V+^+"p͘ !w+‹@y°@*]"+    B>B>B>gBQIGG:=IG:=tFIF:=ʿF+!"*!"$+**)++"+*~#fo"+*+*~#fo"+!"+!"&+!"+*&+)"+*+!A*+"+"(+*+*~#fo*(+s#r*+#> fo *+s#rm0**)++*~#fo"+!"+**)"+*+!<A*+*~#fo"+)++"+*~#fo"+*+*~#fo"+!"+*+#"+*+5!"h+!"+*+#"+*h+)++"+*~#fo*+A*v+"z+*+*~#fo*+A*x+"|+*z+)"+*|+!A*+^~#fo}2*6*z2+ʎ,!"+*+}2**++++}!*2+,!"+*+}2**+}!*2+,!"+*++++}A*+*~#fovA*Ͱ?2*€3**+)"+)~#fo"l+*+v)~#fo"n+)"+*l+!A*+*~#fo}2*ʀ3!Z"$+F=}E2xvE*B|LE͒ kEM>#]E###|+++kE}/+B ]E>JG=*6E!~E=²Ex²E+²E:©E>eB>0*&+#> >0!"*+!"+*+)"+)~#fo",+*+*~#fo".+**)++"+*"(+*+*~#fo*.+{ozg}2**(+~#fo*,+{A*+"+*+*+A*+"+*+)"+*+!A*+*~#fovA*@2*.*+#"+*+A*+"+*+*+A*+"+*+)"+)"+*|+!A*+^~#fo}2*6*z+)"+*|+!A*+^~#fovA*@2* 5*h+#>>5*x+#> >4*v+#>2**+}!*2+(-!"+*+)"+6*~#fo" +*+>*~#fo" +* +)"+* +!A*+*~#fo}2*ʘ-**)+*+)"+*+!A*+^~#fovA*@2*3**)++*"+~#fo*+s#r!"+*=Pͫ>!B+.Pp+B+!tc*p+}=2*>.B4C2>gÝE:GT 2G+~Ex==QI=**¬*IF=d((<(=:>+@+(+=FtB+<(=Fx=>=B>!F>ozg}!*2+ž1*+"*+*+#>>1*"2+*"4+*"8+*":+*"<+0+***=Pͫ>!B+.P*"F+*"P+*"R+F+B+!+*+!A*+*~#fovA*@2*/*+)"+*+!A*+*~#fovA*Ͱ?2*]0S/*+*+{ozg" +*+* >4*"+*"+*"++*!t"*~+}2*6!"v+*v+)F*"+~#fo}2**+~#fo++}!*2+»6*v+)+*"+~#fo*+s#r*+}2**+++}!*2+.*+}2**+++}!*2+.**#"***)++*#4**)++*"+~#fo8*+s#r9!"r+!"t+*r+)"+*t+!A*+"+*+!A*+"(+*t+!A*+^~#fo*(+s#r*t+#H*p*$'*T 2~+@+*G: ""> !P!"*!*s#r*~#fo}2*e:!"***)++"+*~#fo"+*+*~#fo""*>+}2*62**)++*"+~#fod*+s#r9!"+!"&+!"+*&+)"+*+!A*+"+^"(+*+~#fo*(+s#r*+#> +{ozg""+* +)"+*"+!A*+*~#fo}2*]0**)++*"+~#fo*+s#rm0*+#*+{z.**#*~#fo{zn*"+~#fo}2**+~#fo++}!*2+»66*v+#*~+{z=6**)++*"+~#foB*+s#r*+#*>+{z92*++}"+~#fo<*+s#r*+}?2**++++}=Ɓ!*2+.*+}?2**++++}=Ɓ!*2+.**)++*"+~#> >,4*r+#> >&4!"v+!"x+*v+)"+*x+!A*+^~#fo}2*5*v+)"+*x+!A*+^~#fovA*@2*+*+}2**++++}!*2+˜-*+}2**++++}!*2+˜-*++++}2**++++}!*>E2*&+#> >?2*=Pͫ>!B+.P*"\+*"^+Z+(!d(**+}2*3!"+**+)"+)~#fo"h+*+F)~#fo"j+*h+)"+*j+!  2*L8!"&+*&+)"+)~#fo"+*+*~#fo"+*+*+{ozg}2**+*+{ozg}!*2+8*+)"+*+!A*""=*&==~#fo"$=*"=)"&=*$=!A*&=*="(=!==P* =͗@>*(=s#r* =#*=~#fo{zn==~@2:x<:!<͚BI:!<͗B:!<>/BI!*k:":!:=P*:@2:>":~7w?##wy7O*wY*yY"yY"wYɃ\>>B>>B>>B>2RYQ$Q~#fo"2[Y2\YA*+"+*r+!A*+~#fovA*@2*9**)++*"+~#fo*+s#r*r+#*>+{zm9*&+#>>O8**#*~#fo{zW#~OAO͈A@^PmP>Oö?O@> 2X!PA"X!US"X!E "X`@*;X6 LX*;X6 TWX~#V@!X ~=X#e@O@> 2X!ST"X!+*~#fovA*Ͱ?2*8!"r+*+)"+*+!A*+"+*r+!A*+~#fovA*@2*8**)++*"+~#fo _~ _!wY=P>J>(>)WfPX>TP!{Y6 Bg>P|A>">ak=P>A>mP^Pʹ>mP>B>A:!<͚BI:!<͗B*m:!<>)BI*m:~#fo}=2:*m:~#fo+}!:2: <*g:"::*m:*i:*===*i:ͬ<*g:=P<2@YðB>2[YßB2[Y<ßB>2[Y2\Y2@Y~#fo"qY!X"X~#+¾B!"BY!9##"'B:\YBgo"DY"FY"HY C!DY>P*DY~#Bgo"DY*FY~#Cgo0!"+!"***)++*~#fo*+{ozg}2*Q:**)++*~#fo"+***s#r**#*~#fo{z :>2P(1X,'DO YOU WISH OP"X! "X`@W͈AÚ@^PIPmP@y+F+F+Fw`h|@gy@:wYO|g}oxG-|¿@}º@OElaOù@!zY~GxAƀO*+s#r*r+#*>+{z7*&+#>>7**)++*"+~#fo*$+{ozg*+s#r!"&+*&+)"+6*~#fo"+*+>*~#fo"+*+)"+*+!IA|IPҕ>!>̦>B%?͝@>>O!zY~+>wmPQYFPAmP:zY>h>BAƁ>A@!?ͅ?Já@QYFP>"::!<͚BI:!<͗B*m:!<>)BI*m:~#fo}=2:*m:~#fo+}!:2:<*g:"::*m:*i:*=:!<͚BI="FY*HY~#fo"HY2]Y2nY2pY2jY2MY2Xgo"JY"XO*BY|EC?L*JY"^Y(ʘK)W2X2X2X2X<2pY:[Y>ÓINͳFvC oC> LwbC:X/P|O{>2zYO/2zY!L?ͅ?BogvAö? }}{(qnz BTP͝@ͅ?W!~  !0w W5-M"="=>!=P!==P!=.P*=~#fovA* =@2=k=!==P!=.P!" =* =)"&= =~#foCL=C2X:RYM/ ML=ÖCN:XCʻC ~J=¯C2X:RYC>L=C:SYG~JLC!SY}Yw# C:[YD*XDM*X"vY*///////////////////////)"g:"i:>!k:P!*m:s#ro:!<͚BI:!<͗B:!<>/BI!:=P*k:@2:x))A =A!yY*+s#r*r+#*>+{z8**+}=Ɓ2*9*+*+{ozg}2**+*+{ozg}!*2+9!"r+*+)"+*+!Ý@B~#=P=x͚@^PͶ?Ð?͈Aó?^PmP:zYFP?/͓I*X4D>͓I*X"vY*X4Dw#X*X{zڟJ#"X*X+p!LY5ãJ)W:MY:hYLñK!]Y~4J)W *PY"^Y*hY"dYL!"LY*JY*BY:[YK~'JFw#J#~'JX2XH:oYFEʚHDŸH4I+ʮH-³H>2X4Iy2?Y*X+"X!LY4HHOx H)W> GH:XxH/<2XG!X~wF!H:CajSXJOOJS\E!zYO/F> FͳFF !LY4F:AYI?G:RY=)1K'JPM:SY2jYL|(M)W!"hY2AY!MAM# 2M)WyO!M:[YQM!M ^#V"fYynM*JY"PY!"LY?LxM)W}2>Y2X=7D*X+"X|4D<ڝD>G!X60#N!X4:ZY0wͦO£D"PY~:D w+Dw!X|D}D!X4#"X|/W}/_*PY"PY>"JYL~'KG~J*JY#"JY#K*JY#"JY#~' KL:]Y=EK!nY4!"JYþK2]YL*dY+"dY|L*^Y"JY!]Y4L!X6:[YK:@YK*Xz†KZYHI͕O͕OC͕O:oY!}Yw#w IC!X:XwHF 4I:>Y2LY4IGFVITG>2SYFZIM!SY~nI>T>Fw> #w#w#w>2RYàW}o|gxO"UY"SYx!SY~w#œO͕O¨OO)WJ!zYqx!zYOF#~怩OFP 4ôOgo"wY"yY:W<2W!W6P#6#";XG=G:XG)W!UY#G)W(G#G:kYM*SY|/g}/o#"SYM>2X:RYPG)W!X:XeG:?YeG:Xw~/C> ÍI> ÍI>O}2qYO!P:qYoBoB=_^#V ^#VII*FY|I)W*DY|I)W*'B!}YSYw#I!SY}YI:pY!Xwi6 :P=G!Qw# P2Q2U VUVVVQQQQQTPs#r#q#pfP^PIPfP"wY`i"yY*wY*yYDM^#V#N#F#xyuP:zY:yY7ͼLM!X~w:XG!SY:RY¡G!WY~#~+w#£GҵG!X4:YYo:kYG}o:Xg"YYM!xGN}P:RY=G=G)W:SYog"SYgo"UY"WY2YY>!ZY~ʊNx2Xw:RY=)N=)N+>2kY>w@N!TY~N/W+~/_s#r>2kY7}P O!X~wAN\NNDN}N!sYSYINDN!SYsYI!X4/-/<2X~J:X_! ͦP{0G~J}0G~J:RYGN:XG!X:jYwE͕D2X:X2X:XE2X!Xw0J:X/ F*PY"NY!"PY J!XY!LYw:[YL4*fY:RYG*XSY#LWY~##L"X L:@YʓI!"Xɯ2Xgo"SY*JY*BY~# PL-gLX PL"JY2oYG0L ҉L*SYT]))K:[Y>ÓI!X5J:NY*~J!PY50~J*XF#"X~J!>Y~!kY!X2NYNJoJ2X/jJ:kY-~J!X5dJ.~J JWJ)W ~J!NY5oJNJ*IͼLCILCŽPͼLͼLͼL!X4|/G}/O!>P P7>{_zW}o|g=·P|g}oPCZQP o-yOzW{_xGP`2ZYN:X͕D:X2X2X0J4I+HF +H>00ɯ2X2X2?Y4I-ZH>2kY_H+bH4IM*X+"X!LY4H:oY.ŠH>2GͩL+@N2X!SYw#’N!X4>ÓI*hY*X"XyxL)W *X"XL ~J*hY+"hY|NL:RYG:>Y2X!X>w!X5ͩLIͩL4E*NY"PY J F:RYGN:XE!X/<EFw!>Y~w2LY!jY~w<2MYͳE2jY2>Y2X2MY>2LY ~J]F*JY*BYDM*hYF+|)_EL*SY|”L#x:XʥLo>g"SY|x!ZY~w+ ¯L©L!ZY~w+L!YͿLLTY!SYw#L6 ?L"hY M,L/dK" iN#F#q#p#=Q2}X"`Y"bY`i"~X2X:X9Q!`Y_MQ:}X*~XRQ_~#fo:X<2XW:}XeQ*^!*`*VPIRFWITEXDOMLDZLGSQIBTLOBDEISBEINOVCNGLGSSNA2IODTBIRCEF!2W2W!W"W*+`iW!W*W> =X> =XP +*~#fo*(+s#r2qYS{ xU~ ҴQ2qYOQSQ w ʺU#w®U:qY_!PQp+qU:qY_!fQ^#V*8V;V8V8V8V8VU:U8V 20020 IF C5$<>"DOCKED" THEN 20030 20025 PRINT "PHASERS CAN'T BE FIRED THRU BASE SHIELDS." : GO TO 20080 20030 IF D4(3)=0 THQQ6S-UQU! wQ@āSɯQ(w*X*X&Sw#SQ77Q8w*XQ>2X245 PRINT : GOTO 19260 19250 A5=J5 : A6=J6 : T2$=Q$(J5,J6) : GOSUB 6000 : GOTO 19260 19255 PRINT : Q$(J5,J6)="." 19260 NEXT~#fo*X2b*Z"">!YFORTDAToBTTSSSQS!Q:qY_~!Q:qY_^#V2Q2QQS@~¡R:qY_!{Q6*+#> >*&+#> >!"*+!"+*+)"+)~#fo",+*+W_*;X~ ]X#~";X W!W^#6 #> =Xw#fo> ͂V͗V2U:U*U> ͂V> ÂV*W V|0V}3V"U"WoB:ȔV:X*X=> ͂V~+tV1dV> ͂VtV> ͂V~0tV> ͂V#~#͂V=EN 20050 20040 PRINT "PHASER BANKS DAMAGED." : GOTO 20080 20050 IF S4=0 THEN 20060 20055 PRINT "SHIELDS MUST BE DOWN TO FIRE ?ɯQ2Q:X*X~~4w:X~+KT1=T> UKT0> U> U#=YT~ UKT> U:Q7:QƒTQ6UQ2Q< J : NEXT Q : NEXT M 19265 IF T6=T7 THEN 19280 19270 B9=T6+1 : T6=T7 : GOTO 19035 19280 IF K=0 THEN RETURN 19290 D1=K*.1 19*WuU|R}R"Q"WQ*HY|)R+)7|! w#w#2RSU>*"2+*"4+*"8+*":+*"<+0+***!B+*"F+*"P+*"R+F+vV_>2U VɫVVVVVVVoB2XLX ʯV*X&*Xw"X }گV)W:X*X=> =X~+W1V> =XW> =PHASERS." : GOTO 20080 20060 IF K3>0 THEN 20090 20065 PRINT 20070 PRINT "THE SHORT-RANGE SENSORS DETECT NO ENEMY IN THIS QUA2Q7Q w2X2QTTT*X&*Xw"X T}ږT)W:Q?ɷ!{Q:qY_~T5!fQ/Ɓ_#>WUQ2300 IF X1<>0 THEN X1=SGN(X1) 19310 IF Y1<>0 THEN Y1=SGN(Y1) 19320 I=3*(X1+1)+Y1+2 19330 D2=C5(I) 19340 IF D2=0 THEN D1=0 19Q:QҝR:qY_!{Qrw2Q*HY}R+)LQ! yReT́Sw7Q! ~<SQS*HY+}10) OR (N6<1) OR (N6>10) THEN 19245 19230 PRINT " AND BUFFETED TO SECTOR";NX~ W0W> =X#~#=X=W*+~#O!{W ^#V"#W!W6 #6 #6*#6*###6*#6*#6 #6 !W ~=X#_W:W<2WWWIDF0MDRANT." 20080 J3=0 : RETURN 20090 PRINT "PHASERS LOCKED ON TARGET. ENERGY AVAILABLE="; 20095 PRINT .01*INT(100*E1) 20100 INQ>w7!{Q:qY_~ZU4!fQ_#>Wɇ6U> U!{Q:qY_~6Uo&YU6#S:qYG 1wx WS0#w> #w#Qw#cSw"Q>wT] 65;"-";N6 19235 Q$(N5,N6)="C" : K4(V)=N5 : K5(V)=N6 19240 K7(V)=SQR((S6-N5)^2+(S7-N6)^2) : K8(V)=K7(V) 19241 Q$(J5,J6)="." 19# PUT"UNITS TO FIRE";P1 : IF P1"Y" THEN 21040 21051 IF T4>2 THEN 21060 21055 PRINT "NO  21105 PRINT "*** TORPEDO NUMBER";Z6;"MISFIRE - ";R;"% DOWN" 21110 IF RND(1)>.2 THEN 21125 21115 PRINT "*** PHOTON TUBES DAM0 20250 H3(I)=H5(I) : E=E-R7 20260 NEXT I : GOTO 20280 20270 H3(I)=H3(I)+E : E=0 20280 GOSUB 12001 20290 IF (E<>0) AND (A2=݄@ ]f@!ڮͬY$]r (9 N#%B0T$1`O*  dDȤ`N" @W'q`İ, q,@Y'DbyH@A$0 : RETURN 20140 E1=E1-P1 20142 IF D4(11)=0 THEN 20147 20144 P1=P1*(RND(1)*.5+.5) 20145 PRINT : PRINT "COMPUTER MALFUNCTIONB+!*>+}2***)++*"+~#fod*+s#r!"+!"&+!"+*&+)"+*+!*+"+^"(+*+~#fo*(+s#rBURST. ONLY";T4;"TORPEDOS LEFT." : GOTO 21035 21060 INPUT"SPREAD ANGLE (3 - 30 DEG)";G2 21061 IF G2<0 THEN 21035 21062 IF (GAGED BY MISFIRE." 21120 D4(4)=D5*(1+2*RND(1)) : GOTO 21440 21125 IF (S4<>0) OR (C5$="DOCKED") THEN R=R+1E-03*S3*R 21130 A3=C60) THEN 20310 20300 J3=1 : RETURN 20310 PRINT FNR(E);"EXPENDED ON EMPTY SPACE." : J3=1 : RETURN 21001 J3=1 : IF D4(4)=0 THEN (A&EqLLzAZ*৴3@W1h[ n7C~"i +63o$<bT -5 8NY'DaE" Ra0v $R,I HAMPERS PHASER ACCURACY." : PRINT 20147 E=P1 : IF K3=0 THEN 20310 20150 E=0 : T5=(K3*(K3+1))/2 20160 FOR I=1 TO K3 : H3(I)=*+#>*>+}2***)++*"+~#fod*+s#r!"+!"&+!"+*&+)"+*+!*+"+^"(+*+~#fo*(+s#r2<3) OR (G2>30) THEN 21060 21063 G2=FND(G2) 21065 N=3 21070 FOR Z6=1 TO N 21075 IF C5$<>"DOCKED" THEN T4=T4-1 21080 Z7=Z6 :+.25*R : IF N=1 THEN 21140 21135 A8=(15-A3+(2-Z6)*G2)*.523599 : PRINT 21137 PRINT "TRACK FOR TO RPEDO NUMBER";Z7;"--" : GOT21015 21010 PRINT "PHOTON TUBES DAMAGED." : GOTO 21035 21015 IF T4<>0 THEN 21025 21020 PRINT "NO TORPEDOS LEFT." : GOTO 21035RU!r L@B qN,rHA+Dry8\ *$XO*򐀂 #IQM"i+GB4CKAY"i+6i,b -M9 8NY'((K3+1-I)/T5)*P1 20170 H5(I)=ABS(K6(I))/(P*.9^K7(I)) 20180 IF H3(I)<=H5(I) THEN 20200 20190 E=E+(H3(I)-H5(I)) : H3(I)=H5(I) -0L8ND' $򨀐A+D4V"qL#A4J@9TCM&m8f@Fm"A KfҰ@@A UCACO@݅ R=RND(1) 21085 R=(R+RND(1))*.5-.5 21090 IF (R>=-.4) AND (R<=.4) THEN 21125 21095 R=(RND(1)+1.2)*R : IF N=3 THEN 21105 21100O 21145 21140 PRINT : PRINT "TORPEDO TRACK --" : A8=(15-A3)*.523599 21145 X4=-SIN(A8) : Y4=COS(A8) : B8=ABS(X4) 21146 IF ABS 21025 INPUT"TORPEDO COURSE";C6 21030 IF C6<.01ORC6>12 THEN GOSUB 40000ELSE21040 21035 J3=0 : RETURN 21040 INPUT"BURST OF 3"DaE" Ra0@A'r(A+DBI.Dr L@L*epX1, BAKIQRDbI8 #IQpS-M@ EfԀVmKdLSe a@X1, 20200 NEXT I 20210 IF E=0 THEN 20280 20220 FOR I=1 TO K3 : R7=H5(I)-H3(I) 20230 IF R7<=0 THEN 20260 20240 IF R7>=E THEN 2027dD9TZ; \AtVLUAuc?-aV9 Zx3@fFmFm*pPimkPWX[Ҧp}\O@$ (Y4)>ABS(X4) THEN B8=ABS(Y4) 21150 X4=X4/B8 : Y4=Y4/B8 : X5=S6 : Y5=S7 21155 FOR L9=1 TO 15 : X5=X5+X4 : A5=INT(X5+.5) 21160 1 TO R3 21345 IF (B2(W)<>Q1) OR (B3(W)<>Q2) THEN 21355 21350 B2(W)=B2(R3) : B3(W)=B3(R3) 21355 NEXT W : Q$(A5,A6)="." : R3=R3(A6+Y7+.5) 21290 IF (P<1) OR (P>10) OR (Q<1) OR (Q>10) THEN 21320 21295 IF Q$(P,Q)<>"." THEN 21320 21300 Q$(P,Q)=Q$(A5,A6) : 70 K=INT(5+RND(1)*20) : PRINT "***SICKBAY REPORTS";K;"CASUALTIES!" 22080 C4=C4+K : FOR L=1 TO 12 : I=RND(1) 22090 J=(3.5*W7*(R(V)) AND (A6=K5(V)) THEN 21235 21230 NEXT V 21235 K=K6(V) : W3=200+800*RND(1) 21240 IF ABS(K)0 THEN RETURN 21445 F9=1 : GOSUB 10000 : RETURN 22001 PRINIF (A5<1) OR (A5>10) THEN 21430 21165 Y5=Y5+Y4 : A6=INT(Y5+.5) 21170 IF (A6<1) OR (A6>10) THEN 21430 21175 IF (L9=5) OR (L9=9-1 : B6=0 : B7=0 21360 G(Q1,Q2)=G(Q1,Q2)-10 : B1=B1+1 : GOSUB 17000 : GOTO 21435 21365 IF Q$(A5,A6)<>"*" THEN 21405 21370 IF Q$(A5,A6)="." : PRINT "DAMAGED--" 21305 PRINT " DISPLACED BY BLAST TO SECTOR";P;"-";Q 21310 K4(V)=P : K5(V)=Q : K7(V)=SQR((SND(1)+I)+1)*D5 22100 IF L=6 THEN J=J/3 22110 D4(L)=D4(L)+T1+J : NEXT L : D4(6)=D4(6)-3 22120 IF D4(6)<0 THEN D4(6)=0 22130 SK-SGN(K)*ABS(W3) : IF K6(V)<>0 THEN 21255 21250 T2$=Q$(A5,A6) : GOSUB 6000 : GOTO 21435 21255 IF Q$(A5,A6)="K" THEN PRINT "***T : PRINT "*** RED ALERT!! RED ALERT!! ***" : PRINT 22010 PRINT "*** COLLISION IMMINENT!!" : PRINT 22020 PRINT "*** ";S5$) THEN PRINT 21180 PRINT FNR(X5);"-";FNR(Y5);", "; 21185 IF Q$(A5,A6)<>"." THEN 21195 21190 GOTO 21425 21195 PRINT : IF Q$RND(1)>.15 THEN 21385 21375 PRINT "*** STAR AT SECTOR";A5;"-";A6;"UNAFFECTED BY PHOTON BLAST" 21380 GOTO 21435 21385 X2=A5 : 6-P)^2+(S7-Q)^2) 21311 K8(V)=K7(V) 21315 GOSUB 28000 : GOTO 21435 21320 PRINT "DAMAGED, BUT NOT DESTROYED." : GOTO 21435 2134=0 : IF R1<>0 THEN RETURN 22140 F9=1 : GOSUB 10000 : RETURN 23000 P=D0-J2 : IF (P<>0) AND (R1=0) THEN 23020 23010 IF P<5 THE KLINGON AT"; 21260 IF Q$(A5,A6)="C" THEN PRINT "*** COMMANDER AT"; 21265 PRINT A5;"-";A6; 21270 A7=A8+2.5*(RND(1)-.5) 21275;" RAMS "; : W7=1 : IF Q$(S6,S7)="C" THEN W7=2 22030 IF W7=1 THEN PRINT "KLINGON AT "; 22040 IF W7=2 THEN PRINT "COMMANDER AT (A5,A6)="K" THEN 21220 21200 IF Q$(A5,A6)<>"C" THEN 21325 21205 IF RND(1)>.1 THEN 21220 21210 PRINT "*** COMMANDER AT SECTOR"Y2=A6 : GOSUB 19002 : A5=X2 : A6=Y2 21390 IF G(Q1,Q2)=LQ THEN RETURN 21395 IF A2<>0 THEN RETURN 21400 GOTO 21435 21405 PRINT25 IF Q$(A5,A6)<>"B" THEN 21365 21330 PRINT "*** STARBASE DESTROYED...!!!" 21335 IF S2(Q1,Q2)<0 THEN S2(Q1,Q2)=0 21340 FOR W=N P=5 23020 N=(K2+K1)/P : K=INT(500*N+.5) : L=0 23030 IF G1<>0 THEN L=100*S8 23035 I=0 23040 IF LEFT$(S5$,1)="E" THEN M=0 2 W3=ABS(-SIN(A7)) : IF ABS(COS(A7))>W3 THEN W3=ABS(COS(A7)) 21280 X7=-SIN(A7)/W3 : Y7=COS(A7)/W3 21285 P=INT(A5+X7+.5) : Q=INT"; 22050 PRINT "SECTOR";S6;"-";S7 : A5=S6 : A6=S7 : T2$=Q$(S6,S7) 22060 GOSUB 6000 : PRINT "*** ";S5$;" HEAVILY DAMAGED." 220;A5;"-";A6;"USES ANTI-PHOTON DEVICE !" 21215 PRINT "-- TORPEDO NEUTRALIZED." : GOTO 21435 21220 FOR V=1 TO K3 21225 IF (A5=K4 : PRINT " >>> ORGANIAN TRUCE-MONITOR DESTROYED <<<" : Q$(A5,A6)="." : PRINT 21420 T2=0 : T3=0 : GOTO 21435 21425 NEXT L9 % 3045 IF LEFT$(S5$,1)="F" THEN M=1 23050 IF LEFT$(S5$,1)="" THEN M=2 23060 IF A1=0 THEN I=200 23070 J=10*K1+50*K2+K+L-I-100*B1!II!!t !ͻͧ Ͷ Ͷ CHICKENYEWANT TO TRY AGAIN FT DEEPYOU BLASTED A NEW LUNAR CRATER͗= !~+|!ͻz%15%-15-1)5 59y1 W!)$   ~ 2 2W3^#V#~#fo7\)T3!9" : : E !6#}E |E >! 6#zX !R"$ !O"& : |ʆ >  6#s#   ! % !%|! X! ͗! ͻ!~+|! ͻ   !~+ͻ!~+|!X! ͗ !~+| !%X! - AVAILABLE FUEL 16500 LBS  TAKE OVER-* ON BOARD AND GROUND COMPUTERS KAPUT#Z GROUND CONTROL CALLING LUNAR LANDER -100*M-35*N1-3*S1-C4 23080 PRINT : IF J<>0 THEN 23100 23090 PRINT "AS YET, YOU HAVE NO SCORE." : RETURN 23100 PRINT "YOUR SCYOU CRASHED - NO SURVIVORS.$ ARRIVES. HOPE YOUR OXYGEN HOLD OUT.4GCRAFT DAMAGE. YOU ARE STRANDED UNTIL RESCUE MISSION ~GO!~+5A $A51͚ͪ)!,   5===W !!~+= ) !, r#={ >2 >2 >2 2 " ! " [ @ STOͦ ö 0 * .. . ........* |½ : + * |+ 1 :!~+|!2X! ͗! 3!)!-ͣ y- 1-1)ͭv$)51ͪ5NO DO YOU WANT INSTRUCTIONS *}*~L~*7mL| #y.p a%fffnwpfx)+r+s=)w>#w+_'~7^#VC)C)!~ѧ7o.!z5 Lf` OD LANDING#GREAT LANDING !!! (LUCKY)SEC - IMPACT VELOCITYON THE MOON ATSECOUT OF FUEL ATBURN RATE,T 51͚5͚94-41)$5E~E E E  E E E ! E  s#r:  {ͅ w#6" * * >2 ͆ ð !9N#F: ~#~c ~+i ~#~c +^#V###A ###A |u ~#fo!} @9-͚4 !͗!%|!ͻWW !~+$5115%15%[[[[ BASLIB #100937 5.24 - OWNED BY MICROSOFT, 1980 B (2>DM*"*0##") >29 2< *^#V": ##^#V"=  ! ͗! 3!  !} t !W ͻ !' ͻ ! ͻ !ͻ !ͻ ! ͻ !ͻ !Mͻ !3ͻ ! ͻ IMELB FUELMPHMI + FT SEC &GOOD LUCK6 GIVE BURN TIME IN SEC.1P(FREE FALL) TO 300 LBS/SEC, TYPE A COMMA AND THEW1591 1   W1WE  E E ! 1 E55!3 Internal Error - No Line Number : ~# @ at line1 0 > <  < 0)  }_|W! k* 5= !͗!%|!͗!=|! ͻ~= ? !ͻz~= T !{ͻz~= r !Dͻ !ͻz !ͻ !2? !ʍ !!""@ ! " 6#6P>2 >2 >2 9 <  _fN#F# 25! F+N+p+q t1s#r!#ͻ ! ͻ !͗! X! ͗!͗!X! ͗! ͗!%X! ͗!͗ !2X! ͗!ͻ ! ͻ   N6SET RETRO ROCKET BURN RATE TO ANY VALUE FROM 0 LBS/SEC'ESTIMATED FREE FALL IMPACT TIME 120 SEC3CAPSULE WEIGHT 33000 LBS & ~#fo>@ at address|d}d0 > )> )~#* k*~#fo!9" !M * S " !t *  +~<ʛ=ʛ###~›* )!* * ~=ү/<=û> ,)o>,,)W* #^ +=)z{##~#foŽ9####~ᇁO I# Iʘ9Z9!F9#^#V5Ý9###4>͠'##s#rq#p !#'()+,:+&!+%~!Z :+goW*+|7gB:~+B+>Q|/g}/oZ!oG|kbo& Gȯ|g}or͈ad OnlEDrive Select ErroFFile Read OnlUnprintable Erro>2N#"!9""y2* |* !" A~#*V_*~ʼ ^#V#^#V#*^#V#* *^#V# *^#f)^#f *R&))): >Ô>0 ! ~<ʠ =ʠ #~# Ì #FSyntax Error in DATRETURN without GOSU Type MismatcOut of DatIllegal Function CalO {_! " !" 2 #! ~6#w~!CRN:Z i&  +ͥ* { ,)l|-.06#~6+12#w+~:w!:H~go -: *+öH!FXo>:I èI èI èI ͚èI >•~+~?~ +#ҭ+ I ̓~##++Q>p*+V+^++r+s͛I ͻ~ͺIw"V9E*+*~+*|+*z+R<*~+R*+*~+*V_*j~#"V,¼~¼!" ~,"‚#Ô>Ô>Ô>Ô>^#V#^#V#>þ>þ>þ>þ>þ>^#V#!~+>>>>>>^#V#!|  verfloOut of Memor Subscript Out of Rang Division By ZerOut of String SpacString Formula Too CompleRESUME without Erro }* {2: ŸF#~#foxof]~#,)Qfo>",)G: xo)*N 23140 23130 PRINT K2;TAB(5);"KLINGON COMMANDER(S) DESTROYED";TAB(36);50*K2*MR 23140 IF K=0 THEN 23160 23150 PRINT FNR(N);TA  +w "++~#foͻ"!5*#~22#~#^#V2++'ڧ :VU9U9!9HU9~9O:~#foʾ9Ͱ)| I çI ͰÍ:( !} -͞/:( ! ͭ1:+2+:+&:+|/g}/o͞/=Disk Ful>Input Past En?Bad Record Numbe@Bad File NamCToo Many FileReset Erro Graphics Statement Not ImplementeDDisk Re~2"I **:):4*:122"2---+k*~#fo):+2+):+2+#' B(5);"KLINGONS PER STARDATE, AVERAGE"; 23155 PRINT TAB(36);K*MR 23160 IF S1=0 THEN 23180 23170 PRINT S1;TAB(5);"STAR(S) DESTR+(B3(J)-Y)^2) 24160 IF D1<2 THEN 24120 24170 NEXT J 24180 B2(I)=X : B3(I)=Y : S2(X,Y)=-1 : G(X,Y)=G(X,Y)+10 : NEXT I 24190 B0 A1=1 : D3=.25 : FOR I=1 TO 8 : FOR J=1 TO 8 : S2(I,J)=0 : NEXT J : NEXT I 24060 F1(1)=D0-.5*I5*LOG(RND(1)) : F1(5)=1E+30 2405010 INPUT"WARP FACTOR";K 25020 PRINT 25025 IF K<1 THEN 25140 25026 IF K>10 THEN 25150 25030 J=W1 : W1=K : W2=W1*W1 25040 RINT TAB(5);"BONUS FOR WINNING ";S$(S8);" GAME";TAB(36);L*MR 23300 PRINT TAB(5);"-------------------------------------" 23310: PRINT : S0=0 24310 T2=FNA(1) : T3=FNA(1) : IF G(T2,T3)<100 THEN 24310 24440 PRINT "STARDATE..............";I 24450 PRINT "OYED";TAB(36);-3*S1*MR 23180 IF B1=0 THEN 23200 23190 PRINT B1;TAB(5);"STARBASES DESTROYED";TAB(36);-100*B1*MR 23200 IF N1=0 1=0 : K=I1-I4 : L=INT(.25*S8*(9-L2)+1) 24200 M=INT((1-RND(1)^2)*L) : IF M>K THEN M=K 24210 N=100*M 24220 X=FNA(1) : Y=FNA(1) 70 F1(2)=D0-1.5*(I5/R2)*LOG(RND(1)) : I6=0 24080 F1(3)=D0-.3*I5*LOG(RND(1)) : F1(4)=D0-.3*I5*LOG(RND(1)) 24090 FOR I=1 TO 8 : IF (W1<=J) OR (W1<=6) THEN 25070 25050 IF W1<=8 THEN 25080 25060 IF W1>8 THEN 25100 25070 PRINT "'WARP FACTOR";W1;"CAPTAIN'"  PRINT TAB(28);" TO TAL";TAB(36);J*MR;"**" : RETURN 24001 A2=0 : G1=0 : GOSUB 4001 : S5$="ENTERPRISE" 24010 I7=5000 : E1=I7 : NUMBER OF KLINGONS....";I1 24460 PRINT "NUMBER OF STARDATES...";INT(I5) 24470 PRINT "NUMBER OF STARBASES...";I2 24480 PRINT "THEN 23220 23210 PRINT N1;TAB(5);"SOS CALL(S) TO A STARBASE";TAB(36);-35*N1*MR 23220 IF C4=0 THEN 23240 23230 PRINT C4;TAB(5): IF G(X,Y)+N>999 THEN 24220 24230 G(X,Y)=G(X,Y)+N : K=K-M : IF K<>0 THEN 24200 24240 FOR I=1 TO I4 24250 X=FNA(1) : Y=FNA(1)FOR J=1 TO 8 : K=INT(RND(1)*9+1) : I6=I6+K 24100 G(I,J)=K : NEXT J : NEXT I : S1=0 24110 FOR I=1 TO I2 24120 X=INT(RND(1)*6+: RETURN 25080 PRINT "*** OUR MAXIMUM SAFE SPEED IS WARP 6" : RETURN 25100 IF W1=10 THEN 25130 25110 PRINT "*** CAPTAIN, OUR I8=2500 : S3=I8 : S4=0 : S9=S4 : J1=4 : L1=J1 24020 Q1=FNA(1) : Q2=FNA(1) : S6=FNB(1) : S7=FNB(1) : I9=10 : T4=I9 24030 W1=5 :STARBASE LOCATIONS...."; 24490 FOR I=1 TO I2 : PRINT B2(I);"-";B3(I); 24500 IF I<>I2 THEN PRINT ", "; 24510 NEXT I : PRINT :;"CASUALTIES INCURRED";TAB(36);-C4*MR 23240 IF M=0 THEN 23260 23250 PRINT M;TAB(5);"SHIP(S) LOST OR DESTROYED";TAB(36)-100*M*M : IF (G(X,Y)<99) AND (RND(1)<.75) THEN 24250 24260 IF G(X,Y)>899 THEN 24250 24270 IF I=1 THEN 24300 24280 M=I-1 : FOR J=1 TO2) : Y=INT(RND(1)*6+2) 24130 IF G(X,Y)>=10 THEN 24120 24140 IF I<2 THEN 24180 24150 K=I-1 : FOR J=1 TO K : D1=SQR((B2(J)-X)^2ENGINES MAY NOT TAKE IT !" : RETURN 25130 PRINT "-'AYE, CAPTAIN, WE'LL GIVE IT A TRY.'" : RETURN 25140 PRINT "-'WE CAN'T GO BE W2=25 : FOR I=1 TO 12 : D4(I)=0 : NEXT 24040 J2=100*INT(31*RND(1)+20) : D0=J2 : K1=0 : K2=0 : N1=0 : N2=0 : R6=0 : C4=0 2405 PRINT 24530 GOSUB 18000 24531 PRINT : INPUT"READY TO CONTINUE";NL$ : PRINT CHR$(12) : GOSUB 29002 : GOSUB 14001 : RETURN 2R 23260 IF A1<>0 THEN 23280 23270 PRINT TAB(5)"PENALTY FOR GETTING KILLED";TAB(36);-200*MR 23280 IF G1=0 THEN 23300 23290 P M : IF (C1(J)=X) AND (C2(J)=Y) THEN 24250 24290 NEXT J 24300 G(X,Y)=G(X,Y)+100 : C1(I)=X : C2(I)=Y : NEXT I 24305 I=INT(D0) ( LOW WARP 1, CAPTAIN.'" : RETURN 25150 PRINT "-'OUR TOP SPEED IS WARP 10, CAPTAIN.'" 25160 RETURN 26001 J3=0 : IF D4(8)<>0 THETHEN 27210 27200 K3=0 : C3=0 27210 IF R=0 THEN 27270 27220 R1=R1-R : IF R2=0 THEN 27270 27230 FOR L=1 TO R2 : IF (C1(L)<>X)  ALERT!! RED ALERT!! *** 27105 X3=X2 : Y3=Y2 27110 PRINT "*** INCIPIENT SUPERNOVA DETECTED AT SECTOR";X3;"-";Y3 27120 X=Q1 : K8(O)=K8(O+1) : K8(O+1)=K 28040 K=K4(O) : K4(O)=K4(O+1) : K4(O+1)=K 28050 K=K5(O) : K5(O)=K5(O+1) : K5(O+1)=K 28060 K=K6(O) HIELDS CONSUME ALL ENERGY." 26620 F9=4 : GOSUB 10000 : RETURN 27000 IF X2<>0 THEN 27100 27010 N=INT(RND(1)*I6+1) : FOR X=1 TOX,Y) 27360 IF (D4(9)=0) OR ((Q1=X) AND (Q2=Y)) THEN S2(X,Y)=1 27370 G(X,Y)=1000 27380 IF (R1<>0) OR ((X=Q1) AND (Y=Q2)) THEN N 26600 26010 IF S4<>0 THEN 26530 26500 INPUT"SHIELDS ARE DOWN. DO YOU WANT THEM UP";B$ 26510 IF LEFT$(B$,1)="Y" THEN 26560 OR (C2(L)<>Y) THEN 27260 27240 C1(L)=C1(R2) : C2(L)=C2(R2) : C1(R2)=0 : C2(R2)=0 27250 R2=R2-1 : R=R-1 : Q=1 : IF R2=0 THEN F1 Y=Q2 : K=(X2-S6)^2+(Y2-S7)^2 27130 IF K>1.5 THEN 27180 27140 PRINT "*** EMERGENCY AUTO-OVERRIDE JAMMED ***" : A2=1 : GOTO 271: K6(O)=K6(O+1) : K6(O+1)=K 28070 Z4=1 28080 NEXT O 28090 IF Z4<>0 THEN 28010 28100 RETURN 29002 IF D(1)<>0 THEN 29230 290 8 : FOR Y=1 TO 8 27020 N=N-(G(X,Y)-INT(G(X,Y)/10)*10) : IF N<=0 THEN 27040 27030 NEXT Y : NEXT X : RETURN 27040 IF (X<>Q1) O27430 27390 PRINT CHR$(12) : PRINT "*** SUPERNOVA IN QUADRANT";X;"-";Y;"HAS DESTROYED THE" 27400 PRINT "REMAINDER OF THE ENEMY 26520 RETURN 26530 INPUT"SHIELDS ARE UP. DO YOU WANT THEM DOWN";B$ 26540 IF LEFT$(B$,1)="Y" THEN 26590 26550 RETURN 26560 (2)=1E+30 27260 NEXT L 27270 IF R3=0 THEN 27310 27280 FOR L=1 TO R3 : IF (B2(L)<>X) OR (B3(L)<>Y) THEN 27300 27290 B2(L)=B2(80 27150 IF D4(9)<>0 THEN 27180 27160 PRINT : PRINT "MESSAGE FROM STARFLEET COMMAND...STARDATE";INT(D0) 27170 PRINT "'SUPERN10 PRINT : PRINT " 1 2 3 4 5 6 7 8 9 10" 29020 FOR I=1 TO 10 : IF I<10 THEN PRINT " "; 29030 PRINT I; : FOR J=1 TO 10 : PRR (Y<>Q2) THEN 27150 27050 IF J4<>0 THEN 27150 27060 N=INT(RND(1)*(G(X,Y)-INT(G(X,Y)/10)*10))+1 27070 FOR X3=1 TO 10 : FOR Y3 FLEET !!" 27420 F9=1 : GOSUB 10010 : RETURN 27430 IF A2=0 THEN RETURN 27440 F9=8 : GOSUB 10010 : RETURN 28000 IF K3<=1 THENS4=1 : S9=1 : IF C5$<>"DOCKED" THEN E1=E1-50 26570 PRINT "SHIELDS RAISED." : IF E1<=0 THEN 26610 26580 J3=1 : RETURN 26590 S4R3) : B3(L)=B3(R3) : B2(R3)=0 : B3(R3)=0 : R3=R3-1 27300 NEXT L 27310 IF X2=0 THEN 27350 27320 N=G(X,Y)-INT(G(X,Y)/100)*100 OVA IN QUADRANT";X;"-";Y; 27175 PRINT "....CAUTION ADVISED'" 27180 N=G(X,Y) : R=INT(N/100) : Q=0 27190 IF (X<>Q1) OR (Y<>Q2) INT Q$(I,J);" "; : NEXT J 29040 ONI GOTO 29050,29060,29080,29090,29140 29045 ONI-5 GOTO 29150,29160,29170,29200,29210 29050 P=1 TO 10 : IF Q$(X3,Y3)<>"*" THEN 27090 27080 N=N-1 : IF N=0 THEN 27100 27090 NEXT Y3 : NEXT X3 27100 PRINT : PRINT "*** RED RETURN 28010 Z4=0 : FOR O=1 TO K3-1 : IF K7(O)<=K7(O+1) THEN 28080 28020 K=K7(O) : K7(O)=K7(O+1) : K7(O+1)=K 28030 K=K8(O) :=0 : S9=1 : PRINT "SHIELDS LOWERED." : J3=1 : RETURN 26600 PRINT "SHIELDS DAMAGED AND DOWN. " : RETURN 26610 PRINT : PRINT "S27330 S1=S1+(N-INT(N/10)*10) : B1=B1+INT(N/10) 27340 K1=K1+R : K2=K2+Q 27350 IF (S2(X,Y)<>0) AND (D4(9)<>0) THEN S2(X,Y)=LQ+G() RINT " STARDATE ";FNR(D0) : GOTO 29220 29060 IF C5$<>"DOCKED" THEN GOSUB 17000 29070 PRINT " CONDITION ";C5$ : GOTO *LOG(RND(1)) 30150 IF R2<>0 THEN F1(2)=D0-(I5/R2)*LOG(RND(1)) 30160 F1(3)=D0-.5*I5*LOG(RND(1)) 30170 FOR I=1 TO 8 : FOR J=1 T30050 M=D0 : D0=D9(1) 30060 PRINT "BACKWARD IN TIME";FNR(M-D0);"STARDATES." : S0=0 30070 R1=D9(2) : R2=D9(3) : R3=D9(4) : R4=DT1=Z5 33090 Z6=T1 33100 IF T10 THEN RETURN 33120 GOSUB 9000 : J3=1 : IF A2<>0 THEN RETURN $="DOWN," : IF S4<>0 THEN B$="UP," 29180 IF D4(8)>0 THEN B$="DAMAGED," 29190 PRINT B$;INT(100*S3/I8+.5);"%" : GOTO 29220 2920ERGY=";FNR(S3);")" 31075 J3=1 31080 T1=.1 : P5=(K3+4*C3)/48 : IF P5<.1 THEN P5=.1 31090 IF P5>RND(1) THEN GOSUB 1000 31100 I29220 29080 PRINT " POSITION ";Q1;"-";Q2;", ";S6;"-";S7 : GOTO 29220 29090 PRINT " LIF E SUPPORT "; : IF D4(5)<>0 THEN O 8 : IF 10 THEN 34750 34010 INPUT"ENTER COURSE...";D2 : IF D2<.01ORD2>12 THEN GOSUB 0 PRINT " KLINGONS LEFT ";R1 : GOTO 29220 29210 PRINT " TIME LEFT ";FNS(R5) 29220 NEXT I : RETURN 29230 PRINT "SHORT RANGF A2<>0 THEN RETURN 31110 GOSUB 9000 : RETURN 31120 PRINT "TRANSFER PANEL DAMAGED." : RETURN 33001 J3=0 : INPUT"HOW MANY STAR29110 29100 PRINT "ACTIVE" : GOTO 29220 29110 IF C5$<>"DOCKED" THEN 29130 29120 PRINT "DAMAGED, SUPPORTED BY STARBASE" : GOTOT FROM MEMORY." 30200 GOSUB 18000 : RETURN 31001 J3=0 : IF D4(12)<>0 THEN 31120 31020 INPUT"NUMBER OF UNITS TO SHIELDS";Z3 3 : NEXT J : NEXT I 30100 FOR I=75 TO 84 : C1(I-74)=D9(I) : NEXT 30110 FOR I=85 TO 94 : C2(I-84)=D9(I) : NEXT 30120 FOR I=9540000ELSE34013 34012 RETURN 34013 INPUT"DISTANCE...";D1 : IF D1<=0 THEN RETURN 34030 P=(D1+.05)*W1*W1*W1*(S4+1) : IF P0 THEDATES";Z5 : IF (Z5"Y" THEN RETURN 33030 R6=1 33040  29220 29130 PRINT "DAMAGED, RESERVES=";FNS(L1) : GOTO 29220 29140 PRINT " WARP FACTOR ";FNR(W1) : GOTO 29220 29150 PRINT "1030 IF Z3<0 THEN RETURN 31040 IF E1+S3-Z3>0 THEN 31060 31050 PRINT "SCOTT HERE- 'WE ONLY HAVE";FNR(E1+S3);"UNITS LEFT.'" 31 TO 99 : B2(I-94)=D9(I) : NEXT 30130 FOR I=100 TO 104 : B3(I-99)=D9(I) : NEXT : B4=D9(105) : B5=D9(106) 30140 F1(1)=D0-.5*I5N 34150 34040 J3=0 : PRINT : PRINT "ENGINEERING TO BRIDGE--" 34050 IF (S4=0) OR (.5*P>E1) THEN 34080 34060 PRINT " WE HAVENN 30050 30020 T1=-.5*I5*LOG(RND(1)) 30030 PRINT "FOR WARD IN TIME";FNR(T1);"STARDATES." 30040 F1(2)=F1(2)+T1 : GO TO 30200 IF Z5<=0 THEN R6=0 33050 IF R6=0 THEN RETURN 33060 T1=Z5 : Z6=Z5 33070 IF K3=0 THEN 33100 33080 T1=1+RND(1) : IF Z510) THEN 34660 34620 Y=Y+Y1 : R=INT(Y+.5) : IF (R<1) OR (R>10) THEN 34660>10) THEN 35180 35170 IF Q$(S6,S7)="." THEN 35190 35180 NEXT L : GOTO 35140 35190 S5$="FAERIE QUEENE" : Q$(S6,S7)=LEFT$(S5$,190 INPUT "THIS IS WISE";B$ : IF LEFT$(B$,1)="Y" THEN 34500 34200 J3=0 : RETURN 34500 Q4=0 : W=0 : IF W1<=6 THEN 34660 34510 P0 : RETURN 35090 PRINT : PRINT "YOU ARE CAPTURED BY KLINGONS AND RELEASED TO" 35100 PRINT "THE FEDERATION IN A PRISONER-OF-WA34130 34090 PRINT " WE HAVEN'T THE ENERGY. BUT WE COULD DO IT AT WARP";W 34100 IF S4<>0 THEN 34120 34110 RETURN 34120 PRIN0 PRINT "WARP ENGINES DAMAGED." : RETURN 35001 ONSGN(D4(10))+2 GOTO 35010,35030,35020 35010 PRINT "YE FAERIE QUEENE HAS NO SHU 34630 IF Q$(Q,R)="." THEN 34650 34640 Q4=0 : W=0 34650 NEXT L 34660 GOSUB 15001 : IF A2<>0 THEN RETURN 34670 E1=E1-D1*W1*W) : C5$="DOCKED" 35200 FOR L=1 TO 12 : D4(L)=0 : NEXT : D4(10)=-1 : E1=3000 : I7=E1 35210 S3=1500 : I8=S3 : T4=6 : I9=T4 : L1=D1*(6-W1)^2/66.6667 : IF P>RND(1) THEN Q4=1 34520 IF Q4<>0 THEN D1=RND(1)*D1 34530 W=0 : IF W1<10 THEN 34550 34540 IF .25*D1R EXCHANGE." 35110 PRINT "STARFLEET PUTS YOU IN COMMAND OF ANOTHER SHIP," 35120 PRINT "THE FAERIE QUEENE WHICH IS ANTIQUATED, T " IF YOU'LL LOWER THE SHIELDS." : RETURN 34130 PRINT " WE CAN'T DO IT, CAPTAIN. WE HAVEN'T GOT THE ENERGY." 34140 RETURNTTLE CRAFT." : RETURN 35020 PRINT "SHUTTLE CRAFT DAMAGED." : RETURN 35030 PRINT : PRINT "***ABANDON SHIP! ABANDON SHIP!" 351*W1*(S4+1) : IF E1>0 THEN 34690 34680 F9=4 : GOSUB 10000 : RETURN 34690 T1=10*D1/W2 : IF W<>0 THEN GOSUB 30001 34700 IF Q4=0=3 : J1=L1 : S4=0 : W1=5 : W2=25 35220 RETURN 36001 IF D4(11)=0 THEN 36030 36010 PRINT "COMPUTER DAMAGED - CANNOT EXECUTE DES>RND(1) THEN W=1 34550 IF (Q4=0) AND (W=0) THEN 34660 34560 A=(15-D2)*.5236 : X1=-SIN(A) : X2=COS(A) 34570 B8=ABS(X1) : IF ABBUT" 35130 PRINT "STILL USABLE." : N=INT(RND(1)*R3+1) : Q1=B2(N) : Q2=B3(N) 35140 S6=5 : S7=5 : GOSUB 18000 : Q$(S6,S7)="." 3 34150 T1=10*D1/W2 : IF T1<.8*R5 THEN 34500 34160 PRINT : PRINT "MR. SPOCK - 'CAPTAIN, I COMPUTE THAT SUCH A TRIP" 34170 PRI040 PRINT "***ALL HANDS ABANDON SHIP!" : PRINT 35050 PRINT "YOU AND THE BRIDGE CREW ESCAPE IN THE GALILEO." 35060 PRINT "THE  THEN 34740 34710 PRINT : PRINT "ENGINEERING TO BRIDGE--" : PRINT " SCOTT HERE- "; 34715 PRINT "'WE'VE JUST BLOWN THE WARPTRUCT SEQUENCE" 36020 RETURN 36030 PRINT : PRINT " ---WORKING---" 36040 PRINT "IDENTIF ICATION-POSITIVE" 36050 PRINT "SES(X2)>ABS(X1) THEN B8=ABS(X2) 34580 X1=X1/B8 : Y1=Y1/B8 : N=INT(10*D1*B8+.5) : X=S6 : Y=S7 34590 IF N=0 THEN 34660 34600 FOR 5145 FOR L=1 TO 3 : S6=INT(3*RND(1)-1+B6) 35150 IF (S6<1) OR (S7>10) THEN 35180 35160 S7=INT(3*RND(1)-1+B7) : IF (S7<1) OR (S7NT " WILL REQUIRE APPROXIMATELY";FNR(100*T1/R5); 34180 PRINT "PERCENT" : PRINT " OF OUR REMAINING TIME. ARE YOU SURE "; 341REMAINDER OF THE CREW BEAMS DOWN" 35070 PRINT "TO THE NEAREST HABITABLE PLANET." : IF R3<>0 THEN 35090 35080 F9=9 : GOSUB 1000+ LF-DESTRUCT-SEQUENCE-ACTIVATED" : J=3 36060 FOR I=10 TO 6STEP-1 : PRINT SPC(J);I : GOSUB 36210 : J=J+3 : NEXT 36070 PRINT "EN6+6+~6  >@++*"s#r+*#~_#~WZ r+s##6"###!~#fo~*<*"*}o|g6@#s !*"~#^#V#k*Ð|µÐ++~_w#~Ww#Ð̓*DM~#^#V#'+z+{##{z~ !"~+y7.!t$͘+!A!!tͩ.!ͲͩÌ{ [!0_Q Õ!!+&u!:+v!yÕ!:+T L 36180 F9=10 : GOSUB 10000 : RETURN 36190 PRINT "PASSWORD-REJECTED" 36200 PRINT "CONTINUITY-EFFECTED" : PRINT : RETURN 3 :Gw# !+~+&z+&*~+||<&*~+X!x&.[͒:+2+:+':+|ÁTER-YOUR-MISSION-PASSWORD-TO-CONTINUE" 36080 PRINT "SELF-DESTRUCT-SEQUENCE-OTHERWISE-DESTRUCT" 36090 PRINT "SEQUENCE-WILL-BE-A#r#6"*.*,"}w>#w##~*++6+6 5~)#=4F~)#FG~#b#T++m0:x)l:ʏ#q#p_yxDM~#YP+++"6@###{_zW+r+sɷv*|TZ ^#V+"w#s#r+++r+s##!}!:+Õ!:+/Õ!'!"ʣ!6+*!6-ͩ#60:W:F#>#*")&!F :_ !x*!{!Aq&"E"D" | BK8PYI | BK ) o_ I z z@ F_Lo}`iͺDM>v>v>v>v>v>͉ʅ~|/g}/oÛ!':+Ҥ"~+>2͘ajÚ L}'>2{`h̛~&'-++& . eBORTED" 36100 INPUTB$ : IF B$<>X$ THEN 36190 36110 PRINT "PASSWORD-ACCEPTED" : J=10 36120 FOR I=5 TO 1STEP-1 : PRINT SPC(J);IB::<[EE> E> E>E*%<'<:E&*~+}/o|/g#"~+|͎3!+~wɯ2+&͞/*~+Î3&~/>>à*,{z*.?Ҙ}|~# žyGAxp*GAx#N#F& ò̓QÛ*,*.~*Q͛###0!,!."+60{"+6${+p2!6 Ͳ*z+*|+2}"E~v":V"0V" #~G">DGE""z+`i"|+#~+ʽ"#fo##GNʵyʵ#~#fo~#fo¾#ʴ ¤ yʾy<.))ͣB;jid@:y E. &l L q Q- :G >G ~%ʌ #ʝ !ʞ dG D^ ͧ & '&L!^ _{_ b ̩&!ͤ : GOSUB 36210 : J=J+3 : NEXT 36130 PRINT : PRINT "*****ENTROPY OF ";S5$;" MAXIMIZED*****" 36140 PRINT : IF K3=0 THEN 36180~; #þ !+>!+z+2%# $!+-!+͏+>>G>|}+!-3+6!+>A/2y+!"2!-!+-&@ during G.C. &@ @ Internal Error - String Space Corrup#N#F*yxږ*yxҖ++`i+V+^~*##-ʔ"0OxGҽ"#~{"`xE²"y f">2}"|f"ê"f""z+`i"|+#W$:}""""7 _!45*"~#N#F#]7 k* yxB +++6@#yw#xw+++6###!~6n̓*#~#~Z & ^ ܧ &!!<^ ͧ &^ &t=&nQW THEN 36170 36160 A5=K4(L) : A6=K5(L) : T2$=Q$(A5,A6) : GOSUB 6000 36170 NEX~_#~W#~OD5ð1!|&í1`3 ɇ<o&Î3*~+*+"~+`i"+!~+^#V#N#F#!î225x{'5!+64wg>͏5K5, j%60͑%+~0 #.?#&>"w#6+0#6-/</ 2#:#p#w#6!#z#]$b%z>%)&{O=>%!u#p#6!~#:: œ)<2 * "*)!)" ʲ) * 654> ,)~=²)* ! " ,)" > ,)> ,): =)> > **)^#V#)ɷ ڍ'? ))))صow'a{ <&:+:+Ì:{2|2{Z Z d !" !V"V':2'@?'p$+ʊ,./<͊,9K5:+O3G2+!+A/:+2y+x!+z+.x.G.4m/:y+[.!+~++wK5!z+4#`.4ʊ-+6!+z+# x%6."#H 6,#&%!x&.W&> }%/>Һ%>p#=±%!z+Ϳ%͒>&?}%!*qA*!+͂.?,*!+u.:+<=G.!z+.!*.x,!+5,Ê-,!+N#F3+6,!+>NA/[.2y+:z+ͨ.K5x/%U%!~+*!z+*~+*z+*w#w#w#w#QQA*>z+G*>~+,* ~#=K*!,*#~ ^* ^*Ʌo$ɧGw#t*{)2(:(>\2(('(+,(~(@(+(@(((!V2(C($)O(:(Y(>\(2(y((7 ( ( }('(.ɯ# ….ͅ.Ҩ./!y+Oyw# .G:+.!y+Vwz# ¶.x©.5!y+..xG.!+w5G.~w# .ͧ,5~//ͧ/{_#zW#yO++&̀#p#%>/&&>}%N#F#*~+/}o|gB&"~+p#=/&}%w1_cz+~5#ʂ,z+!+Nwy#’,K5z+ö/!z+ó/!+/`1!`1!+,!+>F+N+=,!+,!z+>q#p#=,!z+-"*,,ͭ,**͑%N%}%b#_y $ ${_x8$>%U%I$>%ý%O>%GO͑%T$*=>%Pk#ѯj$7$y Ozzɡ!8M>͖R͢RͦP!ͳR=sR͎R͎R!5J!>5=›R>!N#F#=¨R>!p+q+=¹R:U:JeL44US!"qA>('›('(> (>%(¥(>#,(¾(6(!V)@( @(x<>(yq#( @(> ($)( @(C(:2(wɪ0 )>^,u/!+-ͧ,5~/!/ͧ,u/͊,!+-y2+!+*~q+7/qX/NsY+M/C/ W~w+b/[/!+_/͎3~/5Ƥ~@zZrN vH Tʚ;@B''d #~: & & &0?<=:'ͳ/5:+5!+N#F3*/q=-Go.m/x &--è.!+I/5-j0 TeB׳]h!I.k ͧ,5~/Ä-ͧ,WO $$/<qQ:<=NQ!Q!"QxR!5RJy2+"~q+(ScM+~UwͦP4UJͳNx>2`h\(@((~ )> ((#)͵ ɒQ* C)#~+@G2+>4x%2Ͱ1!0ͮ24=7-++&͛'O$'H$'+0'9'͛H#e'?'Z M!Q'O'}0?)))صoQ'M!w'u'}͛'0?u/!+-,!+q#~++w+qŸ-K5DNn"~`35zr1{r1h!Iͳ/K5yO2+-ͳ/K5: %h&4%ͷ $ !%&3%t#͘9%p&4%=60#?%N%}%60#=J%{J0"0,D5Q125F0!+64g>͏5|3!>0ak5!B1ͭ1d05xo0,"~͸24&3AA,IM1 +,NOMVE,NFLIPB) IF(IM1.NE.0)GOTO 63 NFLIP(I)=NFLIP(I)+100 GOTO 32 63 DO 36 J=1,IM1 jSXØ4Ø4ch|4{_zW}o|gÙ4"\+"Z+x!Z+~w#½4Ͷ444,J!+qx!+4F#~怩O$5 4 LDBLX PCPNT ;SUB CALL LD (HL),E INC HL LD (HL),D RET ; SWAPX: LDBLX XN ;SWAP X COORDS EX DE,HL LDBLX X*~+:+p2x<=2{_zWxG)yOHG4͠3ñ2<5'5K53y+F+F+Fw`h|2gy2:~+O|g}oxG-|2}2$4E6210 K=12345 : FOR M=1 TO 90 : K=K+1 : NEXT M : RETURN 37001 FOR I=1 TO 10 : GOTO 29040 : RETURN 40000 PRINT "---> COURSE(S) .4x2!020!02`1!0ͭ1`1!0n1d&X4#]I50`1!`1QY`30!13(2 8`31!"14!)1ͭ DO 34 K=1,10 DO 34 L=1,10 34 BTT(K,L)=BT(K,L) CALL BOARDC(MBI,MBJ,J,IAA,JAA,BTT,-OC,DIRB,LCB) IF(4go"~+"+25s#r#q#pD5<5'5D5"~+`i"+*~+*+DM^#V#N#F#xyS5:+:+7|/G}/O!>v5 u57>{_zW}o|NM SDBLX XN EX DE,HL SDBLX XNM RET ; SWAPY: LDBLX YN ;SWAP Y COORDS EX DE,HL LDBLX YNM SDBLX YN EX DE,HLlaO2!+~Gx3ƀ5w3w+ɷ4525x{'5!+64wgD3zC3 >͏5|4{>2+$4/wK5425ʹ2͂1LL.EQ.0)GOTO 38 IC=1 IZ=IY(LL) JZ=JY(LL) IF(B(IZ,JZ).NE.-OC)GOTO 41 MK=JMID(LL) ML=g=l5|g}oڞ5CZQÑ5 o-yOzW{_xGá5~+*+DM^#V#N#F#xyS5:+:+7|/G}/O!>v5 u57>{_zW}o| SDBLX YNM RET ; ; ACCELERATION TABLE XATAB: DEFW 0 DEFW ACON1 YATAB: DEFW ACON DEFW ACON1 DEFW 0 DEFW -ACON1 ~+~+~LUX)!"+3$44͎33z3zB3|G||3[53,O_yW!+~/woG}_}W}O4'5!+~7 SCORE INC A DAA LD (HL),A ; SCHED SHIP START LDBLX PEPNT ;SHIP ENTRY ADDR LD (HL),-1 ;MASK = -1 LD A,(24~#5=xͱ2<5ͳ1Í1͠3ð1<5K5:+$51/<3K53g͏5!~+1~_#~W#~O4#44.ͥ54G~_#~W#IMID(LL) IF(B(ML,MK).EQ.0)NSUBO=90 41 IF(BTT(MI,MJ).NE.OC)GOTO 38 NFLIP(I)=NFLIP(I)-40 IC=2 38 CL=J 56 CONTINUE CALL BOARDC(MOVESI,MOVESJ,I,IAA,JAA,BT,OC,DIR,LC) CALL MOVEG(BT,-OC,NM,MBI,MBJ,DIRB,LCB,JAA,I DEFW -ACON DEFW -ACON1 DEFW 0 DEFW ACON1 ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; TORPEDO FLY PROGRAM ;;w?##wy7O*~+*+"+"~+ajSXk45JS\E!+5/Oó1͠3%2<53K5ȯG3"g+y2i+Fo33!D*~+:+Ob2+44z2͊2g.*g+:i+Ozc2͊2g.ONTINUE CALL COUNT(BTT,-OC,NOC) IF(NOC.GT.0)GOTO 42 NFLIP(I)=NFLIP(I)-200 GOTO 32 42 DO 37 K. AVEN'T THE ENERGY TO GO THAT FAR WITH"; 34070 PRINT " THE SHIELDS UP." : RETURN 34080 W=INT((E1/(D1+.05))^.333333) : IF W<=0 TWARP ENGINES." 34720 PRINT " WE'LL HAVE TO SHUT 'ER DOWN HERE, CAPTAIN.'" 34725 D4(6)=D5*(3*RND(1)+1) 34740 J3=1 : RETURN FOR L=1 TO N 34610 X=X+X1 : Q=INT(X+.5) : IF (Q<1) OR (Q>10) THEN 34660 34620 Y=Y+Y1 : R=INT(Y+.5) : IF (R<1) OR (R>10) THEN 3 (S7>10) THEN 35180 35170 IF Q$(S6,S7)="." THEN 35190 35180 NEXT L : GOTO 35140 35190 S5$="FAERIE QUEENE" : Q$(S6,S7)=LEFT$(S 34190 INPUT "THIS IS WISE";B$ : IF LEFT$(B$,1)="Y" THEN 34500 34200 J3=0 : RETURN 34500 Q4=0 : W=0 : IF W1<=6 THEN 34660 34510000 : RETURN 35090 PRINT : PRINT "YOU ARE CAPTURED BY KLINGONS AND RELEASED TO" 35100 PRINT "THE FEDERATION IN A PRISONER-OHEN 34130 34090 PRINT " WE HAVEN'T THE ENERGY. BUT WE COULD DO IT AT WARP";W 34100 IF S4<>0 THEN 34120 34110 RETURN 34120 34750 PRINT "WARP ENGINES DAMAGED." : RETURN 35001 ONSGN(D4(10))+2 GOTO 35010,35030,35020 35010 PRINT "YE FAERIE QUEENE HAS NO4660 34630 IF Q$(Q,R)="." THEN 34650 34640 Q4=0 : W=0 34650 NEXT L 34660 GOSUB 15001 : IF A2<>0 THEN RETURN 34670 E1=E1-D1*5$,1) : C5$="DOCKED" 35200 FOR L=1 TO 12 : D4(L)=0 : NEXT : D4(10)=-1 : E1=3000 : I7=E1 35210 S3=1500 : I8=S3 : T4=6 : I9=T4 10 P=D1*(6-W1)^2/66.6667 : IF P>RND(1) THEN Q4=1 34520 IF Q4<>0 THEN D1=RND(1)*D1 34530 W=0 : IF W1<10 THEN 34550 34540 IF .2F-WAR EXCHANGE." 35110 PRINT "STARFLEET PUTS YOU IN COMMAND OF ANOTHER SHIP," 35120 PRINT "THE FAERIE QUEENE WHICH IS ANTIQUATPRINT " IF YOU'LL LOWER THE SHIELDS." : RETURN 34130 PRINT " WE CAN'T DO IT, CAPTAIN. WE HAVEN'T GOT THE ENERGY." 34140 RE SHUTTLE CRAFT." : RETURN 35020 PRINT "SHUTTLE CRAFT DAMAGED." : RETURN 35030 PRINT : PRINT "***ABANDON SHIP! ABANDON SHIP!"W1*W1*W1*(S4+1) : IF E1>0 THEN 34690 34680 F9=4 : GOSUB 10000 : RETURN 34690 T1=10*D1/W2 : IF W<>0 THEN GOSUB 30001 34700 IF : L1=3 : J1=L1 : S4=0 : W1=5 : W2=25 35220 RETURN 36001 IF D4(11)=0 THEN 36030 36010 PRINT "COMPUTER DAMAGED - CANNOT EXECUTE5*D1>RND(1) THEN W=1 34550 IF (Q4=0) AND (W=0) THEN 34660 34560 A=(15-D2)*.5236 : X1=-SIN(A) : X2=COS(A) 34570 B8=ABS(X1) : IED, BUT" 35130 PRINT "STILL USABLE." : N=INT(RND(1)*R3+1) : Q1=B2(N) : Q2=B3(N) 35140 S6=5 : S7=5 : GOSUB 18000 : Q$(S6,S7)=".TURN 34150 T1=10*D1/W2 : IF T1<.8*R5 THEN 34500 34160 PRINT : PRINT "MR. SPOCK - 'CAPTAIN, I COMPUTE THAT SUCH A TRIP" 34170 35040 PRINT "***ALL HANDS ABANDON SHIP!" : PRINT 35050 PRINT "YOU AND THE BRIDGE CREW ESCAPE IN THE GALILEO." 35060 PRINT "Q4=0 THEN 34740 34710 PRINT : PRINT "ENGINEERING TO BRIDGE--" : PRINT " SCOTT HERE- "; 34715 PRINT "'WE'VE JUST BLOWN THE  DESTRUCT SEQUENCE" 36020 RETURN 36030 PRINT : PRINT " ---WORKING---" 36040 PRINT "IDENTIF ICATION-POSITIVE" 36050 PRINTF ABS(X2)>ABS(X1) THEN B8=ABS(X2) 34580 X1=X1/B8 : Y1=Y1/B8 : N=INT(10*D1*B8+.5) : X=S6 : Y=S7 34590 IF N=0 THEN 34660 34600 " 35145 FOR L=1 TO 3 : S6=INT(3*RND(1)-1+B6) 35150 IF (S6<1) OR (S7>10) THEN 35180 35160 S7=INT(3*RND(1)-1+B7) : IF (S7<1) OR PRINT " WILL REQUIRE APPROXIMATELY";FNR(100*T1/R5); 34180 PRINT "PERCENT" : PRINT " OF OUR REMAINING TIME. ARE YOU SURE "; THE REMAINDER OF THE CREW BEAMS DOWN" 35070 PRINT "TO THE NEAREST HABITABLE PLANET." : IF R3<>0 THEN 35090 35080 F9=9 : GOSUB /  "SELF-DESTRUCT-SEQUENCE-ACTIVATED" : J=3 36060 FOR I=10 TO 6STEP-1 : PRINT SPC(J);I : GOSUB 36210 : J=J+3 : NEXT 36070 PRINTDINS LOADX A,ORENT DEC A ;DOWN BY 1 AND 7 STORX A,ORENT ;INSERT ORENT IN DISPLAY FILE DINS: LOADX D,ORENT LD D,1 SCALL 2 ;RANDOM # IN A CP 0 ;> ZERO JP P,NODST ;YES--DON'T DESTRY LD D,-1 ;NO--DESTRY NODST: ;;;;;;;;;;;;;;;;;;;;;;;;;;; CTLC: EQU 'C' KBDCD: LD C,A ;SAVE CHAR CP CTLC ;"C"? RET NZ ;RETURN IF NOT LD NEXT L 36180 F9=10 : GOSUB 10000 : RETURN 36190 PRINT "PASSWORD-REJECTED" 36200 PRINT "CONTINUITY-EFFECTED" : PRINT : RETURPEDO FIRE INC HL LD (HL),0 ; CHECK FOR SPENT TORPEDOS SPNCK: LDBLX FBPNT ; TORPEDO POINTER ; FIND CLAIMED TORPEDO  "ENTER-YOUR-MISSION-PASSWORD-TO-CONTINUE" 36080 PRINT "SELF-DESTRUCT-SEQUENCE-OTHERWISE-DESTRUCT" 36090 PRINT "SEQUENCE-WILL-DBLX PDPNT ;ORENTATION IN DISPLAY LD A,(HL) AND 0F8H ;STRIP OLD ORENT BITS OR D ;INSERT NEW LD (HL),A ; STORX D,HFLAG ;INDICATE TO SSHIP START PGM JP SPNCK ; END OF HYPERSPACE PROCESSING ; CHECK FOR CW (CLOCKWISE) ROTATIO HL,IENT1+1 ;SCHED INIT1 LD (HL),0 LD HL,IENT2+1 ;SCHED INIT2 LD (HL),0 RET ; END N 36210 K=12345 : FOR M=1 TO 90 : K=K+1 : NEXT M : RETURN 37001 FOR I=1 TO 10 : GOTO 29040 : RETURN 40000 PRINT "---> COURSE(WITH TIMEOUT ; FOR THIS SHIP LD B,H ;HL -> BC LD C,L LOADX A,RCNT CP 0 ;TEST FOR CLAIMED RET Z ;NOT CBE-ABORTED" 36100 INPUTB$ : IF B$<>X$ THEN 36190 36110 PRINT "PASSWORD-ACCEPTED" : J=10 36120 FOR I=5 TO 1STEP-1 : PRINT SPC( CHECK IF FIRE BUTTON ON FIRCK: LDBLX BAPNT ;BUTTON ADDR LD D,(HL) ;BUTTON WORD LOADX A,FIREM ;FIRE MASK AN CWCK: LOADX A,CWM ;MASK FOR CW AND D JP Z,CCWCK ;CHECK FOR CCW LOADX A,ORENT ;OLD ORIENTATION INC A -.06#~6+12#w+~:w!:H~go -: *+öH!FXo>:$~##~O++###^#VBà)r+sx##^#V@S) .01-12 ONLY !!!" : RETURN LAIMED DEC A ;DECREMENT TIMER STORX A,RCNT ;RESTORE IN BLOCK RET NZ ;NOT ZERO YET LDBLX INPNT LD (HL),0J);I : GOSUB 36210 : J=J+3 : NEXT 36130 PRINT : PRINT "*****ENTROPY OF ";S5$;" MAXIMIZED*****" 36140 PRINT : IF K3=0 THEN 3ND D JP NZ,INCHK ;SEE IF INHIBIT LD A,0 ;NO FIRE -- CLEAR INH STORX A,FINH JP SPNCK INCHK: LOADX A,FINH ; ;UP BY 1 AND 7 STORX A,ORENT ; CHECK FOR CCW (COUNTERCLOCKWISE) CCWCK: LOADX A,CCWM ;MASK FOR CCW AND D JP Z,NMAZE REL$#$%&$MAZE PRNMAZE ASC""T ;SHIP START ENTRY LD (HL),-1 LD A,(TIME) ADD HDLY INC HL LD (HL),A ; SEE IF WE NEED TO DESTROY SHIP LATER L ;BLANK TORPEDO RET ; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ; KEYBOARD DECODE PROGRAM ;;;;;;;;;;;;;;;;;;;6180 36150 W=20*E1 : FOR L=1 TO K3 : IF K6(L)*K7(L)>W THEN 36170 36160 A5=K4(L) : A6=K5(L) : T2$=Q$(A5,A6) : GOSUB 6000 36170CHECK INHIBIT FLG CP 0 JP NZ,SPNCK ;SET LD A,1 ;NOT SET -- SET IT STORX A,FINH LDBLX FIPNT ;SCHEDULE TOR0 MAZE ASCRELCRFPRNLANDER ASC !"MAZE REL$#$%&1175 IF(L9=5)OR(L9=9)THENPRINT 21180 PRINTFNR(X5);"-";FNR(Y5);", "; 21185 IFQ$(A5,A6)<>"."THEN21195 21190 GOTO21425 21195 PR)):GOTO21440 21125 IF(S4<>0)OR(C5$="DOCKED")THENR=R+1E-03*S3*R 21130 A3=C6+.25*R:IFN=1THEN21140 21135 A8=(15-A3+(2-Z6)*G2)*.5050 INPUT"WANT INSTRUCTIONS (Y OR N)";I$ 1060 IF I$="Y" THEN 1080 1070 IF I$="N" THEN 1170 ELSE 1050 1080 PRINT 1090 PRINT G2>30)THEN21060 21063 G2=FND(G2) 21065 N=3 21070 FORZ6=1TON 21075 IFC5$<>"DOCKED"THENT4=T4-1 21080 Z7=Z6:R=RND(1) 21085 R=C"THENPRINT"*** COMMANDER AT"; 21265 PRINTA5;"-";A6; 21270 A7=A8+2.5*(RND(1)-.5) 21275 W3=ABS(-SIN(A7)):IFABS(COS(A7))>W3THENBIO REL"'()*+BIO COMs,-./0123456789:l*"!nB"*RLf$#)!W)"* g4$ C" gD$*v@)"JINT:IFQ$(A5,A6)="K"THEN21220 21200 IFQ$(A5,A6)<>"C"THEN21325 21205 IFRND(1)>.1THEN21220 21210 PRINT"*** COMMANDER AT SECTOR";23599:PRINT 21137 PRINT"TRACK FOR TORPEDO NUMBER";Z7;"--":GOTO21145 21140 PRINT:PRINT"TORPEDO TRACK --":A8=(15-A3)*.523599 21"THIS PROGRAM WILL PRINT OUT A DIF FERENT MAZE EVERY TIME IT" 1100 PRINT "IS RUN AND GUARANTEES ONLY ONE PATH THROUGH. YOU CAN(R+RND(1))*.5-.5 21090 IF(R>=-.4)AND(R<=.4)THEN21125 21095 R=(RND(1)+1.2)*R:IFN=3THEN21105 21100 PRINT"*** METEORITE DEFLECTIW3=ABS(COS(A7)) 21280 X7=-SIN(A7)/W3:Y7=COS(A7)/W3 21285 P=INT(A5+X7+.5):Q=INT(A6+Y7+.5) 21290 IF(P<1)OR(P>10)OR(Q<1)OR(Q>10)f @"b2B g*(+FD"$g' q"JjABS(X4)THENB8=ABS(Y4) 21150 X4=X4/B8:Y4=Y4/B8:X5=S6:Y5=S7 21155 FORL9=1 CHOOSE" 1110 PRINT "THE DIMENSIONS OF THE MAZE. I.E. NUMBER OF SQUARES WIDE" 1120 PRINT "AND THE NUMBER OF SQUARES LONG. 113ON":R=INT(RND(1)*50)+1 21101 PRINT"TORPEDO EFFECTIVENESS REDUCED"; R;"%":PRINT:GOTO21110 21105 PRINT"*** TORPEDO NUMBER";Z6;"M1000 DIM W(23,23),V(50,50) 1010 'THIS VERSION RUNS IN 48K-CHANGE DIM STATEMENTS IN LINE 20 1020 'FOR DIF FERENT MEMORY SIZES.6=K5(V))THEN21235 21230 NEXTV 21235 K=K6(V):W3=200+800*RND(1) 21240 IFABS(K)10)THEN21430 21165 Y5=Y5+Y4:A6=INT(Y5+.5) 21170 IF(A6<1)OR(A6>10)THEN21430 20 PRINT "THE MAXIMUM WIDTH OF THE MAZE IS 23 SQUARES; AND THE MAXIMUM" 1140 PRINT "LENGTH IS 50 SQUARES" 1150 PRINT 1160 PRIISFIRE - ";R;"% DOWN" 21110 IF RND(1)>.2THEN21125 21115 PRINT"*** PHOTON TUBES DAMAGED BY MISFIRE." 21120 D4(4)=D5*(1+2*RND(1...... 1030 'ALSO NOTE SUCH CHANGES IN LINES 170 AND 240 1040 PRINT " ----------- MAZE -----------":PRINT :PRINT :PRINT 1BURST. ONLY";T4;"TORPEDOS LEFT.":GOTO21035 21060 INPUT"SPREAD ANGLE (3 - 30 DEG)";G2 21061 IFG2<0THEN21035 21062 IF(G2<3)OR(K6(V)<>0THEN21255 21250 T2$=Q$(A5,A6):GOSUB6000:GOTO21435 21255 IFQ$(A5,A6)="K"THENPRINT"*** KLINGON AT"; 21260 IFQ$(A5,A6)="1 NT 1170 INPUT" WIDTH";H 1180 INPUT" LENGTH";V 1190 PRINT 1200 IF H<2 OR H>23 THEN 1220 ELSE 1250 1210 IF V<2 OR V>50 TF W(R+1,S)<>0 THEN 2020 1930 IF S<>V THEN 1970 1940 IF Z=1 THEN 2000 1950 Q=1 1960 GOTO 1980 1970 IF W(R,S+1)<>0 THEN 2000 THEN 1810 1710 IF W(R+1,S)<>0 THEN 1810 1720 IF S<>V THEN 1760 1730 IF Z=1 THEN 1790 1740 Q=1 1750 GOTO 1770 1760 F Q=1 THEN 2610 2520 W(R,S+1)=C 2530 C=C+1 2540 IF V(R,S)=0 THEN 2570 2550 V(R,S)=3 2560 GOTO 2580 2570 V(R,S)=1 2580 S=S0 1510 R=R+1 1520 IF W(R,S)=0 THEN 1430 1530 IF R-1=0 THEN 1890 1540 IF W(R-1,S)<>0 THEN 1890 1550 IF S-1=0 THEN 140 2210 IF Z=1 THEN 2260 2220 Q=1 2230 GOTO 2250 2240 IF W(R,S+1)<>0 THEN 2260 2250 GOTO 2510 2260 GOTO 2710 2270 W(R-1,SHEN 1220 ELSE 1250 1220 PRINT "MEANINGLESS DIMENSIONS, TRY AGAIN." 1230 PRINT 1240 GOTO 1170 1250 PRINT CHR$(26):PRINT 1 1980 X=INT(RND(7)*4) 1990 ON X GOTO 2340,2410,2510 2000 X=INT(RND(7)*3) 2010 ON X GOTO 2340,2410 2020 IF S<>V THEN 2060 20IF W(R,S+1)<>0 THEN 1790 1770 X=INT(RND(7)*3+1) 1780 ON X GOTO 2270,2410,2510 1790 X=INT(RND(7)*3) 1800 ON X GOTO 2270,241+1 2590 IF C=H*V+1 THEN 2720 2600 GOTO 1530 2610 Z=1 2620 IF V(R,S)=0 THEN 2660 2630 V(R,S)=3 2640 Q=0 2650 GOTO 2710 26700 1560 IF W(R,S-1)<>0 THEN 1700 1570 IF R=H THEN 1610 1580 IF W(R+1,S)<>0 THEN 1610 1590 X=INT(RND(7)*3+1) 1600 ON)=C 2280 C=C+1 2290 V(R-1,S)=2 2300 R=R-1 2310 IF C=H*V+1 THEN 2720 2320 Q=0 2330 GOTO 1530 2340 W(R,S-1)=C 2350 C=C+1 260 PRINT 1270 Q=0 1280 Z=0 1290 X= INT(RND(7)*H+1) 1300 FOR I=1 TO H 1310 IF I=X THEN 1340 1320 PRINT ":--"; 1330 G30 IF Z=1 THEN 2090 2040 Q=1 2050 GOTO 2070 2060 IF W(R,S+1)<>0 THEN 2090 2070 X=INT(RND(8)*3) 2080 ON X GOTO 2340,2510 200 1810 IF S<>V THEN 1850 1820 IF Z=1 THEN 1880 1830 Q=1 1840 GOTO 1860 1850 IF W(R,S+1)<>0 THEN 1880 1860 X=INT(RND(7)*3) 60 V(R,S)=1 2670 Q=0 2680 R=1 2690 S=1 2700 GOTO 1520 2710 GOTO 1430 2720 FOR J=1 TO V 2730 PRINT "I"; 2740 FOR I=1 TO H X GOTO 2270,2340,2410 1610 IF S<>V THEN 1650 1620 IF Z=1 THEN 1680 1630 Q=1 1640 GOTO 1660 1650 IF W(R,S+1)<>0 THEN2360 V(R,S-1)=1 2370 S=S-1 2380 IF C=H*V+1 THEN 2720 2390 Q=0 2400 GOTO 1530 2410 W(R+1,S)=C 2420 C=C+1 2430 IF V(R,S)=0 OTO 1350 1340 PRINT ": "; 1350 NEXT I 1360 PRINT ":" 1370 C=1 1380 W(X,1)=C 1390 C=C+1 1400 R=X 1410 S=1 1420 GOTO 15390 GOTO 2340 2100 IF R=H THEN 2200 2110 IF W(R+1,S)<>0 THEN 2200 2120 IF S<>V THEN 2160 2130 IF Z=1 THEN 2190 2140 Q=1 215 1870 ON X GOTO 2270,2510 1880 GOTO 2270 1890 IF S-1=0 THEN 2100 1900 IF W(R,S-1)<>0 THEN 2100 1910 IF R=H THEN 2020 1920 I 2750 IF V(I,J)<2 THEN 2780 2760 PRINT " "; 2770 GOTO 2790 2780 PRINT " I"; 2790 NEXT I 2800 PRINT 2810 FOR I=1 TO H  1680 1660 X=INT(RND(7)*3+1) 1670 ON X GOTO 2270,2340,2510 1680 X=INT(RND(7)*2+1) 1690 ON X GOTO 2270,2340 1700 IF R=H THEN 2460 2440 V(R,S)=3 2450 GOTO 2470 2460 V(R,S)=2 2470 R=R+1 2480 IF C=H*V+1 THEN 2720 2490 Q=0 2500 GOTO 1890 2510 I0 1430 IF R<>H THEN 1510 1440 IF S<>V THEN 1480 1450 R=1 1460 S=1 1470 GOTO 1520 1480 R=1 1490 S=S+1 1500 GOTO 1520 GOTO 2170 2160 IF W(R,S+1)<>0 THEN 2190 2170 X=INT(RND(8)*3) 2180 ON X GOTO 2410,2510 2190 GOTO 2410 2200 IF S<>V THEN 222  2820 IF V(I,J)=0 THEN 2860 2830 IF V(I,J)=2 THEN 2860 2840 PRINT ": "; 2850 GOTO 2870 2860 PRINT ":--"; 2870 NEXT I 2880710 GOTO 1430 2720 FOR J=1 TO V 2730 PRINT "I"; 2740 FOR I=1 TO H 2750 IF V(I,J)<2 THEN 2780 2760 PRINT " "; 2770 GOTO 2C:CCO!~6G"D#~ DC*@x+#D~D2p:BD2p::h:5D͞D>*sD )@> sD:*@!+@"{@o>g6 #> w~# \D TEES ONLY ONE PATH THROUGH. YOU CAN CHOOSE" 1110 PRINT "THE DIMENSIONS OF THE MAZE. I.E. NUMBER OF SQUARES WIDE" 1120 PRINT "A7B 7JͣB;B 7!:͗B:d:!u:wB!::o:2B:;> =(BwB:l:GB:i:GB:j:2l: _2Eͨ PRINT ":" 2890 NEXT J 2900 RESET 790 2780 PRINT " I"; 2790 NEXT I 2800 PRINT 2810 FOR I=1 TO H PMAZE,TTY:=MAZE.ASC/N MAZE ASC"\D ˜D#"{@_*{@+~ #C#"{@+~7ȷ> sD> sD'BxB\DOx=yC[A@21020 'FOR DIF FERENT MEMORY SIZES....... 1030 'ALSO NOTE SUCH CHANGES IN LINES 170 AND 240 1040 PRINT " ----------- MAZE -A@?Command error?File not found?Can't enter file~sD#î@!}@@!@@!@ͮ@:ACOMSCN PRINT ":" 2890 NEXT J 2900 RESET <@$E<ʿ@!"'>)>!:~ED w#-Ew:[E)>:l:ʏ 50 SQUARES" 1150 PRINT 1160 PRINT 1170 INPUT" WIDTH";H 1180 INPUT" LENGTH";V 1190 PRINT 1200 IF H<2 OR H>23 THEN 122;Cx B ;NC\DBTC\DT7\DY7BL8C\DS7\DT7>BR7\DD7R7>B> _C6 #=WCy.2----------":PRINT :PRINT :PRINT 1050 INPUT"WANT INSTRUCTIONS (Y OR N)";I$ 1060 IF I$="Y" THEN 1080 1070 IF I$="N" THEN 1170 @";@A:@G:@O*.A# AA A@2@*+++"e:*;:p:2h:*e:C:+@ :A2t:2l:2r:2q:2o:2n:2s:<2m:2k0 V(R,S)=1 2670 Q=0 2680 R=1 2690 S=1 2700 GOTO 1520 2B::<[EE> E> E>E*%<'<:E'<:RE:n:ʏB:u:[E>`F*#;%;u:E%;u:RE|}Eƀ)`ig:C;xwCʄC\DxCy/y\DLC2l:\DOÅCͣCÖC!CHʰC7~~!ʻC#wE@4BX`ZNDSCT"\D[C0CAELSE 1050 1080 PRINT 1090 PRINT "THIS PROGRAM WILL PRINT OUT A DIF FERENT MAZE EVERY TIME IT" 1100 PRINT "IS RUN AND GUARAN:@ů2d:B;ͣB; †A>2d:!u:͗B> 2;2;2;y,2n:°A:d:2n:B ;:o:ʽA;ͣB;:;2j: 2i:A:d:@2d:!:͗By=3 0F> E> E> E:l:ʏB::"G =0F!%;>!u:0F:n:>.!N#G.xʖL}!GxLƀwKEMw+ʹL/JT#MxUGcJ!4U::/<!Op#6òJL]xPʶ!:M}J/<MMEMg=K|!JKJ#4U.dKJG~_#~W#~O)KhcGyJJTeox¸J2|JyJOJ)zͥQxQ:2zQKQ4UQKQ>|Q!ܒQG::Q!Vwz# QxQJ!Q2QxKQ!wJ:]Q!~++w!4#qH2nG2oG:oG=HrGNGڱH!rG"pG>2oG*pG~¬H7ñH#"pGɅo$ɧGw#¿HG~#H#H++G~#H#z< ]ʹLOLOL]&OʶON!~:~N6{yͲJ!~JOO+~+6O!IO\NàNy#MEM+6+qzO:O!ʏB:u:rD*#;|=UF#"#;$;w::<ʃDG*'>|̨F#"'>(>ÖD)>>:=F!=­F!>F_!t: ~wLog\N]ʶL*||þL**&M"`i"!^#V#N#F#!2Q# ˆQ~/w!Oyw#œQqڼQNsY+±QçQ W~w+QÿQ!Q~w# Q#H+++ͶH~#fo{z|/g}/o## II a{ >!JIͶH~#fo><5I0/}_|W=&I)T]))ɯ!>ͥQ]Q2Q!~5#}O!xʢO>)ڶ)ҞO ڶ=O|GnPyôO|Gz[N͔NM͈PT|\NbPDM!>)F F E~F G7ȷ!BGͮ@@@3G> sD!HGͮ@͞DDISK FULL8M]xʴL!LʹLy!y͏M#x+y+z+{z|L¯M}ÿL!8MʴL!LʹLO!y#ŒM+M͸MOzW{_xG`KʹL.rLy2K"KPX!J!K!~#KWyҬKO|g}oxGKx GzžKCZQOM!.RMʹLU.rL4L:JhLSqRGzQQx RQQ!ͭQRL} :AFR"R!8MQ:VR2!L͎R!8M͎RxGyOvIvIKP JP7>{_zW}o|g=APO|G½L]*ʶ: N~NKNNcM!U]MͦP~NNTJ:2:ҨN:=NBNHN|/g}/o\N!:eNN">2T4T+~2L+~2 L+~2LAOW_2L}o|gxG>? L2L7y<=>L:Lx9L> J{_zWyO)xG:L2LyL!5LJͦP!8M>͖R͢RͦP!ͳR=sR͎R͎R!5J!>5=›R>!N#F#=¨R>!p+q+=¹R:U:JeL44US!"qA>))صoI~/#=IJ~/#JJ0:$Jw#zJ{J!AJJ+~w+J|/J}/J6#KJ!U&McJ&MLxiP|\NOoyg\N*nP|ͶNL(Pg{o_NjP!~w!~G+NZMP/<#Fwx+ PF+N9EM!G>w2!!NG:> H@qHw#2g:.8H!8Hw#H2g:.?H!&H?H6 #8H:g:.LHJw#LHprGNGuMaj[N]Nʶ#MͶNxEM!FJ*ͶN|UL]ʶN!"">>aN]öGOW_#MEMgN>=K|K)K4 qQ?R>qQ:<=NQ!Q!"QxR!5RJy2+"~q+(ScM+~UwͦP4UJͳNx>2`h\mm.k1kkSke kk&knnnDlm1nnnnn\nGnonnnwnonntl~l poomqFqpeppwppppWpRpoooooooooopap͉IJ!?͉Iê3J!MO͉IJ!?͉IJ!?͉IRL2@RL2@! @EqK29K@!k&K̈́L2RL22͟L@ã4N~&y-yS+yS+M`T.TeʋSEµSMlʣSLʣSqʣSQʴS:S>S~%T#$T!%TdSDS.TMnMTS_qnoooook}oposoaoFononnonnn!Z ?ZHZZZZZZ*[K[b[p[[[[e [5_ ҈ZH\z\z\\\L_ZT_Y_____OFxROySRSRSRSRSRSRSRSRSRSRSҮSINǞARPTҖAAIrIDTzHILŀENāRITlOxhp@xh@QQQQQQAppAp@A;! @E?L9K@!k&K̈́L2!2͹M9S::L22i7!2͹M͗M5K2@M)) ͔LAMi7L226L2@E7RL2@75K2@M͗UDŋNBӽSæӔTξUTϓASŕLEAҒALiLOS{INԡSNǢDḄHROVVVONԓHAIΉOMMOΒATVI͆EFDBsEFINtEFSNuEFSTvELETœE`L224J!<>eIÜ4J!6>eI5K2@̈́L2L22~4J!2>͉IRL2@!2͹M))jgL25K2@̈́L2RL22RL2@V5L22(5L22{_=TMTSL]!KeN] S.TySM!K!MS.TMStNĠN]L2S=]K2RNJ!$~#foX##~#foXXiqM!2͹M)) ͔LAME7! @EqK?9K@!k&K̈́L2!2͹M9S::;! @EqK?!k&K̈́L2!2͹M9S::L227L2@7RL2NćQLSŝRRORRDIԓRASŒXOO҈IELfILEӊIRŤOSUWOTXE|ςEXYNPUTNPU[MNSTҸNХNNKEYIL̄E\ISԓINcL5RL2@RL2@45RL2@5K2@̈́L2455K2@̈́L2!2͹M͗M!2͹M)) ͔LFM45K2@FM7!2͹M͗M5K2@M)) ~0]T* _ ҕTT])))O |T"ySy͑N7ҵTt$uMT͝LTÍTͪN2ScMLͪNͦPÍTMLcJ{ T0_22ͯMJ!?͉IJ!?͉IJ!?͉IJ!?͉I!?H͑F!2ͺG2!?zOY32!?zO3.3J!?͉IJ!j?͉IJ!,?͉IJ!>͉IJ)*j"j*j*j~!o"j*j2j-Y~ge O!BY N#FZ"j"j"j*j"jGlVlkle 8ljjjjj kjjmm5mly@ë75K2@M͗M!2͹M)) ͔LAM7! @EqK?!k&K̈́L2!2͹M9S:;:5K2@FM'95K2@M͗M!2͹M)) ͔LISԓPRINwOAēEFTOEΧSEgPOӪOOOERGœIDKIKSKDEדEXjOULoAMŅpUaPE}CTPTIOqRINkOKbOӨU~EE˫EA͔LAM75K2@FM65K2@M͗M!2͹M)) ͔LAM6L226!2͹M͗M5K2@M)) ͔LAM6! @EqK?9K@!k&KS!]T:TyU:U:/UyU:!"*|KU!~8U=KU4*ͮ2> > !UXUU2M]jU!!>͉IJ!>͉IJ!z>͉IJ!?͉IJ!?͉I!q>H͑F!2ͺG!g>H͑F!2ͺGJ!?͉IͻL2@;L2@|g}o|4(4ͻL2@;L5 AM'9L228!2͹M͗M5K2@M)) ͔LAM8L22O8L2@8RL2@u85K2@M͗M!2͹M)) ͔LAM8! @E?L!GTH IS 50 SQUARES<>THE MAXIMUM WIDTH OF THE MAZE IS 23 SQUARES; AND THE MAXIMUM>AND THE NUMBER OF SQUARES LONG.7>THE DIMENSIM͗M3!2͹M)) ͔LFMJ!.>eIRL22͟L@h=!2͹M͗M3!2͹M)) ͔LM@X=J!(>eIa=J!">eI5K2@̈́L2L22(=J!?͉I$IOERR 2DX H$W52Es()I$MJARG`2DT I$ND `bE4I@h2\.=G&z:*XtT> 4f͹M͗M5K2@M)) gL25K2@̈́L2!2͹M͗M3!2͹M)) ͔LFMp;!2͹M͗M3!2͹M)) gL?Ï;!2͹M͗M3!2$@+4pRfhɌRDC(($ICPIU DdC)@t# 5YF@!"j ld&&N`BDӓQ%5U2j6d'ū!|Z#!?EqK?!k&K̈́L2!2͹M9S:;Â:L229!2͹M͗M5K2@M)) ͔LAM9L22r9L2@9RL2@Ø95K2@M͗MRINT OUT A DIF FERENT MAZE EVERY TIME IT?N?Y?WANT INSTRUCTIONS (Y OR N) ? ----------- MAZE -----------?@@RL22͟L@=!2͹M͗M3!2͹M)) ͔LFM=!2͹M͗M3!2͹M)) ͔LM@=J!6>eI=J!<>eI5K2@̈́L2L22="t"TD*3n 3m K3@ʽ> ^2 aQa`xʰu|+U^2 Y?!@#[ M)) gL@5K2@̈́L2mK229K@M2=RL2@7L2@u<5K2@M͗M!2͹M)) gL25K2@̈́L2!2͹M͗M3!24M)u$z¡ QREX %9BOUTf`^L(POKEf6Lt((@l?cH B#@ =UPF0  !2͹M)) ͔LAM9!?EqK?!k&K̈́L2!2͹M9S:;:L229L2@:RL2@:5K2@M͗M!2͹M)) ͔LAM`HH8[[[[ BASLIB #100937 5.24 - OWNED BY MICROSOFT, 1980 e@DM*"O*6S##"OLA>J!2>͉I5K2@̈́L2L22= cA%> I+> 1>I5>:9>: ?>:--"E>MEANINGLESS DIMENSIONS, TRY AGAIN.j> LENGTHt> WIDTH}>LENVTB9Xu]+lg7"wCj6h*مs Zl»@sx Ff7d 4 d EL@M)) ͔LFM4A";A6#6P>2BA>2AA>2@A\@@_@@@_26 8͢B"†Uo fp@I@(I@)e{UnulC(S@_F(ç #^<}UU_f p?n)l>p.#0- / 1CFA3o+uvA\f0vhͼ@bͼê !'ux#;XWl@D7(uqvf۰GH#6  [2#6wFa^AeZU> yF";^>` T}B:*x :*x :x:@s i"Xe|٠u°@V dl Px? ̅2BAͲAV dB ᣸&a[f` a^qU;  YT %'eZpA{‡V(eRAXw)|[T MٷIQ[ͪ|!iaE}U`00W@xeSٵT uV`f)0#jCٵT!]'oY\,uz@:hcv &#??쫄Z ??Grj@W!#aXW!#??øC=yQ @ aP a\@UIjʸB8"":4a^/cYV-k‡:Ͷ!}Y Uڪ0ʽGUaZ@k‡+::ڪ͵L;H!![p·@,-[` L"VB#H23*+x >+ ͷ`*bõb^~[(8#;ìc?uY*eT`Á-V,CFAOꦂVCDA@qUBgฌ 0+ `(@oPU*΂^xĂV4k5<0u[G =e\Vm$MS6ʄ @@ GV!n¬#aV@Ueul*V" :#*2V uPBV*!BU|%B P*; H VX$|-Y ;H: Rm r "+]H耑 EuEW* m 0DWý#(r>&-*rGWn§B""C36\ UXt,|f֠qU*Rp%YK2#dڮՠd jµV \Յkٶt `˭! v0n"n;r:@"x w[H-3o@(¾`㫸8).3*o^AtZ QeTY\,uXYuwFV elmfаvf۰G@Dæk Vn?xʔX(ʠhX;Z¦ ɂ[6 8QeUBT,V"l;ͩh" PA$b9SKMh5\Qpk6YA,XEw W;uW$*aA0XF0pBV,UBwXw$~zfؠ7ʈ+6'T aXǃj(0 bo+VU a؀ ?-U1xVyulǬ=ePXH;`؅*/+L#9#+7jZVmP @yQ0 L1FUP0Bm[6܃0 E\UpV"@ūF­;*$Bh YVUPgԉ0ڶ ?@iXFHôӂ3lP#*?L 0 XTXuzǬ=a^PA([K%^2&sxKUl'M eRpO4`(t)"C+ Gk U) iVU *E"ȤXtp(UTBVk #jeWzT>' *|Z BC`G l༮}b4\&HW?x ͺc: w@? [W njh8@-T 3j@ YT !`AFaV P 2G&j\зXDU0RJ3kX0UD„V1qa6 `EhV pPU RDC)@,#3gd@)"J 2EC5I$MRM1 PS`2D5I6$MAR0 U BD)@ͤ#8 :pͦVmE4C$SHJR1bE4#H$J1ՑBDdh=Y$RND0  RE$C@#F@&B<hhH3'(0 °JVm!f@Ƌ Ԁ(xʡ L* գ*Gc@ ¹`wՉnJ=3VnfѠDuWzGU,pdxvKeH' d QHndFQHk dHq vHHqЀH dhёPH Ċi)0HcĊi JF10,Hi djHdt))GE)"BT2DHQ&$ATRMZfI8FF"3=aP0H`4xdZF4!`eS& j P󅹁qQ H c$CXD1Co` 63m8ͰL;b (1иHHњxHHL&1HHeE(fH*HPHgpY"fHdUHIxFVdan<$T1BD$$MRM1BDx$L1BD$$MAR0BDdH8$ACBD3($MA#=Y:IՑ#"` 2  T I9:" #$ 5J:FI g֐PRE3iP5 p"1PH(fQ HaWHeU Xͤ`2y_2 ͷ@L۬p/ՇO@"d@ʅ lm(4-TvtZɅYl*2e0!]a a@"ŻĀ\} ρs8]@@D1Hq5Ċi F1 HcFLGРbDuDdxQ $DSKERQST`dE4E%h=A:P5=K% qO)B P.<K% r$]*M( XP H.dћHdѐH]dјH dq@Ht dH}dHad&1Hed&q8H d)` f @m 63h6@&: U$@M!)02RT")I2$S #$ pQBDEi@/#E^vSc1%9 2&#1U9Q 2V'SSbDTD)@TPpP D@#! IX:S"`M-IZ2CHy^p;i08 ͤ VhhAݒͣ@b*m5s3ƒr@ á%;tp  3@m&YPݐ7djgqUl(dF1HgIp HaQPH(fqH8TQ bE4CM!)H$SHJR4MF<[quA,@*&ɎbC@@X_ "L:rX/̗eXFJ WuJ ` FP@gē Rl"Wf`P|ZRO`2wHĉ))1PHc dFQЖHgdFHk dF񝀶HqlĉʈQHĉH*HvH QHOd豚 H5 dQzA-*4'|+B\n3CLt$+NBE4(M!H$SHR1MI!Ce8à@ `I^-dC|{;G@!"B8 IAeEPݐ*m5W-QUBq{ fpO[*?,+$>3k?S2^SDcUz hm`c na%R:V#a%R<ѓ#"QQe=R0SPRSbEEEQQe=R$LNPTRPbDĔ$iBrA"4 xZ,KUS2 ڞï S6Uy U| fp?ٵ=aװȈ$IOERR2D$@$BFBDU%($TTYINbEEEH$DRV3TBDU%)@$J1k2D($J3l2DH$MFp2E($PLs2E(H$PSaRDTdxh$SFw2E4x$SWy2ED8$TSbDED$dp$DTBFbDED$c$FLFLGbDuDd4($GTFLGbDU%(π$IOINIbDTD($MEMRYE$T8x#$UNdE4E%h OPENdDE%h=A92P5` pxD\J.&K%  qX\\./K%Ơ` q].aK%ؠp vH,].hK@%`P v\].mK%ۀz݅vVms, FX Œ7Oi*2 Hڣ o*EWLu`ew W eQ3ڽ`L$dݐ+vH ,dZPG3@/Ȍl LwuX,p@ *` x$TTYINbEEEH$LNPTRbD5$h$LINBFԑU 2D $A3P8~Vw<  IxFVu 1(F6¡F6¡#8 b #aS`<T Q$UeTu%ݙi@ݐ*Q5e v|].qK@% wX].xK%`@ w].~K@% p \.2D$A22D80$AD2D$hh$BLX_ ʎwd2/c P++UHAf@,|hG nrD8LuJd~Z1C(b|G!' %`c6pn6Q 2D$h 2$POS2ET $AC P̠BD38 $POS2 P`2D8 $CD 2DD8 $DE 2DEJ$DV2E$8 $REC I)q3lĀL.~ V$| fp?ٶ\=aذ+/(d#,ͦ $BF2D$P$CLSFLbDU%($OPNFLdqBE8x$SKz2ET$AC0}2D8$AC2~BD38$AC4rRE3( $$AA2D8P$BE2D4H$CT2DD88$DD2DDXP$DL22\71сܭVm!f`pU 69gv^wd@  Sǁ. D&{W4 ~T$euڬVhͣ@ wl`i0 ;a*  2DTh $FL TBBDT B$FWѠBBD$$IM`2D( ($J4Q2E( A2$PRRDTdx M$SG2ED8 QN$DTBF,! T &K ĈihɑH)* H8VU DUH b$EXITѓ%@Q` ph@U#k4,2cDE%iQRDE%c9@T D(p K Wh?L.QP0*/M"`k @64 +#bd H>@Vʯ DEh$$DR_2DEh$DWu2E$8H$DFeBE$T8$OPTa2DTh $FCb2Dd8$$ERdBBDTh$FPg2Dex$GFhBBD$$I2j2Dgp+ X,/@gKͥ4 hY# //̘$BFD$X$CLSFLbDE4U(Ƞ$ERRbDd%Th$FLCNTbDdd4(AIbDED$cQ $DTBF5bDED$c$DAC0IT BD$xI$ARG3`2Dh ($J8Iѥ2 p \.K%9 ḧ́C!CEHN#"F!9"F"Fy2F*A|ʳF*+A!G"#AA~#*$Iͳj~ʊGEGFVFV"$IGGAT*k*k*kula Too CompleRESUME without Erro2Field Overflo3Internal Erro4Bad File Numbe5File Not Foun6Bad File Mod7File Already OpeSNK}Ci&B ͇C$trs#ͥKKKͥKKKͥKKKKͥKKKKͥKKKͥKK##dB###dB|ʘB~#fo!B͓S Internal Error - No Line Number @]C~#5C͓S at lineTBBSC>C<CCBڇ逝܃3 pHI ,qI 0-lC͒IvJlC͝IvJlCͨIvJlChIvJlC͒IØJlC͝IØJlCͨIØJlCIØJlC͒IFJlC͝IFJ*k G͏U*k G*T*k*k*$Iͳj8G~#"$I,ŠGûF~ŠG!"#A~,"PG#"~dGdG# SGÊG"jG#"$Ix"G G+~ tG9Disk I/O Erro:File Already Exist=Disk Ful>Input Past En?Bad Record Numbe@Bad File NamCToo Many FileReset Erro GraphicKͥKKKKͥKKKKKL^#V# L"1K*1KKëKK^#ͨLKK^#V#LñK"3K~20K"1KlC*3K*1KC<C0jCB}_|W!+CͿj~#fo>͓S at address|ͷS}ͷSSC> j> j~#*@Ϳj~#fo!9"@!pC*lCͨIFJlCIFJkóIkóI"küIH~# ´Ix2S:6AmJ=JIW͠Q<ͤJ~Ìi#I͓JW~I Āi#I>2EQCFAS  LTJ!9"A]C]C hA!6#}hA|hA>!A6#zyͯQ G͓S?Redo from Start *FQ!GH*F:FOúF*F+~+GGG +w GG++~#fo O"F!F5*Fs Statement Not ImplementeDDisk Read OnlEDrive Select ErroFFile Read OnlUnprintable Errö́C$t!FAMF!GA$t!FAȆw!UF:0KIj:0KÈj:0KL+Lppqq+LUnEn]m?lͿj~#foIj:kKL2k#A^#V#^#V#kj^#V#kj`j@vC"A!C*ASC!C~"ÀiG::Ax=J(j*;A+~ A6#s#r#=žA>2A>2A>2A2A" A!@"A~@R͓S STOBASC*A.. . ........~2H#~#^#VͅS++Q/hA:$Hɇ ) &&)8ʁ"%( )8ʁ%(((UDO ͜q:EA<2EA!qFO ͛p!k^#V#N#F#{YOO6+F6!DA4~֫CFw -s!GA`jw+w+wF5Jʙ9v" GSљ e͘w>hFhiu^#V#`jbLSjIj&)))]C>!>!>!>!>!>^#V#^#V#TM>L>L>L>L>L>^#V#^#VOut of DatIllegal Function CalOverfloOut of Memor Subscript Out of Rang Division By ZerOut of String SpacString Form}J/<ͤJ͓J=ÉJ> Ài=J>,̀iW*;A#^ JJ+=J(jz{J{_J!>A";A!"A26AJ!9A~6#w~!KQ*#A|A: ANB*A|NBTB]C  s#r]C  {ͨCw#6"!A*A*A>2 AͩCA!9N#F]C~#~҆B~+ʌB~#~چB+^#V# 5ڇـ #҇ڀf$)% (|ڇʇ ҇ۀ63.(|ځ‡$)z|}|: #sM> M> M> M> M> M>^#V#!ksM>HM>HM>HM>HM>HM>C!ksM_M GNoM~M #A~j#=‡S͙S~j#ÙSG~#ʵS#§S++S0:Sj2!2)) !K]Q*2S{z*4S?ҞQ}|~# ¤QyGGQxjGGQx#N#F& øQ͉QWRáR*2S*4SjRRRWR͡RS#60:SW:SڙYʑY}X|\!SF :S_ AXx*AX{AXAq1]aXEaXDaX0AX,AX.dX+60{mX+6${+p2S!S6 UʋO~#fo##GNʻOyʻO#~#fo~#foO#ʺO ªO yOy<.O)O)QQOOOOO:OOO{O2PajU L}%TKT^>2S`hU~&f]-EV+EV+1],W.VeWVEV1]loVLoVqoVQʀV:SʚV>ÚV GNʒM~#foÔM##^#V#ͧMr2KAlClCMlC͈jMSj|AlCMlCMMT*k}/o|/g#"k|NT|rT!k~wɯ2kK]8ToNT*kNT|rK]8To>>U~@#ST@S!kqT>!kk2xT# wT###Q,R͓S during G.C. @,R͓S @͓S Internal Error - String Space Corrup#N#F*OyxڜR*OyxҜR++`i+V+^j*k*k2S(YE~X:ҩX0کX #~šX>DG˜X"k`i"k#~+Y-X0OxGY#~X`xEYy ҹX>2PP P PP{`_!O4#P5*O"O~#N#F#cP=P Ϳj&PyxHP &P+++6@#yw#xw+++6###!O~6tP͉P#PP*O#~#~~%V#V!VdʚVD±VV1]\]1]ڟW±V_{_ WWµVSK]!TUK] ±VVEV1]!T!UñVV1]ñV*N:KALN!CUno#N:KAON!C͛p:k2k:kkNuN:kCNEN|/g}/oo:kuN!ktNNkN!}CA:kgoW*k!kUn!kXUk>>ښT>|}+!V]m Us+6!k>͞o2k! Vq!V]m!k]m~_#~W#~OMtÞp!\ÛpNrTɇ<o&!R##6+6+~6  >@++*O"Os#r+P*O#~_#~WR}CAr+s##6"O###!O~#foRjR<*O"O*O}o|SY|ҹXXùX"k`i"kU#W[:SCYMYQYQYͽ[60*U[+~0`Y.*UʒYK]>"w#6+Y6#P}CA!*O"O~#^#V#PPͿjÖP|»PÖP++~_w#~Ww#ÖP͉P*ODM~#^#V#-QPP+z R+{ R##{TATK],UT=K]TT͠N|/g}/oکN!ھNG|ʺNñNo& Gȯ|g}oNN>N~+~?~N+#NNT|r*k*k#U"k`i"k!k^#V#N#F#! VÜq;tx{0t!k6swg>͘tTt\U:SGw#\UWUqU!kXUkK]kK]g6@#s#r#6"O*4S*2S"O}w>#w##jS++6+6OPt?S>28S|zS+})N#vS~#fo :8SiS!9"A!A4 ~Ϳj-/</ ҅Y:#p#w#6!S#zZڰZ͵[z[|\{̢T=[$XYp#6!S#:S~ Y*Y+Y1]-+$0 Z#1] Z+z~#q#p_Py"Qx"QDMP~#"QPYP+++"O6@###{_zW+r+sɷ|Q*O|ZQ}CAP^#V+"Ow#s#r+++r+s##!QTTkUTHT́TYWUTT{ ҮW0_äVW!kK]W:kWyW:kW:kW:k/W(^tXW6+}UX6-+ NlC͉QDO~##++WR>j+V+^+7O+r+s͡RlC O~QlC|A!9>ͯQ>|O>|O>|O>|O>|O>͏OOU*k||2ST; +wZY Z6%ڷZ/Z\͇T=ZW+6%T&ZOU[bZ_x[ͨ[[ġ[[õY_yWmZWoZ{_xZ*lC}ͷdhh!' ~^~#fo3e+V+^##*^{zdBK^#V+*^s#r! DMEe*^ DMͰRs#r# 6# xHe !'AT]~#fohx`ey`e~#~+*)A>[N#F#*k/}o|gҕ\"kp#=‚\[w1_cƤ~@zZrN vHp# cbd _lCaa.^^<hlC!^6# csclCaa2^!^c![ͨ[ÜZ͑[y[O͑[GO[§Z*S=[PþY8TѯʽZOU7[yWOzWOWZZ/<.a>w+w!(`7?*A' 6#67~h#^#fk_~aN#~:ʂa++%_ %_#~_`ia^>O #~goPY!' ůw5a:d@c!h=h=Y_ѯ h.Mi ¬c:>A W:?Ac> MiMiJi^œc~*6?# cO[͢T~.*U"S[pYþYկK]B[:kB[\!kXUT '[t[K]W[COT][\͇Tp[ WE[Wt[K][t#@hy@hh^ #a~.¬aͿa7Øa#™a2^Qz hh> ÿaʳa> aóalCaa.^^<dʮ_ PY¤_!_`i>_!' ~0_5aUelC}ͷdh!&_! ~+nglC}ͷdh! n&*A~hgDDfBK>!)f)#f))(f 'f#=f}_}la)$h?f#x$h"e! "e!) "e!}o|ggnfbk:eʴfg҃fUH#ʸ]Ò]}CAM!ͤ]ڢ]}0?)))صoä]M!]]}]0? ]? ))))صo]a{ UK]:!!4d#4d#4y"(d!h><"^>2A!~g"A:A<2A*A"^!vd"AlC"^3b*'A|td##nr_cd.m_*^TÌ[\͇Th[=60#Ò[¡[[60#=Ý[{ jaa:^!^$h^<h^*^~h#N#F++Q OlbIlbRh*^|lb!"^}_ͷdbUe{ͷdM'~-_4N#V p!`zw w+s#r#6#6DM:b@L`!" s#r#6Ñ`! {zVʉ`.^w<‡`fDM*e*eg"ePYf}o|g*e#"eQffDM*e*eg"ePYÙf2g*e! ~#fogs#rf:gg!g!&k:kT:S2S2S}CA}CAlCËdlC2^³e"^óelCçdlC2^´e"^ôeh<h=_!'A~#fod##{d++d*'Ad"'Aq#p#s#4#5++###DM !)A"\> [/>nT \>nTp#=\!kU@\T>2UU!]?[ U/{_#zW#yO++T\T#Up#F\>Â\']hzaa ͑e"A#^> j665a~bgzwoghfg! ~!ag! ^#V! s#rDM^gXggmGnox ƒmzmo!kͦoÒmj0 TeB׳]h!I.k m$tommo!k]mJ!kq#~++w+q6#kpklTtO l!\tƀ twsw+ɷs t;tx{0t!k6swg2rz1r >͘t|s{>2k-s/jpBpJMtxp;tfp!k6sg>͘t|r!>BlC|A,g-:Ah*A!@"A{GQf$%g!g*Ag|}!"AmTtDNn"~`35zr1{r1h!IpTtyO2k[npTt:klmn/))r =54> ̀i~=j*;A!>A";Ài";A> ̀i> Ài:AA=Cj> @> @*~i^#V#Sjɷ!koj!kjjkojkojw#w#w#w#pTt!k~+>wTt͎rÞpEtTt:k-tұp/6>4>?>=>:>7>5>2>3>@>C>}Co&B͇C!"A!$H"$IAh:HRh͓S?RhpxiÆh:Ii>\2IilhQhMi+ʀh~MiÔh+Mi”h!k͞o:k2kx!kknnҤn4o:kn!k~++wTt!k4#½n4m+6!kk# nɯ# nno/!kOywk<=n!kCo!kAoxbl!k5blmJ!kN#Fs+6l!k>N͞on2k:koTtx/kÛj>kj ~#=Ÿj!j#~ ʲj ʲjɅo$ɧGw#j{zTt>Oáp͎rqEtʿrTtȯGq"ky2kForr!D*k:kOPqk4shqxqg.*k:kOzQqxqg.*k:k^qx<=q{MiJi!$H2Ii×hxiOXh:Iiʭh>\Mi2IiyiPi7 >i i hRhiPiRhhRhMi> Mi>yhh>#Àhi#nG:k.o!kVwz# oxo t!kAo&oxʤn!kw tän~w# Com$tobomo!kUnm$to~omop!kp!k'p͇p!p!k!m!k>F+N+=$m!k8m!k>q#p#=;m!k]m"k/mm m*kp t:k t!kN#Fq͇oqʚ‘sšsejSXásásch|s{_zW}o|gâs"k"kx!k~w#sͿsssJJ!kqx!ksF#~怩O-t_zWxG)yOHGs͎rßqEt0tTtqy+F+F+Fw`h|qgyq:kO|g}oxG-|q}¿q-sElaOþq!k~Gx r6Ji!$HbiÔh ڔhx<>"iyq#Mi ”h> Mixi/i ʔh×h:HJiwSCj>^Mi@MiJi~ qi> MiMi#bi@l!kEny2k!k k~q+”oqڵoNsY+ªoào W~w+¿oøo!küo|ro$t!kw#oTto}'po-p'ps!=  4sgo"k"k;ts#r#q#pMtEt0tMt"k`i"k*k*kDM^#V#N#F#xy\t:k:k7|/G}/O!>t ~t7>{#8#F~8~$*-0369<!!!!!!!!u:tN:Ēy*t&)^#V>2-E:Ď́*چ"*چ"!"t!ބքK:(xDGyDDGKKG CSSVV Y SVV V T Y W U P S SJEE2/VVS O Fr:Ď́K0!ք >w!ބ >w > ɯ2{!":("."0+""!"R*&#"&!""!">!Hw#C„C>2w              !!# !!!!##_zW}o|g=ut|g}oڧtCZQÚt o-yOzW{_xGêtk*kDM^#V#N#F#xy\t:k:k7|/G}/O!>t ~t7>{   "% #!&$'7[ DOx#wx !"t#w#w:Kt!~=>2-E:- :t20:ĎKt!ք ~!ބ 2:=:{(__:+!N:+ V T P FQ KKC?9,3 M L C ;GD; 8%5'(59"8#.,2+,/8 <SV TN!nH!"Z͎*}7[.R""8(S*[0R""8(S:慷(*(*(*Z[8!!!####"$$$$$$$   !!##  !!#####!#####"$$$$$$$   !! ####!!!!######{ *"T!">`* 6ͫͯ{!"":w ͈ͪ<͈ଢ଼7d-An^TR|X|X|X|XdgqGd0U!t4!ބ ~!ބ[tw!+2!b_~<!ބ ~[{w!ք:t_w!ބ s{:t!( yY:t*!ބ "~"0vB2/V YQ E3. @B8'+6-.,2$<ABGN QK@01 M O A106&6(*6!<"=E"">2*"*"ͻ*$"*[Z8(*"*"g*$"!"*[Z8 (!8"*"*"ͻ*$"*[Z$"$$$$$"$$$$$$$+>%22:<=H(48:;<#2+ͫ1;s:$ *چ"p:Tp7~(pBt@ 1|Z J4@ %/:FSap$  ! !ք ""v  :t8:t 8:->2-E:-N:t20:ĎsÛ S   0)2)-1$<1+/.%9=?D >>BA@> E D@7".( 1(0,,2$< 0)2*-1$;$7%8 >8(*"*"g*$"!"*[Z8(!8"!<""!F""*}!7""!1"">2-E:- (>20!!!!(*023 (-/02(KLPP(:AA -7: (2 ##((2-E:0  "       #     > AA@ &2+0&8!>)1)3";@>@@@A> = > B@9M3& AAAA??@@ ?E; H< E>D? C;L;I<F>H=E=E9H@E? D;C 5G9D;D9C 6C),Z;Y;U:P5I--V>S@N:I0+O2#L3%G,0E 2N5N5M5 L4K3 G5J4 I2 G1E1J5I4F1F0D -"H 4H4F1E-D )%C",_E_E[EWB Q<J3']G[IVE Q>D0C1B/B )(G7F7D4E6D4C1E4C3C0B +&D*$C,"B*#B '(B 0G3G3D/E2D0C,!E0C.C, B ((E*#C*"C)PCP:M>M;H/+K-*K/'H.+F 7O0$O2"O+)L2$L0&G&3K++J,*G(/F6 J:I8F7 F8 E8ZHZHYFW@ U8YIXIVFD6O),M*,J)1F%6L*.J*/F&6G!8E!8D9 I 9G!9E;G8E:D:E9C:C6B1!O$0M'/J%4F"7L(/J(0F$6G:E 8D9 K"4 <@? > > :9 =; 60' A@;=9 2! 9 7 1"*,.( /& *)&.5E_E_E^F[HZEI'3F'5E :U<R?M9H/,Q=M>H2)J+.G+1E :M(.K+.F&6J&2F'4E<H=E>D; D9U0R4M/'H)2Q6M6 H-.J%2G'4J4%U;R=N7I0,N1%K1(G,1I'4F(6E!;ZJWMSHOAI6&VKSMNCI7$O;L<H2*I+0F,1E#<R6O8K4$G-0O7K7"$B &'B-C ,C !+B !*B +B-0D*"D*!C&%C*!C*"B#*C($B)#B&&A -C%'B&&B %'B !*-C -B +B *+,-A 2A 1/T<UE SBR;O8N3#I+/VHWGUE S<TG SF Q@NAM9H/+R>Q=P6M8M5!H--K*,J).G&2F7 U>U?T;R5R@I#4F"7H 6F!6D; F> D< D7C4I<G<E; G: E: D8F9D9D6C 3E3C4C1C ,&B#/N7N6J7G7 L 5I!6F8G9_E^F^F[JYJ[IZJYIXIVIVLSF ODOEI7$]G]G]GYJXKYKYKXKWKUMUMTKOI OH I; VKVME<P-&L/'H)1K)-G+.F9I=F;E; D:M8K8F;J8F9E: I< F< E:D 8H9E:D7D 5D),Q5d5L5G9N!4K"5G./I(1F)5E <L'0I)2F%9H$7E$8E: G>D?D? C9ZHWKSG N?I4'VKSMNDI7$O;L;H2*I+/F+2E!<UC RG M=-++ '$<O <B8 <DկRDMwo&H)|8g,|M![Z8>!nͼg Q?Q9N9N3"I+-Q<P<O6M8L6 H/*L,)K,*G'/F7 P.%O/%N)*L-(K,(H%1K$0J&.G$0 F6 J9 I8 F6 F5E 4U0T2 E7 C6K5I!5E7 H6 E5 D8 F:D8C4C1 K8 I7 E7 H7 E5D6G7E6D3C 2F5D5C1C ,%C$-H8H8E4F7D6VE UE SOSKRE NBNDI8#QEQE P;NCM>H1+K2&K3&H/-F"8ZJZJZJYGYDWLYJWLVGVKUJTH OEOBF 9H6 E9D8M 4J"4F!8I5F!6E7G6E:D9C5M9J9F9 I9F7 E6I:E9E7D 3G 4E6D5D 3C',J9I:E6H3)QCMCH6&J.,G./E";M,+K-+G'6J)1F)4E<H>E?E?D<R))O,)K*.G%7N-(K-+G(5I#4F#8E=M&0K(0F%7I#5F%5[Z*R![ZR/[[ZRnͼ"$!<$=![Z8!'^ͼ! *[ZR*ZO!R/[*ZS,$Q'+S3R2 O+(M),M(-H"5Q1!P1"O*(M.'L,)H$1K"1K"1G 3 F7P()O))M$.L(+K',G!2 K!1J!/ G 1 F4J7J6G4F3C/F3D3C0C ,$F . D/C,!C *&B"-D #+C %*C %)B "+B/1I8 I9 G6E3H:G9 D6E3D3B-G: F9 D6E7D6C1I7$VLVLVJVF SMSLRI OHOEI:!QF QF Q@NDNBH6$L3$K4$H1)F"7UC UGT>T8RI RES<N8P9I/+QDG9E8D0G9D7D3C +&F 4D5D2C -$C-$E &*D ((C '(B ')B".A3R&,R&,O'.L&1G%5Q',O),K(0G%6K$4I%4F#8G8E 9? O#Rn*}( -}-oͼ"$*Hͼ0:Y˺{/_z/WͼQ:Yz>2Y/2Yz( z/W{/_xO$O)"2:<_!~= :8**2/:4S2RO/*2R"2[ !R"0!(*R8!("[*2R"2:P!&[QC{(0+~ 8 8 + *bY/YP/[#P/*DR"D*0}P],*#} #],}8./[/*(:/oL</O| [2"2:{o,"2: 80G:( :D: :l%*L[2"2*D[2"D:3G:"*5[R"$!"5:2\!bK\ ~(*5:\_R"5*5R:\_"5!\4> :{( *5,"5*5:$_R[R[*[7ͼ/KO/"2[D"D!"2:O!b ~2*QR5%[!n[چ,E!R~ Ox5%!":))0#B ˃= G)&}(&{|gz怬(| o>}o}O|(O2/[2/_*&#/b~>6! O:'''_WB B/[/O[>/2O* ,*"$,"} .[1{ ,O:#(8!c~# (<<X!/*2R"2:$ :*:*_!^!/[UR[ 2`:O! ~=!x%:#o_,:%G_/:G:҉3:셷ʉ3!"$ɷRɷRͦ`:{ !}"D͆b̓I͍:<]-~S*$"D:셷ͦ`:i£:=>!##{y#2: ;: :_ͼ*2R"2*:#o,*2R"2 *2"2: : :.#*2"2:G:Ry|/g}/o#|>2Y /2Y|(z||>DM!z( =))0z|!>))0Bq ˃= *~*~[O"2:S"[!b~ .*"],[@/!…n&/,O*2R"2S":(!R!H:چDS":G:典S":5R[*/*#&)! RO[2"2$ :_!bnͼ"`}*n/[O[2"2$ :`$ :0(:$ :_![2,:*//'oͼ:#OB:-1&[[p/[O"2:_! ~!K(:+Do:/_, /:3G:/O:O8*dڣ:2 <2>2*[ /O"2* [R":$ *(( 8 *("|( O"*&[$> $ _*2"2 *2:.0$ "2*,*2R:DG:_!~ (xDo:*_,:/_:"_Ow*wD||>|Dɷ~w#ɷ G͞DG~w+w#!&>w=#w#w#wͬ$Do[-,["/[!b~,"):*oL[#WR(O[2"2[D*2"D*& (@/*t[0Qnb/[/[O[2"2*D[2"D:D_.,[")n^#V!$/:!(**"&/!$R)[0/:(D_*"` )) /[l/O[2[>/2O"2:` *:3=&:(:// O[>/2O*2R"2[D"D!"2* [R8):_!nb##[/*Ą /O"2: : 8 oͼ):Do,"2:(: "2*&/M:_!b 8)~(D$y_.,[2R"2 +{*#,[ [ͦ`::셷:(t!~+0l!"5*d*R0H!X[R8<*5 R"5*dRO"(! nb/[5"5:(0*F(* [/)O://G:*oͼ/: "><_/[./OR"2*5+|#/[8 @ !_*$[&/nOR*r OR"2:L'o[",}2^':_P!& ~2':^':0 [P!^P*(06*8O R(*)^#VB*(0> > 2$* "+|*(*"!"l*$"*t}(M*R.>d2.+:o,*"], ,[2"2õ+=+>d!`!:!zo&w>d2`:!zo&:w:`d(>0:`d0>d!`!z4:o&wKz:o`p> 0! +:+*v} *@R+:+:#OG:+! ~L*K! ~**/*,K! n,[2""/*vR"l*$"Є[|>$!ᅖ&o/d:o&/R)[ͼ/ $O*ͼ)dR[Є/dO!dK텷B02"2[T!V ~2W:2`''*2 "2 #{0#{0*D[2"D!"2* [R"`(:o,:g$Do&))?*"f*t[Rd))[fO2d(08]{2.>2.*|+|.:b.: 4:.!"!"͢0*/"|!"!d!~,~(##y,:Do,O"2[D"D:2G:*8:12:,:(z!K n[چ,}!RK n[چ,"K:D:o`n`/[":z0!w#ͩ2:0Oͺ}!ք "^S!H"n[چ,|3:_!R~*0D2 H2õ+:µ+*[1,/*,K兯G! n,[2["2õ+: *:ʵ+*OE[#!b~8+{!/!dR/dO"$ɯ22:o,:2`_ͼ}2z:`!z(J!4!b[`": ~͇!["w!w !*,(, R"2:2S(*| :S(o,[2"2:=S(*[,[2"2[+*.L*D[,[2ѷR[FR"2*`k:$2FH*R .>d2F5*|[Rd))[fO2d(08]{2G2F*v}(<*"f*v[RdR))[fO20P:///!w*O"4,_!n^#V[ͼO[)/[O[.:#ͣ,[{+_.:#ͣ,[.:#<:چw[!„Dw!: w*:چw!ބ " ~_S"[!RP3["!H:چDw[!„:چDw* [0D[!Dwy ¿2!*: +: *2d)!_[冷R/[2:(!n[冷R)[:o,*,K! n,"2õ+*[6:`!2`[!Z^#VSu:2`! :`2`>o&/:`of[un&"u>0ϯ2::8*u)) "~2 ͼ "`(R(S`[`*2/O"2*VR(FRO* ͍)/*O:Doͼ[/:!d(08]{2/>2/*~+|/:{ k/: 7:k/!"!"͢0*/"~!"k:$Dd2G*~[RdR))[fͣ,[9{+_.:#ͣ,"2: B-:䅷(*2[/[OS2*DR"D"$[!.^#V*Z[z(0L*)^#Vd""*{ͼ2/* (0O!R[x/* ,BR"5:.(*,*5RB"5A!xGO/[2"2õ+:o&/[2"2:+:(Hµ+:µ+K+! n,*,:8o,[2"2õ+2:2:=1> 2:`op::0:0:<&o: w2`:0!""""2" "":22K!b "~=;5*%}S2*^ib#o!woƀ*"&*"([!P~24:(:4o:_,":42 !6$!"*""*"$[!P~!gw_:Do,"!6$:#:}!8onB A C K G A M M O N@"!8onBKG 10.6 I@& !8onby@ !8onIntelligence Systems Limited@ ~ڑ?#~ڑ?!*~ʑ?#~ʑ?*[R"l#8(Sl 0+| *l/[R"l| *l/["l+|8ʹ2:„(2K!H ~=6y2y6:Ä(>2K!H ~6y2 y6ͪ<*}2("͜o:$ *چ[/"!O*O":o>oͼ"*)^#Vd(00*dO 8(Kym=^*0!"$*)^#V*8/D_ͼ/[5"5:.=;5*~2:Doͼ"!"!"*" 16"!"!"*" 16">!S !"!"!8M:"_P!P~!N w2~!b ~1;Do:~_,["> 0!b ~Q;!~!~=8:~!w!":)8U:)o:(_P!P~!4 w2~!b ~2! 9onIndianapolis, Indiana@&!-9onFor@P!V~(# 9I9$!V~( D_ͯn#:lO2m! !z9onPress  Sl*l[΄"΄*,K#͞?, )^#V[/O*$O"l* R""R*?[l*"*vR @"!K ~7!~=#7*O*O("j:!!2߅*R8=R84:jG:߅<8hx OG! [>2: *t8(*[0*)^#V!P([0!"$x0 !"΄:*ґ>[!~2lL0 _!"* " 16" :<S !""!"!"*2" 16"2:<2Y4*5"$*O*x (0*5p"5*O"*2 =; 8: =;:!~8:~2!&͞>::( :g!02:_P!N>$2>$!2*`4>$2>$!2return for option menu or any other key for defaults@͟{ :慷(*@:}!9onCrawford@:煷( !9on On@*|*:!:on*t}([l"l*$" RCS~8@SC~E@[G[FWR" ![>>))))P [ /O" S[͜o O*چ)"CbR89}R02: G:߅!j ~ OG! <2͜o *چ":{8:b :*چ8 /"*=~!=oͼ"!=^*,%>_/O(!(R^#V=!*^>:>*+>:{G_ͼO"΄:#><_O[(0Q6:v *"} *uͼ* O[(0Q6:w *o !u~#oͼ*O[(0Q6:x :U(o,! sͼ*h"h><:=!NyDͬ!Q^!P ^!b ~<_!Match To@*!o!wo!":on Points@!7:onScore: White [O]:@*.!o!wo%!j:on Black [X]:@*0!/R@dO": * R[ " :b!{G:-!,2߆!":5ADoK"͞?)"*3,:-A"*@*"6"*}2(V*|(͜o!"*|(͍/!. N#F r+s*R>(8!"">2w>2$*چ"چ*K"C>2$*΄/#O"΄:+8g[! ~2l=!+>_>:>*+>:bDG_ͼO"l:"><_*l/O"l*΄[l"΄!*O[(0Q6*F,*5R"5"$*K [O*ͼ/[ *.L*5dѷR"5!> w#pͻ9*}~>(o,!… sͼ*j"j >X<@b͆b̓I͍:<]-~SI*$"[ͼ*>/O* /[ͼ*>/B !R*/O"o&#O/*O:(YoK#͞?)"*2,:,A:1~A*nO*,[2O" ^!b5êG!@ ^!b6!4*R"4G:-G:tG!L :ބG!@ :քG>2-:FiH:-=H2:0O!L ~[P!w>¹E:GX!ֆ~!ބ¹E!~!ք¹EE>2-:20͔a!K 4FD:G:a<2͔a!K 4C@b!"":2225!"CͩR!d~I! w:܆:܆ A! !~(S!"ͩR!4#~())*R"!4: :=~L!4:1&) O[R":*:[0"*͍d8"( !tK~ ~# :~!(!d""$>!K FG!bO =D44!>!& ~2C:U2!V ~2C[2=cK[SJ:I!w![/"ۅ!  C$" ~2܆o&)""*@[*R"*߆ͼ[[΄[ "+|!"S~AS"~!Ȅ[>>O!7^!F[~>>/O"!K~ބw!@ ~!քw!4 GiH:-iH:t!0iH2:0O!L[P~!ބ !@[P~!ք !4 4H>2-:20*[(0K!02!"҄"Ԅ"":b2:2b:( >!2F:2![w!wC:-:!xF:!Fw#p:![w!wC:-:b==L!4y[SâK:OC! ~2xMC:D 2R:$ !4!K <=D5D=D:G>!K w!K ~! F`DE!bN ~=rDüEF:!KUK_:(A{0 :UK2*"^P!Rb~UK*"#~!2UK :UK:܆08*"JJ*"#JJEK:_P!b~:܆_P! nͼ[/O! B[/O$"2>2 :O!҄ ^#V*D8"( [Ds#rI[$! s#r:셇2 :22:2b:cH:=F>20:=G22GO!@L ~ 2!FF2:=ҭF!@L ~ !G:-¯G!L ^!b5:0"!_!b8nͼ(0!4K!T ~ 2! >xM~()!(:2![w >!8!44 !4#:MK > w!b_~! w2-!K ~D>w! w! ~!ֆ w!b_5! ~bn&D6!5*! n&R"4::IwEK*"~22#~2=J:_:_W!b~UK:!w!5::$<2$* #oJ:!4N$J:d!4NJ2 !w#:R:DB*/"!DK~ ~0 M!#/~B!K~ n,"̄:~ [8(" [0"*b:" :(͢/:# :(*"$*/ͼ[[.WR[GW[FWR": -:( :(::( oͼ"kD*"$G!@ ^!b41G!@ ^!b6!5*ѷR":!L 2͗H: fG!L ~_!ބw!@ ~!քw:!L !@ 2:G!@ҥLͩ2! C"~(n !~2M [#~2܆MN*#S2_!&^:OG!b <(:܆OG 2!- <͗H: E:G!sE!ք}E!ֆsE!ބ}ETEùEX: _~X2! #SIw2:2܆=%L! ~(+!4!":0*{,d"*| p*<8A(?2/[O[/*ͼ/:$Do&[/$O!*,*=ͩ22222229:(:":2d:#0:dOI!& ~0 :d=2d+ I:d8>$2>2G7:( :#8>2C "RK C*#">ҔMͩ2C !~2_W!^#VS(O!K "~##2O:=N!#S_W!&N* "TS*RTS*"Ą|T:3! *O"*[R"bFR(82(S :T:2!#2b= U>2b:2bSRKQ*##"K C>QͰRR![#S2d_ͼ!&~2o:G_,["ͰR0 :4 >2$:R:8 !$O*冯R*R>!bo ,R:ob/[#T)^#V O":<_!~bY2b:U<2b:4S[bO"* |(|(*/*O}2*/[O! R}2* [R8(&*&xw>2$!9:8>:4 >~8 yG>8X//,Ox_!^S^#V&.7ALXes,!o//$O*熯R*R*b ,R:Do,["T)^#V O"27>2Ƅ*-[ͼ/}2"!b ~jZ2%5y0S !4yw*:_WR"2:<2 0 o&[/:_W!b~ !4:܆0+:!2_W!b~2 !4!8(:.8!>2E:x!Ew:y8 :8> !8*jxO!EsX*ͼ(}_!~2bX2E:+(KyOC(&Nͩ2C!z"~22Q<2܆=MPKC:D _ͼSR:$ !4! 6#w:dI! w)^#V!/*O}2**/*&)^#VO! R}2:_!~!!22,:_!b~=Vnͼ/}!,2,~+2S2>2:䅖S:!(8w:$(:2= :*_!4>$!0w:4S":!兾 T:!(8w:$(:3= :+_!42,[ͼ/}2$:, *$b~<6Z>NZ:$8>2,*$b~NZ!,4:$=2$ :,!7=8<27!Ƅq:"Y:7 >27!4~Q:Q:܆0!4K C>P:Q:=Q!4*+"K C>&Oͩ2C! "~‘R>ڑRC! >(>:o:+.8.[!~\X>2!b ~JX:(0y2 y [!…n,:.8*,L:"_oL}2EC! " ~#4P*[0 }2"{2${2"}2$["!T~!$2_W!~(w:!_W*"!4!44P! ~(B![(7C:_!~!!32-:_!b~:Vnͼ(:-2-:2mV:/mV>2D:e^V>!Dw:d}W!D4}W:!_~V:>$!0w:4S"*FR(82(S>*GR8#2(S@* "5R[TS5*5RkTS5* [R"R"Ȅ[*&![ƄTR)R: o,R*[,![*TR/$OR:o,:#_T)^#V O"Ȅ|(!~#ŠR[!T~2܆!_W~(:܆22SRV!B!b~WR[!~(S܆%![R!b~R[!~(S܆S2E:bX:_!~X://2E*ͼ(}D2b:/o[+ͼ/}2b:_*,/!"ͩR!:_WwS !4!4:_W*R"K C* ##" >ҌO2!K "~2(FCSͩR:dIwV: V*hxO}2D}W*ͼ/~2b>W2D:*=>V>:*o:.8.[! ~==.W>2!b ^ W:(D "Ȅ28*[ ͼ(}2"!b ~<[2,2#[ͼ(}2$:, %:$_!b~e[[>!$[>2,:$_!b~<[!,4:*~|(*B0[!~a!N!b 6!~o&"!4 !N!b 5![N!b 4* !NB"::0G:=O:0:0*#,O"<*#,O"8> oL*|"|!04gy=!0!*5!/4:h!w[hP!@~!$w>!>!J:2|=f<_o,[hͼ/*&"[ȄR8:_!~8:DŽ_!nb"H![7ͼR/!$R:Ƅ_!^/$O"H:"M_*ͼ("*ͼ2+>2:! w!b ~2hoͼ0 :h !y$<2$A[:,!8( 828!DŽq :"[[:8 >28!"ʄ.\*&*DŽ&)R: o,R*[,[+/$OR:D20:O:_:!ֆ ~!Lw! ~!@w:<2 :b: *„"!Hb:ÄD2:„D2!H ~D!B!bw ~= y^![ P~ `:`#>_!b > #:݅_P!P n[<,[r81(/"r*!b ~8`*/[<ͼ/[n&y8!"4y!兾 4:hg\>oL*hͼ/*t"t>_*h,*x"x>8(> oL*h,*|"|!24y=!0!*q!T4^P!Bn`y8!:=!8*"&/O"<*"L" *#"=!N!y2|=d:|_o,:hD_ͼ/*("(>8!#4:hgKyoL:h_,*vR"v>o:h_,"zy8oL:h_,Do,:"_T)^#V O"ʄ|(!"ʄ*L:"*[ʄRO2 8> 2!,20>2*L:#*[Ȅy :(2ýb::(>!2[!b~=b!4> *|(>2::(>!2*&)^#V*R"*&)^#"n>8*/}! w:i_!`.a'+`!.a.a!)aP30Wt!cD6b9`(h%W8FtB3'CVq:>_P!w>8&>!D2|=>g!-^oͼ8(_>!D2|=mg!,^oͼ8( d! :w:(+}n^!݅w:(= y^́^1:&0*:( #!b ~< y^:&_P!…~ ^:<^#>N^!b ~= #:݅_P!P n:<_,[p81(/"*~R"~!34:~=2~!V_Pqg!5y=!Ny!2|=Ie*|],*("(!4>!&_Pq!~5>!V_Pq>05yoL*v"vy_RO2 8> 2!-20>2:.\:_!nͼ/[h/-O:\_"FC]![ʄR8":_!~8V*"[冯RR" !">:2|8>2|!"":|#!ͬ>!{_*O!R}2:!"J"L( >!J4ͬ>2:fRssftIQ7  yEdEE UUQy7yY*8(*).^#V*Z8(:= *v| >2$*(0>2$ 5:~=2~_!V6*ͼ)*~R"~/*zR"z:b! *~d/"~>2U:~g_<2~!eF:U<2U_p:b! [p*!b ~8._*/[<ͼ/[l"ly8*/}! w !y]:#*ͼ /"[ͼ!R n`yP*z"zy8oL*~"~!14g!4>!J:2|=e<_o,*&"&!5^P!&q!T4^P!Vqy06>oL*t"t>_P*x:DŽ_!nb"F2[8ͼ!R/!$R:DŽ_!^/$O"F:/{]:_!nͼ/*j/-O:8_"H!2>2T(2T2V:2|0>2|!""!:|D ͬ:b_*O}2:!"N"P( >!N4ͬ>2>2~:b2 2!~+2*E ͼ!/*vd/ѯR"v:bi>2D2͢0*)">2:_!/*z/"v8i8i["z >K2>2*von @~#@(_:q{(n ͋n @ͦ`!n*Tnͦ`n`_!n*T":_P/2dO:* 2* +V+^##s#r*ѯR"+|! [ ^#VS! ^#VSІ!Fl* +V+^##s#r*͓29*Legal Moves!!!@>2  *:}!%sonIllegal Move!!!@>2 K~ :}2 > 2$:ކ!w:ꅷ(= ':fE6ss%*Z!o!{ >K2>2*vR"v*vO"t" 0! [tR~w* !:t8w#*vOSvKtz(<2h2i! : :w7q:o:0!"#"چ"!"چ#"#"ͪ<>2w:!> >2:22{:22+ 2{:2+::D2:D2:`"v*vO"t#" +B0! [tR~w* :t8 ! w*vOSvz(`2hKt! > 8Nhn&[v/O! T])))0 ?_60+ #PoPoPoPo{wB~06 # 04y/_x/W#~ ( #~ 6~_ͯn#8E(C*/">*Bd /[>O2 "x| d8( Sx!"x!"*͍" 8Q08 !d"pYn*wo:bE6ss:D!چ:慷(:煷> 2$:_!~tA:}G:}K\(:}!sonDo You Double [Y/N]: @|Y8+h:{Do&d/*/(">2!":zMk<_.,#O":yak<_ͼ*":xxk<_.L["*[ :}!qonPlayer: @:(!qonBlack (X)@!qonWhite (O)@K^:}K\(:}:(r2022‡!qonDie 1: @ͱr:0"t~_:hw}2h#*/:bogd/(">2!":c 2$:_!~t:_!~ K\:}!BtonI Double!!!@M: $K\:}!htonWhite Doubles!!!@"K\":{Do_ͼ*0":bG:{oͼ[[R" 2!h~2+!u~d222ԆC(!qfoA!wooھq":0(K^:}:(r2022‡!WronDie 2: @ͱr:0q!/rfoG!wo[R":bo_ͼ*0":_ͼ*|"|*,[x"x:{! *|d/"|>2:0 [ͼ!&~!4n&wSRESIGNS@K^:}!ponDO YOU ACCEPT?@!́o:Y >2$>2$:_!~K\:}: !hponWHITE RESIGNS@!ponB(PR /O*pF8(FR /O*pRRR"pd8(Sp[9ͼ*pKx /"$~#@( _ͯn :}!tonBlack Doubles!!!@K^:}!tonDo You Accept? @|Y > 2$Èu> 2$Èu:!_~ K: #K\:}!tonWhitC>O!"*Ԇ"!"!" bl!"*"!"!" bl< l: *І"$*[ІR"$:=l* n`d/:_+P_Oo/r":0(uK\(:}:2:2n20870_ͯn!‡6 ͦ`!`~////8 ~8## *:}!ronNo :{! *ͼ/*td/"t*{ ͼk>2>2͢0*)">2*&/*x/"v.k.k["LACK RESIGNS@/aK^:}:$ !!ponRESIGNATION NOT ACCEPTED@!ponRESIGNATION ACCEPTED@:({q:o: :w(>2F e Doubles!!@!K\:}!uonBlack Doubles!!@S-:$ )K^:}!JuonDouble Accepted@uu&K^:}!suonDouble Refusen Y/N. Yes/No Answers@!z"w%vnͦ`(n2́8(!6!"2>W }2:}!{onO P T I O N M E N U@  @Kz!yon @!x"v%v[v!H[: #:<8>2+:= >2~!  !o~No( .Do#### ͖͖  ~o(GDGN}3Do####:!ponDice: [ ] - [ ]@!won @!won @[vP[vwßvw[v!V>2:(###>2F#N:}:> > :=(w>2o&!ք ^!H~(~"~~>>n~n~)=~D#^G~+V##ngz%U~W:}>Oi~>X_ͯn)}~D#^d@uu:$ *چѷRR": :fE6*Z)"Zss:bE6!+| K~ :}:!uonPlayer: @:(!uonBl! |onRandom Dice [Y/N]:@|Y !6 !5|onMatch [Y/N]:@|Y 8 !V|onMatch Length [5-23]:@!́o6oځ|"(: :w;:}> !,z"w%v;!9zon **MOVES**@;!UzonSPACE Clockwise 1 Pip@;!xzon N To;!onBKG 10.6 I For:@;I9:ㅷ  !onGame #@> E!~#  %:}%:}!on*@:}>/F#N:}[v:<w>:[v[vo>0W:(zDW:Pxw86w#*|> 0O+[v!"t:2ބG~:·~!V:„_~##Vʦ~+NG:}~!Y>:ÄD~~!V:„_~##V~+NG:}~!~onO@!~onX@!Yack (X)@!vonWhite (O)@!ބք:{(2{::{ >K{:ʾwʾwO:y >wnͦ`(n: (/ *:}2 * !"2-24 !|onCrawford [Y/N]:@|Y >2 !|onMode [B,W,S,F]:@|.nͦ`(nnͦ`(nY(N( Next Mover@; !zon B To Bar@; !zon H To Home@; !zon A Anticlockwise@; !zon J Across Boary! on @< > y!!on @< >y!9on @< y!Pon*--*@2{! "t>2͍p:$%v! "t:0o&"t CtK|!xon 1 2 3 4 5 6:ÄD "%(+.11.+(%"    (G  A;CH  }ʸwʸw&/F#N:}BʾwNyHwAw xJ$xQʀxRʸxMxxEsx-y:yDyxwʯw_ͯnW !6#6B !6#6S !6#6!6#6!}wo:}(yHG:}GOXͯnYͯn͑}{(!}wo !}wo͑}z d@; !{on ESC Move Done@;!,{on R Resign@;!F{on Q Query Play@;!d{on M Make Play@;!{o:}!onX@- :}!onO@- !:}!Ɓwo- | | | ||  7 8 9 10 11 12@Kz!%yon 24 23 22 21 20 19 18 17 16 15 14 13@!Wy"v%vK|!eyon ;;FF$--:} :}!woͭ:}!wo:}!wo:}!wo:}!woͭ:}!Dwo ,z1[v:6x[v:ކ/2ކ(e!w[v!.wonPips 0@*!oKp!wo!]wonPips 0@*!oKr!won !}wo  T=!ބ ^~ʉ~ʉ~!H~)#^+}D=}V##ngz% W:}G  | | ||<*>---<*>---<*>---| |<*>---<*>---<*>---||---<*>---<*>---<*>| |---<*>---<*>---<*>|www!z6 } >>> ORGANIAN TRUCE-MONITOR DESTROYED <<<":Q$(A5,A6)=".":PRINT 21420 T2=0:T3=0:GOTO21435 21425 NEXTL9 21430 PRINT:PRINT"TORPE IFS2(Q1,Q2)<0THENS2(Q1,Q2)=0 21340 FORW=1TOR3 21345 IF(B2(W)<>Q1)OR(B3(W)<>Q2)THEN21355 21350 B2(W)=B2(R3):B3(W)=B3(R3) 213-35*N1-3*S1-C4 23080 PRINT:IFJ<>0THEN23100 23090 PRINT"AS YET, YOU HAVE NO SCORE.":RETURN 23100 PRINT"YOUR SCORE --":PRINT:IF2|=e<_o,*&"&!5^P!&q!T4^P!Vqy06>oL*t"t>_P*x"x>8> oL*|"|!04gy=!0!*5!/4:hC4+K:FORL=1TO12:I=RND(1) 22090 J=(3.5*W7*(RND(1)+I)+1)*D5 22100 IFL=6THENJ=J/3 22110 D4(L)=D4(L)+T1+J:NEXTL:D4(6)=D4(6)-3 22(~( _n# n nn}( ~(_n#^G(#VW(%G(z({/_z/W!z6- {({/_O( !o=6!{G> DO MISSED!" 21435 NEXTZ6 21440 IFR1<>0THENRETURN 21445 F9=1:GOSUB10000:RETURN 22001 PRINT:PRINT"*** RED ALERT!! RED ALERT!55 NEXTW:Q$(A5,A6)=".":R3=R3-1:B6=0:B7=0 21360 G(Q1,Q2)=G(Q1,Q2)-10:B1=B1+1:GOSUB17000:GOTO21435 21365 IFQ$(A5,A6)<>"*"THEN214K1=0THEN23120 23110 PRINTK1;TAB(5);"ORDINARY KLINGON(S) DESTROYED";TAB(36);10*K1*MR 23120 IFK2=0THEN23140 23130 PRINTK2;TAB(5THEN21320 21295 IFQ$(P,Q)<>"."THEN21320 21300 Q$(P,Q)=Q$(A5,A6):Q$(A5,A6)=".":PRINT"DAMAGED--" 21305 PRINT" DISPLACED BY BL120 IFD4(6)<0THEND4(6)=0 22130 S4=0:IFR1<>0THENRETURN 22140 F9=1:GOSUB10000:RETURN 23000 P=D0-J2:IF(P<>0)AND(R1=0)THEN23020 w #w#w{ZW#zG{O"y 80w#!z{ ~6 #!z~(_n#_ A n  n nn*"wv! ***":PRINT 22010 PRINT"*** COLLISION IMMINENT!!":PRINT 22020 PRINT"*** ";S5$;" RAMS ";:W7=1:IFQ$(S6,S7)="C"THENW7=2 22030 I05 21370 IFRND(1)>.15THEN21385 21375 PRINT"*** STAR AT SECTOR";A5;"-";A6;"UNAFFECTED BY PHOTON BLAST" 21380 GOTO21435 21385 );"KLINGON COMMANDER(S) DESTROYED";TAB(36);50*K2*MR 23140 IFK=0THEN23160 23150 PRINTFNR(N);TAB(5);"KLINGONS PER STARDATE, AVERAST TO SECTOR";P;"-";Q 21310 K4(V)=P:K5(V)=Q:K7(V)=SQR((S6-P)^2+(S7-Q)^2) 21311 K8(V)=K7(V) 21315 GOSUB28000:GOTO21435 2132023010 IFP<5THENP=5 23020 N=(K2+K1)/P:K=INT(500*N+.5):L=0 23030 IFG1<>0THENL=100*S8 23035 I=0 23040 IFLEFT$(S5$,1)="E"THENM=0>2  *:}!onMy Move is:@!ބք:0O 0THENRETURN 21400 GOTO21435 21405 PRINT:PRINT" AGE"; 23155 PRINTTAB(36);K*MR 23160 IFS1=0THEN23180 23170 PRINTS1;TAB(5);"STAR(S) DESTROYED";TAB(36);-3*S1*MR 23180 IFB1=0TH PRINT"DAMAGED, BUT NOT DESTROYED.":GOTO21435 21325 IFQ$(A5,A6)<>"B"THEN21365 21330 PRINT"*** STARBASE DESTROYED...!!!" 21335 23045 IFLEFT$(S5$,1)="F"THENM=1 23050 IFLEFT$(S5$,1)=""THENM=2 23060 IFA1=0THENI=200 23070 J=10*K1+50*K2+K+L-I-100*B1-100*M!wo 060 GOSUB6000:PRINT"*** ";S5$;" HEAVILY DAMAGED." 22070 K=INT(5+RND(1)*20):PRINT"***SICKBAY REPORTS";K;"CASUALTIES!" 22080 C4=H EN23200 23190 PRINTB1;TAB(5);"STARBASES DESTROYED";TAB(36);-100*B1*MR 23200 IFN1=0THEN23220 23210 PRINTN1;TAB(5);"SOS CALL(S) 24250 X=FNA(1):Y=FNA(1):IF(G(X,Y)<99)AND(RND(1)<.75)THEN24250 24260 IFG(X,Y)>899THEN24250 24270 IFI=1THEN24300 24280 M=I-1:F=I6+K 24100 G(I,J)=K:NEXTJ:NEXTI:S1=0 24110 FOR I=1TOI2 24120 X=INT(RND(1)*6+2):Y=INT(RND(1)*6+2) 24130 IFG(X,Y)>=10THEN2412RN 25140 PRINT"-'WE CAN'T GO BELOW WARP 1, CAPTAIN.'":RETURN 25150 PRINT"-'OUR TOP SPEED IS WARP 10, CAPTAIN.'" 25160 RETURN OSUB4001:S5$="ENTERPRISE" 24010 I7=5000:E1=I7:I8=2500:S3=I8:S4=0:S9=S4:J1=4:L1=J1 24020 Q1=FNA(1):Q2=FNA(1):S6=FNB(1):S7=FNB(1T"READY TO CONTINUE";NL$:PRINTCHR$(12):GOSUB29002:GOSUB14001:RETURN 25010 INPUT"WARP FACTOR";K 25020 PRINT 25025 IFK<1THEN251 TO A STARBASE";TAB(36);-35*N1*MR 23220 IFC4=0THEN23240 23230 PRINTC4;TAB(5);"CASUALTIES INCURRED";TAB(36);-C4*MR 23240 IFM=0ORJ=1TOM:IF(C1(J)=X)AND(C2(J)=Y)THEN24250 24290 NEXTJ 24300 G(X,Y)=G(X,Y)+100:C1(I)=X:C2(I)=Y:NEXTI 24305 I=INT(D0):PRINT:S0=0 24140 IFI<2THEN24180 24150 K=I-1:FORJ=1TOK:D1=SQR((B2(J)-X)^2+(B3(J)-Y)^2) 24160 IFD1<2THEN24120 24170 NEXTJ 24180 B2(I)= 26001 J3=0:IFD4(8)<>0THEN26600 26010 IFS4<>0THEN26530 26500 INPUT"SHIELDS ARE DOWN. DO YOU WANT THEM UP";B$ 26510 IFLEFT$(B):I9=10:T4=I9 24030 W1=5:W2=25:FORI=1TO12:D4(I)=0:NEXT 24040 J2=100*INT(31*RND(1)+20):D0=J2:K1=0:K2=0:N1=0:N2=0:R6=0:C4=0 24040 25026 IFK>10THEN25150 25030 J=W1:W1=K:W2=W1*W1 25040 IF(W1<=J)OR(W1<=6)THEN25070 25050 IFW1<=8THEN25080 25060 IFW1>8THENTHEN23260 23250 PRINTM;TAB(5);"SHIP(S) LOST OR DESTROYED";TAB(36)-100*M*MR 23260 IFA1<>0THEN23280 23270 PRINTTAB(5)"PENALTY F0 24310 T2=FNA(1):T3=FNA(1):IFG(T2,T3)<100THEN24310 24440 PRINT"STARDATE..............";I 24450 PRINT"NUMBER OF KLINGONS...."X:B3(I)=Y:S2(X,Y)=-1:G(X,Y)=G(X,Y)+10:NEXTI 24190 B1=0:K=I1-I4:L=INT(.25*S8*(9-L2)+1) 24200 M=INT((1-RND(1)^2)*L):IFM>KTHENM=K$,1)="Y"THEN26560 26520 RETURN 26530 INPUT"SHIELDS ARE UP. DO YOU WANT THEM DOWN";B$ 26540 IFLEFT$(B$,1)="Y"THEN26590 2655050 A1=1:D3=.25:FORI=1TO8:FORJ=1TO8:S2(I,J)=0:NEXTJ:NEXTI 24060 F1(1)=D0-.5*I5*LOG(RND(1)):F1(5)=1E+30 24070 F1(2)=D0-1.5*(I5/R25100 25070 PRINT"'WARP FACTOR";W1;"CAPTAIN'":RETURN 25080 PRINT"*** OUR MAXIMUM SAFE SPEED IS WARP 6":RETURN 25100 IFW1=10THOR GETTING KILLED";TAB(36);-200*MR 23280 IFG1=0THEN23300 23290 PRINTTAB(5);"BONUS FOR WINNING ";S$(S8);" GAME";TAB(36);L*MR 2;I1 24460 PRINT"NUMBER OF STARDATES...";INT(I5) 24470 PRINT"NUMBER OF STARBASES...";I2 24480 PRINT"STARBASE LOCATIONS....";  24210 N=100*M 24220 X=FNA(1):Y=FNA(1):IFG(X,Y)+N>999THEN24220 24230 G(X,Y)=G(X,Y)+N:K=K-M:IFK<>0THEN24200 24240 FORI=1TOI4  RETURN 26560 S4=1:S9=1:IFC5$<>"DOCKED"THENE1=E1-50 26570 PRINT"SHIELDS RAISED.":IFE1<=0THEN26610 26580 J3=1:RETURN 26590 S42)*LOG(RND(1)):I6=0 24080 F1(3)=D0-.3*I5*LOG(RND(1)):F1(4)=D0-.3*I5*LOG(RND(1)) 24090 FORI=1TO8:FORJ=1TO8:K=INT(RND(1)*9+1):I6EN25130 25110 PRINT"*** CAPTAIN, OUR ENGINES MAY NOT TAKE IT !":RETURN 25130 PRINT"-'AYE, CAPTAIN, WE'LL GIVE IT A TRY.'":RETU3300 PRINTTAB(5);"-------------------------------------" 23310 PRINTTAB(28);"TOTAL";TAB(36);J*MR;"**":RETURN 24001 A2=0:G1=0:G24490 FORI=1TOI2:PRINTB2(I);"-";B3(I); 24500 IFI<>I2THENPRINT", "; 24510 NEXTI:PRINT:PRINT 24530 GOSUB18000 24531 PRINT:INPUI =0:S9=1:PRINT"SHIELDS LOWERED.":J3=1:RETURN 26600 PRINT"SHIELDS DAMAGED AND DOWN. ":RETURN 26610 PRINT:PRINT"SHIELDS CONSUME A 27370 G(X,Y)=1000 27380 IF(R1<>0)OR((X=Q1)AND(Y=Q2))THEN27430 27390 PRINTCHR$(12):PRINT"*** SUPERNOVA IN QUADRANT";X;"-";Y;"(C2(L)<>Y)THEN27260 27240 C1(L)=C1(R2):C2(L)=C2(R2):C1(R2)=0:C2(R2)=0 27250 R2=R2-1:R=R-1:Q=1:IFR2=0THENF1(2)=1E+30 27260 NEX"DOCKED"THEN29130 29120 PRINT"DAMAGED, SUPPORTED BY STARBASE":GOTO29220 29130 PRINT"DAMAGED, RESERVES=";FNS(L1):GOTO29220 291VA DETECTED AT SECTOR";X3;"-";Y3 27120 X=Q1:Y=Q2:K=(X2-S6)^2+(Y2-S7)^2 27130 IFK>1.5THEN27180 27140 PRINT"*** EMERGENCY AUTO-010 PRINT:PRINT" 1 2 3 4 5 6 7 8 9 10" 29020 FORI=1TO10:IFI<10THENPRINT" "; 29030 PRINTI;:FORJ=1TO10:PRINTQ$(I,J);" ";:NEXTLL ENERGY." 26620 F9=4:GOSUB10000:RETURN 27000 IFX2<>0THEN27100 27010 N=INT(RND(1)*I6+1):FORX=1TO8:FORY=1TO8 27020 N=N-(G(X,HAS DESTROYED THE" 27400 PRINT"REMAINDER OF THE ENEMY FLEET !!" 27420 F9=1:GOSUB10010:RETURN 27430 IFA2=0THENRETURN 27440 F9TL 27270 IFR3=0THEN27310 27280 FORL=1TOR3:IF(B2(L)<>X)OR(B3(L)<>Y)THEN27300 27290 B2(L)=B2(R3):B3(L)=B3(R3):B2(R3)=0:B3(R3)=040 PRINT" WARP FACTOR ";FNR(W1):GOTO29220 29150 PRINT" ENERGY";SPC(8);.01*INT(100*E1):GOTO29220 29160 PRINT" TORPEDOS "OVERRIDE JAMMED ***":A2=1:GOTO27180 27150 IFD4(9)<>0THEN27180 27160 PRINT:PRINT"MESSAGE FROM STARFLEET COMMAND...STARDATE";INTJ 29040 ONIGOTO29050,29060,29080,29090,29140 29045 ONI-5GOTO29150,29160,29170,29200,29210 29050 PRINT" STARDATE ";FNR(D0Y)-INT(G(X,Y)/10)*10):IFN<=0THEN27040 27030 NEXTY:NEXTX:RETURN 27040 IF(X<>Q1)OR(Y<>Q2)THEN27150 27050 IFJ4<>0THEN27150 2706=8:GOSUB10010:RETURN 28000 IFK3<=1THENRETURN 28010 Z4=0:FORO=1TOK3-1:IFK7(O)<=K7(O+1)THEN28080 28020 K=K7(O):K7(O)=K7(O+1):K7:R3=R3-1 27300 NEXTL 27310 IFX2=0THEN27350 27320 N=G(X,Y)-INT(G(X,Y)/100)*100 27330 S1=S1+(N-INT(N/10)*10):B1=B1+INT(N/10) ;T4:GOTO29220 29170 PRINT" SHIELDS ";:B$="DOWN,":IFS4<>0THENB$="UP," 29180 IFD4(8)>0THENB$="DAMAGED," 29190 PRINTB$;IN(D0) 27170 PRINT"'SUPERNOVA IN QUADRANT";X;"-";Y; 27175 PRINT"....CAUTION ADVISED'" 27180 N=G(X,Y):R=INT(N/100):Q=0 27190 IF):GOTO29220 29060 IFC5$<>"DOCKED"THENGOSUB17000 29070 PRINT" CONDITION ";C5$:GOTO29220 29080 PRINT" POSITION ";Q1;"0 N=INT(RND(1)*(G(X,Y)-INT(G(X,Y)/10)*10))+1 27070 FORX3=1TO10:FORY3=1TO10:IFQ$(X3,Y3)<>"*"THEN27090 27080 N=N-1:IFN=0THEN2710(O+1)=K 28030 K=K8(O):K8(O)=K8(O+1):K8(O+1)=K 28040 K=K4(O):K4(O)=K4(O+1):K4(O+1)=K 28050 K=K5(O):K5(O)=K5(O+1):K5(O+1)=K 2827340 K1=K1+R:K2=K2+Q 27350 IF(S2(X,Y)<>0)AND(D4(9)<>0)THENS2(X,Y)=LQ+G(X,Y) 27360 IF(D4(9)=0)OR((Q1=X)AND(Q2=Y))THENS2(X,Y)=1T(100*S3/I8+.5);"%":GOTO29220 29200 PRINT" KLINGONS LEFT ";R1:GOTO29220 29210 PRINT" TIME LEFT ";FNS(R5) 29220 NEXTI:RETU(X<>Q1)OR(Y<>Q2)THEN27210 27200 K3=0:C3=0 27210 IFR=0THEN27270 27220 R1=R1-R:IFR2=0THEN27270 27230 FORL=1TOR2:IF(C1(L)<>X)OR-";Q2;", ";S6;"-";S7:GOTO29220 29090 PRINT" LIFE SUPPORT ";:IFD4(5)<>0THEN29110 29100 PRINT"ACTIVE":GOTO29220 29110 IFC5$<>0 27090 NEXTY3:NEXTX3 27100 PRINT:PRINT"*** RED ALERT!! RED ALERT!! *** 27105 X3=X2:Y3=Y2 27110 PRINT"*** INCIPIENT SUPERNO060 K=K6(O):K6(O)=K6(O+1):K6(O+1)=K 28070 Z4=1 28080 NEXTO 28090 IFZ4<>0THEN28010 28100 RETURN 29002 IFD(1)<>0THEN29230 29J RN 29230 PRINT"SHORT RANGE SENSORS DAMAGED.":RETURN 30001 PRINT:PRINT"*** TIME WARP ENTERED ***":PRINT"YOU ARE TRAVELING "; 3=0 33050 IFR6=0THENRETURN 33060 T1=Z5:Z6=Z5 33070 IFK3=0THEN33100 33080 T1=1+RND(1):IFZ50THENF1(2)=D0-(I5/R2)*LOG(RND(1)) 301 W=INT((E1/(D1+.05))^.333333):IFW<=0THEN34130 34090 PRINT" WE HAVEN'T THE ENERGY. BUT WE COULD DO IT AT WARP";W 34100 IFS4<>0010 IFS0<>0THEN30050 30020 T1=-.5*I5*LOG(RND(1)) 30030 PRINT"FORWARD IN TIME";FNR(T1);"STARDATES." 30040 F1(2)=F1(2)+T1:GOTO10THENRETURN 33120 GOSUB9000:J3=1:IFA2<>0THENRETURN 33130 Z5=Z5-Z6:GOTO33040 34001 J3=0:IFD4(6)NR(E1);" SHIELD ENERGY=";FNR(S3);")" 31075 J3=1 31080 T1=.1:P5=(K3+4*C3)/48:IFP5<.1THENP5=.1 31090 IFP5>RND(1)THENGOSUB1000 P=D1*(6-W1)^2/66.6667:IFP>RND(1)THENQ4=1 34520 IFQ4<>0THEND1=RND(1)*D1 34530 W=0:IFW1<10THEN34550 34540 IF.25*D1>RND(1)THEN60 F1(3)=D0-.5*I5*LOG(RND(1)) 30170 FORI=1TO8:FORJ=1TO8:IF10THEN34750 34010 INPUT"ENTER COURSE...";D2:IFD2<.01ORD2>12THENGOSUB40000ELSE34013 34012 RETURN 34013 INPUT"DISTANCE...";D1:0 31100 IFA2<>0THENRETURN 31110 GOSUB9000:RETURN 31120 PRINT"TRANSFER PANEL DAMAGED.":RETURN 33001 J3=0:INPUT"HOW MANY STARDW=1 34550 IF(Q4=0)AND(W=0)THEN34660 34560 A=(15-D2)*.5236:X1=-SIN(A):X2=COS(A) 34570 B8=ABS(X1):IFABS(X2)>ABS(X1)THENB8=ABS(XPOCK HAS RECONSTRUCTED A CORRECT STAR CHART FROM MEMORY." 30200 GOSUB18000:RETURN 31001 J3=0:IFD4(12)<>0THEN31120 31020 INPUT GOT THE ENERGY." 34140 RETURN 34150 T1=10*D1/W2:IFT1<.8*R5THEN34500 34160 PRINT:PRINT"MR. SPOCK - 'CAPTAIN, I COMPUTE THAT S:R5=D9(6) 30080 S1=D9(7):B1=D9(8):K1=D9(9):K2=D9(10) 30090 FORI=1TO8:FORJ=1TO8:G(I,J)=D9(I-1+8*(J-1)+11):NEXTJ:NEXTI 30100 FOIFD1<=0THENRETURN 34030 P=(D1+.05)*W1*W1*W1*(S4+1):IFP"Y"THENRETURN 33030 R6=1 33040 IFZ5<=0THENR62) 34580 X1=X1/B8:Y1=Y1/B8:N=INT(10*D1*B8+.5):X=S6:Y=S7 34590 IFN=0THEN34660 34600 FORL=1TON 34610 X=X+X1:Q=INT(X+.5):IF(Q<1"NUMBER OF UNITS TO SHIELDS";Z3 31030 IFZ3<0THENRETURN 31040 IFE1+S3-Z3>0THEN31060 31050 PRINT"SCOTT HERE- 'WE ONLY HAVE";FNUCH A TRIP" 34170 PRINT" WILL REQUIRE APPROXIMATELY";FNR(100*T1/R5); 34180 PRINT"PERCENT":PRINT" OF OUR REMAINING TIME. ARERI=75TO84:C1(I-74)=D9(I):NEXT 30110 FORI=85TO94:C2(I-84)=D9(I):NEXT 30120 FORI=95TO99:B2(I-94)=D9(I):NEXT 30130 FORI=100TO1044=0)OR(.5*P>E1)THEN34080 34060 PRINT" WE HAVEN'T THE ENERGY TO GO THAT FAR WITH"; 34070 PRINT" THE SHIELDS UP.":RETURN 34080K )OR(Q>10)THEN34660 34620 Y=Y+Y1:R=INT(Y+.5):IF(R<1)OR(R>10)THEN34660 34630 IFQ$(Q,R)="."THEN34650 34640 Q4=0:W=0 34650 NEXTL=-1:E1=3000:I7=E1 35210 S3=1500:I8=S3:T4=6:I9=T4:L1=3:J1=L1:S4=0:W1=5:W2=25 35220 RETURN 36001 IFD4(11)=0THEN36030 36010 PRI." 35110 PRINT"STARFLEET PUTS YOU IN COMMAND OF ANOTHER SHIP," 35120 PRINT"THE FAERIE QUEENE WHICH IS ANTIQUATED, BUT" 35130  SCAN FOR QUADRANT";Q1;"-";Q2:PRINT 14030 I=Q1-1:J=Q1+1:K=Q2-1:L=Q2+1 14040 FORM=ITOJ:FORN=KTOL 14050 IF(M<=0)OR(M>8)THEN1411RIE QUEENE HAS NO SHUTTLE CRAFT.":RETURN 35020 PRINT"SHUTTLE CRAFT DAMAGED.":RETURN 35030 PRINT:PRINT"***ABANDON SHIP! ABANDO:GOSUB36210:J=J+3:NEXT 36130 PRINT:PRINT"*****ENTROPY OF ";S5$;" MAXIMIZED*****" 36140 PRINT:IFK3=0THEN36180 36150 W=20*E1:FO 34660 GOSUB15001:IFA2<>0THENRETURN 34670 E1=E1-D1*W1*W1*W1*(S4+1):IFE1>0THEN34690 34680 F9=4:GOSUB10000:RETURN 34690 T1=10*NT"COMPUTER DAMAGED - CANNOT EXECUTE DESTRUCT SEQUENCE" 36020 RETURN 36030 PRINT:PRINT" ---WORKING---" 36040 PRINT"IDENTIFPRINT"STILL USABLE.":N=INT(RND(1)*R3+1):Q1=B2(N):Q2=B3(N) 35140 S6=5:S7=5:GOSUB18000:Q$(S6,S7)="." 35145 FORL=1TO3:S6=INT(3*RN0 14060 IF(N<=0)OR(N>8)THEN14110 14070 IFD4(11)=0THENS2(M,N)=1 14080 IFG(M,N)>=LQTHEN PRINT" ***";" "; 14090 IFG(M,N)WTHEN36170 36160 A5=K4(L):A6=K5(L):T2$=Q$(A5,A6):GOSUB6000 36170 NEXTL 36180 F9=10:GOSUB10000:RETURN D1/W2:IFW<>0THENGOSUB30001 34700 IFQ4=0THEN34740 34710 PRINT:PRINT"ENGINEERING TO BRIDGE--":PRINT" SCOTT HERE- "; 34715 PRICATION-POSITIVE" 36050 PRINT"SELF-DESTRUCT-SEQUENCE-ACTIVATED":J=3 36060 FORI=10TO6STEP-1:PRINTSPC(J);I:GOSUB36210:J=J+3:NEXTD(1)-1+B6) 35150 IF(S6<1)OR(S7>10)THEN35180 35160 S7=INT(3*RND(1)-1+B7):IF(S7<1)OR(S7>10)THEN35180 35170 IFQ$(S6,S7)="."THEN3NPRINTSPC(5-LEN(STR$(G(M,N))));G(M,N); 14100 GOTO14120 14110 PRINTN$;" "; 14120 NEXTN:PRINT 14130 PRINT 14140 NEXTM 14150 T"THE REMAINDER OF THE CREW BEAMS DOWN" 35070 PRINT"TO THE NEAREST HABITABLE PLANET.":IFR3<>0THEN35090 35080 F9=9:GOSUB10000:R36190 PRINT"PASSWORD-REJECTED" 36200 PRINT"CONTINUITY-EFFECTED":PRINT:RETURN 36210 K=12345:FORM=1TO90:K=K+1:NEXTM:RETURN 3700INT"'WE'VE JUST BLOWN THE WARP ENGINES." 34720 PRINT" WE'LL HAVE TO SHUT 'ER DOWN HERE, CAPTAIN.'" 34725 D4(6)=D5*(3*RND(1)+ 36070 PRINT"ENTER-YOUR-MISSION-PASSWORD-TO-CONTINUE" 36080 PRINT"SELF-DESTRUCT-SEQUENCE-OTHERWISE-DESTRUCT" 36090 PRINT"SEQU5190 35180 NEXTL:GOTO35140 35190 S5$="FAERIE QUEENE":Q$(S6,S7)=LEFT$(S5$,1):C5$="DOCKED" 35200 FORL=1TO12:D4(L)=0:NEXT:D4(10)IFD4(11)=0THENRETURN 14160 PRINT"*** WARNING *** - COMPUTER DISABLED - SCAN NOT RECORDED." 14170 RETURN 14180 PRINT"LONG RANGETURN 35090 PRINT:PRINT"YOU ARE CAPTURED BY KLINGONS AND RELEASED TO" 35100 PRINT"THE FEDERATION IN A PRISONER-OF-WAR EXCHANGE1 FORI=1TO10:GOTO29040:RETURN 40000 PRINT"---> COURSE(S) .01-12 ONLY !!!":RETURN  K=12345:FORM=1TO90:K=K+1:NEXTM:RETURN 37001) 34740 J3=1:RETURN 34750 PRINT"WARP ENGINES DAMAGED.":RETURN 35001 ONSGN(D4(10))+2GOTO35010,35030,35020 35010 PRINT"YE FAEENCE-WILL-BE-ABORTED" 36100 INPUTB$:IFB$<>X$THEN36190 36110 PRINT"PASSWORD-ACCEPTED":J=10 36120 FORI=5TO1STEP-1:PRINTSPC(J);IL E SENSORS DAMAGED.":RETURN 15001 A5=(15-D2)*.523599:D4=-SIN(A5):D6=COS(A5):B8=ABS(D4) 15030 IFABS(D6)>B8THENB8=ABS(D6) 15040 210 15200 Y1=-Y1+1:L5=1 15210 IFX1<=80THEN15220 15215 X1=161-X1:L5=1 15220 IFY1<=80THEN15230 15225 Y1=161-Y1:L5=1 15230 IF S6=INT(X7-D4+.5):F4=S6:S7=INT(Y7-D6+.5):F5=S7 15140 IFE1>0THEN15320 15141 F9=4:GOSUB10000:RETURN 15145 S6=X1:S7=Y1:GOSUB2200Y1)<>"O"THEN15320 15120 T2=FNA(1):T3=FNA(1) 15122 Q1=FNA(1):Q2=FNA(1):S6=FNB(1):S7=FNB(1):PRINT 15123 PRINT"*** SPACE PORTAL :PRINT"ENTERING THE QUADRANT (";Q1;"-";Q2;")" 15315 Q$(S6,S7)=LEFT$(S5$,1):GOSUB18000:GOSUB29002:GOSUB14001:RETURN 15320 Q$(SD4=D4/B8:D6=D6/B8:T5=0:T6=0 15050 IFD0+T1LQTHENGOSUB1000 15162 IFA2<>0THENRETURN 15165 X7=10*(Q1-1)+S6:Y7=10*(Q2-1)+S7 15170 X1=INT(X7+115145 15129 PRINT:PRINTS5$;" BLOCKED BY "; 15130 IFQ$(X1,Y1)="*"THENPRINT"STAR AT"; 15131 IFQ$(X1,Y1)="B"THENPRINT"STARBASE A7+D6:Y1=INT(Y7+.5) 15105 IF(X1<1)OR(X1>10)THEN15150 15106 IF(Y1<1)OR(Y1>10)THEN15150 15108 IFQ$(X1,Y1)="O"THEN15111 15109 IF(Y1+9)/10) 15267 PRINT"QUADRANT";Z1;"-";Z2;", "; 15268 PRINT"SECTOR";X1-10*(Z1-1);"-";Y1-10*(Z2-1);"'" 15270 IFT5<>0THENRETU0*D1*B8*D4+.5) 15175 Y1=INT(Y7+10*D1*B8*D6+.5):L6=0 15180 L5=0 15185 IFX1>0THEN15195 15190 X1=-X1+1:L5=1 15195 IFY1>0THEN15T"; 15132 PRINT" SECTOR";X1;"-";Y1;"...." 15133 PRINT"EMERGENCY STOP REQUIRED";FNR(K);"UNITS OF ENERGY." 15135 E1=E1-K 15137Q$(X1,Y1)<>"."THEN15125 15110 NEXTL 15111 D1=.1*SQR((S6-X1)^2+(S7-Y1)^2) 15112 S6=X1:S7=Y1 15115 F4=S6:F5=S7 15116 IFQ$(X1,RN 15295 Q1=INT((X1+9)/10):Q2=INT((Y1+9)/10) 15296 S6=X1-10*(Q1-1):S7=Y1-10*(Q2-1) 15307 PRINT:GOTO15315 15310 PRINTCHR$(12)