IMD 1.17: 17/01/2010 8:14:57 basic games  > 3!y=  y y # >> v  ? }|>>@>H>> v \X COPYRIGHT (C) 1979, DIGITAL RESEARCH _͌> ͒> Ò> Ò͘~#͌ì _2<2 凇!2:2a{_:ʖ:>Ľʖ:=2–!B!6#5ʖ:Ľ!ͬʧ )!F#xʺ~0wëw!" !~6ͽ:ý(!#͘*~ ""͌#>?͌͘ =_.:;<> Oo$>!Y2*O"ʉ@G:ʐ:wÖx2p0ʹ#*©6?ëw˜0ï#6 ¹.0#*6?w0#6 #6" #~?  xDIR ERA TYPESAVEREN USER!yO#< Ty#O 321y_͸2y2ͽ:1͘A͌>>͌92^ :¥.!_~#fow]!v"!çREAD ERRORçNO FILE^: ! ~ 3#0 Wx x G ~ # 3x~#B!Y~ɯ2:=!ý:=!:ý^T!~  6?#ˆ:`O> K{͘A͒>:͒͢>:͒͢xK > K > ͒x  ͢ØÆ^ BRͧ9!5‚#~Y‚#"T<ÆALL (Y/N)?^ Tʧ͘!6!~ڇ w4!Y~ʆ͌†t=ʆf ^ T 2o&)|+!<ͧÆNO SPACE^ :Ty!B*O=?_s#"^sG!~Ypsp2mÆÆf ͧFILE EXISTS _: É: :ʉ=2)ͽÉ T!@k!}|q=qf^!~2>`~22\!!B!~> >#0~O#Cx2͘1)ͽÂf zͧÆBAD LOADCOMf^: ! Â$$$ SUB"I{2!"K9"1G22!By%K!D_^#V^d}-39?Ky<ʯ _ :!q*IMD)h2K!%!0!:§h :y!4 5~y¾5 6yY^͍@Oy  ͍:  #͍:! ͍ ͍ Í $O:2*IN#@ ^x7:2ønx7~+29!>w7§:!)5Ö³)x#N:9!2!59#wO~x7p Í^#V! M! M! M!M w#k:HO|^#V#"p##"r##"t##"!vj*x!~j*|!6ʸ6>!N#F*rw#w*tw#w'R*R!N#F*t^#V*r~#foyx*~{_zW+*~yx!#*DM*rs#r*ts#ryOxG*0MD!!N: WG>O: ne*I :ʃn & ^#VPOp"*}:*)=¢:O:o"*I *I!ͽ~2~2͵:2ͽ:O:w:w |g}o*""*v#  ):HO!yoxg*j:HO}!jN#F%"j**ps#r ~dy]8^o$*v:t*I~͂6͂w>2K**p{#z͞r+s{ozg**ʹ*z* ͞FwN#F$!n!vͻ*v*nj!~#:G#~$=2K͔ͫ:2K:/GyO*ʟ*U͞ҟy:Oyʎ?ʇx ʇ ~8ÇN'8# ^:2K!~Яw#>2K>2!q*I"#ͼ8m ͨgy6͔8PYy b*{zBKb<[!*I yj m ͨ*I~wg 8I ͨ 8bͨ͵~y*I j͑! N!Fwyxʭ>ڭ>*Iw~#+w#w+ɯͰ8͂ͨy *I :~w~<ͶͶ<#< #  3w ~>2+!K5m*I!i"Iͨ"I!w# c! wͫ1Ñ2*I ~<wʠG:!ʫ 4~ͨ:2>2:!w2:K͉͖͜Ø>2>2m*I]:?͉͖͘’P2^O pDM}l>2K"*I ::ʈtsÐO s#r:K͜:!ڲw4 ¿͂w:w!K~=262*I!!~~#~O~G#n,-.k! w! y&!x^.:KG~G!~G} ͨ*I!r#r#ryͅ_y#x#{s+p+q8*I ͅ!!q#p#w*l:HOtX}*lMD%"l:!Hw>2*I~=2U:H2~2w%:G*Iw> 2K!"j"l2H!"n%͋1s1*I~?ʢ͋1ͨ*"I181 11͋1A18 *l"K:H2K*I"n*|"KF*j"K1] *x"K:':G2K2G1s1|1ò:_*I6:_w:2%**K}D2K22y|ë$g (0DS$m S$m0     ?>222!}|>>#y x!>#1,!J(«zڿ ÿ>2!"2!"!"":O>/> 5*y *8yɯ>2>>m>>2 g g:@$:Fgggy >=–>=¦:=2¾ g gy:2y’ y% y % !y2o&))))3y2 y2! n&i`""5@5> :_:_!_2 w~ : _ ʎ2>w{2> v :_:! *"}|>z> /  v •e$O$O$>0:'>  STRTRK/3BAS STRTRK/3BASGOLF BAS,15/PUZ BAS,NUMBER BAS ROCKET BASRUSSIAN BASSNOOPY BAS):Q2(())$LS1(()):S2(())^L WARP ENGINES,SHORT RANGE SENSORS,LONG RANGE SENSORSL PHASEFURS BAS(Z[\]^KENO BAS+_`abcdGUNNER BASefghHANGMAN BASijk! REENTER!!": < JZ A T9#JdR9():R9())JncJx:():" ENTER RANK (1=LOW,12=HIGH)";R9mJRRACYDUCY BASAPOLLO BAS !"AWARI BAS #$BAGELS BAS %&SPIEL BAS&STARS BASSTORY BASKTAXMAN BASRS, PHOTON TORPEDOES,SHIELD CONTROLL" DAMAGE CONTROL, COMPUTER,DAMAGE REPAIR,COMMUNICATIONSL, A : D$(A): A"M6A$(HORSE BAS"lmnopLANES BASWqrstuvwxyz{LOVE BAS |}MANDALA BAS ~R9JX4R9:R9R9nw:W1W1nwJ ()J "COMMAND ORDER : STAND BY !"J "YOU ARE PRESENTLY BEING ASSIGNED TOBANNER1 BAS'()BANNER2 BAS*+,BLACJACKBAS-./0BLKFRI3 BAS@12345678TICTAC BASTPICKS BASTRAP BAS TTT BAS-)" . ":A$()" E ":A$()" * ":A$()" K ":A$()" B "UM@F1(\:F2 #z:F333s:F4p}:K9:B9K9MJI:J:R1MASTERMDBAS MEGATREKBASMEGATREKBASMEGATREKBAS A MISSION..."&K " WITH A FAILURE FACTOR OF"; (RRH)EK" GOOD-BYE, SIR..."_KCX{:AR$" ---> "KXA(BLKJK BAS$9:;<=CHASE BAS>?@CHECKERSBASABCCHOMP BASDEFI :EXPANDED APRIL 1977 BY W.A.BURTON4I :PIRATED JAN. 1978 BY ZOSOOI G(,),S(,),K(,)[I()vI( )"--SXDIR COM PIP COM:MBASIC5 $$$():R2():R3(())MTK3(R1F1F2R9)(R1F3F2R9)(R1F4F2R9):K9K9K3M^B3(R2F3):B9B9B3:G(I,J)dKMENU BASMOONLANDBASMUGWUMP BAS NIM BASX42):AC((X4L}))KX4KE XAd:P :S9K D(D)((K(I,)S1)(K(I,)S2))KQ1(()DECISIONBAS GHDICE BAS+IJKLMNENTE BASOPQRFOOTBALLBAS6STUVWXYTARTREK--":|I2I< "WHAT IS YOUR SECURITY CLEARANCE NUMBER (1 TO 1000)";T9IFE8T9IP T9 T9 AR$;"INVALID! 3 B3R3:J,INh (B9K9)@HNr"OBJECTIVE:DESTROY"K9"KLINGONS USING"B9"STARBASE";VN|UK9:YB9kNB9ϑ" ";:TfAR$;"WARP ENGINES ARE DAMAGED, MAXIMUM SPEED = ";ACTp*TzTECTEC:C$"":K3ύTEW1TS UMAND";AR A A " ----> COMMAND";ARA Aϑ"WARNING - PROPER COMMANDS ONLY !! ": RARD(A)(X)):S4A1(X)(A1(X))YS(S3,S4)nMYS(S1,S2):S1B1(X)(B1(X)){YS2A1(X)(A1(X|PS(R1,R2)PS3DP&AS3P0R1(()):R2(()):S(R1,R2)0P:S(R1,R2):APDG(Q1,Q`)WV:D(R1):"DAMAGE CONTROL REPORT: "D$(R1)" REPAIRED.":bW`W1W1:A1Q2S2:B1HQ1S1:W1W1W1 WjEEvN"S ";NT9K9()K9R9 R9:PRT9K9:"IN"T9"STARDAYS."N NS3:B3S3:K3B3:A:B:S(A,B):B,A"CAPTAIN, YOU ONLY HAVE"E"UNITS OF ENERGY. "UU"REFUEL FROM YOUR SHIELD RESERVES, WHICH HAVE"S"UNITS?"]UAmUD(A)%SAR$;"CAPTAIN, WE DON'T HAVE ";D$(A);" ANYMORE."=S DT n : lSA*,,,,,R,,n ,, 1)):S(S1,S2)YAR$;"NAVIGATIONAL ERROR :ENGINES SHUT DOWN AT (";Y((S1),,);","((S2),,);")"Y TT(W12)(G(Q1,Q2))QN=QX"QUADRANT (";((Q1),,);",";((Q2),,);")"uQb"SECTOR (";((S1),,);",";((SW1:TTW1:TT9 WtA2(A1W1(C1CX))W~B2(B1W1(C1CX))W(A2A2?B2B2?),XOA:B:K(A,B):B,A:S(S1,S2)GOX #zG(Q1,Q2):K3(X):Y(XK3) :B3(Y)cOS3G(Q1,Q2)dK3 B3O  vUUI :D(I)UD(I)D(I):D(I)UD()U"DAMAGE CONTROL REPORT: "D$(I)" REPAIRED.2S :A:A;" = ";D$(A):ASA S A;"= ";D$(A):S*"COURSE";C1: C1 C13 HS4"WARP FACTOR";W1)$Z" YOU LOST "T" UNITS STARTIME RESTARTING ENGINES."*ZBZ( S(S3,S4) gZ2"SHIELDS LOWERED FOR REFUELING"Z2),,);")"QlKPQv DT n QSK3ϑAR$;"SHIELD ENERGY TOO LOW":SL:A:QA: QRD$(AR$;"CAPTAIN, HEED STARFLEET REGULATIONS! ( STAY IN GALAXY ) !!?XTTW1:eX A1(X)(A1X(C1CX))XK3ςA:B:K(A,B):B,A:OAR$;"CONDITION RED !!!!!":AK3OR1(()):R2(()):S(R1,R2)"VI:()L}`V()L}`!VB4V()R9 ώTVR1(()):D(R1)ώyV$D(R1)D(R1) S>SL:KP: R?THAR$"REJECTED ! COURSE MUST BE IN RANGE OF O TO 359.99 DGRS."PTR(W1)hT\D()W1ACz<S:P :C$"D":E XAdZF ZPR1  ZZD(R1)σR1:ZdD(R1)D(R1)( ()R9):R1:[n X:S(S1):A:B:A$(S(A,B));:B::ABR:"SHIELDS";S;);"ENERGY";E;);"PHOTONS";P;[R);"STARDAYS";T9TqR :"COM B1(X)(B1X(C1CX))XX(W1)X(Q1(B1(X))Q2(A1(X)))XW1:n YS3B1(X)(B1(PS(R1,R2):K(A,)R1:K(A,)R2:K(A,)S9: A:B36PB3mPR1(()):R2(()):S(R1,R2)():D()ώV.D()ώV8:"DAMAGE CONTROL REPORT: "D$(R1)" OUT."::VBR1(()):D(R1)`VLD() ,S2):S1B2(B2):S2A2(A2)6[xQ3(B2):Q4(A2)[[(Q1Q3Q2Q4)Q1Q3:Q2Q4:[S(S1,S2)4),,);")";A$(S(S3,S4))a S(S3,S4) , ,,,a()(L}X4) ϑ"SHIELDS DEFLECT TORPEDO":b"KLINGP_AR$;"ALL PHOTON TORPEDOES EXPENDED"__"DIRECTION";C1_&TTL|:TT9 _0PP: C$"D" t fV R1(()):R2(())+f` (S(R1,R2))V afj S(R1,R2):S(K(I,),K(I,)):K(I,)R1:K(I,)R2hft In":]@TTL|:TT9 ]JEEX]T C$"D" ]^D()r]hXX()]rI]|K(I,) ^HcEESXcSX dSLdd?d"DEVICE STATE OF REPAIR"cdR1 :D$(R1);) D(R1):R1{d :AS1S1:BS2S2[ABAB[S(A,B)2[B,A:[[ A(Q1) (Q1): B(Q2) (ON DESTROYED":S(S3,S4):G(Q1,Q2)G(Q1,Q2)d5bK3K3:K9K9:K9P @bAtbK(A,)S3K(A,)S4K(A,):K(A,)`:A1Q2S2:B1HQ1S1:C1Z(C1Z) G`D A1(W1)(A1W1(C1CX))o`N B1(W1)(B1W1(C1f~ f AR$;" ENTERPRISE DEAD IN SPACE"f f CY:: f K3 f f  f f :::::AR$;f (XD())(())() ^K(I,)K(I,)HX^H"UNIT HIT ON VESSEL AT (";((K(I,)),,);",";^((K(I,)DT n : d"SHORT RANGE SENSORS REPORT NO KLINGONS IN THIS QUADRANT"d DT n : e C$"D" K3 Q2)\ABABϑ" ***";:B:" "::A:@\" "(G(A,B))( ));k\((G(A,B)),,(G(A,B))( )):K(A,){bAbbAR$;"STARBASE DESTROYED":B3:B9B9:S(S3,S4):bAR$;"YOU CAN'T DESTROY A STAR":CX))`XW1 fff`bW1S3S1:S4S2:`l(Q1(B1(W1))Q2(A1(W1))) avS3B1(W1)(B1("IT IS STARDATE"T:g  g !g :::::AR$;Cg "ENTERPRISE DISABLED !!"::Lg CYg "THERE ARE"K9"KLINGONS R),,);"), LEAVING"K(I,)"^K(I,)^"KLINGON AT (";((K(I,)),,);",";((K(I,)),,);_") DESTROYED":K"STARBASE PROTECTS ENTERPRISE" : ee*e I=e K(I,)t he HK(I,)D()(())();\G(A,B)(G(A,B)):B:" "::A:\\K3\D()\AR$;" COMPUTER FAILURE HAMPERS ACCURAcG(Q1,Q2)G(Q1,Q2) :c  W1c$c W1?c*S3(S1W1(C1CX))Zc4S4(S2W1(C1CX))wc>S3S4W1)):S4A1(W1)(A1(W1)),aA1(W1)A2B1(W1)B2 FaA2A1(W1):B2B1(W1)a"(";((S3),,);",";((SEMAINING.":CY g "YOU HAVE FAILED !!":g( L(())g2 L f , , , , g< :"DO YOU WANT TO TRY AGA3K3:K9K9:K9P @_G(Q1,Q2)G(Q1,Q2)d:S(K(I,),K(I,)):K(I,):K(I,)M_K(I,)U_ I^_d_q_e$ SSH:H"UNIT HIT FROM ("((K(I,)),,);",";e. ((K(I,)),,);"), LEAVING"Se8 S eB eL ()R9 CY""]"PHASERS LOCKED ON TARGET. ENERGY AVAILABLE="EC]""NUMBER OF UNITS TO FIRE:";K], Xp]6 EXϑ"NOT ENOUGH POWERS3S4cHcRc\"ENERGY AVAILABLE="ES" NUMBER OF UNITS TO SHIELDS";cf XcpXczESX\ IN";X$hF (X$,)"Y" x : "2hP "THE FEDERATION IS SAVED !!"bhZ "YOU ARE HEREBY PROMOTED TO ADMIRAL!!!!":khd <nv DT n : n n MR(T9T)K9:DTn XM((MRPR)PR)dn KAϑTKT"STARDATES LEFT TO SAVE STARBASE.": 3l D()A:l "COORD","LOWDIR","HIGHDIR","DIST"l A/:"-";:Al l Il (K(I,))l  ESLLs K9LL(R9d)s :;s"YOUR MISSION RATING IS: ";LIs::::Ss 6_s$()hs.@qM 6 j AR$;"SAFETY CHECK -- DO YOU WISH TO ABORT MISSION": AN$j" (AN$,)"Y" @ : xj, k6 "YOU HAVE p4 KA:q> SD r : qH "qR B,q\ n Xqf "YOU HAVE SCREWED UP ONCE TOO OFTEN !"qp "OFF TO THE  thn DThx "COMPUTER ON--COMMAND";Ah A AR$;" NO SUCH COMMAND !!": x h AJ ,| , , ,N,> ,R ,o () #zR9B9ώo KA:A:BZo G(A,B)d(G(A,B)d)K1A:K2B:()A:Bo B,A:TKTm W1((S1K(I,))(S2K(I,)))5m W1 ϑ"--->MALFUNCTION !":Cm  |m C1I((K(I,)S2)W1(((s8< wsBsL" O9O"sV" 135 . O45"s`" . . ."sj" . . ."NOT BEEN AUTHORIZED FOR NEW MISSION !!":k@ n =kJ "QUADRANT CODE MEMORY MAP"pkT A:B:G(A,B)(G(A,B))ϑ" ???"VULCAN TORTURE CAMPS !!"qz T < : q "YOU WILL BE EXECUTED AT SUNRISE"q  q "YOU WILL BE PUT TO DEATH FOR ,i "FUNCTIONS AVAILABLE FROM COMPUTER":i " 0 = GALACTIC MEMORY MAP"^i " 1 = GENERAL STATUS REPORT"~i " 2 Q8}((Q1K1)(Q2K2))( R9)o TKTKo AR$;"!!! STARBASE IN QUADRANT ("((K1),,)",";o ((K2),,)") IK(I,)S2)W1)))m  m& C1C1(S1K(I,))CXm0 C2(I)C1( ())m: C3(I)C1( ())mD C3(I) C3(I!tt"18O . . . . . . .OOO WARP-COMPASS":"HERE IS A MESSAGE FROM YOUR LEADERS-":: 6H(): ( R \XX zf:"MESSAGE FPFPG:'w"SUNSPOTS BLOCK TRANSMISSION AT : ":XSw"MOVE ELSEWHERE AND TRY AGAIN":: *sw"AUTHORIZED FREQUFROM FEDERATION COMMAND"::} 6} }:"YOU ARE AHEAD OF SCHEDULE AND BEYOND TOLERANCE FACTOR"~"CALL KLING LEADERS..."/:"WE CONCEDE THE WAR, SIR, CONGRATULATIONS !!":GAV(X4):DRZ$ TECAV 8u. C$"D" 6 I :AA::@O":: ,.)"ONE":: ,@"ZERO": ,Q"():@j, I 2:AA::N, COMMAND CENTRAL PROJECTS DEFEAT BY ENEMY. YOU ARE NOW"憂"AUTHORIZED TO SURRENDER OR TO ACTIVATE SELF-DESTRUCT SYSTEM"*N*E !!!"M F 8 M S1M&M0 S1 zM: L() MD XNN L()  =NX"SHOT WENT "::AR$;"NOTHING DAMAGED AT PRESENT":ۄ"INITIAL MISSION PROGRESS FACTOR WAS";PR "CURRENT K S1K Z9((H)(T)) K Z Z9KR(TT)K" ZK, L()K6 JL@ QLJ S2S2S1LT ` : t8AUAVTEC:AUKF$"":KF$"S"B:"DAMAGE REPAIR INACTIVE !!"L"REQUIRES";AU;"MORE RECHARGE UNIT";KF$I ( ):::" * * GOLF * *"I L(()II(J2"WELCOME TO THE HALES' 8080 GOLF CLUB." J<JF:JP n :SD:KDE"CAPTAIN, FEDERATION COMMAND PROJECTS SUCCESS FOR YOUR MISSION."O [()e ,D1" YARDS - IS "D2" YARDS FROM HOLE."hNb"BALL IS "(O)" YARDS OFF LINE IN ";rNl |Nv \N L(X) N L(MISSION PROGRESS FACTOR IS ";MR: XM PW$" WORSENED ": PW$" IMPROVED "@("YOUR COMBAT SITUATION HAS";PW$;"BY  K,L^ F QLh"YOUR SCORE ON HOLE"F" WAS"S1xLr"-------------------------------"L| S1P L S1P V: 4`:AR$"YOU MUST BE DOCKED AT STARBASE FOR DAMAGE REPAIR !!"@j: FtT~:A D(A)ϑ  )A;"DO YOU NEED INSTRUCTIONS (Y-N)?";VJZ A$ : A$"Y" V \J_iJdX:TTwJn NLJx S2J FJ"WHAT "SELF DESTRUCT SYSTEM ACTIVATED"::: ,"COUNTDOWN BEGUN !"::Ї)"FIVE":: ,)"FOUR":: ,X) N L(X)  N L(X)  N L(X) 4N L(X) HO"OUT OF BOUNDS..."O 1O"PA FACTOR OF";XM;"PERCENT"2 (XM)TF EG$" NOT ": EG$" "̅< EG$" " EH$"": EH$AR$F EH$;"YOUR PROGRESS IS"; L S1P L S1P L L"KEEP YOUR HEAD DOWN."L  M"A PAR., NICE GOING."M )D$(A);()"DAMAGED"ƒ:"IF NO DAMAGE INDICATED ABOVE, ANSWER WITH 0 (ZERO)"ღ "WHICH ONE TO REPAIR ";AAIS YOUR HANDICAP?"J HJ HJ H  JJ"DIFFICULTIES AT GOLF INCLUDE:"8K" 0=HOOK, 1=SLICE,)"THREE":: , )"TWO":: ,.)"ONE":: ,@"ZERO": ,Q"():@j, I 2:AA::GA RULES HANDICAP = 0-30";O JO"FAIRWAY"TO aO"ROUGH"jOwO "TREES"O O "ADJACENT FAIRWAYEG$;"WITHIN TOLERANCE FOR THIS MISSION"P5Z EG$" NOT " d : n Md XM n : ]n:SD:KDx"CAPTAIBM"A BIRDIE, AND TWEET - TWEET TO YOU."LM \M P {M"** A GREAT BIG EAGLE **"M M"A HOLE IN OA ϑAR$;:  D(A) ::D$(A);" NOT DAMAGED !!": [:)D$(A);"---REPAIRED":qD(A):TEC 2=POOR DISTANCE, 4=TRAP SHOTS,"qK" 5=PUTTING ENTER WHICH IS YOUR WORST. (1 ONLY)"yK TK T K T  ."O* O4"TRAP.."O> OH"WATER."OR O\Of"WHAT CLUB DO YOU WANT?";Pp CPzP C  S1S1TV"PENALTY STROKE... HIT FROM PREVIOUS LOCATION"`V JJmV L()uVDB~V\V&"YOUR SHOT WENT OUT C %T`3TD_mT"BALL HIT TREE,WENT INTO ROUGH"DK"YARDS FROM HOLE"yTDDKT\TOT JZ8 "COURSE PAR IS 72"ZB "TOTAL SCORE FOR "F" HOLES WAS"S2 [L "PLAY AGAIN";A$: (A$,,)"Y" : "MENU[V "RULES((O(DD1)))@R DD1 JR `R"YOU DUBBED IT."lR D1#vR R D DR jR X\"PASSED BY CUP."XfD2D2Xp4Xz D,P,L(),L()XY"ARE YOU READY TO CONTINUE? 0=NO, 1=YES";Y (P C 8P C KP L() \P C mP C wP P S1S1P WP"OHOF BOUNDS."V0V: TXVDD2(((P((H))(TT)))VNVX (O)N WbNNL~+Wl"SHOT DUBBT T@T(S2)((S2))JT"YOU HOOKED- ";T" L()L()U, O-h U60,U@(S2)"[` K[j " **********************************"Q[t }[~ " * * HALES' 8080 GOLF CLUB * *"[ [ [ " HERE'S D2 R"TOO MUCH CLUB, YOU ARE PAST THE HOLE.."R BDR DD2R  D2  S D2 |S D2R(Y R 8 .YfY"YOU'RE AT TEE.. HOLE"F", DISTANCE"D" YARDS, PAR"PY"ON YOUR RIGHT IS ";YXY Y BOY, DID YOU GOOF THAT ONE UP... BETTER THINK..."PP \P C P CCQ Q S1S1Q$ WED, STILL IN TRAP."4Wv\@WNLIWDW"ON GREEN"D2" FEET FROM PIN. PUTT POTENCY NUMBER:";W IWWS1((S2))@UJ"YOU SLICED-";NUTL()L()WU^,eUh"BADLY."nUr0yU|L()U0UL()UD2(YOUR BAG OF CLUBS"[ [ "WOODS (FULL SWING ONLY)"[ " 1 DRIVER"[ " 2 BRASSIE" \ " 3 SPOON"\ 0\ " ,S( L()6S2 nS<S2Q( (F))(F)(H((H)Y))PxSF BSP QQSZ S1(S1"ON YOUR LEFT IS ";YX: Y \YY 361,4,4,2,389,4,3,3,206,3,4,2,500,5,7,2#Z 408,4,2,4,359,4,6,4,424,4,4,+Q. C nBQ8 F(F) <RQB C V\QL `nQV L() Q` S1 QjD1(((H) S1W S1P(Ht})W KWKKW THWD2D2I((TT))@X D2 \ X D2D2)UU L()U0U D1(YD1)UU L()&V"YOUR SHOT WENT INTO THE WATER." VIRONS (FULL SWING ONLY)"F\ " 12 TWO IRON"Q\ " ."\\ " ."s\ " 19 NINE IRON"y\ \ "IRONS (LESS THAN FULL SW) Sd Sn"PERCENT FULL SWING";Sx WS WWdSS W T L():T C`T C2,388,4,4,4PZ 196,3,7,2,400,4,7,2,560,5,7,2,132,3,2,2}Z$ 357,4,4,4,294,4,2,4,475,5,2,3,375,4,4,2Z. 180,3,6,2,550,5,6,6((H))C)(TT))Qt D1(D1W)Q~ T  RO((TT)L)(H)((D1B`ex))-R D2 *8X"YOU H*O*L*E*D IT">X HXFFQX ,dX*"PUTT SHORT."rX4D2(D2){X>XHD2D2I((TT))XR  ING)"\( " 22 TWO IRON - PARTIAL SWING"\2 " ."\< " ."]F " 29 NINE IRON - PARTIAL SWING"]P 0]Z " SORRY, NO TIONS"; R$=Kx (R$,)"Y" QK ( ) : X9K "WAIT A FEW MOMENTS FOR PUZZLE TO BE CREATED"K K 4 O A$(X,Y) : Y,X : O X  : Y O NM$(X,Y) : Y,XP X  : Y  P& A(X,Y)P0 Y, X " BALL IS PUTTED. USE NUMBERS GREATER THAN ZERO,"_ " INCREASING THE NUMBER FOR GREATER DISTANCE..." _ _ _ TUMJ MT 'PAD' SINGLE CHARACTER ENTRIESM^PD$" " : PD$PD$R$Mh PD$, R$ : Nr DATA TABLES)N| -1, -1, -SAND WEDGE IN THIS SET."6]d j]n "WHEN YOU REACH THE GREEN, IT WILL BE ASSUMED"]x "THAT YOU ARE USING A PUTTER."] ]K XK : K 'COMMANDS' CHECKED HEREKR$"TRAP" : "YOUR PLAY"; R$L R$"HELP" L d : ?LI WRITTEN BY W.A.BURTONI @ : ( )I A$(,), NM$(,), RV$(,), A(,) : BL$" " J( EJ2  ); "W2P: X  : Y APD RV$(X,Y)PPN Y, X : lPX LOCATE THE BLANK (**){Pb I1 Pl J1 Pv A$(I1,J1, -1, -1, -1, -1JN " 1", " 2", " 3", " 4", -1kN -1, " 5", " 6", " 7", " 8"N -1, -1, " 9", 10, 11, 12N -1, -1, "NOTE: SCORER WILL ASK YOU FOR'PERCENT FULL"] " SWING' ON CLUBS 22-29. THIS SHOULD BE"^ " A NUMBER FROM 1 TO NM F$" NORMAL " : F$" REVERSE "rL ); "YOU ARE ATTEMPTING A"; F$; "SOLUTION"|L L (R$) TLHAT IS YOUR LUCKY NUMBER (1 TO 25000)"; : XzJ< X Xa X(X) "WRONG !!"; : 2JFXX  : Y XJP1)"**" II1 : JJ1P J1, I1P (NM) (A$(,)"**") (A$(,)" 1") (Q (RV) (A$(,)"**") (A$(, 13, 14, 15, **, -1N -1, -1, -1, -1, -1, -1N 1, 2, 3, 4, 5, 6, 7, 8, 9 O 10, 11, 12, 13, 14, 15, 16,O 15, 14,  99."#^ \^ " YOUR HANDICAP MUST BE 0-30 ACCORDING TO PGA RULESb^ ^ " PUTT POTENCY REFERS TO THE STRENGTH WITH WHICH R$A$(I,J) A$(I,J), A$(I,J) : @L R$A$(I,J) A$(I,J), A$(I,J) : @)M" R$A$(I,J) A$(I,J), X9() : X9(Y)JZ Y : X9 : ( )Jd ); "*** 15 PUZZLE ***" :::"Kn " DO YOU WANT INSTRUC)"15") jBQ PRINT OUT A$(ARRAY)OQ ( )WQ:eQ X sQ Y Q BL$; A$(X,Y);Q Y : : 13, 12, 11, 10, " 9"OO " 8", " 7", " 6", " 5", " 4"jO " 3", " 2", " 1", **O LOAD EACH MATRIXO X  : Y "^ " BALL IS PUTTED. USE NUMBERS GREATER THAN ZERO,"_ " INCREASING THE NUMBER FOR GREATER DISTANCE..." _ _ _ A$(I,J) : @[M, R$A$(I,J) A$(I,J), A$(I,J) : @M6 "INVALID COMMAND - TRY AGAIN !!" : M@ X:TU  Q X : : Q 'SHUFFLE' A$(ARRAY) & A(ARRAY)Q X  : Y RR8(()) : R9(())&R  XRBILITIES, WE NEED"gX "TWO MUTUALLY EXCLUSIVE OBJECTIVES. THE COMPUTER WILL"X("GENERATE A PUZZLE TO BE SOLVED AND TELL YO(X,Y)RV$(X,Y) @V Y, X : .FVVV GAME EXITlV : : R$"TRAP"V "DO YOU WANT TO TRY AGAIN"; R$V  NUMBER IS ONE"\,"WHICH IS DIRECTLY ABOVE, BELOW, TO THE RIGHT OR LEFT"\6 "OF THE BLANK (**)"9]@ "(THERE IS NO SUCH UZZLE CAN BE SOLVED IN NORMAL ORDER"LTNM : T ( ) : "THIS PUZZLE CAN ONLY BE SOLVED IN REVERSE ORDER !! !"TY ONE)"Z"WILL REPRESENT THE CORRECT SOLUTION TO A GIVEN PUZZLE."[ "NOTE ALSO THAT IN BOTH CASES THE BLANK '**'"C[ 8 YR9 ?R A$(X,Y), A$(R8,R9)VR  A(X,Y), A(R8,R9)eR* Y, X : R4 IS PUZZLE TO BE SOLVED IN 'NORMAL' OR 'REVERU WHICH WAY"X2"TO ATTEMPT THE SOLUTION..."X<:YF "HIT THE RETURN KEY WHEN YOU'RE READY TO CONTINUE"YP JUNK$BYZ(R$,)"Y" : V ( ) : "MENU"V INSTRUCTIONSV ( )*W "THE NUMBERS IN A '15 PUZZLE' ( 1-15, PLUTHING AS DIAGONALLY ADJACENT)..."i]J:"HIT RETURN KEY TO CONTINUE...": JUNK$x]T ( ):]^ " EXAMPLE: 1 13 RVT WAIT LOOP BEFORE SET UP OF PUZZLET: I : I:T CHECK FOR 'NORMAL' WINU X  : Y 3U"OCCUPIES THE LOWER RIGHT HAND CORNER." : m[ "HIT RETURN KEY FOR MORE" : JUNK$z[ ( )[:[ "A MOVE IS MADESE' FASHIONR>CORH A(,) A(,) zRR A(,) A(,) zS\ A(,) A(,) z4Sf ( );"THE TWO POSSIBLE SOLUTIONS ARE:"tYd" NORMAL: REVERSE:"zYnYx" 1 2 3 4 S THE BLANK '**')"RW"CAN BE ARRANGED IN APPROXIMATELY"W "21,000,000,000,000 DIFFERENT WAYS..."W "HOWEVER, ANY SING 3 11" : ]h " 9 7 2 5" : ^r " 4 ** 12 8" : 4^| "  A$(X,Y)NM$(X,Y) $FU Y, X : .LU$VU. WINhU8  : : UB ); "*** WINNER ***"UL X   BY SELECTING A NUMBER WHICH IS ADJACENT"["TO THE BLANK, AND MOVING THAT NUMBER INTO THE SPACE"5\ "WHICH THE BLANK OCCU A(,) A(,) z>Sp JSzCOCOfS X1  : X2 S X3  : X4 S A(X1,X2) A(X3 15 14 13 12"Y" 5 6 7 8 11 10 9 8"Z" 9 10 11 12 7 6 5 4"JLE ARRANGEMENT OF THE NUMBERS CAN ONLY"W "BE REARRANGED IN HALF THAT MANY WAYS."*X "THEREFORE TO DEAL WITH ALL THE POSSI 6 14 10 15" : h^ "IN ABOVE EXAMPLE, THE ONLY LEGAL MOVES ARE:"^ "4 - 7 - 12 - 14. THE COMPUTER WILL REJEC: : XUV ); "YOU SOLVED IT IN"; TU; "MOVES"U` Uj CHECK FOR 'REVERSE' WINVt X  : Y -V~ A$PIED. TO DO SO, MERELY ENTER"h\ "THE NUMBER WHEN ASKED, 'YOUR MOVE ?'. " : \" "IN THE CONTEXT OF THIS GAME, AN ADJACENT,X4) S X4, X3 : SCOCOSA(X1,X2)S X2, X1S CO((CO)) O  C R"O Lr A L| A L A L AL L "JACK"L M "QUEEN"M M "K*********************"rK "***********************************************************"K "**** BLAST OFF!!!K THE NEXT CARD THAT"Jl"THE DEALER GIVES YOU WILL FALL BETWEEN THE TWO"Jn"CARDS SHOWING."(Ko"YOU CAN BET ANYTHING FROC f3O  C z;O* CEO4 RO> "JACK"\OH jOR "QUEEN"tO\ Of "KING"Op Oz "ACE"  !!!!! ****"K "***********************************************************">L "**********************"NOTHING CAN POSSIBLY GO WRONG........";QR I YR IrR"GO WRONG........";R (() )  "MENU"**********************"sP& "***********************************************************"P0 "**** dJ7 E PJ<"MY MOVE IS ";: JA EPJF MH ",";: JK E # KP:"GAME OVER"AKUDB() / O \"SN " / \"}N " / \"N " -*************************************"SL E  : E^L ,L " '"L " R I : I: R....";QR I YR IrR"GO WRONG........";R (() )  "MENU" ****"P: "**** BOOM!!!!!!!!!!! ****"?QD "**** B( ): D "I WIN BY ";D"POINTS":fKZNN: D "DRAWN GAME":K_"YOU WIN BY "D"POINTS...":Kd"AGAIN";--------------"N " /\ /\ /\"N " **************" (O " ***** I"L" " / ^ \"L, " /^^^^^^^\"M6 " I--USA--I" ****"QN "***********************************************************"QX "*************Kn M: M M MM:Kx"ILLEGAL MOVE":dK B(M) xKH:K LKM: XLE:K***************"QO " *************"xO " ********"O H O HO HI" * * AWARI * *"I( )I 0,0I B( ),G( ),F(2)I NJ I N: F(I): I&J:" * * A>M@ " I-------I"eMJ " I A I"MT " I P I"M^ " **********************************************"Qb ();Ql I Qv IQ ,Q: R::R::ARKK;LCC: CF(N)F(N)KTL I:B(I)\L IbLL I : B(I)E:LL:" "; O" ********"O HO ,O ();(^)/P "*************************************WARI * *":E>J I :B(I): I\JC:F(N):B( ):B()eJ#|J("YOUR MOVE";:nJ- E PJ2 MH  I O I"Mh " I L I"Nr " I L I" *N| "   L I :DL IL:I :DL," ";: B():" ";L  I:DM I M:: MDB(I)RECT PLACE"GK"BAGELS - NO DIGIT IS CORRECT"mK"NOTE! NO DIGITS ARE THE SAME.."KN()(())KN()(() Of I:Ok I :B(I)G(I): IOOp QD AJ:DQWOu JoOzMA:(*M);:O IN:B(I): JO "MENU"O I M J M A(I)N(J) M JM IM FP M"BAGELS ";N N IJ NP " ";-MIB(I);:?MXPB(M):B(M)cM] PP:MM: M MMwMbB(M)B(M): PMgB(M)ϋMϋM ϋB( M )K N()N() KN()(()  )K N()N() K N()N() L: "OK, I HAVE A NUMBER."LI MODIFIED FOR MBASIC 2/12/79 AEHI N( ),A( )I ( ) J( );"THE * * BAGELS * * GAME.."J2J<:Ok I :B(I)G(I): IOOp QD AJ:DQWOu JoOzMA:(*M);:O IN:B(I): JO "MENU"OP%N /NFF9N IN P :WN K PfN& "PICO ";nN0 K~N: F ND F vNN K)qMlMqB(H)B(H)B( M):B(M):B( M):M Dc:H M% I :G(I)B(I): IN* J : B(J)u&NG4L:: "YOUR GUESS"; L LL:R:>NC B(L) L L RB( L)R hL, A() hL6 (X)X hL@ A()A() hLJ A()A() hMT A()A() hM^ AMh ""NUMBER I HAVE IN MIND AND I WILL TELL YOU:"Jn"PICO - ONE DIGIT IS IN THE WRONG PLACE"#Kx"FERMI - ONE DIGIT IS IN THE COR%O "MENU"+Ob KNl Nv "YOU GOT IT IN ";G;"GUESSES!!!"N: "ANOTHER GAME";A$O (A$,)"Y" NH RQ QRNM INRQB( )B()Q: C kNWKJ: KKKO\ IN: F(N)K(F(I)(C)L})QQ PICK A 3 DIGIT NUMBER FROM 102 TO 987"|Mr " HINT: IN MY NUMBER ALL THE DIGITS ARE DIFFERENT"M| MF:PM Id ,I PROGRAM BY TOM KELLY TO PLOT WORDS ON TELETYPEJ, *************************10/24/75*************************96,0NP 511,257,261,259,511,0,511,272,272,272,239,0PX 499,273,273,273,415,0,256,256,511,256,256,0P 510,1,1,1,510,0,4,);&N \0N C$;9N\ Z1CN PRN$ Z2 Z^N " ";gN Z2oNP OvN ~N MN| NNDN23456789<>=#+-*/\()[].,;:!"VL@A$A$"?&$%": "&" GIVES QUOTEL N <: N1 : M(N,N1): N1,NL I Ll T14,56,224,384,0,384,224,56,14,3,0Rl 0,56,198,387,257,0,257,387,198,56,0,0S 0,511,257,257,0,0,0,257,257,511,0,0-S4! 0,****0J M(<,),P()[J "***** BANNER WRITING PROGRAM *****"J "METHOD 1 USES OBJECT LETTERS"J "METHOD 2 USES 2 96,12,3,12,496,0P  511,12,48,12,511,0,387,204,48,204,387,0Q 384,96,31,96,384,0,259,269,313,353,385,0,0,0,0,0,0,0=Q  KN  INp :N 511,264,264,264,511,0,511,273,273,273,238,0O8 511,257,257,257,387,0,511,257,257,257,254,0CO (I)(I)L IL4 I (B$)L J <L (A$,J,)(B$,I,) ( L` FJM  M( JM K 0,1,1,0,0,0,0,2,3,0,0SS! 0,0,130,131,0,0,0,0,130,130,0,0S! 0,0,509,509,0,0,128,256,269,285,224,0S`" 0,448,0,448,0,0,0,LETTERS ENTERED BY YOU"J "ALIGN PAPER IN PRINTER AND PLACE IT ON-LINE"K "SIZE 1 LETTERS ARE 18 CHAR'S WIDE,"@K "SI511,263,313,449,511,0,0,129,511,1,0,0oQL 391,265,281,273,225,0,387,273,273,273,495,0Q 496,16,16,16,511,0,499,273,273,273511,273,273,273,257,0,511,272,272,256,256,0rO 511,257,273,273,415,0,511,16,16,16,511,0Od 0,257,511,257,0,0,3,1,1,1,511,010 INPUT"HORIZONTAL";X 20 INPUT"VERTICAL";Y 21 INPUT"CENTERED";L$ 22 G1=0: IF L$>"P" THEN G1=1 23 INPUT "CHARACTER (TYPE 'AL&M XM(F,K)6MT X DM Q WM T(Q)X H aM YQkM  sMH QM L M P(L)X(X)0,448,0,0,0S" 499,273,511,273,415,0,387,398,312,483,487,0S(# "MENU" : 128,256,269,285,224,0S`" 0,448,0,448,0,0,0,ZE 2 LETTERS ARE 36 CHAR'S WIDE, ETC..."FK[K "SIZE (1-7)";cKX ZK "WHAT'S YOUR MESSAGE";K  B$K K ",270,0Q 511,273,273,273,415,0,384,263,280,352,384,0Rx 238,273,273,273,238,0,499,273,273,273,511,0*R 16,40,40,68,68,O 511,16,40,68,387,0,511,1,1,1,1,0O, 511,96,24,96,511,0,511,96,24,6,511,0P 511,257,257,257,511,0,511,272,272,272,4L' IF YOU WANT CHARACTER BEING PRINTED";M$ 29 PRINT "STATEMENT"; 30 INPUT A$ 35 INPUT "SET PAGE";O$ 40 A=ASC(LEFT$(A$,1)) 5Mt X(X)M LM< M ZM O YM P(O) $Mh Z1 ZN A 0,N0 (B$,I,)(B$,IMETHOD (1 OR 2)";KL AK A K " INPUT 2 OF YOUR CHARACTERS";Kx C$3L:A$"ABCDEFGHIJKLMNOPQRSTUVWXYZ 010,68,68,40,40,16,0TR@ 40,40,40,40,40,0,40,124,40,124,40,0R 16,16,124,16,16,0,16,16,16,16,16,0,68,40,254,40,68,0R 3, 0 REM 60 REM 70 FOR T=1 TO LEN(A$) 80 P$=MID$(A$,T,1) 90 FOR O=1 TO 50 95 READ S$,S(1),S(2),S(3),S(4),S(5),S(6),S(7) 96 IV",64,65,129,257,129,65,64 922 DATA "X",388,69,41,17,41,69,388 923 DATA "Z",386,322,290,274,266,262,260 924 DATA "I",258,258,58,258,131,125 908 DATA "N",512,7,9,17,33,193,512 909 DATA "F",512,18,18,18,18,2,2 910 DATA "K",512,17,17,41,69,131,258 911 I ( )I" * * BLACKJACK * *"III"WELCOME TO AL'S DEN OF INIQUITY...."J4J "MY NAME IS * *  750 FOR H=1 TO 2*X: PRINT: NEXT H 800 NEXT T 806 FOR H=1 TO 75: PRINT: NEXT H 810 WAIT 125,2 : RUN "MENU" 812 FOR H=1 TO 7*1,41,41,41,41 938 DATA "!",1,1,1,384,1,1,1 939 DATA "0",57,69,131,258,131,69,57 940 DATA ".",1,1,129,449,129,1,1 980 RUN"MENF P$=" " THEN 812 100 IF P$=S$ THEN 200 120 NEXT O 200 RESTORE 201 X$=M$ 202 IF M$="ALL" THEN X$=S$ 205 FOR U=1 TO 7 210 258,512,258,258,258 925 DATA "C",125,131,258,258,258,131,69 926 DATA "J",65,129,257,257,257,129,128 927 DATA "1",0,0,261,259,DATA "B",512,274,274,274,274,274,239 912 DATA "D",512,258,258,258,258,131,125 913 DATA "H",512,17,17,17,17,17,512 914 DATA "M ED * * , I'M AL'S DEALER..TJ"WHAT'S YOUR NAME?": NAM$aJ ( )J "FINE "NAM$", HERE ARE THE RULES FOR THE GAME OF"X: PRINT: NEXT H 813 GOTO 800 815 F(U)=9-K: GOTO 445 899 DATA " ",0,0,0,0,0,0,0 900 DATA "A",505,37,35,34,35,37,505 901 DATU" 999 END  938 DATA "!",1,1,1,384,1,1,1 939 DATA "0",57,69,131,258,131,69,57 940 DATA ".",1,1,129,449,129,1,1 980 RUN"MENFOR K=8 TO 0 STEP -1 230 IF 2^KL"BINARY LOG0R SUBROUTINE PRINTER A 4  UR! XA 0`R&ZA jR+ DrR0 ARD X(Z) SRI" ACE ";RN"PBFF(PC5PD"WELL";=PE HNPF H L^PG F J~PH"TOO LATE TO DOUBLE, "NAM$PI DPJWWPL4 V6"YOU ARE NOW DOWN $"(W1)V8 V="NOW YOU'RE EVEN"VB V[ A 4  W` XA oWeZ(A##N /NT1T1C7NMXAN MNT1T1CcN"MY UP CARD IS",mN sNN T1 +N"BLACKJACK.. T T1 T E()  T T1 T T1T2 T T1T2  U"YOU WIN $"W,U $UIC WILL BE USED TO INDICATE RESPONSES"fL"STICK = 0, HIT = 1, DOUBLE = 2"qL XyL+KL0W1L1"TO PREVENT THE  RS X(Z ) bRX XZ;R] Rb X(Z ) qRg" JACK ";Rl  Sq X(Z ) Sv" QUEEN H 6PN"YOUR TOTAL IS "T2PP PT"BLACKJACK",PVW@WPY  Q SUBROUTINE DEAL&QN ( )&Wj ~.Wo ABW~ X(Z) KWC [WE(P)E(P)eW yW X(Z) WCXZW WC ."N"MY HOLE CARD IS",N XMN N .N"SORRY "NAM$", HOUSE LIMIT IS $1000."O #O+ START OF DEA"PUSH")U 0?U"I WIN WITH "T1,IU .SU  cU"I DRAW ",qU T1T1C{U U U E()  COMPUTER FROM STACKING THE DECK,TYPE IN"L2"A FOUR DIGIT NUMBER IN THE FORM XXXX";L3 NM8 I NM9X( (X)) ";%S{ 4S" KING ";ES Z' VS Z gS Z xS"OF SPADES"S S"OF CLUBS"S((NW1)))4Q A NO< T2 O= F TO> H NO? E() BP@"YOUR TOTAL IS SOFT "T20FV- CALCULATE PLAYERS WINNINGS FOR A LOSSRV.W1W1WcV0 W1 6tV1 W1 =V2"YOUR WINNINGS ARE NOW $"W1VMT2M"----------------------------------------------------"M"BET";MPM W N W N W (TAL IS "T24T"BUST">T -QT DEALER PLAYSYTP_TwT"MY HOLE CARD IS",TXMT T T1  0,0;O 0,0,-10,0,0,0,0,0,0,0,0,0YO 1,0,5,0,0,0,0,0,0,0,0,0xO 0,10,0,0,0,0,0,0,0,0,1,0O 1,0,0,0,0,17,0,0,0,0,0,0BPL"NMY$"$5 $1 NONE$4 $7 NONENONE$2 $6 $3 "TMM" DATA TO SIMULATE REAL LIFE STOCK MARKETM,M6 1,0,0,02S  9,10,7,-5,-20,12,21,18,7S* 7,8,5,-6,-40,3,16,-14,4S4 8,6,4,-4,40,8,4,-12,3 T> 6,4,3,3,-15,5,8,-8,5+TH 5,7,Kd2Kn ( ) : @aKx "WHAT IS YOUR LUCKY NUMBER (1 TO 25000)"iK AK A Aa A(A) "DO IT RIGHT ,0,0,0,0,0,0,-14,0,0Q 1,-10,0,0,0,0,0,0,0,0,0,0Q 0,0,0,0,0,0,-5,0,0,0,0,0 R -2,-10,7,-9,-2,-9,-7,-16,-4.R 26,1O 0,0,0,0,0,-15,0,0,0,0,0,0O 1,0,0,0,0,0,0,0,10,0,0,0O 0,0,0,0,0,0,0,-15,0,0,0,0P 1,0,0,0,0,0,0,10,0,0,0,05P,0,0,0,0,0,5,0,0M@ 0,0,0,0,0,0,-25,0,0,0,0,0MJ 1,0,0,0,0,0,0,15,0,0,0,0NT 0,0,0,0,-5,0,0,0,0,0,0,0$N^ 1,0,0,0,0,0-1,-3,45,6,-10,10,4JTR -2,6,-3,-8,-20,7,10,14,6mT\ 11,11,-5,-7,30,10,-11,-18,-4Tf -5,13,-8,6,25,4,18,-22,-4Tp -8,-!" : xK ( )K "STAND BY FOR A FEW MOMENTS"KAA a L X A : X1() : X1(X) : XFL A($, )6,25,8,-14,21,14,-4,17OR 18,23,11,12,46,18,-5,34,15pR 23,28,-2,11,56,19,30,29,14R 20,15,15,7,-20,15,13,-10,12RI AUTHOR: ROBERT W. BAKERI MODIFIED FOR BASIC-E (BARF) BY R S MASON 9-25-77%J MODIFIED FOR MICROSOFT DISK  0,0,0,0,0,0,0,-15,0,0,0,0TP 1,0,0,-8,0,8,0,0,5,0,0,0tP 0,-10,0,0,0,0,0,0,0,0,0,0P& 1,8,0,0,0,0,0,0,0,0,0,0P0,0,0,0,5,0,0BNh 0,0,0,0,0,0,5,0,0,0,0,0aNr 1,0,0,0,0,0,10,0,0,0,0,0N| 0,0,10,0,0,0,0,0,0,0,0,0N 1,0,0,0,0,0,15,0,10,-10,-15,-20,-20,-23,-25,-7Tz 5,1,0,4,7,0,0,2,6,3TT SECURITY NAMESTUA$"HIGHWAY IMPROVEMENT BONDS"2U,U( ,),E( ,),K( ),T( ),F(),M(, ),X()uL I $: J  : A(I,J): J: IL I  : J : U(I,J 17,21,13,-2,37,23,23,19,14R 19,24,17,9,-5,26,13,-7,15R 11,18,14,11,67,15,22,18,13S 13,31,1,14,-11,18,18,-14,107BASIC BY ZOSOkJ( THIS PROGRAM REQUIRES CP/M WITH 26K OF FREE MEMORY (OVERHEAD)qJ2J< THIS GAME IS WRITTEN TO PROVID 0,0,0,0,0,0,0,-10,0,0,0,0P: 1,0,0,3,0,0,0,0,0,4,0,0PD 0,-8,0,0,0,0,0,0,0,0,0,0 QN 1,0,0,0,5,0,0,0,0,0,0,0-QX 0,0,0,0,0,0N 0,0,-5,0,0,0,0,0,0,0,0,0N 1,8,5,5,0,0,0,7,0,0,0,0N 0,0,0,0,0,0,0,0,-25,0,0,0O 1,0,0,0,0,0,0,0,10,0,B$"X-PANDO CORPORATION"SUC$"SEASIDE PROPERTIES INC."pUD$"OLD DOG MUTUAL FUND"UE$"RUBBLE DEVELOPMENT"UF$"SLI): J: IL I  : J : E(I,J): J: IL N  L K(N)L NMV$"HIB XP SP ODMRD SO BT KA ZE S 14,-8,19,1,-9,25,-10,13,19XS 24,24,23,20,51,27,38,33,18xS  12,14,13,10,10,20,21,25,8S 7,-6,10,-10,30,6,-19,22,-E A REALISTIC MODEL OF THEJF ACTUAL STOCK MARKET RATHER THAN A COMPLETELY RANDOMIZEDKP HAPPENING OF EVENTS.KZ 0,0,0,-10,0,0,0,0,0,0LQb 1,0,0,0,0,0,0,10,0,0,0,0mQl 0,-8,-5,0,0,0,0,-7,0,0,0,0Qv 1,10,0,0,0,0,0,0,0,0,0,0Q 0,0,0 PPERY OIL COMPANY"UG$"BUMPY TRANSPORT CO."UH$"KRASH AUTO COMPANY"UI$"ZAP ELECTRONICS ""VJ$"BLINKEY POWER &  : T(I)d: I/\Y5\;\\ FIND MARKET CHANGES FOR NEXT ROUND,SEE IF BULL OR BEAR MARKET\"\,D(()H PLAYERS TOTAL CASH"3Z TZ "PRESS RETURN KEY TO PLAY"`Z JUNK$mZ( ( )Z2"AVAILABLE SECURITIES, ABBREVIATION, & CURRENT VALUES`R`\ ( ) : "*** YEAR ";Y;"*** "W$" MARKET ***" af );"PLAYER HOLDINGS YEAR ";Y)ap );O 0,THAT STOCK GOES BANKRUPT"zX"AND ALL SHARES ARE SURRENDERED.THE VALUE OF THE STOCK IS THEN"X"ESTABLISHED AT $100. IF^N T(N) ^XT(N)d^b J P^lM(J,N)^v J^ "*** "S$" WENT BANKRUPT ***"(_ "THESE STOCKS MUSTLIGHT CO."(V.VIV "WANT INSTRUCTIONS";RV$ R$kV. (R$,)"N" (V8 (R$,)"Y" $VB ( )VL )\6C(()$)\@ A(C, ) 6\JA(C, )\T N  \^ v ]h A(C,) ]rW$"BEAR",]|F(DIVIDENDS PER SHARE"Z<ZF N  ZP v ZZ S$,(V$,N,),(Y$,N,)Zd N[n'[x "NUMBER OF PLAYER" +/-$ PRICE";7az N PIa N);N;Qa NWaza (V$,););"0";);"100";a N Pa N); THE VALUE OF ANY STOCK REACHES $150,"X"THERE WILL BE A STOCK SPLIT."XY"HIT RETURN TO CONTINUE" : JUNK$Y  BE SURRENDERED"0_ N:_YY@_q_ ADD EACH PLAYERS DIVIDENDS TO TOTAL CASHw__ N P_M(N, )_ "THE MAIN OBJECT OF BLACK FRIDAY IS TO SHREWDLY INVEST $5000"WV"IN THE GAME'S 10 SECURITIES, BUYING AND SELLING EACH YEAR FN)A(C,N)E(D,N)A]T(N)T(N)F(N)K] f]F(N)A(C,N)U(D,N)t]W$"BULL"]T(N)T(N)F(N)]] S (1 TO 4)="; P7[ P H[ P v[ I : J  : M(I,J): J: I[ "NUMBER OF YEARS (3 TO 10)=M(N,);a Naa N a (V$,N,););F(N););T(N);a J P b J);M(J,N);b Jb( )aY"A TABLE WILL BE PRINTED EACH YEAR GIVING THE CHANGE IN VALUE"Y"OF EACH STOCK, THE PRESENT PRICE, AND THE NUMBER J  _ T(J)2 _M(N, )M(N, )K(J)M(N,J)_ J_ A(C, )  ` M(N, )M(N, )M(N,)M`OR"YW`"A MAXIMUM OF 10 YEARS (ROUNDS) IN AN ATTEMPT TO BECOME"wWj"THE WEALTHIEST PLAYER."}WtW~"EACH YEAR ALL PLAYERCHECK FOR STOCK SPLITS]] T(N) N] "*** "S$" STOCKS SPLIT ***" ^ T(N)(T(N))  ^T(N)(T"; S[ S [ S [ ( )[ I : F(I): I[ N P\M(N,) \ N'\ I  #b N)b Eb$ "DIVIDENDS FOR YEAR";Sb. N Pkb8 N);M(N, );sbB NybL bV "NEW CASH TOTAL";b`  OF SHARES"Y"EACH PLAYER OWNS OF EVERY STOCK. ALSO, ANY DIVIDENDS RECEIVED"-Z"FOR THE YEAR WILL BE SHOWN ALONG WITH EAC "*** X-PANDO CORP. PAYS $2 DIVIDENDS PER SHARE ***"g` M(N,)M(N,)M(N, )o`* Nu`4{`>`H PRINT WHAT HAPPENED S WILL RECEIVE DIVIDENDS ON EVERY PAYING"W"STOCK WHICH IS WORTH $50 OR MORE."W5X"IF THE VALUE OF ANY STOCK FALLS T(N))*^ :^T(N)T(N)H^ J P`^M(J,N)M(J,N)h^& Jn^0^: CHECK FOR BANKRUPT STOCKS^D N Pbj N);M(N,);bt Nb~ b "NEW NET WORTH ";b H b N P c N);X(N);c N!c   2if WWT(J)M(N,J):ip JLiz X(N)WM(N,)Ti NZi gi "MENU"S$J$h> iH N P iR Wi\ J g J$g 3g N,M(N,);g NEg  Kg Qg g SUBROUTINE TO LOOK UP STOCK NAMES FOR BUY & SELLg g "M| X MT1T1 M lM D1$M (D1$,)"G" lM (D1$,)"D" NN (D1$,)"H" e J 8e "WANT TO BUY"; R$Ke R$"N" J _e R$"Y"  ie  e "NUMBER OF SHARES"; Re RT(J)M(N,KFT1KPSKZS1Kd"BET = ";BKx B K} B "MENU"K B d L B dL B (BYS r 'c -c cc CHECK IF ANYONE WANTS TO SELL OR BUY ANYTHINGic wc N P}c c "*** PLAYER ";N;" *Id ( )II, );"* * BLACK JACK * *"II C(4),V$( )I "INSTRUCTIONS ";I$J (I$,)"Y"  NAME OF STOCK";g& R$g0 J  g: (R$,)(V$,J,) b hD (R$,)(V$,J,) b hN JhX 3N" RETYPE: ";: =N | NN T1 WNX1bNCCB1kNB1yN"BUST"N N D1$N& (D) " e "ONLY MONEY ENOUGH FOR ";(M(N,)T(J));"SHARES"e  e" M(N,J)M(N,J)Rf, M(N,)M(N,)RT(J)1f6 ) d)L | 3L  KL " ";V$(C(L))VL | `L  mLHC(L)L C(L)  L T  L**"c "YOU NOW HAVE $";M(N,)c J  c M(N,J) < c( Jc2  d< "WANT TO SELL"; R$dF R$"N" JC.J K =J$ J  MJ.C(J K)JXJ8J: KtJL J) 4:C(J) : JJjV$()" A"JtV$()" 2"J~V hb %hl Whv N  , , , , , , , , ,4 ah S$A$gh qh S$B$wh h S$C$h h S$D$h 1$,)"G" lN0 (D1$,)"H" N:" RETYPE: ";: NNB1BNX | Ob T1  Ol: T1OvX1T1 "YOU NOW HAVE $";M(N,);f@  CfJ NMfT ,Sf^ Yfh fr CLOSING OUT AT END OF GAME - PRINT FINAL TOTALSf|  T1  L D$L (D$,)"G" ` L (D$,)"D" B L (D$,)"H" M (D$,)"S" 6'M"  2dP R$"Y"  iH N P iR Wi\ J *O"SECOND HAND"3OB2B>OV$(X)GOT1XQO | aOX nOT1T1 xO O D1$O (D1$,)"G" f f "*** FINAL TOTALS ARE:"f "PLAYER TOTAL"f N Pf J  g M(N,)M(N,)T(J)M(N,J)" RETYPE: ";1M, LM6 C(L)C(L) "^M@"FIRST HAND"gMJB1BxMT V$(C(L))M^XC(L)MhT1XMr | HARES ***"d d d M(N,J)M(N,J)Rd M(N,)M(N,)RT(J)d  d J  e M(N,)T(J)  e J  L( <4K J 4?KZC(J)TKR((J)4)bK C(J)C(R)mKC(R)ZuK J}K(LK2 "NEW DECK":K<T O (D1$,)"D" O (D1$,)"H"  O " RETYPE: ";: O  | P T1 fP X2P*CC "Vl S(Vv iV "THIS BLACKJACK PROGRAM ENABLES THE OPERATOR TO PLAY HEAD-"V "TO-HEAD WITH THE COMPUTER, SIMULATING TH@B)T  DT " INSURANCE ";I$]T (I$,)"Y" 6 kT" " ";uT, T6 T T T@ CCBA PAIR WITH THE ORIGINAL"Z " BET ON EACH HAND)"[ " A NEGATIVE BET ENDS THE GAME, A ZERO BET RESHUFFLES THE D T ~ 4R T  ?R ":";TIR  YR ": BUST"cR CCBwR "YOU HAVE $";CR R (D$,)"S" RD WHILE THE ORIGINAL BET IS DOUBLED"XH "YOU MAY SPLIT ANY HAND BUT RESPLITTING IS NOT ALLOWED."9YR "ALSO, ONLY ONE CARD ISB2#P4B20P>"BUST";APH X1 j TPR " ";V$(H)^P\  hPf D1$Pp (D1$,)"G" Pz (D1$,)"H" E EXACT RULES AS"V "THOSE ON THE LAS VAGES STRIP. THE CARDS ARE DEALT FROM ONE",W "52-CARD DECK UNTIL A HAND STARTS WITHTJ " TT " 10";T^ T1  Th CCBTr  T| T1  U C(L)  U T1T1 U S1ECK"_[ :"COMMANDS MAY BE TYPED IN AS THE FIRST LETTER":"GOOD LUCK"i[ o[ HE GAME, A ZERO BET RESHUFFLES THE D R T1T  R T1T  R BBR  R TX1 n R TX1 2 R( CCB1 S2 TX2 Z S< TX2 DELT ON EACH OF A PAIR OF ACES."|YW "YOUR CARDS APPEAR IN THE FAR LEFT COLUMN; THE DEALER ON THE"Y\ "FAR RIGHT. "Ya : P " RETYPE: ";: fPB2BP | P T1  P:T1PBB1B2PX2T1Q j Q | "Q  LESS THAN 12 CARDS"oW "REMAINING IN WHICH CASE IT RESHUFFLES. THE DEALER MUST HIT"W "THROUGH A TOTAL OF 16 AND STAND ON&U T1T1C(L);U V$(C(L));" ";EU LLXU T1  iU S1  vU T1T1 U S1U  U T1U   )SF CCB23SP  >SZ CCB2HSd  SSn CCB1]Sx 2 oS T1  yS CCBS " ";V$(H);S "  "HIT RETURN KEY TO CONTINUE....": JUNK$:Yf " THE COMMANDS ARE AS FOLLOWS:" Zp " HIT (DRAW ANOTHER CARD)"8Zz " T1  0Q"BUST";BQ" ";V$(H)LQ  UQ D$nQ (D$,)"G" ` Q$ (D$,)"H" Q. " RETYP ALL TOTALS OF 17 AND ABOVE"W% "TYPE A NUMBER THEN (RETURN) TO GO ON";W9&X* :"THE INSURANCE BET IS OFFERED AT HALF THE PLAU U T : U C(L) : U& TT U0 SU: TTC(L)UD LLUN T v VX S v Vb TTBLACKJACK"S  S "BLACKJACK"S " ";S  S "BLACKJACK" T " ";V$(H);T T CC GOOD (STAND ON CURRENT TOTAL)"pZ " DOUBLE (DOUBLE YOUR BET AND DRAW ONE CARD)"Z " SPLIT (FORM TWO HANDS FROM E: ";:  QB BBQL | QV T1 Q` :T1;Qj " ";V$(H);Qt  Q~  R " ";V$(C(L));#R YERS BET WHEN"MX4 "THE DEALER'S UP-CARD IS AN ACE."X> "YOU MAY DOUBLE-DOWN ON ANY TWO CARDS, AND RECIEVE ONE MORE"XC "CA .....MAKE MOVE1OXBE()P  A(B,C) SP* A(B,C) @`P4A(B,C)kP>E()BvPHF()CPR D P\ A(E(D),F(D)),C) "X";-N0 CcN5B " ";G;"SECURITY MACHINE";:Gϑ"S";yN6 B " LEFT";N7 B " 1 2 &L A(B,C);L B A(B,C)QL B A(B,C)fL C A(B,C)|L C A(B,C)L" CL'" . ";:......OYED BY A LUCKY COMPUTER**"RE"AFTER ONLY ";M;" MOVES. TOO BAD."RJ$S:"YOU ARE LUCKY * * YOU DESTROYED ALL THETHIS IS THE GAME OF CHASE"bJd"YOU ARE IN A HIGH VOLTAGE MAZE WITH FIVE"Jn"SECURITY MACHINES (+) TRYING TO DESTROY YOU (X) PfA(E(D),F(D))Pp E(D)B E(D)E(D)Pz E(D)B E(D)E(D)Q F(D)C F(D)F(D)Q F(D)C F(D)3";N9 B " 8 * 4 0 IS NO MOVE";O; B " 7 6 5 9 GIVE UP";O=OD B&OW........KEEPS SCREEN GOING WHILE TABLE SET UPL, BL6 D L@B(())MJC(()):..................... ENEMY * *"@S"IN ONLY ";M;" MOVES."LSZ2Z2yS"SO FAR YOU HAVE WON ";Z2;" GAME(S)!!!"S"WANT TO PLAY AGAIN(Y OR ."Jx"YOU MUST MANEUVER THE SECURITY MACHINES INTO" K"THE HIGH VOLTAGE FENCE POSTS (O), OR INTO EACH OTHER"2K"IN ORDEF(D):Q A(E(D),F(D)) @XQ A(E(D),F(D)) GG~Q A(E(D),F(D)) A(E(D),F(D))Q G Q D I MODIFIED FOR 64 X 15 CRT DISPLAY. 12/3/78 AEHI );"**************"J );"* CHECKERS *" J );"*******();R();:R()c:8PU]PZUXA:VYB:UUVVxPdS(U,V)S(XA,YB)ύPxP:Y:CVG8CN S(UC,VG)QQ:8^NUCUCVG8NS(UC,VG)(S(UC,VG)(UCXVGY))QQN8),S(,):G:R()cZLZ 1,0,1,0,0,0,-1,0,0,1,0,0,0,-1,0,-1,15yLxX:Y:J:JLS(X,Y)J:L:S(X,Y,B)R&RX"YOU WIN"R "MENU" : (A1A)(B1B) REA:HB:AA1:BB1:II:RBS(A*******"&J`J "THIS IS THE GAME OF CHECKERS. THE COMPUTER IS X,"J "AND YOU ARE O. THE COMPUTER WILL MOVE FIRST." Y;:X:IX:I);PS(X,Y)ϑ".";PS(X,Y)ϑ"O";PS(X,Y)ϑ"X";QS(X,Y)ϑ"X*";QS(X,Y)ϑ"O*"C:QR()R()Q:R()X:R()Y:R()U:R()VNLQ:NtR()cXO:"FROM"R();",";R()"TO"R();","R();:R()c7) LY,XLX:Y:S(X,Y)^L6S(X,Y)ςA:BG::AMJS(X,Y)ςA:B::B,A$J "SQUARES ARE REFERRED TO BY A COORDINATE SYSTEM."J# "(0,0) IS THE LOWER LEFT CORNER"K( "(0,7) IS THE UPPER LEFT COR;(QX:" ":YFQ: X:IX:I);X;RQ" X::{Q6 "FROM";E,H:XE:YH:S(X,Y) 6Q "TO";A,B:XA:YBQOR()S(R(),R()):UOS(R(),R())S(R(),R())~OS(R(),R()):(R()R())O2S((R()R()),(R()I MODIFIED FOR MBASIC 2/12/79 AEHI *** THE GAME OF CHOMP *****II( ( )J2 );"THIS IS THE GAME OF ..M^Y,X:tIMUXA:VYB:UUVVfaMS(U,V)ύ:fsMS(U,V)fMUUA:VVB:UVUVfNER"DK- "(7,0) IS THE LOWER RIGHT CORNER"lK2 "(7,7) IS THE UPPER RIGHT CORNER"K7 "THE COMPUTER WILL TYPE'+TO' WHEN YOUS(X,Y)(AE)(AE)(BH)Q"?? ";:QI.RS(A,B)S(E,H):S(E,H):(EA)RS((EA),(HB)R()))O<XR():YR():S(X,Y)B:A:ZOFS(X,Y)ςA:B:Z:B/PPA:R()cϑ"TO"R.."!J<>JF );"* * CHOMP * *"DJPSJZ A( , )uJd "DO YOU WANT THE RULES ";R$Jn (R$,)"Y" TJxF MRS(U,V)ύMfMVS(X,Y)QQM(YV)QQMYQQNYUQQ&NC:UCU HAVE ANOTHER"K< "JUMP. TYPE TWO NEGATIVE NUMBERS IF YOU CANNOT JUMP."LA "ENTER COORDINATES AS HORIZ,VERT "".LP R()Q C1C UQ A(R1,C1) mQ A(R1,C1) wQ Q "NO FAIR. YOU'RE TRYING TOR'Ob J C4OlA(I,J):P4kP> *** GET CHOMPS FOR EACH PLAYER IN TURN ***wPHI1I1PRP1I1(I1P)PP\ P1 107 PRINT "WHAT IS THE DECISION THAT YOU WOULD LIKE ME TO MAKE FOR YOU" 108 PRINT "TYPE IN YOUR QUESTION WHICH CAN BE ANSWEREDN X(NI1@N "HOW MANY ROWS";RPN R aN R N "TOO MANY ROWS. 9 IS MAX. NOW ";N NMPS THE POISON SQUARE LOSES THE GAME..."FLL "ENTER YOUR TURN BY TYPING FIRST ROW (R) THEN A COMMA"L "THEN THE COLUNE 950 ***.R$XR. " SORRY ";P$(P1);" YOU LOSE ! !"^R8oRB "AGAIN";R$RL (R$,)"Y" RV "MENU" :  pPfP1PPp "PLAYER ";P1;" '";P$(P1);"'"Pz "COORDINATES OF CHOMP (ROW,COLUMN)";R1,C1 Q R1 Q R1R  'YES OR NO'; AND" 109 PRINT "KEEP IT SHORTER THAN ONE LINE (INCLUDING SPACES)." 110 PRINT : PRINT : PRINT : PRINT 111 INPUT  "HOW MANY COLUMNS";CN& C N0 C NN: "TOO MANY COLUMNS. 9 IS MAX. NOW, ";OD  ONOX I MN (C), THEN HIT RETURN..."LL" "NO FAIR TRYING TO TAKE ALREADY CHOMP'D SQUARES"M, "OR ONES NOT IN THE ORIGINAL SETU Q$ 112 PRINT : PRINT 113 REM THIS IS A 'PSEUDO-RANDOMIZE' ROUTINE 114 FOR X=1 TO LEN(Q$) 115 Z$=MID$(Q$,X,1) 116 Z=ASC(Z$) ODIFIED FOR MBASIC 12/22/78 AEHDJ< ( )JJFjJP );"***** DICE *****"rJZ:Jd "HI. WOULD YOU LIKE TO ROLL THES UP AGAIN"N"OR THE NUMBER SEVEN DOES."NO"IF YOUR POINT COMES UP BEFORE THE NUMBER SEVEN,"7O"YOU WIN. HOWEV 134 CX=CX+1 135 GOTO 129 136 GOSUB 142 137 PRINT "YES" 138 GOTO 147 139 GOSUB 142 140 PRINT "NO" 141 GOTO 147 142 PRINTIVE"L^"AMOUNT, YOU WILL BE BETTING ON THE 'DON'T PASS' LINE."LhMr"HERE ARE THE RULES FOR THE 'PASS' LINE."CM|"IF  117 Y=Y+Z 118 NEXT X 119 Y=Y MOD 97 120 FOR X=1 TO Y 121 Z=RND(1) : Z1=RND(Y) 122 NEXT X 123 A$="<*>" : AL$="YES :" : AR$E DICE WITH ME";Jn:Jx A$JT dJ (A$,)"Y" JK"BEAT IT KID, YOU BOTHER ME." KK 4ER, IF THE SEVEN APPEARS FIRST"jO"YOU LOSE THE BET AND MUST START OVER AGAIN."pO&vO0O: "READY TO PLAY, ";N$;OD : PRINT 143 PRINT "YOUR QUESTION :" 144 PRINT Q$ : PRINT 145 PRINT "MY ANSWER (AFTER"; CX; "AGONIZING STEPS) :" 146 RETURN YOU ROLL A SEVEN OR AN ELEVEN ON THE FIRST"mM"ROLL OF THE DICE, YOU WIN THE BET."sMM"IF YOU ROLL A TWO, THREE, OR T=": NO" 124 PRINT "THE '<*>' IS THE BOUNCING BALL OF FATE..." 125 PRINT "HIT SPACE BAR TO ANSWER YOUR QUESTION" 126 PRINT : PKJK"O.K., BUT I DON'T PLAY WITH STRANGERS."cK"WHAT'S YOUR NAME?"iKrK N$K ( )K G K"WO A$ON (A$,) "Y" *OX ( )Ob G v Pl "OK ";N$;", HERE'S $100.00. SEE WHAT YOU CAN DO."Pv: V 147 PRINT : PRINT 148 PRINT "DO YOU NEED HELP IN MAKING ANOTHER DECISION (Y OR N)" 149 INPUT Q$ 150 IF LEFT$(Q$,1)="Y" THEN WELVE ON THE FIRST"M"ROLL OF THE DICE, YOU LOSE THE BET."MM"UNDERSTAND SO FAR?"M A$0N (A$,)"Y" "RINT : PRINT 127 PRINT TAB(2); AL$; TAB(XX); A$; TAB(56); AR$ 129 PRINT TAB(2); AL$; TAB(XX); A$; TAB(56); AR$ 130 W=RND(1) ULD YOU LIKE THE RULES, ";N$;K ,K G XK" "WOULD YOU LIKE THE RULES AGAIN";L, A$L6 (A$,)"Y" I WRITTEN BY: ROY A. WILSONI CERRITOS COLLEGE J NORWALK, CALIFORNIAJ(7J2 MGP" NOTE: A BET OF ZERO ENDS THE GAME."MP\PT$ (T)P "YOU HAVE $";T$;". HOW MUCH WOULD YOU LIKE TO BET";RUN 151 RUN "MENU": END NT "DO YOU NEED HELP IN MAKING ANOTHER DECISION (Y OR N)" 149 INPUT Q$ 150 IF LEFT$(Q$,1)="Y" THEN YOU'RE NOT TOO SWIFT..."6NmN"AFTER YOU HAVE YOUR POINT, YOU CONTINUE ROLLING"N"THE DICE UNTIL EITHER YOUR POINT COM131 IF W<.5 THEN XX=XX+2 ELSE XX=XX-2 132 IF XX<8 THEN PRINT CHR$(26) : GOTO 136 133 IF XX>=54 THEN PRINT CHR$(26) : GOTO 139 X'L@ ( )_LJ"YOU MUST BET AT LEAST ONE DOLLAR TO PLAY,AND YOU"LT"CANNOT BET MORE THAN YOU HAVE. IF YOU BET A NEGAT P B1P ( )PB ((B1))PB$ (B)P B1  >P (B1) T \ Q V *9Q"NOW YOUR POINT WAS ";P,?W"YOU ROLLED A ";DPW J  dXW JbW ,mWT TB|WT$ (T)WR W" W,:M ,5U D M xKU PD M xaU PD M ,kU PU D M xU  D M , D2  [D2 (D2)[D D1D2[  \[" ";D1;" ";D2\ \* ( ):2\4, T  8S R  jS"YOUR POINT IS ";P;" YOUR BET IS $";B$pSS$ " ROLL AGAIN";S. A$S8 Y bYY "AWW - TOO BAD. YOU DON'T HAVE ANYMORE MONEY."Y bY!Z&"HEY, ";N$;", DON'T YOU GET TIRED OF'RE BETTING AGAINST THE SHOOTER."AQ:rQ" D O N ' T P A S S - B A R 1 2"zQ :Q "IS THAT WHAT YOU WANT"W6 B1  TW@"+++++++++++ P A S S B E T ++++++++++"WJ ^XT"+++++ D O N ' T P A S S B E T U D M xU D M ,U( D M ,U2 D M xV< D ,VFP DVPVZ"G A M E I S O V E R "<\>  T\H"ERROR IN PROGRAM"Z\R\\ +++++++ DRAW DICE +++++++++++++++++\f". . . . . .(A$,)"N" VSB ( )SL SVS`"WELL, LET THE PAYING CUSTOMERS UP TO THE TABLE..." Tj Tt"O.K., "; LOSING?"DZ0"NOW YOUR MONEY IS ALL GONE."NZ: bTZDZN "DON'T GO TO LAS VEGAS!!! BESIDES, YOU'RE BROKE."ZXG ;A$Q  (A$,) "Y" Q*M:VQ4 RQ> B1 QH (B1)B RR BT  R\+Rf"YOU DON +++++"%X^/Xh ,dXr"YOU LOSE. YOUR BET WAS $";B$X| R "YOUR POINT WAS ";P,X "YOU ROLLE$Vd *Vn5Vx: M;VNV B1  V"+++++++++++ P A S S B E T ++++++++++"V V"+++++ . . . . . . . ."\p D1 ,,, , , \z D2 . ,B ,B ,~ ,~ ,~ ] D1 ,,,,,N$;","PT~ "IF YOU DON'T WANT TO BET, YOU CAN'T PLAY!"T "TAKE YOUR MONEY AND GO HOME. THE GAME IS OVER."TT "YOZbZl "WANT TO PLAY AGAIN";Zv A$Z (A$,)"N" *ZT dZT$ (T)Z/[ "ALRIGHT, YOU START O'T HAVE THAT MUCH!"1Rp;Rz ARGR}R "CHEAPSKATE. I DON'T ACCEPT SUCH SMALL BETS."RR 4RRD A ";DXT TBXT$ (T)XR XXY"+++++++++++++++++++++++++++++++++++++++++++++"!Y G , D O N ' T P A S S B E T +++++"VV ,W"YOU WIN! YOUR BET WAS $";B$(W R "YOU =] D2 V ,. ,V ,. ,V ,~ `] D1 ,,, , , ] D2 . ,j ,j ,~ ,~ ,~ ]"' ' ' ' ' ' ' U STARTED WITH $100. YOU NOW HAVE $";T$T "PLEASE SEE THE CASHIER."T TR R U R  U D MVER AGAIN WITH $100.00";[G GE[ Z[D1 _()p[ D1  [D1 (D1)[D2 _()[ "WHAT KIND OF FUNNY MONEY BET IS THAT?"R R ( )S "OK ";N$;", SHOOTER COMING OUT!" S S &S,,D'YZY "YOU TURKEY ---- YOU LOST ALL YOUR MONEY!!!"Y " NOW WHAT WILL YOU TELL YOUR FAMILY?"  ' ' ' ' ' ' '"]]": : ";]]": * : ";]^": * :  ####" 130 PRINT " ####" 140 PRINT "  ####" 40 PRINT " ####" 50 PRINT " #" 350 PRINT " #####################" 360 PRINT " ########## ###########" 370 PRINT " ##########  ####" 240 PRINT " ####### ####" 250 PRINT " ######## ####" 260 ";#^B^": * : ";H^ g^ ": * * : ";m^ s^$ ^. ": :"^8 ^B ": * ####" 150 PRINT " ## ####" 160 PRINT " #### ####" 170  ####" 60 PRINT " ####" 70 PRINT " ####" 80 PR########### A" 380 PRINT " ########## ##########(#)" 390 PRINT " ########## #######/##I" 400 PRI PRINT " ######### ####" 270 PRINT " ########## ##" 280 PRINT "  :"^L ^V ": * :"^` ^j ": * :"^t ^~ ": * * :"^ _ "MENU" : ^B ": *PRINT " ###### ####" 180 PRINT " ###### ####" 190 PRINT " INT " ####" 90 PRINT " ####" 100 PRINT " NT " ########## ####/###I" 410 PRINT " ########## #/####I" 420 PRINT " ########  ########## #" 290 PRINT " ##########" 300 PRINT " ##########" 310 PRINT " ## ###### ####" 200 PRINT " ###### ####" 210 PRINT " ######>> ####" 110 PRINT " ####" 120 PRINT "  /#####I" 430 PRINT " #### /######I" 440 PRINT " ## /#######I" 45010 REM Copyright 1977 by Marc Singer 20 PRINT " **" 30 PRINT " ##########" 320 PRINT " ##############" 330 PRINT " #################" 340 PRINT " ##################>>>>>>>>>>>>>>>>>>####" 220 PRINT " ######>>>>>>>>>>>>>>>>>>>>####" 230 PRINT " ######   PRINT " ^ /########I" 460 PRINT " -!- ###########" 470 PRINT " - ! Mr R()M| I M R(I)M IM 9,13,100,0,9,10,12,11,12,0,1,5,3,4,6,2,8,7#N"ENTER RANDOM NO.": XX:XY / `##I" 580 PRINT " / (#)" 590 PRINT " / SS AND DRAW"K "BL - BLITZ, GOOD AGAINST PASS AND LONG PASS"L "IN - INTERCEPT, INCREASES THE ODDS OF AN INTERCEPTION"N- ###############" 480 PRINT " - ! - <###############>" 490 PRINT " / ##########IA()II "DO YOU NEED INSTRUCTIONS, Y OR N ?";I A$I( (A$,) "Y" TJ2>Jd "ON OFFENSE YO((XX))-N F8N Z3BN OLN LfN Z(,),P(),DA(,)tN A N B N Z(A,B),DA(B,A) V" 600 PRINT " /" 610 PRINT " # /" 620 PRINT " # /" 630 PRINT " # ## /" 640 PRINT "L "BK - BLOCK, GIVES YOU A CHANCE TO BLOCK A KICK,"L " BUT DECREASES THE RUNBACK DISTANCE."L"L, "TO C#####" 500 PRINT " / ###########" 510 PRINT " / `########I" 520 PRINT " U HAVE THE FOLLOWING PERMITTED PLAYS:"XJn "RU - RUNNING PLAY"oJx "PA - PASS PLAY"J "SW - SWEEP"J "SC - SCREEN PAN P(B)N BN Z(A,)N AN "DO YOU WANT TO RECEIVE";N& XN0 O: S( Q)OD KSON # ## /" 650 PRINT " `## /" 660 PRINT " ## /" 670 PRINT " ##/" 680 PRINT " #" 690 PRINT " `" 700 PRINT " ALL A PARTICULAR PLAY JUST TYPE ITS CODE."L6 "ALSO, AT ANY TIME DURING PLAY YOU MAY CALL TIME OUT"KqK "NM - NORMAL, GOOD AGAINST SWEEP AND SCREEN"K "HO - HOLD, GOOD AGAINST RUN, PA  Z9O O LO Bc $ O "A TOUCHBACK"O BO LO S  P "MY ";P  #PV D*V 0 ?V Au| b\V BB((A))gV Z9qV V Bc :V P1V &T BdBG2T SS=T Z9GT WT B hT Bc ruT "AT ";T 8 T CC(Z9(F2  Z GZ "**FUMBLE** ";Z Z S  Z Y(`A)Z [ M(7A(),[ PASS COMPLETE..";>RL L((A))PRV AF2  `R` G pRj G Rt GB zR~ "LOSS OF ";G;)P()  XpXz "**SAFETY**"X P(S)P(S)X F1X SSX HY p Y "FROM THE 20"Y "YOUR ";-P   7P  AP  DPP* F2u{ZP4 OkP> C  uPH  PR Z2P\ Z3Pf CV& P1 V0 vV: "THE KICK IS ";VD Z2VN SSVX $ Wb "**BLOCKED** RECOVERED..";Wl G(A))TT G(( A))T "THE QUARTERBACK ";T A U "IS THROWN FOR A "; U VU G((B1B)(D)  A[ M(A)W[ LFW "THE PUNT IS ";SW Au| b^W F1BiW Z2uW SSW Z3ff&W W "**G)&U" M0U, AJU6 "SCRAMBLES FOR A ";TU@ V`UJ BBGmUT "TO ";wU^  Uh Bc Ur U|B  [P "TRY FOR A FIELD GOAL"[Z M[d [n P()U2P()U2 ( [x "TIME OUT"\ U2U2\  \ A%S  /S `PS Au|((Y)) PsS  AL|(Y`) ~S Z9S S( "PASS INCBdBY. "RECEIVED AT ";Y8  YB Z2AZ3  YL AF2  YV G(dA)Z` A~ ~ &Zj GAY";&Q 6Q S FQ Q PQ MQZQ fQ YQQ (Q() Q C(CL( TOUCHDOWN** "W P1W P(S)P(S)W BW "THE KICK IS ";W A(B) X P1X  "NO ";!X vU B1B 0 U B1B U A U "**MEASUREMENT** "U  V A 0 V   ( )\ "PUNT"3\ M9\ K\ "GO FOR IT"Q\ a\ X  w\ P()P()  \ "THE GAME IS OVER"\ "OMPLETE"S2 LS< GSF 0 SP "PASS **INTERCEPTED** ";SZ ASd  Tn B( Tx G((G))((A))6Zt G  BZ~ BBG\Z " AND RUN BACK...";fZ LwZ Bc rZ " TO ";Z  Z AA))Q LQ M Q M Q Y1YQ AZ(M,Y1) Q$ AR.  R8 M V)RB " "GOOD"4X  P(S)P(S)P1>X* HJX4 SSPX>uXH "SCORE: ME ";P();" YOU ";P()XR LX\ X pXf P( FINAL ";\ H\ }, : "MENU"\ "END OF PERIOD ";X\ H\" FF\,  ]6 C]@ XX"]J  (A$,) "Y" AGc$ ((A)) \c. QR(((A)))lc8 Q }cB Qd  cLcV .5,-2,.25,4,.5..WRONG, TRY AGAIN"La A$ : (A$,)"TO" Aha (A$,) "NM" Aa (A$,) "HO" Aa (A$,) "B F(J)KTF()F()F()F()F()KV F() ^KX F() K\ JK^  L` L*L:"YOU MAY NOT HAV_ " AND ";B1B;" ";:_ *F_ SSS_ BdBc_ S p_ "MY ";z_  _ "BALL ON ";_ B2 I  I F()I "ENTER A NUMBER BETWEEN 1 AND 100...";XXXI CIIXJ "DO YOU WISH TO TRADE FURS?"JF *.]T SK8]^ DI]h T1  b]r "2 MINUTE WARNING"l]|  w] T1] Cx] p] B1B,13,.55c` .4,-2,.3,7,.65,15,.75cj .4,-2,.3,6,.6,15,.35ct .65,-2,.65,6,.6,17,.9 d~ .4,2,.7,10,.4,27,.2(d .1,19L" Aa (A$,) "IN" Aa (A$,) "BK" Aa (A$,) "RU" A b (A$,) "PA" A /bE THAT MANY FURS!"gL"DO NOT TRY TO CHEAT. I CAN ADD. YOU MUST START AGAIN!"pLL:"DO YOU WANT TO TRADE FURS NEXT  H _ V2(B2)_ CC(A)_ S \ _ B2 * _ "MY ";_ 4 `* "YOUR ";`4 V` z3J B$"YES" dGJ B$"NO" QJ [J zeJd  qJeX()Jf"YOU HAVE $";I;"SAVINGS, AND A MA ] B1d  ] B1d] ] Qff&(AA)u|] A] Q  ^ A ^ QQ^ M1M,.4,35,.2,100,.1Dd (A$,) "TO" A.3,6,.6,15,.35ct .65,-2,.65,6,.6,17,.9 d~ .4,2,.7,10,.4,27,.2(d .1,19 (A$,) "SW" A Lb (A$,) "SC" A ib (A$,) "LP" Ab (A$,) "DR" Ab (A$,) YEAR?"L LC"YOU ARE THE LEADER OF A FRENCH FUR TRADING EXPEDITION IN 1776"4MD"LEAVING THE LAKE ONTARIO AREA TO SEL> *`H "THE 50"0`R A`\ B2  K`f * [`p S  h`z "YOU";r`  }` "I";` " KICK OFF."` FXIMUM OF 190 FURS"Jg"TO BEGIN THE EXPEDITION"K,:"YOUR 190 FURS ARE DISTRIBUTED AMONG THE FOLLOWING"9K."KINDS OF PELTJ^ GDA(A,M1)T(Q)(DA(,M1)DA(A,M1))`i^ GG(A #{)AdAw^ G(G)}^& ^0 DD^: D "PU" Ab (A$,) "FG" Ab (A$,) "NO" Ab  (A$,) "N" Ac! (A$,) "YE" A.c"L FURS AND GET SUPPLIES FOR"yME"THE NEXT YEAR. YOU HAVE A CHOICE OF THREE FORTS AT WHICH YOU"MF"MAY TRADE. THE COST OF S2u|` Z2` ` L` "TIMEOUT CALLED..."` ` ` U ` UUa  a +a "S: MINK, BEAVER, ERMINE AND FOX."AK1:KK6 QK;_KJ J jKL B$:KO"HOW MANY ";B$;" PELTS DO YOU HAVE";KR ^D D  X ^N "1ST ";^X D l ^b "2ND ";^l D  ^v "3RD ";_ D  _ "4TH ";0 UPPLIES AND THE AMOUNT YOU WILL RECEIVE"MG"FOR YOUR FURS WILL DEPEND ON THE FORT THAT YOU CHOOSE."NKINL:"DO YOU WANT TRAVEL EXPENSES TO HOCHELGA WERE $10.00"KT VTII\TTM1(((XXX)Y) ) TE1(#Ry  -Rz pR{"YOU HAVE CHOSEN THE MOST DIFFICULT ROUTE. AT FORT NEW YORK"R|"YOU WILL RECEIVE THE HIGHEST VALUX P  X P X P X"YOU WERE ATTACKED BY A PARTY OF IROQUOIS."DY"EVERYONE IN YOUR TRAVE CHOSEN THE EASIEST ROUTE. HOWEVER THE FORT IS FAR"Pa"FROM ANY SEAPORT. THE VALUE YOU RECEIVE FOR YOUR FURS WILL BE"PbHINE RAPIDS. YOU LOST ALL YOUR FURS"V V VP() W"YOUR FOX PELTS WERE NOT CURED PROPERLY. NO ONE WILL BU TO TRADE YOUR FURS AT FORT 1,FORT 2,OR FORT 3 ?"NN"FORT 1 IS HOCHELAGA (MONTREAL), AND IS UNDER THE PROTECTION OF"NO"TH(~(XXX)L) @) TB1((L~(XXX)fff) )  UD1(((XXX)33s) E FOR YOUR FURS. THE COST"R}"OF YOUR SUPPLIES WILL BE LOWER THAN AT ALL THE OTHER FORTS."R xS B$"YES" VSADING GROUP WAS KILLED. THIS ENDS THE GAME."JYY "YOU WERE LUCKY. YOU ARRIVED SAFELY AT FORT NEW YORK."Y  Y "LOW AND THE COST OF SUPPLIES HIGHER THAN AT FORTS STADACONA"Pc"OR NEW YORK.":Pe x Qi B$"YES" VQj PQoY THEM."*W 4W cW"SUPPLIES AT FORT STADACONA COST $125.00"W"YOUR TRAVEL EXPENSES TO STADACONA WERE $15.00"E FRENCH ARMY. FORT 2 IS FORT STADACONA (QUEBEC) AND IS UNDER"OP"THE PROTECTION OF THE FRENCH ARMY, HOWEVER YOU MUST MAKE A) 7UP( (XXX))HU P YU P jU P |U P UF()U"YOUR BEAVE )SII/SXSM1((L~(XXX)333)d)dSE1((L~(XXX)ff&)d)dSB1((L~Y"YOU NARROWLY ESCAPED AN IROQUOIS RAIDING PARTY, HOWEVER YOU"Z"HAD TO LEAVE ALL YOUR FURS BEHIND."Z (Z :"YOU HAVE CHOSEN A HARD ROUTE. IT IS,IN COMPARISON,"Qp"HARDER THAN THE ROUTE TO HOCHELAGA BUT EASIER THAN THE"Qq"ROUWWIIiWWM1((~(XXX)ff) ) XE1((~(XXX)33s) ) BXB1"FOQ"PORTAGE AND CROSS THE LACHINE RAPIDS."OR"FORT 3 IS FORT NEW YORK AND IS UNDER DUTCH CONTROL, YOU MUST"OT"CROSS TR WERE TOO HEAVY TO CARRY ACROSS THE PORTAGE."U"YOU HAD TO LEAVE THE PELTS, BUT FOUND THEM STOLEN""V"WHEN YOU RETURNED (XXX)@)d)dSD1((L~(XXX)L)d)d T"SUPPLIES AT FORT HOCHELGA COST $150.00"AT"YOUR'ZB1B13ZM1M1jZ"YOUR MINK AND BEAVER WERE DAMAGED ON YOUR TRIP."Z"YOU RECEIVE ONLY HALF THE CURRENT PRICETE TO NEW YORK. YOU WILL RECEIVE AN AVERAGE VALUE FOR"Rr"YOUR FURS AND THE COST OF YOUR SUPPLIES WILL BE AVERAGE."Rx x(((XXX)) ) sXD1(((XXX) ) ) XP( ())X P HROUGH IROQUOIS LAND."OV:"ANSWER 1, 2, OR 3."OW BOX B `OY B oP[B { P\ oONP`"YOU HFOR THEM.",V 6V bV"YOU ARRIVED SAFELY AT FORT STADACONA"lV vV V"YOUR CANOE UPSET IN THE LAC  FOR THESE FURS."Z (Z  Z("SUPPLIES AT NEW YORK COST $80.00"Z* [x"DO YOU WANT TO TRADE AT ANOTHER FORT?' WHEN ASKED HOW MANY NUMBERS YOU WANT."hM!:: "G O O D L U C K ! ! ! ! !"pM":M A(),H(P)M "IS THIS A CONTBERS, TYPE IN EACH NUMBER SEPARATED BY COMMAS."K "IF YOU ACCIDENTILY PLACE A COMMA AFTER YOUR LAST"K "NUMBER, THE COMP),A(),A(),A(),A()Q T "NEXT FIVE:";A(),A(),A(),A(),A( )R T "LAST THREE:";A( ),A( ),A( )IR : ::"YOU ENDED YOUR FUR TRADING WITH $";I;"."\"HOPE YOU ENJOYED YOURSELF!"\ ] , ] ] "MENU" A(),A(),A(),A(),A(),A(),A(),A()O T "FIRST FIVE:";A(),A(),A(),A(),A()%P T "LAST FOUR:";A(),A"2[z"ANSWER YES OR NO",;[{ B$A[|G[n["YOUR BEAVER SOLD FOR $";B1F();["YOUR FOX SOLD FOR $";D1F()["INUATION OF AN OLD GAME";A$M (A$,)"N" M "HOW MANY DOLLARS WERE LEFT";SM NE)N "HOW MUCH CASHUTER WILL TELL YOU THAT THE EXTRA"K "NUMBER WAS IGNORED (IN THIS CASE, THE EXTRA WAS"0L "A SPACE). IF YOU PUT IN MORE N T "FIRST FIVE:";A(),A(),A(),A(),A()R T "NEXT FIVE:";A(),A(),A(),A(),A( )R T "LAST FOUI KENO ACCORDING TO PAYOFFS OFI MGM GRAND CASINO LAS VEGAS JAN 1976J WRITTEN BY G.W.FLEMMING MEMBER SCCSJ (),A(),A()[P T "FIRST FIVE:";A(),A(),A(),A(),A()P T "LAST FIVE:";A(),A(),A(),A(),A( )P YOUR ERMINE SOLD FOR $";E1F();["YOUR MINK SOLD FOR $";M1F()\IM1F()B1F()E1F()D1F()I \E\"YOU NOW DID YOU BRING";S1NWS;NQ:ON INPUT NUMBERSvN "HOW MANY NUMBERS DO YOU WANT";TN T N "YOUR NUMBEUMBERS THAN ARE NEEDED,"cL "ONLY THE FIRST REQUIRED ONES WILL BE USED."L:"HIT CR RETURN TO CONTINUE"L X: ( )R:";A( ),A( ),A( ),A()R T "FIRST FIVE:";A(),A(),A(),A(),A()S T "NEXT FIVE:";A(),A(),A(),A(( )=J );"$$$$$ K E N O $$$$$"YJ );" $$$$$$$$$"aJ:J "DO YOU WANT INSTRUCTIONS";D$J (D$,)"N"T "FIRST FIVE:";A(),A(),A(),A(),A()Q T "LAST SIX:";A(),A(),A(),A(),A( ),A( ) Q WW@WR N VWW Q WWlW\ Q WW+Wa Q WWkWf Q WWEW] W "YOU HAD";Q;"RIGHT, BUT NOW YOU'RE BROKE."] W  ^ "YOU HAD ";Q;"RIGHT. YOU NOW HAVE ";W;"DOLLARU X5U DETERMINE PAYOFFFU N &XU Q WWiU& N X|U0 Q WW UX N Ub Q l[ Q WW@[ Q WW[ Q WW,[ Q WWk\ Q WW\ Q WW_ Q WWY# Q WWY$ Q WW2Y% Q WWY& Q WWaZL N ~%ZM Q N W Q WWW Q WWW Q WW+W Q WW X Q WWX Q WS LEFT."*^ W^ "COME BACK AGAIN. BRING MORE MONEY!!!"n^ "TOTAL TURNS ";E^ "TOTAL MONEY LEFT ";W^ "MENU"  WWUl Q WW+U N U Q WWU Q WWU Q WWr V N !V Q ,\ Q WWC\ Q WWi'X\ Q WWam\ Q WWa\k PRINT GAME RESULTS\l "MY NUMBERS! ,+O Ed =O Ed ^O&"YOU SHOT STRAIGHT UP....."O'"THE PROJECTILE WENT STRAIGHT UP....."O("THE PROET DESTROYED * *"S" ROUNDS EXPENDED."LM; E2SRM@MJ"THE FOWARD OBSERVER HAS LOCATED A NEW TARGET."MT"CAN YOU COK OUT... NOW YOU'RE IN TROUBLE..."S S"BETTER DUCK... TRY AGAIN BUT BE MORE CAREFUL."T ;T"NOW HE HAS THE SO MAKE"9K"YOUR SHOTS COUNT"CK RIKwK"ENTER YOUR FIRING ORDERS AS REQUESTED."K T=DISTANCE TO TARGETKO O.C.S."QQQ"YOU NOW HAVE A NEW CREW.. BE MORE CAREFUL..."QQ E2S' R E2 R E2 JECTILE CAME STRAIGHT DOWN....."O*"TOO BAD....."P0 "YOU'RE DEAD YOU STUPID ASS-HOLE!!!" : PX E1(X)PY XNTINUE FIRING: 1=YES, 0=NO";M^ GMh G MmMr"CREW DISMISSED."M "MENU"MN Q2Q2L}:N "DI RANGE.. LOOK OUT FOR THE NEXT ONE"ET VT  R1 'T#"YOU SUSTAINED MINOR INJURIES THAT TIME..."T$ "BETTER GE I=DISTANCE OF SHOTK E=DISTANCE OVER(NEG.), OR OVER(POS.) TARGETK E2aL T'0u(X) L SL R1R JPR"ARE YOU TRYING TO GET KILLED? WATCH IT.."ZR |R"THAT WAS CLOSE, TRY AGAIN."R R"WHAT A BREAI " * * GUNNER * *"IIId"YOU ARE AN ARTILLERY OFFICER WHO GIVES"&Jn"FIRING ORDERS TO A GUN CREW,(X)3PZ E1L| XHP[ E1fff X[P] E2(E2E1)mPg E2d Pv"TARGET RETURNED FIRE.. MISSED YOU BYSTANCE TO TARGET IS"(T) "YARDS."@NFNXN"ELEVATION";`N BqN BZ &N BY N B 4NT HIM..!"T% R1T& T'"YOU SUSTAINED 'MAJOR' INJURIES THAT TIME."T( $T4!U9"ARE YOU TRYING TO DIG A TR!L ML"MIN. ELEVATION OF GUN IS ONE DEGREE."WL L"MAX. ELEVATION OF GUN IS 89 DEGREES."L L"OVERK, MISSED..."R R"WHEW.....";R R"GULP... THAT'S TOO CLOSE FOR COMFORT."S 3S"YOU HAD BETTE TELLING THEM"VJx"THE DEGREES OF ELEVATION WHICH YOU THINK"{J}"WILL PLACE THE GUN ON TARGET."J"MAXIMUM RANGE OF THE G "E2" YARDS."P{ E2  P| S P V P V P V Q V Q V  B N SSN V( (X))N B2B33eN I5(B2)N XTIO E(X)O (E) d ENCH ???"VU>"GET THAT GUN UP WHERE IT WILL DO SOME GOOD..."`UH UR"TO ASSURE THE TARGET IS AT A RANDOM DISTANCE,"U TARGET BY" (E) "YARDS."L  XL L"SHORT OF TARGET BY" (E) "YARDS."L  M"  M,=M6"* * TARGR MAKE THIS ONE COUNT....."JS"....OR ELSE...."TS jS "AW COME ON..."sSS"AHEMMM..."S S "LOOUN IS 46,500 YARDS."J"A HIT WITHIN 100 YARDS OF THE TARGET"J"WILL DESTROY IT."!K"YOUR TARGET WILL BE SHOOTING BACK'Q V 7Q V GQ V  WQ V aQ Q"TARGET RETURNED FIRE.. AND STRUCK!"Q"BACK T" W"TYPE A FOUR DIGIT NUMBER IN THE FORM XXXX....";U\ K4Uf L7 K4Up U3(X)Uz L7VV OF GUS)":BL"WHAT IS YOUR GUESS ";: G$:RUL G$"?" |qL I: N$(I)""LG$N$(I) "YOU GUESSED THAT LETT"-"$J7 I:J< I:N$(I)""BJA IlJF I : J :P$(I,J)" ": J: IyJN I JPP$(I,)"X"JT IJX  M ,,,,,,,&,0,:QP$(,)"-":P$(,)"-":P$(,)"-":P$(,)"<":P$(,)"."DQP$(,)".":P$(..":N"YOU FOUND THE WORD!":rN::"SORRY, THAT LETTER ISN'T IN THE WORD."#O M ,,,,,,,NNERA FOUR DIGIT NUMBER IN THE FORM XXXX....";U\ K4Uf L7 K4Up U3(X)Uz L7VV OF GUER BEFORE"L G$N$(I) L I:"PROGRAM ERROR. RUN AGAIN.":LN$(I)G$:T1T1M IL: L$(I)G$ MI: I JZP$(,I)"X"J[P$(,)"X"J\ IJ_ CN dKa"SMARTY, YOU DID ALL THE WORDS !!":KdQ(N()),)">":P$(,)"-":P$(,)"-":P$(,)"-"MQDnQ I:P$(I,)"X": I:DQ I:P$(I,I)"\": I:DQP$,,EO"FIRST, WE DRAW A HEAD":dO"NOW WE DRAW A BODY":O"NEXT WE DRAW AN ARM":O"THIS TIME IT'R ")M,AMD$(I)G$:RR:PM"MM:lM, IL: D$(I)"-"@yM6 I:M@: IL: D$(I);: I::(Kn U(Q)d@KxU(Q):CC::T1UK IQ: A$: IbKL(A$)mKILKL$(I)(A$,I,)K IK"HERE AR(, )"/":P$(, )"/":P$(,)"/":P$(,)"/"QDQP$( ,)"/":P$( ,)"/":DRP$( ,)"\":P$( ,)"\":D,S THE OTHER ARM":O"NOW, LETS DRAW THE RIGHT LEG":P"THIS TIME WE DRAW THE LEFT LEG":"P"NOW WE PUT UP A MJ"WHAT IS YOUR GUESS FOR THE WORD";MO B$MTB$A$ hN^"WRONG, TRY ANOTHER LETTER. "::+Nh"RIGHT, IT TOOE THE LETTERS YOU USED: ";K I:N$(I);:N$(I)""K",";: IL:: IL: D$(I);: IL" ("L "LETTERRP$(, )"\":DAR&P$(,)"/":DfR0P$( , )"\":P$( , )"-":DR:P$( ,)"-":P$( ,)"/"RD I : JI ( )I " * * HANGMAN * *"II P$( , ),L$(),D$(),N$(),U(2)J(C:N2J2 I:M:D$(I)HAND":BP"NEXT THE OTHER HAND":cP"NOW WE DRAW ONE FOOT":P"HERE'S THE OTHER FOOT --- YOU'RE HUNG !!"PK YOU "T1"GUESSES!"YNr"WANT ANOTHER WORD";: W$: W$"YES"2sNw W$"Y" W$"OK"2N|:"IT'S BEEN FUN, BYE FOR NOW.#  :P$(I,J);: JRN: I: M XRPRX"SORRY, YOU LOSE. THE WORD WAS '"A$"'"Sb"YOU MISSED THAT ONE. DO YO$300, BET AGAIN";3M6 HM@ V(S), ,[MJ Y1  aMTM^" THEY'RE OFF AND RUNNING -"MhMr M() IKn"7 STYMIE (20:1); 8 COALTOWN (30:1);"OKxK"ENTER HORSE(1-8);TO WIN,PLACE,SHOW(1,2,3);AND THE WAGER."K "AQ$Q. QQ8 J SQB "BET NO. ";JQL PQV I  Q` B(I) T(J) Rj U(J) I 9Rt P TIC","THIGMOTROPISM"6U"ED"CU "MENU"E","ERRONEOUSLY","LOUDSPEAKER","PHYTOTOXIC",U "MATRIMONIAL","PARASYMPATHOMIMEO D H(B())O KKOO K   O O 6O 4P " FINISH"P Z5 $tP U":rNS"GUM","SIN","FOR","CRY","LUG","BYE","FLY"S"UGLY","EACH","FROM","WORK","TALK","WITH","SELF"S"PIZZA","THING yM|M() <MM() ^MM() MM() 7MM()  NM() LNM() @!NND 0 FOR NO MORE BETTING OR 1 OR MORE BETTING."K S KK S S K"BET NO. ";S;L T(S),U(S),V(S),Y1,L  #z((V(J)2)H(IIU(J)))VR~ "YOU COLLECT";P;"ON ";`R rfRpR xR IR I T(J)R"TEAR UP YOI "HORSE RACE":Q2I "ANY NUMBER OF PLAYERS CAN BET ON THE RESULTS." J "EXAMPLE OF BET; 1,2,200,0 ."9J("YOU BORR 6+P* Z1()4P4 Z5:P>@PHXPR"$2 MUTUELS PAID:"P\" STRAIGHT PLACE SHOW"Pf K Pp I ","FEIGN","FIEND","ELBOW","FAULT","DIRTY"S"BUDGET","SPIRIT","QUAINT","MAIDEN","ESCORT","PICKAX"$2 AND < QPV(J)*S J4S  ^S"YOUR TOTAL WINNINGS AMOUNT TO $";Q2hS zS("YOUR TOTAL LOSSES AMOUNT TO $";(Q2)S2ITATION (4:1);"; JP" 3 WHIRLAWAY (5:1);"JZ"4 ASSAULT (8:1); 5 SEABISCUIT (9:1);";Kd" 6 GALLANT FOX(11:1);" (Q R 2Q DQ R (J)tQ H(L)@ #z((O(B(I))R())d)Q H(L);Q JQQ ICIENTIST","DIFFERENT","QUIESENT"T"MAGISTRATE","ERRONEOUSLY","LOUDSPEAKER","PHYTOTOXIC",U "MATRIMONIAL","PARASYMPATHOMIME $t:O (Z5N)G 4UO H(J)H(J)()M(J)aO JJmO GGO J  *O J O <$  zS< Q SF L1  SP B(L1) SZ A(L1) Sd L1Sn L1  Tx L2  T L1L2 Q2,Z Q2  =Z Q2 (GZ cZ "WELL YOU BROKE EVEN!"mZ zzZ$ "MENU"AL!!!"Z pZQ2Qf;X " AT THE 1/4 MILE POLE -"EX fjX " NEARING THE HALFWAY MARK -"tX* fX4" MIDWAY IN THE RACE -"X>),B( ),P$( ),RX( ),CX( ),B1( )KFMX$()"ERIDANI EXPEDITERS" : I  : J  : S(I,J) : J5KKD1(I) : S1(I)N.V"STYMIE ";8V NLV"GALLANT FOX";VV NjV"SEABISCUIT ";tV NV"ASSAULT ";V NV1T H(L1)H(L2) ET"RERUN PLEASE"KTcT H(L1)H(L2) wT A(L1)A(L1)T L2T A(L1) A(L1)  fXH" AT 5/8 OF A MILE -"XR fX\ " ROUNDING THE TURN -"XfXp $ *Yz"DO YOU WANT TO BET ON THE NEXTd : Q(I) : B(I)p : IsKPMX$()"CAPELLA FREIGHT CO." : MX$()"DENEBOLA SHIPPERS"KZMX$()"ALTAIR STARWAYS" : MX$("WHIRLAWAY ";V& NV0"CITATION ";V: NVD"MAN O'WAR ";VN K  WX I  v WbWl 0T L1T L1  T L2  T A(L2)L1 T B(Q) L2T QQU L2 U L2U" L1 RACE (Y OR N)";W$=Y W$"N" PY W$"Y" 2ZY zkY Q2 |Y Q2 Y"BYE NOW!!!!"Y)"BETELGEUSE, LTD."KdL$".+*ABCDE" : M$"ABCDEFGHIJKL" : I  : J  Ln (()) M(I,J) : Wv L}(DH(B(I)))8W I>WNW K ^W K  nW K  ~W K 4W K HW KI THE GAME OF STAR LANES - AN INTERSTELLAR COMMERCE GAMEI FOR 2-4 PLAYERSJ "HOW MANY PLAYERS (2-4)";P1 BJ( (U,#U65U@ K  YUJ"POS. HORSE LENGTHS BEHIND"_UToU^ I  xUh I;Ur B(I) DU| B(I) $ Y"PUT THE MONEY I OWE YOU ON MY TAB!!": pZ"PUT THE MONEY YOU OWE ME ON THE TERMINAL!!!"Z pZQ2Q$LxM(I,J).L J,IXL "DOES ANYBODY NEED INSTRUCTIONS";R$sL (R$,)"Y" L I P1 : "PLAYER ";I; :  \W K  W fW" COMING DOWN THE STRETCH -"W fX" AS THEY BREAK FROM THE GATE -"X  ) : : :  );"* S * T * A * R **";_J2 " L * A * N * E * S *"J< M( , ),S(,),N$(),D1(),S1(),Q()JA MX$( 0U B(I) U B(I) U B(I) U B(I) U B(I) V"COALTOWN ";V % "WHAT IS YOUR NAME";P$(I)L I : : "NOW I WILL DECIDE WHO GOES FIRST..." : +MI(P1()) : P$(I);" IS THE FIR A3 A4 AS M(R,C)  US A1 IA1iS A2 IA2}S A3 IA3S A4 IA4SQ()"S"  : ^AQwR((R$,))dQ|C((R$,))@ : I  Q RRX(I) CCX(I) Q I : "THAT SPAY HAVE $";B(P);"- TRY AGAIN" : >Wp R3 WzS(I,P)S(I,P)R3 : B(P)B(P)(R3S1(I)) X I : 5X ( )1 A2 A3 A4 \O; A2 A1 A3 A4 O@ A3 A1 A2 A4 OE A4 A1 A Q(I)Q(I) : M(R,C)IU A4 S1(I)S1(I)d : Q(I)Q(I) : M(R,C)I V  S1(I) T1I : xVM(R,C)ST PLAYER TO MOVE."3MKCMPI : NMKK _M K0 %jMPP }M PP1 PM I MRX(I)I)Q(I) : S1(I)S1(I)d : M(R,C)I : S I  S Q(I) S I T M(R,C) M(R,C) :  ETCE WAS NOT INCLUDED IN THE LIST..." : rQA1M(R,C) : A2M(R,C) : A3M(R,C) : A4M(R,C)4R A1 A2 A3 : );"MAP OF THE GALAXY"VX );"*******************"X  );" A B C D E F G H I J K L"X R2  :2 A3 OJ A1 A2 A3 A4 OL A2 A1 A3 A4 PO A3 A1 A3 A4 IRV  I  : B(P)B(P)(L|S(I,P)S1(I)) : IaV* I  tV/ Q(I) V4 "YOUR CURRENT CASH= $";B(P)(()) : CX(I)( ())M I1I  M RX(I)RX(I1) CX(I)CX(I1) N I1 N M(RX(I),CX(I)) "A NEW SHIPPING COMPANY HAS BEEN FORMED!"}T "IT'S NAME IS ";MX$(I) : S(I,P)S(I,P) : Q(I)T : : : : T A4 M(R,C) :  WR A1 A2 A2A1 $zR A1 A3 A3A1 $R A1 A4 A4A1  );R2; : C2  : " ";X (L$,M(R2,C2),);" "; : C2 : : R2XX$F1A1 Y% F1 F1Y&F2A2@PQ A4 A1 A2 A3 _PT I :  : : P$(P);P^ ", HERE ARE YOUR LEGAL MOVES FOR THIS TURN:"PhV> "BUY HOW MANY SHARES OF ";MX$(I);" AT $";S1(I) : );VH "YOU NOW OWN ";S(I,P);VR R3$ )WT (R3$,)"M" R3$" .N I1  BN  Q(I1) TLN I1 N M(RX(I),CX(I)) M(RX(I),CX(I)) TN M(RX(I),CX(I)) A1 S1(I)S1(I)T A2 S1(I)S1(I)T A3 S1(I)S1(I)U A4 S1(I)S1(I)AU A1 S1 $R A2 A3 A3A2 $R A2 A4 A4A2 $S A3 A4 A3A4 $,S A1 A2 ,Y' F2 F29Y(F3A3 KY) F3 F3XY*F4A4 jY+ F4 F4Y,TQ(F1) : T1F1 Y- Q(F2)Q(F1) TQ( I  : RX(I);(M$,CX(I),);" /"; : I : Pr "WHAT IS YOUR MOVE";R$ Qs (R$,)"M"  : ^.Qt (R$," :  : >VWW (R3$,)"S" R3$"" :  : >nWXR3(R3$) : R3$""W\ R3S1(I)B(P) pWf "YOU ONL M(RX(I),CX(I)) TN"A1M(RX(I),CX(I)) : A2M(RX(I),CX(I))O,A3M(RX(I),CX(I)) : A4M(RX(I),CX(I))6O6 A(I)S1(I)d : Q(I)Q(I) : M(R,C)IzU A2 S1(I)S1(I)d : Q(I)Q(I) : M(R,C)IU A3 S1(I)S1(I)d :& F2) : T1F2Y. Q(F3)T TQ(F3) : T1F3Y8 Q(F4)T TQ(F4) : T1F4YB F1T1 A1 V ZLXF1 : &ZV F2TW`J "THE OBJECT OF THE GAME IS TO AMASS THE GREATEST AMOUNT"`O "OF MONEY. THIS IS ACCOMPLISHED BY ESTABLISHING VAST,"` ,^7 F4 F4`^<S1(X)d : Q(X) : I P1 : S(X,I) : Iw^K : : : : ^PM(R,C)T1^Z^x "THD OUTPOST, OR AN EXISTING SHIPPING LANE, THIS" e "SPACE WILL BE DESIGNATED WITH A '+'. HE WILL THEN PROCEED"=e "WITH ST);K\X1 : I1 P1 : X1X1S(X,I1) : I1W\ 5);\ " $";( ((S(X,I)X1)S1(X))) : I\  I P1 : S(T9X12 MATRIX"b "(ROWS 1-9, COLUMNS A-L). THE PLAYER, AFTER EXAMINING" c "THE MAP OF THE GALAXY TO DECIDE WHICH SPACE HE1 A2 j7Z`XF2 : PZj F3T1 A3 ~aZtXF3 : zZ~ F4T1 A4 ZXF4 : ZZ T "INTERSTELLAR SHIPPING LANES, AND PURCHASING STOCK IN"aY "THE COMPANIES THAT CONTROL THOSE TRADE ROUTES. DURING"Oa^ E STOCK OF ";^ MX$(T1);" HAS SPLIT 2 FOR 1!" : S1(T1)(S1(T1))^ : : : : #_ I1 P1 : S(T1,I1)S(T1OCK TRANSACTIONS, AS LISTED BELOW.":{e " 2. HE CAN ADD TO AN EXISTING LANE- IF HE SELECTS A"e "SPACE THAT IS ADJACEN1,I)S(T1,I)((S(X,I)))\B(I)B(I)( ((S(X,I)X1)S1(X))) : I] I  : J  ']  M(I,J)X WISHES"\c "TO OCCUPY, RESPONDS WITH THE ROW AND COLUMN OF THAT"c "SPACE, I.E., 7E, 8A, ETC. THERE ARE FOUR POSSIBLE" MX$(X);" HAS JUST BEEN MERGED INTO ";[ MX$(T1);"!" : "PLEASE NOTE THE FOLLOWING TRANSACTIONS : "8[ : );"OLD STOC"THE COURSE OF THE GAME, STOCK APPRECIATES IN VALUE AS"ac "THE SHIPPING COMPANIES BECOME LARGER. ALSO, SMALLER"ah "COMP,I1) : I1)_;_ ( ) : u_ "STOCK";);"PRICE PER SHARE";2);"YOUR HOLDINGS"_ I3  _ S1(I3)d T TO ONE - AND ONLY ONE EXISTING"e "SHIPPING LANE, THE SPACE HE SELECTS WILL BE ADDED TO"7f "THAT SHIPPING LANE AND WIL M(I,J)T11]# J,Ik]%A1M(R,C) : A2M(R,C) : A3M(R,C) : A4M(R,C)x]&F1A1 ]' F1 F1](F2A2 c "MOVES A PLAYER CAN MAKE."::cc c c "PRESS RETURN TO CONTINUE";X2$d d Z1$Gd " 1.K = ";MX$(X);" NEW STOCK = ";K[ MX$(T1) : [ "PLAYER"; );"OLD STOCK";);"NEW STOCK";");[ " TOTAL HOLDINGANIES CAN BE MERGED INTO LARGER ONES, AND STOCK"bm "IN THE SMALLER FIRM IS CONVERTED INTO STOCK IN THE",br "LARGER ONE AS_ MX$(I3););S1(I3);2);S(I3,P)_ I3 : __@ Z1$`E " STAR LANES IS A GAME OF INTERSTELLAR TRADING."L BE DISIGNATED WITH THE FIRST"xf "LETTER OF THE COMPANY THAT OWNS THAT LANE. IF THERE ARE"f "ANY STARS OR UNATTACHED ]* F2 F2]-Q(T1)Q(T1)Q(X) : S1(T1)S1(T1)S1(X) ]0 S1(T1) x]2F3A3 ^3 F3 F3^4F4A4 HE CAN ESTABLISH AN UNATTACHED OUTPOST- IF HE"d "SELECTS A SPACE THAT IS NOT ADJACENT TO A STAR, ANOTHER"d "UNATTACHES";5);"BONUS PAID"[ I P1 : P$(I); );S(X,I););((S(X,I)));\ ");S(T1,I)((S(X,I)) DESCRIBED BELOW.":ibw "EACH TURN, THE COMPUTER WILL PRESENT THE PLAYER WITH"b| "FIVE PROSPECTIVE SPACES TO OCCUPY ON A ' OUTPOSTS ALSO ADJACENT TO THE"f "SELECTED SPACE, THEY, TOO, WILL BE INCORPORATED INTO THE"7g "EXISTING LANE. EACH NEW "THE DEFUNCT COMPANY IS EXCHANGED FOR SHARES KN THE"m "SURVIVOR ON A RATIO OF 2 FOR 1. ALSO, EACH PLAYER"m "IS PAID A PLAYER"Zkg "SELECTS A SPACE ADJACENT TO TWO EXISTING SHIPPING"kl "LANES, A MERGER OCCURS. THE LARGER COMPANY TAKES OVER COURSE OF HIS TURN BY RESPONDING WITH 'STOCK'"r! "TO AN INPUT STATEMENT. LIKEWISE, HE CAN REVIEW THE MAP"Dr! "OF THE GADJACENT TO AN EXISTING SHIPPING LANE. IF HE"i0 "ESTABLISHES A NEW SHIPPING LANE, HE IS AUTOMATICALLY"i5 "ISSUED 5 SHAREK KN ANY OF THE ACTIVE COMPANIES ON THE BOARD."p "STOCK MAY NOT BE SOLD, BUT THE MARKET VALUE OF EACH"Bp "PLAYER'S STOCSQUARE ADJACENT TO A STAR ADDS"xg "$500 PER SHARE, AND EACH NEW OUTPOST ADDS $100 PER SHARE"g "TO THE MARKET VALUE OF T CASH BONUS PROPORTIONAL TO THE PERCENTAGE"n "OF OUTSTANDING STOCK HE HELD IN THE DEFUNCT COMPANY.":n "NOTE: AFTER A CO THE"kq "SMALLER COMPANY - (IF BOTH COMPANIES ARE THE SAME SIZE"lv "PRIOR TO THE MERGER, THEN THE SURVIVOR IS DETERMINEDLAXY BY TYPING 'MAP' TO AN INPUT STATEMENT."Lr !:Vr! `r! Z1$tr!:::::::r ! );"** GAME ENDS AFTER 48 MS KN THE NEW COMPANY AS A REWARD. HE"i: "MAY THEN PROCEED TO BUY STOCK IN ANY ACTIVE COMPANY,"6j? "INCLUDKNG THE ONE JUSK IS TAKEN INTO ACCOUNT AT THE END OF THE"p "GAME TO DETERMINE THE WINNER. IF THE OARKET VALUE OF A GIVEN"p "STOCK EXCHE STOCK OF THAT COMPANY."g :g g Z1$ h " 3. HE MAY ESTABLISH A NEW SHIPPING LANE- IF THERE"Ih "ARE FMPANY BECOMES DEFUNCT THROUGH THE"sn "MERGER PROCESS, IT CAN REAPPEAR ELSEWHERE ON THE"n "BOARD WHEN, AND IF, A NEW COM BY"^l{ "ALPHABETICAL ORDER OF THE TWO COMPANY NAMES - THE EARLIER"l "SURVIVES). THE STOCK OF THE SURVIVING COMPANY IS"OVES **"r%!:::r*! "PLAYER WITH THE GREATEST NET WORTH AT THAT POINT IS THE WINNER."r/!:s4! W : Ws9!QT FORMED, AS DESCRIBED BELOW."rjD "THG MARKET VALUE OF THE NEW STOCK IS ESTABLISHED BY"jI "THE NUMBER OF STARS AND OCCUPIEEDS $3000 AT ANY TIME DURING THE GAME, THAT"q "STOCK SPLITS 2 FOR 1. THE PRICE IS CUT IN HALF, AND"@q "THE NUMBER OF IVE OR LESS EXISTING SHIPPING LANES ESTABLISHED,"h "THE PLAYER MAY, GIVEN THE PROPER SPACE TO PLAY, ESTABLISH"h! "A NEWPANY IS ESTABLISHED."n :n n Z1$ o " NEXT THE COMPUTER CDDS STOCK DIVIDENDS TO THE PLAYER'S"Lo "CASH l "INCREASED IN VALUE ACCORDING TO THE NUMBER OF SPACES"m "AND STARS ADDED TO ITS LANE. EACH PLAYERS STOCK IN"Lm s% "THE GAME IS OVER - HERE ARE THE FINAL STANDINGS: "Xs!% s&% "PLAYER"; );"CASH VALUE OF STOCK";!);"CASH ON HAND ";ED SPACES AS DESCRIBED"jN "IN #2 ABOVE."jS :jX j] Z1$ kb " 4. HE MAY MERGE TWO EXISTING COMPANIES- IF ASHARES OWNED BY GACH PLAYER IS DOUBLED."Fq q "NOTE: THE PLAYER MAY LOOK AT HIS PORTFOLIO AT ANY TIME"q "DURING THE SHIPPING LANE. HE MAY DO THIS BY OCCUPYING A SPACE" i& "ADJACENT TO A STAR OR ANOTHER UNATTACHED OUTPOST, BUT"Ei+ "NOT AON HAND (5% OF THE MARKET VALUE OF THE STOCK IN HIS"o "POSSESSION), AND OFFERS HIM THE OPPORTUNITY TO PURCHASE"o "STOC( s0% 2);"NET WORTH" : s:% I P1 : J  : D1(I)D1(I)(S1(J)S(J,I)) : J,I+tD% I P1 : P$(I); );"$";D,7,1,10^N 7,6,7,3,13,6,6,2,10,7,6,7,3,13,14,10,8,6,5,3,14,6,6,2,10N 8,6,5,3,14,6,7,1,10,9,6,3,3,15,6,16,1,1N 9,6,3 A1: T$(I);: I: PDL A1< NL LX 60,1,12,26,9,12,3,8,24,17,8,4,6,23,21,6,4,6,22,12,5,6,5Lb 4,6,2OG **JnJx "SIZE OF MANDALA IN INCHES "; J SJ S8SJS S  "K "MANDALAS CAN BE BETWEEN 1 AND HE GREAT AMERICAN ARTIST, ROBERT INDIANA."J "HIS GREATEST WORK WILL BE REPRODUCED WITH A MESSAGE OF"J( "YOUR CHOICE UP 1(I);!);"$";B(I);`tN% 2);"$";D1(I)B1(I) : D1(I) : B1(I) : IytX% "ANOTHER GAME";R$ t]% (R$,)"Y" Ftg%,3,15,6,15,2,1,10,6,1,3,16,6,14,3,1,10,10,16,6,12,5,1N 11,8,13,27,1,11,8,13,27,1,60O I  : : I: "MENU",31,11,8,6,4,4,6,21,10,10,5,4,4,6,21,9,11,5,4Ll 4,6,21,8,11,6,4,4,6,21,7,11,7,4,4,6,21,6,11,8,4J InJ:A$"00000": " INPUT A 5 DIGIT GUESS ";A$J " NO. GUESS RIGHT 2C3G1G2)7N X3 LN Q Q ]N FOUND EDGEgNX1SpNX2XyNX3N .N (C$,Q,);(:: "END OF GAME. YOU LOSE, DUMMY. THE CODE WAS ";L "! ";X$();X$();X$();X$();X$()M8M:: "*****  RIGHT"J " POSITIONS NUMBERS"J W  J W : "K 0);"GUESS";:A$"0C$,Q,);N XN NYN  NS8;F8;C8;F9;C9;C7 O }, : "WOULD YOU LIKE ANOTHER ONE";: I$O( I$"Y"  YOU WIN IN "; W;"GUESSES":WM:"WANT TO TRY AGAIN ";A$pM (A$,)"Y" dM:"SEE YOU LATER..."M "MENU" * ILQI C$(),G(,),D$( ),Q$( , ),D4( ),D9(j)I S2(,):Q$"?"-J S.R. SENSORS,L.R. SENSORS,PHASERS,PHOT!Pg/Psa:F>PA2NPT1ύ(#]PA2rPG(Q1,Q2)LQP:A2PA2P,@,Y,s3N :FBN  :FPN:F^NA:FlN#:FzN-X:FNF:J3FNKA2AMAGED."TD4()TS4ϑ"*** SHIELDS KNOCKED DOWN."TS4TE1E1H4TLUA3ώUE1'U"P4(Xd)dNL(I :D$(I)::I:C$(I):yL+I:T$(I)::I:S$(I)::IL,C2$(I)::I:C5(I): ON THE ";S5$;" FROM ";RJ6K4(L):J7K5(L)RQ$(J6,J7)"K"ϑ"KLINGON AT"; SQ$(J6,J7)"C"ϑ"COMMANDER AT";SJ6;"-";ON TUBES,LIFE SUPPORTgJ WARP ENGINES,IMPULSE ENGINES,SHIELDS,SUBSPACE RADIOJ SHUTTLE CRAFT,COMPUTER,TRANSFER PANEL,ABANP:FP::"ANOTHER GAME ";A$P(A$,)"Y".P( ): "MENU" Q(C3)(J4)ύ>QK3NLG(Q1,Q2)NT:FN_2:J3FNaNx6:FNфOJ3F OO!N:J3dP2S36U,J5J`U6"ENEMY ATTACK--SHIELDS REDUCED TO ";iU@rUJ"ENERGY LEFT:";S(E1);" SHIELDS ";UTL.]:S7$()"":S7$()" ":S7$()" ":S7$()""LFA2MKJ4:T1:"COMMAND";A$:(A$)n#MP"2 LETTERS, PLJ7+S H4H2H2H48SH3H3H4`SH4(S8)(())S(N4(H4(d()))S2"*** CRITICAL HIT--DON,CHART,COMPUTERJ DAMAGES,DESTRUCT,DOCK,IDLE,IMPULSE,LRSCAN,NAVIGATE,PHASERS,QUIT3K SHIELDS,SOS,SRSCAN,STATUS,TORPEDO&QA2ώ2QP2I8;QJ5AQ$WQ.C5$"DOCKED"jQ8H2:H3:C6QBS9C6()QLA3QVF+O:F>Oe:J3FMOA2`O:S9:FnO*:F|OJq:FO!::FO' R:JS4ϑ"UP,";U^(S4)(D4())ϑ"DOWN, ";UhD4()ϑ"DAMAGED, ";Ur(P4);"%" V|(H2)(H3)&VJ8(HEASE.":K/MnILMxA$(C$(I),(A$))RMtM"ILLEGAL !! - USE THIS LIST"M:IMC$(I); );C$(";S<K9SFW4N4SPJ9( ())SZC5(W4)J9SdE3(H4D5)(N4(K()))TnJ9E3E3TsD4(J9)D4(J,TRANSFER,VISUAL,WARP,SHORTvK MEDIUM,LONG,BEGINNER,NOVICE,SENIOR,EXPERT,COURSE,WCOST,ICOSTK PEFFECT,SCORE,OUTK 10.LK3Q`K6(L)QjA3QtD6LL|()Q~H4K6(L)D6K8(L)Q(S4)(S9)RP3L}:P2S3P3P33F:O@y:J3FOIA2ONG(Q1,Q2)LQFOSOYJ3FP[A2PbG(Q1,Q2)LQF3()uz)4VJ8:VV"---> 'SICKBAY TO BRIDGE. WE SUFFERED ";J8;"CASUALTIES IN THAT ATTACK"VC4C4J8VI););C$(I); );C$(I)M::FMI,,,,#,-,F,_,x,$NI ,,,,,!,'9)E3+TxW47TVW4KTJ9C5(V)RTV^TK9K9jTK9ϑyT " AND ";TD$(J9);TW4T " D5,12,1.5,9,0,3,7.5,6,4.5K A(X)((X)): B(X)( (X))K D(X)X<(LR(X)(X ) :S(X)P2S30RH5P3C6H4ARH5S3H5S3WRS3S3H5:H4H4H5yR(P3L})(H4 #yE1)RJ5RR(H4);"UNIT HIT+ VF9V':V"*** KLINGONS ATTACK-- STARBASE SHIELDS PROTECT THE ";S5$VW4K3WK8(W4)K7(W4)WW4...STAND BY...."4]J()X]D5S8:I2(L2())g]I2I2q]R3I2}]I5L2]R5I5]R7(S8(S7$(((G(I,J))));(G(I,J));O[: G(I,J)LQϑ" ***";X[D X i[N S2(I,J)LQ;w[X J::I:[v "THE ";S5$;" IS CURRENTLY I"COURSE IS";S(D2);" FOR A DISTANCE OF";aS(D1);"QUADRANTS.": b"ENTER DISTANCE AND WARP FACTOR";D1,A4b(D1))"YJ4+Y34Y` EYW1()RYW2W1W1bY P2@E1~Y D6P2(W1W1W1(S4))Y D75()Y$ _eA3_fA3A3 Q1Q2_gA3A3_iK(A3 )_j(K)(K)f`kC6()K:K(A3C6() )#`l(K"W&`m:2W:J4TW"*** RED ALERT! RED ALERT!"W"*** THE ";S5$;" HAS STOPPED IN QUADRANT CONTAINING SUPERNOVA"))S8L}L}]R7L~R7R7L}]I1(R7I5)]R1I1^I4(S8}I1()) ^&R2I4^0I3(I1N (";Q1;"-";Q2;")"[ [( )[S8:L2["MISSION DURATION...: ";[A$[ I\A$(T$(I),(A$))6/bC7D1A4A4A4NbT1( D1)((A4A4)'p)~b"IT WOULD TAKE";S(T1);"STARDATES AND USE"bR(C7);"UNITS OF ENED1D6Y. D6D7D1D7Y8 T1 D1W2YB D2 ()YL J4YV ĆY` J4 Yj F9Zt 'Z~ Z R1ώZ)(K)f;`mC6()K:A4A4K`nK(A4d)a`o(K)(K )f`pC6()C6()(K) :K(A4Kd)`q(K)(KW "*** AUTO-OVERRIDE ATTEMPTS TO HURL ";S5$;" TO OTHER QUADRANT"W S2(Q1,Q2)W*PFX4D4() X>*XH"WARPI4)I5(^:R4I3.^D@^D4( )Z^" COMPUTER DISABLED"`^^"----COMPUTER ACTIVE----"^"PROGRAM NAME";B$ \IT\""WOULD YOU LIKE A SHORT, MEDIUM OR LONG GAME";]\,f\6L2I\@"ARE YOU A BEGINNER, NOVICE, SENIOR OR EXPERRGY (";R(C7C7);"IF SHIELDS ARE UP)"bb""ENTER DISTANCE...";D1b,D1 c6C7D12:T1D1L=c@"IT W F9&Z ',Z YZ :" 1 2 3 4 5 6 7 8"Z " --- --- --- --- --- --- --- ---"Z IZ I; )f`rC6()C6()(K) `sXQ1((S6) )C6():YQ2((S7) )C6()atD1:D2:(X)(Y)auD1(XXY ENGINES DAMAGED."WX\:"TRYING TO ENGAGE IMPULSE ENGINES..."hXfD4()Xp"IMPULSE ENGINES DAMAGED."XuF9Xz^I^B$(C2$(I),(B$))^^"VALID PROGRAMS ARE:"_" COURSE WCOST SCORE" _" PEFFECT ICOST ";\JA$\TI\^A$(S$(I),(A$))|\hI\r@\|S8I:MRI]"ENTER MISSION PASSWORD...";X$:(]".OULD TAKE";R(T1);"STARDATES AND USE"WcJC7;"UNITS OF ENERGY"`cTc"ENTER PHASER RANGE IN QUADRANTS";A3cA3" ";Z JZ (S2(I,J)) , ,& Z " .1.";Z X Z " ...";Z X [& S2(I,J)LQN 7[0 G(I,J)LQϑY)AavXZ7(Y)(I((YX)))YawXZ7(Y)ImaxXZ7(YX)a}D2 Z7Evt:D2 D2D2 a'XXP2@E1XD6ny(P22)XD75()XD1D6XD6D7D1D7 YT1D1LYD2 (T OUT")_I_ IZ,,",,,Dt_Z "ENTER QUADRANT AND SECTOR - ";A3,A4_d(A3(A3))(A4(A4))f, cA3A3 :C7(fffA3)dc"PHASERS ARE ";((C7),);"% EFFECTIVE AT THAT RANGE"cdYddDHdfRX6D3+j#L =j#D4(L)$Oj$D4(L)D4(L)Rdj $D4(L)D4(L)vj $D4(L)$j $:"DAMAGE CONTROL- ";D$(L);-hTJ|Vh^" DEVICE"; );"-REPAIR TIMES-"zhh);"IN FLIGHT DOCKED":Jh|" ";D$(I););S(D4(I)(R3)$n$IR3:JR2:(B2(I)C1(J))(B3(I)C2(J))$n$J:In$F1()D0()o$F1()I:(#3o$F2)d)fFK3Hf$(K4(F)A5)(K5(F)A6)8Of.F[f8K3K3ifBFK3jufLGFK3fVK4(G)K4(G):K5(G)K5(G):K6(D4())(S3)^$lY$"(SHIELDS NOT CURRENTLY USABLE.)"l[$h$l^$glc$S9lh$PFmm$F1()D0T1@(I5R2)"FORMAT IS MN,XXYY...WHERE MN IS THE QUADRANT"|dg"AND XXYY IS THE SECTOR...E.G. 64,0307 REFERS"dh"TO QUADRANT 6-4, SECT" NOW OPERATIONAL."j$Lj$Mώj"$T1T1X6j,$M@$,K$,|$,$,%j@$X2:Y2:xikE$F1()D0I5(()));!);S(D3D4(I))hIhJϑ" - ALL DEVICES FUNCTIONAL -"hh(#M:D7D0T1:L i<#F1(L)D7P#iF#ML:D7F11()I:F1()I:(#Io$B4B2(I):B5B3(I)bo$(B4Q1)(B5Q2)$}o$F1()D0()o$F1()F1()I5(G)K6(G)f[K7(G)K7(G):K8(G)K7(G)f`GgjK4(K3):K5(K3):K7(K3):K8(K3):K6(K3) gtgXC5$"DOCK(())(mn$(#=mr$F1()I:(#wm|$D9()D0:D9()R1:D9()R2:D9()R3:D9()R4:D9()R5m~$D9()S1:D9()B1:D9()K1:DOR 3-7."dk dpT2$"C"dzC3:"*** COMMANDER AT";eFR2:(C1(F)Q1)(C2(F)Q2)eF8eC1(F)C1(R2+kF$G(Q1,Q2)LQώ4kG$(#BkK$R2r$XkL$C5$"DOCKED"m$mkM$I(()R2)kN$Y6(C1(I)Q1)(C2(I)Q2)kO$Y6(L)"iP#L5iZ#X6D7D0:D0D7Lid#R4R4(R1R2)X6`in#R5R4(R1R2)nix#R5#wi#F9i#'i#i#(D4())(C(())o$D4()(#o$:" CAPTAIN, THE STARBASE IN";B4;"-";B5;"IS UNDER ATTACK-".p$" AND CAN ONLY RESIST UNTIL STAED"-gbB6lTgg((S6B6))((S7B7))xglS5$;" NOT ADJACENT TO A BASE."~gvgC5$"DOCKED"g"--9( )K2m$I:J:D9(I(J) )G(I,J):J:Im$IKT:D9(I)C1(IJ):n$IU^:D9(I)C2(IT):,n$I_):C2(F)C2(R2):C1(R2):C2(R2)PeR2R2:F1()IveR2F1()D0(I4R2)(())eK2K2ee"*** KLm$kP$Y6(Y6):T1 6~Y6kQ$:"*** ";S5$;" CAUGHT IN LONG-RANGE TRACTOR BEAM--"lR$Q1C1(I):Q2C2(I)lS$S6B():S7B5$"DOCKED")#i#(L1X6)(D4()L1)#i#F9:'i#i#L1L1X6i#D4()X6L1J1j#RX6j#C5$"DOCKED"RDATE";R(F1());"!!!" DOCKING COMPLETED"gE1I7:S3I8:T4I9:L1J1gg"CAPTAIN, WE'RE ALREADY DOCKED!"g hAJ::I hJD4(I)c:D9(I)B2(I^):Jn$Idh:D9(I)B3(Ic):bn$D9(i)B4:D9(j)B5n$S0:F1()D0I5(()):(#n$(R2)INGON AT";eK1K1eA5;"-";A6;"DESTROYED."eQ$(A5,A6)".":R1R1eR1ώfR5R4(R1R2)fG(Q1,Q2)G(Q1,Q()TlT$"PULLED TO QUADRANT";Q1;"-";Q2;", SECTOR";S6;"-";S7zlU$R6ϑ"(IDLE PERIOD CANCELLED)"lV$R6lW$S4h$lX$- 2)(R3)(#p %K(G(B4,B5)d):G(B4,B5)Kd (#p%IR2:(C1(I)B4)(C2(I)B5)0%q&%:(##q0%S2(B4,B5)'" IMPRISONED FOR LIFE"dw'"YOUR LIFE SUPPORT RESERVES HAVE RUN OUT, AND"w'"YOU WILL SOON DIE!!!"w'w'"YOUR STARSHS8j':u`'"PROMOTES YOU.....";Xue'S8ϑ"TO NOVICE CLASS!"vuf'S8ϑ"TO SENIOR CLASS!"ug'S8ϑ"TO EXPERT CLASS!"uhNFAVORABLE TO THE FEDERATION.":n({i("THE FEDERATION WILL BE DESTROYED!"{n(Y:(|s("SINCE YOU TOOK THE LAST KLINGON WI2(I)B2(R3):B3(I)B3(R3) CAPTAIN, WE'RE ALREADY DOCKEDS STARDATE";R(D0):s'F9)',',',',',',',(s'F9 (,(,-(!t)'"YOU HAVE DESTROYED THE KLINGON INVASION((S5$,)"F"S5$""UzK((S5$,)"E"S5$"FAERIE QUEENE"^zL(A1lzP(R1s(zU(G3R4I3:B8(R1R2)(I1I4)zV(A3%q]%qb%K6(I)2()(#ql%Q$(B6,B7)".":B6:B7qv%hBr%:"CAPTAIN, I BELIEVE THE STARBASE HAS BEEN DESTROY."#x'<()x'\x'"YOUR STARSHIP HAS BEEN DESTROYED BY A NOVA."}x'"NICE WORK, IDIOT !!!":<(x("THE ";S5$;" HAS BEEN"TIME HAS RUN OUT - THE FEDERATION HAS BEEN CONQUERED AND YOUR CRAFT"v'"IS NOW ENEMY PROPERTY... YOU WILL STAND TRIAL AS A !"|+| +D4()+|+"SUBSPACE RADIO DAMAGED...CANNOT TRANSMIT.":|+R3*+!} +"CAPTAIN, NO RESPONSE FROM STAR FLEET":Pt.'" ***THE FEDERATION IS SAVED***":G1ht3'(A1)(B1)~'t8'(S5$,)"E"~'t='S1#N1C4dG3B8zW( A3()i(zZ("AS A RESULT OF YOUR ACTIONS, A TREATY WITH THE KLINGON"2{[("EMPIRE HAS BEEN SIGNED. THED"$r%%>r%(R3)(D4())%Dr%r%"--> STARFLEET COMMAND REPORTS THAT STARBASE IN QUADRANT";B4;"-";B5r%"HAS  INCINERATED BY A SUPERNOVA."x(<(y ("YOU HAVE BEEN CAPTURED BY THE ENEMY. IF YOU STILL HAD A STARBASE,"Qy("YOU WOULD WAR-CRIMINAL..."v'"ON THE BASIS OF YOUR RECORD YOU WILL BE";v'R1I1'w'" SUMMARILY EXECUTED"w'A1:Y:0wBASE !":7}*+N1N1:B6>+@}4+z+M}>+D1I|}H+LR3:X ((B2(L)Q1)(B3(L)Q2))}R+XD1f+}\+D1X:KL~'tB'D0J2['tL'R8L}S8(S8)L}tQ'(K1K2)(D0J2)R8~'u[':"YOU HAVE DONE SO WELL THAT COMMAND" u\'E TERMS OF THE TREATY ARE"F{\(A3()d(l{_("FAVORABLE TO THE FEDERATION.":{`("CONGRATULATIONS.":n({d("HIGHLY UBEEN DESTROYED BY ENEMY COMMANDER !!"r%G(B4,B5)G(B4,B5) r%R3& s%IR3:(B2(I)B4)(B3(I)B5)%s%0s%BHAVE BEEN REPATRIATED. SINCE YOU HAVE NO BASES, YOU WILL"sy("BE MERCILESSLY TORTURED !!"|y(<(y(:"THE ";S5$;" IS NOW . }f+L}p+Q1B2(K):Q2B3(K):PF}z+Q$(S6,S7)"."}+~+"STARBASE IN QUADRANT";Q1;"-";Q2;"RESPONDS --";'~+" ";S5$;" D:*T3T1D1L9^3T1R53}h3"SIR, MAX. SPEED UNDER IMPULSE IS ONLY 4 SECTORS PER STARDATE"r3"-- AUTHORIZE ";B$T ITS FIREPOWER !!!"2/C/K6(N)K6(N)M/NNT/KZ/c2J3u2D4()32E1K32"ENTER COURSE));S6X1:S7Y1 ;F4S6:F5S7Ԉ ;Q$(X1,Y1)"O";;T2A():T3A();Q1A():Q2A():S6B():S7B():=(K)D6K7(N)1/P3K6(N)O/P(P3):P4H2PPP4H2i/K6(N)P3(P3)(P)&/X8K4(N):Y8K5(N)0/H2D/:/"DED."Z7Ȇd7"LONG RANGE SENSORS DAMAGED."::A5(D2) :D4(A5):D6(A5):B8(D4):(D6)B8B8(D6)5EMATERIALIZES."A~+P2(HzD1)*L~+L^~+Lϑ"1ST ";p~+Lϑ"2ND ";~+Lϑ"3RD ";~+"ATTEMPT TO RE-M3(B$,)"Y"ώ3::J3ń3A2ώ҄3E1E1P3ބ3E1ώ3F9:':3"IMPULSE ENGINES DAMAGED.":6N$....";D22D2 #zD2 ύ@:2Ă22"DISTANCE ";D1:D1222P32D13P3E1T3 3F3"1ST ;"*** SPACE PORTAL ENTERED ***":;x;T6:K2D1T1nw:D1L}((S6X1)(S7Y1));(Q$(X1,Y1)"K")(Q$(X1,Y1)MINOR HIT ON ":N/ǀD/R(H2);"UNIT HIT ON ";؀N/M$Q$(X8,Y8)X/ M$"K"ϑ"KLINGON AT";]/M$"C"ϑ"COMMANDER AT"; b/X:D4D4B8:D6D6B8:T5:T6J:D0T1F1():w:T5:C5$"RED":D1D1(F1()D0)T1L}:T1F1()D0'p:Q$(S6,ATERIALIZE THE ";S5$;". . . . .";~+()P2+~+"FAILS.":L~+F9 :': +L:IB6(())!+(I)(" #"%676D4()d7a6"L.R. SCAN FOR QUADRANT";Q1;"-";Q2:6IQ1:JQ1:KQ2:LQ26MIJ:NKL6OFFICER SPOCK- 'CAPTAIN, THE IMPULSE ENGINES""3"REQUIRE 50 UNITS OF ENERGY TO ENGAGE, PLUS 250 UNITS PER ";,3E1K@3"C"));;:S5$;" BLOCKED BY ";ۉ;Q$(X1,Y1)"*"ϑ"STAR AT";;Q$(X1,Y1)"B"ϑ"STARBASE AT";;" SECTOR";X1;"-";Y1;8;"-";Y82l/K6(N)/Uv/A5X8:A6Y8:T2$Q$(X8,Y8):pd/R1/w/F9:'://K6(N)//()fffS7)".":X7S6:Y7S7:H9( D1B8)χ:H9 ;ۇ:LH9:X7X7D4:X1(X7):Y7Y7D6:Y1(Y7));(I )+8+JB7(())N+(J)(J )+c+Q$(I,J)".",y+L:"FAILS.":+,"SUCCEEDS.":S6I:S7J:Q$((M)(M)76(N)(N)7ׅ6D4( )S2(M,N)7G(M,N)LQ " ***";" ";! 7G(M,N)LQϑ((G(M,N)))ƒ63"QUADRANT. THEY ARE USELESS NOW.'":@3"QUADRANT. WE CAN GO A MAXIMUM OF ";J3R(ny(E12)L|);"QUADRANTS.'""...."V;"EMERGENCY STOP REQUIRED";R(K);"UNITS OF ENERGY."b;E1E1K!;S6(X7D4):F4S6:S7(Y7D6):F5S7/Á/K6(N)(LL())P3/Ɂ//"*** CAPTAIN, THE VESSEL AT SECTOR";/X8;"-";Y8,/" HAS JUST LOSX1)(X1 ).;A;(Y1)(Y1 ).;X;Q$(X1,Y1)"O";p;Q$(X1,Y1)".";w;L;D1L}((S6X1)(S7Y1I,J)(S5$,),X:"CAPTAIN, WE MADE IT!":.P4:L5K3:N.KL5.H3(K)/$.D6fff #z():H2H3);G(M,N);*7(777N$;" ";@(7N:F27M<7M]F7D4( )ώP7"*** WARNING *** - COMPUTER DISABLED - SCAN NOT RECOR/ $;E1;%;F9:':܊);S6X1:S7Y1:U:F4S6:F5S7:;.;K3=;3;LK34;F3((X1K4(L))(Y1K5(L))(P)%?, ?MSBC?(M)(M )?\?(N)p?, ?, ?q?Q$(L,M)"."C?z ?BB%?(PA)(Q)H?*?LRQ$(C,D)"C">.>KD>N:FK6(K)dK3b>FLQN(()K7(K))>((C5$"DOCKED")((B4Q1)(B5Q2)))NS8>FSB():K4(A)S:TB():K5(A)TҕFQ$(S,T)"."F FQ$(S,T)"K":K7(A)((S6S)(S7T)):K8(A)K7(A)$FK6(A)() ):Z2((Y1) )O;"QUADRANT";Z1;"-";Z2;", ";;"SECTOR";X1 (Z1);"-";Y1 (Z2);"'";T5ώ;Q1((INS STRENGTH)"ޓ?K4(K)K4(K3):K5(K)K5(K3):K7(K)K7(K3):K8(K)K8(K3)?K6(K)K6(K3):K3K3:C3?C5$"DOCKED"ύhB)96;K8(L)(F3K7(L)):LP8;G(Q1,Q2)LQύ]:;A2ώ=;X7 (Q1)S6:Y7 (Q2)S7B;X1(X7 D1B8A/?(L)(L )9?ɑ4?(N)p?,>?,>?ޑ9?Q$(L,M)"."C?>?AA:H?C?RL:SMH?L2M?Q$(R,S)"C"#R?(RNN(((F())))>Nώۏ>(N)(K7(K)@)ώ>(N)S8N(N)(S8)>T(N):PS6C:QS7D)>)E:A2FR2F>FAR2]F(C1(A)Q1)(C2(A)Q2)FiFA:FFQ$(S,T)"C":K6(K3)LQ():C3FX1) ):Q2((Y1) )֍;S6X1 (Q1):S7Y1 (Q2);:;;( ):"ENTERING THE QUADRANT (";Q1;"-";Q2;")"?`mG?G(Q1,Q2)G(Q1,Q2)d:G(I,J)G(I,J)dT?L3R2u?(C1(L3)Q1)(C2(L3)Q2)?}?L3?C1(L3)I:C2(L3)J:D4)ƋG;Y1(Y7 D1B8D6):L6ϋL;L5݋Q;X1[;V;X1X1:L5[;Y1j;`;Y1Y1:L5j;X1C)(SD)ώSW?K4(K)R:K5(K)S:K7(K)((S6R)(S7S))\?K8(K)K7(K):Nϑ"*** COMMANDER ADVANCES TO";a?Nϑ"*** CO(P)(Q)P@>(Q)(P)QT>PP(PN)h>QQ(QN)>RC:SD:Q$(C,D)".">L2T:LRP:MSQ`mFU GFUU ޖFB6B():B7B():Q$(B6,B7)"."FGQ$(B6,B7)"B"GhB:Uώ GAU1"GSB():@;Q$(S6,S7)(S5$,):PF:Jq:6:X;Q$(S6,S7)(S5$,)d;L6ώr;K3<~;LK3;F3((F4K4(L))(F?AA:BB:H?̔hBC5$"GREEN":E1LQC5$"YELLOW"|BG(Q1,Q2)cC5$"RED"픆B PFJ4:B6:B7:K3:C3:UG(Q1,Q2):UPt;1o;X1X1:L5At;Y1P~;Sy;Y1Y1:L5a~;L5;o;L6:L;};L6;;:"*** MESSAGE FROM SMMANDER RETREATS TO";˒f?" SECTOR";R;"-";S:`m:p?IQ1((L) ):JQ2((M) ) u?(I)(I)?!z?(J)>(L)(L )>Ȑ>(N)p?,%?,%?ߐ>(M)(M )?>(N)p?,?,? ?Q$(L,M)"."C?"?(QB)TB():Q$(S,T)".""GD,GQ$(S,T)"*":A]6G(T2Q1)(T3Q2)ώ@GSB():TB():Q$(S,T)"."@GJGQ$(S,T)"O":ٗ5K5(L)));K8(L)(K7(L)F3)ˎA:B>KK3>CK4(K):DK5(K)'>rGUnFK3( #zU):A :B :Q$(A,B)".":B:AxFQ$(S6,S7)(S5$,):UG(Q1,Q2):UdFFUUdK3:AK3TARFLEET COMMAND.....STARDATE";R(DO)錝;"PERMISSION TO EXIT GALAXY - DENIED -";"'ENGINES SHUT DOWN AT ";.;Z1((X1(J)?.?L3R2M?(C1(L3)I)(C2(L3)J)?s?L3:"*** COMMANDER ESCAPES TO ";?"QUADRANT";I;"-";J;" (AND REGA0 TG"*** SHORT-RANGE SENSORS DETECT A SPACE-WARP IN THIS QUADRANT"ߗhGrGA :B :Q$(A,B)".":B:A|GQ$(S6,S7)(S&AKT6T7PK=FKB9T6:T6T7:[JHPKKώWZKD1KL}ldKX1X1(X1)nKY1Y1(Y1)xKI(X1)Y1IJX1X1S6H4(M,):Y1Y1S7H4(M,):KK:NK6(V)K6(V) :K6(V)2KۜKN5J5J5H4(M,):N6J6J6H4(M,)K"*** COMMANDER AT SECTOR";J5;"-";J6;"DAMAGED";6K(N5RPEDOS LEFT.":+RC!R"TORPEDO COURSE";C6a&RC6 #zC6 ύ@:0Rl+RJ3:0R"BURST OF 3";B$:N5R(B$,)"N"JB2(V)B2(R3):B3(V)B3(R3)ښJV:R3R3:B6:B7:B1B1:hBJ"*** STARBASE AT SECTOR";J5;"-";J6;"DESTROYED."J7KFUNCTION HAMPERS PHASER ACCURACY.":ONEP1:K3VOhNE:T5(K3(K3))NIK3:H3(I)((K3I)T5)P1NH5(I)QJB9:T6:T7:K:X1:Y1טVJH4(B9,)A5:H4(B9,)A6[JMB9T6:Q:J`JJQND4()RNHN"PHASER BANKS DAMAGED.":pNRNS4\NWN"SHI)(N5 )(N6)(N6 )-K_K" AND BUFFETED TO SECTOR";N5;"-";N6#KQ$(N5,N6)"C":K4(V)N5:K5(V)N6(KK7(V)((S6N5)NR:R(B$,)"Y"0R;RT4DR?R"NO BURST. ONLY";T4;"TORPEDOS LEFT.":+RDR"SPREAD ANGLE (3 - 30 DEG)";G2"E3J(S6J5)(S7J6)JdJ"*** STARSHIP BUFFETED BY NOVA.":S4JvJE1E1LQ:JJS3LQJJD6LQS3:E1E(K6(I))(PfffK7(I))šNH3(I)H5(I)NNEE(H3(I)H5(I)):H3(I)H5(I)NINE8ONIK3:R7H5(I)H3(I)%H4(M,)J;jJ(J5)(J5 )>> ORGANIAN TRUCE-MONITOR DESTROYED <<<":Q$(A5,A6)".":SECTOR";P;"-";Qת>SK4(V)P:K5(V)Q:K7(V)((S6P)(S7Q))?SK8(V)K7(V)CS`m:SHS"DAMAGED, BUT NOT DESTROYED."DESTROYED";$);2K2MR=dZKxZnnZR(N););"KLINGONS PER STARDATE, AVERAGE";}sZ$);KMRxZS1ZZS1;);))RRVRKK6(V):W3 ()بR(K)W3W3(K)RK6(V)K(K)(W3):K6(V)SST2$Q$(A5,A6):p:L)T1J:L:D4()D4()EhVD4()D4()WrVS4:R1ώg|VF9:':YPD0J2:(P)(R1)YYPPY RX4(A8):Y4(A8):B8(X4)ܦR(Y4)(X4)B8(Y4)RX4X4B8:Y4Y4B8:X5S6:Y5S7$RL9:X5X5X4:A5+ST2:T3:S3SL9LS:"TORPEDO MISSED!"TSZ6aSR1ώqSF9:':U:"*** RED ALERT!! RED ALERT!! 2 "STAR(S) DESTROYED";$);S1MRDZZB1ZZB1;);"STARBASES DESTROYED";$);dB1MRZN1Z=ZN1;);"SOS ....";I1E_"NUMBER OF STARDATES...";(I5)f_"NUMBER OF STARBASES...";I2_"STARBASE LOCATIONS....";_II2:B2(I)JLt^B2(I)X:B3(I)Y:S2(X,Y):G(X,Y)G(X,Y) :Iu~^B1:KI1I4:L(S8(L2))^M((())L):MKMKiY:X:i(XQ1)(YQ2)j̼iJ4jiN(()(G(X,Y)(G(X,Y) ) ))"iX3 :Y3 :Q$(X3,Y3 :T4I9@]W1:W2:I :D4(I):~]J2d(()):D0J2:K1:K2:N1:N2:R6:C4]A1:D3:I:TAIN.'"HbeJ3:D4()g˺eS4gg"SHIELDS ARE DOWN. DO YOU WANT THEM UP";B$g(B$,)"Y"ggCALL(S) TO A STARBASE";$);#N1MRKZC4ZyZC4;);"CASUALTIES INCURRED";$);C4MRZMZZM;);"SHIP(;"-";B3(I);_II2ϑ", ";_I::ɸ_PF_:"READY TO CONTINUE";NL$:( ):Jq:6:a"WARP FACTOR";Ka^NdMǶ^XA():YA():G(X,Y)N^붦^G(X,Y)G(X,Y)N:KKM:K^^II4*^XA():YA():(G(X,Y)c))"*"i5iNN:NiAiY3:X3ji:"*** RED ALERT!! RED ALERT!! ***ziX3X2:Y3Y2i"*** INCIPIENT SUPERNOVAJ:S2(I,J):J:Iڴ]F1()D0I5(()):F1()I^F1()D0@(I5R2)(()):I6@^F1()D0Ig"SHIELDS ARE UP. DO YOU WANT THEM DOWN";B$_g(B$,)"Y"geggS4:S9:C5$"DOCKED"E1E12g"SHIELDS) LOST OR DESTROYED";$)dMMRɲZA1ZZ)"PENALTY FOR GETTING KILLED";$);MRZG1[?Z);"BONUS$aK4b2aK >bIaJW1:W1K:W2W1W1ba(W1J)(W1)aqaW1aaW1 ba"'WARP FACTOR";W1;"(()@)^>^G(X,Y)^K^I^u^MI:JM:(C1(J)X)(C2(J)Y)^|^J^G(X,Y)G(X,Y)d:C1(I) DETECTED AT SECTOR";X3;"-";Y3ڽiXQ1:YQ2:K(X2S6)(Y2S7)iK@,j#j"*** EMERGENCY AUTO-OVERRIDE JAMMED ***I5(()):F1()D0I5(())j^I:J:K(()):I6I6K$^G(I,J)K:J:I:S1.^ II28^XS RAISED.":E1ggJ3:gS4:S9:"SHIELDS LOWERED.":J3:g"SHIELDS DAMAGED AND DOWN. ":*g:"SHIELDS CO FOR WINNING ";S$(S8);" GAME";$);LMRp[);"-------------------------------------"[);"TOTAL";$);JMR;"**":]CAPTAIN'":ѹa"*** OUR MAXIMUM SAFE SPEED IS WARP 6": bW1 *bb"*** CAPTAIN, OUR ENGINES MAY NOT TAKE IT !":C*X:C2(I)Y:I^I(D0)::S0߷^T2A():T3A():G(T2,T3)d^x_"STARDATE..............";I _"NUMBER OF KLINGONS":A2:,j5jD4(),joj:"MESSAGE FROM STARFLEET COMMAND...STARDATE";(D0)"j"'SUPERNOVA IN QUADRANT";X;"-";Y;(()):Y(())ǵB^G(X,Y) 8^ԵL^It^V^KI:JK:D1((B2(J)X)(B3(J)Y))`^D18^j^NSUME ALL ENERGY.":gF9:':IxiX2iliN(()I6):X:YiNN(G(X,Y)(G(X,Y) ) ):NiA2:G1::S5$"ENTERPRISE"]I7:E1I7:I8 :S3I8:S4:S9S4:J1:L1J1]Q1A():Q2A():S6B():S7B():I9b"-'AYE, CAPTAIN, WE'LL GIVE IT A TRY.'":r4b"-'WE CAN'T GO BELOW WARP 1, CAPTAIN.'":>b"-'OUR TOP SPEED IS WARP 10, CAP3 'j"....CAUTION ADVISED'"ξ,jNG(X,Y):R(Nd):Q6j(XQ1)(YQ2)Jj@jK3:C3JjRjTjR1R1R:R2j"UP,"8qD4()B$"DAMAGED,"\rB$;(dS3I8);"%":$r{r" KLINGONS LEFT ";R1:$rr" TIME LEFT ";S(R5qIzq,q,q,q,qLuqIq,q,q,r,rozq" STARDATE ";R(D0):$rÄqC5$"DOCKED"ύhBÎq" CONDITIONERGY=";R(E1);" SHIELD ENERGY=";R(S3);")"cyJ3hyT1L}:P5(K3C3)0:P5L}P5L}ryP5()ύ|yAPERNOVA IN QUADRANT";X;"-";Y;"HAS DESTROYED THE"ok"REMAINDER OF THE ENEMY FLEET !!"kF9:':&kA2ώ0kF9::DzuIdh:B3(Ic)D9(I)::B4D9(i):B5D9(j)ǼuF1()D0I5(())uR2F1()D0(I5R2)(())2uF?^jLR2:(C1(L)X)(C2(L)Y)|johjC1(L)C1(R2):C2(L)C2(R2):C1(R2):C2(R2)rjR2R2:RR:Q:R2F1()I)$rI:.r"SHORT RANGE SENSORS DAMAGED.":1u:"*** TIME WARP ENTERED ***":"YOU ARE TRAVELING ";:uS0bu,DuT1 ";C5$:$rØq" POSITION ";Q1;"-";Q2;", ";S6;"-";S7:$rĢq" LIFE SUPPORT ";:D4()qĬq"ACTIVE":$r2ώ)ʆy(#:Jʐy"TRANSFER PANEL DAMAGED.":J3:"HOW MANY STARDATES";Z5:(Z5R5)(K3)"ARE YOU SURE";B$:':`mK3ώjmZ4:OK3:K7(O)K7(O)mtmKK7(O):K7(O)K7(O):K7(O)K~mKK8(O):K8(O)K8(O):K8(O)K1()D0I5(())YuI:J:S2(I,J)S2(I,J)cuJ:Iiuu"SPOCK HAS RECONSTRUCTED A CORRECT STAR C|jLjR3jӿjLR3:(B2(L)X)(B3(L)Y)j jB2(L)B2(R3):B3(L)B3(R3):B2(R3):B3(R3):R3R3jL jI5(())WNu"FORWARD IN TIME";R(T1);"STARDATES."oXuF1()F1()T1:ubuMD0:D0D9()lu"BACKWARD IN TIME.ĶqC5$"DOCKED"qYq"DAMAGED, SUPPORTED BY STARBASE":$rq"DAMAGED, RESERVES=";S(L1):$rq" WARP FACTOR ";(B$,)"Y"ώR6Z5R6R6ώ$T1Z5:Z6Z5.K3L8T1():Z5T1T1Z5BZ6T1!LT;ˆmKK4(O):K4(O)K4(O):K4(O)K_’mKK5(O):K5(O)K5(O):K5(O)KœmKK6(O):K6(O)K6(O):K6(O)K¦mZ4°mOºmHART FROM MEMORY."uPF:yJ3:D4( )y,y"NUMBER OF UNITS TO SHIELDS";Z36yZ3ώ@yE1S3Z3TyMJyX2j>jNG(X,Y)(G(X,Y)d)dgjS1S1(N(N ) ):B1B1(N ){jK1K1R:K2K2Qj(S2(X,Y))(D4())";R(MD0);"STARDATES.":S0vuR1D9():R2D9():R3D9():R4D9():R5D9()ǀuS1D9():B1D9():K1D9():K2D9( )@NJuIR(W1):$rq" ENERGY";); #z(dE1):$rq" TORPEDOS ";T4:$rq" SHIELDS ";:B$"DOWN,":S4B$1Z5ύ.VA2ώE`(#:J3:A2ώWjZ5Z5Z6:nфJ3:D4()ڄ"ENTER COURSE...";D2:D2 #zD2 Z4jmmJqD().rRq:" 1 2 3 4 5 6 7 8 9 10"\qI :I ϑ" ";fqI;:J :Q$(I,J);" ";:J/p"SCOTT HERE- 'WE ONLY HAVE";R(E1S3);"UNITS LEFT.'"SKyTyE1E1S3Z3:S3Z3:"--ENERGY TRANSFER COMPLETE--"^y"(SHIP ENS2(X,Y)LQG(X,Y)j(D4())((Q1X)(Q2Y))S2(X,Y)jG(X,Y)j(R1)((XQ1)(YQ2))&kHj( ):"*** SU:J:G(I,J)D9(I(J) ):J:I^ǔuIKT:C1(IJ)D9(I):|ǞuIU^:C2(IT)D9(I):ǨuI_c:B2(I^)D9(I)4 ύ@:݄܄݄"DISTANCE...";D1:D1ώP(D1L|)W1W1W1(S4):PE1fJ3::"ENGINEERING TO BRIDGE--"SHIP!":Vꈑ"YOU AND THE BRIDGE CREW ESCAPE IN THE GALILEO.""THE REMAINDER OF THE CREW BEAMS DOWN""TO THE NEAREST L+d::A2ώRnE1E1D1W1W1W1(S4):E1bxF9:':}ЂT1 D1W2:Wύ1uЌQ4Ж:"ENGID-ACCEPTED":J I:J);I:r:JJ:":"*****ENTROPY OF ";S5$;" MAXIMIZED*****" ,:K3T16WE1:INING TIME. ARE YOU SURE ";^Ύ "THIS IS WISE";B$:(B$,)"Y"ĆiΘJ3:ĆQ4:W:W1dΆPD1(W1)ZU)(S5$,):C5$"DOCKED"ԀL :D4(L)::D4( ):E1 :I7E1ՊS3:I8S3:T4:I9T4:L1:J1L1:S4:W1:W2Ք5(S4)(PE1) i " WE HAVEN'T THE ENERGY TO GO THAT FAR WITH";" THE SHIELDS UP.": W((E1(D1HABITABLE PLANET.":R3F9:'::"YOU ARE CAPTURED BY KLINGONS AND RELEASED TO"0"THE FEDERATION IN A PRNEERING TO BRIDGE--":" SCOTT HERE- ";Л"'WE'VE JUST BLOWN THE WARP ENGINES.""Ѡ" WE'LL HAVE TO SHUT 'ER DOWN HERE, LK3:K6(L)K7(L)WJZ@A5K4(L):A6K5(L):T2$Q$(A5,A6):paJLrTF9 :':^"PASSWORD-REJECTED"h"CONTIN:P()Q4؆Q4D1()D1W:W1 솋D1()W(Q4)(W)d&A(D2) :X1,աD4( )gժ"COMPUTER DAMAGED - CANNOT EXECUTE DESTRUCT SEQUENCE"mմվ:" ---WORKING---"Ȍ"IDENTIFICL|))*):WR*" WE HAVEN'T THE ENERGY. BUT WE COULD DO IT AT WARP";W4S4H>(H" IF YOU'LL LOWERISONER-OF-WAR EXCHANGE."f&"STARFLEET PUTS YOU IN COMMAND OF ANOTHER SHIP,"0"THE FAERIE QUEENE WHICH IS ANTIQUATED, BUT"CAPTAIN.'";ѥD4()D5(())FѴJ3:eѾ"WARP ENGINES DAMAGED.":ѹ(D4( ))ˆ,ֈ,̈ˆ"YE FAERIE QUEEUITY-EFFECTED"::rK90:MZ:KK:M:׉I :pq:@"---> COURSE(S) .01-12 ONLY !!!":TED"h"CONTIN(A):X2(A)M B8(X1):(X2)(X1)B8(X2)X1X1B8:Y1Y1B8:N( D1B8):XS6:YS7Nd(LATION-POSITIVE"Ҍ"SELF-DESTRUCT-SEQUENCE-ACTIVATED":J܌I :J);I:r:JJ:%挑"ENTER-YOUR-MISSION-PASSWORD THE SHIELDS.":fR" WE CAN'T DO IT, CAPTAIN. WE HAVEN'T GOT THE ENERGY."l\fT1 D1W2:T1LR5Ćp:"MR:"STILL USABLE.":N(()R3):Q1B2(N):Q2B3(N)DS6:S7:PF:Q$(S6,S7)"."IL:S6(()B6)(N(SNE HAS NO SHUTTLE CRAFT.":̈"SHUTTLE CRAFT DAMAGED.":ֈ:"***ABANDON SHIP! ABANDON SHIP!" "***ALL HANDS ABANDON N2XXX1:Q(X):(Q)(Q )d"IMPACT VELOCITY ";(V9);" METERS/SECOND"QH (MN) fQR"FUELame of your selection: ";CHOICE$L CHOICE$"SYSTEM" : CHOICE$;M 5 "That file does not exist. Please re-ent T9,D,V,(MN)5OD R,TFON T bLOO}OP"BURNS LESS THAN 10 SECONDS NOT ALLOWED..."OQ"A 10 SECOND BURN IS WARI, BAGELS, BANNER1, BANNER2JU BLKFRI3, BLACJACK, BLKJK, DECISION, KENO, CHASE, CHECKERS/KZ TTT, CHOMP, WUMPUS, DICE, EG/SEC (VERY STRONG BRAKING)."]MB"MINIMUM BURN TIME IS 10 SECONDS."ME"INPUT---( RATE,SEC )--- A DUAL VALUE INPUT"MJM6  LEFT: ";(MN);"KG."Q\pQf"** FUEL LEFT IS ZERO **"Qp V9~ Rz" PERFECT LANDING !!!"R LrL|B1(P(I,)M)(P(I,)M)L~B2(P(I,)N)(P(I,)N)LD(B1B2)L D ^)M"YOU ARE"(D ) " UNITMMT1R)TDI1TVJ7TJTT1 #y  qTT1D(V(VVD(G(ZRM))))zTPTTTV9(M0 AND 9."J7"THE FIRST NUMBER IS DISTANCE TO RIGHT OF HOME,"K<"THE SECOND NUMBER IS DISTANCE ABOVE HOME."KFIKP"YOU8,R V9 XR" GOOD LANDING, BUT COULD BE BETTER.."aR8sR V9 R" FAIR LANDING"R8RVS FROM MUGWUMP "I1M I=M JRM P(J,)ZM J`MM"YOU GOT THEM ALL IN ";T;" TURNS!"MDM G(ZR))T T1MV(ZR(V9(V9V9VZ)))L|TPT I T(U2J U< V UF GET 10 TRIES. AFTER EACH TRY YOU'LL BE TOLD HOW"oKZ"FAR YOU ARE FROM EACH MUGWUMP."uKdK KTKTTK9 R" MINOR CRAFT DAMAGE"R8RL1R L RL1R L SL1SJS."YOU BLASTT MM"SORRY, THAT'S 10 TRIES. HERE IS WHERE THEY'RE HIDING"M IN& P(I,):/N0"MUGWUMP";I" I!UPII.UZQT1RMBUd QL} nUnJVGT1Z(QQQQQ)UxIDGT1T1VT1ZT1(QQQK""TURN NO. "T;" WHAT'S YOUR GUESS";K, M,NK- Mc K. MK0 NL2 M L4 N ED A NEW LUNAR CRATER";()\}V9);" METERS DEEP"^S3C$(()L1)dS8SB"CARE TO TRY AGAIN ???";SL P$SV P$"YI( )I" * * * MUGWUMP * * *"II P(,)J"THE OBJECT OF THIS GAME IS TO FIND FOUR MUGWUMPS"HJ"S AT";P(I,);",";P(I,)7N: IGN? Mc MNDNX"THAT WAS FUN, WANT TO PLAY AGAIN...(Y OR N)";NZ A$N\ A$"Y" QQ)UUJVGT1Z(QQQ)VIDGT1T1VT1ZT1(QQQ ) VVQ$L6 I7L@P(I,)MLJ P(I,)M |cLT P(I,)N |qL^P(I,)Lh"YOU HAVE FOUND MUGWUMP NO. ";I" P$"YES" P$"OK" YSjSt" | this is control, over and out."S~ "MENU" : SII TT9T9T1TTTT1!THIDDEN ON A 10 BY 10 GRID. HOMEBASE IS POSITION"oJ(" 0,0 (LOWER-LEFT CORNER OF GRID)J2"YOUR GUESS IS TWO NUMBERS BETWEEN 7 bN^ LNb( )Nd"FOUR MORE MUGWUMPS ARE NOW HIDING."Nv O"YOU'RE OFF THE GRID, TRY AGAIN..."O""OW MANY PILES";: P:M PLM P(P)[M PdMM"ILLEGAL PILE NUMBER."::M: IPM"MK"THEN EACH PLAYER IN HIS TURN REMOVES AS MANY"K"STICKS AS HE WISHES FROM ANY PILE -- BUT ONLY"K"ONE PILE, AND ArQoTrQpwQr"ILLEGAL STICK NUMBER."::hQwS(N)S(N)TQyGGTQ|F:R I:V(I): I!RAT'S THAT? PLEASE TYPE 'YES' OR 'NO'":O,"SAME ARRANGEMENT";O1Q$O2Q$"NO"P3Q$"YES"3P6"AWW,COME ONO J.O IFOP(I,J)( ())NO IVO J\ObOBOL:"OK, SEE YOU LATER....."OV "MENU" : "HOW MANY STICKS IN PILE";I;: L(I)M L(I)M L(I)(L(I))ML(I)N&N"ILLEGAL STICK NT LEAST ONE STICK. THE PLAYER"K"WHO TAKES THE LAST STICK IS THE 'WINNER'"L"THIS PROGRAM ONLY ACCEPTS 20 PILES WITH 20" IP/RC(I)S(I)>R EGRI3SRI2E`REqRI3 I3:I2R S(I)E RS2(I)S2(I)I3IZ( )I_ZHId" * * NIM * *"InIx"DO YOU WANT INSTRUCTIONS ";: Q$ J}Q$"YES"J~Q$"NO", IT'S 'YES' OR 'NO'.":1`P;:"%%% YOU WON %%%, PLAY AGAIN";:P@:"PILE NUMBER","STICKS LEFT"PE IPPF S( J.O IFOP(I,J)( ())NO IVO J\ObOBOL:"OK, SEE YOU LATER....."OV "MENU" : UMBER."::.N I:N IPHNS(I)L(I)UNGGL(I)]N IN:"DO YOU WANT TO GO FIRST";N Q$N Q$"YES";L"STICKS PER PILE... MAXIMUM!"qL"A RESPONSE OF'0' TO 'WHICH PILE...' ETC., WILL"L"RESTART GAME WITH SAME ARRANGEMERS(I)S(I)ER ER Y RI3R I2YRYRI3 I3: I2SX(I,Y)(S2(I)I3))SS2(I@J"TYPE 'YES' OR 'NO'.": Q$:}LJ( )J" 'NIM' IS PLAYED BY TWO PEOPLE (I'M ONE) PLAYING"J"ALTERNALTY. BI) JPG I,S(I)PJ IPT:"WHICH PILE DO YOU WANT STICKS FROM";PV NPY NPc QZ N(N)cQ[ NTN Q$"NO"N"TYPE 'YES' OR 'NO'.":N G N FN@O F;5O:"* * I WON * * NT OF PILES & STICKS"L"HAVE FUN !!"L: CONFIG INPUTM X(,),S(),L(),S2(),N2(),C(),S3(),V()+M:"H)S2(I)X(I,Y)I3>SV(Y)V(Y)X(I,Y)FS YNS IVSRfS Y SV(Y)(V(Y))S RSQEFORE PLAY STARTS, AN ARBITRARY"J"NUMBER OF STICKS IS PLACED INTO AN ARBITRARY"K"NUMBER OF PILES, IN ANY DISTRIBUTION.+Q^ S(N)c4Q`hWQc"ILLEGAL PILE NUMBER."::TqQh:"HOW MANY STICKS";yQj TQm TS(N)rQn T(T) DO YOU WANT TO PLAY AGAIN";=OQ$NOQ$"NO""aO Q$"YES",jO 'O":" OK, BE THAT WAY.":0O'"WH8 (P(Z))S X(Q,Y)SX(Q,Y)SRSS X(Q,Y)SX(Q,Y)T TX(Q,Y)T Y!TLOSE YOU GET TO A RANDOM"ZJ"NUMBER SELECTED BY THE COMPUTER":J"YOU OCCASIONALLY WILL GET A JACKPOT WHICH WILL"J"D IP-V?BBS(I)5VD IDVI B;MVN^VX "MENU" :  STICK FROM PILE";Q;"."V+F V-V0X V:LE JEPRODY... LOST HALF YOUR POINTS."LKLP P XMQ P "SORRY YOU'RE OUT OF POINTS,";$MR"YOU HAVE ";( IP-TS2(I)=T Y FTI3RTI2Y_TYpTI3 I3:I2TS3(I)X(I,Y)I3TS2(I)S2(I)S3(OUBLE (!) YOUR POINT COUNT. WHEN YOU HAVE 500 POINTS"J"YOU WIN THE GAME"J :PdJ ZzYK "GUESS A NUMBER FROM P);"POINTS."4MS P \:MTCMU KMX:MZ"! ! * * * Y O U W I N * * * ! ! WITH ";P;"POINTS"M[ dM\I)T YT E TI3TI2ETETI3 I3:I2TS2(I)I3 US(I)S(I)EUS2(I)S2(I1 TO 5"'K G;KR((Z))OKS((Z))cKT((Z))wKU((Z))KV((Z))K GR M] ".....YOU LOST, SUCKER!!!...."Md "TRY AGAIN (Y-N)"; : I$ : I$"Y" Mn "MENU" : NTS"M[ dM\)I3$U E,U  I:U RNUQ(P(Z))_U S(Q):oUS(Q)S(Q)UDC(Q)S(Q)UGGDU D &K GS (K GT 2K GU <K GV FK G  KPPK#PL(PP L-PL2PPPLI:"YOU NOW HAVE 100 POINTS"I"BY GUESSING NUMBERS FROM 1 TO 5, YOU CAN GAIN OR LOSE"1J"POINTS DEPENDING UPON HOW CU!:"I'LL TAKE";D;"STICKS FROM PILE";Q;"."U#+U&:"I'LL TAKE 1 STICK FROM PILE";Q;"."V+F V-V0X V:3KL5" * * * * ! ! YOU HIT JACKPOT ! ! * * * *"QL6ZL7PdL<PPmLAPLFPP(P)LGLH"YOU HIT DOUB9 TO( ):" *** BEGIN LANDING PROCEDURE ***"ZOO"SEC FT VEL. FUEL PLOT OF DISTANCE"OOT OF FUEL WILL SLOW YOUR "_M"" DECENT BY APPROXIMATLY 1 FT/SEC."M6"(3) THE MAXIMUM THRUST OF YOUR ENGINE IS 30 FT/SECut!"S "MENU" : NOTHER MISSION ";A$bSf A$"YES" A$"Y" Sp"THANKS "N$", FOR A GOOD TRY... control oAL"ZK"CONTROL 500 FEET ABOVE A GOOD LANDING SPOT. YOU HAVE A"K"DOWNWARD VELOCITY OF 50 FT/SEC. 120 UNITS OF FUEL REMAQDHVQV1V(B)DQ:"TOUCHDOWN AT";TD;" SECONDS"R"LANDING VELOCITY=";V1;"FT/SEC, ";"R  F"UNITS OF FUEL RT:H:V2:FxOT;);H; );V;);F;O);"|";H );"*"O BO B  P B BP BF  OR"M@" 30 UNITS OF FUEL PER SECOND."MJ"(4) WHEN YOU CONTACT THE LUNAR SURFACE YOUR DESCENT";NT" ENGINE WILL AUIN."KK"SHALL I CONTINUE ";: A$K A$"NO" A$"N" KL"HERE ARE THE RULES THAT GOVERN YOUR SPACECRAFEMAINING."3R V1 *hR "CONGRATULATIONS !!! A PERFECT LANDING...!"R%"YOUR LICENSE WILL BE RENEWED........ LATEI ( )II<" * * * * * * * * * * * * * * * * *"JF" * ROCKET LANDING SIMULATION *"BJP"  BF*PV1VB4P0FFBIP:HH(VV1)ZPD H dPNTTmPXVV1}Pb F Pg B Pl"****TOMATICALLY SHUT DOWN AND YOU WILL"wN^" BE GIVEN A REPORT OF YOUR LANDING SPEED AND FUEL"Nh"(5) IF YOU RUN OUT OF FUELT"RL"(1) AFTER EACH SECOND, THE HEIGHT, VELOCITY, AND"~L" REMAINING FUEL WILL BE REPORTED."L"(2) AFTER THE REPORR."R* (V1) HR/R4" **** SORRY, "N$" YOU BLEW IT !!! ****"$S>"APPROPRIATE CONDOLENCES WILL BE SENT TO N * * * * * * * * * * * * * * * * *HJZgJ_"PILOTS NAME PLEASE..";N$mJaJd"NICE HAVING YOU ON BOARD ";N$", IS T* OUT OF FUEL *****"PT;);H; );V;);F;);"|";H );"*"PBQ 1 SEC TIME CONSTANT.............. Q I NO ADDITIONAL INPUT IS"Nr" ACCEPTED. FROM THEN ON ITS UP TO NATURE !!!"O|"ALL SET TO GO";: A$: A$"NO" A$"N"pT A '?' WILL BE TYPED, ENTER THE"L" NUMBER OF UNITS OF FUEL YOU WISH TO BURN DURING"2M" THE NEXT SECOND. EACH UNIEXT OF KIN."*SHESR"ANOTHER MISSION ";A$bSf A$"YES" A$"Y" Sp"THANKS "N$", FOR A GOOD TRY... control oHIS"Jn"YOUR FIRST FLIGHT ";: A$Jx A$"NO" A$"N" JK"YOU ARE LANDING ON THE MOON AND HAVE TAKEN OVER MANU^: I*Q FQ" *** CONTACT ***"[QHH(VV1)jQ B QD(V(VVH( B)))(B)Q : I"THIS IS A GAME OF **** RUSSIAN ROULETTE ****"I :"HERE IS A REVOLVER."I -Jx "HIT '1' TO SPIN THE CHAMBER A "LP " / / P " / / " P " / / / \\ / " bNB" / /-----------/ " ~NL" ! !" NV" ! !" ############# #"L " # # # # ############## #"M " # # # # # ###########W HIS BRAINS OUT.">L W : WGL OL:L" \\ /\ " L"  #"J< " ### # # #"KF " ## ## ## #"IKP " ND PULL THE TRIGGER."NJ" (HIT '2' TO GIVE UP)"YJ"GO";aJNiJ IzJ I J:" CHICKEN !!!!!  / " P " / / "P& " / / "Q0 " /---------------- N`" \---------/ " NN " /^^^^^^^\ " O " / \ ### #"YM " ## # ### ## # # ############### #"M " ###### ############ ## ############## #"M ! \ /------------------------------''--- " M" ! -/ ------------ ! I" MM"  # ## ## #"KZ " # ###### #"Kd"# # ": ^JNNJ N  JJ(()())J J,J"--CLICK--";J /K," * * * BANG * * -/ ""Q: (Q' " / / "P& " / / "Q0 " /---------------- RO " 1 1 O " 1 R.I.P 1 " O "  " ## # # # ### ############## #"N " ############### ############## #"AN "  / / I ------I !--------------------- " M" /----/ I ------I ! " M$" ##### ######### #"Kn "# ######## ########## #"2Lx "# ##### * YOU'RE DEAD......"cK6 "CONDOLENCES WILL BE SENT TO YOUR RELATIVES."mK:  K; W :WK^:"IS THERE ANOTHERI " #######"I " #### ###"1J "  1 1 " O " 1 1 " P " /============/  # ## ########### #"yN " # # ########## ##"N " ### / ------------ ! " N." / / // / " 8N8"  ########### #"mL "# ############# #"L "# #  VICTIM (Y/N)"Kh Y$Kr Y$ "Y"  K| "MENU"K :"YOU WIN!!!!"K W : W*L "LET SOMEONE ELCE BLO ## #"gJ( " ## ### #"J2 " ################ # # ; ###### ##########"N " ######### ######"O " ## # ####" #"WUv " ### # # ### ### # #"dU ( )yU , : "MENU"U # # # # # ## # # # ##"YS " ## # # # # "S " ### # # ###"S " MY( )M^"THIS IS INITIAL LAYOUT OF THE BOARD WITH PIECES SET UP"MhMr" * X . ."N|" X X . ."&N" # # #"SQ " # # # # #"~Q " # # ## #"Q " #  A"K"PIECE HAS BEEN MOVED, IT CANNOT BE MOVED ON THE NEXT"L"TURN. OK SO FAR ? ANSWER Y OR N ";L A$L A$ IRH U(I)SRU(5I)U(I)S\J)U(G))YJJ1Y G9Y& FAY0KJGY:iYD"THOU SHALT NOT SO MOVE..!!"rYNV{YX6Y]::Yb" * * * ONS 2, 5, OR 6"Pb"3. BLOCK THE COMPUTER'S MEN SO NONE OF THEM CAN MOVE"Pl(Qv"THE CONVERSE GOES FOR THE COMPUTER, OF C7WNA(,M):IA(,M):J:K@WHWIM[WNN1:JJ1:KK1W C(T( ))C(T( ))C(T())C(T())vWT(N)D;UN1N:J1J:I1I:K1KOUIJ:J:KXU`UIMsUNN1:JJ1:KK1UM1M:L1L:J1JUM:LU[-1,-2,0,0,-2,-2,0,0,0,0,2,2,0,0,2,1,1,2,5,6,1,11,12,15,16,16[ "X","*",".","%","A","B","C","D"3\*2,3,3,3.5,3,3,4,5,3 I(Sf I43Sp T(I);Sz IGS ISS X$(I)[S IhS IsS B(I){S IS C(),C(),C(),C(),C(YOU WIN * * *"YlYv6Y{::Y" *[*[* 'I' W I N *]*]*"YZ"DO YOU WANT TO TRY AGAIN ??? (YOURSE, HOWEVER,"fQ"SINCE THE ALGORITHM USED IN PROGRAMMING THIS GAME DOES"Q"NOT LOOK AHEAD, THE COMPUTER WILL NEVER REC8WT(T(J))KWT(N)KWT(T(I))WT(I)NWT(J)NW"MNW,W6W@ IXJ T(I)XT JUMM1:LL1:JJ1U KXU  C(T())C(T())C(T())C(T())XV LVB(L)Y(L)V( L#,4,8,8,3.5,5,8,16,0,0,0,1,19\4S\>"CONTINUE ? (Y,N)";\\H A$m\R A$"N"s\\y\f\p "MENU" : 3,3,4,5,3)S OSY(O)B(O)S OSQ9()S IST(I)T(I)S IT"SHALL I GO FIRST? (Y,N) ";T$ ,N)";&Z Z$7Z Z$"Y"OZ" SEE YOU lATER"UZ^ZpZ1,0,1,0,1,0,1,16,6,2,1,0,2,4,7,1,1,0,3,1,1,0,1,0ZOGNIZE IT IF"Q"IT HAS WON BY BLOCKING YOU INTO IMMOBILITY."R"IN THAT CASE IT WOULD WIN PURELY BY ACCIDENT..."R3R/X^ T(J)I r7Xh JLXr" ";X$(J);UX|lX" ";X$(T(I));X(I)(I)(I )XX = O/ >BO4 "YOU LOST WITH ";J;" TRYS."HO>iO? "TRY AGAIN (Y=YES, N=NO)";rO@ X$OA X$"Y" dOB X$"N" zBB&M CC0M UAM C  JMBBSMCC\MEEeMFFoM UM D  MAA:DD:GGM"* - * - - -"S "- - - * * * - - -"SS "TYPE '0' TO END GAME"ST "TYPE '4' TO GO ON";T ZT "- ";9K E "* ";NK E "- ";aK F "* "uK F "- "K G "* ";K G E STARS."Q "TYPE '2' TO GO ON."Q ZQ "GALAXY MAPS:"QQ "1 * - * 2 * - * 3"R "* * - - - - - *OC "FOLLOW INSTRUCTIONS "OD ?Oz "HOPE YOU HAD FUN"OO "MENU"P INSTRUCTION SUBROUTINEP ( ): UM% E  M&BB:DD:EE:FF:HHM, UM/ F  M0CC:FF:IIN6 UN9 G  ,N:T - -"S "- - - * * * - - -"SS "TYPE '0' TO END GAME"ST "TYPE '4' TO GO ON";T ZT "- ";K H "* ";K H "- ";K I "* ";K I "- ";L E &L ABCDF *"9R "- - - - - - - - -"?R]R "* - - - * - - - *"{R "4 - - * 5 * - - 6"R "* - - - * - - - *I SHOOTING STARS BY TBXI "INSTRUCTIONS (Y=YES, N=NO)";I Z$I Z$"Y" J( START LOOPJdAJeB6P "* * * THERE ARE STARS"UP "- - - AND BLACK HOLES"tP "* * * IN THE UNIVERSE"zPP "1 2 3 YOU SHOOT A STADD:EE:GG:HH6N@ UGNC H  ZNDGG:HH:IIdNJ UuNM I  NNEE:FF:HH:IINUJJGHI )EL ABCDFGHI 4TL "SHOOT";\L YL Y ,,,,%,/,9,C,ML "YOU GA"RR "- - - - - - - - -"R "* * - - - - - * *"R "7 * - * 8 * - * 9"RS "TYPE '3' TO GO ON#JfC,JgD4JhE=JiFFJjGOJkHXJlI`JmJfJJ (J)J ""J A "* ";JR *"P "4 5 6 NOT A BLACK HOLE -"P "7 8 9 BY TYPING ITS NUMBER"P Q "EACH STAR IS IN A GALAXY."0Q "WHEN YNV N  "HEY ! ! YOU CAN ONLY SHOOT"N! "STARS, NOT BLACK HOLES."N" N)O* "YOU WIN WITH ";J;" SHOOTS" VE UP ON ";J;" TRYS !!!!"L >L A  LAALBBLDDLEEL U M B  MAAM ";"S Z@S "PATTERNS TO LOOK FOR:"FSdS "START WIN LOSE"jSS "- - - * * * - - -"S "- * -  A "- ";J B "* ";J B "- ";J C "* ";JJ C "- ";JK D "* ";%K DOU SHOOT A STAR, EVERY-"UQ "THING IN ITS GALAXY CHANGES."{Q "ALL STARS BECOME BLACK HOLES,"Q "ALL BLACK HOLES BECOM> I MODIFIED FOR MBASIC 2/11/79 AEHI ---------------------------------------------------J s t o r yIJ -- . ."#P*P ZP  );"Would you like a newspaper ad (1),"P  );" a western (2),"P  );" ng great, ";NAM$;", there's not much more."INxN  );"How about two first names of men."N );"The first man's namTT "LOST: In the vicinity of ";H$;", a ";A$();" french poodle with"/U A$();" hair and a ";A$( );" tail. It   ?L );"Adjective #";X;" ";KL A$(X)SL XYL_LsL  );"Thanks"L  );"Now I need five adverbs. R> RHRR R\ RfRpRz );"DAILY GRUNT CLASSIFIEDS",S "FOR SALE: 1957 Sedan. This ";A$();"-------------------------------------------------`J( june 16, 1977mJ2 ( )J< );"S t o r y"JF :: a story about the army (3),"P  );" or a waterbed (4).""Q  );"Type the number of the one you woue ";N D$N );"And now the second's ";N E$NO  );"The first name of a woman "; O F$O 8O answers to the name of"vU F$;". When last seen it was carrying a ";C$();" in its mouth."U "A ";A$( );" reward is off They modify verbs and end"L  );"in 'ly', like: Slowly, Greedily."L X  M );"Adverb #";X;" ";M" B$(X car is in a ";A$()tS "condition. It was formerly owned by a ";A$();" school teacher"S "who always drove it ";B$();JP JU @JZ A$( ),B$(),C$( )Jd "First, we will need to know your name ";Kn NAM$Kx "thanks, ";NAM$ld like ";*Q NOQ : "PRINT OR DISPLAY (P/D) ";[Q JUNK$sQ JUNK$ "D" Q JUNK$ "P" QN N );"And someone's last name ";AO G$GOnO&  );"A geographical location ";wO0 H$}O:OD  );"A kind of liquered."UUUUU$U.U8UBULUV  );"AN ADULT WESTERN"U`@Vj "Tex ";G$;", the Marshall)!M, X'M6EM@  );"Thank you, ";NAM$KMJMT  );"Next I'll need 10 nouns! These are names of things, such"M^". There is a ";A$();" ";C$();" in"T "the back seat. It has a chrome ";C$();" on the hood, a ";A$()JT "paint job,VK (); );"O.K. -- We're going to print some stories"K  );"together. You supply the words, I supply the plot."Q N H,$,F,r, , , ,Q );"Want another story ";NAM$;" ";Q QQ$R (QQ$,)"N"   : id ";ON I$OXOb  );"And finally, an exclamatory word or two ";Ol J$OvP  );"Well done, ";NAM$;", now. of ";D$;" City rode into town. He sat"Vt B$();" in the saddle, ready for trouble. He knew that his ";A$()V~ "enemy,  );"as: Insect, Box, Tree, Banana"Mh X  Mr );"Noun #";X;" ";M| C$(X)M XNCN  );"You're doi ";A$();" tires and the back opens into a ";A$()T C$();". Will consider taking a slightly used ";C$();" in trade."TKK  );"First I need eleven adjectives. Adjectives modify"L  );"a noun, like: Red, Dirty, Large, etc."L XDR ::: );"goodbye "; NAM$: "MENU"nR );"Want to use the same words ";xR  QQ$R* (QQ$,)"Y" >R4?  ";E$;" the Kid was in town. The Kid was in love with Tex's" W "horse, ";F$;". Suddenly, the Kid came out of the ";A$();"";C$( );" ********"2]T8]^>]hD]rJ]|u] "Bust-a-Button and Duck Dept. Store"] "Dix Hills, New York"]our ";C$();"s shined, and see that"[ "your ";C$();" is clean at all times, you will be a credit to the "[ "slogan:". THERE IS A ";A$();" ";C$();" IN"b "THE BACK SEAT. IT HAS A CHROME ";C$();" ON THE HOOD, A ";A$()Ib "PAINT JOB, ;".""Y(Y(.Y24Y<:YF@YPFYZLYdRYnYx "If you plan on joining the army, here are some ";A$( );" hint"."__ " I would like to exchange this ";A$();" bed for one that"*` "will allow my husband to sleep ";B$();" a Nugget"2W "Saloon. "8W]W "'DRAW TEX', he yelled ";B$()cWW "Tex reached for his ";C$();", but before he ]] "Dear Sirs,"]] " Last week I purchased a ";A$();" contour water bed in your"F^ "store. I got it e[ [ " The Army Builds Better ";C$();"s!"[\ "At roll call, when the ";A$();" sergeant calls your name,";A$();" TIRES AND THE BACK OPENS INTO A ";A$()b C$();". WILL CONSIDER TAKING A SLIGHTLY USED ";C$();" IN TRADE."b& s"Y "that will help you become a ";A$( );" soldier."YZ "The army is made up of Officers, Non-coms, and ";C$();"nd won't make his"@`& C$( );" sore."G`0 M`:k`D );"Yours ";B$();","`N );F$;" ";G$`X`b`l` could get it out of"W "his ";C$();" the Kid fired, hitting Tex in the ";C$();" and" X "the ";C$();"."X WX "specially for my ";A$();" husband who sleeps"^ "very ";B$();" and says that ";A$();" water beds that have"^ C$();" shout"@\ "'";J$;"' loud and clear."F\\ "You will become familiar with weapons like the .30 calibre ";C$()\" "b0 b: "LOST: IN THE VICINITY OF ";H$;", A ";A$();" FRENCH POODLE WITH".cD A$();" HAIR AND A ";A$( );" TAIL. IT As."cZ "You can recognize an Officer by the ";C$();"s on his shoulders"Z "and the funny-looking ";C$();"s on his cap.  NEWSPAPER AD STORY` ( ) ` ` ` );"DAILY GRUNT CLASSIFIEDS"+a "FOR SALE: 1957 SEDAN. THIS ";A$();" As Tex fell he pulled out his own ";C$();" and shot the Kid ";lX (2())X "times in the ";C$();". The Kid dros in them make his ";C$();" ache. When the bed arrived "_ "my husband tested it ";B$();" and said the ";A$();" ";C$()and the automatic ";C$();"."\,\6 "Follow this advice and you may win the. . ."\@,]J "******** ";A$();" Conduct NSWERS TO THE NAME OF"ucN F$;". WHEN LAST SEEN IT WAS CARRYING A ";C$();" IN ITS MOUTH."cX "A ";A$( );" REWARD IS OFFE When you address"Z "an Officer, always say ";C$();" and say it ";B$();". If you get"<[ "a ";A$();" haircut, keep yCAR IS IN A ";A$()sa "CONDITION. IT WAS FORMERLY OWNED BY A ";A$();" SCHOOL TEACHER"a "WHO ALWAYS DROVE IT ";B$();"pped in a pool of ";I$XX  "'";J$;"', Tex said. 'I hated to do it, but he was on the wrong"Y "side of the ";C$( )\_ "was bent and kept pressing into his ";C$();". He says this"_ "could lead to a ";A$( );" condition of the ";C$();@ RED."cb cl cv c c ADULT WESTERN STORYc ( )c c c d  );"AN ADULT WESTERN"d Zd WHEN THE ";A$();" SERGEANT CALLS YOUR NAME, SHOUT"ljj "'";J$;"' LOUD AND CLEAR."rjtj~ "YOU WILL BECOME FAMILIAR WITH MADE UP OF OFFICERS, NON-COMS, AND ";C$();"S."h "YOU CAN RECOGNIZE AN OFFICER BY THE ";C$();"S ON HIS SHOULDERS"h "A);"YOURS ";B$();","n );F$;" ";G$nnnnN'T MAKE HIS"n C$( );" SORE."n nn ";C$();"."*f> qfH "AS TEX FELL HE PULLED OUT HIS OWN ";C$();" AND SHOT THE KID ";fR (2())f\ "TIMES IN TB$();" AND SAYS THAT ";A$();" WATER BEDS THAT HAVE"mF C$();"S IN THEM MAKE HIS ";C$();" ACHE. WHEN THE BED ARRIVED "Zm "TEX ";G$;", THE MARSHALL OF ";D$;" CITY RODE INTO TOWN. HE SAT"d B$();" IN THE SADDLE, READY FOR TROUBLE. HE KNEW THATWEAPONS LIKE THE .30 CALIBRE ";C$()j "AND THE AUTOMATIC ";C$();"."jk "FOLLOW THIS ADVICE AND YOU MAY WIN THE. .ND THE FUNNY-LOOKING ";C$();"S ON HIS CAP. WHEN YOU ADDRESS"!i "AN OFFICER, ALWAYS SAY ";C$();" AND SAY IT ";B$();". IFHE ";C$();". THE KID DROPPED IN A POOL OF ";I$ff gp "'";J$;"', TEX SAID. 'I HATED TO DO IT, BUT HE WAS ON THE WRONG"6P "MY HUSBAND TESTED IT ";B$();" AND SAID THE ";A$();" ";C$()mZ "WAS BENT AND KEPT PRESSING INTO HIS ";C$();". HE SAY HIS ";A$()d "ENEMY, ";E$;" THE KID WAS IN TOWN. THE KID WAS IN LOVE WITH TEX'S":e "HORSE, ";F$;". SUDDENLY, THE KID ."!kXk "******** ";A$();" CONDUCT ";C$( );" ********"^kdkjkk WATER BED STORYk ( )k "BUS YOU GET"hi$ "A ";A$();" HAIRCUT, KEEP YOUR ";C$();"S SHINED, AND SEE THAT"i. "YOUR ";C$();" IS CLEAN AT ALL TIMES, YOgz "SIDE OF THE ";C$( );".""I GET"; N@ I MNB T(I);$N"ORDER (YOU DECIDE HOW MANY)." L(I)R@ ISB N LSDDSF"HOW VERY GE Jl R$3Jn R$"Y" JJx ***INITIALZATIONTJz  vJ| ***THE HUMAN TAKES A NUMBERJ~ J *** COMPUTE THE HP *** FIND THE WINNERPPP ZY P"YOU";Y;" TAXMAN";Z;" YOU WIN!!!"Q4Q"TAXMAN";Z;" YN^ I NN` L(I) fNb I;Nd MNf INhNO *** CHECK IF ANY NUMBERS STILL HAVE FACTORSOE, SUPPOSE YOU WANT TEN NUMBERS TO BE IN THE LIST."U"THEN THE LIST WOULD BE: 1 2 3 4 5 6 7 8 9 10"UU"IF YOU TOOK YOU TRYING TO SHORT-CHANGE THE TAXMAN?"L L ML I KL L(I)  M K I(KI)  M NEROUS OF YOU TO FORFEIT ALL TO THE TAXMAN."vSH"TAXMAN 1 YOU 0 THE TAXMAN WINS."SJ SLSS *** IUMAN'S AND TAXMANS TOTLESJ :J *** PRINT THE NEW LISTJ XK *** CHECK IF ANY NUMBERS STILL HAVE FACTORSKOU";Y;" THE TAXMAN WINS.":QAQ RQ *** AGAIN?XQ_Q eQQ"AGAIN ( Y OR N )";Q R$Q R$"N" B 8, THE TAXMAN WOULD GET: 1, 2, AND 4"U"AND THE NEW LIST WOULD BE: 3 5 6 7 9 10"V"TYPE G THEN (RETURN) TO GO ON";W$(V)LS(J)HMS(K) QMS(K)GdMS(K):mMMS()GS()MS()GS()4KmS() S()AKnGpJKov`KpJ((M)){Kq((M))MKKr((M))MKEAT ME!! GOOD GAME":QF"I WIN, TURKEY!!!":Qx"IT'S A DRAW. THANK YOU"R:: "PLAY AGAIN ";ZZ$!R ZZ$"Y" O O dO:I:" ";:S(I)OQ$" ";:O S(I) P" ";: PP$" "; PIE."BW"IF YOU WANT TO GIVE UP, TAKE 0."WW"GOOD LUCK !!!"aW zrW "MENU" : ORE IS THE SUM OF NUMBERS YOU TAKMS()GS()MS()S()GMGG:H:nMS()S()NI:S(I)!NS(IKs((M))MKKtx KvJ:KKxS(J)GKzS(J)GL~S(J)LS(J): "MENU"0R S: 6R'N, TURKEY!!!":Qx"IT'S A DRAW. THANK YOU"R:: "PLAY AGAIN ";ZZ$!R ZZ$"Y" I S()I ( )I );"TIC-TAC-TOE"I::I "THE BOARD IS NUMBERED:"J " 1 2 3"J " 4 5 6"%JI5P:"---+---+---"?P 8LPI8VP$"!";aP8I::oPG IPLS(I)S(I)[PQS(I)S(I)):(NI9NS():INS()ZNS():kNS():wNS()N:"THE COMPUTER MOVES TO...C  XM "NO! YOU MUST TAKE AT LEAST ONE TOOTHPICK. TRY AGAIN."cM"  M, "NO! YOU CANNOT TAKE MORE THAN THREE TOOTHPIC IN A PILE " bK "ON A TABLE BETWEEN YOU AND ME. EACH TIME IT IS" K "YOUR TURN, YOU MAY REMOVE 1,2, OR 3 OF THEM" ING CONDITION. BETTER LUCK NEXT TIME....."Q"SPEAKING OF NEXT TIME, WOULD YOU LIKE TO PLAY""R"AGAIN? PLEASE ANSWER YESOTHPICKS...."O"HOW MANY DO YOU WANT?"O  O"BECAUSE I MUST!! YOU HAVE WON"/P"AND I AM SUFFERING THE AGONY OKS IN ANY"M- "ONE TURN. TRY AGAIN." M6  M@ NNA ME N JMF NNA 5NG "NO! YOU CANNOT TAKE MORE  K "FROM THE PILE. I MAY DO THE SAME IN MY TURN." L "YOUR OBJECTIVE IS TO MAKE ME TAKE THE LAST"L "TOOTHPICK."# OR NO..."/R& N :R0 A$ XR: A$"YES" A$"NO" XRD "(I MUST BE PATIENT)....THAT ANSWER WAS INVALID, TRY AGAIIZ( )Id" * * TOOTHPICKS * *"IfIn "THIS GAME IS CALLED ""TOOTHPICKS""." *Jo "DO YOU KNOW HOW TO PLF DEFEAT. BEFORE I GET"cP"TOO DEPRESSED, WOULD YOU LIKE TO PLAY AGAIN?"tP"(YES,N)?";P A$ P A$"YES" A$"NO" TOOTHPICKS AWAY THAN THERE" \NH "ARE IN THE PILE. TRY AGAIN." gNI  tNJ CN NO "THAT MEANS THERE ARE ";N;" TL N ZL "THERE ARE ";N;" TOOTHPICKS IN THE PILE. HOW" L "MANY DO YOU WANT (1,2,OR 3) ?";L A L AN;RE "YES OR NO ?" RN 0 RX A$"YES"  Sb "THANKS FOR PLAYING - SEE YOU AGAIN SOMETIME." Sl "MENU"AY (YES,NO) ?"; 5Jx A$ JJ A$"YES" \J A$"NO"J "PLEASE ANSWER THE QUESTION AS INDICATED:" J "YP"COME ON! DON'T KICK ME WHEN I'M DOWN. WHAT IS IT"P "YES OR NO ?" P  Q A$"YES" bQ NOOTHPICKS LEFT." NT CCCNY C hN^ T Nh C NNCNi C Or BC O|  (O L A L A ,L @L "NO! YOU MAY NOT ADD TOOTHPICKS TO THE PILE." M "TRY AGAIN."M  S  OR NO ?" RN 0 RX A$"YES"  Sb "THANKS FOR PLAYING - SEE YOU AGAIN SOMETIME." Sl "MENU"ES OR NO. TRY AGAIN. DO YOU KNOW HOW" J "TO PLAY (YES,NO) ?"; J x 'K "IMAGINE THAT THERE ARE 15 TOOTHPICKS UQ"OK, BUT THIS TIME WE'LL START WITH MORE TOOTHPICKS."`Q  Q"THIS LEAVES YOU WITH THE LAST ONE."Q"THE LOSC NN(C) 2OBC]O "I WILL TAKE ";B;" TOOTHPICKS. "; mO N }O N O"THAT LEAVES ";N;" TOD TRY AGAIN (Y-N)";ON I$ : I$"Y"  : "MENU"UNAMrABM|BRM N "YOU GOT IT!!!!!"N)N "S."JL "YOU GET ";G;"GUESSES TO GET MY NUMBER."^LX(N(Z))lL Q GrLL "GUESS #";QL A,BL A------------------------"Jn::Jx C( )J D( )J K   J C(K), D(K)J K+K  );"DO YOU NEED IN "WANT INSTRUCTIONS (0 FOR NO)"?J< ZOJF Z JP "I AM THINKING OF A NUMBER BETWEEN 1 AND ";NJZ "TRY TO GUESS MB L XA L A B L hL XA ,L XB @!M "MY NUMBER IS LARGER THAN YOUR TRAP STRUCTIONS, ";NAM$;6K ANS$SK (ANS$,)"N" TnK (ANS$,)"Y" K  );"I DON'T UNDERSTAND YOU, PLEASY NUMBER. ON EACH GUESS,"Jd "YOU ARE TO ENTER 2 NUMBERS TRYING TO TRAP"Kn "MY NUMBER BETWEEN THE TWO NUMBERS. I WILL"NUMBERS."+M" J`M, "MY NUMBER IS SMALLER THAN YOUR TRAP NUMBERS."jM6 JM@ "YOU HAVE TRAPPED MY NUMBER."MJ QE TRY AGAIN."K K ( )::K  );"TO ENTER YOUR MOVE YOU MUST TYPE IN THE ROW"4L  );"AND COLUMN NUMBER MKx "TELL YOU IF YOU HAVE TRAPPED MY NUMBER, IF MY"K "NUMBER IS LARGER THAN YOUR TWO NUMBERS, OR IF"K "MY NUMBER IS I TIC TAC TOE, MODIFIED 11/27/78 AHI ( )::I  );"WHAT IS YOUR NAME ";I( NAM$J2,J<  );"WELCOMEMT "SORRY, THAT'S";G;"GUESSES. MY NUMBER WAS";XM^ MhRAMrABM|BRM N "YOU GOT IT!!!!!"N)N "OF THE SQUARE THAT YOU WISH"pL  );"TO FILL. THE NUMBERS MUST BE SEPARATED WITH A"L  );"COMMA. I WILL MARK THOSE SSMALLER THAN YOUR TWO NUMBERS."K "IF YOU WANT TO GUESS ONE SINGLE NUMBER, TYPE"L "YOUR GUESS FOR BOTH YOUR TRAP NUMBER, ";NAM$;", TO. . ."2JF[JP  );"---------------------------"JZ  );"* T I C T A C T O E *"Jd  );"---I ( )I " ---- T R A P ----":::I GINdI-TRAPJ( STEVE ULLMAN 8-1-727J2E QUARES WITH THE"L  );"WORD: 'YOU'. WHEN I FILL A SQUARE, I WILL PUT"M"  );"THE WORD: 'ME' IN IT. REMEMBER THAT ROJ 0SL T2  j:SV DS` pWSj T2  pgSt J  }S~ B(J)  S JS J J S. TRY AGAIN."0Q  CQ A(R,CX) MQ  zaQ* Z   ~Q4ARK MACHINE MOVE ......Q> QHARK TEST F& Z W0W: I  WD J  WN A(I,J)  vWX JWb J J Xl 0Xv A(I,J) XRE WE GO. . .",O 0]YH A(,) gYR 0xY\ A(,) Yf 0Yp PROGRAM TO TEST P );"COLUMN IS INVALID NUMBER. TRY AGAIN."P P A(R,CX)  &Q );"THAT SQUARE IS ALREADY TAKEN A(I,J)  >W A(I,J) HW 0PW K`W K K nW-----TIExW::W );"TIE GAME!"WW"N );" * *"N );" 3,1 * 3,2 * 3,3"N );" * *"N B()O A(,) O&O  );"HE* ";&U 2U "ME "E#y# ~ʬ!"*^#V|ʬ*#| #r qA(J,) A(J,I) 6Z IFZ I I XZ T1 A(J,I)`Z JpZ J J Z J  Z I  Z A^ ANS$^" (ANS$,)"Y" ^, (ANS$,)"N" T _6 );"I CAN'T FIGURE OUT WHAT YOU SAID.",_@ );"ENTER::_2<2:7ʰ?ڰO*.!":M?O*."*."*.'" $ !o9 ARE THE WINNER!!"\2 );"--------------------"\< \F Z \P j ]Z -----COMPUTER WINS ]d ::3]n );"Iʓ*"W#âx~# ×͗͗:<2**!s#r*"*"* "|}0:<2(,J) A(I,J) 8 Z IZ$ I I Z. T1 A(I,J)Z8 JZB J J  [L A(,) A(,)  '[V A(,) YES OR NO, PLEASE."6_J  >_T :f_^ );"THANKS FOR PLAYING, ";NAM$n_h :_r "MENU" : _| 2,2,0,0,0,0,1,1,3,  FILES $ *}/2Ì DIRECTO3,1,3,3,1,1,2,3,2,2,3,2,1_ :f_^ );"THANKS FOR PLAYING, ";NAM$n_h :_r "MENU" : _| 2,2,0,0,0,0,1,1,3,=!o)"!"!**|""""**|}**|}Û|g}o**}o"*] Z  :  ] );"GOOD GAME! ";NAM$] );"WANT TO TRY TO BEAT ME AGAIN";^  ^ Z  :  $} :o&*^#V:=2 *"/p $ p~G###~!o#}o  I[ I I [ J[ J J [ B() A(,) A(,) A(,)[ \ A(,) A(,)  \ V '\RY DRIVE - $` :®ãA $ öB $ ̀222!s# !"!":_!" :7G ^#V"*^#V* q1*" *^#V* qV*"1**|d}*^#V*^#V*ZED DESTINATION$CANNOT WRITE$INVALID PIP FORMAT$CANNOT READ$INVALID SEPARATOR$1} :}2VL> @M9 NTTYCRTUC1CONNULEOFDISK READ ERROR$DISK WRITE ERROR$VERIFY ERROR$NOT A CHARACTER SINK$READER STOPPING $NOT A CHARACTER SOURCE$!tp+q*s !uq*u& *qM *rM !wp+q*v!!yp+q*x"!{p+q*z$!|6| HHͯ :!w:Y<2U:Y0}:Y@E}:Y!S!6:T z!6:m!6:z!6h!s#r*!s#r  $ $|}**|}Û|g}o**}2q21:q2r<! 6+6+6!W6#6!6#6:VG*o .!6:}^*M^!6!6!U6+6 :Z$ABORTED$BAD PARAMETER$INVALID USER NUMBER$RECORD TOO LONG$INVALID DIGIT$END OF FILE, CTL-Z?$CHECKSUM ERROR$CORRECT ERROR, TYPE R !p+q*> >ڪ Þ !"p+q/ *!DM9: :2#:!# !}:# *#&~ N!#4 !}6:(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE) :Z:Y,:Y HHҰͯ :Y 2Xó:TE:T2:V2}v!q!*8!*6: >     :Z:E=2 :Zʤ]:ҷ\ʹPʹͮ:Z!]h :ZN͌! ͥETURN OR CTL-Z$INVALID FORMAT$HEX$$$$NO DIRECTORY SPACE$NO FILE$COM$START NOT FOUND$QUIT NOT FOUND$CANNOT CLOSE DESTINATION FILE͔:_ :ͳ.!(s+p+q+p+q:(=2(N *$*& w*$#"$*&#"&' !"N*M^7 !)6:!)ھ *N*DM͆ (INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OU! 6nPACE)W>W!\q:\_  !^p+q.*]   !`q*`&!bp+q*a2_:Z$:Y $Nͮ!6 :Z!Cwͯ !6:Z^hd!Y6{:Y/>!Y/H{ͯ :Y<2$DESTINATION IS R/O, DELETE (Y/N)?$**NOT DELETED**$$$$$$$NOT FOUND$COPYING -$REQUIRES CP/M 2.0 OR NEWER FOR OPERATION.$UNRECOGNI2*ʭ :*ʗ ͯ *N"P*6:2)÷ *N"N!)4d !"N/ !R0}=2- !"R*M^_ !+6:-!+1 *R COPYRIGHT (C) 1979, DIGITAL RESEARCH, PIP VERS 1.5$$$ SUB =.:,<> _[]INPIRDPTRUR1UR2RDROUTLPTUL1PRNLSTPTPUP1UP2PU!dp+q*c2_!fp+q*e2_2_!hp+q*g!jp+q*i!lp+q*k!np+q*m2_!pp+q*oTŠ :Z:Y=HҮͯ !X6:XҾ:q2r !6:Z:/HNͿ!Y6:Z> !Y/>H x ".*.DM͆  ͯ *R"R!+4 : !"R͆ !+6:-!+ ? 20*#"!,6:,ր!0Ң *,&ҥ*MͭҞ!6!6> :Bé:B(!Cq:!CwO!~ ~2D*C&~ :Bw>!B:D!4!6>:<2!} ^#VNJڗO *N*~2@*N#"Nm2@m͖ 2@m!6m!6m!6 m2@mr+s+p+q*]~$7*]>*[>H&>*[#"[*]#"]> 2Y:SNPJ/:Y!`6!M6>2f:ʚ!M6:f”H:5!wҙ  â :50O !6q:6O| :6O| !76:2: '2 :'2:'2*Mͣ *Mͣ * Mͣ ::Y[ ͱ!5!Z6:E%:<2E*F6 *F 6å!Kq!L6> !Ld*L&I :K]>!L4A>:[<2[O*F :Yw:Y?† :,Rx 20!,4m *R"R:0ڹ ͯ !+4I 20!"R!1q:1 !4>! :! :22*TM> *&~ N2Y !Gp+q!6!Z6+6 ![6:[ S:[ M!Y6g8:2*YM8p!Z6!E6!H6>!Hͯ m!62m!62m!62m!A62@m'2:?2:Ғ:T2?9>!M6.f!f6ͼ2e>2eʻ.ê:`>>"hͼ2g:e!`!e5ͼ2dͭ!f\:   *R}2: "8 *8x *: *:&"R!;q:Y:; Y:Wҩ:; ʩ:2<ʘ:<€!<6<!6!Mq!Y6?!M:[ҠgÐ!Nq*N&*F~!6:q2r2Y:Y :Y]Hں:YA2OO>:Y 2Yͯ ! ^#VRJ *Rx :1w*R#"R = = = = = ͯ  *1M !6q  !6q  !6q  *1& !ڕ*H& 6!H4z!6!6#6#6![6*YM8:[ھ:Y*͇g2Yê:Y:¿:E:[,͡A<2EO>!T6*@ME:?2T:A:Ҳ:X<2X2Aý:@ 2A:A} >ͯ ::@2@:*@M:  .:`>>!bp+q:`-!`6*aDM9:_=!_6:`{ 2cX!_6E*M& :cw:M<2MOw*:c>>:<2!<ژ!6 >!Ҥ; !W6::;:TH:; !6*;M :; !W6!=q:=a/>z!=÷:YS:YQHI:<2P2Y:Y H@"2YÍ2Y02PO> c!P6Í2Y02JO> ڍ*P&*J6à  !6 à  !60à  *1& !6  !6  !6  *1& . 1 4 7 : = F P [ f q  *YM8):Y[ͱ!5!Z6ñ:[5!R6#6>!Sڰ!Q6:Q<2QO>/:Q!RO!T *QM͡H~K:Q*@M:@>!(:=2%> >>!F!5+N!~ ~2B!4<2BT>>!}*Mͭz:2!6:<2é>!2j0O> ړ:j0:jAO>ҥ::jA ~~Hͭ!fwͼO`i*ͼ\2kO>3:k! !l6:M/H:=_2=:=!>q:>A/>Z!>/H8:> 2>:>:U=O>m:!} Hmd>9>!A6:2?*UM!E& !Psc*O& :Pw:O·>!Pұͯ :P2r2Y:Y_!Y6=!T6>'!TE!T4!Zp+q*Y !^ :22!3q:3 " *3M n :4 *3M n :24!:4Q !:424: !4:w>!4n !45 Y :3 { !6!5q¡!Z6[–ͱ!5:S2Y:R2R!S4=:Y[¼ͱ4:[![6:Y.2YO8:[ :Y* ͇gI !l:l=O! NE!l4 E E:k0.*M& 6$9k9.Yͯ *M^2UË:2!q:rʗ!:¤]:Y ʳ]!wp+qNͥ*vDM! ͌ :Z:Y=H]:2_NPUԅƋNSTNNMILEԈINűOASEPRINԞLISԟPOISԓO O0EEFTO1ERGOKI2KS3KD4IDEXԃUL̖AMEהOU!ҏà:ڠ*YMEÏ:nҭ<<:2dͿ!o6#6>!p*p& ~:p !o6!p4Ò\(R)CdE9c5CKCPD C<JD~ "6D xHSDTDYDD=!Q"L1LLP)M## :2:2ͳ:_³ͯ !6!"R!"P7 *M^n/ :/:H!_6:_ͯ !6og_{ozg^#V))) _{ozg^#V) *^#V|g}o 4O{ozgi`N#Fog H Z=YΕPEοCTPTIOκUOKřRINԑOEEEAćUΊESTORŌETURΎE͏ESUMũSEIGHTNENUͬESEANDOMIZŻTOАWAХAVPCTEGQ:o7B1O B%*P"R+*"R <:h*oM2PO!q6!s67 *M^͆ \͔!r6:_!qXXS Z ZQS%RRAYWYSSSXI7IAI')'h688%78b9w9JmMHSFbIHH"HGFMFG(j)))QQQUU2*"N>!"ͯ >!1ͯ !mq:mF:2K!6*R}b!4EK *M^́:_ƒ.~4^!.~w!.ͼ!.ͼ!.ͼ!/~w!$/ͼ!D/~w!T/~wN#Fp+q!.~^!.!. !. !. !/!$/ !D/!T/I TRTRINGPACEYSTEͽROΣROFƤABHEA SINSAARPTIDTȡAIԗHILŴENĵRITŷO۾yy||PF:rHҗ!r4ͧu/ :_´:s°9ͯ .:r<2q:__!  !6:/! :s<2sUPPP;LMRk~3<F^bcNBTSUTϫLOSONԚLEAҒINSNDBV+V,V-O HRAL̶OMMOͯ U:_::9OY#9.3ͳ.:2 ͳ 6<2(z{)()j)++,-($$!&&|(***(NEXT without FORSyntax errorRETURN without GOSUBOut of DATAIllegal function caC9ͮZ.!t6> !tM*t& ~2u F:t ?.*uM!t4>!Ea:E=2g:2:r]>!E҅:E=2HAIιATI͆EFSTҭEFINԮEFSNǯEFDB̰EƘELETŪNāLSŢRASŦDIԧRROҨRRX O/QO҂IELILERIOTωO TωOSUEEX!0>+!s!x"@O-!"8**"xO4x " 4"":U!2n~: J llOverflowOut of memoryUndefined line numberSubscript out of rangeDuplicate DefinitionDivision by zeroIllegal directType>2_ HH>J.~.R:0:_ ~~.>J͝}J|J 8P8__" Sm\" 'ʕ͎#"l*l " * ͘B" t##s#r# w# yb͔!6"*"  mismatchOut of string spaceString too longString formula too complexCan't continueUndefined user functionNo RESUMERESUME in Ok Break!9~#X  J N#F#i`zl ͦC J y *|~W.͝:] ª* |>ª}e. rwJ! ڽ! ~J#=¾ cÑ&H> > J:C*"* "Õ *bk~####~ʵ Ҝ ڜÞ#s#rÔͬC¿ *DM~#+##~#foͦC`i~#fo??2_ without errorUnprintable errorMissing operandLine buffer overflow??FOR Without NEXT??WHILE without WENDWEND without W<ʍ :  C=96543>7@?2C: * "   *" 2 |< "  * {C{K2* "p#J:J>2^ 2_ U ~|5~#J !@}O|G!>: y +=2_ J#D`: 0`.` ~ 2^ ;~", 5:^ ~?>dDB|G#O# # #MShTO>vU#B>HILEFIELD overflowInternal errorBad file numberFile not foundBad file modeFile already open?Disk I/O errorFile already  * |< " " * |! ' ' 5ïwY2(_ͷ#H * ~?b !C FͦCIBʒ\|<ĺ0>iA2  ґ ʑ ʑ> :_ <"="+~ ʝ ʝ ʝ#>d2 9ͬC" :] ͛'! 6(͵" !9J  +V+^##* ͦC",!AO ^#V#OU#y(~.UB!>U>J2_ J Ð+  exists??Disk fullInput past endBad record numberBad file name?Direct statement in fileToo many filesR*ڵ > @J 2 z * ڿ ͦCҿ " :X ʕ >Jڕ <=ʕ ͝~ 4(K  ͩB* *ͬC ͛=(~(`j)*(QZ~>a͜j)*(ͻ'OG+¿ 0$* "*)qqʕ,¿ ~,>2 : =dH+~,[+6,* 2 ͬC,9~,: l2 *|+Qʐ0͂F6 * 4*|* :ʺ:G<:?:G<:[ ?=IBFU*|% ~::G<: :+SF{o|P{o|<'{o|24{/o|/}//o|//}o|gz+:Q:[ 2 ͅ#`i F "  "!>:yHG+ȸ#"ʻ<ʿ֌¾Wþ9ͬC" ͛'q" ͊)(͊)Å& W.D o[@0>]@ցL]O! N#F#~: g1WG": W:,+͆FO: y!@ W.P.+L,+: C*|hÌ͵…#~# #^#VG:[ IB҅/z(z0:o ڏ:d O!n vͬCs#rʖOAs#r~(µ9~)ʵͬC,O:] " ~#fo ~(™" * ͬC(>2(6* #^#V*ͦC** ͦC2! ͦC2>͂H`F͂H?(kͬCzYPYҕ" : :_ ~GzͬC+K xPÈ9ͬC)|R)WʆIʾHʢT͗ͬC)}͞* '9" d(~a{_&O*H)#~ ]:b *` #2b B1A~#o&"d >2c T<2c d GC("` !m g 0?<=:b ҏ ڏ*d " lͬCÛͬC(+ͩBʹ$" * ~Wڿ " ôzZ~" _:] H!yxVz@QN@~\2go"ͬC#;QK9ͱ)JCͅF?Redo from start #~ʿ "q: ¹ !F* ͧP! 9:] ͛" " 'ͩB!9m(:] * ~)FͬC,* ͬC,2D ʊ2] !9d(!9.,]:] G:D Od}!F O,{  <2~ʩzf<í* * "~#####õ  ͬC,* ¿ |" 2 D:K0KGK7))))o +K8ҿ  )))0O *R)#~ցe(7>OyҌ͗ͬC,ͱ)*###^#Vz+!d :c 2] d(D AOGDAGx2̓F~,2 /2 3ͬC;F: K>?@> @JC6,+>2 9~+(Š#ʿ "(p;B* * ͬC)>" : OͩBO/2UͩP+IBʌ?,;ʅ͛ æͱ} ڝj)>2  N#fi-++<'Z͞(}/o|/g" í:] 7(zʄ+{ *d +!ͦCڿ bk))0_CB $RCbͩB*>3f:b *` ͷ*ͦC#:] Wxz ! N#F* ͖)j(" " (͖)!:^ O ~#foj(2] ʸ" ýj)!(͊)*(" L ͼF* T]##N#F! ;* +" |2 !O ͩw# x6*#| ͬC>2 G9~¿ #~¿ #J2tQ~/woG}_}W}Oڠ%CZQÓ% o-yOzW{_xGã%$cCu͍M r5ͻ'%1r!&*(>2 (!%#*` +p+q+w: "ͬCBͬCAͬCSͬCE: * * ͦC ~0ڿ ҿ 2 <2 ~###ÁA#͛5"$!$FJC#&{:c ڛ!!ʛ!#~ 4(~#!:c ڡ! ¾!.!D!E¡!á!{!*` u ͽ͎#!T]ͦC!; F!l '* ||'* * -(" `i" ! ^#V#N#F# C(:] Gw#C(! ~7w?##wy7O! >(p(! ?(  xʻ+ʒͬC,ʓÿ ³22s22/<͛(z22|ͬC,͛+{>27((!%7͇&('$ͻ'.#'y2Z&"U&PX!o'!C&! ~#w&Wy[&O|g}oxGo&x GzM&CZQO(!~#"87Random number seed (0-65529)2$*" ͵W$#~#Y #^#V" y~p$<$=$=$<$=$* ͦC"`i" 5"d\~Q͛5"d\ͬC,(: : $ PXʇ",i"BKʇ"ͬC,ʇ"ͬC,¿ z'!'ͻ'y! y͖(#x+y+z+{z|''}'! ?( ʻ'!'ͻ'O! y#“(+(Ϳ('* )j(ͽm\!"N#F#xz *|}BN#F#ͦCy " 0~ I > @b !X X IB ~?#X X 2 m\u #~ ڄ 8-(ͻ' 0.#'4+~2&+~2&+~2&AOW_2&}o|gxG>?&2&7y<=&:&x&> S%{_zWyO)xG:&2&y«B$** "9+B$ʥ$ͬC,+z$": 2 2 !5-($-('x: ($/<((L(g͑%! %q%R%#4`iͦCó" !ͦC^{#V"~#+£""^{#V"#s#r "y 2 *+#~##^#V_ژ _.ʘ B!Ҙ ë : ʩ <© > >2 { ڹ M!q <~ #~# )!:G@ #T]~ # ~ y &! 5«&0%>.! N#F: ox2 Eoxʠ'րG: ր_}{@''C' ~#!T !2 y1![!2 /!_: &!> G>2 {2!~#_G/!u D0:?+ol! 6 6*d 0:b O ! HŠ!>G{_zWyO%! 4/%ͻ'/0%*(x/G$! 4/: : /<! Op#6%'o+ ! ~w'ogR)