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 COMh³´µ¶·¸¹º»¼½¾¿BKG106 COM€ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏBKG106 COM€ÐÑÒÓÔÕÖרÙÚÛÜÝÞß PANEL,ABANDON,CHART,COMPUTER 22 DATA DAMAGES,DESTRUCT,DOCK,IDLE,IMPULSE,LRSCAN,NAVIGATE,PHASERS,QUIT 23 DATA SHIELDS,SOS,SRSCåTREK $$$åTREK BAK€GHIJKLMNOPQRSjklåTREK BAK€nopqxyz{|}~€�‚ƒåTREK BAK„…Žåå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=0 : BKG106 COMàåTREK $$$ååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååååAN,STATUS,TORPEDO,TRANSFER,VISUAL,WARP,SHORT 24 DATA MEDIUM,LONG,BEGINNER,NOVICE,SENIOR,EXPERT,COURSE,WCOST,ICOST 25 DATA PEFFMAZE COM#$TREK BAS‘’“OTHELLO COM€TUVWXYZ[\]^_`abcOTHELLO COM2defghimååÃýCopyright (c) 1978 CROMEMCO, INC. XFER (Transfer) version 01.03 $ RELCD ; AND FLAG RELOC. TYPE MOýåECT,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/6åLIFE Z80GHIåSPACE Z80€qxyz{|}~€�‚…Ž��åSPACE Z80"‘’“”•åFORLIB REL€z{|}~€�‚ƒ„…¨©ª«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 COMjrstuvw†‡ˆ‰Š‹Œ�åTREK $$$€��–—áâãäåæçèéêëìåMAZE COM€‘’“”•�žŸ ¡¢£¤¥¦§åFORLIB REL4¬­®¯°±²,PHOTON TUBES,LIFE SUPPORT 20 DATA WARP ENGINES,IMPULSE ENGINES,SHIELDS,SUBSPACE RADIO 21 DATA SHUTTLE CRAFT,COMPUTER,TRANSFER ù% Í�ÍxþúÚI*ë!ý ÍG Àÿ|2ƒ2«|õægñ>oý "§!\~·Â#~þ ¯2€¯2[!€~·ÂN!Í+6ë Í Í!€~·ÊN6!~þ À#À¹Èw#Èw# ‘É·È6 #=Ú¯ÕÂ¥ÑÉ! ·ÈÖ0øþ ÐT])))_ð¯ÃÒ>0ÃÒ> 2D "E `i|·òç>-Í% ÍG ðØÍ üÍ œÿÍ öÿÍ~·ÊR6¯2[:Q·Êp:R·Âp>2[Ãp:„þÿÈe!�Í‘\ÍþÿÊË\ͧÊé\!lÍ‘!e6$#6$#6$\ÃïÍICannot erase old å¾Â # áá6ÿ#wñ#w++¯Éá Ãó RDRPUNLSTCONPRTDUMÿÅÕå·ÊR ö@w#6:#Íh 6.#Íh 6xáÑÁÉþ Êw w# Âh É Âw É#Í€·Ê :Y·ÄI܆Í"Eë\¯Íz Í¢ Ìß :\þÿÊv!^~æ@Êv~æw:V·ÂvÃð\Í> õ:O·Ê‰:X·ÊìñÈæþÊËÃòñæþÈG:T·Ê xþÊË open error write error close error create error ÿåÅþÿÂT ÕO·>ÄÑÁáÉ·Êw æ£ !%4~#¾>£ ·Êw ¯>ÁáÉ!%6åÍE�Í€~þ/Â’#~þ!Ò‹Í€"E¯2G2Y2Z!ÝFåÍüá#^#V#~·Â¥:U!T¶w!P¶!O¶w:R!QN±wy·Ê>2[ÃAOTPCQVRSTFUXSRVIXZW!�Í ÿÿÍ *E ÉÅ/|Ò ëÍG xÁþ0Ê0 € å*E w#"E áÉ€ò8 �Ã$ Ê4 :D ·Â% ÉÍL #É|/g}/oÉz¼À{½É! ·ÈÍo þÐ))))…oÃ\ Ö0þ ØÖÉÅxÍ~ ÁyGfile$:W·ÂA*Jÿÿë*HÚ+ej>)ÎÂ!lg#µÍQ:O·ÊA¦*LÍQ Í·ÊTÍþ ÊNÉ failed compare $ length compare error $ *“�å*“�#"“�áÁ~*‘�$ å>‡Ÿ2��2‚�>2„�>2ƒ�!��åÍD|ñ!~Öw#~Þw*‘�! 5ÃJ*•�~O‡ŸGyæOxæGy°Êù*‘�! ~·Êù*‘�" ~#fo6*•�~öw·ÊËþ ÊËxþ ÚÍ‘ÃËþ Â9:P·Â(xÍ‘ÃË> Í‘!G~æÂ(ÃËþ Â\Í•!G6*L#"L:T·ÊY> Í•Æ:U·ÂjxÍ•Æxþ Êuþ Â{Í•Æ>^Í‘ Í; á·Ê™ ~·Êq #w+á 4~#¾+Â} ¯wO<ÍQ ~ÁáÉÕ» ÍÑÉ€þ/>À#~¸>ÿÈ~Ö ¸>ÿÈ~þ!Ò¯É*E\†Í:]þ Â42ZÍ€~þ=áÄI#»†Í"E!Ü» Í‘!¼ ~þ?Êk#Â]ÃÌ>2Y} Í:YÆO»͇ xæÆ0þ:w#Ø+Æw#ÉåÕÅÍÒ ÁÑáÀ! ÉåÕÅyþ ÊÇ þ ÊÇ þ ÊÇ þ òÇ ^ÍÒ >@ÁűOÍÒ ÁÑáÀ! ÉÕþÿÂë þÂá #žò¦*•�"‘�!—–>xö@Í‘ÃËñÈÍ•ÃË!G4O:[·Ê„Í> Êþ¹Ê GÅ:S·Êõ:N·ÂÅ>2N!UÍg:H!9Í~ *JDM!;Íw ÁÅx!AÍ~ Áy!DÍ~ 9 Íà !UÍgÃN!gÕåÍáÑÉÕÍQ ëÍÑÉÅ!#N#F#~g>o ÁÉN¯¹Ê٠ͤ È> ¹#Âd  ä ë6ëÕåÍþÿ²:YþÂR—ÍINo ambiguous files matched$ë!Ý Í‘:»2ÜÚ!ÖÍg!Ü\¯Íz Í¢ Ìß !^~æ@Ê~æw:V·Â\!ÄÍg:Y·ÊR6åÍE Í; á·Â 4~#¾+ >wõ¯O<ÍQ ñÁqÑ·ÊÙ 2: ¯:: ÉÍÍ ÊÙ ·Êo ÍQ O þ€Ê\ 6#<ÃP !%~#Ãø„Í– Ìß *J"JÐ*H#"HÉ:[·ÂC„Í; :Q·Êw>2[:Y·ÊÃÌ:N·ÂN„Í> ÊaO:O·ÊþyþÂþ:R·ÊkÍ¡!„ÍgÃzÍ¡Í!Y! w#p#q!ëáë ·Â˜  ÍÄ ÑÉbk##þ 6ÈÖ@ØwþØþ6Ð++6ÿ#þ6Èþ6È6Éw# ÂÄ ÉþÿÈ!~þ:À#~þ Êê Ö0ØþÚê ·ÉõÕ!$ þÿ ÑñÃè >2YÃp:Z°ÊÝ!] Í‘!] Ž~þ?ÌI#Â":[·ÂK!\„>$$$Íz Í~ Ìß Ãf!\„:R·Ê]>$$$Íz Í¢ Ìß !"H"J"L—2NÍË*E~·Ê  ÊÙ ÕͰ !6Í; Í; Ñþÿ¢ !. ÉÍÍ ÊÙ Õ¯!%w##~+w¯! w#w#w#w! wͰ ÍÑþÿÀ! É>·>Éå!ù Í= < Íd á< Íd Ív #žòf!å!å*“�åÍ2ñññyþ xþÊ)ÿÿÃlz*•�#"•�!~Öw#~ÞwÃfÍVz!~#fo"•�:–�·úr!�ƒ:•�–:–�#žÒr*•�))<„ ~·ÂxÃlz*•�))<„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 MDÃlzÍs�!Œƒ~#¶Ê±!º:Œƒ½Â :�ƒ¼Ê±*ŒƒÍy�i`"ŒƒÃ‰*ŽƒÍy�ñÍVz*Œƒ"•�!~#fo"Œƒ*•�MDÃlzľÕÍVzõ!~#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"“�*‘�! å!€å!“�Áy–Ox#žGáyw*‘�" å*‘�* å*“�ãÁ Á}|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Å*•�åÍòñññx·òâÿÿÃlz*‘� ~O‡ŸGÅ*‘� ~O‡ŸGyæÿOxB 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 Ã�Åž  ÍÁ :D¹Âm:C¸Â–  ͆  ÍÉÅÅÍÁþ Ê×þ0Ú±þ:Ò±OyæOx‡G‡‡€�GñxÁÉÅÍðOÊí�ÒáÃáxÁÉåÅ!=~®!= ÍÍð Í·Ê…Í®õ–  Íñþ)Ò}2DÈ  ÍÍ®õ–  Íñþ)Ò¦2CÉ:D_ÍÚ2EOÍ6ÉxþÊíÍ~ÚízöW: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)Ò&Ã&ÁYFñÑÉÿÿÿÿðÅG~æÍðOx¹ÁÉþaØþ{Ðæ_Éå§íRáÉÍ ÍÃÎ|Í}OÍyæÆ0þ:8Í~Ú zöWyþÊ! Í ~Ú!zöW:D=¹Ê7 Í ~Ú7zöWz·Ò@·Â;É>2BÍÚ_zÒYÊkÒaÊtÒ¡ʘáÍ~ö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¸À ¹ÀHÉFÍð+# øÉ> 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#}¹Â'|¸Â'Í}†  ÍÍÄÍ×{·ÊPÍEÃBͱÚBÍÛÓ  ÍÍõ – ÍñþYÊþyÊý <=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 erroòmultiple definitioîexpression erroòlabel erroòmissing labeìnesting erroòopcode erroòphase erroòrange erroòsyntax erroò25 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 symboìvalue erroòfile not founädivide by zero erroòno matching IÆno matching MACRÏtoo many COMMONómultiple 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þ Å!6Íi)Á—HÉÍ ô Å*;Í : 6ÍM"Í=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=0itioîlabel not alloweäinstruction not alloweäþ8>!]"ÍèFÃð+ '"*: 6Ëo þ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;" (Î!6Áx§ÌH (Å~ÍÁ# öÍa"y§(ÅÍËÁ øÍΗÉ!6ÅÍ¿Á~ÅÍÁ#÷åÍa"ÍÍ× áÉͼÍ¿?ÅÍ Å*;Í : 6ÍM"ÍÎ(Íð+áÍ : 6Ëo þ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!‘:ñÈÍèå~#foÍùáÐs#rÉíC6ÍŠ"íC6ÍŠ" íC6ÃàÃèÅÍ ÁÅ6xÖ( OÍS) øGWX: 6æÖ8(þ0Ít)ÁÅÍ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&Í;ÁMÑáÉCTOR";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)zÍS)êÕÍÚ(Í)Ñ>Û: 6§È:6þÀ*;H ë* 6~æàG: 6ưw+r+sÉÝ6!í[;!¨#Íä#í[;!°#ÝË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&Í;ÁMÑáÉ5 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 Count‰Parity Count‰Program Length‰Data 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Íð+ ó/Íð+ /Íð+ Íð+ Íð+ogÕÍl$ÍÑá ñ=õ ¹ñÉ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= îñOþ0Ày÷É:6þÀÍu%ØT]g9:6w#í[Ž;r#sÉÍu%|µÈÍåë!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 Í-M¯2.go9"GõÍÏ>(ÍÃb͵#:.·ÂNÍÂ`*¡ã$¯´ÊÚå:Pþ,Ê6Í�U:.·ÂͼbÍg'ÍQI:ã·ÊvÍT 2ãGCÍ :±'·Â’ÍŠ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 1926åëÍ8@:±'·Â¾ÍŠVͶͧ;!Þ͹Í<ÍRJñ=gã›*Gù:Ú·ÂB 2Q<Ã�'Íò~ D× DB‰2¾õO2§!:T"ª!T ~4g:Ro"¨>2Ã>2‹ÍUñ2¾>2aÃW!æ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Ã*¡"pÍW:Pþ,áÁÊ›Å"›Í�Uñ2KÉ:o·:PÂðÍþ ÊÙþaÚðþ{ÒðÖ 2PþAÚúþ[Ú þ0Úþ:Ú¯<7¯=¯:PGõ!o~6·xÌæQñÉ!!ͬ*jÄÿ}µæ´ÖŸ2ï·Â¹ !Í=PÍ«>!pÍ.Ptp!Í"*l}µæ´ÖŸ2ï·Âm ¾ !¼ Íî=Ö!¼ ÍšBÄ!¼ >Í5BÍöI¾ !¼ Íî=ˆ!¼ ÍšBÍöIOU 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!¼ >Í)BÍöI’1!õÍ*j#"jdj!ͬÆ À !¼ Íî= !¼ ÍšBÍöI`!¼ Í—B\!¼ >Í/BÍöIÀ !¼ Íî=Ö!¼ ÍšBÄ!¼ >Í5BÍöI!\Í=P^4!~þ Ê32PÉ:£·>/Â/ͨUþCÊ<!6 A B C D E F G H ÃþÊYES NO Y N ÿÿÿÿÿÿÿÿÿÿÿÿ"¦*Á"Ø"¡*å}µæ´=ÖŸ2ï·Â5 À !¼ Íî=¤!¼ ÍšBÍöI!¸ Í=PÍ>"åÏ!¼ Í—BÂÀ!¼ >Í)BÍöIÀ !¼ Íî=Ö!¼ ÍšBÄ!¼ >Í5BÍöI*ÀÁß"À*Â#"Â"å!"ç!"é*ç)"ë*éë!ÍâAë*ëò"í!ë*ís#r*çöÿ}µæ´ÖŸ2ï*ç+}µæ´ÖŸ!ï¶2ð·Ê‰*ç)"ë*éë!ÍâAë*ëò"í!"Ý !"á *Ý )"ß *á ë!ÍâAë*ß êÿë*Å ~#fo}µæ´ÆÿŸ2ã ·Â!"ä !"æ *æ )++"ß ë*Õ ~#fo"è *ß ë*Ó ~#fo"ê *è ë*Ý "ì *ê ë*á R. ')çÕåpÐmÅd('+','I SEE NO MOVE FOR YOU, SO I WILL MOVE IF I CAN')jõ1ÐmåÕln©Ú�jõ1©ÐmlaÕå('+','MY !ÅÍ@ÖŸ2ï·Â† !\Í=P!ÍÍ@ÖŸ2ï·Â† *l}µæ´ÆÿŸ2ï·Â‚ ¼!Íc!Í=PÍ«>!pÍ.P¾p!Íc*¼ë*¾{•ozœg}µæ´=Æ�Ÿ2ï·Â ÂÍëÍWáÍ8@>2ÃÍWÃ;@>Í,ÍÃÍÏ!úÚ5:Ú·ÊÓÍò‡<2ÚÃxa5Í-MÍgW͵#*¡"Çͼb͵#*¡"Éͼb͵#*¡"ËØ': =²Ê@ÕÍÍæQÑþ ÊGÖ'!"ç*ç)"ëó"í*ë/~#foë*Â{•ozœg}µæ´ÖŸ2ï*í~#foë*À{•ozœg}µæ´ÖŸ!ï¦2ð·Â *ç#ë*lë{•zœòƒ À !¼ Íî=Þ!¼ ÍšBÍöIÃdë*ís#r*éöÿ}µæ´ÖŸ2ï*é+}µæ´ÖŸ!ï¶2ð·ÊÛ*ç)"ë*éë!ÍâAë*ëò"í!dë*ís#r*é#> •>œò *ç#> •>œò!"`!ÿÿ"t"î *ì )"ð *î ë!ÍâAë*ð êÿë*Å ~#foÍvA*Ç Í@ÆÿŸ2㠷«!"ò *ò #"ò ë*è ÍâAë*Ý "ô *ò ë*ê ÍâAë*á "ö *ô )"ß *ö ë!ÍâAë*ß êÿMOVE IS : ',A1,I1)aÕåÐm('+','DO YOU HAVE A MOVE? ').Â!('+','CONGRATULATIONS, YOU PLAYED WELL AND HAVE WON.',1X,'THANK  !¼ Íî=À!¼ ÍšBÍöIÃ` *¼ë*¾{•ozœg}µæ´ÖŸ2ï·ÂK  !¼ Íî=!¼ ÍšBÍöIÃ`  !¼ Íî=y!¼ ÍšBÍöIÏ!¼ ÍšBÍöI`!¼ Í—B\!¼ >Í/BÊ&y·É: =Ê#ÕÍÍæQÑÖ'Ê#yÖ ÂEÕÍÏѯÉÍò{¯õÍÏò~Ö0_:«æðÊlñÂk<õÕÍòÑõÍ‚#Ân!¤~³wÃMþAÚŠÖ7þÚUñ>'ÍÃbÃ(//////////////5 *j#"j!Í=PÍ«>!pÍ.P1!õÍdj!ͬ !ÿÿÍvA!Í.P!Í;!"ˆ!"t*d#"jdj!ͬÆ À !¼ Íî=!¼ ÍšBÍ!ÿÿ"b!"vñ!¼ ÍšBÍöI`!¼ Í—B\!¼ >Í/BÍöI!ÍvA!Í.P!\Í=P!ÉÍ@ÖŸ2ï·Â3 !\Í=P!ÑÍ@ÖŸ2ï·Â3 f!Í;*d"jdjë*Å ~#fo}µæ´ÖŸ2㠷«*ô )"ß *ö ë!ÍâAë*ß êÿë*Å ~#foœÿ}µæ´ÖŸ2㠷«*ô )"ß *ö ë!ÍâAë*ß êÿë*Å ~#foÍvA*Ç Í@ÖŸYOU FOR A FINE GAME.')('+','YOU PLAYED WELL; HOWEVER, YOUR LUCK WAS BAD AND',1X,'I HAVE WON. THANK YOU FOR A FINE GAME.')('+','YÍöI!\Í=P!ÅÍ@ÖŸ2ï·Â!\Í=P!ÍÍ@ÖŸ2ï·ÂÍq@ � OTHELLO RELcjklBIO ASC (1//////////,1X,'"OTHELLO" - DO YOU WISH TO GO FIRST ?',/,1X,'YOU ARE "X" IF YOU ARE FIRST. ')2‹y(A3)!:Åd"yÖ' 2¾jõ1ÐmåöI*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 MemorùLiteral String is too largåInvalid Data List Element in I/ÏUnbalanced DO NesôIdentifier Too LonçIlleB,NHD,NAH,OC) POTHELLO,=OTHELLO F-?Command error?FILE NOA BÑÓ12+>õÕÅÍö'ÍÁÑ=ÊÎ3!€ëñ=ª3!Éñ>ÃÊ3ñåÕÅõæ_!³'þ Òó3Ö Êñ3<Êñ3~=w4{þ Â4> Íö2~æÂú3à 4ÍñÁÑáÉåÕÅÍÁÑáþ7È· ~#fo"ø ë!<ÍâAë*ú Âÿë*Ï "ü *æ ë*ü s#r*æ #>•>œòÆ*ä }µæ´ÖŸ2ã ·Â*× ~#fo)++ë*Ë "ß *Ý ë*ß s#r*× ~#fo)++ë*Í "ð *á ë*ð * ë* ÍâAë*ú"*)"þ*ë!ÍâAë*þêÿë*ð~#foÍvA*òͰ?ÖŸ2·Â‚*)"þ*ë!ÍâAë*þêÿë*ð"*òÍ=PÍ«>Í>ë*s#rÃ*Š))"’*Œë!(ÍâAë*’A"–*–ë!K>Í/B*Œ#> •>œòþÍöI*Š#> •>œò¿É77ÀÍW1þD7ÀþR7À>"Vë"X`i"Z!ë*Zs#r!"\!gal OperatoòMismatched ParenthesióConsecutive OperatoróImproper Subscript SyntaøIllegal Integer QuantitùIllegal 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Í·-Í›1ÃDISK FULL€Illegal Statement NumbeòStatement Unrecognizable or MisspelleäIllegal Statement Cos#r*á #> •>œò‡*Ý #> •>œò�*× ~#fo}µæ´=ÖŸ2ã ·ÂW!Í=P*Ç Í@ÆÿŸ2ã ·ÂWþ !XÍšBÍöIÉNCORNJ(O - X I1,I2)=SIGN*OC ì*#ë*üë{•zœò˜ÉwáÑÉõÕö'·úX2ÅåÕ2+ÍÑÅåÍáÁÑñÉõ:«'·ÊK/Õ:Õ'<ÊX2úä2> Íö2> Íö2>Íö2å*.)0)ÅÕ'ÍÎ20)ÍÁáÕ'ÃO2õ:­'·"^*\)"`*^ë!ÍâAë*`êÿë*V~#foÍvA*XÍ@ÆÿŸ2b·ÂÊ*Z~#fo#ë*Zs#r*^#> •>œò‚*\#> •>œò|ÉQ0þMÂ’02²'ÃQ0þIÂ�02ª'ÃQ0þZÂctioîBackwards DO referencåIllegal Statement Function NamåIllegal Character for SyntaøStatement is out of SequencåMissing Intege 5 6 7 8')#(Í_/(þ Â>('+',A1,2X,8(A1,1X))"[ë"]`i"_*]~#foë*_~#fo{•ozœg"!Í=P!Í.P*[Íc!ÍvA!Í@!Í.PmpletioîIllegal DO NestinçIllegal Data ConstanôMissing NamåIllegal Procedure NamåInvalid DATA Constant or Repeat FactoòIncorrect RETURN END ÊK/Õ:´'·úX2>Í]3å*,(.(Å´'ÍÎ2.(ÍÁá´'ÃO2|µÈ}æÊÙ2Æ€æ)„`iÃ-3> Íö2> Íö2> Íö2ÑñÉõ:«'·ÊK/:Õ'<Êm1úÕ3ãåÕ*.)|þÌ%3#".)/)Ññõæ©0¯2ª'ÃQ0þP7À:¬'<2¬"æë"è>!êÍþP*ê~#fo)++"þë*æ~#fo"ø*þë*è~#fo"ú*ø)"*úë!ÍâAë*êÿë*ð"*òÍ=PÍ«>Í>ë*s#r*r QuantitùInvalid Logical OperatoòIllegal Item in Type DeclaratioîPremature End Of File on input devicåIllegal Mixed Mode Operat*[ÍcI!MÍî=!KÍšB!K>Í)BÍöIQ!OÍî=p!KÍšBÍöI!"Š!"Œ*Š)"�*Œë!ÍâAë*�êÿë*[~#fo##"Ž*Š))"�*Œë!( Number of DATA ConstantóIncorrect Integer ConstanôInvalid Statement NumbeòNot a Variable NamåIllegal Logical Form OperatoòData  147 FORMAT(/////////////////////////) CALL CLEAR 100 RETURN END SUBROUTINE HANDI(wñáÉ0)!Õ'>õÅÕåÍÑÕÍ·Â!4ÑဠëÁñ=Â-3!É.(>!´'Ã-3õ:­'·ÊK/:´'·úm1ãåÕ*,(|=ÌR3#",(-(ÑñwáÉ:ö'<Ê€1ú4åÕ*0+|þÌ¥3#"0+1+ ioîFunction Call with No ParameteróStack Overflo÷Illegal Statement Following Logical IÆ€Duplicate Statement LabeìIllegal DO Term<Í"<Í bÒ >ÍŠV!±?͹¯2AÍšbÚa>þÊG>þÂ[>:«þ*Ê[>ÍÝ<Í"<ÍcVÍ@Í bÒ:>ÍŠV:A·Ê‘>!Á?͹ÍšbÚ‘>þ‹>ÍÝ<Í"<*]Í <Í�VÍ bÒt>ÍŠV:G·ÊÞ>!Ô?͹cV:«þ*Â[<*¡å*]å*©Í8@ÍÌ<*]ëáÍã]|·>+òL<>-õÍeVñüõBÍO;áÃ8@:Ãþõ>/ÌeVñõ=•<>[ÍeV:‹O/_ÿ!­ÅåÍcV~Íc;á#Á Â}<>]ÍeVüƒ_:Pþ.Ê~BÕÍÏþ.ÑÊ~BïBÍÏþ*Ê~B2oÃ~BÅ`i‰ÍëÁɯ•oœ•gÉ2ìG:±'·ÂBC:«'·ÊBC!°x¾#Ê C~·#òCÃCment Number UsagåNo Path to this StatemenôMissing Do TerminatioîCode Output in BLOCK DATÁUndefined Labels Have OccurreäRETURN in~æÀ2è+V+^ë"]:¾<·â»@>2b:÷É*]å*på*¡å¯2.:è*Øúÿ "õÕV+^+ãåëÍ8@:aþ*¡Êü@·*ª7. ëás#r#ëáñ=Âà@:è!.·=ÊEA=~Ê&AinatioîBlock Name = Procedure NamåArray Name MisusåCOMMON Name UsagåWrong Number of SubscriptóArray Multiply EQUIVALENCEd WithinÍšbÚÞ>þÂØ>ÍÝ<Í"<:a·ÊØ>ÍcV*]:²'·ÊÌ>ͬ;ÃØ>:¾·õ̬;ñļ;Í bÒ¤>>2“*d|µÊü>Í�V>%ÍeVÍÅ;!á?͹*”|µÊ?Í�V>?ÍeVÍÅ;!õ?͹¯2“*Ô ëÍeV+~ÍeV:‹ÖG+~Íc;®<ñÉÍÌ<ñõ>/ÌeVñþ>LÌeVÉ:‹O!«~ÍeV+ ÂÓ<É:XþHÒ�V·ÈþÈÒó<ÍcVÃÝ<þ0ÈÃí< *›ëÍbC*wë!cÍ’ Ê=Íò:b·Ê*=*Ô|µÍŠVåͶáͧ;ÍcV͹ÃBCG:±'·ÂBCxÍc;þG*Ô#"Ô¯ÍLÅøxGÍL ÂPCÁÉ*****‰ÅÍLA>Í¢CÁyþÚ‰CþÈ>Í¢CCÍMCBÍMCyþ Ð:‹GW>Í¢Cå!«FÍMC+—C a Main PrograíSTATUS Error on REAÄInvalid Operand UsagåFunction with no ParameteòHex Constant Overflo÷Division by ZerïØArray NaGæÃ*AGæÊEA!%xÚ;AõÍTAñÚDA++ÍTA7áõÍ8@ñá"pá"]ÉV+^åëÍ%ëás#rÉ*…Í…A"‡Í„A"ƒÍ„A"Í„A"yÍ„A"{Éë^#V#ëÉ>!>!>&¯2EÍÏþ*ÂÏA a GrouðMultiple EQUIVALENCE of COMMOÎCOMMON Base LowereäNon-COMMON Variable in BLOCK DATÁEmpty List for Unformatted WRITÅNon-InÍbC:b·Â@?:·ÊC?* Í8@ÍbCÍbC*Y|þøÊ¿ ¯ÍLÃM? Program Unit Length½ Bytes Data Area Length½ Bytes SubroutineÊâ=ÍòÃâ=*|µÂ9=:Q·ÂL=:·ÊF=ÍèVÃL=XEÍ ¯2GÍšbÚâ=–=Å=œ=:¾þÈ*]|µÈë :�·Êw=ÍbC:±'·Â�=ÍŠVͶͧ;ÍcV*¡:‹äDÍ bÃS==ÂÃ=áÉÕW>’ʲC_x‡¬CGx‡GÍL      me ExpecteäIllegal Argument to ENCODE/DECODÅÍcVÅå:°'·Âˆ;|Íc;}Íc;áÁÉÅG:°'·ÂŸ;xÍz;xÍz;ÁÉæÆ0þ:ÚeVÆÃeV¯Ã“;¯)�)�)�Íz; ÂŽ;áÁÉåÍÏò/BÖ0G:E=ÊÁAþÊÁAx=Ê‹A=Ê”AÃ/BxþÊ‘AþÊŽAÃ/B2oõ:2£>Ís®!‹Í3 ÂB>ÍsNO*²Í’ ÂBñ¯2£:EÃVbÍ�Uñ2P2o!B"Í´:E2¾teger ExpressioîOperand Mode Not Compatible with OperatoòMixing of Operand Modes Not AlloweäMissing Integer VariablåMissing 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·ÊÏ;ñ7õyÍz;ñÂÎ;ÑÁáÉðØüœÿöÿÿÿÍO;> ÍeV>(ÍeVÍÅ;>)ÃeVÍÍW:Pþ(Ì_Æ Íò‚!¤¬ÃÐ Íz'¯ÍùD:ã·ÊOBÍT !æN#FÍ ÃB :Pþ.ÊŽBþ*Ê×B!‰¾Ê~B+ònB¯2ûÊBë)¨~2û#~2‰É>Ís !¥Õå±ement Number on FORMAÔZero Repeat FactoòZero Format ValuåFormat Nest Too DeeðStatement Number not FORMAT AssociateäInvalid Stateå*pÍ8@Í"<áÍ8@>+ÍeVáÃO;"¡*¡#|µ+Èë*ÁÍ’ ëÐ~æ2‹G~æ€2�+~æO2Ã~æ82¾~æÀ2a+V+^ë"]ë+V+^+ë"p͘ !«w+‹@yþ°@*]"Ø+    üB>œÍüB>•ÍüB>gÃüB·ÊQIþÒÙGG:Ã=ÂIG:¾=ÊtFþÊIF:ã=Ê¿FþÊ+!"ÿ*!"$+*ÿ*)++"+ë*š~#fo"+*+ë*œ~#fo"+!"+!"&+!"+*&+)"+*+ë!ÍâAë*+"+–"(+*+êÿë*”~#foë*(+s#r*+#> fo ë*+s#rÃm0*ÿ*)++ë*¢~#fo"+!"+*ÿ*)"+*+ë!<ÍâAë*+Âÿë* ~#fo"+)++"+ë*¨~#fo"+*+ë*ª~#fo"+!"+*+#"+ë*+5!"h+!"+*+#"+*h+)++"+ë*¨~#foë*+ÍâAë*v+"z+*+ë*ª~#foë*+ÍâAë*x+"|+*z+)"+*|+ë!ÍâAë*+^~#fo}µæ´ÖŸ2þ*·Âè6*z¦2+·ÊŽ,!"+*+øÿ}µæ´ÖŸ2þ**++++}µæ´ÖŸ!þ*¦2+·ÊÁ,!"+*+øÿ}µæ´ÖŸ2þ**+øÿ}µæ´ÖŸ!þ*¦2+·Êõ,!"+*++++}µæÍâAë*+êÿë*”~#foÍvA*–Ͱ?ÆÿŸ2þ*·Â€3**+)"+¦)~#fo"l+*+v)~#fo"n+)"+*l+ë!ÍâAë*+êÿë*”~#fo}µæ´ÖŸ2þ*·Ê€3!Z"$+¿F=Ê}E¯2¾xþÂvE*ªÍõB|·úLEµÈÍ’ ÒkEM>#Ã]E###|·+++úkE}/+õÅÍüBÁñ Â]EÃø>ÍJÍGÃø=*ªÊ6E!«~·ÊÂE=²ExÖ²E+¶Â²E:ã·Â©E>eÍüB•>œòÀ0*&+#> •>œòº0!"*+!"+*+)"+Ö)~#fo",+*+*~#fo".+*ÿ*)++"+ë*š"(+*+ë*œ~#foë*.+{•ozœg}µæ´ÆÿŸ2þ**(+~#foë*,+{•ÍâAë*+"+*+ë*+ÍâAë*+"+*+)"+*+ë!ÍâAë*+êÿë*”~#foÍvA*–Í@ÖŸ2þ*·Âõ.*+#"+ë*+ÍâAë*+"+*+ë*+ÍâAë*+"+*+)"+)"+*|+ë!ÍâAë*+^~#foœÿ}µæ´ÖŸ2þ*·Âè6*z+)"+*|+ë!ÍâAë*+^~#foÍvA*–Í@ÆÿŸ2þ*·Â 5*h+#>•>œò5*x+#> •>œòŸ4*v+#>´ÖŸ2þ**+øÿ}µæ´ÖŸ!þ*¦2+·Ê(-!"+*+)"+6*~#fo" +*+>*~#fo" +* +)"+* +ë!ÍâAë*+êÿë*”~#fo}µæ´ÖŸ2þ*·Ê˜-*ÿ*)+*+)"+*+ë!ÍâAë*+^~#foÍvA*–Í@ÆÿŸ2þ*·ÂÔ3*ÿ*)++ë*ž"+~#foØÿë*+s#r!"+*–Í=PÍ«>!B+Í.Pp+B+!tÍc*p+}µæ´=ÖŸ2þ*·>.ÍüB¯Ã4C¯2ã>gÃ�E:ã·ÊGÍT 2ãÃG+~·ÂæEx=È=ÊQI=ÿ**÷¬ÅÍòþÅÍ*IÁÃÖF=Âd(Œ(<´(È=È:>+@+Ü(+=ÊFtB+<´(=ÂFx=>=ÂüB><ÃüBx=>ÖÂ!F>ozœg}µæ´ÆÿŸ!þ*¶2+·Âž1*+"*+*+#>•>œò1*¨"2+*ª"4+*–"8+* ":+*¢"<+0+*œë*šÍ*–Í=PÍ«>!B+Í.P*˜"F+*ª"P+*¨"R+F+B+!¬+*+ë!ÍâAë*+êÿë*”~#foÍvA*–Í@ÖŸ2þ*·Âê/*+)"+*+ë!ÍâAë*+êÿë*”~#foÍvA*–Ͱ?ÆÿŸ2þ*·Â]0ÃS/*+ë*+{•ozœg" +*+ë* •>œò™4*˜"€+*ª"Š+*¨"Œ+€+*–ë!tÍ"*~+}µæ´ÖŸ2þ*·ÂË6!"v+*v+)F*"+~#fo÷ÿ}µæ´ÆÿŸ2þ**+~#fo++}µæ´ÆÿŸ!þ*¶2+·Â»6*v+)+ë*ž"+~#foÎÿë*+s#r*+÷ÿ}µæ´ÆÿŸ2þ**+++}µæ´ÆÿŸ!þ*¦2+·Â.*+÷ÿ}µæ´ÆÿŸ2þ**+++}µæ´ÆÿŸ!þ*¦2+·Â.*ü*#"ü**ÿ*)++ë*žÂ#4*ÿ*)++ë*ž"+~#fo8ÿë*+s#rÃí9!"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#rÃí9!"+!"&+!"+*&+)"+*+ë!ÍâAë*+"+^"(+*+–~#foë*(+s#r*+#> +{•ozœg""+* +)"+*"+ë!ÍâAë*+êÿë*”~#fo}µæ´ÆÿŸ2þ*·Â]0*ÿ*)++ë*ž"+~#foûÿë*+s#rÃm0*+#ë*+ë{•zœò¥.*ÿ*#ë*¤~#foë{•zœòÛn*"+~#fo÷ÿ}µæ´ÆÿŸ2þ**+~#fo++}µæ´ÆÿŸ!þ*¶2+·Â»6Ãè6*v+#ë*~+ë{•zœò=6*ÿ*)++ë*ž"+~#foBÿë*+s#r*+#ë*>+ë{•zœò92*++}µæ"+~#fo<ë*+s#r*+øÿ}µæ´?Ÿ2þ**++++}µæ´=Æ�Ÿ!þ*¶2+·Â�.*+øÿ}µæ´?Ÿ2þ**++++}µæ´=Æ�Ÿ!þ*¶2+·Â�.*ÿ*)++ë*ž"+~#> •>œò,4*r+#> •>œò&4!"v+!"x+*v+)"+*x+ë!ÍâAë*+^~#fo}µæ´ÖŸ2þ*·Âî5*v+)"+*x+ë!ÍâAë*+^~#foÍvA*–Í@ÖŸ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"–+*+ë*–+{•ozœg}µæ´ÖŸ2þ**+ë*”+{•ozœg}µæ´ÖŸ!þ*¦2+·Â8*”+)"+*–+ë!ÍâAë*""=*&==~#fo"$=*"=)"&=*$=ë!ÍâAë*&=êÿë*="(=!=Í=P* =Í—@Í>ë*(=s#r* =#ë*=~#foë{•zœòn=É�€�ÍÉåÕÍ=Íá~@ÖŸ2¢:·Âx<¥:!þ<ÍšBÍöIž:!þ<Í—Bš:!þ<>Í/BÍöI!ë*k:"£:!š:Í=P*£:Í@ÖŸ2¢:·ÂîÍ>"Ï:~7w?##wy7O®É*wYãå*yYãéáã"yYáã"wYɃ\õ>Ã>Bõ>Ã>Bõ>Ã>Bõ>2RYñÍQÍ$Q~#fo"þ¯2[Y¯2\YAë*+"+*r+ë!¢ÍâAë*+Æ~#foÍvA*–Í@ÖŸ2þ*·ÊÐ9*ÿ*)++ë*ž"+~#foìÿë*+s#r*r+#ë*>+ë{•zœòm9*&+#>•>œòO8*ÿ*#ë*¤~#foë{•zœò„šW#~™OÜÅAÃO͈AÃ@Í^PÊmP>€©Oö?ÍO@> 2«X!PA"¬X!US"®X!E "°XÍ`@*;X6 ÍLX*;X6 þTÊÑWÉáã²X~#ÂV@ãé!«X Å~Í=XÁ#Âe@ÉÍO@> 2«X!ST"¬X!+êÿë*”~#foÍvA*–Ͱ?ÆÿŸ2þ*·Â8!"r+*”+)"+*–+ë!ÍâAë*+"+*r+ë!¢ÍâAë*+Æ~#foÍvA*–Í@ÖŸ2þ*·Ê8*ÿ*)++ë*ž"+~#foøÿÆ _Íá~Æ _ÍÉ!wYÍ=P>�¸ÊJ>Ò(>Í)W�ÍfPÍX>ÍTPëÈë!{Y6€Í Bg>˜�ÍÚP|ÔËAëÉ>€©²³Â">akÉÍ=PÈõü«>ÍAñú«>ÃmPÍ^Pʹ>õÍmPÊÁ>áÍBò‰>ÅÕÍAÑ:!þ<ÍšBÍöIð:!þ<Í—B*m:ë!þ<>Í)BÍöI*m:~#foüÿ}µæ´=ÖŸ2¢:*m:~#fo+}µæ´Ÿ!¢:¶2ô:·Â <*g:"÷:õ:*m:ë*i:Í*===*i:ͬÃî<*g:Í=PÍ<2@YðB>2[YßB¯2[Y<ßB>þ¯2[Y¯2\Y¯2@Y~#fo"qY!«X"ˆXë~#¶+¾B!"BY!9##"'B:\Y·ÂßBgo"DY"FY"HYà C!DY>ÍþP*DY~#¶ÂõBgo"DY*FY~#¶ÂCgo0!àü"œ+!"ÿ**ÿ*)++ë*ž~#foë*œ+{•ozœg}µæ´Ÿ2þ*·ÂQ:*ÿ*)++ë*ž~#fo"œ+*ÿ*ë*¦s#r*ÿ*#ë*¤~#foë{•zœò :Éñ>2ûÍP(1X,'DO YOU WISH OP"®X! "°XÍ`@ÃÑW͈AÚ@Í^PÊIPÍmPÈÍï@yÅ+FÅ+FÅ+FÅw`hã|·Êç@gyãÒË@:wY‰O|g}oxGã-|¿@áã}·Âº@ÑÃOáElaOù@!zY~€G¨xòAÆ€ÊàOë*+s#r*r+#ë*>+ë{•zœò¥7*&+#>•>œò7*ÿ*)++ë*ž"+~#foë*$+{•ozœgë*+s#r!"&+*&+)"+6*~#fo"˜+*+>*~#fo"š+*˜+)"+*š+ë!ÑÁõÍIAá|ÍIPÁÑÒ•>!«>å̦>ÍBÍ%?ÁÑÍ�@ÃÈ>>¡OÉ!zY~·È+>€®wÃmP�QYÃFPñú¹AÃmP:zYþˆÒÿ>þhÚ÷>ÍBÍAÆ�ÁÑÊÿ>õÍÙAÍ@!?Í…?ÁJá@�QYÃFPÍ>"Ï:Ñ:!þ<ÍšBÍöIð:!þ<Í—B*m:ë!þ<>Í)BÍöI*m:~#foüÿ}µæ´=ÖŸ2¢:*m:~#fo+}µæ´Ÿ!¢:¶2ô:·Â�<*g:"û:ù:*m:ë*i:Í*=ý:!þ<ÍšBÍöIÍæ=É"FY*HY~#fo"HY¯2]Y2nY2pY2jY2MY2£Xgo"JY"…XÍëO*BY|µÊECÍ?L*JY"^Yþ(ʘKÍ)Wˆ2ŒX2�X2ŠX2‹X<2pY:[Y·È>ÓIÍÚNͳFúvCþ ÂoC> ÍØLwÃbC:¥X/<úˆCʈTO BE GIVEN A HANDICAP? ')BÍ%(A3)2û(1X,'DO YOU WISH TO GIVE ME A HANDICAP? ')Ú)(1X,'HOW MANY CORNERS? (1-4) ')(I1)2Ï:2oÏ:Ÿ(//wÍýAw+É·áú°OÃáOÍTPxþ˜{ÒIP!{Y6€Í Bwgú-Az³Â,A >˜�ÍÚP|ÔÓO{õ>˜2zYÍOñØ/<Éx±ÊmP!uPåÍmPy/È!yY®~ðÍdA©É#~¸À+~¹À+~ºÀ+“ÀááÉLUX)!�€"ÍâAë*+êÿë*”~#fo}µæ´ÆÿŸ2þ*·Âà9!"r+*˜+)"+*š+ë!ÍâAë*+"+*r+ë!¢ÍâAë*+Æ~#foÍvA*–Í@ÖŸ2þ*·Ê 9*ÿ*)++ë*ž"+~#fomPúáOðO|ˆYtà—&wÄz^Pc|þu~r1€�ÍFPâ/?Í)WŠ>€2zY¨õ!L?Í…?ñÍBoŸgÍvAÁÑö? Øî”‚©ª}„}™¿†{å(‡ŠqÀ‡n•‡² †­z… ��ƒëÍBÕÍTPÍ�@áÍ…?úµW!~·  !0åwþ ÚÊW5Í-M"=ë"=>!=ÍþP!â=Í=P!=Í.P*=~#foÍvA* =Í@ÖŸ2=·Êk=!Þ=Í=P!=Í.P!" =* =)"&= =~#foCÍØL=Â�C2¥X:RYþÊØM/Æ ÊØMÍØL=ÖCÍÚN:¥X·ú»CÊ»C õÍ~Jñ=¯C2¥Xõ:RYþÂÍC>ÍØL=ÂÆC:SYGÍ~JÍØLÃÍC!SY}Y·Žw# ÂãCÉ:[Y·ÊD*ŒXDM*ŠX"vY*///////////////////////)"g:ë"i:>!k:ÍþP!ë*m:s#ro:!þ<ÍšBÍöIž:!þ<Í—Bš:!þ<>Í/BÍöI!š:Í=P*k:Í@ÖŸ2¢:·Âx)ë)ëÒøA =ÂðAÉ!yYÉÿë*+s#r*r+#ë*>+ë{•zœò¨8*ü*+}µæ´=Æ�Ÿ2þ*·Âà9*+ë*š+{•ozœg}µæ´ÖŸ2þ**+ë*˜+{•ozœg}µæ´ÖŸ!þ*¦2+·Âà9!"r+*˜+)"+*š+ë!ÍâÁÑÃ�@ëÍBë~õ#Í=PñÁÑ=ÈÕÅõåx±Íš@áÍ^PåͶ?áÃ�?͈Aó?Í^PÊmP:zY·ÊFP�ÒÆ?/<ÍÙAþÒmPõÍýAgñåÍÚPñ·!wYòø?~ƒ_#~ŠW#~‰OÒÁO#4ʰO.ÍðPÃÁO¯�G~›_#~! ˆX ë*�XÍ4Då`i"ŒXá"�XÉ*ŠXDM!€"vY*�Xë*ˆX Í4D`i"ŠXëÃD:RYõå*vY+}‘|˜áÒ|DñåÕ:[Y·ÂeD*vY"ŠX>Í“IÑá*ˆXÃ4D>Í“I*ŠX"vY*ˆXëááÃ4Dw#Xë*ŒX{•zœÚŸJ#"ŒXë*ˆX+p!LY5ÀãJÍ)Wáá:MY·À:hY·ÊíLñK!]Y~4·ÊÁJÍ)W *PY"^Y*hY"dYÃíL!ÿ"LY*JYë*BY:[Y·ÊK~þ'ÊøJåÕÍäFÑáw#ÃåJ#~þ'ÊëJX2¥XÍûH:oY·úôFþEÊšHþDŸHÍ4Iþ+Ê®Hþ-³H>2‡XÍ4Iy2?Y*ŒX+"ŒX!LY4ÅÍHÁúäHOxþ ÚÙHÍ)W> ··€�GÃÄH:‡X·xÊîH/<2¥XG!¤X~�wÃôFÍ!Hø:ÃÚCajSXÍJOÊáOJS\E!zY–ÒáO/ÿÃÐF> ÃÐFͳFÊíFþ À!LY4ÃäF:AYþIÂ?G:RY=þ)Ê1Kþ'ÊÐJþPÂM:SY2jYÃíLõ|·ò(MÍ)W!"hYñ2AY!¦M¾ÊAM# þ Â2MÍ)W€yO!ÄM:[Y·ÊQM!°M ^#Vë"fYyþÒnMë*JY"PY!ÿ"LYëéÍ?LÂxMÍ)W�}2>Y¯2ªXñ=Â7Då*…X+"…X|µáÂ4DÉ<þÚ�D>G!ŽX60#åÅÍèNÁ!¥X4á:ZYæÆ0wͦO£D"PY~€þ:Ú×DÖ w+ÃÇDwë!ŽX|ºÂìD}»ÂìD!¥X4ëþ#"¨X|/W}/_*PY"PYÉ>ë"JYÃíL~þ'ÊKGåÍ~J*JY#"JYá#ÃKë*JY#"JYë#~þ'Ê KÃíL:]Y=òEK!nY4!"JYþK2]YÂíL*dY+"dY|µÊíL*^Y"JY!]Y4ÃíL!‡X6:[Y·Â�K:@Y·Â�K*ŒXëz³Â†KZYæðÂûHÍÜIÍ•OÍ•OÍÚCÍ•O:oY!}Yw¯#w IÍÚC!¤X:¥X†wÃûHÍäFþ Ê4IÉ:>Y2LYÍ4IúåGþFÊVIþTÂåG>ÿþ¯2SYÍäFòZIÃØM!SY~·ÊnI>T>Fw> #w#w#w>2RYàW}o|gÃxO"UYë"SYxÉå!SY·~w#œOáÉÍ•O¨OÉÉOÕÍ)WÿÿJ!zYqÉx!zY·üÓOF#~怩OÃFPÀÀ À€4ÀôOá¯go"wY"yYÉ:¸W·À<2¸W!çW6P#6#";XÊG=ÂG:¤X·ÊGÍ)Wš!UY¯¶Ê#GÍ)WÃ(G#ÂG:kY·ÊØM*SY|/g}/o#"SYÃØM>À2‡X:RYþÒPGÍ)Wš!¤X:¦X·ÂeG:?Y·ÂeG:ªXw~/C> Ã�I> Ã�I>O}2qYþO!P:qY¾ÒoB·ÊoB=_^#Vë ^#Vë¹IÕéÚÉIÈ*FY|µÂÕIÍ)W�*DY|µÂÕIÍ)W…ë*'Bùëé!}YSYw#ÂäIÉ!SY}YÃâI:pY!‡Xw·Êi6 :P=G!†Q¯w# P2¦Q¯2èUÉ ˜VëU˜V˜V˜V·Q·Q·Q·Q·QåÍTPás#r#q#pÃfPÍ^PåÍIPáÉÍfPë"wYë`i"yYÉ*wYë*yYDMÉ^#V#N#F#x·ÈyÃuP:zY·È:yYŸ·7ÀÆÉͼLØM!‡X~�w:¥X·ÂÐG!SY:RYþ¡G!WY~#~Î+w#£GÒµG!‡X4:YYæo:kY·ÊÆG}ö€o:‡Xg"YYÃØM!xGåòèNÃ}P:RY=ÊéG=ÊôGÍ)Wš:SYoŸg"SY¯go"UY"WY2YY>!ZY~·ÊŠNÖx2‡X¯w:RY=Ê)N=Ê)N+>€¦2kY>€¶wÃ@N!TY~·ò…N/W+~/_s#r>2kY7Ô}PÍ O!‡X~�wÈòANÆò\NÍèNÃDNÂ}N!sYSYÍâIÍèNÒDN!SYsYÍâI!¥X4¯/Æ-/<2¥XÍ~J:¥X_! ͦPñå{Æ0GÍ~Jã}Æ0GÍ~JñÉ:RYþÚåGÍN:¤XG!¥X:jY†w€·úÇEÍ•D¯2§X:¤X2¢X:¥X·úàE2§X!¢X†wÍ0Jõ:¥X/·ú F*PY"NY!ÿÿ"PYÍ J!¥XY!LYw:[Y·ÊL4*fYé:RYG*�XSYþÂ#LWY~#Â#L"�Xà L:@Y·Ê“I!„"ŠXɯ2‡Xgo"SY*JYë*BY~#þ ÊPLþ-ÂgL‡X îÃPLë"JY2oYGÖ0ú‰Lþ Ò‰L*SYT]))K:[Y·À>ÓI!¢X5øÂJ:NY·*ú~J!PY50ú~J*¨XF#"¨XÃ~J!>Y~�!kY–!¢X–2NYÊNJòoJ†2¢X/òjJ:kY·-Ä~J!§X5òdJ.Í~JÉÍ JÃWJÍ)WÉ Í~J!NY5ÂoJÃNJ*ŠÍÜIͼLÍÚCÍÜIÍËLÍÚCÂŽPͼLͼLͼL!¥X4É|/G}/O!>õ·ÃÁPõå ÒÀPñ7>á{_zW}o|gñ=·P|·g}oÉÖÚéPCZQÃÜPÆ o¯-ÈyOzW{_xGÃìPë`¸2ZYÍN:¥XÍ•D:¥X2¢X2§XÍ0JÍ4IÃ+HÍäFþ Â+H>0þ0Úÿ·É¯2¤X2¦X2?YÍ4Iþ-ÂZH>2kYÃ_Hþ+ÂbHÍ4I·úØM*ŒX+"ŒX!LY4ÍûH:oYþ.ŠH>2¦GÍ©LÉ+¶Â@N2‡X!SYw#Â’N!¥X4É>ÓI*hYë*ŒX"ŒX„y•xœÒíLÍ)W *ŠX"ŒXÃíLå Í~J*hY+"hY|µÂÅNáÃíL:RYæG:>Y�2¥XÉ!‡X>†w!¥X5Í©LÍÜIÍ©L4ÂúE*NY"PYÍ Jà F:RYþÚåGÍN:¥X·úE!¤X/<†úEFÅw!>Y~õÖw2LY!jY~õ¯w<2MYͳEñ2jYñ2>Yñ2¤X¯2MY>2LYõ Í~JÃ]F*JYë*BYDM*hYåÕÅÍäFÁÑá+|)_ÃEL*SY|µÂ”L#xÉ:‡X·Ê¥L¯•o>œg"SY|µxÉ·!ZY~w+ ¯L©LÉ!ZY·~w+ÂÂLÉ!„YÍ¿LÂÍLÉõTY!SYw#ÂáL6 ñÉÍ?L"hY Mþ,ÊíLþ/ÊdK" iN#F#ëq#p#ë=ÂQÉ2}X"`Yë"bY`i"~X¯2€XÉåÕ:€XþÒ9Q!`Y‡_ÃMQõ:}Xþ*~XÚRQñÖ‡_~#foõñ:€X<2€XW:}XºÑÒeQáÉãáÉ*^ë!Íë*`êÿë*VPIRFWITEXDOMLDZLGSQIBTLOBDEISBEINOVCNGLGSSNA2IODTBIRCEF!¯2·W2¸W!ÎW"ÏW*+ù`iéÉæW!ÙWå*ÏWé> Í=X> Í=XÃÉP +êÿë*”~#foë*(+s#r2qYü�SÑ{þ ÂxUÉ~þ Ò´Q2qYÕÅÍëOÍÅQ·ôSÁÍÑQëÑ w ·ÊºU#w®U:qY‡_!P·Qp+qÉÅÕÍÙUÍÑÁÉ:qY‡_!fQ^#VÉë*8V;V8V8V8V8VùU:èU·Ê8V 20020 IF C5$<>"DOCKED" THEN 20030 20025 PRINT "PHASERS CAN'T BE FIRED THRU BASE SHIELDS." : GO TO 20080 20030 IF D4(3)=0 THÉÍÅQ‡ò´Q6€‡ò’S‡ü-UÍÑQÍÌUÕͯÑ! wÉÍÅQæ@Ä�S¯É¯ÍàQæÏö(w*ˆXåë*ŠX&ë¯úÐSw#ÃÇSÑÍÍÑQÍ·È7É7ŸÍàQæÏö8w*ˆXëÍÍÑQ>€2ŠXÍ245 PRINT : GOTO 19260 19250 A5=J5 : A6=J6 : T2$=Q$(J5,J6) : GOSUB 6000 : GOTO 19260 19255 PRINT : Q$(J5,J6)="." 19260 NEXT~#foÍ*XÍÆÿŸ2b·Â*Z"æë"è>!êÍ…YFORTDATÃoB…TTâS°S¦S´Q�S!…Q:qY_~É!ŽQ:qY‡_^#VÉõ¯2¤Q2¥QÍÅQ·ôSæ@~¡R:qY_!{Q6*+#> •>œòÿÿ*&+#> •>œòÿÿ!"*+!"+*+)"+Ö)~#fo",+*+éWÅÕåõ_ÍñáÑÁÉå*;X~þ Ì]X#~";XáÉÅÕ çWÍ!èW^ë#6 #> Í=XwëÑÁÉ#fo> Í‚VÍ—V¯2èUÉ:èU·*éUåÈ> Í‚V> ÂV*ÏW V|’Â0V}“Ê3V"éUë"ÏWÉÃoB:èU·Ì�V:ŠX·È*ˆX=õ> Í‚V~þ+ÊtVþ1ÂdV> Í‚VÃtV> Í‚V~þ0ÂtV> Í‚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 ·Èþ?ɯÍàQ¯2¦Q:ŠX·Èå*ˆXã~æõ~æÏö4wñ:ŠXáõ~þ+ÊKTþ1Â=T> Í UÃKTþ0> Ì Uñõ> Ä Uñ#=ÊYTõ~Í UÃKT> Í U:¦Q·È7Éõ:¥Q·ÂƒTåÕÍÅQæÄ6UÍÅQ2¤QÑá< 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ë"ÏWÍÑQ*HY|µÊ)R+)ñ7õ|! w#¯w#Â2RñõÒSÕÍÌUÍ<ÑÂTRÍ<Ê´QÍÑQ*HY}´Ê€R}=æ! ¾ÄeTwÂvRWñõÄeTr¯2¥Qgo"HY7ë*,+{•ozœg}µæ´ÆÿŸ!þ*¶2+·Â*+"**+#>•>œòÿÿ*¨"2+*ª"4+*–"8+* ":+*¢"<+0+*œë*šÍ*–ÍÍ!B+Í*˜"F+*ª"P+*¨"R+F+vVåõæ_ÍñáÉ>2èUÍ VÉ«VÚV¨V¨V¦V¦V¦V¯ÉÃoB¯2ŠXÍLXæþ ʯVõ*ŠX&ë*ˆXñwë"ŠXþ È}þ€Ú¯VÍ)W¯É:ŠX·È*ˆX=õ> Í=X~þ+ÊWþ1ÂüV> Í=XÃW> Í=PHASERS." : GOTO 20080 20060 IF K3>0 THEN 20090 20065 PRINT 20070 PRINT "THE SHORT-RANGE SENSORS DETECT NO ENEMY IN THIS QUA2¥QñÉ7ŸÍàQæÏö w¯2ŠX2¦QÍÏTÚÄTþÊÍTõ*ŠX&ë*ˆXñwë"ŠXþ ÊÄT}þ€Ú–TÍ)W¯É:¦Q·Èþ?É·É!{Q:qY_~·ÌòTØ5!fQ/Æ�†_#>ŽW·ÉåÕÍÌUÍÑQÍ2300 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 19õÍÅQñÑ:¤QÒ�Röõå:qY_!{QráñöÀwÉå2¤Q*HY}´ÊýR+)LÍÑQ! y¾ÊÎRåõÍeTÍ�Sñáwáñ7õÃèQ! ~<òSÍÅQæÊS*HY+}æ<òñRÑñõÕÊS)ÍÑQ! yüRáñ~ECTOR";J5;"-";J6;"DAMAGED"; 19225 IF (N5<1) OR (N5>10) OR (N6<1) OR (N6>10) THEN 19245 19230 PRINT " AND BUFFETED TO SECTOR";NX~þ ÊWþ0ÂW> Í=Xñ#Èõ~#Í=Xñ=ÃWÿÿë*+êÿá~#å·õO!{W ^#Vë"#W!W6 #6 #6*#6*###6*#6*#6 #6 !W Å~Í=XÁ#Â_W:·W<2·WþÒÑWñÐÃÑWIDF0MDRANT." 20080 J3=0 : RETURN 20090 PRINT "PHASERS LOCKED ON TARGET. ENERGY AVAILABLE="; 20095 PRINT .01*INT(100*E1) 20100 IN¦Q·Ñá>€wÈ7Éåõ!{Q:qY_~·üZU4!fQ†_#>ŽWñáɇú6U>Í U!{Q:qY_~·6ÈõÍÙUño&·úYU6#<ÃNU+åÕÍÌUÍÑQÍ2¦QÍÅQæûwÑá¯wÉ!…Q~‡Õ{350 IF D1=0 THEN RETURN 19360 PRINT : PRINT "FOR CE OF NOVA DISPLACES STARSHIP." 19370 GOSUB 15001 : RETURN 20001 P=2 : J3=1ÉáÃTRÍÌUÍÍÅQ6€ñ7ÃàQå*©Që!fQ:qY‡O s#r!€åÍÑQÑr+së6#«Qw#·Â>S:qYGÖ ŸÆ1wxþ ÚWS¯Æ0#w> #w#¯Qw#·ÂcSw"©Qá>€wT]öÿ 6ë5;"-";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#”ˆ%B©0‚T$“ÉÅ1`€²O*ˆ  dŠDȤÂ`€‚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&‘EÂqL´†LzAZÔÖ*Öà§´©¼ôœ3Ÿ@ëW1ýhÖ§Æ[  nÂ7°C~·È"i +6ý‚3oð$¸<bT -5—ƒ â±8°NY'•Da²E" ä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 21035R�€˜U!’Är L@B ‘qN,–‚rH€�A+Dry8\ *$âX€²O*ˆÄò�€‚ #IÄQ‚M"‹„â™i¨+€‚ÌG�B4„CKAY´œ"ià+6˜³i˜,¹Èb„ -M—9 â±8°NY'((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) -0—L‚Šâ±8°ND'ˆ $ò¨€�A+D4žV"�ÄqL´À#–A4 ›J@‚9TCMÀ&m8fÒà@�ÓÐFm"ìðA KfÒ°@޽Õ@Að ›UÀ™µC•A·èC¯€™µ¤¬OŒ·@Ý… 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"•Da²E" äRa0@A'r(€�A+DBIˆ.Dr L@L*�Ée‘pœX1, åBAœKIåQžRDbI8Š #�I¤QpœS-M˜›„@ EfÔ€VmK—dLS�e« ²ì€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 2027dÀD9T›ZÁ; ›\AÀøËt­ØVLU™A u«˜þ´c?Óã-зaVð9Œ Z‚„x‡€3@fØFmýæ�Fm*ëpPŽiàm°kPWX«[‚žÒ¦óÒ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ÍÃ!IÍìI!Íþë!ºÍtýÍ !°Í»ͧ Ͷ Ͷ ³CHICKEN½YEÂWANT TO TRY AGAIN ×FT DEEPáYOU BLASTED A NEW LUNAR CRATERÍ—Í=É !~+Í|!ÔÍ»ÃzÍÐ%1Í5%Íè-1Í5-Í1)ÍôÍ5Í 5Í9ÉÍy1Å ýÍÍW�Í!)Í$ÍôÍ  Íðÿ É~þ Êó2þ À2W3Åå^#V#~#foþ7Ì\)ÚT3!9"å õÍ: ëÍ: ñ·ÊE ë!ë6#}»ÂE |ºÂE >!ë 6#z³ÂX !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Íè Í$AÍ51ͪÍšÃÒÍ)!Í,Í Íôõ Í Á Í5=Í==ÍW�Í !ÍØ�!~+ÍÅÍÔ=Í )Í !Í,Í r#=Â{ >Û2ß >Ó2â >É2á 2ä "ç !Ö "ò Í[ ÃëÍ@ STOÐͦ ö Í0 *ò éé.. . ........ÍÛë* |µÂ½ :ý §Â+ *û |µÊ+ ÕÍ1 ëÍ:—Íè!~+Í|!2ÍX!ž Í—!ž Í3ÍÃ!)Íì!-ÍìÍèÍ£é ”Íy-é �Í1-Í1)ÍÔÍ­vÍèÍ$)Í51ͪÍÕ5ÒNO… DO YOU WANT INSTRUCTIONS ¡ «ª*}«ª*~ÍÌL~«ª*†¼7mÍÌL|€ ×#y².p† „š™�aŒ%�fff�nwè�è��p‡Ãfx§Ê)Ñ+r+s=Â)Áûÿñw>#w+§ÀÃ_'~þ7ÀÕå^#VþëÂC)þÊC)!~áѧÉáÑ7ÉÍo.Ö!zÃ5 ý ÿ LfÍ`Í OD LANDING#�GREAT LANDING !!! (LUCKY)³SEC - IMPACT VELOCITYËON THE MOON ATÜSECäOUT OF FUEL ATõBURN RATE,TÍÔ½ Í51ÍšÍÕ5ÒÍšÍÐ94ÍÐ-Ã4Í1)Í$Í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Í !áÍ—!%Í|!ÙÍ»ÍÒÍW�ÍÍW‚Í ÍðÍØ‚!~+ÍÅÍØ�Í$Í51Í1ÍÔÍ5ÍÐ%1Í5%Í[[[[ 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 THEôÍW�Í1ÍØ�Í59Í1Í 1Í Á Íô ÍW�Í1Íð�ÍW‚ÍE½ ÍÔ¡ Í EÍÔ¥ Í EÍÔÁ Í !Í 1Í EÍØ‚Í55É!¿Í3 Internal Error - No Line Number ŠÃÖ Í: ~#¶Ê Í@ at line Í1 ÍÅ Ã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ûÿ Ít1ës#rø!#Í»Í !ž Í»Í !Í—! ÍX!ž Í—!Í—!ÍX!ž Í—! Í—!%ÍX!ž Í—!Í—Í !2ÍX!ž Í—!òÍ»Í !ž Í»Í ù Íõ ÍñN6„SET RETRO ROCKET BURN RATE TO ANY VALUE FROM 0 LBS/SEC'½ESTIMATED FREE FALL IMPACT TIME 120 SEC3çCAPSULE WEIGHT 33000 LBS & ~#foë>ÿÉÿÿöÿœÿüðØÍ@ at address áã|Íd}ÍdãåÃ0 > ÍÀ)> ÃÀ)ã~#ã*Ù Ík*~#foÉå!9"Û áÉå!ÃM Ñ*Û ùëéÍS "Ý ãÕÅå!t ãå*Ý ÉÁÑáÉáÑÁÉ +~<Ê›=Ê›###~þ›å* ãÉáÃÔ)ë!å* éå* ~á=ÖÒ¯/<ÍÖÈõÍÅñ=û> Ã,)ÍoÈ>,Í,)öÉåÕÅW* #^ ÌùÊó+†=»ÚóÍÔ)zÁÑá§Éõ{ÿÖÚ##~#foåÕžŽ9#å###~á‡�ÆOÅÍ IÁ#Ì IÁÑʘ9ááÃZ9!Fú®9#^#Vë5ëÃ�9áñÑå###4>ÌÁá¯ÉÍ 'å##s#rÁáq#pëöÉ !#€'€(€)€+€,€:�+þ�Ú&!�+%Í~þÂ!€ÉÍZ ÃÐ €�:�+go·ÈW*+|7õgÒB:~+·ÂB+>�’ÍQñÐ|/g}/oÉþÚZ!ÉÖÚoG|Êk·Ãbo&ÉÆ Gȯ|g}oÃr͈ad OnlùEDrive Select ErroòFFile Read OnlùÿUnprintable Erroòáñ>2´áåN#"Áë!9"¼"¾y2À*ð |µÊå* é!¼" ëA~õ#Åå*VõÍ_*~§Ê¼ñþÐ ö¯ãÕ^#V#Õ^#V#ãÍ*áÑãÉö¯ëãÕ^#V#ãåÍ*ÑáãëÉö¯ÕåÍ *áÑÉö¯ãÕ^#V#åëÍ *Ãö¯ãÕ^#åÍfëÍÿ)áÑãÉö¯ãÕ^#åÍfÍ *ÃRë&€ÿ)))ëõÍ: ñÉ>Ô>€ÉÍ0 !¤ ~<Ê  =»Ê  #~§#ò— ÃŒ #ÃFSyntax Error in DATÁRETURN without GOSU Type MismatcèOut of DatáIllegal Function CalìO õ{Æ_ñÃýñÉå! " !"ð ¯2 Í#áÉ! ~6#wÉá~!CÍRNÊ:ÿÍZ i&ÃÞ Š‰ ‹Õå+Í¥ë* {<–ÒlÍÔ){·Ê{=õ> Í,)ñÃláÑÉ|·-€.€0€õ6#~õ6+Í12#ñw+~þÂ:ñwÉñÉå!:ÍÉH~áÉgæo¬…þ Ú-:Ö ‡*+öHå!FX…oÒ>:ÍI ÍÄèÍI ÍÏèÍI ÍÚèÍI ÍšèÍI Í>ØÈɧ•~§È+~?É~§Â öÉ+®#øÒ­ë–À+ ò­¯ÉÍI Å̓Ôõë~#¶#¶++ÄQÕ>Íp*+V+^+ë·Êè+r+sáÍ›ÁÉáÁÉÍI ÕëÍ»ÑÉÕ~ͺÑÉÍIÊwõþÂÍÃÃÍÊ"VñþÊ9þÊEÍîÑÁ*€+å*~+å*|+å*z+åÃRÍ<ÑÁ*~+åÃRÍ×ÑÁ*€+å*~+å*VÍ_*Êj~#"Vëþ,¼Ãí~§Â¼!" ëé~,þ"‚#Ô>Ô>Ô>Ô>ãÕ^#V#Õ^#V#ãÃô>þ>þ>þ>þ>þ>ãÕ^#V#å!~+Ãô>Ãæ>Ãæ>Ãæ>Ãæ>Ãæ>ãÕ^#V#å!| ëÃôÅÃÿÅ verflo÷Out of Memorù Subscript Out of Rangå Division By ZerïOut of String SpacåString Formula Too CompleøRESUME without ErroÂÓ Õå}* –Ú{<ÃlÕåÍ¥}Ãl|·ÂÓ Õå}Ãl|·ò­!Õë* #n&Í+ÑÉÍd Í5Ä&3ÉÍa ÃÐ/Í@Í\ÍbÍ@€Í\€Íb€Í@Í\ÍbÍnÍ@�Í\�ÄÃÊÍI ÍÏÃÊÍI ÍÚÃÊÍI Í/ÃÊÍI ÍÄÃxÍI ÍÏÃxÍI ÍÚÃxÍI Í/ÃxÅÕå~+ÃåÅÕåz+Ãå"~+ÅÕåÃîH~# Âæx2¢: §ÂŸÍoÂÍORE --" : PRINT : IF K1=0 THEN 23120 23110 PRINT K1;TAB(5);"ORDINARY KLINGON(S) DESTROYED";TAB(36);10*K1*MR 23120 IF K2=0 THE"å~§Ê–¸Ê–# Â…üþ"œ#"Vxþ"ʱ ʱ+~þ ʦáÑyÁÍ©åÃRÍ@?Redo from Start Š*¼ùÍÛ!éÍ3*Á:ÀOÃìë*¾+~+þÊþÊ ë GÍ~ ÁáÊ~#foÃ##ÑãÉëãÕ^#V#ãÍI Í8ëáãëÉÍI ÕëÍ8ÑÉÍI ÅÕz³ÊR|µÊR|·õÕëÍ®3áñüÕ3ëÑÁÉëãÕ^#Vãëà ö¯2( ÍI Éö¯ÍI õÃyö¯ÍI õö¯ÕÅõÍ4*ò2Field Overflo÷3Internal Erroò4Bad File Numbeò5File Not Founä6Bad File Modå7File Already Opeî9Disk I/O Erroò:File Already ExistÍb�Ín�Í@Í\ÍbÍ@‚Í\‚Íb‚Í@Í\ÍbÍnÍ@ƒÍ\ƒÍbƒÍnƒÍ}Í›^#V#åëͧá"ÌáÑÁã*ÌãÉÍ}ÃFÍ}^#åÍfÃwÍ}^#V#åëÍ¡ÃLã"Θ!Íš<ÍÖ~§ÊÍ,)#à ÍÅáÑÁÉ͘!~§Êþ Ä,)#Ã!>2¢: §ÅÕåŸF#~#foxÍoÌÖÍfÊ]~#Í,)ÃQÍfáÑÁÃÑÍoÈ>"Ã,)ÅG: §xÁÉÍoÊÔ)å*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#ãÕ~#^#VëÍ2ë++ÍÑÑÍÛ'Ú§ :V·ÉU9þÚU9!Ó9ÍÉHÂU9~§úÏ9æOÍ:åñå~#fo´Ê¾9åñåõͰñÑåÍÿ)áÁÑñÈ|·ÈÃÓ ö¯ÍI õçö¯ÍI õö¯ÕÅͰÃ�·òÇ:( ·Êý!} Íø-Íž/ÃÔ:( ·Ê!� Í­1:€+·õæ2€+:�+þ�ÒÍ&:�+·ÂôñÃöñð|/g}/oÉÍž/ó=Disk Fulì>Input Past Enä?Bad Record Numbeò@Bad File NamåCToo Many FileóReset Erroò Graphics Statement Not ImplementeäDDisk Reáã~2Ëáã"ÌãÍI ÅÕå*Îå*ÌÉ:ËÃõ):ËÃ4*:Ë·ú¹ÍÆ­12®2"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+ÑÉÕÅÍÍÁ*Ø#~‘_#~˜WÒÄÍZ ÃÙ r+s##6€"Ü###ÑÉë!Þ~#fo´ÊèÍ~*ÂØëÉ<ëÉ*Ú"Øë*Ü}“o|šgë6@#sÃÊ Õ!å*Ú"Ø~#^#V#‡ÚÊú©Ík*ÑÕÃ�ã|µÂµáåÃ�ñ++~ƒ_w#~ŠWw#åÃ�ÑÑÉÕ̓*ÚDM~#^#V#‡Ú'òçÃÖ+z¾Ä+{¾Ä##¯{zë~ú !"~+áÁÑÃòyõÍå7Ò.!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§Èõ~ÍÀ)ñ#=Â4ÉãÍFãÉ~æÍÀ)¾#ÀÃFÅG~#¸Êb§#ÂT++´ÁÉõÍmñæÆ0þ:ÚxÆÃÀ)l:·Ê�#q#pë_§ÊÖy½Âx¼ÂDMÃÖ~#ÂÃÖYP+++ë"Ø6@###{•_zœW+r+sÑÉ·Êvõ*Þ|µÂTÍZ ÃÍ ñõåÍ ã^#V+ë"Þáñëw#s#r++ë+r+s##ëÉ!}‚É‘!ñññ:€+Õ!ñ:‚+/Õ!ÃÕ'¯Í!"æÊ£!6+ëÍ*ëòµ!6-ÅåÍ©áÁ´#60:¥W:¢ÚF#Ê>#þÒ*"Í)&!F :¥_æ Êî!x¹*Âî!{æÂî!AqÍÞ&Ê"þEÊ"þDÊ"þ |§ÂÓ ÅBKÍ8PYÁÉÍI |§ÂÓ ÅBK •Ò) o¯_à ÍI z´ÂÓ ÅÕz³Ê@ »ÒF_“½ÒLo}`iͺÑãÍÑDMáÉ>Ãv>Ãv>Ãv>Ãv>Ãv>å͉áãÊ…~|/g}/oÛ!Õ'å:�+þ�Ò¤ÍßëÑ"~+>2¢É€�͘ÀajÚ „ÍÌÌÌÌÌL}ÍÒÍøö¯À'Åõ>2{ñëÿ`hÌ›ë~þ&Ê'þ-õÊòþ+Êò+ÍÞ&ÚÙ þ.Ê þeÊBORTED" 36100 INPUTB$ : IF B$<>X$ THEN 36190 36110 PRINT "PASSWORD-ACCEPTED" : J=10 36120 FOR I=5 TO 1STEP-1 : PRINT SPC(J);IBÕ:–:<Ê[EúçE> ÍùE> ÍùE>ÍùEå*%<'<Å–:ÍÑEÍø&òÊ*~+}/o|/g#"~+|ÀÍûÍŽ3ÃÊ!€+~î€wɯ2�+ÉÍø&àúåÍž/ÍûÉ*~+ÍûÃŽ3Íø&ÐüåÍ~/>>àÕë*,{•zœ*.ë?Ò˜}“|šÑÉåÅÿ~# §ÂžyÁáÉÅÕGåÍAãxëÍp*áÑÁÉÅÕåÕGÍAxÁãÅ#N#Fá& ò̓ÐÍQÛÅÕå*,ë*.ëÍ~*ÊÍÔÊúÍQåÍ›á###Ãá0Êî!þ,Êî!þ.Â"+60{æÊ"+6${æÀ+pÉ2¥!6 ÉͲë*z+å*|+åëõ¯2}ñõÍÕ"Eå~¸Êv"þ:ÒV"þ0ÚV" #~·ÂG">D¸GáÂE"ñÁÑë"z+`i"|+ëÁÑÉÅ#~þ+ʽ"#foãÉ##ãÉÅÕåõGN§Êµy§Êµ#~#foë~#fo¾Â¾#Ê´ ¤ y°Ê¾yÖ<.ÚÈ)ÊÈ)ñ¥áÑÁõÍÑëÍÑñÉÍ£B;àãjæÖéiìÚïdò@õ:ø–û—þy þEÂ. åÍÞ&þlÊ þLÊ þqÊ þQáÊ- :¢þÊG >ÃG ~þ%ÊŒ þ#Ê� þ!Êž þdÊG þ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å*Úy•xœÚ–*Üy•xœÒ–áÕ++å`i+V+^áÍ~*Â##Ñþ-Ê”"Ö0Ox‡‡€‡�GþÒ½"#~·Â{"`ÁxþE²"y„þ áÒf">€2}ÃÂ"|�þáÒf"ê"ÁáÃf"ñÁÑë"z+`i"|+ëÁÑÍÂ#þåÞWÍË$õ:}·òð"ñ‚Ãú"ñ‚úþ"ºÒþ"Ö7À ÍÅÕ_!×4Â5*Ø"Ø~#N#F#‡Ú]ú7 Ík*à y“xšÒB à å+++6@#y“w#xšwáÑÁ+++6###É!×~6þÚn̓ÃÍÍ*Ø#~“#~šÒÍZ ø& Â^ ܧ ÃòÍÞ&ñå!§å!<åõÃ^ ·Í§ ÍÞ&Ã^ åÕÅõÌ×ñÄîÁÑáÉÈõÍø&õäÙñìtñ=ÉÕåõÍø&õänñìQñáÑ<ÉÕx‰GÅå~Ö0õÍø&ò!*~+Í ÍIÒ!T])))ñO |· 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 36170 NEX~ƒ_#~ŠW#~‰OÉÍD5ð1!|&í1Í`3 ¯É‡Ÿ<ÀÖÉáÉo&ÍûÃŽ3ë*~+ãå*€+ãåëÉÍÐë"~+`i"€+ëÉ!~+^#V#N#F#É!·î2Í25xþ˜{Ò'5!‚+6€Í4wg>˜�Í�5ÉÃK5, áõÍj%60Ì×Í‘%+~þ0Ê #þ.Ä×ñÊ?#õÍø&>"�w#ñ6+ò0#6-/</Ö Ò2#Æ:#p#w#6ë!É#ÅþzÒÀ#Ú]$Íb%ÑzÖô>%Í)&{·ÌO=ô>%åÍÑ!áÊu#p#6!~#:£•’ÁñÉ:õ §Âœ)<2õ å*ò "*)!Þ)"ò áñþ ʲ)ÍÅ áÉ* é6É5À4É> Í,)~=æ²)áÉå* å! " Í,)á" áÉ> Í,)> Ã,): =Êï)> ÍÅ > ÍÅ **)éö¯^#V#åÍÿ)áÉ· Ú�'Ö?ÐþÐÆ )Ø)Ø)Ø)صoÃw'þaØþ{ÐÖ É<ÅÍø&ø:�+þ�À:€+·ø€‘ÃŒõ:{2|ñõ¯2{ñÉÍZ ÃÐ ÍZ ÃÐ Íd !"ð !V"VÃí':2æÂþ'Í@? Ãþ'pÍ$+·ÊŠ,�Ò./<õÍŠ,ñþ9ÒK5õ:Š+OÍú3G¯2ƒ+ñ!Š+ÍA/:ƒ+2y+x!„+z+·ò�.Íx.ÒG.ë4Ím/:y+·ü[.!‚+~æ€++®wÃK5!z+4À#Â`.4ÊŠ-+6€É!„+z+¯Ž# Âx%6."£#HÉ À6,#ÉÕÍø&âà%ÅåÍ!x&ÍÍ.¯ÍWáÁˆ&> Í}%ÅõåÕ/áå>žÍÒº%á>ŽÍëáp#ñÁ=±%Åå!z+Í¿Ãí%ÅåÍ’>ÍßÍÂáÁ¯Î&?Í}%ÅõåÕÍÍá!º*qA³*!„+Í‚.™?Ú,³*!„+Íu.¯Ú:€+<=úG.!z+Íæ.!³*Íä.x·Â,!�+5Â,Ê-Í,‰!€+N#FÍú3®+6¸õü,!€+>¸�NÍA/ñü[.¯2y+:z+õͨ.ÍK5Áxð/<É!È~þ Êz#þ*Êz#+åõŽ#ÅÍÞ&þ-Èþ+Èþ$ÈÁþ0¸##ÍÞ&Ò¸#++wñÊ®#ÁÃ{#ñʸ#á6%ÉåÚd$ÊÜ#€&Í4úê#áÁ͘!+6%ɶÊ͘òÓ#ÍüÄË$áÁú$Å_x’“ô>%ÍU%!~+ò*!z+Ã*·~+ò*z+ö·ü*w#w#w#w#ÉÑÂùQÃQ·òA*>Åz+ÃG*>Å~+Õ,*õ ~#ñ=ÂK*ÑÁ!,*É#~þ Ê^*þ Ê^*É…oÐ$ɧÈÅGw#Ât*ÁÉ{­)Ã2(:õ(·>\2õ(Â(Êý'Íù(+Ê,(~Íù(Ã@(+Íù(Â@(Íù(Íö(!Võ¯2õ(ñÃC(Í$)OþÊ(:õ(·ÊY(>\Íù(¯2õ(yþÊÃ(þÌü(7Èþ Êê(þ ÊÃ(þ Â}(Êþ'ÃÃ(þÌ.ɯž# Â….ÉÍ….Ò¨./!y+¯Oyžw# .¯G:€+·ÂÑ.!y+Vwz# ¶.xÖþÀ©.Ã5!y+Íä.·òÉ.x·ÊG.!�+†wÒ5ÃG.~w# Âæ.Éåͧ,áÍ5Í~/Ã/åͧ/{–_#zžW#yžO++Ò&Í€#ÍÂëáp#ñÁÚó%>Ã/&ÕÔ&>Í}%ÅõåëN#FÅ#ãë*~+/}“o|šgÒB&"~+Ñáp#ñÁ=Â/&Í}%wÑÉù¢áÿŸ1©_c²þÿ¿É¶€z+~5·#Ê‚,Éz+!„+Nwy#Â’,ÃK5z+ëö/!z+ó/!„+ÃÊ/Í`1!`1ãé!‹+ÃÄ,!�+>ÑF+N+Å=ÂÇ,ëé!„+ÃÛ,!z+>ÑÁq#p#=ÂÞ,ëé!z+Ã-á"²*ÍÒ,ÍÁ,Í­,*²*éÍ‘%³ÄN%³Ä}%ÑÃb#_y·ÄÄ ƒú$¯ÅõüÆ ú$Á{�Á_‚xú8$’“ô>%ÅÍU%ÃI$Í>%yÍ�%O¯’“Í>%ÅGOÍ‘%Á±ÂT$*£ƒ=ô>%PÃk#åÕÍåѯÊj$Íü7ÄË$áÁõy·õÄÄ €OzæÀz¬É¡!«Í8M>õÍ–RÍ¢RͦP!±ͳRñ=ÂsRÍŽRÍŽR!5ÀÃÊJ!²>5È=›RÉÑ>!«N#F#Å=¨RÕÉÑ>!²Áp+q+=¹RÕÉ:²·ÊU:¨·ÊÊJÍeL44ÊUÍS!ü"qA>žÍü(Êþ'þ›(Êþ'Íù(> Íù(>Ã%(þÂ¥(>#Ã,(þ¾(ÅÕå6Íö(!VÍ)áÑÁÃ@(þ Ú@(x<>ÊÎ(yq#Íù(Ö Â@(> Íù(Í$)·ÊÛ(þ Ê@(ÃC(:2æÌö(¯wɪÃ0 ÃÀ)õ>^Í,áÍu/!„+Ãø-åͧ,áÍ5Í~/Ã!/åͧ,áÍu/ÍŠ,!„+Ãè-y2Š+!€+¹*~q+Â7/ÉqåÖÚX/áåNsY+ÂM/ÃC/Æ W¯áÈå~w+Âb/Ã[/!€+Ã_/ÍŽ3Ã~/Í5¿É¶€Æ¤~�@zóZ rN ¥ÔèèvHä TÊš;áõ€–˜@B †''èd #~þ:Ðþ ÊÞ&þ ÊÞ&þ ÊÞ&þ0?<=É:¢þÒ'ͳ/Ê5:�+·Ê5!Š+N#FÍ3Í*/q·ÕÊ=-ÅGÜo.Ím/xÁ Â&-ÑÂ-è.!€+ÍI/Ã5-²jöô¢0 TeÂB׳]�Âh!¢ÚI�.›kÁ‘ €�åͧ,áÍ5Í~/Ä-åͧ,þŸW�O“õÅüÆ úŠ$ÁñÅõú˜$¯/<€<‚GÍ‘%ñôG%Í}%Áñ»$ÍO~þ.Ä×"£ñÚÂ$ƒ�’ÅÍ#ëÑÃk#Õ¯õÍø&âï$:�+þ‘Òï$`&!„+ÍÍzñÖ õÃÔ$Í!%Íø&ê%C‘ùO͘qQ™?ÚôR>ŽÍqQ¯Ú:§<=úNQ!¡ÍÛQ!õ"ÍÙQx·ÂâR!¨5ÂâRÃÊJy2±+û"~q+Â(SÉÍcMë+~·ÈÆÚUwåͦPá4ÀÃUÍÊJͳNö¯xÅõ>2¾ñëÿ`hÌ\ù(ñõö@Íù(Íö(ñÉ~§Èþ Â)õ> Íù(ñÍù(#Ã)͵ æÉ’Qå* þ ÊC)õ#~+<ÊB)=–ÜÔ)ñõþ Ì«)þÌ®)þ ÚT)4+~#<ʃ)=§)ñþ ʲ)á; þ ÀõÅ: GÊ€)¯Å; ÁÃs)¯!z+w#„/ÃK5Í•/}ÉÍÊ/Íž/à 0ÍÊ/Íú3!}+F#^#V#NÃâ4Í 0}É„+~#¸/·G++NÈyÃS5z+ö/Í5Èú 0xõ>@G2�+>õÍ4ÕÅx·Í%2ÁÑͰ1!©0Í®2Í4ñ=ÂãÖ·7ÉÖ·Éþ-Èþ+È+ÉÍÞ&Í›'þOÊ$'þHÊ$'+Í0'Ú9'ëÍ›ëÉþH#Êe'Ã?'ÍZ ÃÐ ÅMë!ÍQ'ëÚO'}‘§ÁÉÖ0?ÐþÐ)Ø)Ø)صoÃQ'ÅMë!Íw'ëÚu'}‘§ÁÉÍ›'Ö0?ÐþáÍu/!„+Ã-Í,!�+ÿq#~æ€ö++w+qŸ-ÃK5€DNnƒù"~€‚`Þù3ó5�zÏÑ÷r1{ÏÑ÷r1€Àh!¢ÚI‚ͳ/ÊK5yî€O2Š+Ãþ-ͳ/ÊK5:�à %h&Í4ò%ñÍ· õÃò$ñÍÆ õÍ!%ñ·ÑÉÍø&ê3%t”ø#͘Ã9%p&Í4áò%é·È=60#Ã?%ÂN%ÈÍ}%60#=ÃJ%{‚�¸ÊJ0Ò"0Í,�ÍD5ÍQ1Í25ëÊF0ë!‚+6€Í4g>˜�Í�5|Ôã3ëÉ!É>€©²³Â0akÉÍ5!B1Í­1Ãd0Í5Èxþ™Úo0Í,"~ƒù͸2Í4Í&3ÍAA,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áÉͶ4ÂÉ4Éê4ÕÍ,ÿÿJ!�+qÉx!�+·üô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)yOŸëãéHGáÃâ4Í 3ñ2Í<5Ê'5ÍK5ÈÍ3yÅ+FÅ+FÅ+FÅw`hã|·Êþ2gyãÒâ2:~+‰O|g}oxGã-|ÂÖ2áã}·ÂÑ2ÑÃ$4áE6210 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) .4x±Í2!­0Í2õú™0!©0Í2ô`1!­0Í­1ñô`1!±0Ãn1€û׆d&™‡X4#‡á]¥†ÛIƒÍ5òÓ0Í`1!`1å�QYÍ`3Úè0!1åÍñ3Í(2 £8Í`3Ú1!"1åÍ4!)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(4á¯go"~+"€+ÉåÍ25ás#r#q#pÃD5Í<5åÍ'5áÉÍD5ë"~+ë`i"€+É*~+ë*€+DMÉ^#V#N#F#x·ÈyÃS5:�+·È:€+Ÿ·7ÀÆÉ|/G}/O!>õ·Ãv5õå Òu5ñ7>á{_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,HLlaOÃÐ2!�+~€G¨xò3Æ€Ê5wÍú3w+É·áúÑ4Ã5Í25xþ˜{Ò'5!‚+6€Í4wgúD3z³ÂC3 >˜�Í�5|Ôô4{õ>˜2�+Í$4ñØ/<Éx±ÊK5!S5åÍK5y/È!€+®~ðÍ{3©É#~¸À+01-12 ONLY !!!" : RETURN 1ÁÑÍñ3ÕÅ!(1Í‚1ÁÑÍ(2!11Ãn1!B1Í2Ã`1!F1í1׳]�€�b5ƒ~P$L~y©ª�ÛI�’ €�Í5Èõü`1Í&3ñú`1ÃK5!�+~·È+>€®wÃK5ëÍ4ÕÍ25Í´2áÍ‚1ÁÑÃLL.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#x·ÈyÃS5:�+·È:€+Ÿ·7ÀÆÉ|/G}/O!>õ·Ãv5õå Òu5ñ7>á{_zW}o| SDBLX YNM RET ; ; ACCELERATION TABLE XATAB: DEFW 0 DEFW ACON1 YATAB: DEFW ACON DEFW ACON1 DEFW 0 DEFW -ACON1 ~¹À+~ºÀ+~“ÀááÉLUX)!�€"�+ÜÝ3Ã$4ëÍ4ëÍŽ3ÁÑÍñ3Éëz³ÊÑ3z·BüÕ3|¨G|µÈ|·ëüÕ3ÅÍ[5ñ·üÕ3ëÉÍ,‰¯O“_yšWÉ!‚+~/w¯o�G}›_}šW}™OÉÍ4Í'5ÁÑÉ!€+~7 SCORE INC A DAA LD (HL),A ; SCHED SHIP START LDBLX PEPNT ;SHIP ENTRY ADDR LD (HL),-1 ;MASK = -1 LD A,(´2ëÍ4ë~õ#Í5ñÁÑ=ÈÕÅõåx±Í±2áÍ<5åͳ1áÃ�1Í 3ð1Í<5ÊK5:�+·Ê$5�ÒÃ1/<Íñ3þÒK5õÍú3gñåÍ�5ñ·!~+òõ1~ƒ_#~ŠW#~‰OÒâ4#4ÊÑ4.Í¥5Ãâ4¯�G~›_#~š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®É*~+ãå*€+ãéáã"€+áã"~+ÉajSXÍk4Ê5JS\E!�+–Ò5/€©Oó1Í 3Ã%2Í<5ÊÑ3ÍK5ȯ�GÍ3ë"g+ëy2i+F¯oÍè3Íñ3!Då*~+:€+‰OÒb2�+ë4ëÑÊÑ4Ãz2ÑÍŠ2g.å*g+:i+‰OÑz‹ÑÒc2ÍŠ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 -€.€0€õ6#~õ6+Í12#ñw+~þÂ:ñwÉñÉå!:ÍÉH~áÉgæo¬…þ Ú-:Ö ‡*+öHå!FX…oÒ>:$~áÉ##~æ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 ASCRELCRFPRNÐLANDER 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©"JjªABS(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 2ìCþ:ÒðCÃÕCOÑÉÅÕ!€~6·GÊ"D#~þ  DÃýC*@x+#ÊD~ÃD2p:ÃBD¯2p::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 "A7ÀÍÀBþ 7ÀJÍ£B;·úBþ 7Èå!·:Í—Bá:d:‡!u:ÜwB‡!–:õ:o:·Ê2BŸ:;>õ ñ=Â(BñÜwB:l:·ÂGB:i:·ÂGB:j:2l:Íõ Íñ_ͯ2€ÍEͨ 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õÅÕå'ÂäBx·ÊÀBëÍ\DOx=yÂCþ[Ðþ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Í<Ê¿@áÑÁñÉõÅÕå!"'>)>Í!·:~·úEÃöDåÕ ¯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Í\DÃùBþTÂCÍ\DþT7ÀÍ\DþY7ÀŸë·ÃäBþLÂ8CÍ\DþS7ÀÍ\DþT7À>þë·ÃäBþR7ÀÍ\DþD7ÀþR7À>þë·ÃäBáÁ> �Ú_Cë6 #=òWCëyÖ.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# ÂAÃA ÂAÈÃý@¯2Ô@*+ù++"e:*;å:p:·Â2h:*e:ùÍóC:+@þ Ê:A¯2t: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Õ:–:<Ê[EúçE> ÍùE> ÍùE>ÍùEå*%<'<Å–:ÍÑE'<ÍÁá–:ÃREõ:n:·Ê�BÕ:u:·ú[E>Í`Få*#;%;Åu:ÍÑE%;ÍÁáu:ÃRE|µÈ}æÊÜEÆ€æ)„`iÃg:ÌÒCëÕ;xþÚwCÊ„CÍ\DÃxCáyÖ/·yÀÍ\DþLÂ�C2l:Í\DOÃ…CÍ£CÖCå!¿CÍÉHʰCá7É~æ~!±Ê»C#¶wáÉE@4BX`ZN€DSC‚T"åÍ\Dþ[ÒðCþ0ÚðCþAÒELSE 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:å!–:Í—Báyþ=3 0F> ÍùE> ÍùE> ÍùEÑñÉõ:l:·Ê�B:–:<ÊrDúØFãåÕ*%<|þÌ(F#"%<&<ÑñõæwñáÉ'õÅÕåÍÑÕÍ·Â"GÑဠëÁñ=Â0F!É%;>!u:Ã0Fõ:n:·>ÿ.¯!±N#®G.x·Ê–L}!¨®€G¨xò•LÆ€wÊÆKÍEMw+ÉÍ´L/á·áòÊJÃçTÍ#Mx·ÈÆÚUGÍcJ!¨4ÀÃU:¨·È:§þ/ŸÀ<Ɉ!¨Op#6€òJÍõLðÍ]úxPʶ!§È:¨·ÊM�Ò}J/<ëÍMëÍMÁÑþÐõÍEMgñÍ=K|·!¥ò¤JÍKÒþJ#4ÊU.ÍdKÃþJ¯�G~›_#~šW#~™OÜ)Khc¯Gy·ÂéJJTeoxÖþà¸J¯2¨É|µ²ÂáJyÒÖJOÃìJ)z±Í¥Qx·òQ:ª2 ÍzQÒKQë4ÊUÍÑQÃKQ>žÍ|Q!©Ü’Q¯G:§·Â:Q! Vwz# ÂQxÖþÀÂQÃÊJ! ÍÙQ·ò2Qx·ÊKQ!¨†wÒÊJÈ: ·ü]Q!©~æ€++®wÉ!¡4À#þÿÊqH¯2nG2oGÁÑáÉåÕÅ:oG=òœHrGÍNGÍÆÿÚ±H!rG"pG>2oG*pG~þ¬H7ñH#"pG·ÁÑáÉÉ…oÐ$ɧÈÅGw#¿HÁÉÅG~#¸ÊÙH§#ÂËH++´ÁÉÅG~#¸ÊíH§#Éz£<À ÉÍ]øÍ´LòOÍãLÍOÃÚLÍ]øÒ&OʶÍON!¨~þ˜:¥Ð~ÍÂN6˜{õyͲJñÉ!¨~þ�ÂJOO+~î€+¶Â6O·!€ÂIOÍ\NàNy·Èþ¸ÐõÍ#MÍEM®+6¸õ+qüzO:§O!Ê�B:u:·úrDãåÕ*#;|=ÌUF#"#;$;ÑñwáÉ:·:<ʃDúGåÕ*'>|þ̨F#"'>(>ÑÖD)>>õÕÅÍ·:ÍÁÑ=ÊÑF!€ëñ=­F!Éñ>ÃÍFñåÕÅõ_!t:þ ~î€wÉÍõLoŸgÃ\NÍ]ʶò´L*¥|µÈ|þLë*¥ãå*§ãåëÉÍ&Më"¥`i"§ëÉ!¥^#V#N#F#ɥÎ!«¡2‰Q¯Ž# ˆQÉ~/w! ¯Oyžw#œQÉqåÖÚ¼QáåNsY+±QçQÆ W¯áÈå~w+ÂÆQÿQ!§ÃÃQ~w# ÂÛQÉÍ#ÂÝH+++´ÁÉãõͶH~#foñãÉ{­Àz¬É|/g}/o#ɾÀ#  IÉÍþI ŠÉþaØþ{ÐÖ É>åõ!JIͶH~#foë>ÿ<Ú5IÆ0Í/}“_|šWñ=Â&IáÉÿÿöÿœÿüðØë)ØT])Ø)Øɯõ!§>¸�Í¥Qñü]Q¯2 ñÐÃQ!¡~5·#Ê}OÉå!x±Ê¢O>)Ú¶ë)ëÒžO Ú¶=Â�OëáÉ|ŸGÍnPy˜Ã´O|ŸGåzŸˆ¬ò[NÅëÍ”NñáÍMë͈PÃÎT|µÊ\NåÕÍbPÅDM!>)ÚÒôFÖ ÊòF<ÊòF~=w4{þ  G> ÍùE~æÂûFà GÍñÁÑáÉåÕÅÍÁÑáþ7È·É!BGÍ®@ÑÆ@þ@Â3G> ÍsD!HGÍ®@ÍžDÃDISK 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È.ÍrLy2«Kë"¦KPX!µJå!”Kåå!¥~#·ÊÈKåëWyÒ¬KÕÑÎO|g}oxGæÊÀKxö GzžKëáÉCZQOÉÍM!.RÍMÁÑÍ´LÊU.ÿÍrL4Ê´LÈ:²·ÊÊJÍhLÍSq·ÕÊRÅGÜzQÍÑQxÁ ÂRÑÂùQÃQ!§Í­QÃRÍÌÌÌÌÌL} „:¨þAÒFR"R!«Í8MÃäQ:§·òVRæ2§!ãLåÍŽR¡!«Í8MÍŽRxGyOÒvIÒvIñ<õx±Ê‡Ië)ëÒfIñ<õÃfIñÉãÕ_^ÑãÉÅMë!ͦIëÚ¤I}‘§ÁÉÖ0?ÐþÐ)Ø)Ø)صoæIÅMë!ÍÌIëÚÊI}‘§ÁÉÍIÖ0?Ðþ ÚâIÖ?ÐþÐÆ )Ø) Pë)ëÒñO Ú P=ÂãOÁÑ|·úPÑxÃjPÊPëÁáÍ”NáÍMÍ”NÁÑÃrKx·Áú\NÕÍ”NÑÃãL|µÊ¶ÍbPÅëÍnPDM!>õ·ÃKPõå ÒJPñ7>á{_zW}o|gñ=ÂAPëÁÕÃ÷O|ªG½LÉÍ]*¥øÊ¶õ:²æ ÊNñÔ~NÃKNñâNÍcM!’UÍ]MͦPÍ~NÃNÍTJ:§·õæ2§:¨þ�Ò¨ÍÂN:¨·Â=NñëÃBNñëòHN|/g}/oÃ\N!¨å:¨þ�ÒeNÍÂNëÑ"¥>2´ÉçT4ÊçT+~2L+~2 L+~2LAë¯OW_2LåÅ}Öo|ÞgxÞG>Þ?Ò L2Lññ7ÒÁáy<=ò>L:LæÀõx´µÊ9L> á´ÃÿJ{_zWyO)xG:L2Ly²³ÂLå!¨5áÂLÃÊJͦP¡!«Í8M>õÍ–RÍ¢RͦP!±ͳRñ=ÂsRÍŽRÍŽR!¨5ÀÃÊJ!²>5È=›RÉÑ>!«N#F#Å=¨RÕÉÑ>!²Áp+q+=¹RÕÉ:²·ÊU:¨·ÊÊJÍeL44ÊUÍS!ü"qA>žÍØ)Ø)صoÃÌI§Èõ~Í/ñ#=ÂòIÉãÍJãÉ~æÍ/¾#ÀÃJõÍJñæÆ0þ:Ú$JÆw#ÉzÍJ{ÃJå!AJÍJ+~ö€w+ÍJáÉ|Í/J}Ã/J6#ÖÒKJÉ!–UÍ&MÃcJÍ&MÍãLx·ÍiPë|·ò\N¯O•oyœgÃ\N*¥ÍnP|ÀëͶN¯˜ÃÈLÕÍ(P¯‚g{oÍ_NñÃjP!±~î€w!²~·ÈG+N¨·ÊZM�ÒÒP/<õ#åFwx+ ÂÂPáF+Nñþ9ÐõÍEM!ªG>w2 ñ!åÕÅë!NGþ:> HÖ@þÒqHw#2g:þ.Ê8Hþ!Ú8Hw#ÂH2g:þ.Ê?Hþ!Ò&HÃ?H6 #Â8H:g:þ.ÊLHJw#ÂLHprGÍNGÍ€�ÍuMÀajÃ[NÍ]àú‘NʶÍ#MͶNx·ÈÍEM!¤FÃþJ*¥ͶN|U�ÃÈLÍ]Ðʶü‘N!"¡"£>>ÃaNÍ]ÈöGOW_·ÈåÍ#MÍEM®güæN>˜�Í=K|ÜKÜ)Ká4 qQ™?ÚôR>ŽÍqQ¯Ú:§<=úNQ!¡ÍÛQ!õ"ÍÙQx·ÂâR!¨5ÂâRÃÊJy2±+û"~q+Â(SÉÍcMë+~·ÈÆÚUwåͦPá4ÀÃUÍÊJͳNö¯xÅõ>2¾ñëÿ`hÌ\mm.k1kÉkSke —k¹k&k™n¦n³nDläm1nŒn‘n†n‰n\nGnon€nƒnwnon–ntl~l p™oŸoämqFq�pep¹pwppppWpRpÑoÔo×oÚoàoåoíoñoõoùopap͉IÍÛJ!ñ?͉Iê3ÍÛJ!ÍMO͉IÍÛJ!ñ?͉IÍÛJ!ñ?͉IÍRL¹2@ÍRL½2@! @ÍßEÍqK±2Í9K@!ÒkÍ&KÍ„LÁ2ÍRLÅ2±2ÍŸL@ã4ÍôNë~þ&Êyþ-õÊySþ+ÊyS+ÍMÚ`Tþ.ÊTþeÊ‹SþEµSåÍMþlÊ£SþLÊ£SþqÊ£SþQáÊ´S:´þÊÎS>ÃÎS~þ%ÊTþ#Ê$Tþ!Ê%TþdÊÎSþDÂåS·Í.TÍMÍnÍMÚÓTÂåS¯“_qænºo¶o¤o­o�oÓk}oposoaoFoðn•oãnÝnÆoØnÓnn!Zå æøú?ZÍïH¯Z¯Z¿ZÌZÜZÜZ*[K[b[p[’[¤[¾[e Û[5_ þŸÒˆZæÍïH\z\z\¤\Ú\L_üZT_Y_„_–_œ_©_ÚOFÆxROÎySR°®SR±¯SR²°SR³±SR´²SRµ³SR¶´SR·µSR¸¶SR¹·SÒ®SINÇžARPTÒ–AÌÏAIÔrIDTÈzHILÅ€ENÄ�RITÅlOÒ€€€�€€xhp@xh@QQQQQQAp€pAp@A;! @ÍßEÍ?LÍ9K@!ÒkÍ&KÍ„LÁ2!Á2͹MÍ9S:‚:ÍôLÑ2±2i7!Õ2͹MÍ—MÍ5KÑ2@åÍçMÑ)) Í”LÍAMi7ÍïLÕ2µ2ô6ÍôL½2@E7ÍRL¹2@Ã7Í5KÕ2@ÍçMÍ—UDÅ‹NÄBÓ½SæӔTξUTÏ“ASÅ•LEAÒ’ALÌiLOSÅ{INÔ¡SNÇ¢DBÌ£HR¤¿OÓÀVÉÖVÓ×VÄØONÔ“HAIΉOMMOÎ’ATÁVI͆EFDBÌsEFINÔtEFSNÇuEFSTÒvELETÅ“EÆ`LÉ2Á2“4ÍÛJ!<>ÍeIÜ4ÍÛJ!6>ÍeIÍ5KÉ2@Í„LÉ2ÍåLÉ2Å2~4ÍÛJ!2>͉IÍRLÍ2@!Á2͹M))jÍgLÍ2Í5KÍ2@Í„LÍ2ÍRLÑ2Á2ÍRLÕ2@ÃV5ÍïLÑ2±2(5ÍïLÕ2µ2å{�_ô=TüMTÂéSáñåÌÚLáÍ]èå!ÆKåÍeNÉÍ] ÂåSÜ.TÃySÍMñå!ÆKå!éMåõÃåS·Í.TÍMÃåSåÕÅõÌtNñÄ NÁÑáÉÈõÍ]õä�Lñì2Sñ=ÉÕåõÍ]õäÍKñì2RñáÑ<ÉÕx‰GÅ_è_\Ê_`ô_#`)`'\[©`5`É`5\k\c_n_šZþ£Úè[þ¨Úí[þÅÚò[Ã\ ÍïHy_º_g`I`²`¼`à`/` æõ`i#ÍÆbñ�OÐÉ æþÚÜ\æÃŒc æ!•j†w æÈ!3ÃX@ @"@�����������€€€€€!b!#%h€€€€I€€€€€€€€€€€€€€€€€€€€€€€Öw"™j"›j:Ÿj2�j:¢j2 j!�j>ÍNJ!$~#fo´ÊàXå##~#foÍãXáÃÊXÃiqåÍMå!Ñ2͹MÑ)) Í”LÍAME7! @ÍßEÍqKü?Í9K@!ÒkÍ&KÍ„LÁ2!Á2͹MÍ9S:ý:¸;! @ÍßEÍqKü?!ÒkÍ&KÍ„LÁ2!Á2͹MÍ9S:ý:ÍïLÕ2µ2…7ÍôL½2@Ï7ÍRL¹2NćQÖLSÅ�RROÒRÌÛRÒÚDIÔ“RASÅ’XÐÁOÆÐOÒˆIELÄfILEÓŠIØÂRŤOSUÂWOTÏXEÔ|Ï‚EX¤ÃÆYNPUT¤¼NPUÔ[MÐNSTÒ¸NÐ¥NÔÅNKEY¤ÝILÌ„EÔ\ISÔ“INÅcL5ÍRLÑ2@ÍRLÕ2@Ã45ÍRLÑ2@Í5KÕ2@Í„LÕ2Ã45Í5KÑ2@Í„LÑ2!Õ2͹MÍ—Må!Ñ2͹MÑ)) Í”LÍFMï4Í5KÑ2@ÍFMÒ7!Õ2͹MÍ—MÍ5KÑ2@åÍçMÑ)) å~Ö0õÍ]ò™T*¥Í Í_ Ò•TT])))ñO |·ú“T"¥áÁÑÃySyõÍ‘N7ÒµTt”$ÍuMò²TÍ�LñÍÈTÃ�TͪNÍ2SÍcMñÍÃLͪNͦPÃ�TÍMÍÃLÁÑÃcJ{þ ÒâTƒ†Ö0_úÃé2ó2ͯMÍÛJ!Î?͉IÍÛJ!ñ?͉IÍÛJ!ñ?͉IÍÛJ!ñ?͉I!±?ÍHÍ‘F!®2ͺG®2!­?ÍzOY3®2!©?ÍzOª3Ã.3ÍÛJ!ñ?͉IÍÛJ!j?͉IÍÛJ!,?͉IÍÛJ!ò>͉IÍÛJ )*‘jã"‘jå*“jãå*—jãå~‡!…o"“j*•jã¯2˜j-YÕÕ~ÖþgÔe O!BY N#FÃZá"•já"—já"“j*‘jã"‘jáÉGlVlkle 8l¥jéjåjÝjÚj kîjÄj™mÑm5m‘ly@ë7Í5KÕ2@ÍçMÍ—Må!Ñ2͹MÑ)) Í”LÍAMÏ7! @ÍßEÍqKü?!ÒkÍ&KÍ„LÁ2!Á2͹MÍ9S:¸;Ã:Í5KÕ2@ÍFM'9Í5KÕ2@ÍçMÍ—Må!Ñ2͹MÑ)) Í”LÍISÔ“PRINÔwOAÄ“EFT¤ÄOÇÆEΧSEÔgPOÓªOÃÑOÆÒOÄERGÅ“ID¤ÇKI¤ÓKS¤ÔKD¤ÕEדEXÔjOÔULÌoAMÅ…ÎpÒUÔaPEÎ}CT¤ÈPTIOÎqRINÔkOKÅbOÓ¨UÔ~EEË«EAÍ”LÍAMÒ7Í5KÕ2@ÍFM©6Í5KÕ2@ÍçMÍ—Må!Ñ2͹MÑ)) Í”LÍAM©6ÍôLÑ2±26!Õ2͹MÍ—MÍ5KÑ2@åÍçMÑ)) Í”LÍAM6! @ÍßEÍqKü?Í9K@!ÒkÍ&KÍØSå!§Í]â÷T:±ÃøTy®áÃUññ:§ÃUñ:©/ÃUyÃU:±!À"ÂåÅÕõõ*¼|µÂKU!¾~·Ê8U=ÂKU4*ÂÍ®2¿> ÍÀ> ÍÀñ!¥ŠUÒXUŽUÍ2MÍ]ÚjU!¡!Ð>͉IÍÛJ!‘>͉IÍÛJ!z>͉IÍÛJ!ñ?͉IÍÛJ!ñ?͉I!q>ÍHÍ‘F!±2ͺG!g>ÍHÍ‘F!µ2ͺGÍÛJ!ñ?͉IÍ»L±2@å;L±2@Ñ|²g}³o|µÂ4Ã(4Í»Lµ2@å;L5 AM'9ÍôLÑ2±2¾8!Õ2͹MÍ—MÍ5KÑ2@åÍçMÑ)) Í”LÍAM¾8ÍïLÕ2µ2O8ÍôL½2@š8ÍRL¹2@Ãu8Í5KÕ2@ÍçMÍ—Må!Ñ2͹MÑ)) Í”LÍAMš8! @Íß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 DIMENSI¹MÍ—M3å!Ñ2͹MÑ)) Í”LÍFMÇÍÛJ!.>ÍeIÍRLÝ2±2ÍŸL@Ãh=!á2͹MÍ—M3å!É2͹MÑ)) Í”LÍM@X=ÍÛJ!(>ÍeIÃa=ÍÛJ!">ÍeIÍ5KÉ2@Í„LÉ2ÍåLÉ2Ý2(=ÍÛJ!ñ?͉IÍ$IOERR€ÉÑ 2DôX ‘HÖ$W5€ÉŒ 2Es(‘)I$MJARG€É�`2DTè ‘I$ND�‰Ò“ `bE4„ÃI@×h2\.–€=GÀ&z�€Œ:*õXtTê> €‹4f€͹MÍ—MÍ5KÑ2@åÍçMÑ)) ÍgLÍ2Í5KÍ2@Í„LÍ2!Õ2͹MÍ—M3å!Ñ2͹MÑ)) Í”LÍFMp;!Õ2͹MÍ—M3å!Ñ2͹MÑ)) ÍgLü?Ã�;!Õ2͹MÍ—M3å!Ñ2Í¢$¦³@+4pŸRfóâhÎÉŒ€€RD”C(È($ICPœ�I�U ¡DdC)¨@t’# ª5Y …†F@€!"j ld&©&΀ÉN`BDÓ“Q%5U2j6d‰§'Å«!Ö|Z²# à‘!ø?ÍßEÍqKü?!ÒkÍ&KÍ„LÁ2!Á2͹MÍ9S‚:¸;Â:ÍôLÑ2±2¿9!Õ2͹MÍ—MÍ5KÑ2@åÍçMÑ)) Í”LÍAM¿9ÍïLÕ2µ2r9ÍôL½2@¼9ÍRL¹2@Ø9Í5KÕ2@ÍçMÍ—MRINT OUT A DIF FERENT MAZE EVERY TIME IT¬?N°?Y´?WANT INSTRUCTIONS (Y OR N) Ñ? ----------- MAZE -----------ô?@„@‚RLå2±2ÍŸL@Ãð=!á2͹MÍ—M3å!É2͹MÑ)) Í”LÍFMà=!á2͹MÍ—M3å!É2͹MÑ)) Í”LÍM@à=ÍÛJ!6>ÍeIÃé=ÍÛJ!<>ÍeIÍ5KÉ2@Í„LÉ2ÍåLÉ2å2Ž=ÍÛá˜Þ"´t°"T�D€»* 3n “3m K“3@ʽ’>¿•ã ^2ƒ ‡aÀÀ•Qa×`xʰ€uØ|+ÆU ^2ª  ñ•Y?ÌÆñ!@¬ü#[ ¹MÑ)) ÍgL@Í5KÑ2@Í„LÑ2ÍmK±2µ2Í9K@ÍMÍ2=ÍRL¹2@ÃÒ7ÍôL¹2@u<Í5KÕ2@ÍçMÍ—Må!Ñ2͹MÑ)) ÍgLÍ2Í5KÍ2@Í„LÍ2!Õ2͹MÍ—M3å!Ñ2Í4äÀˆM€à€¥Ö)u´¨°$z¡À ™À�QRàEô´X %9BOUT…ÒÑf¥`Ð ŠŠ–^•ƒL˜è(POKEf€6Lt(¤§(@ól?€cæH ‡BÀ#£@ =UPFÍ0 ü�™ å!Ñ2͹MÑ)) Í”LÍAM¼9!ø?ÍßEÍqKü?!ÒkÍ&KÍ„LÁ2!Á2͹MÍ9Sý:¸;Ãý:ÍïLÕ2µ2Û9ÍôL½2@:ÍRL¹2@Ã:Í5KÕ2@ÍçMÍ—Må!Ñ2͹MÑ)) Í”LÍAM€��`ƒHH†8…‚[[[[ BASLIB #100937 5.24 - OWNED BY MICROSOFT, 1980 ö¯Ãe@DM*ùÅÿ"âO*6S##"àOÃLA>ÃJ!2>͉IÍ5Ká2@Í„Lá2ÍåLá2Ù2=Í cÍÙA%> I+> 1>I5>:9>: ?>:--"E>MEANINGLESS DIMENSIONS, TRY AGAIN.j> LENGTHt> WIDTH}>LENØVTB€9ˆÄXu]Àì+lg7ˆ€"w�CjÀÀ6h*¶àáÙ…s æñ¿Zàð�l»@sxŠæ€ ­ˆøFf7ˆ®Ø¼d €•4 dÍâ EL@¹MÑ)) Í”LÍFM4A";A6#6P>„2BA>2AA>ÿ2@AÉÅÕåÍ\@·Ãõ@ÅÕåÍ_@Ãõ@ÅÿÃì@ÅÿÕåõ _ÍñáÑÁÉÃó26  ªË¬ª8Í¢ÁB«ô"†Uo fÔp@ÈI@(èÈI@)ðe{UÌnÈu¨›lC¶(õS@_ÀÖF¶¼(îç # ^<}UðU_fÚð¡ë ¬Œªpê‹?€Œ«õnÁ‰ç‡ð)µl™¶ô>­Âëpº.�#°ìØ0êÁƒ-Ï «Š / ªÈ1CFA�É»å‚3oÀ+àuvA\ÏÒfÛ0vhͼ@ÌÛbͼ Ãª¾ !¶ 'ux#;�XWÜ›l@D7(uq��ÇvÒfÛ°G¯H#6Œ€¦„  ¯[2¯Ð#6ówüFa^ðAзeZð±U²> ÌçÑy¼F" à¬;^>` €ÕÔTœ›}B¾:ì*x :ì*x :çáxðŽ:¦@«sà ¦ˆi"Xe|ÀÙ uÁ�Á󸬰Á@V€ dˆl Px·?Îâ°ë Ì…2BÀAͲÁAV¤ d½B †½€á£¸Œ&a[€¡°�âÉfÑ`¡µ a^§ð±•qŸÂöU;  YT %ü'eZp‡ñA…{‡VÐ(eRAXw)ê|[¼¯ê�­ßTØ •M€Ù·ˆ‡I€ÀÄQÕÛ[²ªˆÍª¡«|!¡ ia•E}U`00­‡W@ÀÂÑxðeSÙµT uVÀËá`„f€)íŒ0#³j¨CŒúÆÙµT!âÉ]à'ðµoY·\,uz@ˆâÂ:©hc„Øvð &#??„ì«„ëZà†Ä ??„ì«êGr³j¨@ªì„ÄW¨!Â#aÝà‡Xª÷ÄWÜ!Ö#??„ì«Èø�C«=yQÀ‘ é@ ûaÙP‘• a\@¡U¢ˆ©Iñjʸ�B«8"¢á":4aÜ^/cYV¼-›k‡¬:ÚͶ!ƒªÀ·}Y U’¬Úªñ°¬0ʽ€½GUŒüaZ@ð›k‡¬+::ìÚª͵áL;H!´ ![†‘Çp˜Œ·@,‘Õ-[²¯`ª�‘ ¢ªL"Vð�•BÁÙ#ªH2²ÀÌÚú·€¯â3*–ƒ¿ŠŒ+x >¿•ã+� Í·`�*bõáb^~[²ª(8ø¨ŽãáŒî#;ˆÎãàÊÙ°ë¸øì€ãàc²��óèÊÁ?‰âuYÁ×Í*Œ·eT`è¾êÃ�-ÙV¼,CFAOɸꦂ­ØVœCDA@ÀqÕUàB€gฌüÎ Îâ0+ ½´¬`(†­�@˜þoPU»*΂Ÿ^ÈxêÄ‚™ÄV4‡kÂÄ5<Êò·áŒ0u[G¬«€ =e\°Vm$M«øS6Ê„ Šä¯@Š@¡ ÑGVØ!n¬�#ªö·aV@‘Ueuž–l*ºV��°�Ö"ªÁ Úè:§�#*ž2’€V€•» uPBVì*ø!BU|%‰B„ е„°î P†ˆŸ–ì«*¯;°í Hª±� ÄVX$ø·|-Y ;H:± ëR°m r˜ "+˜á]ÀHªè€‘ ¢EuEW¤Ö*ºà –m 0DW´Öý#«(õrН¨¬ú‘>&-*¦ñrµGWn§€Bª""  Cà36µ´\ UXt,|fÖ qU*RpÃ%áYÖKÂ2³¬#dÚ®–Õ d ®Àñjµ€ìÛV �\ âÕ…kÙ¶t ë`Ë­Ò!¾ ÁvŽâ0˜…nÁÙ"n¶€ì;r:¥@"x w[²ªHê�-Øà3µˆo@(Õð¾`㫸8)¼.Ÿ3ˆ®*¼Îo^ AtZ QòàeTÁY·\,uXYµ°uwÁFVÌ elÀÀmfаvfÛ°Gð�…@�‡ÃðÁµDÁŸÃ¦•k V nÉ?Öì•xÊ”Œ©X(Ê ‚³hX;øZ¦ ÃàÊÉ‚°é°«È[6‹ ¯8QôeUBÅTà,V"®l;Í©�h"Á PA$“¤b9¼†SÀKM€h¸5¢àÔ\‹ƒQpk6YA,XEw¶ ´èì�Wð;Îu€‡W¤$Ž* aAÒþ0®XFü†Žâ0˜…pBÄVÐ,UB�‹w€ç«Xw$~z«ÎãÁ•òfØ 7ˆÊˆ‚Œ¬ð+6…ƒƒ€'‘•T aXŠÇƒj(0Ð b³o�+VUÄ aØ€‘ ” ?-ÙU„1¬xVÀ¥yÜulǬª=ePÁXù¦Œ­øHù¶;°è¸`†Ø…–ï*¸/+ŠÏÂòøLæ#9€#+î7jZðVmPÞ ³ò@îÈyQ€Æ0 åLöü1‡FÃUP0Bm¸[6܃³0 ŒE\ÁUpV"¯@‡Å«„F­ Œ;ˆ*¼ $Bh†˜‚ YVÄUP€…gÔ‰ñ0Ú¶À‚ª� ?Æ@ÜÀiX°FHùþôàƒáÓ‚3lP#*â?�L �0íØ èXTXuzǬ«¼=a^PAÕ([²K%^2¸¡&sxŠøŠ©�K¬Ul‚'áMü eRp§ðµ…O‚€4`(tœ)Ö"¤C+Ü Gk U€)ü iV¡U *E"�Ȥ¾Xtp(UTB�‹Vk ž#ªj·eWÀ¥zTÞ>' â*Â|Zž àBÜC`GÕÛ á�lÑÖþˆ€༮}—Âb«4\ð&HøþWŒ¯¨ê†?€�«x ͺác Ž:½à wÕõ@?� ›[‡W´ nò €jñ�³h8@êþ�-ÞT” ê3j¨@†û� YTØ â!¨á€`AÜFaV�Á P 2GÀ&j\зXªÁ„†DUø0„R§„ãJâ3kÐX0UD„V1‡qœ a6ª„ «Ð`¬Ehƒ‹Vœ p°…PU  RD”C)@Ô,ü#3Ýgá˜ÞëdÇ@)"J ¡”à…“ÑÕ 2EC‘5I$MRM1� PS`2DÑ5I6$MAR0� �U BDÔ)@ÔüÊͤÀ˜Œä#8ˆÎ :pͦVmE4„£Cè$SHJR1Žˆ€bE4„¥#HÈ$J1œ…”“‘Õ‘ BDõdh‘=YÂ$RND0� “‘ RE$äC@ÔÀ#F@¬Ð&¿ÉBâÉ<hhÝùHÀÂ3ó™©'°Àã(À0È£ °à«J­ƒ�íVm!f�@Æ‹ Ô€‚ÌÐ(xÊ¡ ÚL*® Õ£*ê€G®cø„@ ¯˜–èî¹`w‹Õ‰n€ŽJñ–=3›ÄV´nõfÑ ‹Du�WÈìz¹GU,¾p˜däáx½˜vK”e�’ð–H ™' dŠ Q’à¶H §ndŠFQÕàH¤k¦ dŠHqÖ vH¤‹ℊH¨qЀ¨H¤Š‰ê dŠhÑ‘PÆH¦�¢ ÄŠi)†‘Ù0¬H¦�”˜cëÄŠi JF1™0,H¦�”¤i¥ dŠjñ•à¶H¨‡Îdt’)¤)GE€)"šB‘Œà…�T‘Õ“ 2DH‘Q&$ATR”MZ€fI8FFºÎ"3€�Ö=aP0Hȱ`4ˆ€xÈd¹Z£ªFþ4©Ø†‹!Ëá`e‡SÀ£ª&þ ¨øjªî Pêó…¹�äqÕQ H «€c$CXƒÀD1ÜCo ` 6À3m˜8ͰL;bÊ „„ˆ(1–иHHˆ¥•„„ˆ©ÑšxHHŠ¥L„„‰&1“°¸HH’eE„ˆ(fÛH‚ˆ”¤�È„ˆ*HñšPªH‚¤Žgp²Y´àÖ"fHˆdЍè¬UHÀ„ÖIxFV“„daánÈ<°Àè$T1Ž“BDÕ$éÀ$MRM1އ€BDÔØèx$L1Ž˜BDÕ$ØèØ$MAR0އ€BDdHÉ8$ACŒ•€BD3(èÀ$M‡A# ‘=Y:IÕ‘Œ#"`‘ Î2  T”££ ‘I9Â:" “‘#$ ‘5J:FI“‘ g„Ö�PàRE¤3‘iP5 p«Ìæñ"1�PH‚‡„ˆ(fQÐ H´‚†aWHú´eU X¤˜Í¤À`2y_2© •êÍ·@LÛ¬ñp�Ü/»Õ‡O@"dü@Ê…Ð Ùþ l–mª(4-ÞTèðÉ‹vtZ°ªØÉ…Yl*ÚÉ2šŠe€0!‡]a a×@ "ƒÅ»êÄ€ÂåóÐ\®} ›Ï�s8‡]@@¬D1’H”q5ÄŠi F†1“à H¦�”¤cŽFLG�‰“�РbDuDdÄx‘Q $DSKER�‰QST–`dE4´E%h=A:P†5=—K…%ÃÀ†qà´ŒO)B P.<—€K�€%Çàä r´$†] *ºMÀ¨(û¡ XŠ˜P Hˆ¨„�.dˆŠÑ›€ÆHˆ¯Œdˆ¨Ñ��ªHŠŒ˜�]dˆ©Ñ˜ðÈHФ¥ dˆÈq’@¦HŒ™t dˆÊ”¶HŒ¯}dˆèÑÐH’ad‰&1ÐÀH’ed‰&q– 8H’ˆ­² d‰)±Ô` f€ Ú³@m °¨ˆ6ƒ€3hà6�€@£&: U£$@‘M!)0Æ2‰R�T‘ã" ‘)I2$‰ÒS #$  ‘p„ÒQ BD”Ei@ÔÐø/#ŸEäð„^«vÒS’c‘1%9 2&‰”£#‘1U9Q 2V‰Ô‘“'…SS• bDÅTåD)@ÔT‚€Pp…€PÐ D@#! ‘IXÎ:‰S•£"`M-IZ2“•§C¼¨HÙ‡y^p;òÁ³i08 ͤ �Vh¯hˆA€ÉÝ’Í£@bë«Ù*öm5s3Þƒ¸¨rºÅ@˜ë «Ã¡ÇÕ%;ˆØtp ¢ 3@ m&Y PÝ�7d�ÓìÚjæg½‡qU�lÐ(d‰F1˜ H”g„‰ÊI‘Ôp Hœž¤a„‰ÉêQ‘PH´‚‡„ˆ(fq‘°H¤œ‰8…TÒQ• bE4„£C‘M!)HÆ$SHJR4”MFÀ¢<[Ÿ‚çqu…AÀ,�°›@¬*&ÉŽ‰€bC‡@@X_ Ÿ™"L:£ÀrøX/ÊÌ—ª¼e�Xô›F€ïJØæ ˜WØuJ€ á`‡ €FÀP¹@gÄ“ ³RlªÒ"Çà±WfÒ`P|Z²«ð¬Rñ½O‚`2w�‚Šó¸ŒH’žŠ¤¥ĉ)é)É1–PÆH”c d‰FQœÐ–H”gd‰F‘›ð¶H”kÓ d‰Fñ�€¶H”qlÄ‰Š©ÊˆQ‘ð¶Hš�³ĉ©H*HñÜÐvHœ‰ „‰ÉêQÔÀHž‰Od‰è±š Hž ©5 dŠQz¹A-*4ñ�œ'°¹|ô+ŸBæóà\Îñ°¨ˆñn3ŸCæöLt$¢+N„ÔÒ BE4…(‘M!HÂ$SHR1”MIÀ°!µCÀe¢ˆ8à@ `I½^-dCäóÐ|®{—Ïò;‰G@!"šB”8 ›I€ÁAòeE™ PÝ�þÙ*öm5WŒ±ðê©-ÙQUBqŸœÁ©ùÌÏ{ ïÕfp½OÏá[*Ð?†,+$>3kÐ?†àS2°¼^£àS°¼DcÖU®zŸ™µ€ ‡h‡ÀÖm`cà» na%R:ÉV# ‘a%R<‰ÓÑ“#"‘QQe=R0ÉS§…PÔRSàbEEE””è‘QQe=R$LNPTR�‰ÔP‘ bDÄ”ä$iB°ÕŠÕr½AÀ"û4 x¸Z,K”U•ÏàS2�á‹ ²�ŒÚžÃ¯ àS6¯€ŸÂUy Uä| fÖpˆ��õ?ÙµÜâ=a×°Ȉ$IOERRŒ¡€2D$ÈÊ@$BFŒž€BDU%(ÈÀ$TTYINŒÀbEEE”õHè$DRV3œ„ÑT” BDU%)@°$J1�k€2D£(öÀ$J3�l€2D£Höð$MF�p2E(÷$PL�s€2E(÷H$PS�a€RDTdÄx÷h$SF�w2E4x÷ˆ$SW�y2ED8÷˜$TS�bDED$dñp$DTBF�€bDED$cñˆðð$FLFLGŽ“bDuDd4(èÐ$GTFLGŒ…bD”ôU%(Ï€$IOINIŒ‹‚bDÅTåD(ò$MEMRYŒš€ÂE$T8Éx#$UNކdE4´E%hï OPENœ…“• dÅDE%h‘=A92P5­Á`àÐ px¸D\J.&KŠ%Å â  qX¸´\\./—€KŒÀ%Æ ã` qðºü]‚.—a€K±%Ø ìp vH»,]š.Ï—hK´@%Ú`íP v°»\]°.Ù—mK¶À%Û€íÐÉzޱèÝ…vœ­Vms–, ›F€Xð¢á ±èÅ’7O³i¨™žöÕã*ö2ÇÀ ÚHÚ£ oàÓ*‘½EW˜LuŠ«`eâw ºÄWà ü eQ�3ëùÚ½`LÐ$¯dޱðÝ�þÙ+vH‡ €¬ÏÂ,¨ád±Z àPG3@ /€°ÈŒl ��LÚwu´X,™p@ —*` èx$TTYINŽ€bEEE”õHò $LNPTR�bD5Ô$hð$LINBFœ…‘“Ô‘U 2D ‘Ê$A3€PÖ8Â~¹Váw©< Õ IxFVuˆ° ‡ �¢1°(F6ÆÂ¡ŒF6ÆÂ¡Ø#„8 bŸ™  #aS`Ð<T ðQ¤$˜Uú“eT€uˆ©°%†°Ý™i@Ý�*¯Qð5›e vð»|]À.á—q€K¹@%Üàî� wX»´]Ü.ï—x€K¼€%Þ`ï@ w¨»Ø]ò.ú—~K¿@%ßÀïð p ¸\.�2Dð$A2�€2D8ð0$AD�€2D$hðh$BL�àX_ Ÿ–ìʎ؈w÷ød2/c PÅñøŽ+†–ì—+U›HA´˜f�@,|·h¸GÈ» nÉr½D8LuJÂÀødü·~Zð1 ‡†C(bøŒ|GÞ!' %ú±`càÓ6°ˆp˜ê³…€ðÉùn6ÉQ 2D$h ‘ 2$POS€ÉÒà2ETè‘ Â$AC� PÌ BD38‘ Ò$POS2� P`2D8 ‘ $CD€ÉÕ 2DD8 ‘$DE€É 2DE�‘J$DV€Éà2E$8 ‘$REC „òŠI)�ˆ¤’q<¬C'É„r™LœAIäB¡’R!‘HÒà p ¸(2ŒÉPã*‘a%R2r‰SÕ# ‘IJp…S’U RD”ä•H ‘$IOFLG”ME€%Àà p´^2ÀåÀÏá[*Ä€?†,*ò>3l¸Ä€�LÛ.~ V$| fÙpˆ��õ?Ù¶\â=aذ+ÕÌ/ƒ€¬Ð(âád�€#,ͦ  ˜Êè$BFŒ¬2D$ÈÊP$CLSFLŒ§bD”ôU%(ð$OPNFLŽ€dq€BEõ8÷x$SK�z2ETè÷È$AC0�}2D8÷à$AC2�~€BD38÷ð$AC4�r€REõ3(ð $$AA�2D8ðP$BE�€2D4Hðˆ$CT�€2DD8ñ8$DD�2DDXñP$DL�€22¬Ú\ñ7‰€•»ê×�€1ãÑ�ŠÜ­Vm!fÒ`pUš ±ð6�9Ÿgv‹…^wd„@  Ÿ�íSØÊÇ�¿.° D&{ØW4 ’~ÚT$eu€Ú¬VhÍ£@ w¥l`³i0­¢ ;��a¥»*‡‚� Ô 2DTh ‘$FL� T BBDTè ‘B$FW€ÉÑ BBD“�‘$Ê$IM€ÉŒ`2D£( ‘(Î$J4€ÉQ 2E( ‘A2$PR€ÉàRDTdÄx ‘M$SG€ÉÕà2ED8 ‘QN$DTBF,!¢  T ß&K¥“ ĈiŠhÉ‘àHЇ¤‰)É*‘à H’žŒ˜�8…VU DU„•H ‘b$EXIT�‰ÓÑ“%@Q` p–€h@”U€#àk4™´,†2c åÅDE%iÀ…•Q• RDE%c9@Ö‰€T D(p¡À öK WŒ€hæ?¿�Lª.õQP0Ö*/¸MÖ"¤`àk úþ@6¨¸4 +Ù#ªb·d ©Hõê>³@óøVʯ DEñh$$DR�_€2DEhö$DW�u€2E$8ñH$DF�e€BE$T8öø$OPT�a2DThö $FC�b€2DdÈö8$$ER�d€BBDTèöh$FP�g€2Dexö€$GF�h€BBD“ö˜$$I2�j€2D”ØöÄgp+ �‚¯X,/ˆ@ȆgKªÍ¥À€àÓ4 h°Y#ª ‡/…€ýþ/Ê̘Ïð$BFŒƒ²D$ÈËX$CLSFL�bDE4´U(È $ERR�bDdÄ%Thð $FLCNT�bDdÄd4(A�I‘ bDED$c‘Q Î$DTBF5�‰‘�àbDED$cˆ‘$DAC0�IT‘Ì BD$x‘IÊ$ARG3€É�`2D£h ‘(Þ$J8�IÓÑ¥2à p¸ \.—K‚€%9 åhÍ„C!¤CÃâEÍHáåN#"�Fë!9"ŠF"ŒFy2ŽF*A|µÊ³F*+Aé!ŠG"#AëA~õ#Åå*$Iõͳj~§ÊŠGñþÊEGõþÂÞFÍVÃáFÍV"$IñþÊGþÊGÍATÑÁ*Ôkå*Òkå*Ðkåula Too CompleøRESUME without Erroò2Field Overflo÷3Internal Erroò4Bad File Numbeò5File Not Founä6Bad File Modå7File Already Ope¥SNÊKÿÍ}Ci&ÃBЉ ‹͇CÍ$tÄrÉõÒs#Í¥KÍÁKÍÇKÍ¥K€ÍÁK€ÍÇK€Í¥KÍÁKÍÇKÍÓKÍ¥K�ÍÁK�ÍÇK�ÍÓK�Í¥KÍÁKÍÇKÍ¥K‚ÍÁKå##ÃdB###ÃdBá|µÊ˜B~#foÁÉ!ÿÿ BÁÉÍ“S Internal Error - No Line Number ŠÃù@Í]C~#¶Ê5CÍ“S at line ÍTBÍèBÃSCë>õÍC<ÚCÍCñÖÂëBõÍÚ‡…é€�܃3 „˜ŒpHI‡…ƒ ,„˜ŒqI‡…ˆ 0-„˜ÍlCÍ’IÃvJÍlCÍ�IÃvJÍlCͨIÃvJÍlCÍhIÃvJÍlCÍ’IØJÍlCÍ�IØJÍlCͨIØJÍlCÍýIØJÍlCÍ’IÃFJÍlCÍ�IÃFJå*Îkåà GÍ�UÑÁ*Òkåà GÍ*TÑÁ*Ôkå*Òkå*$IͳjÊ8G~#"$Iëþ,ŠGûF~§ÂŠG!"#Aëé~,þ"ÂPG#"å~§ÊdG¸ÊdG# ÂSGÊGþ"ÂjG#"$Ixþ"ÊG ÊG+~þ ÊtGáî9Disk I/O Erroò:File Already Existó=Disk Fulì>Input Past Enä?Bad Record Numbeò@Bad File NamåCToo Many FileóReset Erroò Graphic‚ÍÇK‚Í¥KÍÁKÍÇKÍÓKÍ¥KƒÍÁKƒÍÇKƒÍÓKƒÍâKÍL^#V#åëÍ Lá"1KáÑÁã*1KãÉÍâKëKÍâK^#åͨLÃÜKÍâK^#V#åëÍLñKã"3Káã~20Káã"1KãÍlCÅÕå*3Kå*1KÉC<ÚCÆ0ÍjÍCñÖÒýBÉ}“_|šWÉ!+CÍ¿j~#foë>ÿÉÿÿöÿœÿüðØÍ“S at address áã|Í·S}Í·SãåÃSC> Íj> Ãjã~#ã*ü@Í¿j~#foÉå!9"þ@áÉå!ÃpCÑ*þÍlCͨIÃFJÍlCÍýIÃFJÅÕåÒkóIÅÕåÎkóI"ÒkÅÕåüIH~# ´Ix2õS:6A§ÂmJÍ=JÂìIÍëWÍ Q<ͤJ~§ÊåIÍ€i#ÃÙIÍ“JáÑÁÉÍëW~§ÊèIþ Ä€i#ÃïI>2EQCFAS� ï  LTJ!9"AõÍ]CëÍ]C ñ·ÊhAë!ë6#}»ÂhA|ºÂhA>!A6#zÑyÁͯQåà GÍ“S?Redo from Start Š*ŠFùÍáQ!·GÍH*�F:ŽFOúFë*ŒF+~+þÊåGþÊ×GþÊ×Gë +w ÂÙGëÃðG++å~#foÍ Oá"ŒF!ŽF5ÀÑ*ŠFùáëés Statement Not ImplementeäDDisk Read OnlùEDrive Select ErroòFFile Read OnlùÿUnprintable ErroòÍ„CÍ$t!FAúMF!GAõÍ$tñ!FAȆæw!UF:0KÃIj:0KÈj:0K·úLÍ+L›pýpœqqæÍ+LUnEn]m?l‡ãÍ¿j~#foãÉö¯ãÕÍIjÑöã:Õk§ÊKL†2Õk#ãÐÃóAö¯ãÕ^#V#Õ^#V#ãÍkjáÑãÉö¯ëãÕ^#V#ãåÍkjÑáãëÉö¯ÕåÍ`j@ùëéÍvC"AãÕÅå!—Cãå*AÉÁÑáÉáÑÁÉ€ÉÍSC!ÇC~<ÊÃC=»ÊÃC#~§#òºCïC#ÙSSyntax Error in DATÁRETURN without GOSU Type MismatcèõS:6A§ÅÕåÂmJF#~#foxÍ=J̤JÍ4JÊ+J~#Í€iÃJÍ4JáÑÁÃ×QÍ=JÈ>"ÀiÅG::A§xÁÉÍ=JÊ(jå*;A+~<ÊiJ=ÊiJ###~þÂiJå*1AãÉáÃ(jë!èIå*7Aéå*;A~á=ÖÒ³Â{A!RÇ"GA!O€"IAÍ]C|µÊ©A> öA6Ã#s#r#=žA>Û2A>Ó2A>É2A2A" A!ù@"AÍ~@ÃñRÍ“S STOÐÍÉBÃÙAÍSC*Aéé.. . ........óã~2H#ãÕ~#^#VëÍ…Së++Í×QÑÍ/hÚÊA:$H·É‡…‘ …‘ ˆ…¼…)˜åž &–„˜»…ƒ&)„‚Û8«¥Ê�…ï"%(„¹…ƒ )„‚Û8¥Ê�…ï%(„º…(„·€(„¸UD‡—Žý…ù‡…‡‡O Íœq:EA<æþˆ2EA!qF‡‡O Í›p!Òk^#V#N#F#{YîOO6€+F6€!DA4~Ö«ÂCFw Í-s¯!GAÃ`jw+w+wÃF5JÊ™9v˜"•³˜ ÝG˜SÑ™™ Ÿ˜e¼Í˜Öw>˜h±Fh™é’iÑuáÑÉö¯ãÕ^#V#åëÍ`jÃbLö¯ÕåëÍSjáÑÉö¯ãÕÍIjÑãÉë&€ÿ)))ëõÍ]CñÉ>!>!>!>!>!>áÕ^#V#Õ^#V#ãÃTM>ÃöL>ÃöL>ÃöL>ÃöL>ÃöL>ãÕ^#V#Õ^#VOut of DatáIllegal Function CalìOverflo÷Out of Memorù Subscript Out of Rangå Division By ZerïOut of String SpacåString Form}J/<ͤJÈõÍ“Jñ=ÉJ> ÀiÍ=JÈ>,Í€iöÉåÕÅW*;A#^ ÌÇJÊÁJ+†=»ÚÁJÍ(jzÁÑá§Éõ{ÿÖÚÙJõ{Æ_ñÃËJñÉå!>A";A!"A¯26AÍñJáÉ!9A~6#wÉá~!KÍÍáQë*#A|µÂàA: A§ÂNB*A|µÊNBÕÍTBëÍ]C  s#rÑÍ]C  {ͨCw#6á"!A*Aù*A>2 AéÍ©CÃÓAÅ!9N#FÍ]CÕ~‘#~˜Ò†B~+¶ÊŒB~“#~šÚ†B+^#V#ñŠ‹ š5ü˜Ú‡…æ€Ù€Š‹ š#ü˜Ò‡…ç€Ú€f$)„˜‡…Š%‹ ƒñŒ€(„˜|‡Ú‡µÊ‡…ÿ š¼ü˜Ò‡…è€ÔÛ€6Š3‹.ƒñŒ€(˜|‡Ú�µÂ‡‚…ÿ$)„˜z¬|ú�}“|š‚: #ãÃsM>à M>à M>à M>à M>à M>ãÕ^#V#å!ÒkÃsM>ÃHM>ÃHM>ÃHM>ÃHM>ÃHM>ãÕåŸC!ÒkÃsMÅÃ_MÅ ë GÍÍN ÁÊoMáãëÉÅÃ~MÅ ë#åÃöA§Èõ~Íjñ#=‡SÉãÍ™SãÉ~æÍj¾#ÀÙSÅG~#¸ÊµS§#§S++´ÁÉõÍÀSñæÆ0þ:ÚËSÆÃjÍÿÿÕ2ÿÿÍÿÿÍÿÿå!Ñ2ÍÿÿÑ)) ÍÿÿÍÿÿÿÿ!ÿÿÍÿÿÍÍK]òˆQÉÕë*2S{•zœ*4Së?ÒžQ}“|šÑÉåÅÿ~# §Â¤QyÁáÉÅÕGåÍGQãxëÍÄjáÑÁÉÅÕåÕGÍGQxÁãÅ#N#Fá& øQ͉QÐÍWRáRÅÕå*2Së*4SëÍÒjÊRÍÚRÊRÍWRåÍ¡RáÅåÍüSáÁ´#60:øSW:õSÚ™YÊ‘YþÒ}XÍ|\!ÒSF :øS_æ ÊAXx¹*ÂAX{æÂAXAqÍ1]ÊaXþEÊaXþDÊaXþ0ÊAXþ,ÊAXþ.ÂdX+60{æÊmX+6${æÀ+pÉ2øS!ÒS6 ÉÍUáãÊ‹O~#foãÉ##ãÉÅÕåõGN§Ê»Oy§Ê»O#~#foë~#fo¾ÂÄO#ʺO ªO y°ÊÄOyÖ<.ÚÎO)ÊÎO)ñ¥áÑÁõÍ×QëÍ×Qñɧ§ÀÍõæOéOìOïOÍòO:õOþøOûO{þO2PÀajÃíU „ÍÌÌÌÌÌL}Í%TÍKTö¯^Åõ>2ÎSñëÿ`hÌîUë~þ&Êf]þ-õÊEVþ+ÊEV+Í1]Ú,Wþ.ÊÒVþeÊWVþEÂ�VåÍ1]þlÊoVþLÊoVþqÊoVþQáÊ€V:õSþÊšV>ÚV GÍÍN ÁáÊ’M~#foÔM##ÑãÉëãÕ^#V#ãͧMëáãëÉÕÅÍèrÁÑÉö¯2KAÍlCÉö¯ÍlCõÃÈMö¯ÍlCõö¯ÕÅõ͈jñåõÍÿMñÑåÍSjáÁÑñÈ|·ÈÃöAö¯ÍlCõÃöMö¯ÍlCõö¯ÕÅÍÿMÃÜM·T*Òk}/o|/g#"Òk|ÀÍNTÍ|rÃT!Ôk~î€wɯ2ÕkÉÍK]àú8TÍûoÍNTÉ*ÒkÍNTÃ|rÍK]Ðü8TÍÛo>>ÃóU~·ÈÍá@#ÃSTÃá@ìS!ØkÃqT>Ž!ØkÎk2xT¯Ž# ÂwT###ÃçQáÑÁÉÍ,RÍ“S during G.C. ŠÃù@Í,RÍ“S ŠÃù@Í“S Internal Error - String Space CorrupôÉ#ÅN#Få*àOy•xœÚœR*âOy•xœÒœRáÕ++å`i+V+^áÍÒjë*Îkå*Ðkåëõ¯2ÐSñõÍ(YEå~¸ÊÉXþ:Ò©Xþ0Ú©X #~·ÂšX>D¸Gá˜XñÁÑë"Îk`i"ÐkëÁÑÉÅ#~þ+ÊYþ-ÊçXÖ0Ox‡‡€‡�GþÒY#~·ÂÎX`ÁxþEÂYy„þ áÒ¹X>€2PÍP Pª PP{`ÅÕ_!ÝO4Â#P5*ÞO"ÞO~#N#F#‡ÚcPú=P Í¿jÃ&Py“xšÒHP Ã&På+++6@#y“w#xšwáÑÁ+++6###É!ÝO~6þÚtP͉PÃ#PÍÓP*ÞO#~“#~š~þ%ÊßVþ#ÊðVþ!ÊñVþdÊšVþD±V·ÍúVÍ1]Í\]Í1]ÚŸW±V¯“_å{�_ô WüWµVáñåÌüSáÍK]èå!úTåÍ÷UÉÍK] ±VÜúVÃEVÍ1]ñå!úTå!�UåõñV·ÍúVÍ1]ñVåÕÅõÌ*òN:KA·ÊLN! CÍUnÍûoÃ#N:KA·ÊON!¤CÍ›p:Ôk·õæ2Ôk:Õkþ�ÒkNÍuN:Õk·ÂCNñÃENñð|/g}/oÉÍûo:Õkþ�ÚuN!ÕktNÍÍNþÂkN!€ÉÍ}CÃóA€�:Õkgo·ÈW*ÓkÉ!ØkÃUn!ØkÍXUÍìk>È>ÚšT>ÿ§É|’À}“É+É!VÃ]mÍ UÍs+6¸!Ôk>¸�Ížo¯2ÍkÉ! VÃq!VÃ]m!ØkÃ]m~ƒ_#~ŠW#~‰OÉÍMtÞp!Ï\ÛpÍNrÂóT¯É‡Ÿ<ÀÖÉáÉo&ÍÂ!R##Ñ6+6+~6  >@¯ÁÉá++ÁÉÕë*äOë"äOs#r+ÑÉÕÅÍÓPÁ*ÞO#~‘_#~˜WÒÊRÍ}CÃüAr+s##6€"âO###ÑÉë!äO~#fo´ÊîRÍÒjÂÞRëÉ<ëÉ*àO"ÞOë*âO}“o|šÐSÃY|�þáÒ¹XÃýXÁáùXñÁÑë"Îk`i"ÐkëÁÑÍU#þåÞWÍ[õ:ÐS·òCYñ‚ÃMYñ‚úQYºÒQYÖáõͽ[60Ì*UÍä[+~þ0Ê`Yþ.Ä*UñÊ’YõÍK]>"�w#ñ6+òƒY6Ò#PÍ}CÃíAÕ!å*àO"ÞO~#^#V#‡ÚÐPú¯PÍ¿jÑÕÖPã|µÂ»PáåÖPñ++~ƒ_w#~ŠWw#åÖPÑÑÉÕ͉P*àODM~#^#V#‡Ú-QòíPÃÜP+z¾Ä R+{¾Ä R##¯{TñÄATÁÑáÉÈõÍK]õä,UñìÇTñ=ÉÕåõÍK]õäÁTñì¤TñáÑ<ÉÕx‰GÅå~Ö0õÍK]òeW*ÒkÍ ÍœTÒaWT])))ñO |·ú_W"ÒkáÁÑÃEVyõÍ8T7Ò�Wt”$ÍëTò~WÍ,UñÍ”WÃYWÍH|7õgÒ‘N:Òk·Â‘N+>�’Í NñÐ|/g}/oÉþÚ©N!ÉÖÚ¾NG|ʺN·ñNo&ÉÆ Gȯ|g}oÃÁNÍ×N>ØÈɧÂäN~§È+~?É~§ÂïNöÉ+®#øÒüNë–ÀNTÃ|rë*Òkãå*ÔkãåëÉÍ#Uë"Òk`i"ÔkëÉ!Òk^#V#N#F#É! VÜqÍ;txþ˜{Ò0t!Ök6€Íswg>˜�͘tÉÃTtÃ\Uë:õSGw#Â\UÉWUÃqU!ØkXUÕÒkÍK]ØÎkÉÍK]gë6@#s#r#6€"âO*4Së*2S"äO}Æw>Œ#w##ÍÒjÂS++6+6ÉæOP¼tÿ¯Ã?S>28S|§ÂzS+})ÑÕëN#¹ÒvSë~#foë ãë:8S§ÂiSñéå!9"A!A4É ñéá~‡Í¿j-/</Ö Ò…YÆ:#p#w#6ë!ÒSÉ#ÅþzÒZÚ°Z͵[ÑzÖô‘[Í|\{·Ì¢T=ô‘[åÍ$XáÊÈYp#6!ÑS#:öS•’È~þ ÊÍYþ*ÊÍY+åõáYÅÍ1]þ-Èþ+Èþ$ÈÁþ0 Z#Í1]Ò Z+zë~#q#pë_§ÊÜPy½Â"Qx¼Â"QDMÃÜP~#Â"QÃÜPYP+++ë"ÞO6@###{•_zœW+r+sÑÉ·Ê|Qõ*äO|µÂZQÍ}CÃðAñõåÍPã^#V+ë"äOáñëw#s#r++ë+r+s##ëÉ!ƒQTÍÇTÍkUñÍüTÍHTÍ�TÃYWÍUÍüTÁÑÃßT{þ Ò®Wƒ†Ö0_úäV·ÃèWñå!ÔkÍK]âÈW:ÞkÃÉWy®áÃèW:ÖkÃäWñññ:ÔkÃèWñ:Ök/ÃèWÃ(^¯ÍtXæÊöW6+ëÍ}UëòX6-+ òüN¯ÉÍlCÅ͉QÔDOë~#¶#¶++ÄWRÕ>ÍÄj+V+^+ë·Ê7O+r+sáÍ¡RÁÉáÁÉÍlCÕëÍ OÑÉÕ~ÍÀQÑÉÍlC|§ÂöAå!9>ͯQñÉ>Ã|O>Ã|O>Ã|O>Ã|O>Ã|O>åÍ�OòOU*Òk|µÈ|ŸÀ<ÉÍK]*Òkøâ«UÍkU!Ë\ÍeUÍ�TÍ1TîUÍåT:Ôk·õæ2Ôk:Õkþ�Ò(^Í2U:Õk·ÂÏUñëÃÔUñëòÚU|/g}/oÃîU!(^å:Õkþ�Ò÷UÍ2UëÑ"Òk>2õSÉ€�ÍëT; +wñÊZÁÃÎYñÊ Zá6%ÉåÚ·ZÊ/ZÓ\͇Tú=ZáÁÍëW+6%ɶÊÍëTò&ZÍOUÄ[áÁúbZÅ_x’“ô‘[ͨ[Íä[³Ä¡[³ÄÐ[ÑõY_y·ÄWƒúmZ¯ÅõüWúoZÁ{�Á_‚xú‹Z’Í<Ê!hÁÑ!! {æwá:ðg·Âž`ÍaáÉ!! ~þõ.^!) ÕåÌ¿`Í-_ÑáñÌ¿`áÃ÷gÅ€~#ÂÂ`ÁÉÅå*A~þÊCg( ~·Êì`+~#5–O ~·áÁÉ+~·Êø`Íþ`ÂÎ`7áÁ>É*ÍlCÅÕ}Í·dÊhþÊh!' ~è^~#fo´Ê3e+V+^##å*á^{•zœáÚÿdBK^#V+å*è^s#r!¹ DMáÃEe¹*á^å DMͰRÑs#r#å 6# x±ÂHeáÑÁÉÅÕå !'AT]~#fo´Êhx¼Â`ey½Â`e~#~+ë*)Aë>ÍÐ[ÅõåëN#FÅ#ãë*Òk/}“o|šgÒ•\"ÒkÑáp#ñÁ=‚\ÍÐ[wÑÉù¢áÿŸ1©_c²þÿ¿É¶€¿É¶€Æ¤~�@zóZ rN ¥ÔèèvHä€p# ÂcÉåÕÅÍbdÍõ Íñ_ÍÁÑáÉÍlCÅÕåÍaa.^;^ÕÍ<ÑÕõÄñÑÊhÍáÑÁÉÍlCÅÕå!¾^6# ÍócÃscÍlCÅÕåÍaa¯2Ê^!¿^Íïc!“ô‘[Åͨ[ÜZÍ‘[yÍÔ[O¯’“Í‘[ÅGOÍä[Á±Â§Z*öSƒ=ô‘[PþYåÕÍ8TѯʽZÍOU7Ä[áÁõy·õÄW€OzæþŸW�O“õÅüWúÝZÁñÅõúëZ¯/<€<‚GÍä[ñôš[ÍÐ[ÁñÂAÕT]% N#F+q#p##å€#6 ÂaÍ5a:c@Íûc·>Â.a>€áw+w·ÑÉÅÕå!(ëÍáÑÁÉÍÌ`Øþ7?ÀÅå*A' 6#67áÁÉå~·Êhõ#^#fk_þÚ~aN#~þ:Ê‚a++·Ê%_ þÊ%_#~·Â_Å`iÍaÁÃû^>€–O #~ÖÖŸgoÑÁÉPY!' ůwÍ5a:d@ÍûcþÿÊ!h=Êh=ÂY_ѯÍà h<Ê!hÁ!% ^#Vr+sÉÍlC}§ÊbdÅÕå!"á^áå}Í·")As#ráÑÁÉþÀ*á^Õ€|µÊ¡eë!© s#r¯#w«eÑÉö¯2�e}Í·dþÂhÅ!­ ^#Vå:å^§ÂÖe*æ^ëá{²Ê h+s#rÁÅ!° ¯w#w!© ~#foëÕå!€ÍñgáÂf TÊš;áõ€–˜@B †''èd #~þ:Ðþ Ê1]þ Ê1]þ Ê1]þ0?<=É:õSþÒX]Ö·7ÉÖ·Éþ-Èþ+È+ÉÍ1]Íî]þOÊw]þHÊw]+̓]ÚŒ]ëÍîÇ^Íïc.^;^ÍþÿÊh懇‡‡‡O!/^  ~#ÍMiyþÂÂc~þ Ê¿c>.ÍMi ¬c:>AÆ W:?AºÚÛc> ÍMiÍMiÜJi¾^ÍþÿœcáÑÁÉ~þ*À6?# ÂócÉÕOÅÍ[Í¢T~þ.Ä*U"öSñÚ[ƒ�’ÅÍpYëÑþYÕ¯õÍK]âB[:Õkþ‘ÒB[³\!ØkÍXUÍÍTñÖ õÃ'[Ít[ÍK]êW[C‘ùOÍëTÃ][»\͇Tòp[ñÍ WõÃE[ñÍWõÍt[ñ·ÑÉÍK]ê†[t”ø#@ÊhyÖ@ÚhþÒh¾^ #úÓa~þ.¬aÍ¿añ7õØa#™a¯2Ê^ñáõÍ×QñÉzþ ÊhþÚhÈ> ÿaʳa> ÂØaóaÍlCÅÕåëÍaa.^;^Í<ÊdÊ®_Å PYÕþ¤_!›_åå`i>Ãý_!' ~·Ä0_ÑÍ5aÍÁÍUeáÑÁÉÍlCÅÕ}Í·dÊhþ!&ÂÌ_!® ~+ngÑÁÉÍlCÅÕ}Í·dÊh! n&ÑÁÉáñåõ*A~þÊhþÊgñÕÅDÃDfBK>ë!å)ãÒf)#Ãf)ãë)ëÒ(f ãÒ'f#ã=Âf}æ_Á}la)Ú$hÒ?f#x·Â$h"ŠeáÁå!² "Œe!) "Žeáå!€}“o|šgÑÕÍñgÚnfbk:�e·Ê´f€ÍñgÒƒfåÍUëÉþH#ʸ]Ã’]Í}CÃóAÅMë!ͤ]ëÚ¢]}‘§ÁÉÖ0?ÐþÐ)Ø)Ø)صoä]ÅMë!ÍÊ]ëÚÈ]}‘§ÁÉÍî]Ö0?Ðþ Úà]Ö?ÐþÐÆ )Ø)Ø)Ø)صoÃÊ]þaØþ{ÐÖ É�UÅÍK]ø:ÁÑõ!!4Âd#4Âd#4yþ"Â(dñ·ÈþÊ!hþ>È<ÉñÉ"ß^>2Aå!~g"Aá:A§À<2Aå*A"ã^!vd"AáÉÍlC"á^åÕÅÍ3bÁÑáÉå*'A|µÊtd##nÍr_ÃcdáÉ.Ím_*ã^éÍÍëTÃŒ[Ã\͇Táòh[é·È=60#Ã’[¡[ÈÍÐ[60#=Ã�[{‚ ÍÄjáåÍaa:¾^!®^¾Â$h¾^Í<Âh®^ÍáÑÁÉÕÅ*ß^~·Êh#N#F++Í×Q æßþOÊlbþIÊlbþRÂh*á^|µÂlb!€"á^áÕ}Ñ_ÕÍ·dÂbÍUe{Í·dÂMõ'~þ€åÌ-_á4N#ñõVþ pÊ!`Æàzˆw ñÁÑwáÉ+s#r#6€#6€áãDMå:b@·ÊL`!" s#r#6Ñ`! {zVºÊ‰`ÕõåÅ.^ÍÑÕÍÑáñwÕÕÍÑ<‡`ÑfáÅDM*Žeë*ŒeÍg"ŒePYÁÍÐfá}“o|šgµå*Še#"ŠeÂQfááÑÁÉåÍÑfáÅDM*Œeë*ŽeÍgë"ŒePYÁÙfö¯2ðgÅÕå*Šeë!« å~#foÍñgás#rÂ÷f:ðg·Êg!gåÅå!&Õkþ�À:Ôk·ø€‘ÃßTõ:ÎS2ÏSñõ¯2ÎSñÉÍ}CÃóAÍ}CÃóAlCöËdÍlC¯2å^ÅÕå³e"æ^ëóeÍlCöçdÍlC¯2å^ÅÕå´e"æ^ëôe§Êh<Êh=_å!'A~#fo´ÊÛd##{¾Êñd++ÃÇd*'AåÍúd"'AÁq#p#s#4#5++###DM §áÉÅÕ!)A"Û\> ÍÐ[ÅõåÕ/áå>žÍnTÒ \á>ŽÍnTëáp#ñÁ=Â\Åå!ÎkÍUÃ@\ÅåÍåT>Í2UÍUáÁ¯!]?ÍÐ[ÅõåÕÍ Uá/{–_#zžW#yžO++ÒT\ÍÓT#ÍUëáp#ñÁÚF\>Â\Õ']hÑzáÅÕÍaaÑÁÅõ Í‘eñá"Aå#¾^> ÍÄj66ÑÕÍ5aáå~þÂËbÕÍÑÍ<Ê!hÃàbÍ<ÂàbÑÕþÂhÿbÑÕ!%¯w#w#w#wá~þÊübþÀÍþ`É) <  Ã(`áÑÁÉÅ~# x±Â gÁÉñÕÅõDMÍqgÊhÍfg!± ñwõ!( V6þ Ê>gÆàzÎwñÁÑáÉÕÍogÊhÍfg!± ~·ÑáÁÉ!©Ãag!° ^#VÉ!° s#rÉDMÍ^gÕÍXgëÑÍñgÉÅÕmÅGÜÌnÍÊoxÁ ƒmÑÂzmÃo!ÔkͦoÃ’m²jöô¢0 TeÂB׳]�Âh!¢ÚI�.›kÁ‘ €�åÍmáÍ$tÍÛoÃámåÍmáÍÒo!ØkÃ]mÍúJ!Õkÿq#~æ€ö++w+qÂ6#ÖÒàkÉÍpßk·ÊlÍTtOÊ l!\tÆ€Ê twÍsw+É·áúÚsà tÍ;txþ˜{Ò0t!Ök6€Íswgú2rz³Â1r >˜�͘t|Ôýs{õ>˜2ÕkÍ-sñØ/<Éx±ÊTt!\tåÍTty/È!Ôk®~ðÍir©É#~¸À+~¹À+~ºÀ+~“ÀááÉLUå*;Aþ Ê—iõ#~+<Ê–i=–Ü(jñõþ ÌÿiþÌjþ Ú¨i4+~#<Ê×i=Âûiñþ ÊjáÍá@þ ÀõÅ:CAGÊÔi¯ÅÍá@ÁÃÇiÁñÉ:A§Âði<2Aå*A"~i!2j"Aáñþ ÊjÍè@áÉ*/Aé6kF#^#V#NÃësÍ-p}ÉØk~#Âp·G++NÈyÃ\tÎkÃp!ÒkÍ$t>�¸ÊjpÒBpÍúJ�ÍMtÍxpÍ;tëÊfpë!Ök6€Ísg>˜�͘t|ÔÑrëÉ!É>€©²³ÂÃBÍlC|²ÂöA,ÊÈg-:A·Êhå*AãÉ!Ø@"AÅÕ{ÍGQåf$%ÊìgÕå!ågå*AéáÑÃ×gáÑÁÉ|’À}“Éå!"AáÉümÃTt€DNnƒù"~€‚`Þù3ó5�zÏÑ÷r1{ÏÑ÷r1€Àh!¢ÚI‚ÍpÊTtyî€O2ÞkÃ[nÍpÊTt:Õk·Êçl�Òmn/<õÍçlñþ9ÒTtõ:ÞkOÍsG¯2×kñå!Ôk®yø#–Âl+ lÁÉ©ÉÍTt?ÉÃ\tåÍmáÍ$tÍÛoÃ9låÍmáÍÒoÍçl!ØkÍpÊ¥l:Õk·ÊTt:ßk/)ë)ëÒþr =ÂÉ5À4É> Í€i~=æÂjáÉå*;Aå!>A";AÍ€iá";AáÉ> Í€i> Ài:AA=ÊCj> Íè@> Íè@*~iéö¯^#V#åÍSjáÉ·!Òkòoj!ÎkÃjj·ÒkòojÎkö·üojw#w#w#w#Éñú‡pÃTt!Õk~·È+>€®wÃTtÍŽrÞpÍEtÊTt:Õk·Ê-t�Ò±p/<ÍßrþÒTtõÍsgñå͘tñ·!Òkòãp~ƒ_#~ŠW#~‰OÒës#4ÊÚs.Í®tÃës¯�G~›_#~šW#~™OÜËrÃ-sÍŽrÃqÍEtñáÉ>6>4>?>=>:>7>5>2>3>@>C>Í}Co&ÃB͇C!"A!$H"$IÃAh:HæÂRhÍ“S? ÃRhpÍxiÆh:Ii·>\2IiÂlhÊQhÍMi+Ê€h~ÍMiÔh+ÍMi”h!ÞkÍžo:×k2Íkx!ØkÎk·òìnÍÕnÒ¤në4ÍÊo:Ík·ü¸n!Ök~æ€++®wÃTt!Îk4À#½n4Êçm+6€É!ØkÎk¯Ž# ÂÕnɯž# ÂânÉÍânÒo/!Ík¯Oyžwk<=ú¤n!ÎkÍCo!kÍAox·Âbl!Õk5ÂblÃçmÍúJ‰!ÔkN#FÍs®+6¸õüÜl!Ôk>¸�NÍžoñü¸n¯2Ík:ÎkõÍoÍTtÁxð/<É!Îk~5·#ÊßlÉÎk!ØkNwy#ÂïlÃTtÎkörÉ!Ôk~7w?##wy7O®É*Òkãå*Ôkãéáã"Ôkáã"ÒkÉajSXÍtsÊ tJS\E!Õk–Ò t/ÅÎkÛj>ÅÒkÕ€jõ ~#ñ=ŸjÑÁ!€jÉ#~þ ʲjþ ʲjÉ…oÐ$ɧÈÅGw#ÂÈjÁÉ{­Àz¬ÉÊTt>€©OápÍŽrÃqÍEtÊ¿rÍTtȯ�GÍôqë"»këy2½kF¯oÍÖrÍßr!Då*Òk:Ôk‰OÒPqÕkë4ëÑÊÚsÃhqÑÍxqg.å*»k:½k‰OÑz‹ÑÒQqÍxqg.ÿå*Òk:ÔkÃ^qx<=ú�q{ÍMiÍJi!$Hõ¯2Iiñ×hÍxiOþÊXh:Ii·Ê­h>\ÍMi¯2IiyþÊiþÌPi7Èþ Ê>iþ Êiþ ÂÑhÊRhÃiþÌPiÊRhþÂïhÊRhÍMi> ÍMi>ÃyhþÂùh>#ÀhþÂiÅÕ#Âýn¯G:Ôk·Â.o!ÍkVwz# ÂoxÖþÀÂoà t!ÍkÍAo·ò&ox·Ê¤n!Õk†wÒ tän~w# ÂCoÉåÍmáÍ$tÍÛoÃboåÍmáÍÒo!ØkÃUnåÍmáÍ$tÍÛoÃ~oåÍmáÍÒoÍçëÃp!ÎkÃp!ØkÃ'p͇p!‡pãé!ßkÃ!m!Õk>ÑF+N+Å=Â$mëé!ØkÃ8m!Îk>ÑÁq#p#=Â;mëé!ÎkÃ]má"kÍ/mÍmÍ m*kéÍpÊ t:Õk·Ê t!ÞkN#FÍôq͇oq·ÕÊš‘s³ÂšsÉejSXásëásch|·ú¶s{_zW}o|gâs"°kë"®kxÉå!®k·~w#ÂÆsáÉÍ¿sÂÒsÉósÕÍúJÿÿJ!ÕkqÉx!Õk·üýsF#~怩OÃ-tÀ_zWxG)yOŸëãéHGáÃësÍŽrßqÍEtÊ0tÍTtÈÍôqyÅ+FÅ+FÅ+FÅw`hã|·ÊìqgyãÒÐq:Òk‰O|g}oxGã-|ÂÄqáã}·Â¿qÑÃ-sáElaOþq!Õk~€G¨xò rå6ÍJi!$HÍbiáÑÁÔhþ Ú”hx<>Ê"iyq#ÍMiÖ Â”h> ÍMiÍxi·Ê/iþ Ê”h×h:HæÌJi¯wÉÃSCÃjõ>^ÍMiñõö@ÍMiÍJiñÉ~§Èþ Âqiõ> ÍMiñÍMi#ÃbiÍØ@æÉl!ØkÃEny2Þk!Ôk k~q+”oÉqåÖÚµoáåNsY+ªoàoÆ W¯áÈå~w+¿oøo!ÔküoÍ|rÃÛoÍ$t¯!Îkw#ÂáoÃTtÍòo}ÉÍ'pÍûoÃ-pÍ'pÍs!Ñ= À À€4ÀÃÞsá¯go"Òk"ÔkÉåÍ;tás#r#q#pÃMtÍEtåÍ0táÉÍMtë"Òkë`i"ÔkÉ*Òkë*ÔkDMÉ^#V#N#F#x·ÈyÃ\t:Õk·È:ÔkŸ·7ÀÆÉ|/G}/O!>õ·Ãtõå Ò~tñ7>á{#8#F~8~ü$*-0369<!ä!!!¿Ó!Ý!!ã!ÍÑu:t†þÒN:š†þÄ’y*t†&)^#Vëé>2-†ÍéE:š†·ÄŽÍ�ƒÈ*Ú†Í"©‡É*Ú†"©‡É!"t†!Þ„Ö„íK†:š†·(xíDGyíDDGKKG CSSVV Y SVV V T Y W U P S SJEE2/VVS O Frñø:š†·ÄŽÍ�ƒÉíK0†!Ö„ >–w!Þ„ >–w >ÿ¹ êɯ2­{å!"©‡:‚†·(".‡"0‡+"›…"�…!"R†*&†#"&†áÉ!§"á†"ã†!"–†¯>!H…w#üíC„íCê…>2w†              !!# !!!!##_zW}o|gñ=Âut|·g}oÉÖÚ§tCZQÚtÆ o¯-ÈyOzW{_xGêtÒkë*ÔkDMÉ^#V#N#F#x·ÈyÃ\t:Õk·È:ÔkŸ·7ÀÆÉ|/G}/O!>õ·Ãtõå Ò~tñ7>á{   "% #!&$'7[ DOx†#w�x¹ å!"t†á#w�#w�:š†·íKt†!„†~=¹Úß>2-†ÍéE:-†þ :t†20†:š†·ÄŽÃßí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¿‡*‚†í[0‡·íR"½‡"£…ÍÌ8(íS½‡:æ…·(*£…ÍÌ(*·‡ÍÌ(*Z‡í[‚†ÍÌ8!È!!####"$$$$$$$   !!##  !!#####!#####"$$$$$$$   !! ####!!!!######í{à ˆ*"T!"„ˆÍ>ÍÙ`* 6ÉÍ«ͯ{!"©‡"œ†ÍØ:w†·õ ͈ͪ<͈ñÊäÃû´››à­�˜›��“Ÿ’’½ûýû7dáà-Aná^ž–´ÈõTôRÈÜð|X„ÈÜð|X„ÈÜð|X„ÈÜð|X„dgq…´Gôd†š‡¾0U!t†4!Þ„ ~õ!Þ„í[t†wñ!+‡†2‡!b…_~<òÇ!Þ„ ~í[{†ƒw!Ö„:t†_w!Þ„ s{é:t†!„†¾( y°òY:t†·Ê*!Þ„å "‡~á"‡¾0ÍvB2/V YQ E3. @B8'+6-.,2$<ABGN QK@01 M O A106&6(*6!<"=E"ñ…"ó…É>ÿ2ç…ï*½‡"¼„*¿‡"¾„Í»*$†"Ž„*·‡í[Z‡ÍÌ8(*¿‡"¼„*½‡"¾„Íg*$†"ñ…!È"ñ…*£…í[Z‡ÍÌ8 (!8ÿ"ó…É*¿‡"¼„*½‡"¾„Í»*$†"�„*£…í[Z‡Í$"$$$$$"$$$$$$$+>%22:<=H(48:;<#ÿ2æ…Â+Í«Ã1Í;s:$†õÍñþ *Ú†"©‡¶Íßp:ãéTp„·Èæ7É~·Þ(pBt@ 1|¼Z J®ê4@Ð %/:FSap$  ! !Ö„å "‡á"‡Ív  :t†»8Ð:t†¹ 8ÅÑÂ:-†þÈ>2-†ÍéE:-†þÂN:t†20†:š†·ÄŽÉÍsÛ SÑÍ   0)2)-1$<1+/.%9=?D >>BA@> E D@7".( 1(0,,2$< 0)2*-1$;$7%8 >Ì8(*½‡"¼„*¿‡"¾„Íg*$†"ó…É!È"ó…*·‡í[Z‡ÍÌ8(!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 Ë<˯åíBá8ë Ë<ËÑÑÁñÉËÈíDÉåÕÅõëÕ¯íRDMáwí°ñÁÑáÉåo&H)|‘8g,÷|MáÉ!í[Z‡ÍÌ8>!¶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å!í[Z‡·íRÑÍ/í[¾„í[Z‡·íRÑnͼ"$†É!<÷$=!í[Z‡ÍÌ8ê!'^ͼ! å*¼„í[Z‡·íRå*Z‡ÍOë!·íRÑÍ/í[¾„å*Z‡S,$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#ëá·íRÑnå*ð†}´þ( áË-}Ë-…oåáͼ"$†É*HͼÅÍÍ0:Y‡·Áõ˺ñÈÍ{/_z/ËÿWÉͼÅÍÍQ:Y‡·ÁÈÃÅÝåÁz¨>2Y‡ò‹/2Y‡Ëz( Íz/W{/_ËxÍO$ëáÍO)"2†:ä…<_!ò„~=úÑ :á…þ8**ú…2Í/å:á…Í4S2¯íRÍOÑÍ/ë*2†¯íR"2†í[ †!¯íR"ü†ÍÌ0!(*ü†åíRá8!("ü†í[å*2†¯íR"2†:�„·ÊP!&…í[ð„QC{·(0+~þ 8 þ8 + ñ*ó†bYÍ/YPÍ/í[#„PÍ/ë*D†·íR"D†*0„}·ÊP]Í,å*#„}· #]Í,}þ8.ÑÍ/í[ó†Í/å*(å:/†oÍL<ëáÕÍ/ÑÍOË| í[2†"2†å:{…oÍ,Ñ"2†:Œ†þ 80G:š†þ( :—†ÖíD:–†¸ :ü†þòl%*š…ÍLí[2†"2†*D†í[2†"D†:3„G:"„€þå*5‡í[†¯íR"$†É!–"5‡:Œ†2\‡!b…íK\‡ ~·(*5‡:\‡_¯íR"5‡*5‡¯íR:\‡_"5‡!\‡4>¾ Å:{…·( *5‡,"5‡*5‡:$„‡_¯íRí[�„íRí[å†å*[7†åͼáÍ/KÍOÅÑÍ/Ñ"2†í[D†"D†!"2†:Œ†O!b… ~2ü†*å†Q·íRÒ5%í[š†Õ!–†ní[Ú†Í,E!R†Ñ~Ö Ox¹Ú5%!" †:Œ†)ë)ë0#·íBò¯ ˃= ìëÁÉÅG)ýÁÉ&Ë}(&ÿË{ÈÿÉõå|æ€gz怬á(Ë| ñåo>·}áÉñåo¯Ö}áÉñÅO¯Ë|åÕ(Íë͆ÍO2ÕÍ/í[2†Í/ÝáÍ_å*å…&å#Í/b…~þ>ò6!¯Æ O:…Ë'Ë'Ë'_¯WBë ëáíBÍ/í[å†Í/ªÍOí[>†Í/2ÍOÑå*â… Í,å*"„$Í,"„}· .í[1„{· Í,ëáÍOå:#„þ(þ8!c…~# (<ò<ôX!ôÍ/Ñë*2†íR"2†:…þú$ :*„þú¬:*„Æ_!©…^!Í/í[冯UíRí[ ¯2`‡:å…O! … ~=!xúÍ%:#„o_Í,:ó†þú²%GÖ‡€_Í/å:�„G:ú„<�oÍ,ëáÍO:š…Æ_" †*`‡åÑÍ,ÍOí[-‡åͼáÍ/"ü†:#„ÆoÍL{…ͼÍ/Ñ"$†É!�†>¾Ò‰3:셷ʉ3!"$†É·íRðëÉ·íRøëÉͦ`:{…þ !}"D†É͆b̓IÍ�:Í<ÍÛ]ÍÆ-Í~SÍ*$†"D†:ì…·Èͦ`:i…þ£:ù„=ú£>!##{úy#2 †:ü†þ ;: †þ :Œ†Ö‡‡‡‡_ͼ*2†·íR"2†*:Œ†þúØ#ÖoÍ,ë*2†·íR"2†þ ýÿ*2†"2†:ü†þ : †þ :.„þúø#*2†úÿ"2†:ü†G: †€¯íRÑáyÁÉõ|/g}/o#ñÉ|ª>2Y‡ò /2Y‡Ë|(ÍËzÈëÍëÉ|µÈë|µÈ>DM!Ëz( =Èë)ë)0ðíz³È|µÈÕÁë!>)ë)0ë·íBËÃòq ˃= ëëÉ*‡~*‡~Ñí[ò†ÍOÑ"2†:å…þÊS"í[§…Õ!b…~þÿ .*"„]Í,í[@†Í/Ñå!Â…n&ÑÍ/,ÍOë*2†·íR"2†ÃS":š†þá(ë!·íRë!H…:Ú†íD¾ÂS":§…G:å…¸úS":5†¯íRí[*„Í/å*#„&)ë! ¯íRëáÍOí[2†"2†Ã$ :ä…_!b…nͼ"`‡}þúá*n„Í/í[š…ÍOí[2†"2†Ã$ :`‡þÂ$ :0„·(:�„·Ê$ :ä…_!©…í[2„Í,å:*„Ë/Ë/Ë'oͼÑ:#„O¯íB:-‡þú1&í[ü†í[p„Í/í[ †ÍO"2†:å…_! …~·!K(:+„íDÆo:ó†Ë/Æ_Í, Í/å:3„‡G:ü†Ë/O:…��O„¾8*ç†dÍÌÚ£:ó†Ö2ó†òœ¯· <2ó†õ>2€„ñ*ï…í[ †Í/ÍO"2†* ‡í[¥…¯íR"ü†:†„þ$ *ü†(Í( þ8 *ü†Í("ü†Ë|( ÍO"ü†*ö…&í[þú$�¸>ò $¯Æ _*2†"2†þ *2†:.„þöÿú0$ "2†*ó†Í,ë*2†·íRå:�„íDG:Œ†Æ_!ò„~¸ (xíDo:*†_Í,Í:ó†Ë/_:"„_ÈëÍOÑw*‡wÉËÈíDÉË|ÈÃ|µÈ>Ë|ÈíDÉ·Åå~w#úáÁÉ·ÈÅË GÍžûÁÉíDGÍÅûÁÉÅÕå·~w+úáÑÁÉŶw#ùÁÉÕå!&‡å>w=#w#w#wáåͬÑáÍÙó†Ö$íDoí[-‡Í,í["„Í/åí[§…!b…~þú,"á)å:*„ÆoÍLí[#„¯WëíRÍ(ëáÍOí[2†"2†í[D†*2†"D†*�†& Í(@Í/å*t„í[š…Í0ÑÍQnbÍ/í[ù„Í/í[š…ÍOí[2†"2†*D†í[2†"D†:�„íD_.Í,í["„)n^#V!$Í/å:�„·!(**"„&åÑÍ/ë¯!$íR)í[0„Í/:�„Ë(íD_*"„`åÑ )) Í/í[l„Í/ÑÍOí[2†í[>†Í/2ÍO"2†:`‡· *:3„=úà&:�„·(:ð„†Í/ü†Í/ ÍOí[>†Í/2ÍOë*2†¯íR"2†í[D†"D†!"2†* †í[¥…¯íRçÿÍÌ8):ä…_!ó„nb##í[í…Í/ë*Ä„ Í/œÿÍO"2†:ù„· :ó†þ 8Ö oͼ)ëå:ö…ÖíDoÍ,Ñ"2†:ó†·(:ü†þ "2†*�†&Í/M:Œ†_!b… ¹8)~Ë(íDþòå$åÕyÖ_.Í,í[2†ë·íR"2†Ñá +{Ô*#„ÕÍ,í[ †í[‡ÑÍÑÉͦ`:Œ†þÚ:ì…·Â:†…·(t!�†~+¾0l!ˆ"5‡*†dë*†¯íR0H!Xí[†¯íR8<*5‡¸ ¯íR"5‡*†¯díRÈÍO"(‡!†… nbÍ/í[5‡"5‡:(‡¹0Íå*å†FÍ(å* †í[Œ†Í/)ÑÍOÑå:ó†Ë/Ë/G:*†€oͼÍ/:š…Ö òÅ">ÿ<_Í/í[.„Í/ÍOÑë¯íR"2†å*5†+Ë|õ#åÑÍ/í[8†ñ ÿÿí@ Ý!Í_å*$„í[å†&Í/nÍOëá·íRå*r„ ÍOëá·íR"2†:�„ÆúL'Öoí["„Í,}2^‡ÆòÃ':ñ„�_P!&… ~þ2ü†òÃ'åÕÅ:^‡þûò†':0„· í[ü†P!©…^P*Ì(06*†8ÿÈÍO ë·íRÍ(åÁ*ˆ†)Ž„^#Vë·íBë*†ÍÌ(0> > 2$†É* ‡"¼„+Ë|*�„(*ƒ„"¾„!"À„Íöl*$†"¥‡*t„}´(M*†ȯíRÂ.>d2.+:å…ÖoÍ,å*"„]Í, Í,Èí[2†Ñ"2†Ãµ+=ò°+>ÿd!`‡–!»‡†õ:ü†!z††o&†…ñw>d2`‡:ü†!z††o&†…:»‡w:`‡þd(>¹0¢:`‡þd0>d!`‡–õ!z†4:ü††o&†…ñwíKz†:ü†�o`†…p> ¹0ï!…þ òµ+:ü†þÂ+*v„}´ *†@·íRòµ+:â…þúµ+:#„OÆG:†„¸úµ+! … ~þúL*íKŒ†! … ~þú**ï…Í/å*Œ†ýÍ,åíKå…!©… nÍ,í[2†ÑÑ""¼„á–Í/ë*v„·íR"À„Íöl*$†"Єí[|†>$!á…–&oÍ/åd:á…o&Í/ëá·íR)í[¹†åͼáÍ/ $ÍOå*¹†Í¼)dë¯íRí[ЄÍ/ÑdÍOë!díKí…·íB02†"2†í[T†!V† ~2 †W:ü†’2`‡þú»'þòµ'Õå*2† "2†áÑ #{¹0ÖÁÑá#{¹0—*D†í[2†"D†!"2†* †í[¥…·íR"`‡ò¯(:å…ÖoÍ,å:g„Ö$íDo&))†?*†Í"f‡*t„í[†¯íRd))í[f‡ÍO2dÍÌ(08]{2.†>2.†*|„+Ë|ÂÑ.:b…Æò�.:Œ„· 4:ù„Öò�.!"¼„!"¾„Í¢0*†ÈÍ/"|„!"!d…Ý!«…~þÿú,Ý~·(#Ý#y¸ò,:š…ÖíDoÍ,ÍOÑ"2†í[D†"D†:2„ÆG:*„þ8:1„€2 †:ù„·Â×,:�„·(z!–†íKš† ní[Ú†Í,}õ!R†íKˆ† ní[Ú†Í,ñ"†íK:‡D:ü†�o`†…n`ÅÑÍ/í[†"†:z†¹0àɯ!‡w#üÉÍ©2:0†·øOÅͺ}Á!Ö„ "‡^íS‡!H…"‡ní[Ú†Í,Ë|Ê3:š†_!R†~*‡•0íD2 ‡H…2†Ãµ+:�„þÿµ+*ó†í[1„Í,Í/å*Œ†ýÍ,åíKå…¯G!©… nÍ,í[2†í[ï…ÑÑ"2†Ãµ+: …þúü*:å…þʵ+*å†ÀÿÍOEí[#„!b…~Í8Ö¸úµ+{!åÍ/Ñå!d·íRœÿÍ/ÑdÍO"$†É¯2ü†2¹†:¼„oúÿÍ,:¾„2`‡_åͼá}2z†:`‡!z†¾(J!ü†4!b…í[`‡"‡:¼„®Ë ~͇!é†í[ü†"‡w!¹††w !å*,„(Í,ëáÁ ·íR"2†:2„þúS(*¥…|µ :…„ÖúS(oÍ,í[2†"2†:ü†=úS(*ó†í[ü†Í,í[2†"2†í[+†*.†ÍLå*D…í[†Í,í[2†Ñ·íRí[F…·íR"2†*`¼„Íîk:$†2F…H*†ȯíR .>d2F…5*|„í[†¯íRd))í[f‡ÍO2dÍÌ(08]{2G…¯2F…*v„}´(<*†Í"f‡*v„í[†¯íR¯díR))í[f‡ÍO2½0P:á…Ë/Ë/Ë/! ††w*‡ÍO"‡4ÕõÍ,ñ…_!n^#Vëí[ †åͼáÍOí[‡)ÑÍ/í[«‡ÃOí[ó†.:#„Í£,åí[ô†{Ë+ƒ_.:#„Í£,åí[õ†.:#„<:Ú†wí[ˆ†!„íD†w!á†: ‡†w*‡:Ú††w!Þ„ " ‡~_íS"‡í[ˆ†!R†¾ÊP3í["‡!H…:Ú†íD†wí[š†!„:Ú†íD†w* ‡í[‡–0íDí[š†!á†íD†wy° ¿2!þú�*:ó†þ òµ+:�„· *2†d)!_í[冷íRÍ/í[2†:ó†·(å!ní[冷íR)Ñí[ï…å:å…ÖoÍ,å*Œ†ýÍ,åíKå…!©… nÍ,ÑÑÑ"2†Ãµ+*ï…é†í[ü†6:`‡!¼„–2`‡­í[¹†!Z^#VíSu†:¹†2`‡!é† :`‡–2`‡>‘o&Í/:`‡…ofí[u†n&"u†>¹0ϯ2:‡:¹†þ8*u†))­ "‡~2 ‡‡Í¼ Í"`‡(Õ·íRúž(íS`‡í[`‡*2†Í/ÑÍO"2†*å†åV·íRáúÍ(F·íRÍOëÕ* †Í�)Í/Ñë*ö†ÍOå:…íDÆoͼí[¥…Í/å:Œ†þ!dÍÌ(08]{2/†>2/†*~„+Ë|Â�/:{…Ö úk/:�„· 7:…Öòk/!ÿÿ"¼„!"¾„Í¢0*†ÈÍ/"~„!"¼„Íîk:$†íDÆd2G…É*~„í[†¯íRd¯íR))í[fÍ£,åí[9†{Ë+ƒ_.:#„Í£,ÑÑÑ"2†ë:†„þ úB-:ä…·(*2†í[‡Í/í[ï…ÍOëíS2†*D†·íR"D†"$†Éí[š†!.‡^#V*Z‡í[‚†z³(ÍÌ0L*š†)ñ…^#VëdÍ"’„"¥…É*{…ͼ2Í/å* †ìÿÍÌõ°ÿÍ(ñ0ÍOë!·íRí[x„Í/å*… Í,ëÁá·íBíR"5‡:.†·(*…Í,ë*5‡È·íRíB"5‡A¯!x…GOÍ/í[2†"2†Ãµ+:ü†Öo&–Í/ôí[2†"2†:+„þ:ü†(Hþµ+:…þµ+íK+„!©… nÍ,å*Œ†ýÍ,å:†„ÖÍ8oâÍ,í[2†úÑÑ"2†Ãµ+þúµæ2:‡¯2ü†:¼„=ò–1> 2ü†:ü†�`o†…p::‡¹0î:¹†þ0:ü†<&o†…: ‡w2`‡:ü†¹0Å!""†"†"2‡" †"†"‚‡:Œ†2‡¯2‡íK‡!b… "‡~=ú;5*‡%}ÍS2‡*‡^ib#oå!ó‡ÍwoáÍÆ€É*ì„"&‡*î„"(‡í[ï„!P~24„:Œ„·(:4„o:Œ„_Í,"�†:4„2…„ !…„6$!"�†*è„""‡*ê„"$‡í[ë„!P~!g„w_:�„íDoÍ,"’†!†„6$:#ÉÍ:}Íö€!—8åÃonB A C K G A M M O N@"Íö€!¸8åÃonBKG 10.6 I@& Íö€!Ð8åÃonby@ Íö€!à8åÃonIntelligence Systems Limited@ …„~¸Ú‘?#~¸Ú‘?!*„~·Ê‘?#~¸Ê‘?*ø…í[ú…¯íR"l‡#ÍÌ8(íSl‡ ÝÿÍÌ0ð+Ë| *l‡Í/í[ú…¯íR"l‡Ë| *l‡Í/í[ø…"l‡+Ë|8Í´2:„·(¯2–†íK–†!H… ~=ú¥6y2–†yÖú–6:Ä·(>2—†íK—†!H… ~·òÎ6y2—† y·ò¿6ͪ<*‡}2¼„´("Íœo:$†þ *Ú†Íí[‡Í/"©‡!ÍOë*å†ÑëÍO"«‡:ä…o>•oͼ"§…É*š†)ñ…^#VëdÍÌ(00*†dÈÍO ÍÌ8(ëíK‚†y°Âm=¯^*†ÍÌ0!"$†É*š†)ñ…^#V*†ÍÌ8æÍ/íDÆ_åͼáÍ/í[5‡"5‡:.†=ú;5*‡~2±‡:‡íDÆoͼ"‡!"‡!"‡*‚‡" ‡Í16"‚‡!"‡!"‡*†" ‡Í16"†>!‡†ÍS· !"†!"‡!‡8M:"‡_P!P~!N„ w2~‡!b… ~·ò1;íDo:~‡_Í,í[’†"’†> ¹0!b… ~·òQ;!†„~!~‡=¾8:~‡!†„w!"‡ÍÅ:)‡8U:)‡æþo:(‡æµ_P!P~!4„ w2~‡!b… ~2Íö€! 9åÃonIndianapolis, Indiana@&Íö€!-9åÃonFor@P!V~·(# øË9Íö€ÍI9$!V¯~·( íD_ͯn†#ð:lO2m¹È!é Íö€!z9åÃonPress  íSl‡*l‡í[΄"΄*Œ„,íK#„Íž?Í, )Þ^#VëÉí[ó†Í/ÂÍOå*ö†$ÍOÑ"l‡ë* ‡·íR"¹‡"¼„·íRõ*ƒ„úð?í[l‡*�„"¾„*v„È·íRñò @"‡!ð†íKš† ~þÂÖ7!–†~=#¾ÚÖ7*†ÇÍOå*ã†ÍOÑÍ("j‡:…!ÿ„†!ù„†Æ2ß…*†åÈ·íRá8=åñíRá84:j‡G:ß…<æü¸8hxÆ O¯G!†… ¾ [>2¼„:ì…þ *t„ÍÌ8(*†„í[†ëÍÌ0Á*š†)ñ…^#V!PÍ(í[†ëÍÌ0!"$†ÉxÍÌ0—ï !"΄:*„þÒ‘>í[ä…!ó„~2l‡Lþ0 _!"‡* †" ‡Í16" †:‡<ÍS· !""†!"‡!"‡*2‡" ‡Í16"2‡:‡<2‡þÂY4*5‡"$†*†ÍOë*x„ ÍÌ(0É*5‡pþ"5‡*†ÈÍO"‡*2‡ ‡=ú—; ¹8: ‡=ú²;:…„!~‡¾8:~‡2…„!&‡Íž>¹Âþ::�„·( :g„!†„¾02†„:å…_P!N„>$–2â…>$!†„–2†„*ä…`4„>$–2á…>$!…„–2…„return for option menu or any other key for defaults@ÍŸ{þ É:æ…·(*@Í:}!Ñ9åÃonCrawford@:ç…·( !ç9åÃon On@Íö€*‚†|µÊ*:!:åÃon*t„}´(í[l‡"À„Íöl*$†" ‡å·íRíC£‡íS~†ò8@íS£‡íC~†áúE@í[G…í[F…¯WíR" ‡!í…í[£‡Í>>ëåÁ))))Påë í[ ‡Í/ÑÍO" ‡íS‡í[ÎÍœoþ O*Ú†Í)"©‡Cåb·íRá89}íR02: …G:ß…æü€!j‡¾ ~Æ O¯G!†…¾ <2¼„Íœoþ *Ú†Í"©‡:{…þÂ8:b…· :�†þ*Ú†8 Í/"©‡ö*ÚÖ=~!Ù=†Öoͼ"¹‡É!Ñ=^*¹‡Ã,Öò%>¯_Ã/ÍOÍ(!(¯íRÉ^#VÉÍø=!*„^Í>:…„Í>å*ú…Í+>å:{…G‡€_ͼáëáÍOÍ"΄:#„þò‘><_ÍOí[‡ÍÌ(0ÍQ6:v…· *"†}´ *u…ͼë* †ÍOí[‡ÍÌ(0ÍQ6:w…· *†o´ !u…~#†oͼë*†ÍOí[‡ÍÌ(0ÍQ6:x…· É:�†¹ÚU(¯ÑoÍ,ë!©… sͼ*h„"h„>¹Ú<:Œ†=¹ð!N†yíDͬ!Q†^!P ^Õ!b… ~·ú†<_!Match To@*‚†ë!ö‡Íoå!ô‡Íwoá!":åÃon Points@Íö€!7:åÃonScore: White [O]:@*.‡ë!ö‡Íoå!ó‡Íwoá%Íö€!j:åÃon Black [X]:@*0‡ë!ö‡Í„Í/å·íRáú°@dÍO"‡:£‡þ ë* ‡·íRí[ ‡" ‡:b…!{…†‡G:-„!,„–‡€2߆!"‰„:�„·Ê5AíDoíK"„Íž?)"‡*3„åÑÍ,:-‡ÍA"¹‡*í…Íÿ@*¹‡"‰„6å†"©‡*©‡}2¼„´(V*‡|µ(Íœo!"‡*©‡Ë|(Í�í[Z‡Í/ë!.‡ N#Fë ër+s*‚†·íR>(8!"©‡"§‡>ÿ2w†>2$†É*Ú†Í"Ú†*ˆ†íKš†"š†íCˆ†>2$†*΄Í/#ÍO"΄:+„þ8gí[å…! …~2l‡Íø=!+„>–_Í>:†„Í>å*ø…Í+>å:b…íDG‡€_ͼáëáÍO"l‡:"„þòô><_*l‡Í/ÍO"l‡*΄í[l‡"΄!*‚‡ÍOí[‡ÍÌ(0ÍQ6*F…Í,ë*5‡·íR"5‡"$†É*‡íK‡ í[‡ÍOå*±‡Í¼ÑÍ/í[ ‡É*.†ÍLå*5‡dÑ·íR"5‡É!ò‡> w#üpÍ»9*©‡}´Â�~þÿ>(¯ÑoÍ,ë!Â… sͼ*j„"j„ >¹úX<ÉÍ@b͆b̓IÍ�:Í<ÍÛ]ÍÆ-Í~SÍI*$†Í"†í[†„ͼ*>†Í/ÍOë*ç†üÿ Í/åí[…„ͼ*>†Í/B ë!·íRáÐå*¹‡Í/ÑÍO"¹‡Éåo&#ÍOÑÍ/ë*‡ÃO:Œ„·(YoíK#„Íž?)"‡*2„åÑÍ,:,‡ÍA:1„þò~Aå*n„ÍOå*ô†Í,Ñí[2„ÍOÑ"¹ ^!b…5êG!@‡ ^!b…6ÿ!�„4*¥…·íR"¥…á4ÃÚG:-†þÂÚG:t†·ÂÚG!L‡ :Þ„¾ÂÚG!@‡ :Ö„¾ÂÚG>2-†É:¸†¹ÂÔFÃiH:-†=ÂH2þ†:0†O!L‡ ~í[þ†P!wÉ>¾Â¹E:„†GX!Ö†~!Þ„¾Â¹E!†~!Ö„¾Â¹EòŽE>2-†:„†20†ÉÍ”a!�‡íKœ† 4ÃFD:„†G:œ†¸ÈõÍñañ<2œ†Í”a!�‡íKœ† 4ÃÜCÍ@b!"¥…"’„:„†2œ†¯2¢‡2†5!"¾„íC¼„ÙÍ©RÙ!d‡~ÍåI!”„ ®w:܆É:܆þ A! ë!”„~·(íS¼„!"¾„ÙÍ©RÙ!‡4#~·(Åá))ë*ö†¯íR"ö†!‡4:ÿ†· :‡=ú~L!ó†4:1„&) ëáÍOí[ü…ë¯íR":†*:†í[ü…ÍÌ0"ü…*ü…Í�dÍÌ8"( !t„íK~† ~#¶ :~†þ!œÿ(!d"ü…"$†É>!†íKœ† F�Gë!b…ÅO Áë=òD4÷ÃÈ4†!”„»„Í>!&… ~2­‡íC‡:U†�2‡!V† ~2¯‡íC‡í[­‡“2‡=úcKí[‡þòSJ:‡ÍåI!”„¶w!í[‡Í/"Û…ë!  íC$‡" ‡~2܆o&)º""‡*ï…Íÿ@í[¹‡*‰„·íR"‰„*߆ͼí[‰„í[΄í[ ‡"ü…+Ë|!"£‡íS~†ÊÆAíS£‡"~†!È„í[£‡ÕÍ>>ëÍOÑå!7†^áåÕ!F†í[~†Í>>áÍ/ÑÍO"¹‡!†íK~Þ„w!@‡ ~!Ö„w!þ†4 òõGÃiH:-†þÂiH:t†!0†–ÂiH2þ†:0†O!L‡í[þ†P~!Þ„ ¾À!@‡í[þ†P~!Ö„ ¾À!þ†4 ò4H>2-†:„†20†·*¡…í[Ÿ…ÍÌ(0ÉíK„†!â„0†2¸†!€"Ò„"Ô„"Ÿ…"¡…:b…2‡:Œ„2b…:š†·( >!—†–Ã2F:–†2þ†!†í[„†w!�‡wÍÜC:-†þÐ:†!†¾ÊxF:†!†Fw#p:þ†!†í[„†w!�‡wÍÜC:-†þÐ:b‡==úŠL!ô†4yþÐí[‡íS‡Ã¢K:�„·ÂOíC‡!”„ ~2‡·ÊxMíC¼„:‡‡íDÆ 2¾„ÍßR:$†þ !‡4!”‡íK‡ ¯¾ <Ã=DÍ5DÃ=D:€†G>�É!ø†íKœ† w!ø†íKœ† ~Ý!�‡Ý ÝF¸ò`DÃÈE!b…ÝN ~=·òrDüEÝF:€†€!þ…íKœ†‡·ÊUK_:�„·(A{þ0 :¯‡þÂUK2*"‡^P!¯íRb…~ÖòUK*"‡#~!�„–2ÿ†þòUKþ :¯‡þÂUK:܆þ08*"‡ÍêJúøJ*"‡#ÍêJòøJÃEK:­‡†_P!b…~þÉ:܆_P!”„†Å nͼåÁí[¹‡Í/ôÿÍOå¯! íBí[¹‡Í/èÿÍO$Ñ"<†Á!D… ^!† nÍ,í[‡·íRòNB!"l‡*ü…í[<†Í/Ý!$Í_"ü…+Ë| :E…þúŸB*l‡í[ü…ÕÍ/Ñë· ~!Þ„ w!Ú„ ~!Ö„ w x< çÉ:¢‡þ :b…2Œ„:‡2b…Í6¯2ì…:ö…·ú½H>2ì…>ÿ2 ‡:ì…O!Ò„ ^å#V*D†ÍÌá8"( í[D†s#rÅÍIÁí[$†!Ÿ… s#r:ì…‡‡2 ‡:Œ„2…2Œ„:‡2b…:¢‡·ÂcH:¸†=òžF>ÿ20†É:„†=ÂåG2˜†2™†GO!@‡L‡ ~ë –2þ†!˜†¾ÊÈFÚÈF2˜†:¸†=¹Ò­F!@‡L‡ ~ë –!˜†¾ÂÚG:-†þ¯G!L‡ ^!b…5å:Ї·ú÷…þ0"!‡†_!b…þü8þnͼÍÌ(0!õ†4íK‡!T ~ �2‡!”„ >¹úxMå~·()!‡¾(:ô†Æ2ô†!”„í[‡¯w >!÷…¾8!õ†44 !‡4á#Ã:MíK‡ >¹ w!b…_~!º† w<ú¼E:-†· >2-†É!þ…íKœ† å~þú±D>w!† w!�‡ ~å!Ö† w!b…_5!º† ~ÑáÕb…n&·òýD6Ý!Œ„Ý5*¥…ë!þ… n&ë·íR"¥…4:’:‡ÍåI¶wÃEK*"‡~2ÿ†2‡#~2‡=úøJ:‡_:­‡ƒ_¯W!b…~þòUK:ÿ†!‡†w!‡5:‡Ö:$‡<2$‡* ‡#þÚoJ:‡!‡4¾NÒ$J:d‡!‡4¾NÒJ¯2‡ !–‡w#ü:�íR:D…þúŸB*ü…åÍí[l‡Í/Ñ"ü…!D…íK~† ~þ0þ MÅÑ!#Í/ù„~þúýBö!†íK~† nÍ,‚"Ì„:~†þ Íí[ü…ÍÌ8("ü… í[ü…ÍÌ0"ü…*ü…b…É:"„þ :�„·(Í¢/É:#„þ :Œ„·(*†"$†É*/†Í¼í[¥‡í[.†¯WíRí[G…W¯í[F…WíR"†‡:ì…þ -:†…·( :�…·(:ê…:š†·( oͼ"¼„ÃîkíDñ*†‡"$†ÉG!@‡ ^!b…4Ã1G!@‡ ^!b…6!�„5*¥…ÕÑ·íR"¥…:’„ƒ!L‡ –2’„ÅÍ—HÁ: ‡·úfGõ!L‡ ~ñ_!Þ„w!@‡ ~!Ö„w:’„!L‡ †!@‡ –2’„:Ї·úŒG!@‡Ò¥LÍ©2!”„ íC‡"‡~·(nÅá ë!º~2ÿ†åÍçMá [#~2܆ÍçMÂN*‡Í#S2‡_!&…^:ÿ†ƒO¯G!b…å <¾á(:܆ƒO¯G <¾ÊóM_¯W!”‡~#¶É!ô†4*‡"¼„!„!þ… †á–2’„:œ†þÚ;E!† ~+wå!œ†5á ý!�‡ý :†_:†“~ ý~ýwÃÜC>2¢‡!-†¾ <Í—H: ‡·ú¹E:„†G!†ÍsE!Ö„Í}E!Ö†ÍsE!Þ„Í}EòTEùEX: ‡_~ÉX„<ò›L*0„åÑͼÍ/}2ô†!¯íB"‡ë!b…~2ÿ†==òŠL<úâK*ö†í[‡"ö†:‡íD‡Æ !ó††w!‡4>2‡!”„ Í#SÍåI®w¯2‡:�„Æ2܆=ú%L!”„ ~·(+!‡4!Ü":†œÿÍÌ0Í*{…Í,Íd"¹‡*í…|µ p*‡<ÍÌ8A(?2Í/í[ï…ÍOí[¹‡Í/å*ó†Í¼ÍÑÍ/å:ó†Ö$íDo&í[ü…Í/Ñ$ÍO!*ó†Í,å*ÃÚ=Í©2¯2ó†2ô†2õ†2ö†2÷†29†:�„·(:"„þÈ:ð„2d‡:#„þ0:d‡O·úÑI!&… ~þ0 :d‡=2d‡+ òÀI:d‡·øþ8>$2ó†>2ô†ÉG¯7ýÉ:�„·(¯ :#„þ8ö>ÿ2C "¾„ÍßRíK‡ íC‡*‡#"‡>¹Ò”MÍ©2íC‡Åá ë!º~2‡_¯W!”‡^#VíSÿ†ëÍÌ(ÒO!”„íK‡ "‡~#¶#¶2©„·ÊO:ÿ†=úˆN!©„Í#S_¯W!&…N*ö† "TíS‡*‡âÿ¯íRò—TíS‡*‡"Ä„|·ò·T:3„·! *‡ÍO"‡*å†í[‡¯íR"b‡¯FíR(82Í(íS †:ù„ÖúúT:2„Æ!#„–2b‡=ò U>2b‡:þ„2b‡íS¾„ÍßRíK‡ÃðQ*‡##"‡íK‡ íC‡>¹ÒëQÉͰRÍÍRÉ!”„í[¼„Í#S2d‡_ͼ!&…~2÷…Éo:¾„G_Í,í[ö†"ö†ÉͰRþ0 :4†· >2$†É:÷…ÍÍR:÷…þ8 !$ÍOë*冯íR¯*íRå>!b‡–o Í,ëá¯íRå:Œ„obÍ/í[#„T)Þ^#Vë ÍOÑ"ø…:ä…<_!ò„~þòbY¯2b‡:ä…<Ë/oí[*„ͼÍ(}2b‡:!…_b:†Sþ•På!ÿ†4!܆4á~Ã`På*ö†í[÷…·íR"ö†á~·:‡w:ÿ†Öú¼P!ô†4ðQ:‡G‡€Æ2‡íC‡*‡¯g ë!”„~·Ê¡QíS¼„íS¾„ÅÍ©RÁ*‡í[‡Í/:÷…½!܆ 8y2ž† æí[ž†!©…n&#ñ…õ:ö…þ.8*-„ÍL:#„Æ•_ñoÍL}2D…¯2D…:b‡·(5:Œ†Æ_!ò„~ÖòfW:ö…Ë/Ë/2D…*�†Í¼Í/}!Œ†–<Ë/2D…:3„ö†!ô†4|!"¼„!"¾„ÍßR*‡~· &#~·(aÍ#S_¯W!&…~!‡–_¯W!b…~þ F!ô†4@_íD£» óÍ#S_¯W!&…~!‡–2‡_¯W!b…å~2‡þá(ÐÖòO:‡_:‡“_¯W~Ö>úU<2b‡:á…Í4Sí[b‡ÍO"‡* †|µ(Ë|(*ç†Í/å*å†ëáÍO}2ò†*å†Í/í[ç†ÍOë! ¯íR}2ò†* †¯í[¥…íRÍÌ8(&á†*ˆ†&ó†x†w>2$†É!9†ò:÷…þ8>É:4†· ÷>ÉÅ~8 úÿyÁÉG>¸8XÕáÕÍ/ÑÍ/,ÍOÉxÖ_!^S^#VëÉ&.7ALXes‚’£µÈÜ,!�„oÍ/Í/$ÍOë*熯íR¯*íRå*b‡ Í,ëá¯íRå:�„íDoÍ,í["„T)Þ^#Vë ÍOÑ"ú…¯27†>2Æ„*�†-í[Ž†Í¼Í/}2"‡!b… ~þújZ¯2%‡5y†þ0ÍSþ å!ÿ†4áy†w*ö†:÷…_¯WíR"ö†¯2»‡:»‡<2»‡ ¹õ ñ0 o&í[‡Í/:÷……_¯W!b…~þ !ÿ†4Ò:܆þ0+:÷…!‡–2÷…_¯W!b…~2»‡þ !ÿ†4!Üþ8(:.„þ8!>2E…:x…<òžW>!E…†w:y…<òÀX!E…4ÃÀX:�†!ò„_>¾8 :ö…þ8> !…„¾8*j„xÍOë!E…sÃÀX*Œ†Í¼Í(}Æ_!ò„~2b‡Öú€X¯2E…:+þ(ºíK‡yÆOíC‡þ(Ú&NÉÍ©2íC‡!z…"‡~2ÿ†2‡ÖòÃQÆõ¯<2܆ñ=úMPíK‡íC¼„:‡‡íDÆ _ͼíS¾„ÅÍßRÁ:$†þ !‡4!”‡ 6#¯w:d‡ÍåI!”„ ®w)^#V!Í/å*å†ëáÍO}2š…**å†Í/åá†*ˆ†&)^#VáÍOë! ¯íR}2š…:ä…_!ò„~!Œ„†!2„––2,‡:ä…_!b…~=úVnͼÍ/}!,‡†2,†~+–2ö…ò�S¯2ì…É>2ì…:ä…–ÚÈS:á…!…„¾(8w:…„þ$(:2„= :*„_!4„>$–!…„¾0w:…„Í4S"í…:�†!å…¾Ú T:â…!†„¾(8w:†„þ$(:3„= :+„Æ_!4„2,†Åáí[�†Í¼Í/}2$‡:,†· *$‡b…~<ú6Z>ÿ¾ÂNZ:$‡þ8>2,†*$‡b…~ÖòNZ!,†4:$‡=2$‡¹ ¿:,†!7†=¾8<27†!Æ„q:"‡¹ÒòY:7†· >27†!†4~ØÖòŒQò:ÿ†Öú¡Q:܆þ0!ô†4íK‡ íC‡>¹ÒÎP:‡ÖòÃQ:ÿ†=úÃQ!ó†4*‡+"‡íK‡ íC‡>¹Ò&OÍ©2íC‡!”‡ "‡~·Â‘R>¹Ú‘RíC‡!”‡ „þ>(>õ:�†o:+„½.8.ñ…õí[�†!ò„~Öú\X>2ž†!b… ~·òJX:Œ†¹(0y2ž† yþ ãí[ž†!Â…n,ñ…õ:ö…þ.8*,„ÍL:"„Æ•_ñoÍL}2E…íC‡!”‡ " ‡~#¶Â4P*‡í[‡ÍÌ0 }2"‡{2$‡{2"‡}2$‡í["‡!T~!$‡†2‡_¯W!”„~·(¯w:‡!‡†‡_¯W*ö†"ö†!ô†4!ô†4Ã4P!”„ ~·(B!”„í[‡¾(7íC¼‡:å…Æ_!ò„~!�„–!3„––2-‡:å…_!b…~·ò:VnþÿͼÍ(:-‡•2-‡:2„þúmV:/„þúmV>2D…:e…þú^V>!D…†w:d…þú}W!D…4Ã}W:Œ†Æ!ò„_~þòŸV:>$–!†„¾0w:†„Í4S"ï…*å†F¯íR(82Í(íS>†*ç†G¯íR8#2Í(íS@†* †"5†¯íRú[TíS5†*5†çÿ¯íRòkTíS5†* †í[¥…¯íR"‡¯íRú‡"È„Ã[*�„&å!í[Æ„T¯íR)ë¯áíRå: …ÖoÍ,ë¯áíRå*ù„í[…„Í,å!í[*„T¯íRÑÍ/$ÍOëá¯íRå:Œ„oÍ,:#„_T)Þ^#Vë ÍOÑ"È„Ë|(!~#¶ÂŠRí[‡!T~�2܆!”„_¯W~·(:܆2¼„¯2½„íS¾„ÍßRV!·íBë!b…~ÖòWRí[‡!”„~·(íS܆%!í[‡·íRë!b…~ÖòŠRí[‡!”„~·(íS܆íS¼„¯2E…:b‡·ÊÀX:�†_!ò„~Öò§X:ö…Ë/Ë/2E…*Œ†Í¼Í(}íD2b‡:å…ÆË/oí[+„ͼÍ/}2b‡:ö„_*…„Í,Í/„!"¾„Í©R!”„:‡_¯WwÍSþ !ô†4!ô†4:÷…_¯W*ö†íR"ö†íK‡ íC‡* ‡##" ‡>¹ÒŒO¯2ÿ†!”„íK‡ "‡~2‡·(FíC¼„íS¾„ÅåÍ©RáÁ:d‡ÅÍåIÁ®wÍö…þúŸV:†„þ òŸV*h„xÍO}2D…Ã}W*�†ͼÍ/ò„~2b‡Öú>W¯2D…:*„=>úÆV>õ:*„o:�†½.8.ñ…õí[Œ†! …~==.úW>2ž†!b… ^ú W:�†¹(D "È„¯28†*�†í[Œ† ͼÍ(}2"‡!b… ~<òœ[¯2,†2#‡Åáúÿí[Œ†Í¼Í(}2$‡:,†· %:$‡_!b…~þòe[þÂ[>!$‡¾Ú[>2,†:$‡_!b…~<ú[!,†4:*~„|µ(Ü*†BÿÍÌ0Ñâí[œ†!º†~·òÁa!þ…N!b… 6ÿ!¥…~Ö‰o&"¥…!�„4 !þ…N!b… 5!�‡í[œ†N!b… 4*’„ å!þ…Ná·íB"’„É:¢‡·À:0†G:„†=O:0:Œ†¹á0å*#„åÑÍ,ÍOÑ"<‡*#„ÿÍ,ÍOÑ"<‡!"æ„"Ý…Ý!Ýåýáý ý" ‡* ‡b…~2(‡Æòâ_Íy^Í�^@:(‡< Íy^Í�^2: ‡þ8+:(‡þþ $!b„"x„>¹8> ‘oÍLë*|„"|„!0„4Ãgy=!�†¾0!*†5!/„4:h‡!”††wí[h‡P!@~!$„†w>�!è„Íå>‘!J†Íå:ކ‘2|‡=ú‚f<_oÍ,í[h‡åͼáÍ/ë*&„"[È„íR8:�†_!ò„~þ8:Ç„_!©…nb"H†É!í[7†Í¼¯íRåÑÍ/ë!$¯íRå:Æ„Æ_!©…^áÍ/$ÍO"H†É:"„þòM_*å…ͼúÿÍ("‡*å…ͼ2+†>2å…:”†!ò„ w!b… ~2h‡åÕoͼÍÌÑá0 :h‡ ‘!ì„Íåy$‡<2$‡¹ÂA[:,†!8†¾( 828†!Ç„q :"‡¹Ê[Ú[:8†· >28†!"Ê„Ã.\*ƒ„&å*Ç„&)ë¯áíRå: …ÖoÍ,ë¯áíRå*…í[†„Í,í[+„Í/$ÍOëá¯íRå:�œ†íD�¸ø20†:„†O:¸†_:œ†¹ð!Ö† ~!L‡w!† ~!@‡w:¸†<2¸† :œ†¹ðÃb:š†· *„"Œ„!H…b…í°É:ÄíD2Œ„:„íD2�„!H… ~íD·!íBë!b…w… ~= Íy^!©…í[ ‡P~þ ú`:Œ„þò`Ý#Ýåá>½ÂÀ_!b… >ÿ¾ #:Ý…_P!P ní[<‡Í,í[r„åÍÌá81(/"r„*!b… ~Í8Öòƒ`*æ„åÑÍ/í[<‡åͼáÍ/í[n„&„yþ8!"„4y!å…¾ 4:h‡þÊg\>‘‡oÍLå*h‡Í¼ÑÍ/ë*t„"t„>‘_*h‡Í,ë*x„"x„>¹8(> ‘oÍLë*h‡Í,ë*|„"|„!2„4y=!�†¾0!*„q!T†4^P!·íB n`åyþ8!:�†=¹!8*"„&åÑÍ/ÍOÑ"<‡*"„þÿÍLÑ"<‡!"æ„"Ý…Ý!¯ÅáÝåÑíR"&‡b…~2(‡þú�^Íy^Í�^`ÅG>€ üÁÉ*æ„#"æ„=!N†Íå!�†y–2|‡=ú±d:|‡_oÍ,:h‡íD_åͼáÍ/ë*(„"(„>¹8!#„4:h‡þþÊgKyÞ‡oÍL:h‡_Í,ë*v„¯íR"v„>‘o:h‡_Í,"z„yþ8ÞoÍL:h‡_Í,„íDoÍ,:"„_T)Þ^#Vë ÍOÑ"Ê„Ë|(!"Ê„*â…ÍL:"„…õ*ø…í[Ê„¯íRÍOñ…2†þ 8> 2†!,„–2†þ0>2†*á…ÍL:#„…õ*ú…í[È„¯y·È å:Œ„·(¯2Œ†Ã½b:š†·:–†(>!—†–2Œ†í[Œ†!b…~=ò½b!Œ†4>¾ è*¥…|µ(>2�†:š†·:—†(>!–†–2�†á†*š†&)^#V*’„ë¯íR"å†á†*ˆ†&)^#"n„>¹8*æ„åÑÍ/}!©… w:‡¹Òi_ÉåÕÅõ!ã`.a¯õñŽ'õ+öñÞ`!.aí¸.a!)aPí¸ñÁÑáÉ“30Wt!cD6b‚9�`‘(hƒ%W8�F’tB3'CV†q:•†õ>�_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:<‡_Í,í[p„åÍÌá81(/"ë*~„¯íR"~„!3„4:~‡=2~‡Æ!V†_PqÃg!•†5y=!N†Íåy!�†–2|‡=úIe*|‡]Í,ë*(„"(„!ñ„4>†!&…_Pq!~‡5>†!V†_Pq>¹05yÞ‡oÍLë*v„"v„yÞ_íRÍOñ…2†þ 8> 2†!-„–2†þ0>2†:.„·Âã\:Œ†Æ_!ò„nͼÍ/í[h„Í/-ÍO:ö…ÖòÙ\¯_"F†ÃC]!¯í[Ê„íR8":Œ†Æ_!ò„~þ8V*¥…"ç†í[冯íRíR" †åÕ!"„„Í>Ñá:�†2|‡þ8>2|‡!ÿÿ"è„"ê„:|‡Ö#!è„ͬ>!{…–_*å†ÍOë!¯íR}2ކ:Œ„·!"J†"L†( >!J†4ͬ>2€‡:Œ—‰‘fR‡s‚sˆfˆ—tIQ€™7 � y•E’dEE Uˆ�UQy7yY*‚†ÍÌ8(å*ˆ†).‡^#V*Z‡ëáÍÌ8(:¼„=· *v„|µ >2$†É*†®ÿÍÌ(0í>2$†Éþ ã5:~‡=2~‡Æ_!V†6*�„ͼå)ë*~„¯íR"~„áÍ/ë*z„¯íR"z„:b…·! *~„dÍ/"~„>ÿ2U†:~‡þÒôg_<2~‡!e†åF:U†<2U†_ápÜ:b…·! í[�p„*!b… ~Í8Öò._*æ„åÑÍ/í[<‡åͼáÍ/í[l„"l„yþ8*æ„åÑÍ/}!©… w !‡y¾Òù]:#„þð*ä…ͼ Í/"‡í[ä…ͼ!¯íR  n`åyþP*z„"z„yþ8ÞoÍLë*~„"~„!1„4Ãg!”†4>‘!J†Íå:ކ‘2|‡=úÌe<_oÍ,ë*&„"&„!€‡5^P!&…q!T†4^P!V†qyþ06>‘‡oÍLë*t„"t„>‘_P*x:Ç„_!©…nb"F†2í[8†Í¼!¯íRåÑÍ/ë!$¯íRå:Ç„_!©…^áÍ/$ÍO"F†:/„·Â{]:�†_!ò„nͼÍ/ë*j„Í/-ÍO:ö…Ö8¯_"H†É!¯í„2”†·>ÿ2T†(¯2T†2V†:Œ†2|‡þ0>2|‡!ÿÿ"ì„"î„!ì„:|‡íDÖ Í¬:b…Æ_*ç†ÍO}2�†:�„·!"N†"P†( >!N†4ͬ>ÿ2ñ„>2~‡:b…Æ2 …2•†!�†~+–2*†E „ͼ!ôÍ/å*v„dÍ/–ѯíR"v„:b…Æòi>ÿ2¼„íD2¾„Í¢0*†)"†>2�…:…_!–Í/å*z„Í/Ñ"v‡ÍÌÚ8iÊ8ií[†"†z³ >K2‘…>2’…*v‡òÍon @ÁÑñãÉãõÕÅ~#þ@(_:q‚þÉ{(ÍÀnþ êÍ‹n @ÁÑñãÉõåÕÅͦ`ÍÁÑáñÉÉåÕÅ!Ðnå*TéÍénÁÑáÉåÅÕͦ`ÍÍénÑÁáÉþ`Øæ_ÉåÕÅ!þnå*TéÁÑ"µ‡:„‡_PÍ/2dÍOå:‡*‡ –2‡*‡ +V+^ãåëáã##s#r*„‡Ñ¯íR"„‡+Ë|È!¤† í[ ‡^#VíS¶†!¾† ^#VíSІ!FlãÉ*‡ +V+^##s#rÉ*¼„Í“29‡*Legal Moves!!!@>ÿ2 „É *Í:}!%såÃonIllegal Move!!!@>ÿ2 „ÉíK~ Í:}¯2 ˆ> 2$†:Þ†·Ä!w:ê…·(=þ 'Íü€:fÍE�6Íö€Íss%*Z‡ë!ˆÍoå!{² >K2‡…>2ˆ…*v‡ ¯íR"v‡*v‡ÈÍO"t‡"‡ ÅÑÍÌ0!†… åí[t‡¯íR~áw*‡ ä!‡…:t‡¹8¯w#ô*v‡ÈÍOíSv‡íKt‡ÅÑz»(<¯2h‡2i‡!†… : …:w†·Ê7q:†o:†½0!"š†#"Ú†"ˆ†!ÿÿ"Ú†#"ˆ†#"š†Íª<>2w†:†!†¾> >2„†:†2І¾2{†:†2‹†2+‡ 2{†:†2+‡:š†·È:†íD2І:†íD2‹†É:`ÿ"v‡*v‡ÈÍO"t‡#"‡ ¯+íB0!�… åí[t‡¯íR~áw*‡ å:t‡¹8 ¯!�… wñ*v‡ÈÍOíSv‡z³(`¯2h‡íKt‡!�… > ¹8NÍïhöån&í[v‡Í/ÈÍOáÉ! ·ÈT])))Ö0þ ?Ø_ê60+ ú#ðØÍPoüÍPoœÿÍPoöÿÍPo{¶w·íB~þ0À6 # öÉåë 0ëá4öy/_x/Wëá#É~þ ( #~þ ú6ÉëÑé~·È_ͯn#À„ÍÌ8E(C*¾„Í/åÍ">‡*À„Á¯íBd Í/í[>‡ÍO2 "x‡Ë| dÍÌ8( íSx‡!"x‡!"è…*¼„Í�"¼„ ÍÌ8Q0ÍÌ8 !d"p‡ÃYn*¼„ˆÍwoáÉÍü€:bÍE�6Íö€Íss:ê…íD!Ú†¾È:æ…·(:ç…·À> 2$†:š†_!ð†~þÊtAÍ:}GÍ:}íK\(Í:}!åsåÃonDo You Double [Y/N]: @Íë|þY¹8+Íïhõ:{…ÖíDo&dÍ/å*å†Í/ÑÍ("†>2†…!"‡:z…ÖúMk<_.Í,#ÍO"‡:y…Öúak<_ͼ*‡"‡:x…Öúxk<_.ÍLí[‡"‡*å†í[‡ Í:}!‹qåÃonPlayer: @:š†·(!¡qåÃonBlack (X)@!´qåÃonWhite (O)@íK^Í:}íK\(Í:}:‡†·(ÍÉr2é‡ö02Á‡¯2‡!ðqåÃonDie 1: @ͱr:Á‡þ0"t‡ëá~“_:h‡‹w}2h‡#É*ç†Í/å:b…Æo¯gdÍ/ÑÍ("†>2�…!"‡:c…<òUi_.Í,+ÍO"‡:d…<ògi_ͼ*‡"‡:e…<ò|i_.ÍLí[‡"‡*ç†íöÍ×nþ(wþ ( #ñ+^ͯnê ïn:ˆ†_!ð†~þÂCpþ íK\Í:}!ÁoåÃonI RESIGN@<íK\Í:}:š†·(!ãoåÃonBLACK RESIGNS@!úoåÃonWHITE dÍ/ÍOë!X¯íRí[¾„Í/Ý!xÍ_ë!då¯íR"p‡ÑÍÌÚYnÊYníSp‡ÃYn*¼„åÑÍ/ Í/Ý*¾„Í_Í"p‡ZÍÌ8( Z·íRÍOëÕ*p‡PÍÌ8ÀÃtÍ =:$†þ> 2$†À:ˆ†_!ð†~þÂÕt:š†_!ð†~þ íK\Í:}!BtåÃonI Double!!!@M:š†þ $íK\Í:}!htåÃonWhite Doubles!!!@"íK\"�„:{…ÖíDo‡…_ͼÕ*�„ÍÌá0"�„:b…G:{…€Öoͼí[ƒ„í[�„¯íR" ‡¯2ä…!h…~<úÏkx2ä…+ò>2+„!u…~<òækx2+„É#xþ8ïÉ>d2„‡2¢†2Ô†íC¾†(Æ!Á‡¾qÍfoAÍö€å!Á‡ÍwoáÁ‡ÍoÚ¾q"é‡:é‡þ0’·(�íK^Í:}:‡†·(ÍÉr2ë‡ö02Á‡¯2‡!WråÃonDie 2: @ͱr:Á‡þ0ÊÈq!Á‡/rÍfoGÍö€å!Á‡Íwo[‡¯íR"ƒ„:b…Æo��_ͼÕ*ƒ„ÍÌá0"ƒ„:Œ„‡_ͼ*|„"|„*Œ„Í,í[x„"x„:{…·! *|„dÍ/"|„>ÿ2ð„:€‡þ0 í[€‡Í¼Õ!&…å~!ð„4n&ÑwÑíS€‡RESIGNS@íK^Í:}!påÃonDO YOU ACCEPT?@å!ù‡Í�oá:ù‡þY >2$†É>2$†É:š†_!ð†~þÀíK\Í:}:š†· !hpåÃonWHITE RESIGNS@!påÃonB(P·íR Í/ÍOëÕ*p‡FÍÌ8(F·íR Í/ÍOë*p‡¯íR¯ÑíR¯ÑíR"p‡dÍÌ8(íSp‡í[9‡Í¼*p‡íKx‡ Í/"$†ÉãõÕÅ~#þ@( _ͯnþ Í:}!ŒtåÃonBlack Doubles!!!@íK^Í:}!®tåÃonDo You Accept? @Íë|þY > 2$†Ãˆu> 2$†Ãˆu:š†!ð†_~þ K:š†þ #íK\Í:}!ütåÃonWhitíC¤†>O!�…"‡*Ô†"‡!¾†"‡!ÿÿ" ‡Íbl!†…"‡*¢†"‡!¤†"‡!" ‡Íbl<þ úl:¼„þ *І"$†É*¶†í[І¯íR"$†É:‡=úçl*‡ n`dÍ/:‡_Ë+P_ÍOáÁ‡ÍoÚ/r"ë‡:ë‡þ0›·(˜ÍÈuíK\(Í:}:é‡2†:ë‡2†ÉÍÁn2Á‡þ08öþ70ò_ͯn!‡6 Éͦ`!ß`~æðË/Ë/Ë/Ë/þ8 ~æþ8#ç·À#â *Í:}!ýråÃonNo Ù:{…·! *Œ„ͼôÍ/å*t„dÍ/–Ñ"t„*{… ͼÍÌÚk>2¼„>2¾„Í¢0*†)"†>2†…*…&–Í/å*x„Í/Ñ"v‡ÍÌÚ.kÊ.kí[†"†LACK RESIGNS@Í/aíK^Í:}:$†þ !!¨påÃonRESIGNATION NOT ACCEPTED@É!ÉpåÃonRESIGNATION ACCEPTED@É:õ…þ(Í{q:†o:†½ :w†þ(å>2õF e Doubles!!@!íK\Í:}!uåÃonBlack Doubles!!@ÍS-:$†þ )íK^Í:}!JuåÃonDouble Accepted@ÍÈuÍÈu&íK^Í:}!suåÃonDouble Refusen Y/N. Yes/No Answers@!z"wÃ%vÍïnõͦ`ñ·(õÃÁn¯2ç…Í�8(!‡†6!"‚†¯2æ…>Wà }¯2‡†Í:}Íö€!æ{åÃonO P T I O N M E N U@ Í @íKzÍö€!œyåÃon @!àx"évÃ%vÃ[v!H…í[ˆ:š†· #:ˆ<þ8>2ˆà+:ˆ= >ð2ˆ~ý!  Ý!oÅÝ~ýNo·( ò.€íDoÍ�ÁÝ#ý#ý#ý#ß Í–�îÍ–�  ÅÝ~o·(úG€íDÆGýN}·ò3€íDoÍ�ÁÝ#ý#ý#ý#×:Íö€!p€åÃonDice: [ ] - [ ]@Íö€!�wåÃon @Íö€!£wåÃon @Ã[vPÍö€Ã[vÍÄwßvÍÄwÃ[v!V>2ˆ:š†·(###>2ˆF#NÍ:}É:š†·> > :ˆ=(òûw>2ˆo&Á!Ö„ ^!H…~·(ñõ®~ò"~åÅÕÍÄ~ÑÁá>õ>»Ên~¯»Ên~ñÕá)·ò=~íD#^þÚG~Ö+V##ngz%úU~…ùWÅÕÁÍ:}Áñ·>Oòi~>X_ͯnÉñÕá)·ò}~íD#^þd@ÍÈuÍÈu:$†þ À*Ú†åÑ·íR·íR"ê…Íü€:ê…þ :fÍE�6Íö€*Z‡)"Z‡ÍssÉ:bÍE�6ç!+|µ ûÉíK~ Í:}:Íö€!èuåÃonPlayer: @:š†·(!þuåÃonBlö€! |åÃonRandom Dice [Y/N]:@Íë|þY !‡†6 Íö€!5|åÃonMatch [Y/N]:@Íë|þY 8 Íö€!V|åÃonMatch Length [5-23]:@!í‡Í�o6í‡ÍoÚ�|"‚†·(Î:š†®æ€ Å:ˆÃûw;ÅÍ:}Á>¸ ò!,z"wÃ%v;Íö€!9zåÃon **MOVES**@;Íö€!UzåÃonSPACE Clockwise 1 Pip@;Íö€!xzåÃon N To;Íö€!�€åÃonBKG 10.6 I For:@;Íö€ÍI9:ã…·  Íö€!¹€åÃonGame #@> ÍE�É!ð†~#¾ þ Éõ%Í:}ñþÂì€%Í:}!ó€åÃon*@ÉÃ:}>õÍÍ/F#NÍ:}Ã[v:ˆ<þÚûw>×:ˆþÊ[v·Ê[vo>•ÅÖ0W:š†·(zíDW:ˆõ‚ÙëþòPx¯wþ86ëñw#å*†|½á> ‡¹0O+ÙÃ[v!"t†:ˆ2Þ„ÉÚG~ÖöÅÕå:š†·Â·~!V:„õ_~##Vʦ~‚ù+NGÍ:}ñáÑÁõÃ~!Y>ÿõ:ÄíDÖ~õ·úþ~!V:„_~##VúÜ~‚ù+NGÍ:}ñ·úô~!ñ~åÃonO@É!û~åÃonX@É!Yack (X)@!våÃonWhite (O)@!Þ„Ö„Ù:­{·(¯2­{:š†·:®{ >íK®{‘:�†þʾw·Ê¾wO:š†·y >‘ÃûwÍïnõͦ`ñ·(õÍÁnõ: „·(/ *Í:}¯2 „*ˆ !"‚†¯2æ…-¯2æ…4 Íö€!ž|åÃonCrawford [Y/N]:@Íë|þY >ÿ2æ… Íö€!Ç|åÃonMode [B,W,S,F]:@ÍÜ|.Íïnõͦ`ñ·(õÍ×nÉÍïnõͦ`ñ·(õÍÁnþY(þN( Next Mover@; Íö€!™zåÃon B To Bar@; Íö€!³zåÃon H To Home@; Íö€!ÎzåÃon A Anticlockwise@; Íö€!ïzåÃon J Across Boary�! �åÃon @ñ<þ ê> õÍy�!!�åÃon @ñ<þ ê>õÍy�!9�åÃon @ñ<þ êÉõÍy�!P�åÃon*--*@ñ<õÍy�!b�åÃon| 1|@ñ<Íy�!s�åÃon*--*@ÉG5Ãö€ÅíK~ Í:}!‘xåÃonMy move would be ...@:ˆ2®{>ÿ2­{! "t†É>2¼„Í�p:$†þÊ%v! "t†É:0†o&"t†ÉÙ íCt†ÉíK|Íö€!îxåÃon 1 2 3 4 5 6:ÄíDÈ "%(+.11ÿ.ÿ+ÿ(ÿ%ÿ"ÿÿÿÿÿÿ ÿÿ  ÿ (G  A;CH  }·Ê¸wþʸw&Í/F#NÍ:}ñþBʾwþNÊÑyþHÊäwþAÊðwþ ÊxþJÊ$xþQÊ€xþRʸxþMÊÏxþÊÙxþEÊsxþ-ÊÎyþ:ÊÎyþDÊÎyþÊàxþÊwþʯwþÊþÊþèõ_ͯnñÉþW !ð†6#6ÉþB !ð†6#6ÉþS !ð†6#6É!ð†6#6ÉÕÅ!­}ÍwoÁ:¹}·(yHG:¸}õ€Gñ�OXͯ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Íö€!%yåÃon 24 23 22 21 20 19 18 17 16 15 14 13@!Wy"évÃ%víK|Íö€!eyåÃon ;;FF$--Í:} ÕÅÍ:}å!‚ÍwoáÁÑÍ­�ÕÅÍ:}å!ð�ÍwoáÁÑÕÅÍ:}å!ð�ÍwoáÁÑÕÅÍ:}å!ð�ÍwoáÁÑÕÅÍ:}å!ð�ÍwoáÁÑÍ­�Í:}å!D‚Íwoá Ê,zþ1Ú[vþ:Ú6xÃ[v:Þ†/2Þ†·(eÍ!wÃ[vÍö€!.wåÃonPips 0@*á†ë!ˆÍoíKpÍö€å!ˆÍwoáÍö€!]wåÃonPips 0@*ã†ë!ˆÍoíKrÍö€å!ˆÍwoáɯn ú!­}ÍwoÕÄÅõ  ý úñÁÉT=!Þ„ ^~·Ê‰~þʉ~!H…~õÕá)#^+·òâ}íD=þÚë}ÖV##ngz…% üWÅÕÁÍ:}G  | | ||<*>---<*>---<*>---| |<*>---<*>---<*>---||---<*>---<*>---<*>| |---<*>---<*>---<*>|Éw‚Éw‚Éw‚å!zƒ6 á}´ >>> 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:IF‘2|‡=úÌe<_oÍ,ë*&„"&„!€‡5^P!&…q!T†4^P!V†qyþ06>‘‡oÍLë*t„"t„>‘_P*x„"x„>¹8> ‘oÍLë*|„"|„!0„4Ãgy=!�†¾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 ÍÀnÍÀnÑë}´( ~·(_ÍÀn#õÙ^ËG(#VËW(%ËG(Ëz(õ{/_z/Wå!zƒ6-áñ Ë{(õ{/_ëË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#z̓ÝáñõÝåËGÈ{OÍ"ƒyæþ 8ÆÆ0w#É!zƒ{ƒþ ~6 #ó!zƒ~·(_ÍÀn#õñÁË_ A ÍÀnû  ÍÀn ÍÀnÍÀnËÈ*"wƒÍvƒÉ! ***":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:@!Þ„Ö„:0†O ë ë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:GOSUB2200åY1)<>"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+1å15145 15129 PRINT:PRINTS5$;" BLOCKED BY "; 15130 IFQ$(X1,Y1)="*"THENPRINT"STAR AT"; 15131 IFQ$(X1,Y1)="B"THENPRINT"STARBASE Aå7+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>0THEN15åT"; 15132 PRINT" SECTOR";X1;"-";Y1;"...." 15133 PRINT"EMERGENCY STOP REQUIRED";FNR(K);"UNITS OF ENERGY." 15135 E1=E1-K 15137åQ$(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)