IMD 1.17: 17/01/2010 8:31:34 basic games  >@:JG!(!Nx@(+G:Qo~2D!x4> 0400 {23x4>0#3w40+0 |{ :DO:JG4>] \XRLOCBIOS COPYRIGHT (C) 1979, DIGITAL RESEARCH _͌> ͒> Ò> Ò͘~#͌ì _2<ܯ2 ݇!2:2a{_:ʖ:>Ľʖ:=2–!B!6#5ʖ:Ľ!ͬʧ )!F#xʺ~0wëw!" !~6ͽ:ý(!#͘*~ "޷"͌#>?͌͘ =_.:;<> Oޅo$>!Y2*O"ʉ@G:ʐ:wÖx2p0ʹ#*©6?ëw˜0ï#6 ¹.0#*6?w0#6 #6" #~?  xDIR ERA TYPESAVEREN USER!yO#< Ty#O 3߯21y_͸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"C{2!"E9"1A22!ty)K!G_^#V*C~E ,&-AGMS!!ô!ô!Bdos Err On : $Bad Sector$Select$File R/O$:BA2!~6 O͐  :E B 2>: b# : y! 4 5~yy5 6yҐ^H@Oy H H: –ͬ  #H: !  Hù H H $O͐: 2 *CN# x: 2 p&x~+é72 H! >w_: ! 5ͤNkͱ¦ͱxʊ#Nx: ! 2 ͤ! 5™#wO~x½p Hy<< ʑ :!qMD#2E>! ^#V w#P:BO|^#V#"##"##"##"!O*!O*|!6ʝ6>*w#w*w#w'û*! J*""!N#F*^#V*~#foyx*{_zW+*yx#*DM*s#r*s#ryOxG*0MD!!N: EG>O: \S*C :qn& ^#V>O^"*}:*)=":O:o"*C *C!ͮ~2~2ͦ:2ͮ:O:w:w |g}o*# ):BO!yoxg*:BO}!N#F "*#*s#r^ ~!J! J*:o$*C~i6iw**{#zr+s{ozg**͕** ,w͜͸Ͳ!!N#F$**O!~#:A#~$=2Ek͌::/GyO>2!q*C"͡ʔ*JҔ^:Oyʃ?|x | s-|N-# S:2E!~Яw>T D^6k-äPYy 5*{zBK5ڋ>*Cw~#+w#w+ɯ2E22i^ *C :~w~͔͔# #  w ~>2!E5T*C!"C"C!w# F! w͌x2͢*C ~<wʃG:!ʎì 4~ʶ¬:<ʶ$ʶïZͻx>2>2ͻ:!Z2:Eẅ́͊Ͳ>2>2T*CGͻ:ẅ́n>2;O ^DM;}H>"*C ::ddslO s#r:E͊:==»y==»*Ww#*"͸*:G#š"͸:!w4!iw:Z!E~=262*C!!~~#~O~G#n,-.‹! w! yG!x͢.:E<ʄ! q!pQ:E<. ʄ$.:E<ʄi6}2ExN! ~态O>G~G!~G} *C!r#r#r ^ͥ_y#x#{s+p+q-*C ͥ!!q#p#w*:BOYG}*MD "ã:!Bw!>2*C~=2u:B2~2wE:A*Cw>"!""2B!"!rQQQâ~?ͦ~?rQ*"CQ-Q͜QüQrQ$Q*):B"*)*)Q;*"E:;:A2AQÓQÜQ*C}/_|/*W}_*"}o|g":ʑ*C6:ʑw:2E**E}DQ>2C>ïî+0ü*5@ø H!D D1 go"@!"B !&w#YO!"Lv͊3"L:Bڮ:A<2Aʭ:J@­:Q= ʭ<2B>v>22!"!"!m"L!"2:2O4@ >$>#>!> >#!%!D!"úy2!o))))!y!'_~2¹,"I*@*By2@>2CM+:Fw#:J2Gw#:QwO!"xʈ!.@ˆ!x@ʒ w#w w#w"B"@yy2y=2y>>2:_P_!(Vy2B_V# # o<2g#7)22}2y2h\*"*"}M<2!ʁ5\{2<22!6ʥ\@{: \z2Q*"@*"B:2J:Ċ!w2*P%7*! =*:<2w# :=:2͋!w:M:2K ̟‘_:K{2H03w#3w#3w#3w#­ 2H0~3#~3#~3#~3#:F2H0402GM:B21O:A3̓4 >-ƈ*LO1<:QG>?GyX*I|̓!N>ͨt>@ضwM21H~2I!J~±:@G7’ w4>Ү>w>2F13~¼濱4:CCANNOT BOO 64k CP/M Vers 2.2 U {-MRa p#p ?? ?0?4?< @+  # ` h x? ? 00 FUUdsG?O???s?$G?(O?  :ʤ]]:ʤ]]]:ʋ]]: ʋ]]]:ʓ]]: ʓ]]]:ʜ]]]:0ʤ ]]]TNͯ#yH!Gɯ2!gzI/O ASGT ERROR !DRST ER %%ғ % ƿ͜ʤy ͸ʮyl" " $"! @H !BI " I  $I$I$DI$ !I$@"$"$! $I$I I@ @@I!  @((((DP5D0s(DP5D1&DP5D2#CO!TTYOUT;%CRTOUT]%CUSO1]LOx(LPRT](LUSE1])CSTS(TTST#CRTST]CUST1]?#BATST'PTRST]"RUST1]!RUST2]"CITTYIN)CRTIN]n%CUSI1]F)RITTYRDRPTRIN](RUSI1]Z$RUSI2]"LSTAT'TTOST)HSPST]PUST1])PUST2]C'PO+Z(TTPNCH<)HSP]=(PUSO1]&)PUSO2]Y*RTSCCRLFTPRTWAG'PRTAH(PRTBRCRLFAUCRMSG%IOER])IOMSGg?"COMERRzr)RSTERw&RSTMSGk*BEGDAT-(UNASID(ALL00U%ALL01{(ALL026#ALL03ENDDATmi)DATSIZ/+=O̓,:U|{+~ M+# @+y +~ S+*/%!p~*z+A> )q+ͪ*6 # ~+*!~*!*:U|:°+´+:ʶ+>2V|2W|+:2mwͧ!*+ͪ*,+!*ͪ*@-&"}w̓,*">|:mw***,:*:gh,*a\:`?,!MS,!VS,![++:cG{))ß!*2|*>|lDM*<|lgo&U\*2|:AOÔ, “,ɯ2y/2y!"z"y"y:yGX!,m5>2y:zr-L*y5ͨ-:y-!y~6̷/j.5-:y*y*y7I-2y2yz{m;m5! ͅ-9-y-!8x -"y"yy2yx2y:y!yX-2yͱ:wh-*C|"E|͗<2y!pͅ-د2zX-2y2y2y2yͷY..ʅ-2yG:z´-x5 ?G~--÷-#~.<#^#V++x/2y.-2y5 O~.###~-#--7#^#V|b|!Yj.P&*}ẁ\Ĺ.̀\1.|.yG.=B%x%/%'Dc.=B%h%|̀\>2yĹ.*K%/%j0͐3:zʛ.͉X=!yLXU:y!pwo:z·.:yo:y.!nw.!pw.o&N%̀\+<ú.4!y~L6&:zG:wO*y|!y/6̀\l/ͱͪY:w!|Ď%: w!|Ď%x/B//?/V%"y͑(Y:y2y*y|Ď%!"yY:y2yl/>2y! w~IJ/w:wڮ/'D:y>VL2ỳ\ͪY/͑(Y:y2yɯ2y2y:wYY :AP/!b|̈́%:*//>!*Fw>2y2pwC>ïî+0ü*5@ø H!D D1 go"@!"B !&w#YO!"Lv͊3"L:Bڮ:A<2Aʭ:J@­:Q= ʭ<2B>v>22!"!"!m"L!"2:2O4@ >$>#>!> >#!%!D!"úy2!o))))!y!'_~2¹,"I*@*By2@>2CM+:Fw#:J2Gw#:QwO!"xʈ!.@ˆ!x@ʒ w#w w#w"B"@yy2y=2y>>2:_P_!(Vy2B_V# # o<2g#7)22}2y2h\*"*"}M<2!ʁ5\{2<22!6ʥ\@{: \z2Q*"@*"B:2J:Ċ!w2*P%7*! =*:<2w# :=:2͋!w:M:2K ̟‘_:K{2H03w#3w#3w#3w#­ 2H0~3#~3#~3#~3#:F2H0402GM:B21O:A3̓4 >-ƈ*LO1<:QG>?GyX*I|̓!N>ͨt>@ضwM21H~2I!J~±:@G7’ w4>Ү>w>2F13~¼濱4:CCANNOT BOO 64k CP/M Vers 2.2 U {-MRa p#p ?? ?0?4?< @+  # ` h x?MBASIC5 COMSTRTRK/3BAS STRTRK/3BASGOLF BAS,15/PUZ BAS,ACYDUCY BASAPOLLO BASAWARI BAS BAGELS BAS BANNER1 BASBANNER2 BASBLACJACKBASBLKFRI3 BAS@ !"BLKJK BAS$#$%CHASE BAS&'CHECKERSBAS()CHOMP BAS*+DECISIONBAS ,DICE BAS+-./ENTE BAS01FOOTBALLBAS62345FURS BAS(678KENO BAS+9:;GUNNER BAS<=HANGMAN BAS>?HORSE BAS"@ABLANES BASWCDEFGHLOVE BAS IMANDALA BAS JMASTERMDBAS KMEGATREKBASLMNOPQRSMEGATREKBASTUVWXYZ[, in Ok Break!9~#X  J N#F#i`zl ͦC J y *|<ʍ :  C=96543>7@?2C: * "   *" 2 |< "  * {C{K2* "MEGATREKBAS\]MENU BAS^MOONLANDBAS_`MUGWUMP BAS aNIM BASbcNUMBER BAS dROCKET BASefRUSSIAN BASgSNOOPY BAShiSPIEL BAS&jklSTARS BASmnSTORY BASKopqrsTAXMAN BAStuTICTAC BASvwTPICKS BASxyTRAP BAS zTTT BAS-{|}XDIR COM ~PIP COM:MBASIC5 COM<Ò\(R)CdE9c5CKCPD C<JD~ "6D xHSDTDYDD=!Q"L1LLP)M##XXS Z ZQS%RRAYWYSSSXI7IAI')'h688%78b9w9JmMHSFbIHH"HGFMFG(j)))QQQUUUPPP;LMRk~3<F^bcNBTSUTϫLOSONԚLEAҒINSNDBV+V,V-O HRAL̶OMMOθHAIιATI͆EFSTҭEFINԮEFSNǯEFDB̰EƘELETŪNāLSŢRASŦDIԧRROҨRRX O/QO҂IELILERIOTωO TωOSUEEXNPUԅƋNSTNNMILEԈINűOASEPRINԞLISԟPOISԓO O0EEFTO1ERGOKI2KS3KD4IDEXԃUL̖AMEהOUԝΕPEοCTPTIOκUOKřRINԑOEEEAćUΊESTORŌETURΎE͏ESUMũSEIGHTNENUͬESEANDOMIZŻTOАWAХAVPCTEGQI TRTRINGPACEYSTEͽROΣROFƤABHEA SINSAARPTIDTȡAIԗHILŴENĵRITŷO۾yy||PF<2(z{)()j)++,-($$!&&|(***(NEXT without FORSyntax errorRETURN without GOSUBOut of DATAIllegal function ca * |< " " * |! ' ' 5ïwY2(_ͷ#H * ~?b !C FͦCIBʒ\|<ĺ0>iA2R*ڵ > @J 2 z * ڿ ͦCҿ " :X ʕ >Jڕ <=ʕ ͝~ 4(" Sm\" 'ʕ͎#"l*l " * ͘B" t##s#r# w# yb͔!6"*" C*"* "Õ *bk~####~ʵ Ҝ ڜÞ#s#rÔͬC¿ *DM~#+##~#foͦC`i~#fo??2_ 2^ ;~", 5:^ ~?>dDB|G#O# # #MShTO>vU#B>!AO ^#V#OU#y(~.UB!>U>J2_ J Ð+  >2_ HH>J.~.R:0:_ ~~.>J͝}J|J ~W.͝:] ª* |>ª}e. rwJ! ڽ! ~J#=¾ cÑ&H> > JllOverflowOut of memoryUndefined line numberSubscript out of rangeDuplicate DefinitionDivision by zeroIllegal directType mismatchOut of string spaceString too longString formula too complexCan't continueUndefined user functionNo RESUMERESUME without errorUnprintable errorMissing operandLine buffer overflow??FOR Without NEXT??WHILE without WENDWEND without WHILEFIELD overflowInternal errorBad file numberFile not foundBad file modeFile already open?Disk I/O errorFile already exists??Disk fullInput past endBad record numberBad file name?Direct statement in fileToo many files8P8__:p#J:J>2^ 2_ U ~|5~#J !@}O|G!>: y +=2_ J#D`: 0`.` ~ ґ ʑ ʑ> :_ <"="+~ ʝ ʝ ʝ#>d2 9ͬC" :] ͛'! 6(͵" !9J  +V+^##* ͦC" ͩB* *ͬC ͛=(~(`j)*(QZ~>a͜j)*(ͻ'OG+¿ 0$* "* 3fE3ĈB" !9" ~:¿ #~#{ #^#V": >[@0>]@ցL]O! N#F#~: g ]:b *` #2b B1A~#o&"d >2c T<2c d GC("` !m g 0?<=:b ҏ ڏ*d ‰###^#Vz+!d :c 2] d(D AOGDAGx3f:b *` ͷ*ͦC#ҕ > 2 ͅ#`i F "  "!>:yHG+ȸ#"ʻ<ʿ֌¾Wþ9ͬC" ͛'q+SF{o|P{o|<'{o|24{/o|/}//o|//}o|gz+:Q:[ 2 9:] ͛" " 'ͩB!9m(:] * ~)FͬC,* ͬC,2D ʊ2] !9d(!9.,]:] G:D Od}!F O;B* * ͬC)>" : OͩBO/2 G9~¿ #~¿ #J2tQ+ʒͬC,ʓÿ ³22s22/<͛(z22|ͬC,͛+{>2ͽm\!"N#F#xz *|}BN#F#ͦCy " 0~ I > @b !X X IB ~?#X X 2 m\u #~ ڄ _ژ _.ʘ B!Ҙ ë : ʩ <© > >2 { ڹ M!q <~ #~# )!:G@ #T]~ # ~ y 2)(G(Q1,Q2))QN=QX"QUADRANT (";((Q1),,);",";((Q2),,);")"uQb"SECTOR (";((S1),,);",";((S2),,);")"QlKPQv DT n QSK3ϑAR$;"SHIELD ENERGY TOO LOW":SL:A:QA: QRD$():A:B:A$(S(A,B));:B::ABR:"SHIELDS";S;);"ENERGY";E;);"PHOTONS";P;[R);"STARDAYS";T9TqR :"COMMAND";AR A A " ----> COMMAND";ARA Aϑ"WARNING - PROPER COMMANDS ONLY !! ": RARD(A)%SAR$;"CAPTAIN, WE DON'T HAVE ";D$(A);" ANYMORE."=S DT n : lSA*,,,,,R,,n ,,2S :A:A;" = ";D$(A):ASA S A;"= ";D$(A):S*"COURSE";C1: C1 C13 HS4"WARP FACTOR";W1S>SL:KP: R?THAR$"REJECTED ! COURSE MUST BE IN RANGE OF O TO 359.99 DGRS."PTR(W1)hT\D()W1ACzTfAR$;"WARP ENGINES ARE DAMAGED, MAXIMUM SPEED = ";ACTp*TzTECTEC:C$"":K3ύTEW1TS U(6* #^#V*ͦC** ͦC2! ͦC2>͂H`F͂H?(kͬCzYPYҕ" : :_ ~GzͬC+K x,{  <2~ʩzf<í* * "~#####õ  ͬC,* ¿ |" 2 " Õ ͛~,ͬC+'2c c͵44">2UͩP+IBʌ?,;ʅ͛ʐ0͂F6 * 4*|* :ʺ:G<:?:G<:[ ?=IBFU*|% ~::G<: :G:[ IB҅/z(z0:o @~\2go"ͬC#;QK9ͱ)JCͅF?Redo from start #~ʿ "q: ¹ !F* ͧP!W #K9">2̓F~,2 /2 3ͬC;F: K>?@> @JC6,+>2 9~+(Š#ʿ "(p)qqʕ,¿ ~,>2 : =dH+~,[+6,* 2 ͬC,9~,: l2 *|+QI :EXPANDED APRIL 1977 BY W.A.BURTON4I :PIRATED JAN. 1978 BY ZOSOOI G(,),S(,),K(,)[I()vI( )"--STARTREK--":|I2I< "WHAT IS YOUR SECURITY CLEARANCE NUMBER (1 TO 1000)";T9IFE8T9IP T9 T9 AR$;"INVALID!! REENTER!!": < JZ A T9#JdR9():R9())JncJx:():" ENTER RANK (1=LOW,12=HIGH)";R9mJRRR9JX4R9:R9R9nw:W1W1nwJ ()J "COMMAND ORDER : STAND BY !"J "YOU ARE PRESENTLY BEING ASSIGNED TO A MISSION..."&K " WITH A FAILURE FACTOR OF"; (RRH)EK" GOOD-BYE, SIR..."_KCX{:AR$" ---> "KXA(X42):AC((X4L}))KX4KE XAd:P :S9K D(D)((K(I,)S1)(K(I,)S2))KQ1(()):Q2(())$LS1(()):S2(())^L WARP ENGINES,SHORT RANGE SENSORS,LONG RANGE SENSORSL PHASERS, PHOTON TORPEDOES,SHIELD CONTROLL" DAMAGE CONTROL, COMPUTER,DAMAGE REPAIR,COMMUNICATIONSL, A : D$(A): A"M6A$("CAPTAIN, YOU ONLY HAVE"E"UNITS OF ENERGY. "UU"REFUEL FROM YOUR SHIELD RESERVES, WHICH HAVE"S"UNITS?"]UAmUD(A) vUUI :D(I)UD(I)D(I):D(I)UD()U"DAMAGE CONTROL REPORT: "D$(I)" REPAIRED."VI:()L}`V()L}`!VB4V()R9 ώTVR1(()):D(R1)ώyV$D(R1)D(R1) ():D()ώV.D()ώV8:"DAMAGE CONTROL REPORT: "D$(R1)" OUT."::VBR1(()):D(R1)`VLD()`)WV:D(R1):"DAMAGE CONTROL REPORT: "D$(R1)" REPAIRED.":bW`W1W1:A1Q2S2:B1HQ1S1:W1W1W1 WjEEW1:TTW1:TT9 WtA2(A1W1(C1CX))W~B2(B1W1(C1CX))W(A2A2?B2B2?),XAR$;"CAPTAIN, HEED STARFLEET REGULATIONS! ( STAY IN GALAXY ) !!?XTTW1:eX A1(X)(A1X(C1CX))X B1(X)(B1X(C1CX))XX(W1)X(Q1(B1(X))Q2(A1(X)))XW1:n YS3B1(X)(B11WG": W:,+͆FO: y!@ W.P.+L,+: C*|hÌ͵…#~# #^#V" lͬCÛͬC(+ͩBʹ$" * ~Wڿ " ôzZ~" _:] H!yxVz@QNzN! :] === N#F1#N#F1#! N#F#N#FKGw* Þj)(t69(9xdd!* F9y2^ xʪ:] Wxz ! N#F* ͖)j(" " (͖)!:^ O ~#foj(2] ʸ" ýj)!(͊)*(" " ͊)(͊)Å& W.D oOyҌ͗ͬC,ͱ)* æͱ} ڝj)>2  N#fi-++<'Z͞(}/o|/g" í:] 7(zʄ+{)" . ":A$()" E ":A$()" * ":A$()" K ":A$()" B "UM@F1(\:F2 #z:F333s:F4p}:K9:B9K9MJI:J:R1():R2():R3(())MTK3(R1F1F2R9)(R1F3F2R9)(R1F4F2R9):K9K9K3M^B3(R2F3):B9B9B3:G(I,J)dK3 B3R3:J,INh (B9K9)@HNr"OBJECTIVE:DESTROY"K9"KLINGONS USING"B9"STARBASE";VN|UK9:YB9kNB9ϑ" ";:vN"S ";NT9K9()K9R9 R9:PRT9K9:"IN"T9"STARDAYS."N NS3:B3S3:K3B3:A:B:S(A,B):B,AOA:B:K(A,B):B,A:S(S1,S2)GOX #zG(Q1,Q2):K3(X):Y(XK3) :B3(Y)cOS3G(Q1,Q2)dK3 B3O K3ςA:B:K(A,B):B,A:OAR$;"CONDITION RED !!!!!":AK3OR1(()):R2(()):S(R1,R2)(PS(R1,R2):K(A,)R1:K(A,)R2:K(A,)S9: A:B36PB3mPR1(()):R2(()):S(R1,R2)|PS(R1,R2)PS3DP&AS3P0R1(()):R2(()):S(R1,R2)0P:S(R1,R2):APDG(Q1,Q(X)):S4A1(X)(A1(X))YS(S3,S4)nMYS(S1,S2):S1B1(X)(B1(X)){YS2A1(X)(A1(X 1)):S(S1,S2)YAR$;"NAVIGATIONAL ERROR :ENGINES SHUT DOWN AT (";Y((S1),,);","((S2),,);")"Y TT(W1)$Z" YOU LOST "T" UNITS STARTIME RESTARTING ENGINES."*ZBZ( S(S3,S4) gZ2"SHIELDS LOWERED FOR REFUELING"Z<S:P :C$"D":E XAdZF ZPR1  ZZD(R1)σR1:ZdD(R1)D(R1)( ()R9):R1:[n X:S(S1,S2):S1B2(B2):S2A2(A2)6[xQ3(B2):Q4(A2)[[(Q1Q3Q2Q4)Q1Q3:Q2Q4:[S(S1,S2):AS1S1:BS2S2[ABAB[S(A,B)2[B,A:[[ A(Q1) (Q1): B(Q2) (Q2)\ABABϑ" ***";:B:" "::A:@\" "(G(A,B))( ));k\((G(A,B)),,(G(A,B))( ));\G(A,B)(G(A,B)):B:" "::A:\\K3\D()\AR$;" COMPUTER FAILURE HAMPERS ACCURA"STARBASE PROTECTS ENTERPRISE" : ee*e I=e K(I,)t he HK(I,)D()(())()e$ SSH:H"UNIT HIT FROM ("((K(I,)),,);",";e. ((K(I,)),,);"), LEAVING"Se8 S eB eL ()R9 t fV R1(()):R2(())+f` (S(R1,R2))V afj S(R1,R2):S(K(I,),K(I,)):K(I,)R1:K(I,)R2hft Inf~ f AR$;" ENTERPRISE DEAD IN SPACE"f f CY:: f K3 f f  f f :::::AR$;f "IT IS STARDATE"T:g  g !g :::::AR$;Cg "ENTERPRISE DISABLED !!"::Lg CYg "THERE ARE"K9"KLINGONS REMAINING.":CY g "YOU HAVE FAILED !!":g( L(())g2 L f , , , , g< :"DO YOU WANT TO TRY AGAIN";X$hF (X$,)"Y" x : "2hP "THE FEDERATION IS SAVED !!"bhZ "YOU ARE HEREBY PROMOTED TO ADMIRAL!!!!":khd < thn DThx "COMPUTER ON--COMMAND";Ah A AR$;" NO SUCH COMMAND !!": x h AJ ,| , , ,N,> ,R ,p4 KA:q> SD r : qH "qR B,q\ n Xqf "YOU HAVE SCREWED UP ONCE TOO OFTEN !"qp "OFF TO THE VULCAN TORTURE CAMPS !!"qz T < : q "YOU WILL BE EXECUTED AT SUNRISE"q  q "YOU WILL BE PUT TO DEATH FOR YOUR INCOMPETENCE"r  8r "YOU WILL BE CONFINED TO YOUR QUARTERS UNTIL"fr "VULCAN'S MOONS BECOME TOURIST TRAPS !!"yr T< : r "IMBECILE !! WE HOPE YOU CONSIDER SUICIDE!"r T< : r L(UK9) ((UK9)T)d(YB9)r ESLLs K9LL(R9d)s :;s"YOUR MISSION RATING IS: ";LIs::::Ss 6_s$()hs.@qs8< wsBsL" O9O"sV" 135 . O45"s`" . . ."sj" . . ."!tt"18O . . . . . . .OOO WARP-COMPASS"S3S4S3S4cHcRc\"ENERGY AVAILABLE="ES" NUMBER OF UNITS TO SHIELDS";cf XcpXczESX\cEESXcSX dSLdd?d"DEVICE STATE OF REPAIR"cdR1 :D$(R1);) D(R1):R1{d DT n : d"SHORT RANGE SENSORS REPORT NO KLINGONS IN THIS QUADRANT"d DT n : e C$"D" K3 m W1((S1K(I,))(S2K(I,)))5m W1 ϑ"--->MALFUNCTION !":Cm  |m C1I((K(I,)S2)W1(((K(I,)S2)W1)))m  m& C1C1(S1K(I,))CXm0 C2(I)C1( ())m: C3(I)C1( ())mD C3(I) C3(I)C3(I)hnN C2(I) C2(I)C2(I)hInX "(";((K(I,)),,);",";((K(I,)),,);anb ")",C2(I),C3(I),W1hnl Inv DT n : n n MR(T9T)K9:DTn XM((MRPR)PR)dn KAϑTKT"STARDATES LEFT TO SAVE STARBASE.": o () #zR9B9ώo KA:A:BZo G(A,B)d(G(A,B)d)K1A:K2B:()A:Bo B,A:TKTQ8}((Q1K1)(Q2K2))( R9)o TKTKo AR$;"!!! STARBASE IN QUADRANT ("((K1),,)",";o ((K2),,)") IS UNDER ATTACK!!"(p "YOU HAVE"TKT"STARDATES TO SAVE IT!":6p TTK* ip "TOO LATE!":KA:G(K1,K2)G(K1,K2) :B9B9p (Q1K1Q2K2)ώp A:B:S(A,B)S(A,B)p B,A:p* Q1K1Q2K2ϑ"YOU ARRIVED IN TIME! STARBASE SAVED!"";I "UNITS OF STARTIME"yhD(A)D(A)I:yr[y|"SECURITY CONTROL ADVISES THAT NO AUTHORIZATION HAS BEEN"y"GIVEN TO ACTIVATE SELF- DESTRUCT SYSTEM."y"PROCEED WITH ASSIGNED MISSION":: x yy"BE ADVISED, YOUR MISSION PROGRESS FACTOR IS";PRy &zTF(XXX4)L: TF TFTF jz" THE TOLERANCE FACTOR FOR THIS MISSION IS [+/-]";TF;"PERCENT"pzvzz(XM),,&z(XM)(TF@)bz(XM)TFDz:"CAPTAIN, YOU ARE BEHIND SCHEDULE - LET'S GO !!"{ D{:"YOU ARE EXACTLY ON COMPUTED SCHEDULE; PROCEED WITH MISSION"M{o{&XMTF:XM(TF@){0:"YOU ARE AHEAD OF COMPUTED SCHEDULE, KEEP UP THE GOOD WORK !!"{:{D:"YOU ARE BEHIND SCHEDULE AND OUT OF TOLERANCE FACTOR !!"C|N"COMMAND CONTROL PROJECTS FAILURE...YOU MAY SURRENDER TO ENEMY"W|XEQ:SD: 2d|bYYACX4p|l()|vAR$;"---------COMPUTER PROJECTION----------":|"PROJECTED LIKELIHOOD OF SUCCESS FOR YOUR MISSION =";YY;"PERCENTMISSION PROGRESS FACTOR IS ";MR: XM PW$" WORSENED ": PW$" IMPROVED "@("YOUR COMBAT SITUATION HAS";PW$;"BY A FACTOR OF";XM;"PERCENT"2 (XM)TF EG$" NOT ": EG$" "̅< EG$" " EH$"": EH$AR$F EH$;"YOUR PROGRESS IS";EG$;"WITHIN TOLERANCE FOR THIS MISSION"P5Z EG$" NOT " d : n Md XM n : ]n:SD:KDx"CAPTAIN, COMMAND CENTRAL PROJECTS DEFEAT BY ENEMY. YOU ARE NOW"憂"AUTHORIZED TO SURRENDER OR TO ACTIVATE SELF-DESTRUCT SYSTEM"n :SD:KDE"CAPTAIN, FEDERATION COMMAND PROJECTS SUCCESS FOR YOUR MISSION."O [()e ,"SELF DESTRUCT SYSTEM ACTIVATED"::: ,"COUNTDOWN BEGUN !"::Ї)"FIVE":: ,)"FOUR":: ,)"THREE":: , )"TWO":: ,.)"ONE":: ,@"ZERO": ,Q"():@j, I 2:AA::6 I :AA::@O":: ,.)"ONE":: ,@"ZERO": ,Q"():@j, I 2:AA::((H))C)(TT))Qt D1(D1W)Q~ T  RO((TT)L)(H)((D1B`ex))-R D2((O(DD1)))@R DD1 JR `R"YOU DUBBED IT."lR D1#vR R D DR jR D2 R"TOO MUCH CLUB, YOU ARE PAST THE HOLE.."R BDR DD2R  D2  S D2 |S D2 ,S( L()6S2 nS<S2Q( (F))(F)(H((H)Y))PxSF BSP QQSZ S1(S1) Sd Sn"PERCENT FULL SWING";Sx WS WWdSS W T L():T C`T CC %T`3TD_mT"BALL HIT TREE,WENT INTO ROUGH"DK"YARDS FROM HOLE"yTDDKT\TOT JT T@T(S2)((S2))JT"YOU HOOKED- ";T" L()L()U, O-h U60,U@(S2)((S2))@UJ"YOU SLICED-";NUTL()L()WU^,eUh"BADLY."nUr0yU|L()U0UL()UD2("-}"WE HAVE AUTO ACTIVATED SELF-DESTRUCT SYSTEM ON YOUR VESSEL"T}"GOODBYE, CAPTAIN.............":}"END OF MESSAGE FROM FEDERATION COMMAND"::} 6} }:"YOU ARE AHEAD OF SCHEDULE AND BEYOND TOLERANCE FACTOR"~"CALL KLINGON LEADERS AND REQUEST THEIR SURRENDER":KQ!~:2F~AR$;"MESSAGE FROM COMMAND BASE"~~:"ENEMY HAS SURRENDERED TO FEDERATION COMMAND !!"~:::~P ~ KQ : EQ  ~  (XM) ,R,~ (XM)TFR  :"KLINGON COMMAND ON FREQUENCY"J*"NATURALLY, WE ARE PLEASED THAT YOU ARE CONCEDING, CAPTAIN"v4"WE ARE PRESENTLY BOARDING YOUR CRAFT">:"HERE IS A MESSAGE FROM YOUR LEADERS-":: 6H(): ( R \XX zf:"MESSAGE FROM KLINGON COMMAND...."6p"NO FURTHER COMMUNICATIONS AT THIS TIME": qz:"WE'LL TALK WITH OUR WEAPONS, EARTH-SWINE !!": { AQ((XX)) AQ f,z,,,GFTF@΀XMGF ހXMTF $:"CAPI ( ):::" * * GOLF * *"I L(()II(J2"WELCOME TO THE HALES' 8080 GOLF CLUB." J<JF:JP "DO YOU NEED INSTRUCTIONS (Y-N)?";VJZ A$ : A$"Y" V \J_iJdX:TTwJn NLJx S2J FJ"WHAT IS YOUR HANDICAP?"J HJ HJ H  JJ"DIFFICULTIES AT GOLF INCLUDE:"8K" 0=HOOK, 1=SLICE, 2=POOR DISTANCE, 4=TRAP SHOTS,"qK" 5=PUTTING ENTER WHICH IS YOUR WORST. (1 ONLY)"yK TK T K T K S1K Z9((H)(T)) K Z Z9KR(TT)K" ZK, L()K6 JL@ QLJ S2S2S1LT K,L^ F QLh"YOUR SCORE ON HOLE"F" WAS"S1xLr"-------------------------------"L| S1P L S1P L S1P L S1P L L"KEEP YOUR HEAD DOWN."L  M"A PAR., NICE GOING."M BM"A BIRDIE, AND TWEET - TWEET TO YOU."LM \M P {M"** A GREAT BIG EAGLE **"M M"A HOLE IN OD2)UU L()U0U D1(YD1)UU L()&V"YOUR SHOT WENT INTO THE WATER." V S1S1TV"PENALTY STROKE... HIT FROM PREVIOUS LOCATION"`V JJmV L()uVDB~V\V&"YOUR SHOT WENT OUT OF BOUNDS."V0V: TXVDD2(((P((H))(TT)))VNVX (O)N WbNNL~+Wl"SHOT DUBBED, STILL IN TRAP."4Wv\@WNLIWDW"ON GREEN"D2" FEET FROM PIN. PUTT POTENCY NUMBER:";W IWWS1S1W S1P(Ht})W KWKKW THWD2D2I((TT))@X D2 \ X D2 *8X"YOU H*O*L*E*D IT">X HXFFQX ,dX*"PUTT SHORT."rX4D2(D2){X>XHD2D2I((TT))XRX\"PASSED BY CUP."XfD2D2Xp4Xz D,P,L(),L()XY"ARE YOU READY TO CONTINUE? 0=NO, 1=YES";Y R(Y R 8 .YfY"YOU'RE AT TEE.. HOLE"F", DISTANCE"D" YARDS, PAR"PY"ON YOUR RIGHT IS ";YXY YTAIN, DESPITE YOUR SLIGHT ADVANTAGE, YOU ARE NO MATCH FOR"F"THE GLORIOUS KLINGON FLEET"z)"END OF MESSAGE FROM KLINGON COMMAND":XXϑ" KLINGON COMMAND TO ENTERPRISE..":ź():"MESSAGE FROM KLINGON LEADERS..."/:"WE CONCEDE THE WAR, SIR, CONGRATULATIONS !!":GAV(X4):DRZ$ TECAV 8u. C$"D" ` : t8AUAVTEC:AUKF$"":KF$"S"B:"DAMAGE REPAIR INACTIVE !!"L"REQUIRES";AU;"MORE RECHARGE UNIT";KF$V: 4`:AR$"YOU MUST BE DOCKED AT STARBASE FOR DAMAGE REPAIR !!"@j: FtT~:A D(A)ϑ  )A;)D$(A);()"DAMAGED"ƒ:"IF NO DAMAGE INDICATED ABOVE, ANSWER WITH 0 (ZERO)"ღ "WHICH ONE TO REPAIR ";AAA ϑAR$;:  D(A) ::D$(A);" NOT DAMAGED !!": [:)D$(A);"---REPAIRED":qD(A):TEC::AR$;"NOTHING DAMAGED AT PRESENT":ۄ"INITIAL MISSION PROGRESS FACTOR WAS";PR "CURRENT *N*E !!!"M F 8 M S1M&M0 S1 zM: L() MD XNN L()  =NX"SHOT WENT "D1" YARDS - IS "D2" YARDS FROM HOLE."hNb"BALL IS "(O)" YARDS OFF LINE IN ";rNl |Nv \N L(X) N L(X) N L(X)  N L(X)  N L(X) 4N L(X) HO"OUT OF BOUNDS..."O 1O"PGA RULES HANDICAP = 0-30";O JO"FAIRWAY"TO aO"ROUGH"jOwO "TREES"O O "ADJACENT FAIRWAY."O* O4"TRAP.."O> OH"WATER."OR O\Of"WHAT CLUB DO YOU WANT?";Pp CPzP C (P C 8P C KP L() \P C mP C wP P S1S1P WP"OH BOY, DID YOU GOOF THAT ONE UP... BETTER THINK..."PP \P C P CCQ Q S1S1Q$ W+Q. C nBQ8 F(F) <RQB C V\QL `nQV L() Q` S1 QjD1(((H) "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,2,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,6Z8 "COURSE PAR IS 72"ZB "TOTAL SCORE FOR "F" HOLES WAS"S2 [L "PLAY AGAIN";A$: (A$,,)"Y" : "MENU[V "RULES"[` K[j " **********************************"Q[t }[~ " * * HALES' 8080 GOLF CLUB * *"[ [ [ " HERE'S YOUR BAG OF CLUBS"[ [ "WOODS (FULL SWING ONLY)"[ " 1 DRIVER"[ " 2 BRASSIE" \ " 3 SPOON"\ 0\ "IRONS (FULL SWING ONLY)"F\ " 12 TWO IRON"Q\ " ."\\ " ."s\ " 19 NINE IRON"y\ \ "IRONS (LESS THAN FULL SWING)"\( " 22 TWO IRON - PARTIAL SWING"\2 " ."\< " ."]F " 29 NINE IRON - PARTIAL SWING"]P 0]Z " SORRY, NO 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."] ]TUMJ MT 'PAD' SINGLE CHARACTER ENTRIESM^PD$" " : PD$PD$R$Mh PD$, R$ : Nr DATA TABLES)N| -1, -1, -1, -1, -1, -1, -1JN " 1", " 2", " 3", " 4", -1kN -1, " 5", " 6", " 7", " 8"N -1, -1, " 9", 10, 11, 12N -1, -1, 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, 13, 12, 11, 10, " 9"OO " 8", " 7", " 6", " 5", " 4"jO " 3", " 2", " 1", **O LOAD EACH MATRIXO X  : Y O A$(X,Y) : Y,X : O X  : Y O NM$(X,Y) : Y,XP X  : Y  P& A(X,Y)P0 Y, X2P: X  : Y APD RV$(X,Y)PPN Y, X : lPX LOCATE THE BLANK (**){Pb I1 Pl J1 Pv A$(I1,J1)"**" II1 : JJ1P J1, I1P (NM) (A$(,)"**") (A$(,)" 1") (Q (RV) (A$(,)"**") (A$(,)"15") jBQ PRINT OUT A$(ARRAY)OQ ( )WQ:eQ X sQ Y Q BL$; A$(X,Y);Q Y : :  15 14 13 12"Y" 5 6 7 8 11 10 9 8"Z" 9 10 11 12 7 6 5 4"JZ"13 14 15 ** 3 2 1 **"PZ_Z X9 Z "REMEMBER THESE TWO DIAGRAMS, BECAUSE ONE (AND ONLY ONE)"Z"WILL REPRESENT THE CORRECT SOLUTION TO A GIVEN PUZZLE."[ "NOTE ALSO THAT IN BOTH CASES THE BLANK '**'"C[ "OCCUPIES THE LOWER RIGHT HAND CORNER." : m[ "HIT RETURN KEY FOR MORE" : JUNK$z[ ( )[:[ "A MOVE IS MADE BY SELECTING A NUMBER WHICH IS ADJACENT"["TO THE BLANK, AND MOVING THAT NUMBER INTO THE SPACE"5\ "WHICH THE BLANK OCCUPIED. TO DO SO, MERELY ENTER"h\ "THE NUMBER WHEN ASKED, 'YOUR MOVE ?'. " : \" "IN THE CONTEXT OF THIS GAME, AN ADJACENT NUMBER IS ONE"\,"WHICH IS DIRECTLY ABOVE, BELOW, TO THE RIGHT OR LEFT"\6 "OF THE BLANK (**)"9]@ "(THERE IS NO SUCH THING AS DIAGONALLY ADJACENT)..."i]J:"HIT RETURN KEY TO CONTINUE...": JUNK$x]T ( ):]^ " EXAMPLE: 1 13  "NOTE: SCORER WILL ASK YOU FOR'PERCENT FULL"] " SWING' ON CLUBS 22-29. THIS SHOULD BE"^ " A NUMBER FROM 1 TO 99."#^ \^ " YOUR HANDICAP MUST BE 0-30 ACCORDING TO PGA RULESb^ ^ " PUTT POTENCY REFERS TO THE STRENGTH WITH WHICH"^ " BALL IS PUTTED. USE NUMBERS GREATER THAN ZERO,"_ " INCREASING THE NUMBER FOR GREATER DISTANCE..." _ _ _  " BALL IS PUTTED. USE NUMBERS GREATER THAN ZERO,"_ " INCREASING THE NUMBER FOR GREATER DISTANCE..." _ _ _ YOUR BAG OF CLUBS"[ [ "WOODS (FULL SWING ONLY)"[ " 1 DRIVER"[ " 2 BRASSIE" \ " 3 SPOON"\ 0\ "IRONS (FULL SWING ONLY)"F\ " 12 TWO IRON"Q\ " ."\\ " ."s\ " 19 NINE IRON"y\ \ "IRONS (LESS THAN FULL SWING)"\( " 22 TWO IRON - PARTIAL SWING"\2 " ."\< " ."]F " 29 NINE IRON - PARTIAL SWING"]P 0]Z " SORRY, NO 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."] ]Q X : : Q 'SHUFFLE' A$(ARRAY) & A(ARRAY)Q X  : Y RR8(()) : R9(())&R  XR8 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 'REVERSE' FASHIONR>CORH A(,) A(,) zRR A(,) A(,) zS\ A(,) A(,) z4Sf A(,) A(,) z>Sp JSzCOCOfS X1  : X2 S X3  : X4 S A(X1,X2) A(X3,X4) S X4, X3 : SCOCOSA(X1,X2)S X2, X1S CO((CO)) J I :B(I): I\JC:F(N):B( ):B()eJ#|J("YOUR MOVE";:nJ- E PJ2 MH dJ7 E PJ<"MY MOVE IS ";: JA EPJF MH ",";: JK E # KP:"GAME OVER"AKUDB()B( ): D "I WIN BY ";D"POINTS":fKZNN: D "DRAWN GAME":K_"YOU WIN BY "D"POINTS...":Kd"AGAIN";Kn M: M M MM:Kx"ILLEGAL MOVE":dK B(M) xKH:K LKM: XLE:KKK;LCC: CF(N)F(N)KTL I:B(I)\L IbLL I : B(I)E:LL:" ";L I :DL IL:I :DL," ";: B():" ";L  I:DM I M:: MDB(I) " ";-MIB(I);:?MXPB(M):B(M)cM] PP:MM: M MMwMbB(M)B(M): PMgB(M)ϋMϋM ϋB( MM: "JACK"MD MN "QUEEN"MX Mb "KING"Ml Mv "ACE"M N"WHAT IS YOUR BET";MN M $N .N ?N MQ oN "SORRY, MY FRIEND, BUT YOU BET TOO MUCH."N "YOU HAVE ONLY ";Q;"DOLLARS TO BET "N N C(( )())N C N C N C *O C >O  C R"O C f3O  C z;O* CEO4 RO> "JACK"\OH jOR "QUEEN"tO\ Of "KING"Op Oz "ACE"O CA O O CB O "YOU WIN !!!!!!!!!!"O P "HA HA HA YOU LOSE "P MQ P KP "SORRY, FRIEND, BUT YOU BLEW YOUR WAD !!!!"kP "TRY AGAIN(YES OR NO)";A$P A$"YES" P :"O K HOPE YOU HAD FUN!!!!!"P "MENU"PYOUR WAD !!!!"kP "TRY AGAIN(YES OR NO)";A$P A$"YES" P :"O K HOPE YOU ING"&M 2M "ACE"CM B &TM B :eM B NvM B bM B vM& BM0 **********************************************"Qb ();Ql I Qv IQ ,Q: R::R::AR"NOTHING CAN POSSIBLY GO WRONG........";QR I YR IrR"GO WRONG........";R (() )  "MENU"R I : I: R....";QR I YR IrR"GO WRONG........";R (() )  "MENU"***************"QO " *************"xO " ********"O H O HO H O" ********"O HO ,O ();(^)/P "***********************************************************"sP& "***********************************************************"P0 "**** ****"P: "**** BOOM!!!!!!!!!!! ****"?QD "**** ****"QN "***********************************************************"QX "*************)qMlMqB(H)B(H)B( M):B(M):B( M):M Dc:H M% I :G(I)B(I): IN* J : B(J)u&N/Q:MJ:X@N4 I: B(I) MQN9LB(I)I:RlN> L LL:R:>NC B(L) L L RB( L)RNH RQ QRNM INRQB( )B()Q: C kNWKJ: KKKO\ IN: F(N)K(F(I)(C)L})QQOf I:Ok I :B(I)G(I): IOOp QD AJ:DQWOu JoOzMA:(*M);:O IN:B(I): JO "MENU"O:Ok I :B(I)G(I): IOOp QD AJ:DQWOu JoOzMA:(*M);:O IN:B(I): JO "MENU"OKK;LCC: CF(N)F(N)KTL I:B(I)\L IbLL I : B(I)E:LL:" ";L I :DL IL:I :DL," ";: B():" ";L  I:DM I M:: MDB(I) " ";-MIB(I);:?MXPB(M):B(M)cM] PP:MM: M MMwMbB(M)B(M): PMgB(M)ϋMϋM ϋB( MI ( )I " *** THIS IS AN APOLLO SPACECRAFT MISSION ***"J:" NOTHING CAN POSSIBLY GO WRONG"J(?J2:"STAND BY FOR BLAST OFF":NJ< A dVJF AaJP B mJZ BBJd C : CJn BJx B J ZJJJ J D : DJ D J ,.K "***********************************************************"rK "***********************************************************"K "**** BLAST OFF!!!!!!!! ****"K "***********************************************************">L "***********************************************************"SL E  : E^L ,L " '"L " I"L" " / ^ \"L, " /^^^^^^^\"M6 " I--USA--I">M@ " I-------I"eMJ " I A I"MT " I P I"M^ " I MODIFIED FOR MBASIC 2/12/79 AEHI N( ),A( )I ( ) J( );"THE * * BAGELS * * GAME.."J2J<;JF "WOULD YOU LIKE THE RULES";A$TJP (A$,)"N" JZ"I AM THINKING OF A 3 DIGIT NUMBER. YOU CAN GUESS WHAT"Jd"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 CORRECT PLACE"GK"BAGELS - NO DIGIT IS CORRECT"mK"NOTE! NO DIGITS ARE THE SAME.."KN()(())KN()(()  )K N()N() KN()(()  )K N()N() K N()N() L: "OK, I HAVE A NUMBER."LG4L:: "YOUR GUESS";"P" THEN G1=1 23 INPUT "CHARACTER (TYPE 'ALL' IF YOU WANT CHARACTER BEING PRINTED";M$ 29 PRINT "STATEMENT"; 30 INPUT A$ 35 INPUT "SET PAGE";O$ 40 A=ASC(LEFT$(A$,1)) 50 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 IF 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 FOR K=8 TO 0 STEP -1 230 IF 2^K=#+-*/\()[].,;:!"VL@A$A$"?&$%": "&" GIVES QUOTEL N <: N1 : M(N,N1): N1,NL I Ll T(I)(I)L IL4 I (B$)L J <L (A$,J,)(B$,I,) ( L` FJM  M( JM K &M XM(F,K)6MT X DM Q WM T(Q)X H aM YQkM  sMH QM L M P(L)X(X) 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,512,257,257 928 DATA "2",261,387,322,290,274,267,261 929 DATA "*",69,41,17,512,17,41,69 930 DATA "3",66,130,258,274,266,150,100 931 DATA "4",33,49,41,37,35,512,33 932 DATA "5",160,272,274,274,274,274,226 933 DATA "6",194,291,293,297,305,289,193 934 DATA "7",258,130,66,34,18,10,8 935 DATA "8",69,171,274,274,274,171,69 936 DATA "9",263,138,74,42,26,10,7 937 DATA "=",41,41,41,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"MENU" 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"MEN46,271 918 DATA "P",512,18,18,18,18,18,15 919 DATA "Q",125,131,258,258,322,131,381 920 DATA "Y",8,9,17,481,17,9,8 921 DATA "V",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,MT2M"----------------------------------------------------"M"BET";MPM W N W N W (##N /NT1T1C7NMXAN MNT1T1CcN"MY UP CARD IS",mN sNN T1 +N"BLACKJACK..."N"MY HOLE CARD IS",N XMN N .N"SORRY "NAM$", HOUSE LIMIT IS $1000."O #O+ START OF DEAL TO PLAYER+O,P5O- QO/"YOUR DOWN CARD IS ",[O0 gO1T2T2CqO6 O8"YOUR UP CARD IS ",O9 O:T2T2CO; T2 >O< T2 O= F TO> H NO? E() BP@"YOUR TOTAL IS SOFT "T2"PBFF(PC5PD"WELL";=PE HNPF H L^PG F J~PH"TOO LATE TO DOUBLE, "NAM$PI DPJWWPL H 6PN"YOUR TOTAL IS "T2PP PT"BLACKJACK",PVW@WPY  Q SUBROUTINE DEAL&QN (((NW1)))4Q A NT -QT DEALER PLAYSYTP_TwT"MY HOLE CARD IS",TXMT T T1  T T1 T E()  T T1 T T1T2 T T1T2  U"YOU WIN $"W,U $U"PUSH")U 0?U"I WIN WITH "T1,IU .SU  cU"I DRAW ",qU T1T1C{U U U E()  ,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,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,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,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,0O 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,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,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,-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,0I ( )I" * * BLACKJACK * *"III"WELCOME TO AL'S DEN OF INIQUITY...."J4J "MY NAME IS * * ED * * , I'M AL'S DEALER..TJ"WHAT'S YOUR NAME?": NAM$aJ ( )J "FINE "NAM$", HERE ARE THE RULES FOR THE GAME OF"J "BLACKJACK... ACE COUNTS 1 OR 11"J "K,Q,J COUNT 10, ALL OTHERS ARE FACE VALUE"&K "HOUSE LIMIT ON BETTING IS $1000, A BET OF $0"?K"WILL END THE GAME.xK"I MUST HIT A 16 OR A SOFT 17. CLOSEST TO 21 WITH-"K"OUT GOING OVER WINS THE HAND. TIE HANDS ARE"K"PUSHED... YOU MAY NOT SPLIT AS YET."L"I'LL TELL YOU WHEN I RESHUFFLE THE DECK.">L"BINARY LOGIC WILL BE USED TO INDICATE RESPONSES"fL"STICK = 0, HIT = 1, DOUBLE = 2"qL XyL+KL0W1L1"TO PREVENT THE COMPUTER FROM STACKING THE DECK,TYPE IN"L2"A FOUR DIGIT NUMBER IN THE FORM XXXX";L3 NM8 I NM9X( (X)) M: I,Mn D(4);Mx A 4FMD(A)NM A]M NEW HANDeMHoMKKzME()MFMT1ME()UE()E()UT1T1 U U "I BUST,YOU WIN $"W,V# CALCULATE PLAYERS WINNINGS FOR A WINV$W1W1WV& 0FV- CALCULATE PLAYERS WINNINGS FOR A LOSSRV.W1W1WcV0 W1 6tV1 W1 =V2"YOUR WINNINGS ARE NOW $"W1V4 V6"YOU ARE NOW DOWN $"(W1)V8 V="NOW YOU'RE EVEN"VB V[ A 4  W` XA oWeZ(A )&Wj ~.Wo ABW~ X(Z) KWC [WE(P)E(P)eW yW X(Z) WCXZW WC WW(# W1 #W2#"PAY COMPUTER $"(W1)W<#"SORRY "NAM$", BETTER LUCK NEXT TIME."WZ# '!X#"COLLECT $"W1"FROM COMPUTER"TX#"WELL "NAM$", YOU FINALLY CAME OUT A WINNER!"tX' I : I: "MENU": # '!X#"COLLECT $"W1"FROM  T T1 T E()  T T1 T T1T2 T T1T2  U"YOU WIN $"W,U $U"PUSH")U 0?U"I WIN WITH "T1,IU .SU  cU"I DRAW ",qU T1T1C{U U U E()   ,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,16,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,12R 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,107S 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,-2S  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,-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,-10,-10,-15,-20,-20,-23,-25,-7Tz 5,1,0,4,7,0,0,2,6,3TT SECURITY NAMESTUA$"HIGHWAY IMPROVEMENT BONDS"2UB$"X-PANDO CORPORATION"SUC$"SEASIDE PROPERTIES INC."pUD$"OLD DOG MUTUAL FUND"UE$"RUBBLE DEVELOPMENT"UF$"SLICHECK FOR STOCK SPLITS]] T(N) N] "*** "S$" STOCKS SPLIT ***" ^ T(N)(T(N))  ^T(N)(T(N))*^ :^T(N)T(N)H^ J P`^M(J,N)M(J,N)h^& Jn^0^: CHECK FOR BANKRUPT STOCKS^D^N T(N) ^XT(N)d^b J P^lM(J,N)^v J^ "*** "S$" WENT BANKRUPT ***"(_ "THESE STOCKS MUST BE SURRENDERED"0_ N:_YY@_q_ ADD EACH PLAYERS DIVIDENDS TO TOTAL CASHw__ N P_M(N, )_ J  _ T(J)2 _M(N, )M(N, )K(J)M(N,J)_ J_ A(C, )  ` M(N, )M(N, )M(N,)M` "*** X-PANDO CORP. PAYS $2 DIVIDENDS PER SHARE ***"g` M(N,)M(N,)M(N, )o`* Nu`4{`>`H PRINT WHAT HAPPENED & CURRENT VALUES`R`\ ( ) : "*** YEAR ";Y;"*** "W$" MARKET ***" af );"PLAYER HOLDINGS YEAR ";Y)ap );" +/-$ PRICE";7az N PIa N);N;Qa NWaza (V$,););"0";);"100";a N Pa N);Id ( )II, );"* * BLACK JACK * *"II C(4),V$( )I "INSTRUCTIONS ";I$J (I$,)"Y"  JC.J K =J$ J  MJ.C(J K)JXJ8J: KtJL J) 4:C(J) : JJjV$()" A"JtV$()" 2"J~V$()" 3"JV$()" 4"JV$()" 5"JV$()" 6"JV$()" 7"JV$()" 8"JV$()" 9" KV$( )"10"KL(%K L( <4K J 4?KZC(J)TKR((J)4)bK C(J)C(R)mKC(R)ZuK J}K(LK2 "NEW DECK":K<TKFT1KPSKZS1Kd"BET = ";BKx B K} B "MENU"K B d L B dL B (B) d)L | 3L  KL " ";V$(C(L))VL | `L  mLHC(L)L C(L)  L T  L T1  L D$L (D$,)"G" ` L (D$,)"D" B L (D$,)"H" M (D$,)"S" 6'M"" RETYPE: ";1M, LM6 C(L)C(L) "^M@"FIRST HAND"gMJB1BxMT V$(C(L))M^XC(L)MhT1XMr | PPERY OIL COMPANY"UG$"BUMPY TRANSPORT CO."UH$"KRASH AUTO COMPANY"UI$"ZAP ELECTRONICS ""VJ$"BLINKEY POWER & LIGHT CO."(V.VIV "WANT INSTRUCTIONS";RV$ R$kV. (R$,)"N" (V8 (R$,)"Y" $VB ( )VL "THE MAIN OBJECT OF BLACK FRIDAY IS TO SHREWDLY INVEST $5000"WV"IN THE GAME'S 10 SECURITIES, BUYING AND SELLING EACH YEAR FOR"YW`"A MAXIMUM OF 10 YEARS (ROUNDS) IN AN ATTEMPT TO BECOME"wWj"THE WEALTHIEST PLAYER."}WtW~"EACH YEAR ALL PLAYERS WILL RECEIVE DIVIDENDS ON EVERY PAYING"W"STOCK WHICH IS WORTH $50 OR MORE."W5X"IF THE VALUE OF ANY STOCK FALLS TO 0,THAT STOCK GOES BANKRUPT"zX"AND ALL SHARES ARE SURRENDERED.THE VALUE OF THE STOCK IS THEN"X"ESTABLISHED AT $100. IF THE VALUE OF ANY STOCK REACHES $150,"X"THERE WILL BE A STOCK SPLIT."XY"HIT RETURN TO CONTINUE" : JUNK$Y ( )aY"A TABLE WILL BE PRINTED EACH YEAR GIVING THE CHANGE IN VALUE"Y"OF EACH STOCK, THE PRESENT PRICE, AND THE NUMBERM(N,);a Naa N a (V$,N,););F(N););T(N);a J P b J);M(J,N);b Jb #b N)b Eb$ "DIVIDENDS FOR YEAR";Sb. N Pkb8 N);M(N, );sbB NybL bV "NEW CASH TOTAL";b` N Pbj N);M(N,);bt Nb~ b "NEW NET WORTH ";b H b N P c N);X(N);c N!c YS r 'c -c cc CHECK IF ANYONE WANTS TO SELL OR BUY ANYTHINGic wc N P}c c "*** PLAYER ";N;" ***"c "YOU NOW HAVE $";M(N,)c J  c M(N,J) < c( Jc2  d< "WANT TO SELL"; R$dF R$"N"  2dP R$"Y"  OV$(X)GOT1XQO | aOX nOT1T1 xO O D1$O (D1$,)"G" O (D1$,)"D" O (D1$,)"H"  O " RETYPE: ";: O  | P T1 fP X2P*CCB2#P4B20P>"BUST";APH X1 j TPR " ";V$(H)^P\  hPf D1$Pp (D1$,)"G" Pz (D1$,)"H"  P " RETYPE: ";: fPB2BP | P T1  P:T1PBB1B2PX2T1Q j Q | "Q T1  0Q"BUST";BQ" ";V$(H)LQ  UQ D$nQ (D$,)"G" ` Q$ (D$,)"H" Q. " RETYP OF SHARES"Y"EACH PLAYER OWNS OF EVERY STOCK. ALSO, ANY DIVIDENDS RECEIVED"-Z"FOR THE YEAR WILL BE SHOWN ALONG WITH EACH PLAYERS TOTAL CASH"3Z TZ "PRESS RETURN KEY TO PLAY"`Z JUNK$mZ( ( )Z2"AVAILABLE SECURITIES, ABBREVIATION, DIVIDENDS PER SHARE"Z<ZF N  ZP v ZZ S$,(V$,N,),(Y$,N,)Zd N[n'[x "NUMBER OF PLAYERS (1 TO 4)="; P7[ P H[ P v[ I : J  : M(I,J): J: I[ "NUMBER OF YEARS (3 TO 10)="; S[ S [ S [ ( )[ I : F(I): I[ N P\M(N,) \ N'\ I  : T(I)d: I/\Y5\;\\ FIND MARKET CHANGES FOR NEXT ROUND,SEE IF BULL OR BEAR MARKET\"\,D(() )\6C(()$)\@ A(C, ) 6\JA(C, )\T N  \^ v ]h A(C,) ]rW$"BEAR",]|F(N)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)]] ) " 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 "YOU NOW HAVE $";M(N,);f@  CfJ NMfT ,Sf^ Yfh fr CLOSING OUT AT END OF GAME - PRINT FINAL TOTALSf| f f "*** FINAL TOTALS ARE:"f "PLAYER TOTAL"f N Pf J  g M(N,)M(N,)T(J)M(N,J)g J$g 3g N,M(N,);g NEg  Kg Qg g SUBROUTINE TO LOOK UP STOCK NAMES FOR BUY & SELLg g "NAME OF STOCK";g& R$g0 J  g: (R$,)(V$,J,) b hD (R$,)(V$,J,) b hN JhX  hb %hl Whv N  , , , , , , , , ,4 ah S$A$gh qh S$B$wh h S$C$h h S$D$h h S$E$h h S$F$h h S$G$h h S$H$h h S$I$h* h4 S$J$h> iH N P iR Wi\ J  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  E: ";:  QB BBQL | QV T1 Q` :T1;Qj " ";V$(H);Qt  Q~  R " ";V$(C(L));#R T ~ 4R T  ?R ":";TIR  YR ": BUST"cR CCBwR "YOU HAVE $";CR R (D$,)"S"  R T1T  R T1T  R BBR  R TX1 n R TX1 2 R( CCB1 S2 TX2 Z S< TX2  )SF CCB23SP  >SZ CCB2HSd  SSn CCB1]Sx 2 oS T1  yS CCBS " ";V$(H);S " BLACKJACK"S  S "BLACKJACK"S " ";S  S "BLACKJACK" T " ";V$(H);T T CC@B)T  DT " INSURANCE ";I$]T (I$,)"Y" 6 kT" " ";uT, T6 T T T@ CCBTJ " TT " 10";T^ T1  Th CCBTr  T| T1  U C(L)  U T1T1 U S1&U T1T1C(L);U V$(C(L));" ";EU LLXU T1  iU S1  vU T1T1 U S1U  U T1U Q Q"TYPE Y OR N PLEASE...":Qx:"SORRY TO SEE YOU QUIT"R}"AFTER ONLY ";M;"MOVE";: M "S";:"."&R:OR:"YOU TOUCHED THE FENCE !!!!!!!!"nR" AFTER ONLY ";M;"MOVES."xR R@:"** YOU HAVE BEEN DESTROYED BY A LUCKY COMPUTER**"RE"AFTER ONLY ";M;" MOVES. TOO BAD."RJ$S:"YOU ARE LUCKY * * YOU DESTROYED ALL THE ENEMY * *"@S"IN ONLY ";M;" MOVES."LSZ2Z2yS"SO FAR YOU HAVE WON ";Z2;" GAME(S)!!!"S"WANT TO PLAY AGAIN(Y OR N)S Y$S (Y$,)"Y" S:"HOPE YOU DONT FEEL FENCED IN."S"TRY AGAIN SOMETIME "%T"THIS TIME YOU WON ";Z2;" GAME(S)"1TZ2Z2cT"NEXT TIME YOU MAY WIN ";Z2;", OR MORE!!!!!"tT "MENU" : ME "%T"THIS TIME YOU WON "; 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)F(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 DU U T : U C(L) : U& TT U0 SU: TTC(L)UD LLUN T v VX S v Vb TT "Vl S(Vv iV "THIS BLACKJACK PROGRAM ENABLES THE OPERATOR TO PLAY HEAD-"V "TO-HEAD WITH THE COMPUTER, SIMULATING THE EXACT RULES AS"V "THOSE ON THE LAS VAGES STRIP. THE CARDS ARE DEALT FROM ONE",W "52-CARD DECK UNTIL A HAND STARTS WITH LESS THAN 12 CARDS"oW "REMAINING IN WHICH CASE IT RESHUFFLES. THE DEALER MUST HIT"W "THROUGH A TOTAL OF 16 AND STAND ON 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 PLAYERS 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 "CARD WHILE THE ORIGINAL BET IS DOUBLED"XH "YOU MAY SPLIT ANY HAND BUT RESPLITTING IS NOT ALLOWED."9YR "ALSO, ONLY ONE CARD IS 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 :I C H A S E V 1.0 1/16/77 GCC IIIJ BY HERMAN DEMONSTOY FEB 77 ISSUE KILOBAUD MAGJZ22J2"THIS IS THE GAME OF CHASE"bJd"YOU ARE IN A HIGH VOLTAGE MAZE WITH FIVE"Jn"SECURITY MACHINES (+) TRYING TO DESTROY YOU (X)."Jx"YOU MUST MANEUVER THE SECURITY MACHINES INTO" K"THE HIGH VOLTAGE FENCE POSTS (O), OR INTO EACH OTHER"2K"IN ORDER TO SURVIVE. GOOD LUCK.8KSK"MOVES ARE: 1 2 3"K" 8 * 4 0 IS NO MOVE"K" 7 6 5 9 GIVE UP"KK.............SET UP THE GAMEK A( ,),E(),F()KG:ML B  L C &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'" . ";:..........KEEPS SCREEN GOING WHILE TABLE SET UPL, BL6 D L@B(())MJC(()):.......................0MT A(B,C) @=M^A(B,C)RMh D A(B,C)gMr D A(B,C)rM|E(D)B}MF(D)CM DM:M..... "HIT RETURN KEY TO CONTINUE....": JUNK$:Yf " THE COMMANDS ARE AS FOLLOWS:" Zp " HIT (DRAW ANOTHER CARD)"8Zz " GOOD (STAND ON CURRENT TOTAL)"pZ " DOUBLE (DOUBLE YOUR BET AND DRAW ONE CARD)"Z " SPLIT (FORM TWO HANDS FROM A PAIR WITH THE ORIGINAL"Z " BET ON EACH HAND)"[ " A NEGATIVE BET ENDS THE GAME, A ZERO BET RESHUFFLES THE DECK"_[ :"COMMANDS MAY BE TYPED IN AS THE FIRST LETTER":"GOOD LUCK"i[ o[ HE GAME, A ZERO BET RESHUFFLES THE D 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 PLAYERS 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 "CARD WHILE THE ORIGINAL BET IS DOUBLED"XH "YOU MAY SPLIT ANY HAND BUT RESPLITTING IS NOT ALLOWED."9YR "ALSO, ONLY ONE CARD IS 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 :.....PRINT PATTERNM B  M C M A(B,C) " ";M A(B,C) "O";N A(B,C) "+";%N& A(B,C) "X";-N0 CcN5B " ";G;"SECURITY MACHINE";:Gϑ"S";yN6 B " LEFT";N7 B " 1 2 3";N9 B " 8 * 4 0 IS NO MOVE";O; B " 7 6 5 9 GIVE UP";O=OD B&OW.........MAKE MOVE1OXBE()P  A(B,C) SP* A(B,C) @`P4A(B,C)kP>E()BvPHF()CPR D P\ A(E(D),F(D)) 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)F(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 );"**************"&J`J "THIS IS THE GAME OF CHECKERS. THE COMPUTER IS X,"J "AND YOU ARE O. THE COMPUTER WILL MOVE FIRST."J "SQUARES ARE REFERRED TO BY A COORDINATE SYSTEM."J# "(0,0) IS THE LOWER LEFT CORNER"K( "(0,7) IS THE UPPER LEFT CORNER"DK- "(7,0) IS THE LOWER RIGHT CORNER"lK2 "(7,7) IS THE UPPER RIGHT CORNER"K7 "THE COMPUTER WILL TYPE'+TO' WHEN YOU HAVE ANOTHER"K< "JUMP. TYPE TWO NEGATIVE NUMBERS IF YOU CANNOT JUMP."LA "ENTER COORDINATES AS HORIZ,VERT "".LP R(),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) LY,XLX:Y:S(X,Y)^L6S(X,Y)ςA:BG::AMJS(X,Y)ςA:B::B,A$M^Y,X:tIMUXA:VYB:UUVVfaMS(U,V)ύ:fsMS(U,V)fMUUA:VVB:UVUVf EAT EMPTY SPACE!"Q pQ IR1 RQ JC1 CQA(I,J)Q JQ IQ (R *** END OF GAME DETECTED IN LINE 950 ***.R$XR. " SORRY ";P$(P1);" YOU LOSE ! !"^R8oRB "AGAIN";R$RL (R$,)"Y" RV "MENU" : NE 950 ***.R$XR. " SORRY ";P$(P1);" YOU LOSE ! !"^R8oRB "AGAIN";R$RL (R$,)"Y" RV "MENU" : R'Ob J C4OlA(I,J):P4kP> *** GET CHOMPS FOR EACH PLAYER IN TURN ***wPHI1I1PRP1I1(I1P)PP\ P1 pPfP1PPp "PLAYER ";P1;" '";P$(P1);"'"Pz "COORDINATES OF CHOMP (ROW,COLUMN)";R1,C1 Q R1 Q R1R -Q C1 >Q C1C UQ A(R1,C1) mQ A(R1,C1) wQ Q "NO FAIR. YOU'RE TRYING TOMRS(U,V)ύMfMVS(X,Y)QQM(YV)QQMYQQNYUQQ&NC:UCUCVG8CN S(UC,VG)QQ:8^NUCUCVG8NS(UC,VG)(S(UC,VG)(UCXVGY))QQN8C:QR()R()Q:R()X:R()Y:R()U:R()VNLQ:NtR()cXO:"FROM"R();",";R()"TO"R();","R();:R()c7OR()S(R(),R()):UOS(R(),R())S(R(),R())~OS(R(),R()):(R()R())O2S((R()R()),(R()R()))O<XR():YR():S(X,Y)B:A:ZOFS(X,Y)ςA:B:Z:B/PPA:R()cϑ"TO"R();R();:R()c:8PU]PZUXA:VYB:UUVVxPdS(U,V)S(XA,YB)ύPxP:Y: Y;:X:IX:I);PS(X,Y)ϑ".";PS(X,Y)ϑ"O";PS(X,Y)ϑ"X";QS(X,Y)ϑ"X*";QS(X,Y)ϑ"O*";(QX:" ":YFQ: X:IX:I);X;RQ" X::{Q6 "FROM";E,H:XE:YH:S(X,Y) 6Q "TO";A,B:XA:YBQI MODIFIED FOR MBASIC 2/12/79 AEHI *** THE GAME OF CHOMP *****II( ( )J2 );"THIS IS THE GAME OF ...."!J<>JF );"* * CHOMP * *"DJPSJZ A( , )uJd "DO YOU WANT THE RULES ";R$Jn (R$,)"Y" TJxF : R : CJ ( )J "CHOMP IS FOR 1 OR MORE PLAYERS. (HUMAN ONLY)"JK "HERE IS HOW A BOARD LOOKS:"K XKIK "HIT RETURN TO CONTINUE...": JUNK$VK ( )K "THE BOARD IS A BIG COOKIE - R ROWS HIGH AND C COLUMNS"K "WIDE. YOU INPUT R AND C AT THE START. IN THE UPPER" L "LEFT HAND CORNER IS A POISON SQUARE (P). THE ONE WHO"@L "CHOMPS THE POISON SQUARE LOSES THE GAME..."FLL "ENTER YOUR TURN BY TYPING FIRST ROW (R) THEN A COMMA"L "THEN THE COLUMN (C), THEN HIT RETURN..."LL" "NO FAIR TRYING TO TAKE ALREADY CHOMP'D SQUARES"M, "OR ONES NOT IN THE ORIGINAL SETUP..."#M6JM@ "(MAXIMUM IS A 9 X 9 COOKIE...)"PMJfMT "HERE WE GO..."nM^F}Mh I  Mr J  M|A(I,J)S(X,Y)(AE)(AE)(BH)Q"?? ";:QI.RS(A,B)S(E,H):S(E,H):(EA)RS((EA),(HB)):P4kP> *** GET CHOMPS FOR EACH PLAYER IN TURN ***wPHI1I1PRP1I1(I1P)PP\ P1 pPfP1PPp "PLAYER ";P1;" '";P$(P1);"'"Pz "COORDINATES OF CHOMP (ROW,COLUMN)";R1,C1 Q R1 Q R1R -Q C1 >Q C1C UQ A(R1,C1) mQ A(R1,C1) wQ Q "NO FAIR. YOU'RE TRYING TO 100 REM EXECUTIVE DECISION MAKER 101 REM WRITTEN BY W.A.BURTON 102 REM INTENDED FOR CRT'S AT HIGH BAUD RATES 103 CLEAR : WIDTH 80 : PRINT CHR$(26) 104 DIM Q$(80) : XX=36 105 PRINT TAB(15); "*** EXECUTIVE DECISION MAKER ***" 106 PRINT : PRINT : PRINT 107 PRINT "WHAT IS THE DECISION THAT YOU WOULD LIKE ME TO MAKE FOR YOU" 108 PRINT "TYPE IN YOUR QUESTION WHICH CAN BE ANSWERED 'YES OR NO'; AND" 109 PRINT "KEEP IT SHORTER THAN ONE LINE (INCLUDING SPACES)." 110 PRINT : PRINT : PRINT : PRINT 111 INPUT 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$) 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$=": NO" 124 PRINT "THE '<*>' IS THE BOUNCING BALL OF FATE..." 125 PRINT "HIT SPACE BAR TO ANSWER YOUR QUESTION" 126 PRINT : PRINT : 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) WELVE ON THE FIRST"M"ROLL OF THE DICE, YOU LOSE THE BET."MM"UNDERSTAND SO FAR?"M A$0N (A$,)"Y" "YOU'RE NOT TOO SWIFT..."6NmN"AFTER YOU HAVE YOUR POINT, YOU CONTINUE ROLLING"N"THE DICE UNTIL EITHER YOUR POINT COMES UP AGAIN"N"OR THE NUMBER SEVEN DOES."NO"IF YOUR POINT COMES UP BEFORE THE NUMBER SEVEN,"7O"YOU WIN. HOWEVER, IF THE SEVEN APPEARS FIRST"jO"YOU LOSE THE BET AND MUST START OVER AGAIN."pO&vO0O: "READY TO PLAY, ";N$;OD A$ON (A$,) "Y" *OX ( )Ob G v Pl "OK ";N$;", HERE'S $100.00. SEE WHAT YOU CAN DO."Pv: VGP" NOTE: A BET OF ZERO ENDS THE GAME."MP\PT$ (T)P "YOU HAVE $";T$;". HOW MUCH WOULD YOU LIKE TO BET";P B1P ( )PB ((B1))PB$ (B)P B1  >P (B1) T \ Q V *9Q"NOW YOU'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"Y bYY "AWW - TOO BAD. YOU DON'T HAVE ANYMORE MONEY."Y bY!Z&"HEY, ";N$;", DON'T YOU GET TIRED OF LOSING?"DZ0"NOW YOUR MONEY IS ALL GONE."NZ: bTZDZN "DON'T GO TO LAS VEGAS!!! BESIDES, YOU'RE BROKE."ZXG ZbZl "WANT TO PLAY AGAIN";Zv A$Z (A$,)"N" *ZT dZT$ (T)Z/[ "ALRIGHT, YOU START OVER AGAIN WITH $100.00";[G GE[ Z[D1 _()p[ D1  [D1 (D1)[D2 _()[ D2  [D2 (D2)[D D1D2[  \[" ";D1;" ";D2\ \* ( ):2\4,"G A M E I S O V E R "<\>  T\H"ERROR IN PROGRAM"Z\R\\ +++++++ DRAW DICE +++++++++++++++++\f". . . . . . . . . . . . . ."\p D1 ,,, , , \z D2 . ,B ,B ,~ ,~ ,~ ] D1 ,,,,, =] D2 V ,. ,V ,. ,V ,~ `] D1 ,,, , , ] D2 . ,j ,j ,~ ,~ ,~ ]"' ' ' ' ' ' ' 131 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 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 PRINT : PRINT 143 PRINT "YOUR QUESTION :" 144 PRINT Q$ : PRINT 145 PRINT "MY ANSWER (AFTER"; CX; "AGONIZING STEPS) :" 146 RETURN 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 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 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$=": NO" 124 PRINT "THE '<*>' IS THE BOUNCING BALL OF FATE..." 125 PRINT "HIT SPACE BAR TO ANSWER YOUR QUESTION" 126 PRINT : PRINT : 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) ;A$Q  (A$,) "Y" Q*M:VQ4 RQ> B1 QH (B1)B RR BT  R\+Rf"YOU DON'T HAVE THAT MUCH!"1Rp;Rz ARGR}R "CHEAPSKATE. I DON'T ACCEPT SUCH SMALL BETS."RR 4RR "WHAT KIND OF FUNNY MONEY BET IS THAT?"R R ( )S "OK ";N$;", SHOOTER COMING OUT!" S S &S T  8S R  jS"YOUR POINT IS ";P;" YOUR BET IS $";B$pSS$ " ROLL AGAIN";S. A$S8 (A$,)"N" VSB ( )SL SVS`"WELL, LET THE PAYING CUSTOMERS UP TO THE TABLE..." Tj Tt"O.K., ";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 "YOU STARTED WITH $100. YOU NOW HAVE $";T$T "PLEASE SEE THE CASHIER."T TR R U R  U D M ,5U D M xKU PD M xaU PD M ,kU PU D M xU  D M , ' ' ' ' ' ' '"]]": : ";]]": * : ";]^": * : ";#^B^": * : ";H^ g^ ": * * : ";m^ s^$ ^. ": :"^8 ^B ": * :"^L ^V ": * :"^` ^j ": * :"^t ^~ ": * * :"^ _ "MENU" : ^B ": *VER AGAIN WITH $100.00";[G GE[ Z[D1 _()p[ D1  [D1 (D1)[D2 _()[ D2  [D2 (D2)[D D1D2[  \[" ";D1;" ";D2\ \* ( ):2\4,"G A M E I S O V E R "<\>  T\H"ERROR IN PROGRAM"Z\R\\ +++++++ DRAW DICE +++++++++++++++++\f". . . . . . . . . . . . . ."\p D1 ,,, , , \z D2 . ,B ,B ,~ ,~ ,~ ] D1 ,,,,, =] D2 V ,. ,V ,. ,V ,~ `] D1 ,,, , , ] D2 . ,j ,j ,~ ,~ ,~ ]"' ' ' ' ' ' ' I WRITTEN BY: ROY A. WILSONI CERRITOS COLLEGE J NORWALK, CALIFORNIAJ(7J2 MODIFIED FOR MBASIC 12/22/78 AEHDJ< ( )JJFjJP );"***** DICE *****"rJZ:Jd "HI. WOULD YOU LIKE TO ROLL THE DICE WITH ME";Jn:Jx A$JT dJ (A$,)"Y" JK"BEAT IT KID, YOU BOTHER ME." KK 4KJK"O.K., BUT I DON'T PLAY WITH STRANGERS."cK"WHAT'S YOUR NAME?"iKrK N$K ( )K G K"WOULD YOU LIKE THE RULES, ";N$;K ,K G XK" "WOULD YOU LIKE THE RULES AGAIN";L, A$L6 (A$,)"Y" 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 NEGATIVE"L^"AMOUNT, YOU WILL BE BETTING ON THE 'DON'T PASS' LINE."LhMr"HERE ARE THE RULES FOR THE 'PASS' LINE."CM|"IF 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 TU D M xU D M ,U( D M ,U2 D M xV< D ,VFP DVPVZ$Vd *Vn5Vx: M;VNV B1  V"+++++++++++ P A S S B E T ++++++++++"V V"+++++ D O N ' T P A S S B E T +++++"VV ,W"YOU WIN! YOUR BET WAS $";B$(W R "YOUR POINT WAS ";P,?W"YOU ROLLED A ";DPW J  dXW JbW ,mWT TB|WT$ (T)WR W" W,:MW6 B1  TW@"+++++++++++ P A S S B E T ++++++++++"WJ ^XT"+++++ D O N ' T P A S S B E T +++++"%X^/Xh ,dXr"YOU LOSE. YOUR BET WAS $";B$X| R "YOUR POINT WAS ";P,X "YOU ROLLED A ";DXT TBXT$ (T)XR XXY"+++++++++++++++++++++++++++++++++++++++++++++"!Y G ,,,D'YZY "YOU TURKEY ---- YOU LOST ALL YOUR MONEY!!!"Y " NOW WHAT WILL YOU TELL YOUR FAMILY?"10 REM Copyright 1977 by Marc Singer 20 PRINT " **" 30 PRINT " ####" 40 PRINT " ####" 50 PRINT " ####" 60 PRINT " ####" 70 PRINT " ####" 80 PRINT " ####" 90 PRINT " ####" 100 PRINT " ####" 110 PRINT " ####" 120 PRINT " ####" 130 PRINT " ####" 140 PRINT " ####" 150 PRINT " ## ####" 160 PRINT " #### ####" 170 PRINT " ###### ####" 180 PRINT " ###### ####" 190 PRINT "  V" 600 PRINT " /" 610 PRINT " # /" 620 PRINT " # /" 630 PRINT " # ## /" 640 PRINT " # ## /" 650 PRINT " `## /" 660 PRINT " ## /" 670 PRINT " ##/" 680 PRINT " #" 690 PRINT " `" 700 PRINT " O" 710 PRINT " FIRE PHASER BANKS!!" 720 PRINT " PHASERS FIRED." 730 FOR I=1 TO 300 740 NEXT I 750 RUN "MENU" 999 END - ###############" 480 PRINT " - ! - <###############>" 490 PRINT " / ###############" 500 PRINT " / ###########" 510 PRINT " / `########I" 520 PRINT " / `#######I" 530 PRINT " / `######I" 540 PRINT " / `#####I" 550 PRINT " / `####I" 560 PRINT " / `###I" 570 PRINT " / `##I" 580 PRINT " / (#)" 590 PRINT " / A))Q LQ M Q M Q Y1YQ AZ(M,Y1) Q$ AR.  R8 M V)RB "PASS COMPLETE..";>RL L((A))PRV AF2  `R` G pRj G Rt GB zR~ "LOSS OF ";G;R JR "NO GAIN"R Z9R R R BGc rR "GAIN OF ";G;S JS M S A%S  /S `PS Au|((Y)) PsS  AL|(Y`) ~S Z9S S( "PASS INCOMPLETE"S2 LS< GSF 0 SP "PASS **INTERCEPTED** ";SZ ASd  Tn B( Tx G((G))&T BdBG2T SS=T Z9GT WT B hT Bc ruT "AT ";T 8 T CC(Z9(A))TT G(( A))T "THE QUARTERBACK ";T A U "IS THROWN FOR A "; U VU G(G)&U" M0U, AJU6 "SCRAMBLES FOR A ";TU@ V`UJ BBGmUT "TO ";wU^  Uh Bc Ur U| ###### ####" 200 PRINT " ###### ####" 210 PRINT " ######>>>>>>>>>>>>>>>>>>>>####" 220 PRINT " ######>>>>>>>>>>>>>>>>>>>>####" 230 PRINT " ###### ####" 240 PRINT " ####### ####" 250 PRINT " ######## ####" 260 PRINT " ######### ####" 270 PRINT " ########## ##" 280 PRINT " ########## #" 290 PRINT " ##########" 300 PRINT " ##########" 310 PRINT " ############" 320 PRINT " ##############" 330 PRINT " #################" 340 PRINT " ###################" 350 PRINT " #####################" 360 PRINT " ########## ###########" 370 PRINT " ########## ########### A" 380 PRINT " ########## ##########(#)" 390 PRINT " ########## #######/##I" 400 PRIIA()II "DO YOU NEED INSTRUCTIONS, Y OR N ?";I A$I( (A$,) "Y" TJ2>Jd "ON OFFENSE YOU HAVE THE FOLLOWING PERMITTED PLAYS:"XJn "RU - RUNNING PLAY"oJx "PA - PASS PLAY"J "SW - SWEEP"J "SC - SCREEN PASS"J "LP - LONG PASS PLAY"J "DR - DRAW PLAY"J "PU - PUNT"J "FG - FIELDGOAL KICK"K8K "ON DEFENSE, YOU MAY TRY ONE OF THE FOLLOWING:">KqK "NM - NORMAL, GOOD AGAINST SWEEP AND SCREEN"K "HO - HOLD, GOOD AGAINST RUN, PASS AND DRAW"K "BL - BLITZ, GOOD AGAINST PASS AND LONG PASS"L "IN - INTERCEPT, INCREASES THE ODDS OF AN INTERCEPTION"NL "BK - BLOCK, GIVES YOU A CHANCE TO BLOCK A KICK,"L " BUT DECREASES THE RUNBACK DISTANCE."L"L, "TO CALL A PARTICULAR PLAY JUST TYPE ITS CODE."L6 "ALSO, AT ANY TIME DURING PLAY YOU MAY CALL TIME OUT"W "THE PUNT IS ";SW Au| b^W F1BiW Z2uW SSW Z3ff&W W "** TOUCHDOWN** "W P1W P(S)P(S)W BW "THE KICK IS ";W A(B) X P1X  "NO ";!X "GOOD"4X  P(S)P(S)P1>X* HJX4 SSPX>uXH "SCORE: ME ";P();" YOU ";P()XR LX\ X pXf P()P()  XpXz "**SAFETY**"X P(S)P(S)X F1X SSX HY p Y "FROM THE 20"Y )Y p 9Y S  KY "ON-SIDE ";UY gY Q  vY F2~Y Z2Y OY Y$ NT " ########## ####/###I" 410 PRINT " ########## #/####I" 420 PRINT " ######## /#####I" 430 PRINT " #### /######I" 440 PRINT " ## /#######I" 450 PRINT " ^ /########I" 460 PRINT " -!- ###########" 470 PRINT " - ! - ###############" 480 PRINT " - ! - <###############>" 490 PRINT " / ###############" 500 PRINT " / ###########" 510 PRINT " / `########I" 520 PRINT " / `#######I" 530 PRINT " / `######I" 540 PRINT " / `#####I" 550 PRINT " / `####I" 560 PRINT " / `###I" 570 PRINT " / `##I" 580 PRINT " / (#)" 590 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((XX))-N F8N Z3BN OLN LfN Z(,),P(),DA(,)tN A N B N Z(A,B),DA(B,A)N P(B)N BN Z(A,)N AN "DO YOU WANT TO RECEIVE";N& XN0 O: S( Q)OD KSON T1x)OX U23Ob U?Ol CIOv UO F12O B(F1OA(O)(AA(Z2)))O OO Z9O O LO Bc $ O "A TOUCHBACK"O BO LO S  P "MY ";P  #P "YOUR ";-P   7P  AP  DPP* F2u{ZP4 OkP> C  uPH  PR Z2P\ Z3Pf CFT1 h Pp C  Pz L P "TIME TO GO--"; Q (C<);"MIN, ";C<(C<);"SEC. ";Q "YOUR PLAY";&Q 6Q S FQ Q PQ MQZQ fQ YQQ (Q() Q C(CL(BdBY. "RECEIVED AT ";Y8  YB Z2AZ3  YL AF2  YV G(dA)Z` A~ ~ &Zj G((A))6Zt G  BZ~ BBG\Z " AND RUN BACK...";fZ LwZ Bc rZ " TO ";Z  Z AF2  Z GZ "**FUMBLE** ";Z Z S  Z Y(`A)Z [ M(7A(),[ (B1B)(D)  A[ M(A)W[ LF *`H "THE 50"0`R A`\ B2  K`f * [`p S  h`z "YOU";r`  }` "I";` " KICK OFF."` F2u|` Z2` ` L` "TIMEOUT CALLED..."` ` ` U ` UUa  a +a "..WRONG, TRY AGAIN"La A$ : (A$,)"TO" Aha (A$,) "NM" Aa (A$,) "HO" Aa (A$,) "BI  I F()I "ENTER A NUMBER BETWEEN 1 AND 100...";XXXI CIIXJ "DO YOU WISH TO TRADE FURS?"J z3J B$"YES" dGJ B$"NO" QJ [J zeJd  qJeX()Jf"YOU HAVE $";I;"SAVINGS, AND A MAXIMUM OF 190 FURS"Jg"TO BEGIN THE EXPEDITION"K,:"YOUR 190 FURS ARE DISTRIBUTED AMONG THE FOLLOWING"9K."KINDS OF PELTS: MINK, BEAVER, ERMINE AND FOX."AK1:KK6 QK;_KJ J jKL B$:KO"HOW MANY ";B$;" PELTS DO YOU HAVE";KR F(J)KTF()F()F()F()F()KV F() ^KX F() K\ JK^  L` L*L:"YOU MAY NOT HAVE THAT MANY FURS!"gL"DO NOT TRY TO CHEAT. I CAN ADD. YOU MUST START AGAIN!"pLL:"DO YOU WANT TO TRADE FURS NEXT YEAR?"L LC"YOU ARE THE LEADER OF A FRENCH FUR TRADING EXPEDITION IN 1776"4MD"LEAVING THE LAKE ONTARIO AREA TO SELL 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 SR WERE TOO HEAVY TO CARRY ACROSS THE PORTAGE."U"YOU HAD TO LEAVE THE PELTS, BUT FOUND THEM STOLEN""V"WHEN YOU RETURNED FOR THEM.",V 6V bV"YOU ARRIVED SAFELY AT FORT STADACONA"lV vV V"YOUR CANOE UPSET IN THE LACHINE RAPIDS. YOU LOST ALL YOUR FURS"V V VP() W"YOUR FOX PELTS WERE NOT CURED PROPERLY. NO ONE WILL BUY THEM."*W 4W cW"SUPPLIES AT FORT STADACONA COST $125.00"W"YOUR TRAVEL EXPENSES TO STADACONA WERE $15.00"WWIIiWWM1((~(XXX)ff) ) XE1((~(XXX)33s) ) BXB1(((XXX)) ) sXD1(((XXX) ) ) XP( ())X P X P  X P X P X"YOU WERE ATTACKED BY A PARTY OF IROQUOIS."DY"EVERYONE IN YOUR TRADING GROUP WAS KILLED. THIS ENDS THE GAME."JYY "YOU WERE LUCKY. YOU ARRIVED SAFELY AT FORT NEW YORK."Y  Y L" Aa (A$,) "IN" Aa (A$,) "BK" Aa (A$,) "RU" A b (A$,) "PA" A /b (A$,) "SW" A Lb (A$,) "SC" A ib (A$,) "LP" Ab (A$,) "DR" Ab (A$,) "PU" Ab (A$,) "FG" Ab (A$,) "NO" Ab  (A$,) "N" Ac! (A$,) "YE" A.c" (A$,) "Y" AGc$ ((A)) \c. QR(((A)))lc8 Q }cB Qd  cLcV .5,-2,.25,4,.5,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,19,.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,192u|` Z2` ` L` "TIMEOUT CALLED..."` ` ` U ` UUa  a +a "..WRONG, TRY AGAIN"La A$ : (A$,)"TO" Aha (A$,) "NM" Aa (A$,) "HO" Aa (A$,) "BUPPLIES AND THE AMOUNT YOU WILL RECEIVE"MG"FOR YOUR FURS WILL DEPEND ON THE FORT THAT YOU CHOOSE."NKINL:"DO YOU WANT 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"THE FRENCH ARMY. FORT 2 IS FORT STADACONA (QUEBEC) AND IS UNDER"OP"THE PROTECTION OF THE FRENCH ARMY, HOWEVER YOU MUST MAKE A"FOQ"PORTAGE AND CROSS THE LACHINE RAPIDS."OR"FORT 3 IS FORT NEW YORK AND IS UNDER DUTCH CONTROL, YOU MUST"OT"CROSS THROUGH IROQUOIS LAND."OV:"ANSWER 1, 2, OR 3."OW BOX B `OY B oP[B { P\ oONP`"YOU HAVE CHOSEN THE EASIEST ROUTE. HOWEVER THE FORT IS FAR"Pa"FROM ANY SEAPORT. THE VALUE YOU RECEIVE FOR YOUR FURS WILL BE"Pb"LOW AND THE COST OF SUPPLIES HIGHER THAN AT FORTS STADACONA"Pc"OR NEW YORK.":Pe x Qi B$"YES" VQj PQo:"YOU HAVE CHOSEN A HARD ROUTE. IT IS,IN COMPARISON,"Qp"HARDER THAN THE ROUTE TO HOCHELAGA BUT EASIER THAN THE"Qq"ROUY"YOU NARROWLY ESCAPED AN IROQUOIS RAIDING PARTY, HOWEVER YOU"Z"HAD TO LEAVE ALL YOUR FURS BEHIND."Z (Z 'ZB1B13ZM1M1jZ"YOUR MINK AND BEAVER WERE DAMAGED ON YOUR TRIP."Z"YOU RECEIVE ONLY HALF THE CURRENT PRICE FOR THESE FURS."Z (Z  Z("SUPPLIES AT NEW YORK COST $80.00"Z* [x"DO YOU WANT TO TRADE AT ANOTHER FORT?"2[z"ANSWER YES OR NO",;[{ B$A[|G[n["YOUR BEAVER SOLD FOR $";B1F();["YOUR FOX SOLD FOR $";D1F()["YOUR ERMINE SOLD FOR $";E1F();["YOUR MINK SOLD FOR $";M1F()\IM1F()B1F()E1F()D1F()I \E\"YOU NOW HAVE $";I;" INCLUDING YOUR PREVIOUS SAVINGS"O\ ]\ J h\F(J)p\ Jv\\ "MINK","BEAVER","ERMINE","FOX"\::"YOU ENDED YOUR FUR TRADING WITH $";I;"."\"HOPE YOU ENJOYED YOURSELF!"\ ] , ] ] "MENU" : ::"YOU ENDED YOUR FUR TRADING WITH $";I;"."\"HOPE YOU ENJOYED YOURSELF!"\ ] , ] ] "MENU"INUATION OF AN OLD GAME";A$M (A$,)"N" M "HOW MANY DOLLARS WERE LEFT";SM NE)N "HOW MUCH CASH DID YOU BRING";S1NWS;NQ:ON INPUT NUMBERSvN "HOW MANY NUMBERS DO YOU WANT";TN T N "YOUR NUMBERS: "N T A()N T A(),A()N T A(),A(),A()O T A(),A(),A(),A().O T A(),A(),A(),A(),A()ZO T A(),A(),A(),A(),A(),A()O T A(),A(),A(),A(),A(),A(),A()O T A(),A(),A(),A(),A(),A(),A(),A()O T "FIRST FIVE:";A(),A(),A(),A(),A()%P T "LAST FOUR:";A(),A(),A(),A()[P T "FIRST FIVE:";A(),A(),A(),A(),A()P T "LAST FIVE:";A(),A(),A(),A(),A( )P 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 N W Q WWW Q WWW Q WW+W Q WW X Q WWX Q WWE0X N BX Q WWUX Q WWhX Q WW|X Q WWX Q WWX Q WWEX N X Q WWX Q WWX Q WW Y Q WWeY Q WW2Y Q WW)GY Q WWEYY N LkY Q WW}Y  Q WWY! Q WWdY"I " * * GUNNER * *"IIId"YOU ARE AN ARTILLERY OFFICER WHO GIVES"&Jn"FIRING ORDERS TO A GUN CREW, TELLING THEM"VJx"THE DEGREES OF ELEVATION WHICH YOU THINK"{J}"WILL PLACE THE GUN ON TARGET."J"MAXIMUM RANGE OF THE GUN IS 46,500 YARDS."J"A HIT WITHIN 100 YARDS OF THE TARGET"J"WILL DESTROY IT."!K"YOUR TARGET WILL BE SHOOTING BACK SO MAKE"9K"YOUR SHOTS COUNT"CK RIKwK"ENTER YOUR FIRING ORDERS AS REQUESTED."K T=DISTANCE TO TARGETK I=DISTANCE OF SHOTK E=DISTANCE OVER(NEG.), OR OVER(POS.) TARGETK E2aL T'0u(X) L SL R1!L ML"MIN. ELEVATION OF GUN IS ONE DEGREE."WL L"MAX. ELEVATION OF GUN IS 89 DEGREES."L L"OVER TARGET BY" (E) "YARDS."L  XL L"SHORT OF TARGET BY" (E) "YARDS."L  M"  M,=M6"* * TARGET DESTROYED * *"S" ROUNDS EXPENDED."LM; E2SRM@MJ"THE FOWARD OBSERVER HAS LOCATED A NEW TARGET."MT"CAN YOU COW"TYPE A FOUR DIGIT NUMBER IN THE FORM XXXX....";U\ K4Uf L7 K4Up U3(X)Uz L7VV OF GUNNERA FOUR DIGIT NUMBER IN THE FORM XXXX....";U\ K4Uf L7 K4Up U3(X)Uz L7VV OF GUK, MISSED..."R R"WHEW.....";R R"GULP... THAT'S TOO CLOSE FOR COMFORT."S 3S"YOU HAD BETTER MAKE THIS ONE COUNT....."JS"....OR ELSE...."TS jS "AW COME ON..."sSS"AHEMMM..."S S "LOOK OUT... NOW YOU'RE IN TROUBLE..."S S"BETTER DUCK... TRY AGAIN BUT BE MORE CAREFUL."T ;T"NOW HE HAS THE RANGE.. LOOK OUT FOR THE NEXT ONE"ET VT  R1 'T#"YOU SUSTAINED MINOR INJURIES THAT TIME..."T$ "BETTER GET HIM..!"T% R1T& T'"YOU SUSTAINED 'MAJOR' INJURIES THAT TIME."T( $T4!U9"ARE YOU TRYING TO DIG A TRENCH ???"VU>"GET THAT GUN UP WHERE IT WILL DO SOME GOOD..."`UH UR"TO ASSURE THE TARGET IS AT A RANDOM DISTANCE,"U(, )"/":P$(, )"/":P$(,)"/":P$(,)"/"QDQP$( ,)"/":P$( ,)"/":DRP$( ,)"\":P$( ,)"\":D,RP$(, )"\":DAR&P$(,)"/":DfR0P$( , )"\":P$( , )"-":DR:P$( ,)"-":P$( ,)"/"RD I : J :P$(I,J);: JRN: I: M XRPRX"SORRY, YOU LOSE. THE WORD WAS '"A$"'"Sb"YOU MISSED THAT ONE. DO YOU":rNS"GUM","SIN","FOR","CRY","LUG","BYE","FLY"S"UGLY","EACH","FROM","WORK","TALK","WITH","SELF"S"PIZZA","THING","FEIGN","FIEND","ELBOW","FAULT","DIRTY"S"BUDGET","SPIRIT","QUAINT","MAIDEN","ESCORT","PICKAX""GET THAT GUN UP WHERE IT WILL DO SOME GOOD..."`UH UR"TO ASSURE THE TARGET IS AT A RANDOM DISTANCE,"UMJ"WHAT IS YOUR GUESS FOR THE WORD";MO B$MTB$A$ hN^"WRONG, TRY ANOTHER LETTER. "::+Nh"RIGHT, IT TOOK YOU "T1"GUESSES!"YNr"WANT ANOTHER WORD";: W$: W$"YES"2sNw W$"Y" W$"OK"2N|:"IT'S BEEN FUN, BYE FOR NOW...":N"YOU FOUND THE WORD!":rN::"SORRY, THAT LETTER ISN'T IN THE WORD."#O M ,,,,,,,,,EO"FIRST, WE DRAW A HEAD":dO"NOW WE DRAW A BODY":O"NEXT WE DRAW AN ARM":O"THIS TIME IT'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 HAND":BP"NEXT THE OTHER HAND":cP"NOW WE DRAW ONE FOOT":P"HERE'S THE OTHER FOOT --- YOU'RE HUNG !!"P M ,,,,,,,&,0,:QP$(,)"-":P$(,)"-":P$(,)"-":P$(,)"<":P$(,)"."DQP$(,)".":P$(,)">":P$(,)"-":P$(,)"-":P$(,)"-"MQDnQ I:P$(I,)"X": I:DQ I:P$(I,I)"\": I:DQP$I "HORSE RACE":Q2I "ANY NUMBER OF PLAYERS CAN BET ON THE RESULTS." J "EXAMPLE OF BET; 1,2,200,0 ."9J("YOU BORROWED 5$ IN CASE YOU LOST ALOT.":sJ2" SEVENTH - 1 MILE, 3 YR. OLDS POST 2:35"yJ<JF"1 MAN O' WAR (3:1); 2 CITATION (4:1);"; JP" 3 WHIRLAWAY (5:1);"JZ"4 ASSAULT (8:1); 5 SEABISCUIT (9:1);";Kd" 6 GALLANT FOX(11:1);"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 "AND 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 T(S)((T(S)))?L T(S) RL T(S) jL U(S)((U(S)))}L U(S) L U(S) "L"HORSE NO. OR WIN-PLACE-SHOW BET IN ERROR"L R (J)L V(S)L" V(S) (V(S)) @)M,"BET MUST BE >$2 AND <$300, BET AGAIN";3M6 HM@ V(S), ,[MJ Y1  aMTM^" THEY'RE OFF AND RUNNING -"MhMr M()  0U B(I) U B(I) U B(I) U B(I) U B(I) V"COALTOWN ";V N.V"STYMIE ";8V NLV"GALLANT FOX";VV NjV"SEABISCUIT ";tV NV"ASSAULT ";V NV"WHIRLAWAY ";V& NV0"CITATION ";V: NVD"MAN O'WAR ";VN K  WX I  v WbWl 0Wv L}(DH(B(I)))8W I>WNW K ^W K  nW K  ~W K 4W K HW K \W K  W fW" COMING DOWN THE STRETCH -"W fX" AS THEY BREAK FROM THE GATE -"X f;X " AT THE 1/4 MILE POLE -"EX fjX " NEARING THE HALFWAY MARK -"tX* fX4" MIDWAY IN THE RACE -"X> fXH" AT 5/8 OF A MILE -"XR fX\ " ROUNDING THE TURN -"XfXp $ *Yz"DO YOU WANT TO BET ON THE NEXT RACE (Y OR N)";W$=Y W$"N" PY W$"Y" 2ZY zkY Q2 |Y Q2 Y"BYE NOW!!!!"YI THE GAME OF STAR LANES - AN INTERSTELLAR COMMERCE GAMEI FOR 2-4 PLAYERSJ "HOW MANY PLAYERS (2-4)";P1 BJ( ( ) : : :  );"* S * T * A * R **";_J2 " L * A * N * E * S *"J< M( , ),S(,),N$(),D1(),S1(),Q()JA MX$(),B( ),P$( ),RX( ),CX( ),B1( )KFMX$()"ERIDANI EXPEDITERS" : I  : J  : S(I,J) : J5KKD1(I) : S1(I)d : Q(I) : B(I)p : IsKPMX$()"CAPELLA FREIGHT CO." : MX$()"DENEBOLA SHIPPERS"KZMX$()"ALTAIR STARWAYS" : MX$()"BETELGEUSE, LTD."KdL$".+*ABCDE" : M$"ABCDEFGHIJKL" : I  : J  Ln (()) M(I,J) : $LxM(I,J).L J,IXL "DOES ANYBODY NEED INSTRUCTIONS";R$sL (R$,)"Y" L I P1 : "PLAYER ";I; : "WHAT IS YOUR NAME";P$(I)L I : : "NOW I WILL DECIDE WHO GOES FIRST..." : +MI(P1()) : P$(I);" IS THE FIRST PLAYER TO MOVE."3MKCMPI : NMKK _M K0 %jMPP }M PP1 PM I MRX(I) yM|M() <MM() ^MM() MM() 7MM()  NM() LNM() @!N O() .NO() @PHXPR"$2 MUTUELS PAID:"P\" STRAIGHT PLACE SHOW"Pf K Pp I  Pz rP JIP J  P" ";P JJP P J I  Q LIIJQ J  (Q R 2Q DQ R (J)tQ H(L)@ #z((O(B(I))R())d)Q H(L);Q JQQ I $ Y"PUT THE MONEY I OWE YOU ON MY TAB!!": pZ"PUT THE MONEY YOU OWE ME ON THE TERMINAL!!!"Z pZQ2QQ2,Z Q2  =Z Q2 (GZ cZ "WELL YOU BROKE EVEN!"mZ zzZ$ "MENU"AL!!!"Z pZQ2Q"WHIRLAWAY ";V& NV0"CITATION ";V: NVD"MAN O'WAR ";VN K  WX I  v WbWl 0Wv L}(DH(B(I)))8W I>WNW K ^W K  nW K  ~W K 4W K HW K \W K  W fW" COMING DOWN THE STRETCH -"W fX" AS THEY BREAK FROM THE GATE -"X f;X " AT THE 1/4 MILE POLE -"EX fjX " NEARING THE HALFWAY MARK -"tX* fX4" MIDWAY IN THE RACE -"X> fXH" AT 5/8 OF A MILE -"XR fX\ " ROUNDING THE TURN -"XfXp $ *Yz"DO YOU WANT TO BET ON THE NEXT RACE (Y OR N)";W$=Y W$"N" PY W$"Y" 2ZY zkY Q2 |Y Q2 Y"BYE NOW!!!!"Y(()) : CX(I)( ())M I1I  M RX(I)RX(I1) CX(I)CX(I1) N I1 N M(RX(I),CX(I)) .N I1  BN  Q(I1) TLN I1 N M(RX(I),CX(I)) M(RX(I),CX(I)) TN M(RX(I),CX(I)) 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 A1 A2 A3 A4 \O; A2 A1 A3 A4 O@ A3 A1 A2 A4 OE A4 A1 A2 A3 OJ A1 A2 A3 A4 OL A2 A1 A3 A4 PO A3 A1 A3 A4 @PQ A4 A1 A2 A3 _PT I :  : : P$(P);P^ ", HERE ARE YOUR LEGAL MOVES FOR THIS TURN:"Ph I  : RX(I);(M$,CX(I),);" /"; : I : Pr "WHAT IS YOUR MOVE";R$ Qs (R$,)"M"  : ^.Qt (R$,)"S"  : ^AQwR((R$,))dQ|C((R$,))@ : I  Q RRX(I) CCX(I) Q I : "THAT SPAQ$Q. QQ8 J SQB "BET NO. ";JQL PQV I  Q` B(I) T(J) Rj U(J) I 9Rt P  #z((V(J)2)H(IIU(J)))VR~ "YOU COLLECT";P;"ON ";`R rfRpR xR IR I T(J)R"TEAR UP YOUR TICKET ON ";R I  R B(I) T(J) R IS"NEXT TIME, PURCHASE A SHOW TICKET ON ";S "S Q QPV(J)*S J4S  ^S"YOUR TOTAL WINNINGS AMOUNT TO $";Q2hS zS("YOUR TOTAL LOSSES AMOUNT TO $";(Q2)S2 zS< Q SF L1  SP B(L1) SZ A(L1) Sd L1Sn L1  Tx L2  T L1L2 1T H(L1)H(L2) ET"RERUN PLEASE"KTcT H(L1)H(L2) wT A(L1)A(L1)T L2T A(L1) A(L1) T L1T L1  T L2  T A(L2)L1 T B(Q) L2T QQU L2 U L2U" L1U,#U65U@ K  YUJ"POS. HORSE LENGTHS BEHIND"_UToU^ I  xUh I;Ur B(I) DU| B(I)CE WAS NOT INCLUDED IN THE LIST..." : rQA1M(R,C) : A2M(R,C) : A3M(R,C) : A4M(R,C)4R A1 A2 A3 A4 M(R,C) :  WR A1 A2 A2A1 $zR A1 A3 A3A1 $R A1 A4 A4A1 $R A2 A3 A3A2 $R A2 A4 A4A2 $S A3 A4 A3A4 $,S A1 A2 A3 A4 AS M(R,C)  US A1 IA1iS A2 IA2}S A3 IA3S A4 IA4SQ(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) :  ET "A NEW SHIPPING COMPANY HAS BEEN FORMED!"}T "IT'S NAME IS ";MX$(I) : S(I,P)S(I,P) : Q(I)T : : : : T 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(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 F2]-Q(T1)Q(T1)Q(X) : S1(T1)S1(T1)S1(X) ]0 S1(T1) x]2F3A3 ^3 F3 F3^4F4A4 ,^7 F4 F4`^<S1(X)d : Q(X) : I P1 : S(X,I) : Iw^K : : : : ^PM(R,C)T1^Z^x "THE STOCK OF ";^ MX$(T1);" HAS SPLIT 2 FOR 1!" : S1(T1)(S1(T1))^ : : : : #_ I1 P1 : S(T1,I1)S(T1,I1) : I1)_;_ ( ) : u_ "STOCK";);"PRICE PER SHARE";2);"YOUR HOLDINGS"_ I3  _ S1(I3)d _ MX$(I3););S1(I3);2);S(I3,P)_ I3 : __@ Z1$`E " STAR LANES IS A GAME OF INTERSTELLAR TRADING."W`J "THE OBJECT OF THE GAME IS TO AMASS THE GREATEST AMOUNT"`O "OF MONEY. THIS IS ACCOMPLISHED BY ESTABLISHING VAST,"`T "INTERSTELLAR SHIPPING LANES, AND PURCHASING STOCK IN"aY "THE COMPANIES THAT CONTROL THOSE TRADE ROUTES. DURING"Oa^ "THE COURSE OF THE GAME, STOCK APPRECIATES IN VALUE AS"ac "THE SHIPPING COMPANIES BECOME LARGER. ALSO, SMALLER"ah "COMPS KN THE NEW COMPANY AS A REWARD. HE"i: "MAY THEN PROCEED TO BUY STOCK IN ANY ACTIVE COMPANY,"6j? "INCLUDKNG THE ONE JUST FORMED, AS DESCRIBED BELOW."rjD "THG MARKET VALUE OF THE NEW STOCK IS ESTABLISHED BY"jI "THE NUMBER OF STARS AND OCCUPIED SPACES AS DESCRIBED"jN "IN #2 ABOVE."jS :jX j] Z1$ kb " 4. HE MAY MERGE TWO EXISTING COMPANIES- IF A PLAYER"Zkg "SELECTS A SPACE ADJACENT TO TWO EXISTING SHIPPING"kl "LANES, A MERGER OCCURS. THE LARGER COMPANY TAKES OVER THE"kq "SMALLER COMPANY - (IF BOTH COMPANIES ARE THE SAME SIZE"lv "PRIOR TO THE MERGER, THEN THE SURVIVOR IS DETERMINED BY"^l{ "ALPHABETICAL ORDER OF THE TWO COMPANY NAMES - THE EARLIER"l "SURVIVES). THE STOCK OF THE SURVIVING COMPANY IS"l "INCREASED IN VALUE ACCORDING TO THE NUMBER OF SPACES"m "AND STARS ADDED TO ITS LANE. EACH PLAYERS STOCK IN"Lm "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 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)IRV  I  : B(P)B(P)(L|S(I,P)S1(I)) : IaV* I  tV/ Q(I) V4 "YOUR CURRENT CASH= $";B(P)V> "BUY HOW MANY SHARES OF ";MX$(I);" AT $";S1(I) : );VH "YOU NOW OWN ";S(I,P);VR R3$ )WT (R3$,)"M" R3$"" :  : >VWW (R3$,)"S" R3$"" :  : >nWXR3(R3$) : R3$""W\ R3S1(I)B(P) pWf "YOU ONLY HAVE $";B(P);"- TRY AGAIN" : >Wp R3 WzS(I,P)S(I,P)R3 : B(P)B(P)(R3S1(I)) X I : 5X ( ) : );"MAP OF THE GALAXY"VX );"*******************"X  );" A B C D E F G H I J K L"X R2  : );R2; : C2  : " ";X (L$,M(R2,C2),);" "; : C2 : : R2XX$F1A1 Y% F1 F1Y&F2A2 ,Y' F2 F29Y(F3A3 KY) F3 F3XY*F4A4 jY+ F4 F4Y,TQ(F1) : T1F1 Y- Q(F2)Q(F1) TQ(ANIES CAN BE MERGED INTO LARGER ONES, AND STOCK"bm "IN THE SMALLER FIRM IS CONVERTED INTO STOCK IN THE",br "LARGER ONE AS DESCRIBED BELOW.":ibw "EACH TURN, THE COMPUTER WILL PRESENT THE PLAYER WITH"b| "FIVE PROSPECTIVE SPACES TO OCCUPY ON A 9X12 MATRIX"b "(ROWS 1-9, COLUMNS A-L). THE PLAYER, AFTER EXAMINING" c "THE MAP OF THE GALAXY TO DECIDE WHICH SPACE HE WISHES"\c "TO OCCUPY, RESPONDS WITH THE ROW AND COLUMN OF THAT"c "SPACE, I.E., 7E, 8A, ETC. THERE ARE FOUR POSSIBLE"c "MOVES A PLAYER CAN MAKE."::cc c c "PRESS RETURN TO CONTINUE";X2$d d Z1$Gd " 1. HE CAN ESTABLISH AN UNATTACHED OUTPOST- IF HE"d "SELECTS A SPACE THAT IS NOT ADJACENT TO A STAR, ANOTHER"d "UNATTACHED OUTPOST, OR AN EXISTING SHIPPING LANE, THIS" e "SPACE WILL BE DESIGNATED WITH A '+'. HE WILL THEN PROCEED"=e "WITH STOCK TRANSACTIONS, AS LISTED BELOW.":{e " 2. HE CAN ADD TO AN EXISTING LANE- IF HE SELECTS A"e "SPACE THAT IS ADJACEN CASH BONUS PROPORTIONAL TO THE PERCENTAGE"n "OF OUTSTANDING STOCK HE HELD IN THE DEFUNCT COMPANY.":n "NOTE: AFTER A COMPANY BECOMES DEFUNCT THROUGH THE"sn "MERGER PROCESS, IT CAN REAPPEAR ELSEWHERE ON THE"n "BOARD WHEN, AND IF, A NEW COMPANY IS ESTABLISHED."n :n n Z1$ o " NEXT THE COMPUTER CDDS STOCK DIVIDENDS TO THE PLAYER'S"Lo "CASH ON HAND (5% OF THE MARKET VALUE OF THE STOCK IN HIS"o "POSSESSION), AND OFFERS HIM THE OPPORTUNITY TO PURCHASE"o "STOCK KN ANY OF THE ACTIVE COMPANIES ON THE BOARD."p "STOCK MAY NOT BE SOLD, BUT THE MARKET VALUE OF EACH"Bp "PLAYER'S STOCK IS TAKEN INTO ACCOUNT AT THE END OF THE"p "GAME TO DETERMINE THE WINNER. IF THE OARKET VALUE OF A GIVEN"p "STOCK EXCEEDS $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 SHARES OWNED BY GACH PLAYER IS DOUBLED."Fq q "NOTE: THE PLAYER MAY LOOK AT HIS PORTFOLIO AT ANY TIME"q "DURING THEF2) : T1F2Y. Q(F3)T TQ(F3) : T1F3Y8 Q(F4)T TQ(F4) : T1F4YB F1T1 A1 V ZLXF1 : &ZV F2T1 A2 j7Z`XF2 : PZj F3T1 A3 ~aZtXF3 : zZ~ F4T1 A4 ZXF4 : ZZ MX$(X);" HAS JUST BEEN MERGED INTO ";[ MX$(T1);"!" : "PLEASE NOTE THE FOLLOWING TRANSACTIONS : "8[ : );"OLD STOCK = ";MX$(X);" NEW STOCK = ";K[ MX$(T1) : [ "PLAYER"; );"OLD STOCK";);"NEW STOCK";");[ " TOTAL HOLDINGS";5);"BONUS PAID"[ I P1 : P$(I); );S(X,I););((S(X,I)));\ ");S(T1,I)((S(X,I)));K\X1 : I1 P1 : X1X1S(X,I1) : I1W\ 5);\ " $";( ((S(X,I)X1)S1(X))) : I\  I P1 : S(T1,I)S(T1,I)((S(X,I)))\B(I)B(I)( ((S(X,I)X1)S1(X))) : I] I  : J  ']  M(I,J)X M(I,J)T11]# J,Ik]%A1M(R,C) : A2M(R,C) : A3M(R,C) : A4M(R,C)x]&F1A1 ]' F1 F1](F2A2 T TO ONE - AND ONLY ONE EXISTING"e "SHIPPING LANE, THE SPACE HE SELECTS WILL BE ADDED TO"7f "THAT SHIPPING LANE AND WILL BE DISIGNATED WITH THE FIRST"xf "LETTER OF THE COMPANY THAT OWNS THAT LANE. IF THERE ARE"f "ANY STARS OR UNATTACHED OUTPOSTS ALSO ADJACENT TO THE"f "SELECTED SPACE, THEY, TOO, WILL BE INCORPORATED INTO THE"7g "EXISTING LANE. EACH NEW SQUARE ADJACENT TO A STAR ADDS"xg "$500 PER SHARE, AND EACH NEW OUTPOST ADDS $100 PER SHARE"g "TO THE MARKET VALUE OF THE STOCK OF THAT COMPANY."g :g g Z1$ h " 3. HE MAY ESTABLISH A NEW SHIPPING LANE- IF THERE"Ih "ARE FIVE OR LESS EXISTING SHIPPING LANES ESTABLISHED,"h "THE PLAYER MAY, GIVEN THE PROPER SPACE TO PLAY, ESTABLISH"h! "A NEW SHIPPING LANE. HE MAY DO THIS BY OCCUPYING A SPACE" i& "ADJACENT TO A STAR OR ANOTHER UNATTACHED OUTPOST, BUT"Ei+ "NOT ADJACENT TO AN EXISTING SHIPPING LANE. IF HE"i0 "ESTABLISHES A NEW SHIPPING LANE, HE IS AUTOMATICALLY"i5 "ISSUED 5 SHARE COURSE OF HIS TURN BY RESPONDING WITH 'STOCK'"r! "TO AN INPUT STATEMENT. LIKEWISE, HE CAN REVIEW THE MAP"Dr! "OF THE GALAXY BY TYPING 'MAP' TO AN INPUT STATEMENT."Lr !:Vr! `r! Z1$tr!:::::::r ! );"** GAME ENDS AFTER 48 MOVES **"r%!:::r*! "PLAYER WITH THE GREATEST NET WORTH AT THAT POINT IS THE WINNER."r/!:s4! W : Ws9!Qs% "THE GAME IS OVER - HERE ARE THE FINAL STANDINGS: "Xs!% s&% "PLAYER"; );"CASH VALUE OF STOCK";!);"CASH ON HAND ";s0% 2);"NET WORTH" : s:% I P1 : J  : D1(I)D1(I)(S1(J)S(J,I)) : J,I+tD% I P1 : P$(I); );"$";D1(I);!);"$";B(I);`tN% 2);"$";D1(I)B1(I) : D1(I) : B1(I) : IytX% "ANOTHER GAME";R$ t]% (R$,)"Y" Ftg% "MENU"t');`tN% 2);"$";D1(I)B1(I) : D1(I) : B1(I) : IytX% "ANOTHER GAME";R$ t]% (R$,)"Y" Ftg%SHARES OWNED BY GACH PLAYER IS DOUBLED."Fq q "NOTE: THE PLAYER MAY LOOK AT HIS PORTFOLIO AT ANY TIME"q "DURING THE7,1,1,13,5,10,3,27,1,4,6,13,3,10,6,12,5,1M 5,6,11,3,11,6,14,3,1,5,6,11,3,11,6,15,2,1N 6,6,9,3,12,6,16,1,1,6,6,9,3,12,6,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,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",3(A$)*KA ( )KKF T$(x): I  : : I`Kd J (J InJ:A$"00000": " INPUT A 5 DIGIT GUESS ";A$J " NO. GUESS RIGHT RIGHT"J " POSITIONS NUMBERS"J W  J W : "K 0);"GUESS";:A$"00000": A$:KA$("00000"A$,)HK I ]KZ$(I)(A$,I,)yKY$(I)Z$(I):L$(I)X$(I)K IKCK I K Z$(I)L$(I) ,K"CC:Z$(I)"10":L$(I)"11"K, IK6DK@ I KJ J LT Z$(I)L$(J) h5L^DD:Z$(I)"10":L$(J)"11"=Lh JELr IzL| U$; W;Y$();Y$();Y$();Y$();Y$();C;CD;L C L WL:: "END OF GAME. YOU LOSE, DUMMY. THE CODE WAS ";L "! ";X$();X$();X$();X$();X$()M8M:: "***** YOU WIN IN "; W;"GUESSES":WM:"WANT TO TRY AGAIN ";A$pM (A$,)"Y" dM:"SEE YOU LATER..."M "MENU" I M A N D A L AIJ MANDALA REDONE VER 1.3 9/20/76 ROB C/GCC IIIJ C$(),A$()(J C$ "*. $#"5JP1I;J|J" ** YOU ** DESIGN A MANDALA BY TYPING IN SOME NUMBERS."JJd ** INITIAL DIALOG **JnJx "SIZE OF MANDALA IN INCHES "; J SJ S8SJS S  "K "MANDALAS CAN BE BETWEEN 1 AND 7 INCHES."1K "SIZE ";;K SKS( S)zK "DIP FREQUENCY AND IMPORTANCE ";K F1,C1K F8F1:C8C1K "RIPPLE FREQUENCY AND IMPORTANCE ";K F2,C2K F9F2:C9C2L "COMBINATION IMPORTANCE "; L C3L C7C3L:L"HERE IS YOUR MANDALA :"@LfL *** PARAMETER NORMALIZATION ***zL"F1(F1)L,F2 (F2)L6C1(C1)L@C2(C2)LJC3(C3)LTCC1C2C3L^C1C1CLhC2C2CLrC3C3CL| M *** PRINTING LOOP ***)M YS S 4MY2YYDM FIND EDGEMMX1SWMX2SaM$X3vM. XX1 X2 X3M8R(XXY2)SMB X O : IN IN "; W;"GUESSES":WM:"WANT TO TRY AGAIN ";A$pM (A$,)"Y" dM:"SEE YOU LATER..."M "MENU" $(I)(((R)),):RR(R)>J InJ:A$"00000": " INPUT A 5 DIGIT GUESS ";A$J " NO. GUESS RIGHT RIGHT"J " POSITIONS NUMBERS"J W  J W : "K 0);"GUESS";:A$"00000": A$:KA$("00000"A$,)HK I ]KZ$(I)(A$,I,)yKY$(I)Z$(I):L$(I)X$(I)K IKCK I K Z$(I)L$(I) ,K"CC:Z$(I)"10":L$(I)"11"K, IK6DK@ I KJ J LT Z$(I)L$(J) h5L^DD:Z$(I)"10":L$(J)"11"=Lh JELr IzL| U$; W;Y$();Y$();Y$();Y$();Y$();C;CD;L C L WL:: "END OF GAME. YOU LOSE, DUMMY. THE CODE WAS ";L "! ";X$();X$();X$();X$();X$()M8M:: "***** YOU WIN IN "; W;"GUESSES":WM:"WANT TO TRY AGAIN ";A$pM (A$,)"Y" dM:"SEE YOU LATER..."M "MENU" I (): PI !);"LOVE":I );"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"J: : BJ "A TRIBUTE TO THE GREAT AMERICAN ARTIST, ROBERT INDIANA."J "HIS GREATEST WORK WILL BE REPRODUCED WITH A MESSAGE OF"J( "YOUR CHOICE UP TO 60 CHARACTERS. IF YOU CAN'T THINK OF"J2 "A MESSAGE, SIMPLE TYPE THE WORD 'LOVE'": K< "YOUR MESSAGE, PLEASE";A$: L(A$)*KA ( )KKF T$(x): I  : : I`Kd J ( 'SICKBAY TO BRIDGE. WE SUFFERED ";J8;"CASUALTIES IN THAT ATTACK"VC4C4J8VVF9V':V"*** KLINGONS ATTACK-- STARBASE SHIELDS PROTECT THE ";S5$VW4K3WK8(W4)K7(W4)WW4"W&`m:2W:J4TW"*** RED ALERT! RED ALERT!"W"*** THE ";S5$;" HAS STOPPED IN QUADRANT CONTAINING SUPERNOVA"W "*** AUTO-OVERRIDE ATTEMPTS TO HURL ";S5$;" TO OTHER QUADRANT"W S2(Q1,Q2)W*PFX4D4() X>*XH"WARP ENGINES DAMAGED."WX\:"TRYING TO ENGAGE IMPULSE ENGINES..."hXfD4()Xp"IMPULSE ENGINES DAMAGED."XuF9Xz'XXP2@E1XD6ny(P22)XD75()XD1D6XD6D7D1D7 YT1D1LYD2 ()"YJ4+Y34Y` EYW1()RYW2W1W1bY P2@E1~Y D6P2(W1W1W1(S4))Y D75()Y$ "COURSE IS";S(D2);" FOR A DISTANCE OF";aS(D1);"QUADRANTS.": b"ENTER DISTANCE AND WARP FACTOR";D1,A4b(D1)/bC7D1A4A4A4NbT1( D1)((A4A4)'p)~b"IT WOULD TAKE";S(T1);"STARDATES AND USE"bR(C7);"UNITS OF ENERGY (";R(C7C7);"IF SHIELDS ARE UP)"bb""ENTER DISTANCE...";D1b,D1 c6C7D12:T1D1L=c@"IT WOULD TAKE";R(T1);"STARDATES AND USE"WcJC7;"UNITS OF ENERGY"`cTc"ENTER PHASER RANGE IN QUADRANTS";A3cA3cA3A3 :C7(fffA3)dc"PHASERS ARE ";((C7),);"% EFFECTIVE AT THAT RANGE"cdYddDHdf"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, SECTOR 3-7."dk dpT2$"C"dzC3:"*** COMMANDER AT";eFR2:(C1(F)Q1)(C2(F)Q2)eF8eC1(F)C1(R2):C2(F)C2(R2):C1(R2):C2(R2)PeR2R2:F1()IveR2F1()D0(I4R2)(())eK2K2ee"*** KLI););C$(I); );C$(I)M::FMI,,,,#,-,F,_,x,$NI ,,,,,!,',@,Y,s3N :FBN  :FPN:F^NA:FlN#:FzN-X:FNF:J3FNKA2NLG(Q1,Q2)NT:FN_2:J3FNaNx6:FNфOJ3F OO!N:J3F+O:F>Oe:J3FMOA2`O:S9:FnO*:F|OJq:FO!::FO' R:J3F:O@y:J3FOIA2ONG(Q1,Q2)LQFOSOYJ3FP[A2PbG(Q1,Q2)LQF!Pg/Psa:F>PA2NPT1ύ(#]PA2rPG(Q1,Q2)LQP:A2PA2PP:FP::"ANOTHER GAME ";A$P(A$,)"Y".P( ): "MENU" Q(C3)(J4)ύ>QK3ώ&QA2ώ2QP2I8;QJ5AQ$WQ.C5$"DOCKED"jQ8H2:H3:C6QBS9C6()QLA3QVD1D6Y. D6D7D1D7Y8 T1 D1W2YB D2 ()YL J4YV ĆY` J4 Yj F9Zt 'Z~ Z R1ώZ F9&Z ',Z YZ :" 1 2 3 4 5 6 7 8"Z " --- --- --- --- --- --- --- ---"Z IZ I;" ";Z JZ (S2(I,J)) , ,& Z " .1.";Z X Z " ...";Z X [& S2(I,J)LQN 7[0 G(I,J)LQϑ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 IN (";Q1;"-";Q2;")"[ [( )[S8:L2["MISSION DURATION...: ";[A$[ I\A$(T$(I),(A$))6 \IT\""WOULD YOU LIKE A SHORT, MEDIUM OR LONG GAME";]\,f\6L2I\@"ARE YOU A BEGINNER, NOVICE, SENIOR OR EXPERT ";\JA$\TI\^A$(S$(I),(A$))|\hI\r@\|S8I:MRI]"ENTER MISSION PASSWORD...";X$:(]"....STAND BY...."4]J()X]D5S8:I2(L2())g]I2I2q]R3I2}]I5L2]R5I5]R7(S8(INGON AT";eK1K1eA5;"-";A6;"DESTROYED."eQ$(A5,A6)".":R1R1eR1ώfR5R4(R1R2)fG(Q1,Q2)G(Q1,Q2)d)fFK3Hf$(K4(F)A5)(K5(F)A6)8Of.F[f8K3K3ifBFK3jufLGFK3fVK4(G)K4(G):K5(G)K5(G):K6(G)K6(G)f[K7(G)K7(G):K8(G)K7(G)f`GgjK4(K3):K5(K3):K7(K3):K8(K3):K6(K3) gtgXC5$"DOCKED"-gbB6lTgg((S6B6))((S7B7))xglS5$;" NOT ADJACENT TO A BASE."~gvgC5$"DOCKED"g"---> DOCKING COMPLETED"gE1I7:S3I8:T4I9:L1J1gg"CAPTAIN, WE'RE ALREADY DOCKED!"g hAJ::I hJD4(I)-hTJ|Vh^" DEVICE"; );"-REPAIR TIMES-"zhh);"IN FLIGHT DOCKED":Jh|" ";D$(I););S(D4(I));!);S(D3D4(I))hIhJϑ" - ALL DEVICES FUNCTIONAL -"hh(#M:D7D0T1:L i<#F1(L)D7P#iF#ML:D7F1(L)"iP#L5iZ#X6D7D0:D0D7Lid#R4R4(R1R2)X6`in#R5R4(R1R2)nix#R5#wi#F9i#'i#i#(D4())(CLK3Q`K6(L)QjA3QtD6LL|()Q~H4K6(L)D6K8(L)Q(S4)(S9)RP3L}:P2S3P3P3P2S30RH5P3C6H4ARH5S3H5S3WRS3S3H5:H4H4H5yR(P3L})(H4 #yE1)RJ5RR(H4);"UNIT HIT ON THE ";S5$;" FROM ";RJ6K4(L):J7K5(L)RQ$(J6,J7)"K"ϑ"KLINGON AT"; SQ$(J6,J7)"C"ϑ"COMMANDER AT";SJ6;"-";J7+S H4H2H2H48SH3H3H4`SH4(S8)(())S(N4(H4(d()))S2"*** CRITICAL HIT--";S<K9SFW4N4SPJ9( ())SZC5(W4)J9SdE3(H4D5)(N4(K()))TnJ9E3E3TsD4(J9)D4(J9)E3+TxW47TVW4KTJ9C5(V)RTV^TK9K9jTK9ϑyT " AND ";TD$(J9);TW4T " DAMAGED."TD4()TS4ϑ"*** SHIELDS KNOCKED DOWN."TS4TE1E1H4TLUA3ώUE1'U"P4dP2S36U,J5J`U6"ENEMY ATTACK--SHIELDS REDUCED TO ";iU@rUJ"ENERGY LEFT:";S(E1);" SHIELDS ";UT))S8L}L}]R7L~R7R7L}]I1(R7I5)]R1I1^I4(S8}I1()) ^&R2I4^0I3(I1I4)I5(^:R4I3.^D@^D4( )Z^" COMPUTER DISABLED"`^^"----COMPUTER ACTIVE----"^"PROGRAM NAME";B$^I^B$(C2$(I),(B$))^^"VALID PROGRAMS ARE:"_" COURSE WCOST SCORE" _" PEFFECT ICOST OUT")_I_ IZ,,",,,Dt_Z "ENTER QUADRANT AND SECTOR - ";A3,A4_d(A3(A3))(A4(A4))f_eA3_fA3A3 Q1Q2_gA3A3_iK(A3 )_j(K)(K)f`kC6()K:K(A3C6() )#`l(K)(K)f;`mC6()K:A4A4K`nK(A4d)a`o(K)(K )f`pC6()C6()(K) :K(A4Kd)`q(K)(K )f`rC6()C6()(K) `sXQ1((S6) )C6():YQ2((S7) )C6()atD1:D2:(X)(Y)auD1(XXYY)AavXZ7(Y)(I((YX)))YawXZ7(Y)ImaxXZ7(YX)a}D2 Z7Evt:D2 D2D2 a5$"DOCKED")#i#(L1X6)(D4()L1)#i#F9:'i#i#L1L1X6i#D4()X6L1J1j#RX6j#C5$"DOCKED"RX6D3+j#L =j#D4(L)$Oj$D4(L)D4(L)Rdj $D4(L)D4(L)vj $D4(L)$j $:"DAMAGE CONTROL- ";D$(L);" NOW OPERATIONAL."j$Lj$Mώj"$T1T1X6j,$M@$,K$,|$,$,%j@$X2:Y2:xikE$F1()D0I5(())+kF$G(Q1,Q2)LQώ4kG$(#BkK$R2r$XkL$C5$"DOCKED"m$mkM$I(()R2)kN$Y6(C1(I)Q1)(C2(I)Q2)kO$Y6m$kP$Y6(Y6):T1 6~Y6kQ$:"*** ";S5$;" CAUGHT IN LONG-RANGE TRACTOR BEAM--"lR$Q1C1(I):Q2C2(I)lS$S6B():S7B()TlT$"PULLED TO QUADRANT";Q1;"-";Q2;", SECTOR";S6;"-";S7zlU$R6ϑ"(IDLE PERIOD CANCELLED)"lV$R6lW$S4h$lX$(D4())(S3)^$lY$"(SHIELDS NOT CURRENTLY USABLE.)"l[$h$l^$glc$S9lh$PFmm$F1()D0T1@(I5R2)(())(mn$(#=mr$F1()I:(#wm|$D9()D0:D9()R1:D9()R2:D9()R3:D9()R4:D9()R5m~$D9()S1:D9()B1:D9()K1:D'" ***CONGRATULATIONS***":~'uj'"PROMOTES YOU TO 'COMMODORE EMERITUS'."vt':"NOW YOU CAN RETIRE !" v~'Yv'^v'"TIME HAS RUN OUT - THE FEDERATION HAS BEEN CONQUERED AND YOUR CRAFT"v'"IS NOW ENEMY PROPERTY... YOU WILL STAND TRIAL AS A WAR-CRIMINAL..."v'"ON THE BASIS OF YOUR RECORD YOU WILL BE";v'R1I1'w'" SUMMARILY EXECUTED"w'A1:Y:0w'" IMPRISONED FOR LIFE"dw'"YOUR LIFE SUPPORT RESERVES HAVE RUN OUT, AND"w'"YOU WILL SOON DIE!!!"w'w'"YOUR STARSHIP IS A DERELICT IN SPACE."w'<(w'"YOUR ENERGY SUPPLY IS EXHAUSTED.":'x'"THE ";S5$;" HAS BEEN DESTROYED IN BATTLE."#x'<()x'\x'"YOUR STARSHIP HAS BEEN DESTROYED BY A NOVA."}x'"NICE WORK, IDIOT !!!":<(x("THE ";S5$;" HAS BEEN INCINERATED BY A SUPERNOVA."x(<(y ("YOU HAVE BEEN CAPTURED BY THE ENEMY. IF YOU STILL HAD A STARBASE,"Qy("YOU WOULD HAVE BEEN REPATRIATED. SINCE YOU HAVE NO BASES, YOU WILL"sy("BE MERCILESSLY TORTURED !!"|y(<(y(:"THE ";S5$;" IS NOW /Á/K6(N)(LL())P3/Ɂ//"*** CAPTAIN, THE VESSEL AT SECTOR";/X8;"-";Y8,/" HAS JUST LOST ITS FIREPOWER !!!"2/C/K6(N)K6(N)M/NNT/KZ/c2J3u2D4()32E1K32"ENTER COURSE....";D22D2 #zD2 ύ@:2Ă22"DISTANCE ";D1:D1222P32D13P3E1T3 3F3"1ST OFFICER SPOCK- 'CAPTAIN, THE IMPULSE ENGINES""3"REQUIRE 50 UNITS OF ENERGY TO ENGAGE, PLUS 250 UNITS PER ";,3E1K@3ƒ63"QUADRANT. THEY ARE USELESS NOW.'":@3"QUADRANT. WE CAN GO A MAXIMUM OF ";J3R(ny(E12)L|);"QUADRANTS.'":*T3T1D1L9^3T1R53}h3"SIR, MAX. SPEED UNDER IMPULSE IS ONLY 4 SECTORS PER STARDATE"r3"-- AUTHORIZE ";B$3(B$,)"Y"ώ3::J3ń3A2ώ҄3E1E1P3ބ3E1ώ3F9:':3"IMPULSE ENGINES DAMAGED.":6N$" #"%676D4()d7a6"L.R. SCAN FOR QUADRANT";Q1;"-";Q2:6IQ1:JQ1:KQ2:LQ26MIJ:NKL69( )K2m$I:J:D9(I(J) )G(I,J):J:Im$IKT:D9(I)C1(IJ):n$IU^:D9(I)C2(IT):,n$I_c:D9(I)B2(I^):Jn$Idh:D9(I)B3(Ic):bn$D9(i)B4:D9(j)B5n$S0:F1()D0I5(()):(#n$(R2)(R3)$n$IR3:JR2:(B2(I)C1(J))(B3(I)C2(J))$n$J:In$F1()D0()o$F1()I:(#3o$F1()I:F1()I:(#Io$B4B2(I):B5B3(I)bo$(B4Q1)(B5Q2)$}o$F1()D0()o$F1()F1()I5(())o$D4()(#o$:" CAPTAIN, THE STARBASE IN";B4;"-";B5;"IS UNDER ATTACK-".p$" AND CAN ONLY RESIST UNTIL STARDATE";R(F1());"!!!" CAPTAIN, WE'RE ALREADY DOCKED!"|+| +D4()+|+"SUBSPACE RADIO DAMAGED...CANNOT TRANSMIT.":|+R3*+!} +"CAPTAIN, NO RESPONSE FROM STARBASE !":7}*+N1N1:B6>+@}4+z+M}>+D1I|}H+LR3:X ((B2(L)Q1)(B3(L)Q2))}R+XD1f+}\+D1X:KL(M)(M)76(N)(N)7ׅ6D4( )S2(M,N)7G(M,N)LQ " ***";" ";! 7G(M,N)LQϑ((G(M,N))));G(M,N);*7(777N$;" ";@(7N:F27M<7M]F7D4( )ώP7"*** WARNING *** - COMPUTER DISABLED - SCAN NOT RECORDED."Z7Ȇd7"LONG RANGE SENSORS DAMAGED."::A5(D2) :D4(A5):D6(A5):B8(D4):(D6)B8B8(D6)5:D4D4B8:D6D6B8:T5:T6J:D0T1F1():w:T5:C5$"RED":D1D1(F1()D0)T1L}:T1F1()D0'p:Q$(S6,S7)".":X7S6:Y7S7:H9( D1B8)χ:H9 ;ۇ:LH9:X7X7D4:X1(X7):Y7Y7D6:Y1(Y7));(X1)(X1 ).;A;(Y1)(Y1 ).;X;Q$(X1,Y1)"O";p;Q$(X1,Y1)".";w;L;D1L}((S6X1)(S7Y1));S6X1:S7Y1 ;F4S6:F5S7Ԉ ;Q$(X1,Y1)"O";;T2A():T3A();Q1A():Q2A():S6B():S7B():=;"*** SPACE PORTAL ENTERED ***":;x;T6:K2D1T1nw:D1L}((S6X1)(S7Y1));(Q$(X1,Y1)"K")(Q$(X1,Y1)%q]%qb%K6(I)2()(#ql%Q$(B6,B7)".":B6:B7qv%hBr%:"CAPTAIN, I BELIEVE THE STARBASE HAS BEEN DESTROYED"$r%%>r%(R3)(D4())%Dr%r%"--> STARFLEET COMMAND REPORTS THAT STARBASE IN QUADRANT";B4;"-";B5r%"HAS BEEN DESTROYED BY ENEMY COMMANDER !!"r%G(B4,B5)G(B4,B5) r%R3& s%IR3:(B2(I)B4)(B3(I)B5)%s%0s%B2(I)B2(R3):B3(I)B3(R3)FAR2]F(C1(A)Q1)(C2(A)Q2)FiFA:FFQ$(S,T)"C":K6(K3)LQ():C3F`mFU GFUU ޖFB6B():B7B():Q$(B6,B7)"."FGQ$(B6,B7)"B"GhB:Uώ GAU1"GSB():TB():Q$(S,T)".""GD,GQ$(S,T)"*":A]6G(T2Q1)(T3Q2)ώ@GSB():TB():Q$(S,T)"."@GJGQ$(S,T)"O":ٗTG"*** SHORT-RANGE SENSORS DETECT A SPACE-WARP IN THIS QUADRANT"ߗhGrGA :B :Q$(A,B)".":B:A|GQ$(S6,S7)(S5$,):4:J()L}GJ?BJxi:zGJQ$(A5,A6)".":"*** STAR AT SECTOR";A5;"-";A6;"NOVAS."LJG(Q1,Q2)G(Q1,Q2):S1S1QJB9:T6:T7:K:X1:Y1טVJH4(B9,)A5:H4(B9,)A6[JMB9T6:Q:J`JJQA:B>KK3>CK4(K):DK5(K)'>Q$(C,D)"C">.>KD>N:FK6(K)dK3b>FLQN(()K7(K))>((C5$"DOCKED")((B4Q1)(B5Q2)))NS8>NN(((F())))>Nώۏ>(N)(K7(K)@)ώ>(N)S8N(N)(S8)>T(N):PS6C:QS7D)>(P)(Q)P@>(Q)(P)QT>PP(PN)h>QQ(QN)>RC:SD:Q$(C,D)".">L2T:LRP:MSQ>(L)(L )>Ȑ>(N)p?,%?,%?ߐ>(M)(M )?>(N)p?,?,? ?Q$(L,M)"."C?"?(QB)(P)%?, ?MSBC?(M)(M )?\?(N)p?, ?, ?q?Q$(L,M)"."C?z ?BB%?(PA)(Q)H?*?LRJJ()L}JƙJX2J5:Y2J6:xi:JT7T7:H4(T7,)J5:H4(T7,)J6:G(Q1,Q2)G(Q1,Q2)3JS1S1:"*** STAR AT SECTOR";J5;"-";J6;"NOVAS."?,>?ޑ9?Q$(L,M)"."C?>?AA:H?C?RL:SMH?L2M?Q$(R,S)"C"#R?(RC)(SD)ώSW?K4(K)R:K5(K)S:K7(K)((S6R)(S7S))\?K8(K)K7(K):Nϑ"*** COMMANDER ADVANCES TO";a?Nϑ"*** COMMANDER RETREATS TO";˒f?" SECTOR";R;"-";S:`m:p?IQ1((L) ):JQ2((M) ) u?(I)(I)?!z?(J)(J)?.?L3R2M?(C1(L3)I)(C2(L3)J)?s?L3:"*** COMMANDER ESCAPES TO ";?"QUADRANT";I;"-";J;" (AND REGAINS 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?`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:?AA:BB:H?̔hBC5$"GREEN":E1LQC5$"YELLOW"|BG(Q1,Q2)cC5$"RED"픆B PFJ4:B6:B7:K3:C3:UG(Q1,Q2):UrGUnFK3( #zU):A :B :Q$(A,B)".":B:AxFQ$(S6,S7)(S5$,):UG(Q1,Q2):UdFFUUdK3:AK3(S7N6)):K8(V)K7(V)Ý)KQ$(J5,J6)"."Ν-K:NM9N"PHASERS CAN'T BE FIRED THRU BASE SHIELDS.":pN^>ND4()RNHN"PHASER BANKS DAMAGED.":pNRNS4\NWN"SHIELDS MUST BE DOWN TO FIRE PHASERS.":pNΟ\NK3zNԟaNfN"THE SHORT-RANGE SENSORS DETECT NO ENEMY IN THIS QUADRANT." pNJ3:UzN"PHASERS LOCKED ON TARGET. ENERGY AVAILABLE=";jN #z(dE1)N"UNITS TO FIRE";P1:P1E1NN"ENERGY AVAILABLE =";:NNP1NƠNJ3:ӠNE1E1P1堮ND4( )NNP1P1(())SK4(V)P:K5(V)Q:K7(V)((S6P)(S7Q))?SK8(V)K7(V)CS`m:SHS"DAMAGED, BUT NOT DESTROYED.":S5MSQ$(A5,A6)"B"uSYRS"*** STARBASE DESTROYED...!!!"vWSS2(Q1,Q2)S2(Q1,Q2)\SWR3aS(B2(W)Q1)(B3(W)Q2)kSfSB2(W)B2(R3):B3(W)B3(R3)kSW:Q$(A5,A6)".":R3R3:B6:B7pSG(Q1,Q2)G(Q1,Q2) :B1B1:hB:S+uSQ$(A5,A6)"*"S@zS()~SS"*** STAR AT SECTOR";A5;"-";A6;"UNAFFECTED BY PHOTON BLAST"SSSX2A5:Y2A6::J:A5X2:A6Y2SG(Q1,Q2)LQώˬSA2ώԬSSS:" >>> ORGANIAN TRUCE-MONITOR DESTROYED <<<":Q$(A5,A6)".":+ST2:T3:S3SL9LS:"TORPEDO MISSED!"TSZ6aSR1ώqSF9:':U:"*** RED ALERT!! RED ALERT!! (()):Y(())ǵB^G(X,Y) 8^ԵL^It^V^KI:JK:D1((B2(J)X)(B3(J)Y))`^D18^j^JLt^B2(I)X:B3(I)Y:S2(X,Y):G(X,Y)G(X,Y) :Iu~^B1:KI1I4:L(S8(L2))^M((())L):MKMK^NdMǶ^XA():YA():G(X,Y)N^붦^G(X,Y)G(X,Y)N:KKM:K^^II4*^XA():YA():(G(X,Y)c)(()@)^>^G(X,Y)^K^I^u^MI:JM:(C1(J)X)(C2(J)Y)^|^J^G(X,Y)G(X,Y)d:C1(I)X:C2(I)Y:I^I(D0)::S0߷^T2A():T3A():G(T2,T3)d^x_"STARDATE..............";I _"NUMBER OF KLINGONS....";I1E_"NUMBER OF STARDATES...";(I5)f_"NUMBER OF STARBASES...";I2_"STARBASE LOCATIONS....";_II2:B2(I);"-";B3(I);_II2ϑ", ";_I::ɸ_PF_:"READY TO CONTINUE";NL$:( ):Jq:6:a"WARP FACTOR";Ka$aK4b2aK >bIaJW1:W1K:W2W1W1ba(W1J)(W1)aqaW1aaW1 ba"'WARP FACTOR";W1;"':`mK3ώjmZ4:OK3:K7(O)K7(O)mtmKK7(O):K7(O)K7(O):K7(O)K~mKK8(O):K8(O)K8(O):K8(O)K;ˆ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ºmZ4jmmJqD().rRq:" 1 2 3 4 5 6 7 8 9 10"\qI :I ϑ" ";fqI;:J :Q$(I,J);" ";:J/pqIzq,q,q,q,qLuqIq,q,q,r,rozq" STARDATE ";R(D0):$rÄqC5$"DOCKED"ύhBÎq" CONDITION ";C5$:$rØq" POSITION ";Q1;"-";Q2;", ";S6;"-";S7:$rĢq" LIFE SUPPORT ";:D4()qĬq"ACTIVE":$r.ĶqC5$"DOCKED"qYq"DAMAGED, SUPPORTED BY STARBASE":$rq"DAMAGED, RESERVES=";S(L1):$rq" WARP FACTOR ";R(W1):$rq" ENERGY";); #z(dE1):$rq" TORPEDOS ";T4:$rq" SHIELDS ";:B$"DOWN,":S4B$"UP,"8qD4()B$"DAMAGED,"\rB$;(dS3I8);"%":$r{r" KLINGONS LEFT ";R1:$rr" TIME LEFT ";S(R5***":U"*** COLLISION IMMINENT!!":V"*** ";S5$;" RAMS ";:W7:Q$(S6,S7)"C"W7 VW7ϑ"KLINGON AT ";)VW7ϑ"COMMANDER AT ";["V"SECTOR";S6;"-";S7:A5S6:A6S7:T2$Q$(S6,S7),Vp:"*** ";S5$;" HEAVILY DAMAGED."6VK(()):"***SICKBAY REPORTS";K;"CASUALTIES!"ۮ@VC4C4K:L :I()JVJ(`W7(()I))D5 TVLJJ0^VD4(L)D4(L)T1J:L:D4()D4()EhVD4()D4()WrVS4:R1ώg|VF9:':YPD0J2:(P)(R1)YYPPYN(K2K1)P:K(N):L̯YG1LdS8ԯYIZ(S5$,)"E"MZ(S5$,)"F"M Z(S5$,)""M'ZA1IXZJ K12K2KLIdB1dM#N1S1C4h(Z:Jb"-'OUR TOP SPEED IS WARP 10, CAPTAIN.'"HbeJ3:D4()g˺eS4gg"SHIELDS ARE DOWN. DO YOU WANT THEM UP";B$g(B$,)"Y"ggIg"SHIELDS ARE UP. DO YOU WANT THEM DOWN";B$_g(B$,)"Y"geggS4:S9:C5$"DOCKED"E1E12g"SHIELDS RAISED.":E1ggJ3:gS4:S9:"SHIELDS LOWERED.":J3:g"SHIELDS DAMAGED AND DOWN. ":*g:"SHIELDS CONSUME ALL ENERGY.":gF9:':IxiX2iliN(()I6):X:YiNN(G(X,Y)(G(X,Y) ) ):NiiY:X:i(XQ1)(YQ2)j̼iJ4jiN(()(G(X,Y)(G(X,Y) ) ))"iX3 :Y3 :Q$(X3,Y3)"*"i5iNN:NiAiY3:X3ji:"*** RED ALERT!! RED ALERT!! ***ziX3X2:Y3Y2i"*** INCIPIENT SUPERNOVA)$rI:.r"SHORT RANGE SENSORS DAMAGED.":1u:"*** TIME WARP ENTERED ***":"YOU ARE TRAVELING ";:uS0bu,DuT1I5(())WNu"FORWARD IN TIME";R(T1);"STARDATES."oXuF1()F1()T1:ubuMD0:D0D9()lu"BACKWARD IN TIME";R(MD0);"STARDATES.":S0vuR1D9():R2D9():R3D9():R4D9():R5D9()ǀuS1D9():B1D9():K1D9():K2D9( )@NJuI: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):DzuIdh:B3(Ic)D9(I)::B4D9(i):B5D9(j)ǼuF1()D0I5(())uR2F1()D0(I5R2)(())2uF1()D0I5(())YuI:J:S2(I,J)S2(I,J)cuJ:Iiuu"SPOCK HAS RECONSTRUCTED A CORRECT STAR CHART FROM MEMORY."uPF:yJ3:D4( )y,y"NUMBER OF UNITS TO SHIELDS";Z36yZ3ώ@yE1S3Z3TyMJy"SCOTT HERE- 'WE ONLY HAVE";R(E1S3);"UNITS LEFT.'"SKyTyE1E1S3Z3:S3Z3:"--ENERGY TRANSFER COMPLETE--"^y"(SHIP EN"STAR(S) DESTROYED";$);S1MRDZZB1ZZB1;);"STARBASES DESTROYED";$);dB1MRZN1Z=ZN1;);"SOS CALL(S) TO A STARBASE";$);#N1MRKZC4ZyZC4;);"CASUALTIES INCURRED";$);C4MRZMZZM;);"SHIP(S) LOST OR DESTROYED";$)dMMRɲZA1ZZ)"PENALTY FOR GETTING KILLED";$);MRZG1[?Z);"BONUS FOR WINNING ";S$(S8);" GAME";$);LMRp[);"-------------------------------------"[);"TOTAL";$);JMR;"**":]A2:G1::S5$"ENTERPRISE"]I7:E1I7:I8 :S3I8:S4:S9S4:J1:L1J1]Q1A():Q2A():S6B():S7B():I9 :T4I9@]W1:W2:I :D4(I):~]J2d(()):D0J2:K1:K2:N1:N2:R6:C4]A1:D3:I:J:S2(I,J):J:Iڴ]F1()D0I5(()):F1()I^F1()D0@(I5R2)(()):I6@^F1()D0I5(()):F1()D0I5(())j^I:J:K(()):I6I6K$^G(I,J)K:J:I:S1.^ II28^X DETECTED AT SECTOR";X3;"-";Y3ڽiXQ1:YQ2:K(X2S6)(Y2S7)iK@,j#j"*** EMERGENCY AUTO-OVERRIDE JAMMED ***":A2:,j5jD4(),joj:"MESSAGE FROM STARFLEET COMMAND...STARDATE";(D0)"j"'SUPERNOVA IN QUADRANT";X;"-";Y;'j"....CAUTION ADVISED'"ξ,jNG(X,Y):R(Nd):Q6j(XQ1)(YQ2)Jj@jK3:C3JjRjTjR1R1R:R2j?^jLR2:(C1(L)X)(C2(L)Y)|johjC1(L)C1(R2):C2(L)C2(R2):C1(R2):C2(R2)rjR2R2:RR:Q:R2F1()I|jLjR3jӿjLR3:(B2(L)X)(B3(L)Y)j jB2(L)B2(R3):B3(L)B3(R3):B2(R3):B3(R3):R3R3jL jX2j>jNG(X,Y)(G(X,Y)d)dgjS1S1(N(N ) ):B1B1(N ){jK1K1R:K2K2Qj(S2(X,Y))(D4())S2(X,Y)LQG(X,Y)j(D4())((Q1X)(Q2Y))S2(X,Y)jG(X,Y)j(R1)((XQ1)(YQ2))&kHj( ):"*** SUPERNOVA IN QUADRANT";X;"-";Y;"HAS DESTROYED THE"ok"REMAINDER OF THE ENEMY FLEET !!"kF9:':&kA2ώ0kF9:ERGY=";R(E1);" SHIELD ENERGY=";R(S3);")"cyJ3hyT1L}:P5(K3C3)0:P5L}P5L}ryP5()ύ|yA2ώ)ʆy(#:Jʐy"TRANSFER PANEL DAMAGED.":J3:"HOW MANY STARDATES";Z5:(Z5R5)(K3)"ARE YOU SURE";B$:(B$,)"Y"ώR6Z5R6R6ώ$T1Z5:Z6Z5.K3L8T1():Z5T1T1Z5BZ6T1!LT1Z5ύ.VA2ώE`(#:J3:A2ώWjZ5Z5Z6:nфJ3:D4()ڄ"ENTER COURSE...";D2:D2 #zD2 ύ@:݄܄݄"DISTANCE...";D1:D1ώP(D1L|)W1W1W1(S4):PE1fJ3::"ENGINEERING TO BRIDGE--"5(S4)(PE1) i " WE HAVEN'T THE ENERGY TO GO THAT FAR WITH";" THE SHIELDS UP.": W((E1(D1L|))*):WR*" WE HAVEN'T THE ENERGY. BUT WE COULD DO IT AT WARP";W4S4H>(H" IF YOU'LL LOWER THE SHIELDS.":fR" WE CAN'T DO IT, CAPTAIN. WE HAVEN'T GOT THE ENERGY."l\fT1 D1W2:T1LR5Ćp:"MRATION-POSITIVE"Ҍ"SELF-DESTRUCT-SEQUENCE-ACTIVATED":J܌I :J);I:r:JJ:%挑"ENTER-YOUR-MISSION-PASSWORD-TO-CONTINUE"V"SELF-DESTRUCT-SEQUENCE-OTHERWISE-DESTRUCT"v"SEQUENCE-WILL-BE-ABORTED"B$:B$X$^"PASSWORD-ACCEPTED":J I:J);I:r:JJ:":"*****ENTROPY OF ";S5$;" MAXIMIZED*****" ,:K3T16WE1:LK3:K6(L)K7(L)WJZ@A5K4(L):A6K5(L):T2$Q$(A5,A6):paJLrTF9 :':^"PASSWORD-REJECTED"h"CONTINUITY-EFFECTED"::rK90:MZ:KK:M:׉I :pq:@"---> COURSE(S) .01-12 ONLY !!!":TED"h"CONTIN6)(S7 )lTXS7(()B7):(S7)(S7 )lkbQ$(S6,S7)"."vwlL:DvS5$"FAERIE QUEENE":Q$(S6,S7)(S5$,):C5$"DOCKED"ԀL :D4(L)::D4( ):E1 :I7E1ՊS3:I8S3:T4:I9T4:L1:J1L1:S4:W1:W2Ք,աD4( )gժ"COMPUTER DAMAGED - CANNOT EXECUTE DESTRUCT SEQUENCE"mմվ:" ---WORKING---"Ȍ"IDENTIFICI( )I " * * MOON LANDER * *"IdC$()InC$()" DON'T APPLY TO NASA FOR A JOB...":JxC$()" HOW MANY LUNER LANDERS DO YOU THINK WE HAVE?"vJC$()" YOU'RE THE MAIN EXPENSE OF THE SPACE PROGRAM."JC$()" YOU COULD GET HURT IF YOU KEEP THIS UP."JC$()" HOW MANY MORE TIMES DO YOU INTEND TO CRASH?"$KC$()" YOU'VE BEEN AT THIS SO LONG YOU MUST BE TIRED.",KL7KMO:BKNOLHKsK"GROUND CONTROL TO LUNAR LANDER....."K"DO YOU NEED INSTRUCTIONS ";K P$K P$"NO" P$"N" YKK"ONBOARD AND GROUND COMPUTERS "L "HAVE SIMULTANEOUSLY MALFUNCTIONED"6L" .. MANUAL CONTROL NECCESSARY .."WL"CAPSULE WT. ";(MO);"KG."|L"AVAIL. FUEL ";(MONO);"KG."L""ESTIMATED FREE FALL TO IMPACT TIME = 120 SECONDS."L,"SET RETRO ROCKET BURN RATE TO ANY" M6"VALUE BETWEEN 0 KG/SEC (FREE FALL) AND"5M@"150 KG/SEC (VERY STRONG BRAKING)."]MB"MINIMUM BURN TIME IS 10 SECONDS."ME"INPUT---( RATE,SEC )--- A DUAL VALUE INPUT"MJM. SPOCK - 'CAPTAIN, I COMPUTE THAT SUCH A TRIP"z" WILL REQUIRE APPROXIMATELY";R(dT1R5);4΄"PERCENT":" OF OUR REMAINING TIME. ARE YOU SURE ";^Ύ "THIS IS WISE";B$:(B$,)"Y"ĆiΘJ3:ĆQ4:W:W1dΆPD1(W1)ZU:P()Q4؆Q4D1()D1W:W1 솋D1()W(Q4)(W)d&A(D2) :X1(A):X2(A)M B8(X1):(X2)(X1)B8(X2)X1X1B8:Y1Y1B8:N( D1B8):XS6:YS7Nd(LN2XXX1:Q(X):(Q)(Q )d"IMPACT VELOCITY ";(V9);" METERS/SECOND"QH (MN) fQR"FUELNE HAS NO SHUTTLE CRAFT.":̈"SHUTTLE CRAFT DAMAGED.":ֈ:"***ABANDON SHIP! ABANDON SHIP!" "***ALL HANDS ABANDON SHIP!":Vꈑ"YOU AND THE BRIDGE CREW ESCAPE IN THE GALILEO.""THE REMAINDER OF THE CREW BEAMS DOWN""TO THE NEAREST HABITABLE PLANET.":R3F9:'::"YOU ARE CAPTURED BY KLINGONS AND RELEASED TO"0"THE FEDERATION IN A PRISONER-OF-WAR EXCHANGE."f&"STARFLEET PUTS YOU IN COMMAND OF ANOTHER SHIP,"0"THE FAERIE QUEENE WHICH IS ANTIQUATED, BUT":"STILL USABLE.":N(()R3):Q1B2(N):Q2B3(N)DS6:S7:PF:Q$(S6,S7)"."IL:S6(()B6)(N(S6)(S7 )lTXS7(()B7):(S7)(S7 )lkbQ$(S6,S7)"."vwlL:DvS5$"FAERIE QUEENE":Q$(S6,S7)(S5$,):C5$"DOCKED"ԀL :D4(L)::D4( ):E1 :I7E1ՊS3:I8S3:T4:I9T4:L1:J1L1:S4:W1:W2Ք,աD4( )gժ"COMPUTER DAMAGED - CANNOT EXECUTE DESTRUCT SEQUENCE"mմվ:" ---WORKING---"Ȍ"IDENTIFIC LEFT: ";(MN);"KG."Q\pQf"** FUEL LEFT IS ZERO **"Qp V9~ Rz" PERFECT LANDING !!!"R 8,R V9 XR" GOOD LANDING, BUT COULD BE BETTER.."aR8sR V9 R" FAIR LANDING"R8RV9 R" MINOR CRAFT DAMAGE"R8RL1R L RL1R L SL1SJS."YOU BLASTED A NEW LUNAR CRATER";()\}V9);" METERS DEEP"^S3C$(()L1)dS8SB"CARE TO TRY AGAIN ???";SL P$SV P$"Y" P$"YES" P$"OK" YSjSt" | this is control, over and out."S~ "MENU" : SII TT9T9T1TTTT1!TMMT1R)TDI1TVJ7TJTT1 #y  qTT1D(V(VVD(G(ZRM))))zTPTTTV9(MG(ZR))T T1MV(ZR(V9(V9V9VZ)))L|TPT I T(U2J U< V UF!UPII.UZQT1RMBUd QL} nUnJVGT1Z(QQQQQ)UxIDGT1T1VT1ZT1(QQQT MM"SORRY, THAT'S 10 TRIES. HERE IS WHERE THEY'RE HIDING"M IN& P(I,):/N0"MUGWUMP";I" IS AT";P(I,);",";P(I,)7N: IGN? Mc MNDNX"THAT WAS FUN, WANT TO PLAY AGAIN...(Y OR N)";NZ A$N\ A$"Y"bN^ LNb( )Nd"FOUR MORE MUGWUMPS ARE NOW HIDING."Nv O"YOU'RE OFF THE GRID, TRY AGAIN..."O""O J.O IFOP(I,J)( ())NO IVO J\ObOBOL:"OK, SEE YOU LATER....."OV "MENU" :  J.O IFOP(I,J)( ())NO IVO J\ObOBOL:"OK, SEE YOU LATER....."OV "MENU" : $L6 I7L@P(I,)MLJ P(I,)M |cLT P(I,)N |qL^P(I,)Lh"YOU HAVE FOUND MUGWUMP NO. ";ILrL|B1(P(I,)M)(P(I,)M)L~B2(P(I,)N)(P(I,)N)LD(B1B2)L D ^)M"YOU ARE"(D ) " UNITS FROM MUGWUMP "I1M I=M JRM P(J,)ZM J`MM"YOU GOT THEM ALL IN ";T;" TURNS!"MDM rQoTrQpwQr"ILLEGAL STICK NUMBER."::hQwS(N)S(N)TQyGGTQ|F:R I:V(I): I!R IP/RC(I)S(I)>R EGRI3SRI2E`REqRI3 I3:I2R S(I)E RS2(I)S2(I)I3RS(I)S(I)ER ER Y RI3R I2YRYRI3 I3: I2SX(I,Y)(S2(I)I3))SS2(I)S2(I)X(I,Y)I3>SV(Y)V(Y)X(I,Y)FS YNS IVSRfS Y SV(Y)(V(Y))S RSQ(P(Z))S X(Q,Y)SX(Q,Y)SRSS X(Q,Y)SX(Q,Y)T TX(Q,Y)T Y!T IP-TS2(I)=T Y FTI3RTI2Y_TYpTI3 I3:I2TS3(I)X(I,Y)I3TS2(I)S2(I)S3(I)T YT E TI3TI2ETETI3 I3:I2TS2(I)I3 US(I)S(I)EUS2(I)S2(I)I3$U E,U  I:U RNUQ(P(Z))_U S(Q):oUS(Q)S(Q)UDC(Q)S(Q)UGGDU D & QQ)UUJVGT1Z(QQQ)VIDGT1T1VT1ZT1(QQQ ) VVQ8,R V9 XR" GOOD LANDING, BUT COULD BE BETTER.."aR8sR V9 R" FAIR LANDING"R8RV9 R" MINOR CRAFT DAMAGE"R8RL1R L RL1R L SL1SJS."YOU BLASTED A NEW LUNAR CRATER";()\}V9);" METERS DEEP"^S3C$(()L1)dS8SB"CARE TO TRY AGAIN ???";SL P$SV P$"Y" P$"YES" P$"OK" YSjSt" | this is control, over and out."S~ "MENU" : SII TT9T9T1TTTT1!TMMT1R)TDI1TVJ7TJTT1 #y  qTT1D(V(VVD(G(ZRM))))zTPTTTV9(MG(ZR))T T1MV(ZR(V9(V9V9VZ)))L|TPT I T(U2J U< V UF!UPII.UZQT1RMBUd QL} nUnJVGT1Z(QQQQQ)UxIDGT1T1VT1ZT1(QQQIZ( )I_ZHId" * * NIM * *"InIx"DO YOU WANT INSTRUCTIONS ";: Q$ J}Q$"YES"J~Q$"NO"@J"TYPE 'YES' OR 'NO'.": Q$:}LJ( )J" 'NIM' IS PLAYED BY TWO PEOPLE (I'M ONE) PLAYING"J"ALTERNALTY. BEFORE PLAY STARTS, AN ARBITRARY"J"NUMBER OF STICKS IS PLACED INTO AN ARBITRARY"K"NUMBER OF PILES, IN ANY DISTRIBUTION."MK"THEN EACH PLAYER IN HIS TURN REMOVES AS MANY"K"STICKS AS HE WISHES FROM ANY PILE -- BUT ONLY"K"ONE PILE, AND AT LEAST ONE STICK. THE PLAYER"K"WHO TAKES THE LAST STICK IS THE 'WINNER'"L"THIS PROGRAM ONLY ACCEPTS 20 PILES WITH 20";L"STICKS PER PILE... MAXIMUM!"qL"A RESPONSE OF'0' TO 'WHICH PILE...' ETC., WILL"L"RESTART GAME WITH SAME ARRANGEMENT OF PILES & STICKS"L"HAVE FUN !!"L: CONFIG INPUTM X(,),S(),L(),S2(),N2(),C(),S3(),V()+M:"HOW MANY PILES";: P:M PLM P(P)[M PdMM"ILLEGAL PILE NUMBER."::M: IPMU!:"I'LL TAKE";D;"STICKS FROM PILE";Q;"."U#+U&:"I'LL TAKE 1 STICK FROM PILE";Q;"."V+F V-V0X V: IP-V?BBS(I)5VD IDVI B;MVN^VX "MENU" :  STICK FROM PILE";Q;"."V+F V-V0X V:RS(I)S(I)ER ER Y RI3R I2YRYRI3 I3: I2SX(I,Y)(S2(I)I3))SS2(I)S2(I)X(I,Y)I3>SV(Y)V(Y)X(I,Y)FS YNS IVSRfS Y SV(Y)(V(Y))S RSQ(P(Z))S X(Q,Y)SX(Q,Y)SRSS X(Q,Y)SX(Q,Y)T TX(Q,Y)T Y!T IP-TS2(I)=T Y FTI3RTI2Y_TYpTI3 I3:I2TS3(I)X(I,Y)I3TS2(I)S2(I)S3(I)T YT E TI3TI2ETETI3 I3:I2TS2(I)I3 US(I)S(I)EUS2(I)S2(I)I3$U E,U  I:U RNUQ(P(Z))_U S(Q):oUS(Q)S(Q)UDC(Q)S(Q)UGGDU D &I( )I" * * * MUGWUMP * * *"II P(,)J"THE OBJECT OF THIS GAME IS TO FIND FOUR MUGWUMPS"HJ"HIDDEN ON A 10 BY 10 GRID. HOMEBASE IS POSITION"oJ(" 0,0 (LOWER-LEFT CORNER OF GRID)J2"YOUR GUESS IS TWO NUMBERS BETWEEN 0 AND 9."J7"THE FIRST NUMBER IS DISTANCE TO RIGHT OF HOME,"K<"THE SECOND NUMBER IS DISTANCE ABOVE HOME."KFIKP"YOU GET 10 TRIES. AFTER EACH TRY YOU'LL BE TOLD HOW"oKZ"FAR YOU ARE FROM EACH MUGWUMP."uKdK KTKTTKK""TURN NO. "T;" WHAT'S YOUR GUESS";K, M,NK- Mc K. MK0 NL2 M L4 N $L6 I7L@P(I,)MLJ P(I,)M |cLT P(I,)N |qL^P(I,)Lh"YOU HAVE FOUND MUGWUMP NO. ";ILrL|B1(P(I,)M)(P(I,)M)L~B2(P(I,)N)(P(I,)N)LD(B1B2)L D ^)M"YOU ARE"(D ) " UNITS FROM MUGWUMP "I1M I=M JRM P(J,)ZM J`MM"YOU GOT THEM ALL IN ";T;" TURNS!"MDM "HOW MANY STICKS IN PILE";I;: L(I)M L(I)M L(I)(L(I))ML(I)N&N"ILLEGAL STICK NUMBER."::.N I:N IPHNS(I)L(I)UNGGL(I)]N IN:"DO YOU WANT TO GO FIRST";N Q$N Q$"YES"TN Q$"NO"N"TYPE 'YES' OR 'NO'.":N G N FN@O F;5O:"* * I WON * * DO YOU WANT TO PLAY AGAIN";=OQ$NOQ$"NO""aO Q$"YES",jO 'O":" OK, BE THAT WAY.":0O'"WHAT'S THAT? PLEASE TYPE 'YES' OR 'NO'":O,"SAME ARRANGEMENT";O1Q$O2Q$"NO"P3Q$"YES"3P6"AWW,COME ON, IT'S 'YES' OR 'NO'.":1`P;:"%%% YOU WON %%%, PLAY AGAIN";:P@:"PILE NUMBER","STICKS LEFT"PE IPPF S(I) JPG I,S(I)PJ IPT:"WHICH PILE DO YOU WANT STICKS FROM";PV NPY NPc QZ N(N)cQ[ N+Q^ S(N)c4Q`hWQc"ILLEGAL PILE NUMBER."::TqQh:"HOW MANY STICKS";yQj TQm TS(N)rQn T(T)I:"YOU NOW HAVE 100 POINTS"I"BY GUESSING NUMBERS FROM 1 TO 5, YOU CAN GAIN OR LOSE"1J"POINTS DEPENDING UPON HOW CLOSE YOU GET TO A RANDOM"ZJ"NUMBER SELECTED BY THE COMPUTER":J"YOU OCCASIONALLY WILL GET A JACKPOT WHICH WILL"J"DOUBLE (!) YOUR POINT COUNT. WHEN YOU HAVE 500 POINTS"J"YOU WIN THE GAME"J :PdJ ZzYK "GUESS A NUMBER FROM 1 TO 5"'K G;KR((Z))OKS((Z))cKT((Z))wKU((Z))KV((Z))K GR K GS (K GT 2K GU <K GV FK G  KPPK#PL(PP L-PL2PPPL3KL5" * * * * ! ! YOU HIT JACKPOT ! ! * * * *"QL6ZL7PdL<PPmLAPLFPP(P)LGLH"YOU HIT DOUBLE JEPRODY... LOST HALF YOUR POINTS."LKLP P XMQ P "SORRY YOU'RE OUT OF POINTS,";$MR"YOU HAVE ";(P);"POINTS."4MS P \:MTCMU KMX:MZ"! ! * * * Y O U W I N * * * ! ! WITH ";P;"POINTS"M[ dM\ OR"M@" 30 UNITS OF FUEL PER SECOND."MJ"(4) WHEN YOU CONTACT THE LUNAR SURFACE YOUR DESCENT";NT" ENGINE WILL AUTOMATICALLY SHUT DOWN AND YOU WILL"wN^" BE GIVEN A REPORT OF YOUR LANDING SPEED AND FUEL"Nh"(5) IF YOU RUN OUT OF FUEL NO ADDITIONAL INPUT IS"Nr" ACCEPTED. FROM THEN ON ITS UP TO NATURE !!!"O|"ALL SET TO GO";: A$: A$"NO" A$"N"pTO( ):" *** BEGIN LANDING PROCEDURE ***"ZOO"SEC FT VEL. FUEL PLOT OF DISTANCE"OOT:H:V2:FxOT;);H; );V;);F;O);"|";H );"*"O BO B  P B BP BF BF*PV1VB4P0FFBIP:HH(VV1)ZPD H dPNTTmPXVV1}Pb F Pg B Pl"***** OUT OF FUEL *****"PT;);H; );V;);F;);"|";H );"*"PBQ 1 SEC TIME CONSTANT.............. Q I^: 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 AND PULL THE TRIGGER."NJ" (HIT '2' TO GIVE UP)"YJ"GO";aJNiJ IzJ I J:" CHICKEN !!!!! ": ^JNNJ N  JJ(()())J J,J"--CLICK--";J /K," * * * BANG * * * YOU'RE DEAD......"cK6 "CONDOLENCES WILL BE SENT TO YOUR RELATIVES."mK:  K; W :WK^:"IS THERE ANOTHER VICTIM (Y/N)"Kh Y$Kr Y$ "Y"  K| "MENU"K :"YOU WIN!!!!"K W : W*L "LET SOMEONE ELCE BLOW HIS BRAINS OUT.">L W : WGL OL:L" \\ /\ " L" ! \ /------------------------------''--- " M" ! -/ ------------ ! I" MM" / / I ------I !--------------------- " M" /----/ I ------I ! " M$" M] ".....YOU LOST, SUCKER!!!...."Md "TRY AGAIN (Y-N)"; : I$ : I$"Y" Mn "MENU" : NTS"M[ dM\LOSE YOU GET TO A RANDOM"ZJ"NUMBER SELECTED BY THE COMPUTER":J"YOU OCCASIONALLY WILL GET A JACKPOT WHICH WILL"J"DOUBLE (!) YOUR POINT COUNT. WHEN YOU HAVE 500 POINTS"J"YOU WIN THE GAME"J :PdJ ZzYK "GUESS A NUMBER FROM 1 TO 5"'K G;KR((Z))OKS((Z))cKT((Z))wKU((Z))KV((Z))K GR K GS (K GT 2K GU <K GV FK G  KPPK#PL(PP L-PL2PPPL3KL5" * * * * ! ! YOU HIT JACKPOT ! ! * * * *"QL6ZL7PdL<PPmLAPLFPP(P)LGLH"YOU HIT DOUBLE JEPRODY... LOST HALF YOUR POINTS."LKLP P XMQ P "SORRY YOU'RE OUT OF POINTS,";$MR"YOU HAVE ";(P);"POINTS."4MS P \:MTCMU KMX:MZ"! ! * * * Y O U W I N * * * ! ! WITH ";P;"POINTS"M[ dM\QDHVQV1V(B)DQ:"TOUCHDOWN AT";TD;" SECONDS"R"LANDING VELOCITY=";V1;"FT/SEC, ";"R  F"UNITS OF FUEL REMAINING."3R V1 *hR "CONGRATULATIONS !!! A PERFECT LANDING...!"R%"YOUR LICENSE WILL BE RENEWED........ LATER."R* (V1) HR/R4" **** SORRY, "N$" YOU BLEW IT !!! ****"$S>"APPROPRIATE CONDOLENCES WILL BE SENT TO NEXT OF KIN."*SHESR"ANOTHER MISSION ";A$bSf A$"YES" A$"Y" Sp"THANKS "N$", FOR A GOOD TRY... control out!"S "MENU" : NOTHER MISSION ";A$bSf A$"YES" A$"Y" Sp"THANKS "N$", FOR A GOOD TRY... control o BF*PV1VB4P0FFBIP:HH(VV1)ZPD H dPNTTmPXVV1}Pb F Pg B Pl"***** OUT OF FUEL *****"PT;);H; );V;);F;);"|";H );"*"PBQ 1 SEC TIME CONSTANT.............. Q I^: I*Q FQ" *** CONTACT ***"[QHH(VV1)jQ B QD(V(VVH( B)))(B)Q  / ------------ ! " N." / / // / " 8N8" / / \\ / " bNB" / /-----------/ " ~NL" ! !" NV" ! !" N`" \---------/ " NN " /^^^^^^^\ " O " / \ RO " 1 1 O " 1 R.I.P 1 " O " 1 1 " O " 1 1 " P " /============/ "LP " / / P " / / " P " / / " P " / / "P& " / / "Q0 " /-----------------/ ""Q: (Q' " / / "P& " / / "Q0 " /----------------I ( )II<" * * * * * * * * * * * * * * * * *"JF" * ROCKET LANDING SIMULATION *"BJP" * * * * * * * * * * * * * * * * *HJZgJ_"PILOTS NAME PLEASE..";N$mJaJd"NICE HAVING YOU ON BOARD ";N$", IS THIS"Jn"YOUR FIRST FLIGHT ";: A$Jx A$"NO" A$"N" JK"YOU ARE LANDING ON THE MOON AND HAVE TAKEN OVER MANUAL"ZK"CONTROL 500 FEET ABOVE A GOOD LANDING SPOT. YOU HAVE A"K"DOWNWARD VELOCITY OF 50 FT/SEC. 120 UNITS OF FUEL REMAIN."KK"SHALL I CONTINUE ";: A$K A$"NO" A$"N" KL"HERE ARE THE RULES THAT GOVERN YOUR SPACECRAFT"RL"(1) AFTER EACH SECOND, THE HEIGHT, VELOCITY, AND"~L" REMAINING FUEL WILL BE REPORTED."L"(2) AFTER THE REPORT A '?' WILL BE TYPED, ENTER THE"L" NUMBER OF UNITS OF FUEL YOU WISH TO BURN DURING"2M" THE NEXT SECOND. EACH UNIT OF FUEL WILL SLOW YOUR "_M"" DECENT BY APPROXIMATLY 1 FT/SEC."M6"(3) THE MAXIMUM THRUST OF YOUR ENGINE IS 30 FT/SECI " #######"I " #### ###"1J " ## #"gJ( " ## ### #"J2 " ################ # # #"J< " ### # # #"KF " ## ## ## #"IKP " # ## ## #"KZ " # ###### #"Kd"# ###### ######### #"Kn "# ######## ########## #"2Lx "# ##### ########### #"mL "# ############# #"L "# # ############# #"L " # # # # ############## #"M " # # # # # ############## #"YM " ## # ### ## # # ############### #"M " ###### ############ ## ############## #"MOGNIZE IT IF"Q"IT HAS WON BY BLOCKING YOU INTO IMMOBILITY."R"IN THAT CASE IT WOULD WIN PURELY BY ACCIDENT..."R3R"AND NOW TO PLAY......."9R?R~R A(,-),T(4),U(4),V(),X$(),B(),C(),Z(,),Y()R IR JR Z(I,J)R JR  IRIR  V(I)R*V(I)6V(I)R4 IR> IRH U(I)SRU(5I)U(I)S\ I(Sf I43Sp T(I);Sz IGS ISS X$(I)[S IhS IsS B(I){S IS C(),C(),C(),C(),C()S OSY(O)B(O)S OSQ9()S IST(I)T(I)S IT"SHALL I GO FIRST? (Y,N) ";T$ M$+T. M$"Y"4T86:TB@TLPTV" PLAY=";[T` M$,NoTj M$"KILL"{Tt JT~ M$X$(J)T JTDTMT(J)T MT()DT ((N))DT IV(M)V(M)U NU(I)U IUD#U T(N)D;UN1N:J1J:I1I:K1KOUIJ:J:KXU`UIMsUNN1:JJ1:KK1UM1M:L1L:J1JUM:LU " ## # # # ### ############## #"N " ############### ############## #"AN " # ## ########### #"yN " # # ########## ##"N " ######### ##########"N " ######### ######"O " ## # ####""CONTINUE ? (Y,N)";\\H A$m\R A$"N"s\\y\f\p "MENU" : 3,3,4,5,3IXXJX FMMXHT(F)X HT(M)&X GV(H)V(H)X T(U(G)) YA(,LJ)FYA(,LJ)U(G))YJJ1Y G9Y& FAY0KJGY:iYD"THOU SHALT NOT SO MOVE..!!"rYNV{YX6Y]::Yb" * * *  UM% E  M&BB:DD:EE:FF:HHM, UM/ F  M0CC:FF:IIN6 UN9 G  ,N:DD:EE:GG:HH6N@ UGNC H  ZNDGG:HH:IIdNJ UuNM I  NNEE:FF:HH:IINUJJNV N  "HEY ! ! YOU CAN ONLY SHOOT"N! "STARS, NOT BLACK HOLES."N" N)O* "YOU WIN WITH ";J;" SHOOTS" O/ >BO4 "YOU LOST WITH ";J;" TRYS."HO>iO? "TRY AGAIN (Y=YES, N=NO)";rO@ X$OA X$"Y" dOB X$"N" zOC "FOLLOW INSTRUCTIONS "OD ?Oz "HOPE YOU HAD FUN"OO "MENU"P INSTRUCTION SUBROUTINEP ( ):6P "* * * THERE ARE STARS"UP "- - - AND BLACK HOLES"tP "* * * IN THE UNIVERSE"zPP "1 2 3 YOU SHOOT A STAR *"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 YOU SHOOT A STAR, EVERY-"UQ "THING IN ITS GALAXY CHANGES."{Q "ALL STARS BECOME BLACK HOLES,"Q "ALL BLACK HOLES BECOMI MODIFIED FOR MBASIC 2/11/79 AEHI ---------------------------------------------------J s t o r yIJ ---------------------------------------------------`J( june 16, 1977mJ2 ( )J< );"S t o r y"JF ::JP JU @JZ A$( ),B$(),C$( )Jd "First, we will need to know your name ";Kn NAM$Kx "thanks, ";NAM$VK (); );"O.K. -- We're going to print some stories"K  );"together. You supply the words, I supply the plot."KK  );"First I need eleven adjectives. Adjectives modify"L  );"a noun, like: Red, Dirty, Large, etc."L X  ?L );"Adjective #";X;" ";KL A$(X)SL XYL_LsL  );"Thanks"L  );"Now I need five adverbs. They modify verbs and end"L  );"in 'ly', like: Slowly, Greedily."L X  M );"Adverb #";X;" ";M" B$(X)!M, X'M6EM@  );"Thank you, ";NAM$KMJMT  );"Next I'll need 10 nouns! These are names of things, such"M^E STARS."Q "TYPE '2' TO GO ON."Q ZQ "GALAXY MAPS:"QQ "1 * - * 2 * - * 3"R "* * - - - - - * *"9R "- - - - - - - - -"?R]R "* - - - * - - - *"{R "4 - - * 5 * - - 6"R "* - - - * - - - *"RR "- - - - - - - - -"R "* * - - - - - * *"R "7 * - * 8 * - * 9"RS "TYPE '3' TO GO ON";"S Z@S "PATTERNS TO LOOK FOR:"FSdS "START WIN LOSE"jSS "- - - * * * - - -"S "- * - * - * - - -"S "- - - * * * - - -"SS "TYPE '0' TO END GAME"ST "TYPE '4' TO GO ON";T ZTT - -"S "- - - * * * - - -"SS "TYPE '0' TO END GAME"ST "TYPE '4' TO GO ON";T ZTR *"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 YOU SHOOT A STAR, EVERY-"UQ "THING IN ITS GALAXY CHANGES."{Q "ALL STARS BECOME BLACK HOLES,"Q "ALL BLACK HOLES BECOM  );"as: Insect, Box, Tree, Banana"Mh X  Mr );"Noun #";X;" ";M| C$(X)M XNCN  );"You're doing great, ";NAM$;", there's not much more."INxN  );"How about two first names of men."N );"The first man's name ";N D$N );"And now the second's ";N E$NO  );"The first name of a woman "; O F$O 8O  );"And someone's last name ";AO G$GOnO&  );"A geographical location ";wO0 H$}O:OD  );"A kind of liquid ";ON I$OXOb  );"And finally, an exclamatory word or two ";Ol J$OvP  );"Well done, ";NAM$;", now. . ."#P*P ZP  );"Would you like a newspaper ad (1),"P  );" a western (2),"P  );" a story about the army (3),"P  );" or a waterbed (4).""Q  );"Type the number of the one you would like ";*Q NOQ : "PRINT OR DISPLAY (P/D) ";[Q JUNK$sQ JUNK$ "D" Q JUNK$ "P" QN NI SHOOTING STARS BY TBXI "INSTRUCTIONS (Y=YES, N=NO)";I Z$I Z$"Y" J( START LOOPJdAJeB#JfC,JgD4JhE=JiFFJjGOJkHXJlI`JmJfJJ (J)J ""J A "* ";J A "- ";J B "* ";J B "- ";J C "* ";JJ C "- ";JK D "* ";%K D "- ";9K E "* ";NK E "- ";aK F "* "uK F "- "K G "* ";K G "- ";K H "* ";K H "- ";K I "* ";K I "- ";L E &L ABCDFGHI )EL ABCDFGHI 4TL "SHOOT";\L YL Y ,,,,%,/,9,C,ML "YOU GAVE UP ON ";J;" TRYS !!!!"L >L A  LAALBBLDDLEEL U M B  MAAM BB&M CC0M UAM C  JMBBSMCC\MEEeMFFoM UM D  MAA:DD:GGM"Q N H,$,F,r, , , ,Q );"Want another story ";NAM$;" ";Q QQ$R (QQ$,)"N"   : DR ::: );"goodbye "; NAM$: "MENU"nR );"Want to use the same words ";xR  QQ$R* (QQ$,)"Y" >R4 R> RHRR R\ RfRpRz );"DAILY GRUNT CLASSIFIEDS",S "FOR SALE: 1957 Sedan. This ";A$();" car is in a ";A$()tS "condition. It was formerly owned by a ";A$();" school teacher"S "who always drove it ";B$();". There is a ";A$();" ";C$();" in"T "the back seat. It has a chrome ";C$();" on the hood, a ";A$()JT "paint job, ";A$();" tires and the back opens into a ";A$()T C$();". Will consider taking a slightly used ";C$();" in trade."TTT "LOST: In the vicinity of ";H$;", a ";A$();" french poodle with"/U A$();" hair and a ";A$( );" tail. It answers to the name of"vU F$;". When last seen it was carrying a ";C$();" in its mouth."U "A ";A$( );" reward is off]] "Dear Sirs,"]] " Last week I purchased a ";A$();" contour water bed in your"F^ "store. I got it especially for my ";A$();" husband who sleeps"^ "very ";B$();" and says that ";A$();" water beds that have"^ C$();"s in them make his ";C$();" ache. When the bed arrived "_ "my husband tested it ";B$();" and said the ";A$();" ";C$()\_ "was bent and kept pressing into his ";C$();". He says this"_ "could lead to a ";A$( );" condition of the ";C$();"."__ " I would like to exchange this ";A$();" bed for one that"*` "will allow my husband to sleep ";B$();" and won't make his"@`& C$( );" sore."G`0 M`:k`D );"Yours ";B$();","`N );F$;" ";G$`X`b`l` NEWSPAPER AD STORY` ( ) ` ` ` );"DAILY GRUNT CLASSIFIEDS"+a "FOR SALE: 1957 SEDAN. THIS ";A$();" CAR IS IN A ";A$()sa "CONDITION. IT WAS FORMERLY OWNED BY A ";A$();" SCHOOL TEACHER"a "WHO ALWAYS DROVE IT ";B$();"U WILL BE A CREDIT TO THE "i8 "SLOGAN:"iB iL " THE ARMY BUILDS BETTER ";C$();"S!"jVKj` "AT ROLL CALL, WHEN THE ";A$();" SERGEANT CALLS YOUR NAME, SHOUT"ljj "'";J$;"' LOUD AND CLEAR."rjtj~ "YOU WILL BECOME FAMILIAR WITH WEAPONS LIKE THE .30 CALIBRE ";C$()j "AND THE AUTOMATIC ";C$();"."jk "FOLLOW THIS ADVICE AND YOU MAY WIN THE. . ."!kXk "******** ";A$();" CONDUCT ";C$( );" ********"^kdkjkk WATER BED STORYk ( )k "BUST-A-BUTTON AND DUCK DEPT. STORE"k "DIX HILLS, NEW YORK"kk k "DEAR SIRS,"kAl( " LAST WEEK I PURCHASED A ";A$();" CONTOUR WATER BED IN YOUR"l2 "STORE. I GOT IT ESPECIALLY FOR MY ";A$();" HUSBAND WHO SLEEPS"l< "VERY ";B$();" AND SAYS THAT ";A$();" WATER BEDS THAT HAVE"mF C$();"S IN THEM MAKE HIS ";C$();" ACHE. WHEN THE BED ARRIVED "ZmP "MY HUSBAND TESTED IT ";B$();" AND SAID THE ";A$();" ";C$()mZ "WAS BENT AND KEPT PRESSING INTO HIS ";C$();". HE SAYered."UUUUU$U.U8UBULUV  );"AN ADULT WESTERN"U`@Vj "Tex ";G$;", the Marshall of ";D$;" City rode into town. He sat"Vt B$();" in the saddle, ready for trouble. He knew that his ";A$()V~ "enemy, ";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$();" Nugget"2W "Saloon. "8W]W "'DRAW TEX', he yelled ";B$()cWW "Tex reached for his ";C$();", but before he could get it out of"W "his ";C$();" the Kid fired, hitting Tex in the ";C$();" and" X "the ";C$();"."X WX "As Tex fell he pulled out his own ";C$();" and shot the Kid ";lX (2())X "times in the ";C$();". The Kid dropped 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$( );".""Y(Y(.Y24Y<:YF@YPFYZLYdRYnYx "If you plan on joining the army, here are some ";A$( );" hint. THERE IS A ";A$();" ";C$();" IN"b "THE BACK SEAT. IT HAS A CHROME ";C$();" ON THE HOOD, A ";A$()Ib "PAINT JOB, ";A$();" TIRES AND THE BACK OPENS INTO A ";A$()b C$();". WILL CONSIDER TAKING A SLIGHTLY USED ";C$();" IN TRADE."b& b0 b: "LOST: IN THE VICINITY OF ";H$;", A ";A$();" FRENCH POODLE WITH".cD A$();" HAIR AND A ";A$( );" TAIL. IT ANSWERS TO THE NAME OF"ucN F$;". WHEN LAST SEEN IT WAS CARRYING A ";C$();" IN ITS MOUTH."cX "A ";A$( );" REWARD IS OFFERED."cb cl cv c c ADULT WESTERN STORYc ( )c c c d  );"AN ADULT WESTERN"d Zd "TEX ";G$;", THE MARSHALL OF ";D$;" CITY RODE INTO TOWN. HE SAT"d B$();" IN THE SADDLE, READY FOR TROUBLE. HE KNEW THAT HIS ";A$()d "ENEMY, ";E$;" THE KID WAS IN TOWN. THE KID WAS IN LOVE WITH TEX'S":e "HORSE, ";F$;". SUDDENLY, THE KID CAME OUT OF THE ";A$();" NUGGET"Le "SALOON. "Re we "'DRAW TEX', HE YELLED ";B$()}e e "TEX REACHED FOR HISS THIS"md "COULD LEAD TO A ";A$( );" CONDITION OF THE ";C$();"."mn)nx " I WOULD LIKE TO EXCHANGE THIS ";A$();" BED FOR ONE THAT"mn "WILL ALLOW MY HUSBAND TO SLEEP ";B$();" AND WON'T MAKE HIS"n C$( );" SORE."n nn );"YOURS ";B$();","n );F$;" ";G$nnnnN'T MAKE HIS"n C$( );" SORE."n nn ."!kXk "******** ";A$();" CONDUCT ";C$( );" ********"^kdkjkk WATER BED STORYk ( )k "BUST-A-BUTTON AND DUCK DEPT. STORE"k "DIX HILLS, NEW YORK"kk k "DEAR SIRS,"kAl( " LAST WEEK I PURCHASED A ";A$();" CONTOUR WATER BED IN YOUR"l2 "STORE. I GOT IT ESPECIALLY FOR MY ";A$();" HUSBAND WHO SLEEPS"l< "VERY ";B$();" AND SAYS THAT ";A$();" WATER BEDS THAT HAVE"mF C$();"S IN THEM MAKE HIS ";C$();" ACHE. WHEN THE BED ARRIVED "ZmP "MY HUSBAND TESTED IT ";B$();" AND SAID THE ";A$();" ";C$()mZ "WAS BENT AND KEPT PRESSING INTO HIS ";C$();". HE SAYs"Y "that will help you become a ";A$( );" soldier."YZ "The army is made up of Officers, Non-coms, and ";C$();"s."cZ "You can recognize an Officer by the ";C$();"s on his shoulders"Z "and the funny-looking ";C$();"s on his cap. When you address"Z "an Officer, always say ";C$();" and say it ";B$();". If you get"<[ "a ";A$();" haircut, keep your ";C$();"s shined, and see that"[ "your ";C$();" is clean at all times, you will be a credit to the "[ "slogan:"[ [ " The Army Builds Better ";C$();"s!"[\ "At roll call, when the ";A$();" sergeant calls your name, shout"@\ "'";J$;"' loud and clear."F\\ "You will become familiar with weapons like the .30 calibre ";C$()\" "and the automatic ";C$();"."\,\6 "Follow this advice and you may win the. . ."\@,]J "******** ";A$();" Conduct ";C$( );" ********"2]T8]^>]hD]rJ]|u] "Bust-a-Button and Duck Dept. Store"] "Dix Hills, New York"] ";C$();", BUT BEFORE HE COULD GET IT OUT OF" f* "HIS ";C$();" THE KID FIRED, HITTING TEX IN THE ";C$();" AND"#f4 "THE ";C$();"."*f> qfH "AS TEX FELL HE PULLED OUT HIS OWN ";C$();" AND SHOT THE KID ";fR (2())f\ "TIMES IN THE ";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"6gz "SIDE OF THE ";C$( );".""I GET"; N@ I MNB T(I);$ND ZZT(I),NF I2NHGNJ"MY TOTAL IS";ZMNLSNTpNU *** PRINT THE NEW LISTvNV|NXNZ"NEW LIST:";N\ MN^ I NN` L(I) fNb I;Nd MNf INhNO *** CHECK IF ANY NUMBERS STILL HAVE FACTORSO9O CHECK IF THE LIST IS EMPTYIO M \O IN  lO J IO L(J) O I J(IJ) O MOO JO IO THE TAXMAN GETS THE REST OF THE NUMBERSOO"I GET"; P I NP L(I) &P I;2P ZZI:P IlP"BECAUSE NO FACTORS OF ANY NUMBER ARE LEFT."P"MY TOTAL IS";ZP MPPP *** FIND THE WINNERPPP ZY P"YOU";Y;" TAXMAN";Z;" YOU WIN!!!"Q4Q"TAXMAN";Z;" YOU";Y;" THE TAXMAN WINS.":QAQ RQ *** AGAIN?XQ_Q eQQ"AGAIN ( Y OR N )";Q R$Q R$"N" I S()I ( )I );"TIC-TAC-TOE"I::I "THE BOARD IS NUMBERED:"J " 1 2 3"J " 4 5 6"%J " 7 8 9"/J::PJ2"DO YOU WANT 'X' OR 'O'";C$`J7C$"X"rJ<P$"O":Q$"X"JdG:H:S()gJfS():JgS()jJhS()nJiS():JjS() S()KkS() S()KlS() S()4KmS() S()AKnGpJKov`KpJ((M)){Kq((M))MKKr((M))MKKs((M))MKKtx KvJ:KKxS(J)GKzS(J)GL~S(J)LS(J):)LS(J)HMS(K) QMS(K)GdMS(K):mMMS()GS()MS()GS() Q zQQ *** INITIALATIONQQ R""HOW MANY NUMBERS DO YOU WANT IN THE LIST";R$ NR& N(N))R( N  :R* N2 2KR+ N2 2R,"AT THIS TIME, REGULATIONS ALLOW A MAXIMUM OF 50 NUMBERS."R.  R2 YR4 ZR6R8"THE LIST IS:";R: I NR< I;R> L(I)R@ ISB N LSDDSF"HOW VERY GENEROUS OF YOU TO FORFEIT ALL TO THE TAXMAN."vSH"TAXMAN 1 YOU 0 THE TAXMAN WINS."SJ SLSS *** INSTRUCTIONSSSS"YOU TRY TO BEAT THE TAXMAN."ST"WE START WITH A LIST OF WHOLE NUMBERS IN NUMERICAL"6T"ORDER (YOU DECIDE HOW MANY)." QHARK TEST FING CONDITION. BETTER LUCK NEXT TIME....."Q"SPEAKING OF NEXT TIME, WOULD YOU LIKE TO PLAY""R"AGAIN? PLEASE ANSWER YES OR NO..."/R& N :R0 A$ XR: A$"YES" A$"NO" XRD "(I MUST BE PATIENT)....THAT ANSWER WAS INVALID, TRY AGAIN;RE "YES OR NO ?" RN 0 RX A$"YES"  Sb "THANKS FOR PLAYING - SEE YOU AGAIN SOMETIME." Sl "MENU" S  OR NO ?" RN 0 RX A$"YES"  Sb "THANKS FOR PLAYING - SEE YOU AGAIN SOMETIME." Sl "MENU"OTHPICKS...."O"HOW MANY DO YOU WANT?"O  O"BECAUSE I MUST!! YOU HAVE WON"/P"AND I AM SUFFERING THE AGONY OF DEFEAT. BEFORE I GET"cP"TOO DEPRESSED, WOULD YOU LIKE TO PLAY AGAIN?"tP"(YES,N)?";P A$ P A$"YES" A$"NO" P"COME ON! DON'T KICK ME WHEN I'M DOWN. WHAT IS IT"P "YES OR NO ?" P  Q A$"YES" bQ N UQ"OK, BUT THIS TIME WE'LL START WITH MORE TOOTHPICKS."`Q  Q"THIS LEAVES YOU WITH THE LAST ONE."Q"THE LOSMT "SORRY, THAT'S";G;"GUESSES. MY NUMBER WAS";XM^ MhRAMrABM|BRM N "YOU GOT IT!!!!!"N)N "TRY AGAIN (Y-N)";ON I$ : I$"Y"  : "MENU"UNAMrABM|BRM N "YOU GOT IT!!!!!"N)N "Y NUMBER. ON EACH GUESS,"Jd "YOU ARE TO ENTER 2 NUMBERS TRYING TO TRAP"Kn "MY NUMBER BETWEEN THE TWO NUMBERS. I WILL"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 SMALLER THAN YOUR TWO NUMBERS."K "IF YOU WANT TO GUESS ONE SINGLE NUMBER, TYPE"L "YOUR GUESS FOR BOTH YOUR TRAP NUMBERS."JL "YOU GET ";G;"GUESSES TO GET MY NUMBER."^LX(N(Z))lL Q GrLL "GUESS #";QL A,BL AB L XA L A B L hL XA ,L XB @!M "MY NUMBER IS LARGER THAN YOUR TRAP NUMBERS."+M" J`M, "MY NUMBER IS SMALLER THAN YOUR TRAP NUMBERS."jM6 JM@ "YOU HAVE TRAPPED MY NUMBER."MJ Q!OR WIN ......QR zQ\ Z  Qf PRINT GAME BOARDQpQz K  R BX A(K,)R DX A(K,)#R F A(K,)-R ?R K  [R );"***************"cR KsR K K yRR Z   R R T2 R J  R I  R A(I,J)  $R T2 T2 R$ IS. I I  S8 JSB J J 0SL T2  j:SV DS` pWSj T2  pgSt J  }S~ B(J)  S JS J J S VS  S pS PRINT TIC-TAC-TOE BOARD ROW....S BX  S );T " * ";T DX  <,T " * ";?T F  ZJT " "TT  gT BX  xrT );T( "YOU * ";T2 T< DX  TF "YOU * ";TP TZ F  Td "YOU"Tn  TxT );U "ME * "; U U "ME * ";&U 2U "ME "_T :f_^ );"THANKS FOR PLAYING, ";NAM$n_h :_r "MENU" : _| 2,2,0,0,0,0,1,1,3,3,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, T1 A(,)1\ ` M\ A(,) A(,)  W\ ` j\ T1  Z \ -----PLAYER WINS\ :\( );"YOU ARE THE WINNER!!"\2 );"--------------------"\< \F Z \P j ]Z -----COMPUTER WINS ]d ::3]n );"I WIN THIS GAME! NICE TRY.";]x :G] Z Q] j v] END OF TEST WINNER PROGRAM....] -----ONE MORE TIME?] :(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OUT:SPACE)(INP:/OU! 6nPACE) COPYRIGHT (C) 1979, DIGITAL RESEARCH, PIP VERS 1.5$$$ SUB =.:,<> _[]INPIRDPTRUR1UR2RDROUTLPTUL1PRNLSTPTPUP1UP2PUNTTYCRTUC1CONNULEOFDISK READ ERROR$DISK WRITE ERROR$VERIFY ERROR$NOT A CHARACTER SINK$READER STOPPING $NOT A CHARACTER SOURCE$ABORTED$BAD PARAMETER$INVALID USER NUMBER$RECORD TOO LONG$INVALID DIGIT$END OF FILE, CTL-Z?$CHECKSUM ERROR$CORRECT ERROR, TYPE RETURN OR CTL-Z$INVALID FORMAT$HEX$$$$NO DIRECTORY SPACE$NO FILE$COM$START NOT FOUND$QUIT NOT FOUND$CANNOT CLOSE DESTINATION FILE$DESTINATION IS R/O, DELETE (Y/N)?$**NOT DELETED**$$$$$$$NOT FOUND$COPYING -$REQUIRES CP/M 2.0 OR NEWER FOR OPERATION.$UNRECOGNIZED DESTINATION$CANNOT WRITE$INVALID PIP FORMAT$CANNOT READ$INVALID SEPARATOR$1} :}2VL> @M9 HINE....U M(U())U N (HUU())U M  U M  V N  V" N  )V, C() M8V6 D() NGV@ C() NVVJ D() MfVT I  {V^ B(I)  :Vh IVr I I V| I  V B(I)  :V IV I I V RCX   V K   W I C(K)W J D(K)-W A(I,J)  >W A(I,J) HW 0PW K`W K K nW-----TIExW::W );"TIE GAME!"WW& Z W0W: I  WD J  WN A(I,J)  vWX JWb J J Xl 0Xv A(I,J) X 0/X I  ?X J  XX A(J,I)  `X JpX J J zX 0X A(J,I) X 0X I   X J  X A(J,J)  4X JX J J X  A(,)  HY A(,)  \'Y  A(,) 1Y* 0BY4 A(J,J) LY> 0]YH A(,) gYR 0xY\ A(,) Yf 0Yp PROGRAM TO TEST!9"15&:oT))):_>2Ì DIRECTORY DRIVE - $` :®ãA $ öB $ ̀222!s# !"!":_!" :7?O*.!":M?%O*."#*.'".**>E#y# ~ʬ!"*^#V|ʬ*#| #r qʓ*"W#âx~# ×͗͗:<2**!s#r*"*"* "|}0:<2&:$=|2=#|22!""*^#V:=2Q $J :o&*^#V:=2Ä $} :o&*^#V:=2 *"/p $ p~G###~!o#}o |} $ +# $ *"_ B |9{0__9gK$e ^# p::_2<2:7ʰ?ڰO*.!":M?O*."*."*.'" $ !o92q21:q2r<! 6+6+6!W6#6!6#6:VG*o .!6:}^*M^!6!6!U6+6 :Z$:Z:E=2 :Zʤ]:ҷ\ʹPʹͮ:Z!]h :ZN͌! ͥͮ:Z$:Y $Nͮ!6 :Z!Cwͯ !6:Z^hd!Y6{:Y/>!Y/H{ͯ :Y<2TŠ :Z:Y=HҮͯ !X6:XҾ:q2r !6:Z:/HNͿ!Y6:Z> !Y/>HHͯ :!w:Y<2U:Y0}:Y@E}:Y!S!6:T z!6:m!6:z!6h :Z:Y,:Y HHҰͯ :Y 2Xó:TE:T2:V2}v!q!*8!*6: >W>W!\q:\_  !^p+q.*]   !`q*`&!bp+q*a2_!dp+q*c2_!fp+q*e2_2_!hp+q*g!jp+q*i!lp+q*k!np+q*m2_!pp+q*o FOR GAME WINNER ....Yz T1 Y J  Y B(J) Y JY J J Z J  Z I  .Z A(J,) A(J,I) 6Z IFZ I I XZ T1 A(J,I)`Z JpZ J J Z J  Z I  Z A(,J) A(I,J) 8 Z IZ$ I I Z. T1 A(I,J)Z8 JZB J J  [L A(,) A(,)  '[V A(,) A(,)  ;[` T1   K[j J  [[t I  v[~ B(J) B(J) A(J,I)[ B(J) B(J)A(I,J)[ I[ I I [ J[ J J [ B() A(,) A(,) A(,)[ \ A(,) A(,)  \ V '\ T1 A(,)1\ ` M\ A(,) A(,)  W\ ` j\ T1  Z \ -----PLAYER WINS\ :\( );"YOU ARE THE WINNER!!"\2 );"--------------------"\< \F Z \P j ]Z -----COMPUTER WINS ]d ::3]n );"I WIN THIS GAME! NICE TRY.";]x :G] Z Q] j v] END OF TEST WINNER PROGRAM....] -----ONE MORE TIME?] :  FILES $ *}/ >ڪ Þ !"p+q/ *!DM9: :2#:!# !}:# *#&~ N!#4 !}6:͔:_ :ͳ.!(s+p+q+p+q:(=2(N *$*& w*$#"$*&#"&' !"N*M^7 !)6:!)ھ *N*DM͆ 2*ʭ :*ʗ ͯ *N"P*6:2)÷ *N"N!)4d !"N/ !R0}=2- !"R*M^_ !+6:-!+1 *Rx ".*.DM͆  ͯ *R"R!+4 : !"R͆ !+6:-!+ ? 20*#"!,6:,ր!0Ң *,& :,Rx 20!,4m *R"R:0ڹ ͯ !+4I 20!"R!1q:1 !4>! :! :22*TM! ^#VRJ *Rx :1w*R#"R = = = = = ͯ  *1M !6q  !6q  !6q  *1& !6à  !6 à  !60à  *1& !6  !6  !6  *1& . 1 4 7 : = F P [ f q  ÷:YS:YQHI:<2P2Y:Y H@"2YÍ2Y02PO> c!P6Í2Y02JO> ڍ*P&*J& !Psc*O& :Pw:O·>!Pұͯ :P2r2Y:Y_!Y6=!T6>'!TE!T4!Zp+q*Y !^r+s+p+q*]~$7*]>*[>H&>*[#"[*]#"]> 2Y:SNPJ/:Y!`6!M6>2f:ʚ!M6:f”H9>!M6.f!f6ͼ2e>2eʻ.ê:`>>"hͼ2g:e!`!e5ͼ2dͭ!f\.:`>>!bp+q:`-!`6*aDM9:_=!_6:`{ 2cX!_6E*M& :cw:M<2MOw*:c>>2j0O> ړ:j0:jAO>ҥ::jA ~~Hͭ!fwͼO`i*ͼ\2kO>3:k! !l6:M!l:l=O! NE!l4 E E:k0.*M& 6$9k9.Yͯ *M^2U :2:2ͳ:_³ͯ !6!"R!"P7 *M^n/ :/:H!_6:_ͯ !6 !2 y1![!2 /!_: &!> G>2 {2!~#_G/!u D0:?+ol! 6 6*d 0:b O ! HŠ!>&{:c ڛ!!ʛ!#~ 4(~#!:c ڡ! ¾!.!D!E¡!á!{!*` u ͽ͎#!T]ͦC!; F!l* ͦC"`i" 5"d\~Q͛5"d\ͬC,(: : $ PXʇ",i"BKʇ"ͬC,ʇ"ͬC,¿ z`iͦCó" !ͦC^{#V"~#+£""^{#V"#s#r "y 2 *+#~##^#V"O: yj#,#""z5#U#" > ~#!T#*` +p+q+w: "ͬCBͬCAͬCSͬCE: * * ͦC ~0ڿ ҿ 2 <2 ~###ÁA#͛5"$!$FJC#~#"87Random number seed (0-65529)2$*" ͵W$#~#Y #^#V" y~p$<$=$=$<$=$B$** "9+B$ʥ$ͬC,+z$": 2 2 !5-($-('x: ($/<((L(g͑%! %q%R%#4 :22!3q:3 " *3M n :4 *3M n :24!:4Q !:424: !4:w>!4n !45 Y :3 { !6!5q:5!wҙ  â :50O !6q:6O| :6O| !76:2: '2 :'2:'2*Mͣ *Mͣ * Mͣ ::   *R}2: "8 *8x *: *:&"R!;q:Y:; Y:Wҩ:; ʩ:2<ʘ:<€!<6<:<2!<ژ!6 >!Ҥ; !W6::;:TH:; !6*;M :; !W6!=q:=a/>z!=/H:=_2=:=!>q:>A/>Z!>/H8:> 2>:>:U=O>m:!} Hmd>9>!A6:2?*UM!E ^#VNJڗO *N*~2@*N#"Nm2@m͖ 2@m!6m!6m!6 m2@mͯ m!62m!62m!62m!A62@m'2:?2:Ғ:T2?!T6*@ME:?2T:A:Ҳ:X<2X2Aý:@ 2A:A} >ͯ ::@2@:*@M:  2*"N>!"ͯ >!1ͯ !mq:mF:2K!6*R}b!4EK *M^́:_ƒͯ U:_::9OY#9.3ͳ.:2 ͳ 6!0>+!s!x"@O-!"8**"xO4x " 4"":U!2n~: !ҏà:ڠ*YMEÏ:nҭ<<:2dͿ!o6#6>!p*p& ~:p !o6!p4:o7B1O B%*P"R+*"R <:h*oM2PO!q6!s67 *M^͆ \͔!r6:_!q:rHҗ!r4ͧu/ :_´:s°9ͯ .:r<2q:__!  !6:/! :s<2sC9ͮZ.!t6> !tM*t& ~2u F:t ?.*uM!t4>!Ea:E=2g:2:r]>!E҅:E=2Ë:2!q:rʗ!:¤]:Y ʳ]!wp+qNͥ*vDM! ͌ :Z:Y=H]:2_0.ͧ%R%G~_#~W#~O}%hcGy=%JTeox%2 )zWyO5%x\ER%! w0%0%x! d%F#~怩O( 40~_#~W#~O! ~/woG}_}W}Oڠ%CZQÓ% o-yOzW{_xGã%$cCu͍M r5ͻ'%1r!&*(>2 (!%7((!%7͇&('$ͻ'.#'y2Z&"U&PX!o'!C&! ~#w&Wy[&O|g}oxGo&x GzM&CZQO(!8-(ͻ' 0.#'4+~2&+~2&+~2&AOW_2&}o|gxG>?&2&7y<=&:&x&> S%{_zWyO)xG:&2&y«&! 5«&0%>.! N#F: ox2 Eoxʠ'րG: ր_}{@''C'(p(! ?(  xʻ'!'ͻ'y! y͖(#x+y+z+{z|''}'! ?( ʻ'!'ͻ'O! y#“(+(Ϳ('* )j(*@M:@>!(:=2%> >>!F!5+N!~ ~2B!4<2BT>>!}*Mͭz:2!6:<2é>!ҥ*MͭҞ!6!6> :Bé:B(!Cq:!CwO!~ ~2D*C&~ :Bw>!B:D!4!6>:<2!}> *&~ N2Y !Gp+q!6!Z6+6 ![6:[ S:[ M!Y6g8:2*YM8p!Z6!E6!H6>!Hڕ*H& 6!H4z!6!6#6#6![6*YM8:[ھ:Y*͇g2Yê:Y:¿:E:[,͡A<2EO>*YM8):Y[ͱ!5!Z6ñ:[5!R6#6>!Sڰ!Q6:Q<2QO>/:Q!RO!T *QM͡H~K:Q¡!Z6[–ͱ!5:S2Y:R2R!S4=:Y[¼ͱ4:[![6:Y.2YO8:[ :Y* ͇g:Y[ ͱ!5!Z6:E%:<2E*F6 *F 6å!Kq!L6> !Ld*L&I :K]>!L4A>:[<2[O*F :Yw:Y?†!6!Mq!Y6?!M:[ҠgÐ!Nq*N&*F~!6:q2r2Y:Y :Y]Hں:YA2OO>:Y 2Yͯ og_{ozg^#V))) _{ozg^#V) *^#V|g}o 4O{ozgi`N#Fog H Z=Y.~4^!.~w!.ͼ!.ͼ!.ͼ!/~w!$/ͼ!D/~w!T/~wN#Fp+q!.~^!.!. !. !. !/!$/ !D/!T/!0>+!s!x"@O-!"8**"xO4x " 4"":U!2n~: !ҏà:ڠ*YMEÏ:nҭ<<:2dͿ!o6#6>!p*p& ~:p !o6!p4:o7B1O B%*P"R+*"R <:h*oM2PO!q6!s67 *M^͆ \͔!r6:_!q:rHҗ!r4ͧu/ :_´:s°9ͯ .:r<2q:__!  !6:/! :s<2sC9ͮZ.!t6> !tM*t& ~2u F:t ?.*uM!t4>!Ea:E=2g:2:r]>!E҅:E=2Ë:2!q:rʗ!:¤]:Y ʳ]!wp+qNͥ*vDM! ͌ :Z:Y=H]:2_#!5d(͝+t))ͻ$: 2 : ͸): 3)8)>)|/g}/oR)! : [)͸)" >2] |(ajQ)) *(ͬ)xL(! FR%* ͬ)|U' )!" " >>W) GOW_*(L(g)>͑%|d%}%z< ͻ')')'* E)! ~: ~͸)6{y%! ~+* )Ö)I*O+~+5*!H*R)Ö)y*(L(+6q*! >͜,T,2 ,! ~5#t*!xʙ*>)<)ҕ* <=‡*|Ge+yë*|GzQ)͊)(+ÿ/|R)Y+DM!>)+)* +=*|*xa++͊)(͊)!&xR)͊)'| Y+e+DM!>B+ A+7>{_zW}o|g=8+*|G`+|R)OoygR)* e+|ͬ)'+g{oU)a+! ~w! ~G+N a(+/<#Fwx+ ¹+F+N9L(! G>w2 ! ͜,: 2 x+q,B,40,B,>s,! ܉,G: 1,! Vwz# ,x ,0%! ,),xB,! w0%: T,! ~++w! 4#Y,40+6& ! y,>!  2,# ,~/w! Oyw#“,qڳ,NsY+¨,Þ, W~w+½,ö,! ú,~w# ,ͻ''#.q#-Gq,,x v,p#=4! (&5ͻ$>͸)(6?Ͷ4*(/{_#zW#yO++:5q%#(p#,5>h5 6>Ͷ4N#F#* /}o|g{5" p#=h5Ͷ4w1_cƤ~@zZrN vH Tʚ;@B''d G5" կ66))))G6y=G6S60:P6 `62606!'(!5(w6j)!$>2 ͻ'x76301%y*(*|(62 |(66u7Ç&u72 *(6*|(|" " c6'%!&8;!&: <7hN7(*Ɓ?7$!X77J!&(: K70%/(|Yt&wz^Pc|u~r1͸)! s#r!%(* |g}o" ҝ7!&! ~#7(T](!&((Æ7( +*(!&(~#(=!&-($7RO!%(8ì)ͻ'!s8i8!8(!s8Ȇw#O -(!&:r8<2r8!8O ;$*({YOO6+F6!q84~֫`8w %!86(w+w+wD85Jʙ9v" GSљ e͘w>ROhFhiuh!E9;$: w͠)=9! ?(,!  ?(ͻ'8: 2 *8: 2 '͝+t)|(9U:ʁA!A >:=2\A 5A> @:&A RA[A:<:RA!rA[A<2Oɯ2:> \A> \A2:G A:[ ʲA=2[ >A µA> @:[ ¥A A:G:[ AIBA<2[ O*|B Wu&R: O:!C!; F:D/2D:[ IB6!W > @> @*|_B:kB2ɯ2[ :=@rBBBDCBͦC~ +ÞB*l  >>ƕo>Bg9*++"  B"GBB* ͦC:G!^#V#BͅS*TD2 2 2 w#w#" *+" 2 2 ! 6#.C7!89(!q8w#w#w2 og" " *l : `C" ͿC* " " ͅS*++" ##!p "n ʹ$iA͌go" 2 "D " " 2 * |}~¼C##~:ÿ *C`iҕ+" (D22>^@@@IB* | * "<2>2 9! ?(* ͬC,9 * ͦC?( ?(>2 92 `i D * ͦC¸D `i" ~,×D~A[?C,D+CͬC,C*l , ,,: -! ,,: <02 ,! ͤ,-L} : AP-,-! ?(,: `-2 !'͜- ! ?(͜-͝+ ! ?(>ͤ-Ͱ-͝+! -=}-͜-͜-͜-! 50%! >5=©->! N#F#=¶->! p+q+=-: 0 '40#.!- qA>h,?->h,: <=E,! ,!& ,x-! 5-0%y2 +, ~q+..j(+~0w͝+400%ͩ)$>2 `hR)~&-.+.+Q/./eʑ.E°.lʩ.Lʩ.qʩ.Q>.~%/#/!/d.D./ͯ/._{_./>/.'!u&[) ./. #.//j)Ė)'8.=|&<-2 *#2[ > #> #! 0x009(0! 09(* |ʧ0*ͦC!" !"!6 FFR)Z10Z106+'06-'#60: W:] 2w2$$ͻ''$': ,92 !M97: 2 "~Ie&X4#]I(ͪ8((ͤ8Å&ͻ'c6': ڔ9QY͇&!$!97!E9 J;xn{/|t1}=Z}~L~l+ͬC,92\ FDڿ O#~:909D9. :O#~: :09D9.9x&ҿ 2~L:%$!#xA_! V+z2] : =;h:~([;3[;2 : 2 ʹ:*  " * ͦCʮ:o¡:¡:*;>&;#NͦC>;3NͦC>;ͦCD;G:* ͦC:] #<#;~#;~>##<^^#V#;:\ DMu&ʍ< :;<;w#_*n " >2] ?( ͦC"n ~ #͂FdH/( @ SBF* * /O #ͦCG" # F*l " !* !p *n ͦC3GG!B " * " * * ͦCtG~###<mGG_PG* ~#fo* ʗG" ##^#V#" PG* ͦCG~###tF* søFͬC(ͬC,͛ͬC)HH͢HH> {tF_ʺH* w#c1b5! F : _ '1x*'1{'1AqG1EG1DG10'1,'1.J1+60{S1+6${+p2 ! 6 (* * 2 2E~ʯ1:ҏ10ڏ1 #~€1>DG~1" `i" #~+1-10OxG1#~´1`xE1y ҟ1>2 1|ҟ11ß1" `i" (#W4: )2327272ͣ4604(4+~0F2.4(x2>"w#6+i26-/</ k2:#p#w#6! #z2ږ3͛4zw4b5{m'=w4 1ʮ2p#6! #: ~ ʳ2*ʳ2+2-+$02#2++w2ô226%ڝ335͹(#30+6%|( 3ͻ'4H3_xw4͎44ć4Ķ4Û2_y/U3{_xq3w4͎4Â3w4yͺ4Ow4GO43* =w4Pä2͇)ѯʣ3ͻ'74y/33/</Z4l4t#|(r45͹(N4=60#x4‡4Ͷ460#=Ã4{ Ͷ4/>v,4>=2* <=" ҕ`i##N#F#b |<>!@0> @!X  ~#G=GBR=0q= q=_zWR=!P=|=O>>=1ڒ= !? >#=i>>4>>(d>=a>>@IB=~?#=!.>7B_.>~ >?ܧ>>#~==X IB/=~>\?~.>?ͧ>>>\@~B V> V>V> V>>@7>w?#4>6H=Bʗ> >ʙ> ʷ>ʷ> ʷ> i>_·>>_ʿ>?+i> ~7u&#~+w#é>y>>@i> o&DM#͛Bw?#i>x+~?>X IBz @PBz\@@_W@W~#!ʴ@#?&ʯ@ʍ@+>n?+~#.?_ʣ@\L?e?$?*e?x#ڸ?~$> ?#W@~#.?#?,?z@W?~#>.e?# @~##?@T]^###xG#z+<@x<@~-7@<@>Wʘ@͛Cxz0F+7t@2 ;q@,¿ ~#N#fi_xk?Ó@@@.?IBgHÌ@~#@Å@ø@>@ʘ@͛ͱ)* A IF* <[@=G> [@@@z>+@*|$HúH|IO>~IxF#F#fh DMwFoWHhHøF|I I~́I͕JI=O~GC͖HQ_#~#foFr~P.pͬC)C͗>ʨIͬC,͛ͱ)ͬC,* ͛ͬC)aHu&QgHG=O>x~#F#fh GN#^#VJ J#Iѯx<#JIͬC(9ͱ)#^#V* ͦC?J`F?(ͬC,~͕J͐aHG!u&y~dH"G* * >>?@> @JA.K6Jp2 A#KIB!0=:>\2 KJ@>+K~@J+@J@IB!X 2OJ:DK>\@2yʰKD7 K ʰK hKJðKDJ@ˆKJ@> @>K’K>#K«K6IB!X X J JxK!X "Pyq#@ J2[ > @AK J.K: DBw!W >2 ;2 " +$uL33%L " ** UL¿ uL L" *" ##^#V#~#fo"͛'iLA3Ï* "Ï!9~#‰L yLN#F`iͦC yL >2 9d(("  ͩB!9 +" MͬC(9s#r#~,L LͬC)" >!=TPʖ !$ ~0U#~$U`iV UN>O #~'PY!$ 6Vʓ ^UѯÐ <ʱ !" ^#Vr+sPʟU PY•U!U`i>U!$ ~9UV&¢UPʜ ! ~+nSPʜ ! ~Q*~Dp[DM$~6U4~O#V pUzw w+s#r#6#6DM! {zVSVw*T]" N#F+q#p###6 VV=V>w+w!%͖V7?*$ 6#67͛aH~ʨ #^#fk_KWN#~:OW++@ʨ y@ڨ Ҩ  #W~.yW͇W7eW#fW2z ʨ ڨ > ÇWʀW>  WÀW(W<ʙ ! w# WͬCAͬCS(W:!<´ ͛aH~ʖ #N#F O,XI,XR– ͬC,#ͬC,{ʜ _P¥ z(WY" xX{xX!~ xX6B#6A#6S"# w# ƒXqqV~²X<ʱ X2 9LNyO;>2 N~(NhN~(9z8NyO:] Wh:zBK![N @N 2 ~(N ?N+M(rNͬC)MͬC,M* * ͦCNN#~w##< NͬN* " ÀN* ͦC°Ny_xW `i" * ͦCN#~w##2 : R:2CR2 * DM* " * #* * " ͦCO `i" * |*+ʏҕ `iÏõͩP+vP͛fP0͂F* #^#V FPr+s+5F+vP;[PͬC,+>,@#P>"@F>"@IP*|ʠP~ P[}o|gҠP> @+|•PIBÌ#PѻʺP– ͬC,`i"+#͛_:ڜ !N#F P!& >>>'ͅS _(W<ʙ QY!6# Y(W2!Y!Yʙ O!  ~#@y¤Y~ ʡY>.@ ŽY:[ W:ڽY> @@IB~Y~*6?# Y +Y* ͦC! s#r#wZ2{\P– ! ^#V~,+¿ {ʫ +s#r! w#w! ~#fo!ͦCcZáZBK>!)vZ)#wZ))҅Z ҄Z#=lZ}_}la)ҜZ#x"u\! "w\!& "y\!}o|gͦCZbk:{\[ͦCZ,[DM*y\*w\c["w\PY+[}o|g*u\#"u\®Z,[DM*w\*y\c["w\PYZ2*u\! ~#foͦCs#rR[:_[!_[!# V~# xd[DM[ʮ [! w!% V6 ʙ[zw[ʮ [! ~!ü[! ^#V! s#rDM͹[ͳ[ͦC" "[>7S*\âC ** ͦC!9}o|g!M9}o|g !\ [ [ ** ͦC!M9}o|g!9}o|g [\ 1\ 1\*|<: B*+6*]~$Rz !_"" * ^#V"B"##^#V"!B##^#V"A##^#V"bA!"22Z 2!"!" !p "n ! "B *"l >2!tF* m(úH>>>aH<#N#fi2] d(  ,OQZOQͧP9ͱ)W_ Wڢ bQRQ"wQG{,xwQPX WQ!X Oz"yʰQ Q °QO{,yR WQ °Q{ ʿQ,> ʿQʿQQQR W|Q"Q Q WQ Q,Q Q WQ Q*% 46!W { RB͆FW.ɷw#QDXR:2+HRͬC,ͬCR¿ 22!6"C:2*"" Wڕ wR2 {RU* *ͦCR~#UASoU:tScS=[S~,~#kSůQSѯPʜ – ! ~#fo" !"u\| G~,ͬCAͬCS9ͱ)O*u\ "u\* ͦCڮ q#s#rñS79ͱ)͐aHF~O#^#VvT*ͦCOT* ͦCOTY* * ͦCڊTyFaH#s#r#^#V#^#VydTGOԀT{T~#kT܀T> ÃT›TxtF͸F8TͬC$ͬC(~,TP– ;PͬC)}tFTBTw# T͌øFC Wڢ ]"]:]­]<2]!~"]ʭ]F#~+w##]+6"]!ʭ]/P]+6""]#/P]A]í]6Sʗ]Me]F¿ ͬC:ʄ]z{2É]"l +ʭ]ͬC/U]ͬC:" É]+*l +"l +:!\"2<s#r# *  DM=]#""" {ozgB|g}o]| ^!{ozgB"l "" " *B}o|g!x^F0!l^F!F" IB!u "|\ Owned by Microsoft Bytes freeBASIC Rev. 5.0 [CP/M Version] Copyright 1977, 78, 79 (C) by Microsoft Created: 14-Jul-79 *u\#"u\®Z,[DM*w\*y\c["w\PYZ2*u\! ~#foͦCs#rR[:_[!_[!# V~# xd[DM[ʮ [! w!% V6 ʙ[zw[ʮ [! ~!ü[! ^#V! s#rDM͹[ͳ[ͦC" "[>7S*\âC ** ͦC!9}o|g!M9}o|g !\ [ [ ** ͦC!M9}o|g!9}o|g [\ 1\ 1\*|<: B*+6*]~$Rz !_"" * ^#V"B"##^#V"!B##^#V"A##^#V"bA!"22Z 2!"!" !p "n ! "B *"l >2!%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKL