IMD 1.16: 29/05/2007 11:57:55 FOGCPM.007 --FOGCPM007ZCHESS COM@ ZCHESS DOC GUSHER COMGUSHER COMq !"#$%&'()*+,-01-07 88 GUSHER DOC-./0DEEPSPCEBAS912345678DOGSTAR BAS9:;<=>?@ABCDEFGHDOGSTAR BASIJ-CPM007 DOCFIGHTER BAS%KLMNOLOSTGOLDBASPQRSTUVWXYZ[\]^_LOSTGOLDBAS$`abcdPOKER BASBefghijklmSPACEADVBASnopqrstuvwxyz{|}SPACEADVBAS~SPACEADVBASSURVIVALBASqLINELIFEBASLUNAR BASCThis is the disk name.  disk EDIT filename.typ C - Change file bytes, patch hexadecimal EDIT filename.typ D - Dump file to screen EDIT filename.typ P - Send file to printer, expand tabs and provide page breaks EDIT - - Send formfeed to printer EDIT filename.typ B: - Copy file from current disk to B: EDIT A:filename.typ B: - Copy file from A: to B: EDIT B:filename.typ A: - Copy file from B: to A: Install for specific terminal by patching (using C command option of EDIT or use debugger) clear screen code into EDIT.COM bytes 0855h to 0857h. Set unused bytes to 0. NG of file E - move to END of file Command_Line_Functions (upper and lower case permitted) EDIT filename.typ - Edit file, create file if new EDIT B:filename.typ - Edit file on specific drive, create file ((~#~#> > _#7"6UAT@   _^x!6#!~ww[66Q6)636=6G#!N66_66^!~w*~(2#2 :#!"(>>>ɮ =2*F~2*N:2L 0:8 :(0#:̒x8.(# :[00!##!"^(   (:[00!# :!"~( =E*f~2*~2$:!YD !#:2:22:$2#:2*"6#6:"_:):O2*~ Qy*~ D:( \( ͹ 3:2! ؐ2!#6@!~q22#͂:2xà[! R83*Ss#r!"^ !#6#6#:w#:w#:#w#6#"6#6+͘2)[*##s#r#"">2*~(( 2"!!z :o: :ķ* !,:#(_z( 4~(~(# o~g~oQO:!:C ~ (D ɯ2Nʧ2*~2"2*:22NL (ʣ:($ʣ: Zox8 }£Ò}£Ò£:2:" /!,w#>2͹!,3:"(~=!4*qC:w9# :"!,3(FN* V"Bo(x0o xA(D_E xAO미( #(g+ɯ202,2-2.2/23!6>2*~!"w2 898$( :&8Àf( >~(>{^(s^ >~(>!,w!,w#͹!3:,!,w:"ͮ(5:"!!{ !-8"s*:ݾ 23!.8~s!/8w!"~z(D!0w:d_:,!1G:3(>dW{!!~ Dƀ2+*wxoDxɸx*##~2#~2#V*^j -{(+(6*s6r 1z!Pz(#wÙ!P{(#:wÙ!Nr(*x*##~2#~2#V*^j 3{(6(Ab )*szwr 8z!Pz(#:w˓ ˛!P{(#:w !Nr(ˣ@*K`iN#Fr+sC͞*K^#V( :+ݾ0p+qiÂs͘(2+ô:&>2(!"!"!]": 2!!S":'Gw#2122:,21:022!(42*V:(!'b*"*^#Vz(cS*s#r:(!'8&s͘( :(!' e:!͛(Zp*~(s!!>w !&4*~##w+":* :)>(+:&2%>:( *##~++:+!**83(1D#  w:( *":T !'55: !%5  !!>w(!&5*+"!(5*+V+^S+V+^"S!T6!2"!:  _G444444444*~( ("(#444ŠϠӡŠҠſĠՠŠϠŠοϠՠԠϠ٠ŠשҠˠ©Ġ٠٠ſҠϭϠϭϭŠΠKQRBNPՠɠŠҠҠſӠӠԿԠˠĠŠŠӠԿĠ٠Π1!}"!9(Y2!͐ >2&!60#61#6 !!!!!!:  :> h(h:> (! > >:(4 60+4 60+4 61>02 !&4,!+!9(W(2 !!>2 !!!!9(!'6170w!!9(Y> >2͸*":T ͣs͗x SY"4QY"1!1$H( !6P( !;!:!G2!͘x2!((:TC!@:Tͣ:&G:% "5 {a :W t=J_͆zo>g"ŗB(/*N^Vr($N^{   ` :((: ( ! !Zy> ~((@> >> y(y((O{!L!Z(c> xG(((!%!9(N>22P2*~(s:WY}|!~(> 9 (=-(EP(jNʿW(B "Q9!NyO90(1q(:b(Ô!v!9(Nʒ͐!!9(!!!!!W,!!:  h(f(f9g9oͽ (!!! !:Ô>>!o0$~!N6#>2!N*~(#( ##:w: to make no changes and advance to the next piece. EXAMPLES: a1=WR 0 will remove the piece. a1=WR BR0 will put a black rook in place of the white rook. a1=WR will make no change and advance to the next space. a1=WR with the "W", in this case, flashing means there is no piece there, and is just a carry over from a piece that you entered before. You can write over this, or just ignore it and hit the to go to the next square. Note: The cursor will skip a space automatically when the space "a1= WR , b1= WN , c1= WB , etc " appear. A CONTROL B (^B) will bring the board up at anytime, even during the regular game. To get the game going again once you have the board set up, type a (P) character. Upper or lower case makes no difference. The play will resume at the move # that you left it, BUT, and here's where the fun begins. You may now choose to change sides, and watch the computer get you out of the mess that you got yourself into. Now you can really have fun! - Fred ("2199g9oͽ(22¤(! !! !h}0 0RͼXUcS!>RͼXYcS!>RͼXa!>ZS!aQͼX] !>ZS͖V]MH!RpQͼXI3!v>ZS!IQ6gcS!L>Q͓*5|8)6;(!.>͓[* ͓Yd*z\͓[!+͓[[ecS!zGR*)))* ){^#V͓Yz{![!*>]cS!=R6*)))* ))|WXcS!=R6oXQUH cS!=R6oXYUHcS!p=R6vVQgWQvVYoWYvVCgzVoWCcS!R=R*)))* ͓Y|C6[*)))* ))zzW͚VGbVGWN͞V͚VMHbVG!RpTV͚VUHbVUH|;W*)))* "ہ)~^#V R*ہ))|W̓W;W*)))* ))|WbV?W?!&=ZS*)))* ))|W!RpQcS!zGR!"=*)))* ͓Y:yDM!I[!,Q!f\Q!:,Q!f\Q!f\RI!("|^V%HYø()*G+"G*G|8)ұ(!"G!'"|!)"Ϳ)!"G!&"|!*"Ϳ)!"G!#"|!-"Ϳ)!"G! "|!0"Ϳ)!"G!"|!3"Ϳ)!"G!"|!5"Ϳ)!"G!"|!6"Ϳ)!"G!"|!7"Ϳ)!"G!"|!7"Ϳ)! "G!"|!7"Ϳ)cS*G"*|"OQ!CQ!Q͝)*"|͝)!)*#"*o|8))cS*G"*|"OQ!(Q!Q!+Q!f\[!f\[! f\[!f\!͓[!6,͓[!A\͓[!͓[! f\͓[y[!f\[! f\%[! f\[!f\~[!2,͓[[!zG[!zG[͖WG͖W送G͖W1H͖WYH!zG[W1Hp+^VY"*z\DM![[*|8).+.,!͓[[tXYHZ+^VYf\͓[!rG͓[[i+!͓[[^VYHWjX}G*!>,͓[([!6,͓[+[!""!zG[+!""!0l[!f\!]+!f\!]+!~]"!͕]Y"!,M͓[[*#"*|8),I1,05,=9,)=,4A,(-E,Hope you had some fun! Press any key.....&u,Total disasters cost you $###,###,###.,You left on day*,Your earnings this time were $###,###,###.(,Are you sure you want to end this game? -E N D O F G A M E - #,### foot level.5-Formation located atL-Formation not located. e-#,### Feet r-************-Are you ready to pay $1,000 for the test? N-..............+................`O=========O==='..............+................-/[] [] [] mx |.__$____________3#.You don't have $1,000 in cash to pay the engineers.Y.You must own the property. v.You have no Seismographic Truck..SEISMOGRAPHIC STUDY FOR TRACT*.Which lease do you want to do a study of? .Drilling Results.| |5.Are you ready to spend $1,000 cash per day to drill? 27/You don't have $1,000 cash to pay your roughnecks.l/You're out of Diesel./You're out of Drilling Bits./You're out of Drilling Pipe."/Your roughnecks walked out on you.%/Your drilling pipe broke in the hole.60Ecology protesters just got an injunction against you.%H0Someone just stole your drilling rig.!p0Someone just stole all your bits."0Someone just stole all your diesel!0Someone just stole all your pipe.0Your Drilling Rig is worn out."0This lease has been fully drilled.8#1County law requires a seismograph study before drilling.^1You do not own this lease.{1You own no Drilling Rig."1Which lease do you want to drill? 1n1N1Are you going? 1sheriff will end the game.+1You must immediately go to the bank or the 2$###,###.$,2balance in your checking account of ;S2The judge has just thrown you in jail for having a negative2F E D E R A L C O U R T'2When ready to continue, press any key: #2That disaster cost you $##,###,###.2bathroom to get what you want.;3in your toilet. You have to apologize and bribe him in theC\3to discuss state oil leases and he finds an Oklahoma Stinks stickerA3You are having dinner with the governor of Oklahoma at your house;3It turns out to be a very expensive picture to buy it back.;$4A roving reporter snaps a picture of you picking your nose.b4heavily.=m4and you screamed out a dirty word. To save face, you donate @4Something bit your left foot at a charitable fund raising dinner+4Attorney fees to get you off are expensive.;5You just got busted for dealing in black market oil leases.\5to South America.:p5Your accountant just embezzeled all your cash and got away15Your butler has decided to buy a new Rolls Royce. 5and parts.;5Total bill includes emergency repair crews, transporation, !,6You decide to immediately fix it.9P6Freezing weather caused one of your oil pumps to explode.6Ed Raydair to put out the fire.46Insurance regulations require you to pay $100,000 to06One of your producing leases just had a blowout.)7Your seismographic truck has been stolen.D7You lost the suit.Y7You won the suit!m7Do you want to fight the suit? ?7Your attorneys will cost $50,000 and suggest fighting the suit.+7They will settle out of court for $100,000.A7You have been sued $200,000 by a competitor for lease violations.C8B U L L E T I NU8Day ###,###o8Cash Left $###,###,###8Diesel ###,### Gals8Bits ###,### Bits8Pipe ###,### Feet8Hole Depth #,### Feet8Formation at #,### Feet 9*********9AAAAAAA!9_%9AAAAA-9AAA39Press any key for last chance7S9The court seizes your assets and declares you bankrupt.9failure to pay your debts.;9Balcones National Bank has brought you before the court for9B A N K R U P T C Y C O U R T) :B A L C O N E S T O O L C O M P A N Y6: 9;:|-------|-------|-------|-------|-------|-------|-------|?w:Daily Royalties $##,###,### | Daily Interest $##,###,###?:Total Assets $###,###,### | Total Liabilities $###,###,### :Drilling Bits ##,###,### |?;Diesel ###,###,### | Net Earnings ###,###,### `;Drilling Pipe ##,###,### | ;Unused Storage Tanks##,###,### |?;Seismographic Truck ##,###,### | Beginning Equity ##,###,### ;Unused Oil Pumps ##,###,### | !1>PRODUCTION REPORT FOR TRACT'O>Which lease do you want in production? y>Diesel - ###,### gals>Drilling Bits - ###,### bits>Drilling Pipe - ###,### feet>Oil Storage Tanks>Seismographic Truck?Oil Pumping Equipment ?Drilling Rig!'?You have the following Inventory:K?I N V E N T O R Y S T A T U S m?You don't have enough cash left.?You don't have any loans.?earning $500 per day? 4?Do you wish to invest $100,000 of your cash in CD's !?Do you want to cash in any CD's? ; @You now owe us $#,###,### with interest at $##,### per day.%^@Do you wish to take out such a loan? ?@You may obtain $100,000 in financing for $5,000 in loan points. @Are you here to pay off a loan? 4@Hello there, how are  you? It is so nice to see you.+"AB A L C O N E S N A T I O N A L B A N KPA #UAYou don't have enough cash.sA#wANone6~AEnter the item number you wish to buy (or 0 to exit): /A(7) Diesel - 36,0000 Gallons2A(6) Drilling Pipe - 28,000 Linear Feet'B(5) Drilling Bits - 20 BitsHB(4) Oil Storage Tanks0aB(3) Seismographic Truck - 9,000 Foot Range0B(2) Oil Pumping Equipment - 9,000 Foot Depth0B(1) Drilling Rig - 9,000 Foot DepthBPriceCItem C $ ###,### C $####,###-#C(8) Package (Rig, Truck, Pipe, Bits, Diesel)#SCOk, you now own the mineral rights.yCSorry, but you need more cash.CDo you wish to buy this tract? CThank you very much!CYesCyCY C$#,###,###? C*#CDo you wish to sell this tract for DOwnership : &8DEstimated Reserves Value : $##,###,###&aDDaily Royalties : $##,###,###DOil Storage Equipment : DOil Pumping Equipment : DDrilling Activity : DSeismographic Study : &EPurchase Price : $##,###,###+ELease Information for Tract$IEWhich lease do you wish to look at? pE(#) @xEB A L C O N E S / X E R O X O I L G A M E C O M M A N D SE: ECommand for DayEAssets & LiabilitiesEBring Well into Production FInventory!FBorrow, Pay Back, or Invest Money6FSeismographic Study LFDrill Well#YFLiquidate all Assets & End the Game FBuy EquipmentFExamine/Buy/Sell LeasesFList of Commands FIncompleteFYes - Dry HoleFYes - Mineral WaterFYes - Salt WaterGYes - Water FoundGYes - Oil Found!*GNo/GFormation at #,### feetIGNo formation located`GNo study conducteduG yG8}GfffLL)\|u{L{ #{uz#/| #yC$t #|;p #z*ovzzPÑ@@z9Hp HPC Z`jPC ow@z[[[[ BASLIB #000000 5.30 - OWNED BY MICROSOFT, 1980 ØHDM*"`*nK##"`>I>2/I22I*^#V"0I##^#V"3I 25I!H!!""6I!K"K6#6P>2K>2K>2K/I(I2I(II_ëYìY!9"K]K !3y;I]KaI!;IK!K;I!R"K!O"K]K|ʒI> I6#s#r#=‡I>2K>2K>2K2K!,I"K!$\"K>&2KͱHç`6#}»I|»I͍a STOJISK*K.. . ........͗_*K|I:KNJ*K|NJTJ]K  s#r]K  {Kw#6"K*K*K>2KKI!9N#F]K~#~҆J~+ʌJ~#~چJ+^#V###dJ###dJ|ʘJ~#fo!J͍a Internal Error - No Line Number ,I]K~#5K͍a at lineTJJSK>K<KKJK<K0͒nKJ}_|W!+K?o~#fo>͍a at address|ͱa}ͱaSK> ͒n> Òn~#*lK?o~#fo߁!9"K!tK*KzK"K!K*KSK!L~<L=L#~# LL#ÓaSyntax Error in DATRETURN without GOSU Type MismatcOut of DatIllegal Function CalOverfloOut of Memor Subscript Out of Rang Division By ZerOut of String SpacString Formula Too CompleRESUME without Erro2Field Overflo3Internal Erro4Bad File Numbe5File Not Foun6Bad File Mod7File Already Ope9Disk I/O Erro:File Already Exist=Disk Ful>Input Past En?Bad Record Numbe@Bad File NamCToo Many FileUnprintable ErropKI!M>M Iw>e_͈K!NxPN!BN+P*BN N͈K"K oNѯn%NRandom Number Seed (-32768 to 32767) ͈K͛x!KN!K͛x!KȆw!NO v:K<2K!NO u!Rp^#V#N#F#{YOO6+F6!K4~֫¨Nw ͤw!Knw+w+wÄN5Jʙ9v" GSљ e͘w>hFhiuh͈K!KGNN#"vP!9"qP"sPy2uP*K|O*K!O"KA~#*Q3o:K1O~OʶOCOcFOc"QlOxO b*Tp*Rp*Pp*NpÅO[c*RpÅOa*Tp*Rp*Q3oʩO~#"Q,O O:KOO~O!"K~,"O#"~OO# OO"O#"Qx"O O+~ Oye_ÅO͍a?Redo from Start *qP͗_!(PxP*vP:uPOO*sP+~+VPHPHP +w JPaP++~#fo["sP!uP5*qP~2P#~#^#Va++͍_ͱlI:PpK RRpKRRpK RRpKQRpK RSpKRSpK RSpKuRSpK RþRpKRþRpK RþRpKuRþRRp+RNp+R"Rp4RH~# ,Rx2,k:KR͵RdRͷeV_<S~]Rm#QR Sͷe~`R m#gR>2,k:KRF#~#fox͵RSͬRʣR~#m×RͬRÍ_͵R>"mG:Kx͵Rʦn*K+~ m͵R>,mW*K#^ FS@S+=@S:K=@Sͦnz{XS{_JSpKcS|S!K"K!"K2KͼUpK͒ŚKÍKIK[>2K!S"K:KʆS2U2U2U:UG:K*K_xkT:UʆSãS:US:ỤS*UDM*U}T:,kʌS|͸e~>Tm#S:,kŒS*UEN#^#V` :T -TmT$:T> m3T͍_:U´S2UX:K~#ʖU `T MTC:KͬUm_WͬUW~#!ʑU#T:K+~#ʌU~U+>nT+~#.T_mU:K+~#ITeT:K~T*eTx#T:K~> TT#W/U~#.U#T,Uz@WT~#>.eT # /U~##U-UT]^###xG#/Uz+OUxOU~-JUOU>Wx2UCx҆Szg."U`i"U2UͬU~#mxkTÄUͬUmx2U2U×U×UͬUx2Uy2U>2U2Uz>+m!K~6#w~!U͟aNÚKi&J +>V*K{<Vͦn{V=> mV|I}*KV<V>V}V|I}V|FV!*K#n&^Y͋K͛xċvVVVVVVVVVVVVVVVVVVVVVVVVVVVV W)W^#V#5W"`W*`W WV W^#XW W^#V#/WV"bW~2_W"`WpK*bW*`W:_Wn:_Wo:_WGWTWutuvuTWrrqp?o~#fonqW:Tp2Tpn:UpʏW2Up#I^#V#^#V#n^#V#nn^#V#næWnn^#Xn^#XnW&)))]K>!>!>!>!>!>^#V#^#V#Y>!>!>!>!>!>^#V#!KY>{X>{X>{X>{X>{X>^#V#^#V#!Y>åX>åX>åX>åX>åX>^#V#!Rp!Y>X>X>X>X>X>^#V#!K!Y>X>X>X>X>X>K!Rp!Y Y GZY,Y GZ@Y~#foBY##͋Kv^#V#pKkYpKkYpKzʅY|ʅY|w:w^#VSY^#V#ͣY_w2KpKpKYpKoYn|IpKYpKYYZ:KHZ!KrrtZ:KKZ!Ku:Tp2Tp:UpgZqZ:Up?ZAZ|/g}/ort:UpqZ!UppZZgZ!́KI:UpgoW*Sp|7gҍZ:RpZ+>͜Z|/g}/oڥZ!ںZG|ʶZíZo& Gȯ|g}oýZZ>Z~+~?~Z+#Z+ ZpK?_@[~##++ `>Do+V+^+3[+r+sW`pK[~v_"["[*[|I}I I+e_pK"Rp>á\pKRp>Û\pKNp>Do2,k>!\nͷe>\n~#½\xe_>\>\>\>\>\>&]!+>]>]>]>]>]>&]"]~#fo##GNR]yR]#~#fo~#fo[]#Q] A] y[]y<.e])e])͍_͍_~͍_o&~I#^#V++͍_o&pK~_*`{z*`?T_}|~# Z_yG^xDoG^x#N#F& n_?_ `W`*`*`Roʼ_͐`ʶ_ `W`###Ý__͍a during G.C. ,I_͍a ,I͍a Internal Error - String Space Corrup#N#F*`yxR`*`yxR`++`i+V+^Ro_##6+6+~6  >@++*`"`s#r+͉^*`#~_#~WҀ`́KIr+s##6"`###!`~#foʤ`Ro”`<*`"`*`}o|g6@#s#r#6"`*`*`"`}w>#w##Ro`++6+6`"a````aaa a aaaaaaa(a>2na|ca+})N#_a~#fo :naRa!9"K!K4 ~?o#I|I}I!Kwɧ~͒n#=a͓a~͒n#ÓaG~#ʯa#¡a++ͺa0:aÒnMka*Rp}/o|/g#"Rp|bva!Tp~wɯ2UpMkbrtb*RpbvMkbRt>>ÿc~I#bI#k!Xp=b>!XpNp2Db# Cb!Xpr!Xp$ccp>>fb>|}+!cqbzw+6!Tp>t2Mp!cÇu!cq!Xpq~_#~W#~Oxu!juv¿bɇ<o&bv*Rp*Tpb"Rp`i"Tp!Rp^#V#N#F#!cvͲxx{ҧx!Vp6͇wwg>yx(c:,kGw#(c#c=c!Xp$cRpMkNpMkc*Rp||2,kͷbajùc L}abl>2k`h̺c~&hk-d+d+3kd.ʞde#dEMd3kl;dL;dq;dQLd:,kfd>fd~%ʫd#ʼd!ʽddfdD}dd3k^k3kke}d_{_dddaMk!bcMk }ddd3k!b![c}dd3k}da bMkbb=MkbpbDGff"Np`i"Pp#~+f-ʵf0OxGf#~œf`xEfy ҇f>2kf|҇ffÇf"Np`i"Ppb#Wh:kgggg͑i60b͸i+~0.g.b`gMk>"w#6+Qg6-/</ Sg:#p#w#6! k#zgڄh͉izeiPj{nb=eieʖgp#6!k#:-k~ ʛg*ʛg+g3k-+_:K{0g#3kg++wgÜgg6%ڋhhjSbhͷe+6%ͷbgch6h_xei|i͸iuiĤiÃg_ydAhdCh{_x_hei|ipheiyͨiOeiGO͸i{h*-k=eiPÌgbѯʑhc7hydOzWOdhh/<gÌgկMki:Up ij!Xp$c͙b hHiMk+iCOͷb1ijSbDididHiMkZit#ͷb`ijSb ͤi/>:bi>:bp#=i!Npbjͱb>bbj?ͤib/{_#zW#yO++(j͟b#bp#j>Vjj>ͤiN#F#*Rp/}o|gij"Rpp#=Vjͤiw1_cƤ~@zZrN vH Tʚ;@B''d #~: 3k 3k 3k0?<=:,kZk7-++3kkOykHyk+ͅkڎkͺcH#ʺkÔḱKIM!ͦkڤk}0?)))صoækM!kk}k0? k? ))))صoka{ [cMk:Up:Tpëb:k2k2ḱKÍKIpK|I,Jl-:Kʇl*K! I"K{^f$%nl!gl*KYl|}!"K>6>4>?>=>:>7>5>2>3>@>C>́Ko&J͋K!"K!P"Ql:Pl͍a?lpmm:m>\2mllm+m~mm+mmmm!P2mmmOl:m/m>\m2myʙmm7 m ʙm SmlÙmmlqmlm> m>l{m>#m”m6m!Pmm mx<>ʤmyq#m m> mmʱm mm:PmwSKÒn>^m@mm~ m> mm#m I*K n#~+<n=ܦn }ǹn &n4+~# m~=„n*K!K"Km"K> m> m:K=n> I> I*n^#V#nɷ!Rpn!NpnRpnNpnw#w#w#w#ɷ o>Npo>Rp*o ~#=o!*o#~ 2o 2oɅo$ɧGw#Ho{z͇t_pʒpxOʗp!x!Tpy#p+‚px?x{q͛xRtðp{qIt^q!Xp͇tq:Upx:_p/Nt/s2Mp:Np|sxx/F+N+=›q!Xpïq!Np>q#p#=²q!Npq"oͦq͕q́q*o͇tʂx:Upʂx!^pN#FkvsqrGCsAtx qq|s!Tpt rj0 TeB׳]h!I.k {q͛xRtXr{qIt!XpqU!Upq#~++w+qsrxDNn"~`35zr1{r1h!I͇txyO2^pr͇tx:Up^qr/<^q9x:^pOzwG2Wp!^pt:Wp2Mpx!XpNpcsLss4At:Mp/s!Vp~++wx!Np4#4s4^r+6!XpNp# Lsɯ# YsYs|s/!MpOyw#tsG:Tp¥s!MpVwz# Šsx}sÂx!Mp͸ssxs!Upw҂xs~w# ºs{q͛xRts{qIt!Xpr{q͛xRts{qIt^q!Xpüry2^p!Tpo~q+ tq,tNsY+!tt W~w+6t/t!Tp3tvRt͛x!Npw#Xtxit}͞trtät͞tzw!QpF#^#V#Nbxͤt}Xp~#ŒtG++NyxNpÊt!Rp͛x>tҹtUxtͲxt!Vp6͇wg>y|Hw!>³tak͛xt͋vtx!Up~+>wxwuͼxx:Upʤx(u/OuwÊuͼx6wxȯGkv";py2=pFoMwVw!D*Rp:TpOuUp4Qxuug.*;p:=pOzuug.*Rp:Tpux<=v{_zWxG)yOHGbxwvͼxʧxxkvy+F+F+Fw`h|cvgyGv:RpO|g}oxG-|;v}6väwElaO5v!Up~Gxvƀʁxwzww+ɷQxÂxͲxx{ҧx!Vp6͇wwgvz¨v >y|tx{>2Upͤw/))uw =mw!Tp~7w?##wy7O*Rp*Tp"Tp"RpajSXwʂxJS\E!Up҂x/x x7>{_zW}o|g=x|g}oyCZQy o-yOzW{_xG!y Street, Blockhouse Bay, Auckland 7, New Zealand. Phone Auckland 887-135. MVTVIX.COM is MOVIT set up for the Osborne Vixen. Sets to 9600 baud. It has an extra command patched in. Entering BD in command mode allows you to change the Baud rate. MVT-EXT.COM is MOVIT set up for the Osborne Vixen but requires external setting of the baud rate. MVT-KP is MOVIT setup for Kaypro. Requires external setting of baud rate. MVTKP is MOVIT setup for Kaypro. Sets to 9600 baud and also has the BD command. This programme has in fact not yet been tested. MVTAPPLE.COM is MOVIT set up for APPLE II with Z80 and RS-232 cards. Requires external setting of baud rate. M7APPLE.COM is MODEM712 set up for APPLE II with Z80 and RS-232 cards. VXNPOKER.BAS is a poker game for Osborne Vixen. It gets its randomizing from the system clock, and uses the alternate font to blank the curso  GUSHER.DOC The object of the game is to profitably operate an independent oil exploration company. You buy oil leases, explore, develop and collect royalties from them. Each decision consumes 1 "day" and requires that you spend money to execute the action. At the beginning the company has cash assets of $100,000. The $100,000 is not enough to buy and explore leases. You must borrow from the Bank to do anything more than just get started. In addition to buying leases, you must buy various equipment and materials (seismograph truck, drilling rig, pipe, bits, diesel fuel, pumps and storage tanks) that will be required by your decisions along the way. As you progress, you must replace materials and equipment as items are consumed or worn out. As you bring in producing wells, you begin to collect royalties. However, many wells are dry holes or water wells and you lose most of your investment in them. The program loads and presents you with a menu of 10 commands: 1 - Look at Properties 2 - Purchase Equipment and Materials 3 - Quit the Game 4 - Drill 5 - Seismographic Evaluation 6 - Bank Actions (Borrow, Repay Loans, Buy or Cash CD's) 7 - Display Inventory of Equipment and Materials 8 - Place Successful Well into Production 9 - Display Balance Sheet 0 - Display Command Menu You can track your progress by looking at your Balance Sheet, using command "9." Determine whether you have sufficient materials to drill a well by looking at your Inventory "7" or your assets on the Balance Sheet. Look at the status of various properties with the "1," etc. Each Bank transaction (Borrow money, pay back a loan, buy a CD, sell back a CD) is for an amount of $100,000 and requires one day to complete. You keep score by watching your balance sheet. Consulting the balance sheet or checking inventory do not consume a day of play. This is an excellent way to learn how accounting information relates to some types of business decisions. Along the way, you will encounter "disasters," each of which will cost you something from your balance sheet. Among these are such problems as: "Your accountant embezzled all your cash." "Someone stole your (drill bits)(seismograph truck) etc." "One of your wells suffered a blowout." "You were caught dealing in black market oil leases, attorney's fees are expensive." "You insulted the governor of Oklahoma and have to bribe him to get off the hook." There are a couple of bugs that are annoying but they don't really hinder play. Occasionally, the balance sheet gets out of balance, in that Assets don't equal Liabilities. This usually occurs after a major disaster such as loss of all your cash. The game will continue and unless you are a perfectionist, you can live with the imbalance. The other problem is that occasionally the Bank command will not accept a "Y" in answer to the querry, "Do you want to pay off a loan?" Once this occurs in a game, you will not be able to pay off any of your loans. Thus, interest charges cannot be reduced. Again, unless you're a stickler for complete accounting accuracy, you can live with this, although your earnings will be lower because you must continue to pay daily interest of $1000 on each $100,000 loan that the program does not permit you to repay. To run, copy GUSHER.COM to a disk that has been sysgened. Place the disk in the A Drive. At the CP/M A> prompt type GUSHER and press the carriage return. Follow the menu. jSXxxch|-x{_zW}o|gx"0p".px!.p~w#=x6xIxjxUJ!Upqx!UptxF#~怩Oäx 4Uxgo"Rp"TpͲxs#r#q#pxͼxͧxx"Rp`i"Tp*Rp*TpDM^#V#N#F#xyx:Up:Tp7|/G}/O!>x x7>{_zW}o|100 PRINT CHR$(26);TAB(24);"DEEPSPACE" 110 PRINT TAB(20);"CREATIVE COMPUTING" 120 PRINT TAB(18);"MORRISTOWN, NEW JERSEY" 130 PRINT:PRINT 150 PRINT "THIS IS DEEPSPACE, A TACTICAL SIMULATION OF SHIP TO SHIP" 160 PRINT "COMBAT IN DEEP SPACE." 165 PRINT 170 PRINT "DO YOU WISH INSTRUCTIONS";:INPUT I$ 180 IF LEFT$(I$,1)="N" THEN 610 190 PRINT CHR$(26) 200 PRINT "YOU ARE ONE OF A GROUP OF CAPTAINS ASSIGNED TO PATROL A" 210 PRINT "SECTION OF YOUR STAR EMPIRE'S BORDER AGAINST HOSTILE" 220 PRINT "ALIENS. ALL YOUR ENCOUNTERS HERE WILL BE AGAINST HOSTILE" 230 PRINT "VESSELS. YOU WILL FIRST BE REQUIRED TO SELECT A VESSEL" 240 PRINT "FROM ONE OF THREE TYPES, EACH WITH ITS OWN CHARACTERISTICS:" 260 PRINT:PRINT " TYPE","SPEED","CARGO SPACE","PROTECTION" 265 PRINT " ------","-----","-----------","----------" 270 PRINT "1- SCOUT"," 10X"," 16"," 1" 280 PRINT "2- CRUISER"," 4X"," 24"," 2" 290 PRINT "3- BATTLESHIP"," 2X"," 30"," 5" 310 PRINT:PRINT "SPEED IS GIVEN RELATIVE TO THE OTH ER SHIPS." 320 PRINT "CARGO SPACE IS IN UNITS OF SPACE ABOARD SHIP WHICH CAN BE" 330 PRINT "FILLED WITH WEAPONS." 340 PRINT "PROTECTION IS THE RELATIVE STRENGTH OF THE SHIP'S ARMOR" 350 PRINT "AND FORCE FIELDS." 360 GOSUB 10000 370 PRINT:PRINT "ONCE A SHIP HAS BEEN SELECTED, YOU WILL BE INSTRUCTED TO ARM" 380 PRINT "IT WITH WEAPONRY FROM THE FOLLOWING LIST:" 390 PRINT 400 PRINT " TYPE CARGO SPACE REL. STRENGTH" 405 PRINT " ------ ----------- -------------" 410 PRINT "1- PHASER BANKS 12 4" 420 PRINT "2- ANTI-MATTER MISSILE 4 20" 430 PRINT "3- HYPERSPACE LANCE 4 16" 440 PRINT "4- PHOTON TORPEDO 2 10" 450 PRINT "5- HYPERON NEUTRALIZATION FIELD 20 6" 470 PRINT:PRINT "WEAPONS #1 & #5 CAN BE FIRED 100 TIMES EACH; ALL OTHERS CAN" 480 PRINT "BE FIRED ONCE FOR EACH ON BOARD." 485 PRINT 490 PRINT "A TYPICAL LOAD FOR A CRUISER MIGHT CONSIST OF:" 500 PRINT " 1-#1 PHASER BANK = 12" 510 PRINT " 2-#3 HYPERSPACE LANCES = 8" 520 PRINT " 2-#4 PHOTON TORPEDOES = 4" 530 PRINT " ---------" 540 PRINT " 24 UNITS OF CARGO" 545 GOSUB 10000 550 PRINT " A WORD OF CAUTION: FIRING HIGH YIELD WEAPONS AT CLOSE (<100)" 560 PRINT "RANGE CAN BE DANGEROUS TO YOUR SHIP AND MINIMAL DAMAGE CAN" 570 PRINT "OCCUR AS FAR OUT AS 200 IN SOME CIRCUMSTANCES." 590 PRINT:PRINT "RANGE IS GIVEN IN THOUSANDS OF KILOMETERS." 600 GOTO 640 610 PRINT "DO YOU WISH A MANEUVER CHART";:INPUT M$ 620 IF LEFT$(M$,1)="N" THEN 770 640 PRINT 650 PRINT " MANEUVER CHART":PRINT " --------------" 670 PRINT " 1 FIRE PHASERS" 680 PRINT " 2 FIRE ANTI-MATTER MISSILE" 690 PRINT " 3 FIRE HYPERSPACE LANCE" 700 PRINT " 4 FIRE PHOTON TORPEDO" 710 PRINT " 5 ACTIVE HYPERON NEUTRALIZATION FIELD" 720 PRINT " 6 SELF-DESTRUCT" 730 PRINT " 7 CHANGE VELOCITY" 740 PRINT " 8 DISENGAGE" 750 PRINT " 9 PROCEED" 770 PRINT:PRINT "YOU HAVE A CHOICE OF THREE SYSTEMS TO PATROL." 780 PRINT "1 - ORION" 790 PRINT "2 - DENEB" 800 PRINT "3 - ARCTURUS" 810 PRINT "SELECT A SYSTEM (1-3)";:INPUT S9 820 IF S9=1 THEN 2380 830 IF S9=2 THEN 2430 840 GOTO 2480 850 D0=0 860 D1=0 870 N1=0 880 N2=0 890 N3=0 900 N4=0 910 D=0 920 PRINT "WHICH SPACECRAFT WOULD YOU LIKE (1-3)";:INPUT S 930 ON S GOTO 1790,1830,1870 960 GOTO 920 970 C=C0 980 PRINT "YOU HAVE";C;"UNITS OF CARGO SPACE TO FILL WITH WEAPONRY." 990 PRINT "CHOOSE A WEAPON AND THE AMOUNT YOU WISH";:INPUT W,N 1000 ON W GOTO 1910,2010,2100,2190,2280 1050 GOTO 980 1060 IF N*C1>C THEN 2530 1070 C=C-N*C1 1080 ON W GOTO 1990,2080,2170,2260 1120 GOTO 2360 1130 IF C>1 THEN 980 1140 REM 1150 S1=S0*RND(0) 1160 R=(3*RND(0)+5)*100 1180 PRINT:PRINT "RANGE TO TARGET:";R 1190 PRINT "RELATIVE VELOCITY:";S1 1200 PRINT "ACTION";:INPUT M 1210 ON M GOTO 1940,2030,2120,2210,2310,1660,1390,2760 1290 IF R<500 THEN 1500 1300 IF S1>0 THEN 1330 1310 R=R+(S1*8.3)^1.25 1320 GOTO 1340 1330 R=R-(S1*8.3)^1.25 1340 IF R>1500 THEN 2590 1350 IF R>0 THEN 1370 1360 R=-R 1370 PRINT 1380 GOTO 1180 1390 PRINT "CHANGE TO BE EFFECTED";:INPUT S2 1400 IF (S1+S2)>S0 THEN 2550 1410 S1=S1+S2 1420 GOTO 1180 1430 F0=P1*(Z/R)^1.5 1440 REM 1450 D0=(2*F0+3*F0*RND(0))/5 1460 D=D+D0 1470 PRINT "SCANNERS REPORT ENEMY DAMAGE NOW:";D 1480 IF D>99 THEN 2720 1490 GOTO 1510 1500 D0=0 1510 REM 1520 K=E1+E2*RND(0) 1530 REM 1540 E=E3+E4*RND(0)+5/P0*RND(0) 1550 REM 1560 F3=E*(K/R)^1.85 1570 D2=(3*F3+3*F3*RND(0))/5.5 1580 D1=D1+D2 1590 IF (Z*D0)/(R*500)>2.2 THEN 1620 1600 D3=D0*2/(R^2*P0) 1610 D1=D1+D3 1620 PRINT "DAMAGE CONTROL REPORTS YOUR VESSEL DAMAGE AT:";D1 1630 IF D1>99 THEN 2740 1640 IF D>99 THEN 2760 1650 GOTO 1300 1660 PRINT "SELF DESTRUCT FAILSAFE ACTIVATED!!" 1670 PRINT "INPUT 1 TO RELEASE FAILSAFE";:INPUT U 1680 IF U=1 THEN 1700 1690 GOTO 1290 1700 PRINT "SELF DESTRUCT ACCOMPLISHED." 1710 IF R>60 THEN 1740 1720 PRINT "ENEMY VESSEL ALSO DESTROYED." 1730 GOTO 2760 1740 D4=3200/R 1750 D=D+D4 1760 IF D>99 THEN 1720 1770 PRINT "ENEMY VESSEL SURVIVES WITH";D;"DAMAGE." 1780 GOTO 2760 1790 S0=10 1800 C0=16 1810 P0=1 1820 GOTO 970 1830 S0=4 1840 C0=24 1850 P0=2 1860 GOTO 970 1870 S0=2 1880 C0=30 1890 P0=5 1900 GOTO 970 1910 C1=12 1930 GOTO 1060 1940 P1=4 1950 IF N1=0 THEN 2160 1960 N1=N1-1 1970 Z=200 1980 GOTO 1430 1990 N1=N1+N 2000 GOTO 1130 2010 C1=4 2020 GOTO 1060 2030 P1=20 2040 IF N2=0 THEN 2640 2050 N2=N2-1 2060 Z=500 2070 GOTO 1430 2080 N2=N2+N 2090 GOTO 1130 2100 C1=4 2110 GOTO 1060 2120 P1=16 2130 IF N3=0 THEN 2660 2140 N3=N3-1 2150 Z=550 2160 GOTO 1430 2170 N3=N3+N 2180 GOTO 1130 2190 C1=2 2200 GOTO 1060 2210 P1=10 2220 IF N4=O THEN 2680 2230 N4=N4-1 2240 Z=400 2250 GOTO 1430 2260 N4=N4+N 2270 GOTO 1130 2280 C1=.2 2290 N=100 2300 GOTO 1060 2310 P1=6 2320 IF N5=0 THEN 2700 2330 N5=N5-1 2340 Z=250 2350 GOTO 1430 2360 N5=N5+N 2370 GOTO 1130 2380 E1=150 2390 E2=500 2400 E3=3 2410 E4=4 2420 GOTO 850 2430 E1=200 2440 E2=350 2450 E3=4 2460 E4=3 2470 GOTO 850 2480 E1=150 2490 E2=400 2500 E3=5 2510 E4=2 2520 GOTO 850 2530 PRINT "NOT ENOUGH SPACE. RESELECT." 2540 GOTO 980 2550 PRINT "CHANGE BEYOND MAXIMUM POSSIBLE." 2560 PRINT "INCREASING TO MAXIMUM." 2570 S1=S0 2580 GOTO 1300 2590 PRINT "OUT OF SENSOR RANGE. AUTOMATIC DISENGAGE." 2600 GOTO 2760 2610 PRINT "PHASER BANKS DRAINED." 2620 PRINT "SELECT ANOTHER COURSE OF ACTION." 2630 GOTO 1200 2640 PRINT " ALL ANTI-MATTER MISSLES EXPENDED." 2650 GOTO 2620 2660 PRINT "ALL HYPERSPACE LANCES EXPENDED." 2670 GOTO 2620 2680 PRINT "ALL PHOTON TORPEDO TUBES EMPTY." 2690 GOTO 2620 2700 PRINT "HYPERON NEUTRALIZATION FIELD DRAINED." 2710 GOTO 2620 2720 PRINT "ENEMY VESSEL DESTROYED!" 2730 GOTO 1510 2740 PRINT "YOUR VESSEL HAS BEEN DESTROYED!" 2760 PRINT "ANOTHER BATTLE";:INPUT R$ 2770 IF LEFT$(R$,1)="Y" THEN 810 2780 PRINT:PRINT "TRY AGAIN LATER!":PRINT 2790 RUN "MENU" 10000 PRINT:LINE INPUT "ENTER 'RETURN' TO CONTINUE. ";XX$ 10010 PRINT CHR$(26) 10020 RETURN LATs. You may now choose to change sides, and watch the computer get you out of the mess that you got yourself into. Now you can really have fun! - Fred  BR0 will put a black rook in place of the white rook. a1=WR will make no change and advance to the next space. a1=WR with the "W", in this case, flashing means there is no piece there, and is just a carry over from a piece that you entered before. You can write over this, or just ignore it and hit the to go to the next square. Note: The cursor will skip a space automatically when the space "a1= WR , b1= WN , c1= WB , etc " appear. A CONTROL B (^B) will bring the board up at anytime, even during the regular game. To get the game going again once you have the board set up, type a (P) character. Upper0 WIDTH 255 10 'DOG STAR BY LANCE MICKLUS 20 REM Converted into Microsoft basic by Robert Nelson 150 CLEAR 200:DEFINT A-Z 151 CLS$=CHR$(27)+"E" 'ERASE SCREEN 200 GOSUB 30300 210 BT=1 450 LC=2:SL=64:BL=4:GF=50:RV=16396 600 GOTO 10300 2125 IF TC<25 OR RND(GF)<>1 THEN 2425 2150 IF TC=300 THEN GF=20 2175 IF LC<3 OR LC=9 OR LC=26 OR LC=36 OR LC=37 THEN 2425 2200 IF LC>26 AND LC<31 THEN 2425 2225 PRINT "HOLY SMOKES. AN ARMED GUARD JUST WALKED IN." 2250 GOSUB 20350: IF VB<>12 OR NO<>15 THEN 5575 2275 X=13: GOSUB 21450: IF Y<>-1 THEN 5575 2300 IF BL=0 THEN PRINT CLS$;: PRINT "I'M OUT OF AMMUNITION.": PRINT :GOTO 5600 2325 PRINT "ZZZAP! NO MORE GUARD." 2350 BL=BL-1: IF BL=0 THEN PRINT "I'M OUT OF AMMUNITION 2425 IF MD<>TC THEN 2550 2450 X=22: GOSUB 21450: IF Y<>-1 THEN 2550 2475 PRINT "YOUR BIG-MAC IS COLD. 2550 GOSUB 20350:TC=TC+1 2575 IF VB=0 AND NO=0 THEN 2650 ELSE 2800 2650 PRINT "I DON'T KNOW HOW TO DO THAT.":GOTO 2125 2725 PRINT "NOTHING HAPPENED.":GOTO 2125 2800 IF VB>1 OR NO>7 THEN 3175 2825 IF NO=0 THEN 2650 2850 IF DS(LC,NO-1)=0 THEN PRINT "I CAN'T GO THAT WAY!":GOTO 2125 2875 IF DR AND DS(LC,NO-1)>2 AND DS(LC,NO-1)<6 THEN PRINT "I CAN'T GO THAT WAY. FLIGHT DECK DO OR S ARE OPEN."+CHR$(13)+CHR$(10)+"NO AIR!!!":GOTO 2125 2900 IF NO=3 AND LC=31 AND NOT DJ THEN PRINT M0$:GOTO 2125 2925 IF LC=35 AND DS(LC,NO-1)=36 AND OB(21,1)<>0 THEN PRINT "THE ROBOT WON'T LET ME THRU.":GOTO 2125 2950 IF LC=17 AND OB(13,1)=17 THEN 5575 2975 IF LC=9 AND OB(5,1)=9 THEN 5575 3000 IF LC=9 OR LC=17 THEN HE$(LC)="" 3025 LC=DS(LC,NO-1) 3050 IF LC=34 THEN HE$(LC)="" 3075 IF LC=26 THEN 11800 3100 GOTO 10300 3175 IF VB=3 THEN 10300 3250 IF VB<>2 THEN 3700 3275 IF NO=0 THEN PRINT "I DON'T KNOW WHAT A ";CHR$(34);NO$(0);CHR$(34);" IS.":GOTO 2125 3300 IF CR>5 THEN PRINT "I CAN'T CARRY ANY MORE HINT: DROP SOMETHING.)":GOTO 2125 3325 FOR I=1 TO LO: IF OB(I,0)=NO THEN 3350 ELSE NEXT I:GOTO 2650 3350 IF OB(I,1)=-1 THEN PRINT "I'M ALREADY CARRYING IT.":GOTO 2125 3375 IF OB(I,1)<>LC THEN PRINT "I DON'T SEE IT.":GOTO 2125 3400 IF NO<>37 THEN 3475 3425 X=13: GOSUB 21450: IF Y<>-1 THEN PRINT "I DON'T HAVE A BLASTER TO PUT IT IN.":GOTO 2125 3450 BL=4:OB(I,1)=0: PRINT "MY BLASTER'S RELOADED.":GOTO 2125 3475 IF NO=15 OR NO=25 OR NO=34 THEN PRINT "HE LOOKS PRETTY MEAN TO ME.":GOTO 2125 3500 CR=CR+1:OB(I,1)=-1: PRINT "OK" 3525 IF NO=14 AND NOT CM THEN PRINT "A VOICE SAYS: ";CHR$(34);"SESAME";CHR$(34);".":CM=-1 3550 IF NO=22 AND MD=0 THEN MD=TC+50 3575 IF NO=12 THEN HE$(2)="" 3600 IF NO=13 THEN HE$(7)="" 3625 GOTO 2125 3700 IF VB<>4 THEN 3875 3725 PRINT "I'M CARRYING: 3750 K=0:FOR I=1 TO LO: IF OB(I,1)=-1 THEN PRINT OB$(I):K=1 3775 NEXT I: IF K=0 THEN PRINT "NOTHING 3800 PRINT :GOTO 2125 3875 IF VB<>5 THEN 3950 ELSE GOSUB 21050:GOTO 2125 3950 IF VB<>6 THEN 4200 3975 IF NO=0 THEN 3275 4000 IF LC=2 THEN PRINT "THERE'S NO ROOM HERE.":GOTO 2125 4025 IC=0:FOR I=1 TO LO: IF OB(I,1)=LC THEN IC=IC+1 4050 NEXT I: IF IC>12 THEN PRINT "THERE'S NOT ENOUGH ROOM. GET RID OF SOMETHING.":GOTO 2125 4075 FOR I=0 TO LO: IF OB(I,0)=NO THEN 4100 ELSE NEXT I:GOTO 2650 4100 IF OB(I,1)<>-1 THEN PRINT "I'M NOT CARRYING IT.":GOTO 2125 4125 CR=CR-1:OB(I,1)=LC: PRINT "O.K.":GOTO 2125 4200 IF VB<>7 THEN 4300 4225 IF HE$(LC)="" THEN PRINT "HOW AM I SUPPOSED TO KNOW WHAT TO DO?":GOTO 2125 ELSE PRINT HE$(LC):GOTO 2125 4300 IF VB<>8 THEN 4750 4375 IF NOT BT THEN 4475 ELSE PRINT "PRESS ENTER WHEN READY TO RECORD" 4400 GOSUB 22000:GOTO 4525 4475 IF NO$(0)="" THEN PRINT "TRY SOMETHING LIKE ";CHR$(34);VB$(0);" FILESPEC";CHR$(34);".":GOTO 2125 4500 OPEN "O",1,NO$(0) 4525 FOR I=0 TO LO 4550 PRINT #1,OB(I,0);OB(I,1);OB(I,2) 4575 NEXT I 4600 REM 4625 PRINT #1,TB;TC;CM;DR;BL;MD;GF;DJ;CR;LC 4650 CLOSE 4675 PRINT "O.K.":GOTO 2125 4750 IF VB<>9 THEN 5150 4825 GOTO 4925 4850 GOSUB 22000:GOTO 4975 4925 IF NO$(0)="" THEN 4475 4950 OPEN "I",1,NO$(0) 4975 FOR I=0 TO LO 5000 INPUT#1,OB(I,0),OB(I,1),OB(I,2) 5025 NEXT I 5075 INPUT#1,TB,TC,CM,DR,BL,MD,GF,DJ,CR,LC 5100 CLOSE 5125 GOTO 10300 5150 IF VB<>10 THEN 5225 ELSE PRINT CLS$:J=0:GOTO 11200 5225 IF VB<>11 THEN 5725 5250 IF NO<>10 THEN 2650 5275 IF LC<>2 AND LC<>11 THEN PRINT "WHAT BUTTON,":GOTO 2125 5300 IF LC=11 AND NOT TB THEN LET TB=-1: PRINT N2$:GOTO 2125 5325 IF LC=11 AND TB THEN LET TB=0: PRINT N3$:GOTO 2125 5375 X=12: GOSUB 21450: IF Y<>1 THEN 2725 5425 X=24: GOSUB 21450: IF Y<>1 THEN 2725 5450 IF NOT TB THEN PRINT N3$:GOTO 2725 5475 IF NOT DR THEN PRINT N4$:GOTO 2725 5500 GOTO 11150 5575 PRINT CLS$;: PRINT "H E L P ! ! !": PRINT 5600 PRINT "ROCHE SOLDIERS ARE EVERYWHERE. I'VE BEEN CAPTURED."+CHR$(13)+CHR$(10)+"I'M NOW A PRISONER."+CHR$(13)+CHR$(10)+"WOE IS ME. . . 5650 GOTO 11500 5725 IF VB<>12 OR NO=0 THEN 6025 5750 IF BL=0 THEN PRINT "BUT I DON'T HAVE ANY AMMUNITION LEFT.":GOTO 2125 5775 X=13: GOSUB 21450: IF Y<>-1 THEN PRINT "BUT I'M NOT CARRYING A BLASTER.":GOTO 2125 5800 X=NO: GOSUB 21450: IF Y=-1 THEN PRINT "I CAN'T. I'M HOLDING IT.":GOTO 2125 5825 IF NO=34 THEN PRINT "ZZZAP!":BL=BL-1:GOTO 2125 5850 IF Y<>LC THEN PRINT "I DON'T SEE IT.":GOTO 2125 5875 FOR I=1 TO LO: IF OB(I,0)=NO THEN 5900 ELSE NEXT I:GOTO 2650 5900 OB(I,1)=0:FOR I=1 TO 1:NEXT I: PRINT "ZZZAP THE ";NO$(NO);" VAP OR IZED." 5925 BL=BL-1: IF BL=0 THEN PRINT "I'M OUT OF AMMUNITION." 5950 GOTO 2125 6025 IF VB<>13 THEN 6275 6050 IF NO=0 THEN PRINT "SAY WHAT?":GOTO 2125 6075 X=14: GOSUB 21450 6100 IF Y<>-1 OR NO<>19 THEN PRINT "O.K. ";NO$(NO):GOTO 2125 6125 IF DR GOTO 2725 6150 DR=-1: PRINT "A VOICE COMES OVER THE P.A. SYSTEM AND SAYS:"+CHR$(13)+CHR$(10)+"OPENNING FLIGHT DECK DOORS" 6175 IF LC>2 AND LC<6 THEN PRINT CHR$(13)+CHR$(10)+"YIPES ! ! ! THERE'S NO AIR ! ! ! CROAK ...":END 6200 GOTO 2125 6275 IF VB<>14 THEN 6750 6300 IF NO<>20 AND NO<>16 AND NO<>11 AND NO<>33 THEN 2650 6325 IF NO=20 THEN 6550 6350 IF NO<>16 THEN 6450 6375 IF OB(6,1)=-1 THEN PRINT "SORRY. I'M NOT A MAP-MAKER":GOTO 2125 6400 IF OB(6,1)=LC THEN PRINT "TRY GET MAP.":GOTO 2125 6425 PRINT "IT'S NOT HERE.":GOTO 2125 6450 X=NO: GOSUB 21450: IF Y<>LC AND Y<>-1 THEN 6425 6475 IF NO=11 THEN PRINT "IT SAYS: >> NEEDS TURBO <<" 6500 INNO=33 THEN THEN PRINT "IT SAYS: >> OUT OF ORDER <<" 6525 GOTO 2125 6550 IF LC<>13 THEN PRINT "I DON'T SEE ANY.":GOTO 2125 6575 PRINT : PRINT "IT SAYS ON THE WALL,"+CHR$(13)+CHR$(10)+" YOUR MOTHER'S GOT A BIG NOSE"+CHR$(13)+CHR$(10)+" KILROY MADE IT HERE, TOO"+CHR$(13)+CHR$(10)+" SAY SECURITY 6675 GOTO 2125 6750 IF VB<>15 THEN 6975 6775 IF NO=0 THEN PRINT "WHAT'S A ";NO$(0);"?":GOTO 2125 6800 IF NO<>22 THEN PRINT "DON'T BE RIDICULOUS.":GOTO 2125 6825 X=22: GOSUB 21450: IF Y<>-1 THEN PRINT "I'M NOT HOLDING IT.":GOTO 2125 6850 FOR I=1 TO LO: IF OB(I,0)=22 THEN 6875 ELSE NEXT I: PRINT "I DON'T KNOW WHERE IT IS.":GOTO 2125 6875 OB(I,1)=0: PRINT "CHUMP - CHUMP. HUMMM, GOOD." 6900 FOR I=1 TO 1:NEXT I:GOTO 2125 6975 IF VB<>16 OR NO<>23 OR LC<>16 THEN 7125 7000 X=23: GOSUB 21450: IF Y<>-1 THEN PRINT M1$:GOTO 2125 7025 OB(11,1)=0:OB(14,1)=16:CR=CR-1: PRINT M2$ 7050 GOTO 2125 7125 IF VB<>18 OR NO<>36 THEN 7275 7150 IF NO<>36 OR LC<>31 THEN 2650 7175 X=17: GOSUB 21450: IF Y<>-1 THEN PRINT M3$:GOTO 2125 7200 HE$(31)="":DJ=-1: PRINT M4$:GOTO 2125 7275 IF VB<>19 OR NO=0 THEN 7600 7300 IF NO<>34 THEN PRINT "THAT'S STUPID!":GOTO 2125 7325 IF LC<>35 THEN PRINT M5$:GOTO 2125 7350 X=22: GOSUB 21450: IF Y<>-1 THEN PRINT M6$:GOTO 2125 7375 IF NO=35 THEN PRINT M7$:GOTO 2125 7400 IF NO<>34 THEN PRINT NO$(0);M8$:GOTO 2125 7425 IF TC>MD THEN PRINT M9$:GOTO 2125 7450 FOR I=1 TO LO: IF OB(I,0)=34 THEN 7475 ELSE NEXT I:GOTO 2650 7475 K=I:FOR I=1 TO LO: IF OB(I,0)=22 THEN 7500 ELSE NEXT I:GOTO 2650 7500 PRINT N0$:HE$(35)="" 7525 OB(K,1)=0:OB(I,1)=0:FOR I=1 TO 1:NEXT I:GOTO 2125 7600 IF VB<>17 THEN 7700 7625 PRINT NO$(0):GOTO 2125 7700 IF VB<>20 THEN 7975 7725 IF NO=0 THEN 2650 7750 X=NO: GOSUB 21450: IF Y=-1 THEN PRINT "I'M CARRYING IT. THAT'S IMPOSSIBLE":GOTO 2125 7775 IF Y=LC THEN 7850 7800 IF NO<11 OR NO=19 OR NO=20 OR NO=30 THEN 2650 7825 PRINT "I CAN'T HIT SOMETHING I CAN'T SEE.":GOTO 2125 7850 IF NO=15 OR NO=34 THEN PRINT "I'D RATHER NOT. HE MIGHT HIT ME BACK!":GOTO 2125 7875 IF NO=35 THEN PRINT "THAT'S NOT NICE!":GOTO 2125 7900 GOTO 2725 7975 IF VB<>21 THEN 8000 ELSE PRINT "I'M NOT STRONG ENOUGH TO KILL ANYTHING.":GOTO 2125 8000 GOTO 2650 10300 PRINT CLS$;: PRINT DS$(LC):A$="" 10305 IF LC=35 THEN GF=10 10400 IF LC=7 THEN 10700 10450 K=0:FOR I=1 TO LO: IF OB(I,1)<>LC THEN 10600 10500 IF K=0 THEN K=1: PRINT : PRINT "AROUND ME I SEE:":A$=OB$(I):GOTO 10600 10550 IF LEN(A$)+5+LEN(OB$(I))>SL THEN PRINT A$:LET A$=OB$(I) ELSE A$=A$+" "+OB$(I) 10600 NEXT I 10650 IF A$<>"" THEN PRINT A$ 10700 PRINT : PRINT "OBVIOUS DIRECTIONS ARE ";:K=0 10750 FOR I=0 TO 5: IF DS(LC,I)=0 THEN 10900 10800 IF K<>0 THEN PRINT ", "; 10850 PRINT NO$(I+1);:K=1 10900 NEXT I 10950 IF K=0 THEN PRINT "UNKNOWN"; 11000 PRINT ".":GOTO 2125 11150 PRINT CLS$: GOSUB 21050 11200 IF J=0 THEN PRINT "WE HAVE FAILED OUR MISSION. "+CHR$(13)+CHR$(10)+"THE FORCES OF PRINCESS LEYA WILL BE CONQUERED." 11250 IF J=SC THEN PRINT "WE ARE HEROS."+CHR$(13)+CHR$(10)+"THE FORCES OF PRINCESS LEYA WILL CONQUER THE EVIL ROCHE SOLDIERS AND FREEDOM WILL PREVAIL THROUGHOUT THE GALAXY." 11300 IF J>0 AND J13 OR NO<>30 THEN 5575 11950 PRINT N1$ 12000 GOSUB 20350 12050 X=31: GOSUB 21450: IF Y<>-1 THEN 5575 12100 IF VB<>17 OR NO<>31 THEN 5575 ELSE 10300 20350 INPUT"WHAT SHOULD I DO";CM$ 20395 VB$(0)="":NO$(0)="":VB=0:NO=0: IF LEN(CM$)=0 THEN RETURN 20400 FOR ZL=1 TO LEN(CM$): IF MID$(CM$,ZL,1)<>" " THEN VB$(0)=VB$(0)+MID$(CM$,ZL,1):NEXT ZL 20500 FOR ZL=1 TO LV: IF VB$(ZL)<>"" AND LEFT$(VB$(0),LEN(VB$(ZL)))=VB$(ZL) THEN VB=ZL:GOTO 20600 20501 NEXT ZL 20550 VB=0:NO$(0)=VB$(0):GOTO 20650 20600 IF LEN(VB$(0))+1>=LEN(CM$) THEN NO=0:RETURN ELSE NO$(0)=RIGHT$(CM$,LEN(CM$)-1-LEN(VB$(0))) 20650 FOR ZL=1 TO LN: IF NO$(ZL)<>"" AND LEFT$(NO$(0),LEN(NO$(ZL)))=NO$(ZL) THEN NO=ZL:GOTO 20800 ELSE NEXT ZL 20700 NO=0:RETURN 20800 FOR ZL=1 TO 1:NEXT ZL:RETURN 21050 J=0:FOR I=1 TO LO: IF OB(I,1)=1 THEN J=J+OB(I,2) 21100 NEXT I: PRINT "OUT OF A MAXIMUM OF";SC;"POINTS, YOU HAVE";J 21150 IF J=0 THEN PRINT "WE'RE NOT DOING TOO GOOD." 21200 RETURN 21450 FOR ZL=0 TO LO: IF OB(ZL,0)=X THEN Y=OB(ZL,1):GOTO 21500 ELSE NEXT ZL:Y=-99:RETURN 21500 FOR ZL=1 TO 1:NEXT ZL:RETURN 22000 A$=INKEY$ 22010 IF A$="" THEN 22000 ELSE RETURN 30300 SC=215 30450 IF PEEK(16396)=201 THEN BT=-1 ELSE BT=0 30600 LV=21:DIM VB$(LV) 30650 VB$(1)="GO":VB$(2)="GET":VB$(3)="LOOK" 30700 VB$(4)="INVEN":VB$(5)="SCORE":VB$(6)="DROP" 30750 VB$(7)="HELP":VB$(8)="SAVE":VB$(9)="LOAD":VB$(10)="QUIT" 30800 VB$(11)="PRESS":VB$(12)="SHOOT":VB$(13)="SAY" 30850 VB$(14)="READ":VB$(15)="EAT":VB$(16)="CSAVE" 30900 VB$(17)="SHOW":VB$(18)="OPEN":VB$(19)="FEED" 30950 VB$(20)="HIT":VB$(21)="KILL" 31100 LN=37:DIM NO$(LN)  31150 NO$(1)="NORTH":NO$(2)="EAST":NO$(3)="SOUTH" 31200 NO$(4)="WEST":NO$(5)="UP":NO$(6)="DOWN" 31250 NO$(10)="BUTTON":NO$(11)="TAG":NO$(12)="FUEL" 31300 NO$(13)="BLASTER":NO$(14)="COMMUNICATOR":NO$(15)="GUARD" 31350 NO$(16)="MAP":NO$(17)="KEYS":NO$(18)="NECKLACE" 31400 NO$(19)="SESAME":NO$(20)="GRAFFITI" 31450 NO$(21)="CAPE":NO$(22)="HAMBURGER" 31500 NO$(23)="TAPE":NO$(24)="TURBO":NO$(25)="SCIENTIST":NO$(26)="PLANS":NO$(27)="SCHEMATIC":NO$(28)="DEVICE":NO$(29)="GUN" 31650 NO$(30)="SECURITY":NO$(31)="I.D.":NO$(32)="CRYSTALS":NO$(33)="SIGN":NO$(34)="ROBOT":NO$(35)="PRINCESS" 31750 NO$(36)="DOOR":NO$(37)="AMMUNITION" 31900 CL=37:DIM DS$(CL) 31950 DS$(1)="I'M IN THE PASSENGER & STORAGE COMPARTMENT OF MY SPACE SHIP."+CHR$(13)+CHR$(10)+"THERE'S AN EXIT HERE TO LEAVE THE SHIP. 32000 DATA 2,0,0,0,0,3 32050 DS$(2)="I'M IN THE COCKPIT OF MY SPACE SHIP."+CHR$(13)+CHR$(10)+"A LARGE RED BUTTON SAYS >> PRESS TO BLAST OFF << 32100 DATA 0,0,1,0,0,0 32150 DS$(3)="I'M STANDING NEXT TO MY SPACE SHIP WHICH IS LOCATED ON A"+CHR$(13)+CHR$(10)+"HUGE FLIGHT DECK. 32200 DATA 18,0,4,0,1,0 32250 DS$(4)="I'M OUT ON THE FLIGHT DECK OF GENERAL DOOM'S BATTLE CRUISER 32300 DATA 3,5,4,4,0,0 32350 DS$(5)=DS$(4):DATA 4,6,5,4,0,0 32400 DS$(6)="I'M IN A HALLWAY. THERE ARE DOORS ON ALL SIDES"+CHR$(13)+CHR$(10)+"THE DOOR TO THE NORTH SAYS: >> CLOSED FOR THE DAY << 32450 DATA 7,0,8,5,0,0 32500 DS$(7)="I'M IN THE SUPPLY DEPOT"+CHR$(13)+CHR$(10)+"AROUND ME I SEE:"+CHR$(13)+CHR$(10)+" ALL KINDS OF THINGS. 32550 DATA 0,0,6,0,0,0 32600 DS$(8)="I'M AT THE END OF ONE OF THE HALLWAYS"+CHR$(13)+CHR$(10)+"I CAN HEAR VOICES NEARBY. SOUNDS LIKE GUARDS. 32650 DATA 6,10,0,9,0,12 32700 DS$(9)="I'M IN THE STRATEGY PLANNING ROOM":DATA 11,8,0,0,0,0 32750 DS$(10)="I'M IN THE DECONTAMINATION AREA":DATA 0,14,0,8,0,0 32800 DS$(11)="THIS AREA IS THE TRACTOR BEAM CONTROL ROOM"+CHR$(13)+CHR$(10)+"A LARGE SIGN WARNS:"+CHR$(13)+CHR$(10)+" >> DO NOT PRESS ANY BUTTONS << 32850 DATA 0,0,9,0,0,0 32900 DS$(12)="I'M IN ANOTHER HALLWAY. TO THE EAST IS A RESTROOM 32950 DATA 15,13,0,0,8,0 33000 DS$(13)="THIS IS WHAT IS COMMONLY CALLED, ON EARTH, THE BATHROOM"+CHR$(13)+CHR$(10)+"THERE'S GRAFFITI WRITTEN ALL OVER THE WALL."+CHR$(13)+CHR$(10)+" PIPES LEAD UP THROUGH THE CEILING 33050 DATA 15,0,0,12,27,0 33100 DS$(14)="THIS APPEARS TO BE AN INTERROGATION ROOM":DATA 0,0,0,10,0,0 33150 DS$(15)="I'M IN A LOUNGE":DATA 0,0,13,12,0,0 33200 DS$(16)="THIS IS A COMPUTER ROOM. THERE'S A TRS-80 IN HERE."+CHR$(13)+CHR$(10)+"ON THE SCREEN IT SAYS:"+CHR$(13)+CHR$(10)+" >> CSAVE TAPE <<":DATA 17,0,18,0,0,0 33250 DS$(17)="I'M IN A TESTING LABORATOR Y":DATA 0,0,16,0,0,0 33300 DS$(18)="I'M IN A HALLWAY"+CHR$(13)+CHR$(10)+"A LARGE ARROW POINTS EAST AND SAYS:"+CHR$(13)+CHR$(10)+" >> TO THE VAULT << 33350 DATA 16,25,3,19,0,0 33400 DS$(19)="THIS IS THE ENTRANCE TO THE DEVELOPMENT LAB SECTION":DATA 20,18,21,20,22,0 33450 DS$(20)="I'M IN A LONG CORRIDOR. THERE ARE LABORATORIES ALL AROUND ME":DATA 19,23,21,20,22,24 33500 DS$(21)="I'M IN A RESEARCH LAB":DATA 20,0,0,0,0,0 33550 DS$(22)="I'M LOST!":DATA 22,22,22,22,22,20 33600 DS$(23)=DS$(21):DATA 0,0,0,20,0,0 33650 DS$(24)=DS$(21):DATA 0,0,0,0,20,0 33700 DS$(25)="I'M NEAR THE ENTRANCE TO THE VAULT"+CHR$(13)+CHR$(10)+" A SIGN HERE SAYS:"+CHR$(13)+CHR$(10)+" >> AUTHORIZED PERSONNEL ONLY << 33750 DATA 0,26,0,18,0,0 33800 DS$(26)="I'M IN THE VAULT":DATA 0,0,0,25,0,0 33850 DS$(27)="I'M IN A PIPE TUNNEL WHICH LEADS IN EVERY DIRECTION":DATA 28,27,27,27,27,13 33900 DS$(28)=DS$(27):DATA 29,29,29,29,30,29 33950 DS$(29)="I'M LOST IN A MAZE OF PIPES":DATA 28,29,29,29,29,27 34000 DS$(30)="I'M IN THE PIPE MAZE"+CHR$(13)+CHR$(10)+"BELOW ME I THINK I CAN SEE THE JAIL 34050 DATA 29,29,28,29,29,31 34100 DS$(31)="I'M IN THE JAIL":DATA 32,33,34,35,0,0 34200 DS$(32)="I'M IN A JAIL CELL":DATA 0,0,31,0,0,0 34250 DS$(33)=DS$(32):DATA 0,0,0,31,0,0 34300 DS$(34)=DS$(32):DATA 31,0,0,0,0,0 34350 DS$(35)="I'M AT THE SECURITY DESK"+CHR$(13)+CHR$(10)+" TO THE NORTH THERE'S AN ELEVATOR ":DATA 36,31,0,0,0,0 34400 DS$(36)="I'M IN THE ELEVATOR ":DATA 0,0,35,0,37,0 34450 DS$(37)=DS$(36):DATA 0,0,14,0,0,36 34850 LO=23:DIM OB$(LO) 34900 OB$(1)="A TAG WHICH SAYS:"+CHR$(13)+CHR$(10)+" >> NEEDS TURBO <<":DATA 11,5,0 34950 OB$(2)="ANTI-MATTER FUEL":DATA 12,5,5 35000 OB$(3)="BLASTER":DATA 13,7,0 35050 OB$(4)="COMMUNICATOR ":DATA 14,9,0 35100 OB$(5)="A VERY SURPRISED GUARD":DATA 15,9,0 35150 OB$(6)="A MAP OF THE SHIP":DATA 16,29,20 35200 OB$(7)="SOME KEYS":DATA 17,9,0 35250 OB$(8)="A SHINESTONE NECKLACE":DATA 18,10,20 35300 OB$(9)="PRINCESS LEYA'S CAPE":DATA 21,14,5 35350 OB$(10)="MCDONALD'S HAMBURGER":DATA 22,15,0 35400 OB$(11)="A CASSETTE TAPE":DATA 23,7,0 35450 OB$(12)="A TURBOENCABULATOR ":DATA 24,17,5 35500 OB$(13)="AN EVIL LOOKING SCIENTIST":DATA 25,17,0 35550 OB$(14)="SECRET ATTACK PLANS":DATA 26,0,20 35600 OB$(15)="DEATH RAY SCHEMATIC":DATA 27,9,20 35650 OB$(16)="CLOAKING DEVICE":DATA 28,17,20 35700 OB$(17)="MICRO LASER GUN":DATA 29,24,20 35750 OB$(18)="I.D. CARD":DATA 31,17,0 35800 OB$(19)="MALIDIUM CRYSTALS (THE TREASURY!)":DATA 32,26,30 35850 OB$(20)="A SIGN WHICH SAYS:"+CHR$(13)+CHR$(10)+" >> OUT OF ORDER <<":DATA 33,3,0 35900 OB$(21)="ATTACK ROBOT":DATA 34,35,0 35950 OB$(22)="PRINCESS LEYA":DATA 35,34,50 36000 OB$(23)="AMMUNITION":DATA 37,7,0 36150 DIM DS(CL,5):RESTORE 36200 FOR ZL=1 TO CL:FOR ZD=0 TO 5 36250 READ DS(ZL,ZD):NEXT:NEXT 36300 DIM OB(LO,2) 36350 FOR ZL=1 TO LO:READ OB(ZL,0),OB(ZL,1),OB(ZL,2):NEXT ZL 36500 DIM HE$(CL) 36550 HE$(1)="I THINK WE'RE SUPPOSED TO LEAVE THE STUFF HERE 36650 HE$(7)="HOW ABOUT A BLASTER? 36660 HE$(2)="I WONDER IF WE HAVE ENOUGH FUEL? 36700 HE$(9)="TRY SHOOT GUARD? 36750 HE$(13)="IT MIGHT BE INTERESTING TO READ THE GRAFFITI 36800 HE$(17)="TRY SHOOT SCIENTIST? 36850 HE$(22)="I'M AS CONFUSED AS YOU ARE":HE$(29)=HE$(22) 36900 HE$(31)="IT MIGHT HELP IF WE HAD SOME KEYS TO OPEN ANY LOCKED DOORS 36950 HE$(35)="DID YOU BRING ANYTHING TO EAT? 37100 M0$="I CAN'T GO THERE. THE DOOR IS LOCKED. 37150 M1$="I'M NOT CARRYING ANY BLANK TAPE 37200 M2$="THE TRS-80 RECORDED SOMETHING ON THE TAPE, AND THEN IT PRINTED:"+CHR$(13)+CHR$(10)+" >> ATTACK PLANS -- VERY SECRET << 37250 M3$="I CAN'T. I'M NOT CARRYING ANY KEYS. 37300 M4$="O.K. THE DO OR TO THE JAIL CELL IS UNLOCKED 37350 M5$="THERE'S NO ROBOT HERE 37400 M6$="BUT, I DON'T HAVE AND HAMBURGERS. 37450 M7$="CHUMP . . . CHUMP BURP!!"+CHR$(13)+CHR$(10)+"THE PRINCESS THANKS YOU FOR A DELICIOUS MEAL 37500 M8$=" DOESN'T EAT HAMBURGER 37550 M9$="NOTHING HAPPENED. THE HAMBURGER IS COLD YOU KNOW 37600 N0$="THE ATTACK ROBOT EATS THE HAMBURGER AND DISAPPEARS. 37650 N1$="I'M AT THE IDENTIFICATION TERMINAL ON THE SCREEN IT SAYS: >> SHOW I.D. <<" 37700 N2$="THE TRACTOR BEAM IS OFF 37750 N3$="THE TRACTOR BEAM IS ON 37800 N4$="YOU FORGOT TO OPEN THE FLIGHT DECK DOORS 37850 RETURN HE TRACTOR BEAM IS OFF 37750 N3$="THE TRACTOR BEAM IS ON 3780L HAS BEEN DESTROYED!" 2760 PRINT "ANOTHER BATTLE";:INPUT R$ 2770 IF LEFT$(R$,1)="Y" THEN 810 2780 PRINT:PRINT "TRY AGAIN LAT10 PRINT CHR$(26) 11 T=0 15 BLANK$=" " 20 Y5=3:GOSUB 670 30 PRINT "YOU HAVE BEEN ASKED TO GO ON A MISSION TO DESTROY" 40 PRINT "FIVE ENEMY CRAFT THAT THREATEN THE GALAXY...." 50 PRINT "YOU MUST POSITION YOUR CRAFT SO THAT THE ENEMY" 60 PRINT "IS IN A POSITION IN THE CENTER OF YOUR GUNSIGHT IN" 70 PRINT "ORDER TO DESTROY HIM." 80 PRINT:PRINT "THE AIMING IS DONE AS FOLLOWS:" 90 PRINT "HIT THE ARROW KEYS TO MOVE YOUR SIGHTS.FOR EXAMPLE," 100 PRINT "TO MOVE THE GUNSIGHT UP (TARGET DOWN)," 110 PRINT "HIT THE UP ARROW. HIT RETURN TO FIRE AND ESCAPE" 120 PRINT "TO REDRAW THE GUNSIGHT." 125 PRINT 130 PRINT "IF YOU FINISH WITH A RATING OVER 75%, YOU WILL" 135 PRINT "NOTICE THE TIME BETWEEN TARGET-MOVES SPEEDING UP." 140 PRINT "ALSO, IF YOUR RATING IS 50% OR LESS, THE TIME" 145 PRINT "WILL DECREASE. AS YOU GET BETTER, YOUR RATING" 150 PRINT "WILL ALSO IMPROVE. GOOD LUCK!!!!!!" 170 FOR N=0 TO 1500: NEXT N 175 PRINT:RANDOMIZE 180 PRINT "TYPE N FOR NOVICE PILOT, E FOR EXPERIENCED," 185 INPUT "OR A FOR ACE"; V$ 190 IF V$="E" THEN V8=200:GOTO 220 200 IF V$="N" THEN V8=350:GOTO 220 210 IF V$ = "A" THEN V8=100:GOTO 220 215 GOTO 180 220 PRINT CHR$(26) 230 Y5=10:X5=10:GOSUB 670 240 PRINT "GOOD LUCK ON YOUR MISSION --- ON INTO BATTLE!!!" 250 FOR N=0 TO 1000:NEXT N 270 D2=1:D1=1:PRINT CHR$(26) 280 GOSUB 1140 290 Y5=6:X5=0:GOSUB 670:GOSUB 500 300 Y5=INT(10*RND+7) 310 X5=INT(20*RND+16) 320 GOSUB 670 330 GOSUB 640 340 GOSUB 690 350 Z$="":WHILE Z$="" 355 Z$=INKEY$ 360 GOSUB 1080 365 WEND 370 D=(ASC(Z$) AND 127) 380 GOSUB 670 390 IF D=8 THEN X5=X5+1 400 IF D=12 THEN X5=X5-1 410 IF D=11 THEN Y5=Y5+1 420 IF D=10 THEN Y5=Y5-1 430 IF D=13 THEN 710 440 IF D=27 THEN P=X5:Q=Y5:Y5=6:X5=0:GOSUB 670:GOSUB 500:X5=P:Y5=Q 450 GOSUB 1050 460 GOTO 320 500 PRINT " ----------------------" 510 PRINT " |" 520 PRINT " |" 530 PRINT " |" 540 PRINT " |  |" 550 PRINT " | | | |" 560 PRINT " |----------| |----------|" 570 PRINT " | | | |" 580 PRINT " | |" 590 PRINT " |" 600 PRINT " |" 610 PRINT " |" 620 PRINT " ---------------------" 630 RETURN 640 PRINT "I-0-I" 650 P=Y5:Q=X5 660 RETURN 670 PRINT CHR$(27)+"="+CHR$(32+Y5)+CHR$(32+X5); 680 RETURN 690 PRINT CHR$(27)+"="+CHR$(32)+CHR$(32) 700 RETURN 710 IF Y5=12 THEN 740 720 GOSUB 880 730 GOTO 320 740 IF X5=29 THEN 770 750 GOSUB 880 760 GOTO 320 770 Y5=12:X5=28:GOSUB 670:PRINT " POW " 780 FOR N=0 TO 100:PRINT CHR$(7);:NEXT N 790 FOR N=0 TO 100:NEXT N 800 GOSUB 670:PRINT BLANK$+CHR$(0) 810 FOR N=0 TO 100:NEXT N 820 Y5=22:X5=0:GOSUB 670 830 PRINT "M A Y T H E F O R C E B E W I T H Y O U !!" 840 Y5=1:X5=0:GOSUB 670 850 PRINT "ENEMY DESTROYED=";D1 860 D1=D1+1 865 IF D1=6 THEN 920 870 GOTO 300 880 P=Y5:Q=X5:Y5=2:X5=0:GOSUB 670 890 PRINT "NUMBER MISSED =";D2:D2=D2+1 900 Y5=P:X5=Q:GOSUB 670 910 RETURN 920 Y5=22:X5=10:GOSUB 670 930 D2=D2-1 940 Y5=20:X5=0:GOSUB 670 950 PRINT "THE HOME BASE HAS BEEN SAVED-CONGRATULATIONS" 960 PRINT "YOUR MISSION RECORD: ";5/(5+D2)*100;"% PERFORMANCE" 970 IF 5/(5+D2)*100 >75 THEN V8=V8-50:IF V8<=50 THEN 1200 980 IF 5/(5+D2)*100 <51 THEN V8=V8+50 990 PRINT "DO YOU WANT ANOTHER MISSION?";:PRINT SPACE$(30) 1000 Q$="":WHILE Q$="":Q$=INKEY$:WEND 1010 X=ASC(Q$):IF X>96 THEN X=X-32 1020 IF X<>89 THEN STOP 1030 GOTO 270 1040 Y5=0:X5=0:GOSUB 670 1050 PRINT CHR$(27)+"="+CHR$(32+P)+CHR$(32+Q); 1060 PRINT BLANK$+CHR$(0) 1070 RETURN 1080 T=T+1 1090 IF T>V8 THEN 1110 1100 RETURN 1110 IF X5>31 OR X5<7 THEN 1116 1112 X5=X5-1:Y5=Y5+1:GOSUB 1050: GOSUB 670:GOSUB 640: GOSUB 690: GOTO 1120 1116 X5=X5+1:Y5=Y5-1:GOSUB 1050:GOSUB 670:GOSUB 640:GOSUB 690:GOTO 1120 1120 IF Y5>18 OR Y5<5 THEN PRINT CHR$(26):PRINT "YOU'RE SHOT DOWN!!!":GOTO 1125 1122 T=0:RETURN 1125 X5=0:Y5=6:GOSUB 670:GOSUB 500:V8=V8+50:GOTO 990 1140 IF V8<=100 THEN Q$="RATING=ACE PILOT":GOTO 1170 1150 IF V8>= 350 THEN Q$="RATING=NOVICE PILOT":GOTO 1170 1160 Q$="RATING=EXPERIENCED PILOT" 1170 Y5=2:X5=25:GOSUB 670 1180 PRINT Q$ 1190 RETURN 1200 PRINT CHR$(26) 1210 FOR I=1 TO 100:PRINT CHR$(7):NEXT I 1220 PRINT:PRINT " C O N G R A T U L A T I O N S !!!!" 1230 PRINT:PRINT " YOU BEAT THE COMPUTER!!" 1240 END CHR$(7):NEXT I 1220 PRINT:PRINT " C O N G R A T U L A T I O N S !!!!" 1230 PRINT:PRINT " YOU BEAT THE COMPUTER!!" 700 HE$(9)="TRY SHOOT GUARD? 36750 HE$(13)="IT MIGHT BE INTERESTING TO READ THE GRAFFITI 36800 HE$(17)="TRY SHOOT SCIENTIST? 36850 HE$(22)="I'M AS CONFUSED AS YOU ARE":HE$(29)=HE$(22) 36900 HE$(31)="IT MIGHT HELP IF WE HAD SOME KEYS TO OPEN ANY LOCKED DOORS 36950 HE$(35)="DID YOU BRING ANYTHING TO EAT? 37100 M0$="I CAN'T GO THERE. THE DOOR IS LOCKED. 37150 M1$="I'M NOT CARRY1 REM THIS PROGRAM IS "LGOLDS" ON DISC. 10 REM THIS IS THE 'ADVENTURE' GAME OF 'LOST DUTCHMAN'S GOLD', 20 REM ORIGINAL IN APPLESOFT BASIC BY TERI LI 30 REM 40 REM TYPE IN AND CONVERTED TO MBASIC (4.51), BY CHRIS SIDENER 50 REM FROM THE LISTING IN BYTE OF DECEMBER 1980 (PAGE 268 +) 60 REM 70 REM BASIC HACKERS AND CRONIC CODE CONVERTERS ARE INVITED TO 80 REM FIX, IMPROVE, DEBUG, AND OTHERWISE MAKE BETTER THIS CODE. 90 REM 100 REM IT IS UNDERSTOOD, OF COURSE, THAT YOU WILL MODEM IT BACK 110 REM SO THAT ALL MAY ENJOY! 120 REM 130 REM FIX, PATCH, EXPAND.... HAVE AT IT! I,M TIRED. 140 REM 150 REM ** CHRIS SIDENER ** 160 REM SPRINGFIELD, VIRGINIA 170 REM 180 REM ******************************************************************* 210 FOR X=1 TO 35:PRINT:NEXT 220 PRINT "WELCOME TO THE SEARCH FOR THE LOST DUTCHMAN'S GOLD." : PRINT "I'M THE GHOST OF BACK-PACK SAM, YER GUIDE ON THIS ADVENTURE." 230 PRINT : PRINT"YA CAN USE TWO WORD COMMANDS TO FIND CLUES 'N MOVE 'BOUT. GET, GO, PUT, DROP," 240 PRINT "SCORE, INVENTORY, 'N 'BOUT 100 MORE WORDS MAKE SENSE TA ME." : PRINT"ASK FER HELP IF YA GET STUMPED." : PRINT "I HOPE YA DON'T END UP A GHOST, LIKE ME!!" 243 PRINT:PRINT:INPUT "DO YOU WANT SOME ADVICE? (Y OR N)";A$ 244 IF A$="Y" THEN GOSUB 4000 245 CLEAR 4000 250 DIM T$(200) 260 PRINT:PRINT:PRINT:PRINT" GOOD LUCK ! !" : PRINT 265 PRINT "I AM SETTING UP A 'GOOD' GAME FOR YOU, PLEASE WAIT." 270 DIM N$(26,7),O$(32,3),R$(46) : B=0 : IN=B : LN=100 : LM=LN : X1=B : X2=B : T$="" : M1$=T$ : M2$=T$ : QM$=T$ : U=B : U1=B : IM=2 : BD=21 : L=1 : C$=CHR$(13)+CHR$(10) 280 FOR L=B TO 26 : FOR I=B TO 7 : READ N$(L,I) : NEXT I,L 290 FOR I=B TO 32 : READ O$(I,0),O$(I,1),O$(I,2) : O$(I,3)="" : NEXT 300 FOR I=B TO 46 : READ R$(I) : NEXT 305 R$(0)=LEFT$(R$(0),3) 310 L=1 315 FOR X=1 TO 35:PRINT:NEXT 320 REM 330 REM 340 REM 350 REM 360 REM 370 IF ((O$(12,2)=STR$(L) OR O$(12,3)="1") AND CL > 0) OR L < 15 THEN 420 380 PRINT "IT'S TOO DARK TA SEE !!" : IF L=15 AND O$(6,3) <> "1" AND O$(4,3) <> "1" THEN PRINT "YA HEAR A STRANGE NOISE !" 390 GOTO 750 400 T$="OK" : RETURN 410 B=1 : PRINT : PRINT "YA SEE : "; : RETURN 420 IF CL=1 THEN LN=LN-1 : IF LN < 1 THEN CL=0 430 L1=L 440 B=0 : PRINT "YER "N$(L,0)"." : FOR J=0 TO 32 : IF VAL(O$(J,2)) <> L THEN 560 450 IF B=0 THEN GOSUB 410 460 IF O$(J,3)="-7" OR O$(J,3)="-2" THEN PRINT "BURNT "; 470 IF J <> 1 OR VAL(O$(1,2)) <> L THEN 500 480 IF O$(1,3)="" THEN PRINT "UNTIED "; : GOTO 500 490 IF O$(1,3)="-9" THEN PRINT "DEAD "; 500 IF O$(J,3)="-3" THEN PRINT "SMASHED "; 510 IF L <> 26 OR J <> 32 THEN 540 520 IF U1 <> 0 THEN PRINT "UN"; 530 PRINT "LOCKED "; 540 IF CL=1 AND J=12 THEN PRINT "LIT "; 545 IF J=14 OR J=15 OR J=16 OR J=17 THEN PRINT "***"+O$(J,0)+"*** ";:GOTO 560 550 PRINT O$(J,0)". "; 560 NEXT J 570 IF U1=1 AND L=1 THEN PRINT "OPEN TRAP DOOR. "; 580 IF N$(L,1)="" THEN PRINT : GOTO 690 590 IF B=0 THEN GOSUB 410 600 IF L <> 16 THEN 630 610 IF U <> 0 THEN PRINT "UN"; 620 PRINT "LOCKED "; : GOTO 660 630 IF L <> 17 THEN 660 640 IF U=1 THEN PRINT "UNLOCKED "; : GOTO 660 650 PRINT "BLOCKED "; 660 PRINT N$(L,1)". 670 IF L=17 AND U=0 THEN N$(L,2)=" "+RIGHT$(N$(L,2),3) 680 IF L=16 AND U=1 THEN N$(L,2)="E"+RIGHT$(N$(L,2),3) 690 PRINT : IF N$(L,2)="" THEN 750 700 PRINT "OBVIOUS EXITS : "; : FOR I=1 TO 4 : P$=MID$(N$(L,2),I,1) : IF P$="N" THEN PRINT "NORTH "; 710 IF P$="S" THEN PRINT "SOUTH "; 720 IF P$="E" THEN PRINT "EAST "; 730 IF P$="W" THEN PRINT "WEST "; 740 NEXT : PRINT 750 B=0 : PRINT "======================================= 760 PRINT: IF L=9 AND O$(22,2)="11" THEN PRINT "THAR'S NOISE UP AHEAD." : PRINT "SOUNDS LIKE INJUNS. 770 IF L=9 AND O$(22,2)="" THEN O$(22,2)="11" 780 INPUT " --NOW WHAT";QM$ 790 IF LN <10 AND CL=1 THEN PRINT "YER RUNNIN' LOW ON KEROSENE. 800 REM 810 IF QM$ <> "SCORE" THEN 870 820 IF L <> 6 THEN T$= "YA GET NOTHIN' FOR BEIN' HERE!" : GOTO 2990 830 Z=0 :FOR I=14 TO 17 : IF O$(I,2) = " 6" THEN Z=Z+1 840 NEXT 850 PRINT "YA GOT "Z" TREASURES, TOT'LIN "(Z/4)*100"%" : IF Z = 4 THEN PRINT "YA MADE IT!!": GOTO 3290 860 T$= "YA MISSED SUM' TREASURE!" : GOTO 2990 870 IF CL=0 AND L=15 AND O$(6,3) <> "1" THEN PRINT "YE GAD!" : PRINT "YA BEEN BIT BY A RATTLER." : PRINT "YER DEAD." :GOTO 3290 880 IF L=17 AND U=1 AND RND(1)*9+1 < 2 THEN PRINT "HOLEY CRAP! WOWIE!! IT'S A CAVE IN !! ": PRINT "THE IRON DOOR'S BLOCKED, " : PRINT "YER TRAPPED!!" : U=0 890 IF QM$="HELP" THEN X=VAL(N$(L,3)) : ON X GOSUB 3310,3320,3330,3340,3360,3380,3390,3400, : GOTO 370 900 X1 =LEN(QM$) : IF X1 <2 THEN T$="WHAT?" : GOTO 2990 910 X3=0 : FOR X2=3 TO X1 : M1$= MID$(QM$,X2,1) : IF M1$=" " THEN X3 = X2 : X2=X1 920 NEXT X2 : X2 = X3 : IF X3 =0 THEN X2 = X1 930 P$ = LEFT$(QM$,3) : IF X2 <> X1 AND X2+ 3 > X1 THEN 1160 940 II =-1 : FOR I= 0 TO 42 : IF P$=R$(I) THEN II=I 950 NEXT : IF II > -1 THEN I= II : GOTO 990 960 IF X1 = X2 THEN T$= "WHAT?" : GOTO 2990 970 T$="SORRY, BUT YA CAN'T "+ LEFT$(QM$,X2) : IF X2 < X1 THEN T$=T$ + RIGHT$(QM$,X1 - X2) 980 T$=T$+ "." : GOTO 2990 990 IF I < 8 AND X1=X2 THEN ON I+1 GOSUB 3130,3130,3130,3290,1230,3140,3000,3100 : GOTO 2990 1000 JJ= -1 : M1$ = MID$(QM$,X2+1,3) : FOR J= 0 TO 32 : IF M1$ = LEFT$ (O$(J,0),3) THEN JJ = J:J=32 1010 NEXT : J= JJ : IF JJ > -1 THEN 1170 1020 IF M1$ = "IRO" THEN 1130 1030 IF I=36 THEN 1570 1040 IF N$(L,1) = "" THEN 1095 1050 FLG2=0:Z=1:A=Z:X1=LEN(N$(L,1)) 1052 FOR X2= 5 TO X1 1054 IF MID$(N$(L,1),X2,1)<>CHR$(46) AND X2 <> X1 GOTO 1060 1056 M2$=MID$(N$(L,1),Z,3):IF M2$=M1$ THEN FLG2=1:X2=X1:GOTO 1060 1058 Z=X2+2:A=A+1 1060 NEXT 1062 IF FLG2=0 GOTO 1095 1064 B=A:IF I = 10 THEN PRINT "YA SEE NOTHIN' SPECIAL.":GOTO 430 1065 GOTO 1170 1095 FLG3=0 1100 FOR X=43 TO 46 1102 IF M1$=R$(X) THEN X=46:FLG3=1 1110 NEXT 1115 IF FLG3=1 GOTO 1210 1120 IF O$(4,3) = "1" OR O$(6,3) = "1" THEN IF I=23 AND M1$= "SEL" THEN PRINT "OK" : PRINT "YER DEAD." : GOTO 3290 1130 IF I=32 THEN GOSUB 1390 : GOTO 2990 1140 IF I=33 THEN GOSUB 1510 : GOTO 2990 1150 T$ = "I CAN'T TELL WHATCHA WANT." : GOTO 2990 1160 T$ ="I MUST BE DUMB, YA DON'T MAKE SENSE." : GOTO 2990 1170 IF I < 9 THEN 1210 1180 IF J < 33 AND J > -1 THEN B= VAL(O$(J,2)) : IF B<> L AND B> 0 THEN 2980 1190 IF J > 32 THEN J= 29 1200 ON I - 8 GOSUB 1990,2210,2210,2210,1990,2610,2610,2610,2610,2810,2810,1990,1270,1270,1750,1740,1740,1550,1830,1920,1950,1340,1340,1390,1510,1990,1540,1570,2610,2600,2150,2170,2810,3410 1210 IF I < 9 THEN ON I+1 GOSUB 1590,1590,1590,3290,1230,1590,3000,3100,2150 1220 GOTO 2990 1230 IF O$(3,3) <> "1" THEN 2980 1240 PRINT "OK" : FOR I=13 TO 17 : IF VAL(O$(I,2)) = -L THEN T$ = "EUREKA! WE STRUCK GOLD?!??" : O$(I,2) = STR$(L) : RETURN 1250 NEXT 1260 T$ = "DAG NAB IT! THAR'S NOTHIN' HERE!" : RETURN 1270 IF J <> 23 THEN 1740 1280 IF L= 14 THEN O$(23,2) = "15" : GOTO 400 1290 IF L = 15 THEN O$(23,2) = "16" : GOTO 400 1300 IF L= 16 AND U= 1 THEN O$(23,2) = "17" : GOTO 400 1310 IF L=17 THEN O$(23,2) = "19" : GOTO 400 1320 IF L=19 THEN O$(23,2) = "23" : O$(23,3) = "-3 1330 GOTO 400 1340 IF J=3 OR J=4 OR J= 6 OR J=8 OR J=9 OR J=11 OR J=12 OR J=13 OR J=19 OR J=27 OR J=28 THEN 1360 1350 GOTO 1730 1360 IF O$(J,3) = "1" THEN IN = IN-1 1370 O$(J,3) = "-3" : O$(J,2) = STR$(L) : GOTO 400 1380 T$ = "DON'T HAFTA." : RETURN 1390 IF L <> 16 THEN 1430 1400 IF U <> 0 THEN 1380 1410 IF O$(10,3) = "1" THEN U = 1 : GOTO 400 1420 GOTO 2980 1430 IF L <> 26 THEN 1470 1440 IF U1 <> 0 THEN 1380 1450 IF O$(10,3) = "1" THEN U1 = 1 : RETURN 1460 GOTO 2980 1470 IF O$(1,3) <> "1" THEN 1500 1480 IF O$(0,3) = "2" THEN O$(0,3) = "" : O$(0,2) = STR$(L) : GOTO 400 1490 GOTO 1730 1500 IF CL = 1 AND O$(12,3) = "1" THEN CL=0 : GOTO 400 1510 IF (L=16 OR L=17) AND U = 1 THEN U=0 : GOTO 400 1520 IF L=26 AND U1 =1 THEN U1 =0 : GOTO 400 1530 GOTO 1730 1540 T$= "YA HEAR NOTHIN' SPECIAL." : RETURN 1550 IF L <> 11 OR O$(9,3) <> "1" THEN 2150 1560 PRINT "THEY TOOK THE FIRE WATER 'N RAN." : IN=IN-1 : O$(9,2) = "" :O$(9,3) = "" : O$(22,2) = "" : RETURN 1570 IF M1$= "YOH" THEN T$= "TURKEY!" : PRINT "SORRY, YER IN THE WRONG ADVENTURE." : GOTO 2990 1580 GOSUB 400 : T$=T$+ C$+ RIGHT$(QM$,X1 - X2)+ "." : GOTO 2990 1590 IF B=0 THEN 1640 1600 L= VAL(N$(L,B+3)) : IF O$(1,3)= "1" AND (L=1 OR L=6 OR L=15) THEN T$ ="HE WON'T GO." : L=L1 : RETURN 1610 IF L=17 AND U=0 THEN L=L1 : GOTO 2980 1620 IF L1 = 26 AND L=1 AND U1=0 THEN L=L1 : GOTO 2980 1630 GOTO 1740 1640 IF U1 = 1 AND L=1 THEN L=26 : GOTO 400 1650 IF U1 =1 AND M1$="TRA" AND L=26 THEN L=1 : RETURN 1660 FOR X1= 1 TO 4 : M2$= MID$(N$(L,2),X1,1) : IF M2$ <> LEFT$(M1$,1) THEN NEXT X1 : GOTO 1690 1670 FOR X2=43 TO 46 : IF M1$ <> R$(X2) THEN NEXT X2 : GOTO 1690 1680 L=VAL(N$(L,X1+3)) : IF L <> 0 THEN 1740 1690 IF L=23 THEN T$="IT'S TOO SLIPPERY." :RETURN 1700 IF L=25 THEN L=26 : RETURN 1710 IF L=26 THEN L=25 : RETURN 1720 IF L=19 THEN L=23 : PRINT "NIGH BROKE M' NECK!!" :RETURN 1730 T$= "SORRY, BUT YA CAN'T DO THAT." : RETURN 1740 B=0 : GOTO 400 1750 IF O$(4,3) <> "1" AND O$(6,3) <> "1" THEN 2150 1760 IF J <> 1 THEN 1800 1770 Z=0 : IF O$(J,3) = "1" THEN Z=99 1780 O$(J,3) = "-9" : O$(1,2) = STR$(L) 1790 IF Z=99 THEN IN=IN-1 1800 IF J=22 THEN PRINT "YA GOT ONE!" : PRINT "BUT THE REST GOT YOU!" : GOTO 3290 1810 IF J=9 THEN T$ = "YA HIT ONE!" : RETURN 1820 GOTO 400 1830 IF O$(18,3) <> "1" THEN 2980 1840 IF J < 0 THEN 970 1850 IF J=4 OR (J>5 AND J<11) OR (J>14 AND J < 18) OR J=22 OR J=29 OR J > 30 THEN 1730 1860 IF O$(J,3)="1" THEN IN=IN -1 1870 O$(J,3)="-7" : O$(J,2) = STR$(L) 1880 IF J > 0 THEN 1740 1890 IF O$(0,3) <> "-7" THEN 1740 1900 O$(0,2) = STR$(L) : FOR J=5 TO 21 : IF O$(J,2) = "-1" THEN O$(J,3) = "-7" 1910 NEXT : GOTO 1740 1920 IF J <> 12 THEN 1830 1930 IF O$(J,3) <> "1" OR O$(18,3) <> "1" THEN 1830 1940 CL = 1 : GOTO 400 1950 IF J=13 THEN PRINT "YEEECH!!" : PRINT"IT'S KEROSENE!" : PRINT "YA JUST POISONED YERSELF." : GOTO 3290 1960 IF J <> 9 THEN 1730 1970 PRINT "WHEEEE!!" : PRINT "YA GOT PLASTERED AND LOST A DAY." : IF CL=1 THEN LN=LN-10 1980 RETURN 1990 IF J > 32 OR J < 0 THEN 2030 2000 B= VAL(O$(J,2)) : IF O$(J,3) = "2" OR B=L OR B= -1 THEN 2030 2010 IF J < 22 THEN 2980 2020 T$= "IT AIN'T HERE." : RETURN 2030 IF J > 21 OR J=1 OR J= -1 THEN T$="WHO YOU THINK YA IS, PAUL BUNYON?!!" :RETURN 2040 IF O$(J,3) = "-7" THEN T$="IT'S BURNT UP 'N RUINED." : RETURN 2050 IF IN > 4 THEN T$="YA CAN'T! YER HANDS 'R FULL." : RETURN 2060 IF O$(J,3)="1" THEN PRINT "YA ALREADY GOT IT!" : RETURN 2070 IF VAL(O$(J,1))= 0 AND I <> 16 THEN 2100 2080 IN=IN+1 : IF O$(J,2) = "-1" THEN IM=IM-1 : O$(J,2)="" : O$(J,3)="1" :GOTO 2100 2090 O$(J,3)="1" : O$(J,2) ="" 2100 IF J <> 9 AND J <> 11 AND J <> 2 THEN 400 2110 IF J=9 THEN IF O$(8,2)="-6" THEN O$(8,2) = "6" 2120 IF J=11 THEN IF O$(12,2)= "-8" THEN O$(12,2)="8 2130 IF J=2 THEN IF O$(18,2)="-14" THEN O$(18,2)="14 2140 RETURN 2150 IF O$(J,3) <> "1" THEN T$= "YA DON'T HAVE IT!" :RETURN 2160 T$="OK" : IN=IN-1 : O$(J,2)= STR$(L) : O$(J,3) = "" : RETURN 2170 IF O$(5,3) <> "1" THEN 2980 2180 IF L=7 THEN L=8 : GOTO 400 2190 IF L=12 THEN L=13 2200 GOTO 400 2210 GOSUB 400 : ON J+1 GOTO 2230,2270,2280,2300,2310,2315,2330,2300,2300,2340,2360,2370,2390,2400,2300,2300,2300,2300,2300,2420,2440,2460,2480,2490,2500,2520,2300,2540,2300,2300,2300,2560,2300 2220 GOTO 2300 2230 IF VAL (O$(0,3)) < 1 THEN T$= "THEY'S LUMPY OL' LEATHER SADDLEBAGS." : RETURN 2240 PRINT "THEY HOLD ";: IF IM=0 THEN PRINT "NOTHIN'." : T$="" : RETURN 2250 FOR I=6 TO 22 : IF O$(I,2) = "-1" THEN PRINT " "O$(I,0)","; 2260 NEXT : T$= CHR$(8)+"." : RETURN 2270 T$="YA SEE A WEARY OL' GREY MULE." : RETURN 2280 T$="IT'S AN OL' TORN SACK." : IF O$(18,2)= "-14" THEN O$(18,2)="14" 2290 RETURN 2300 T$="YA SEE NOTHIN' SPECIAL." : RETURN 2310 T$="IT'S AN OLD WINCHESTER SINGLE-SHOT." : RETURN 2315 IF O$(5,3)<>"1" GOTO 2975 2320 T$="LOOKS LIKE A MAP TA THE LOST DUTCHMAN'S MINE! THAR'S A SKETCH OF SOME BOULDERS." : RETURN 2330 T$="NOTHIN' SPECIAL,"+C$+"JUS' A LOADED SIX SHOOTER." : RETURN 2340 IF O$(8,2) = "-6" THEN T$="LOOKS LIKE SOMETHIN'S 'HIND THE BOTTLES." : O$(8,2)="6" : RETURN 2350 GOTO 2300 2360 T$ ="THAR'R 3 KEYS, TIED WITH A LEATHER STRAP" : RETURN 2370 IF O$(12,2) = "-8" THEN T$="LOOKS LIKE THAR'S GLASS UNDER 'UM." : O$(12,2)="8" : RETURN 2380 GOTO 2300 2390 T$="IT'S AN OL' KEROSENE LAMP, FULL TA THE '"+STR$(LN)+" TURNS LEFT' MARK." : RETURN 2400 IF I=11 THEN T$="IT SEZ 'KEROSENE.'" : RETURN 2410 T$="THAR'S WRITING ON IT." : RETURN 2420 IF O$(20,2) = "-17" THEN O$(20,2) ="17" : T$="IT'S A MESSAGE !" : RETURN 2430 GOTO 2300 2440 IF I=11 THEN T$="IT SEZ :"+C$+"BRING TREASURES TO SALOON, SAY 'SCORE.'" : RETURN 2450 GOTO 2410 2460 IF I=11 THEN T$="IT SEZ.."+C$+" HAVEN'T YOU ANYTHING BETTER TO DO?" : RETURN 2470 GOTO 2410 2480 T$="THEY'S A SAVAGE LOOKIN' BAND,"+C$+"'N THEY SEEN YA!" : RETURN 2490 T$="JUS' AN OL' CART FULL O' ROCKS." : RETURN 2500 IF O$(5,2)="-25" THEN O$(5,2)="1" : T$="THAR'S SOMETHIN' HERE!!" : RETURN 2510 GOTO 2300 2520 IF I=11 THEN T$="IT SEZ :"+C$+"WELCOME TO FRONTIERTOWN." : RETURN 2530 GOTO 2410 2540 IF O$(10,2) ="-6" THEN O$(10,2) ="6" : T$="THAR'S A SET OF KEYS THAR!" : RETURN 2550 GOTO 2300 2560 B=INT(RND(1)*3+1) : ON B GOTO 2570,2580,2590 2570 T$="IT'S A BARREL CACTUS." : RETURN 2580 T$="IT'S A CHOLLA CACTUS." : RETURN 2590 T$="IT'S A SAGUARO CACTUS." : RETURN 2600 IF J=4 AND I=38 THEN 2740 2610 IF J <> 1 OR VAL(O$(1,3)) < 0 THEN T$="SORRY, BUT THAT AIN'T POSSIBLE." : RETURN 2620 IF I <> 38 THEN 2650 2630 IF O$(1,3) ="" THEN T$="TENDERFOOT! YA HAFTA LEAD 'IM FIRST." : RETURN 2640 GOTO 2740 2650 IF O$(1,3)="1" THEN 2150 2660 IF O$(7,3)="1" THEN IF I <> 16 THEN T$= "TRY 'LEAD.' : RETURN 2670 ON I-13 GOTO 2680,2690,2700,2730 2680 T$="HE GOT AWAY FROM YA." : RETURN 2690 T$="YER TOO SLOW, HE GOT AWAY." : RETURN 2700 IF O$(7,3) <> "1" THEN T$="BAD LUCK, YA TRIPPED AND HE RAN OFF." : O$(1,3)="" : O$(1,2) = STR$(L) : RETURN 2710 IF O$(1,3) ="" THEN 2050 2720 GOTO 2150 2730 T$="HE BUCKED YA OFF." : RETURN 2740 INPUT "WITH WHAT";QM$ : IF J=4 THEN 2780 2750 IF LEFT$(QM$+" ",3) <> "SAD" THEN T$="IT FELL OFF."+C$+"HE GOT AWAY.": O$(1,3)="" : IN=IN-1 : O$(1,2)= STR$(L) : RETURN 2760 IF O$(0,3)="1" THEN O$(0,3)="2" : IN=IN-1 : GOTO 1740 2770 GOTO 2150 2780 IF LEFT$(QM$+" ",3) <> "BUL" THEN 1730 2790 IF O$(8,3) <> "1" OR O$(4,3) <> "1" THEN 2150 2800 GOTO 400 2810 IF O$(J,3) <> "1" THEN 2150 2820 INPUT "ON OR IN WHAT? (IE 'ON TABLE') ";QM$ : P$=LEFT$(QM$+" ",2) : IF P$ <> "IN" AND P$ <> "ON" THEN T$="HUH?" : RETURN 2830 M1$=MID$(QM$,4,3) 2840 IF P$ <> "ON" THEN 2890 2850 IF M1$="MUL" THEN 2760 2860 IF J <> 13 THEN 2150 2870 IF LM=0 THEN T$="IT'S EMPTY." : RETURN 2880 LM=0 : GOTO 2150 2890 IF M1$ <> "SAD" THEN 2930 2900 IF J < 5 OR J=19 OR J=22 THEN T$="SORRY, IT DON'T FIT." : RETURN 2910 IF IM > 4 THEN T$= "THE BAGS 'R FULL." : RETURN 2920 O$(J,2)="-1" : O$(J,3)="" : IN=IN-1 : IM = IM+1 : T$="OK" : RETURN 2930 IF M1$ = "MUL" THEN T$="YA GOT KICKED !" : RETURN 2940 IF M1$ <> "LAN" THEN 1730 2950 IF O$(13,3) <> "1" OR O$(12,3) <> "1" THEN 2150 2960 IF LM=50 THEN LN=LN+50 : LM =0 : GOTO 400 2970 T$="JAR'S EMPTY." :RETURN 2975 T$="YOU DON'T HAVE IT.......":RETURN 2980 T$="YA CAN'T DO THAT... YET! 2990 PRINT T$ : T$="" : GOTO 370 3000 PRINT "YA GOT WITH YA: "; : IF IN=0 AND O$(1,3) <> "1" THEN T$="NOTHIN'" : RETURN 3010 B=VAL(O$(0,3)) : X1=B : IF B <> 1 THEN 3040 3020 PRINT : PRINT O$(0,0)", CONTAINING: "; 3021 FOR I=1 TO 22 3022 IF O$(I,2) <>"-1" GOTO 3030 3023 IF I=14 OR I=15 OR I=16 OR I=17 THEN PRINT "***"+O$(I,0)+"*** ";:GOTO 3025 3024 PRINT O$(I,0)+". "; 3025 X1=2 3030 NEXT : IF X1 <> 2 THEN PRINT "NOTHIN'! "; 3040 IF O$(1,3)="1" THEN PRINT : PRINT "THE MULE, WHICH YER LEADIN. "; : IF B=2 THEN PRINT "(CARRYIN' SADDLEBAGS) "; 3050 PRINT : X1=0 : FOR I=2 TO 22 : IF VAL(O$(I,3)) < 1 THEN 3080 3060 IF CL=1 AND I=12 THEN PRINT "LIT "; 3065 IF I=14 OR I=15 OR I=16 OR I=17 THEN PRINT "***"+O$(I,0)+"*** ";:GOTO 3080 3070 PRINT O$(I,0)". "; 3080 NEXT 3090 T$="" : RETURN 3100 IF L=19 THEN PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT "YA FELL 100 FEET 'N LANDED ON THE ROCKS." : PRINT:PRINT:PRINT" YER DEAD." : GOTO 3290 3110 IF J=23 OR J=32 OR M1$="P" THEN T$="OK" : RETURN 3120 GOTO 1730 3130 T$="WHERE?" : RETURN 3140 IF L=25 THEN L=26 : GOTO 400 3150 IF L=26 THEN L=25 3160 GOTO 400 3170 DATA ,,,,,,,,IN A MINER'S SHACK,WINDOW. DOOR,,1,3,3,,,IN A DESERT,ROAD. MOUNTAINS. DESERT,WNES,2,4,2,2,2,ON A DIRT PATH,MINER'SHACK. ROAD. MOUNTAINS," W ",5,1,4,7,2 3180 DATA ON A DIRT ROAD,MOUNTAINS. PATH. DESERT. TOWN,NE S,2,7,3,2,5,IN A GHOST TOWN,SALOON," N ",1,6,4,,,IN A SALOON,,W ,1,5,,, 3190 DATA AT THE SUPERSTITION MOUNTAINS,ROAD. DESERT,S N ,4,4,2,2,2,AT WEAVER'S NEEDLE,,NS ,1,9,7,, 3200 DATA IN A NARROW DEFILE,BUSHES. CAVES," NS",1,11,10,12,8,IN A SMALL CAVE,,E ,1,9,,,,BEHIND A BUSH,BUSH.,W ,1,9,,,,IN A BOX CANYON,BUSHES. TREES. BOULDERS," S",4,12,12,12,9 3210 DATA IN FRONT OF A HIDDEN MINE,MINE SHAFT,ESNW,8,14,12,12,12,IN THE MOUTH OF A DIM MINE,MINE SHAFT,EW ,1,15,13,,,IN A MINE,DARK TUNNEL,EW,6,16,14,, 3220 DATA AT THE END OF A TUNNEL,IRON DOOR," W ",1,17,15,,,IN A LARGE CHAMBER,IRON DOOR,WNES,1,16,19,18,20,IN A MAZE OF TUNNELS,,NSEW,6,18,18,18,18,IN FRONT OF A PIT,DARK HOLE," S ",7,23,17,, 3230 DATA AT AN INTERSECTION,," SNW",6,,22,17,21,IN A DEAD END TUNNEL,,E ,8,20,,,,IN A BLOCKED TUNNEL,,N ,8,20,,,,AT THE BOTTOM OF A SHAFT,WALLS,S ,8,24,,, 3240 DATA IN A TUNNEL,,NS ,6,23,25,,,AT THE END OF A TUNNEL,LADDER," N ",6,26,24,,,AT THE TOP OF A LADDER,,,6,1,25,, 3250 DATA SADDLEBAGS,2,1,MULE,,3,BURLAP SACK,4,14,SHOVEL,4,1,RIFLE,4,1,MAP,1,-25,GUN,1,-1,CARROTS,1,-1,BOX OF RIFLE BULLETS,1,-6,WHISKEY BOTTLES,2,6,KEYS,1,-6,PILE OF BONES (MINE),2,8 3260 DATA LANTERN,2,-8,JAR OF LIQUID,1,-11,SPANISH COINS,1,-10,TOURQUOISE,1,-23,SILVER,1,-21,GOLD,1,-22,MATCHES,1,-14,CRATES,3,17,NOTE,1,-17,PAPER,1,6,INDIANS,,11 3270 DATA ORE CART,,14,BED,,1,SIGN,,5,BROKEN GLASS,,6,TABLES,,6,CHAIRS,,6,ROCKS,,10,WOODEN RAILS,,15,CACTUS,,2,TRAP DOOR,,26 3280 DATA GO X,ENT,RUN,QUI,DIG,CLI,INV,JUM,DRO,GET,EXA,REA,LOO,MOV,CAT,CHA,LEA,RID,PUT,PLA,PIC,PUS,PUL,SHO,OPE,CLO,GIV,BUR,LIG,DRI,BRE,HIT,UNL,LOC,TAK,LIS,SAY,FEE,LOA,UNT,FOL,POU,EAT,NOR,SOU,EAS,WES 3290 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT: INPUT "DO YA WANNA TRY AGAIN";QM$ : IF LEFT$(QM$+" ",1)="Y" THEN RUN 3300 REM 3310 PRINT "TRY EXAM'NIN THIN'S." : RETURN 3320 PRINT "ROADS GO PLACES." : RETURN 3330 PRINT "MAYBE THE TRAIL GOES SOMEWHAR." : RETURN 3340 IF O$(5,3) <> "1" THEN PRINT "YA GOT A MAP?" :RETURN 3350 PRINT "TRY 'FOLLOW.'" : RETURN 3360 IF VAL(O$(1,2))=L THEN PRINT "THE MULE LOOKS THIN." : RETURN 3370 GOTO 3310 3380 PRINT "KEEP GOIN'." : RETURN 3390 PRINT "IT'S SLIPRY, BUTCHA MIGHT MAKE IT DOWN." : RETURN 3400 PRINT "THIS HERS'S A MINE, YA KNOW." : RETURN 3410 IF J=7 THEN T$="THEY TASTE PURTY GOOD." : RETURN 3420 T$="CAN'T DO THAT... WEIRDO !" : RETURN 3430 INPUT "SURE ";QM$ : IF LEFT$(QM$+" ",1) <> "Y" THEN 780 3440 GOTO 780 3450 END 4000 DIM INS$(200) 4005 LINES=30 4010 GOSUB 4100 4020 PRINT:PRINT:PRINT:INPUT "DO YOU WANT A HARD COPY? (Y OR N)";A$ 4030 IF A$="Y" GOTO 4070 4035 PRINT:PRINT:PRINT 4040 FOR X=1 TO LINES 4050 PRINT INS$(X) 4060 NEXT X 4065 PRINT:PRINT:PRINT:INPUT "HIT 'RETURN' TO CONTINUE.",A$ 4067 RETURN 4070 FOR X=1 TO LINES 4080 LPRINT INS$(X) 4090 NEXT X 4095 RETURN 4100 INS$(1)="TO WIN THIS GAME YOU HAVE TO CONSIDER EVERYTHING." 4110 INS$(2)="YOU HAVE TO EXAMINE,GET,DIG,FOLLOW,GO,ETC. EYERYWHERE." 4120 INS$(3)="THE LIST OF FIRST WORD COMMANDS ARE;" 4130 INS$(4)="GO ENTER RUN QUIT DIG CLIMB INVENTORY" 4140 INS$(5)="JUMP DROP GET EXAMINE READ LOOK MOVE" 4150 INS$(6)="CATCH CHASE LEAD RIDE PUT PLACE PICK" 4160 INS$(7)="PUSH PULL SHOOT OPEN CLOSE GIVE BURN" 4170 INS$(8)="LIGHT DRINK BREAK HIT UNLOCK LOCK TAKE" 4180 INS$(9)="LISTEN SAY FEED LOAD UNTIE FOLLOW POUR " 4190 INS$(10)="EAT NORTH SOUTH EAST WEST" 4200 INS$(11)="" 4210 INS$(12)="THIS LIST MAY NOT BE CORRECT, SOME OF THE WORDS MAY MEAN" 4220 INS$(13)="SOMETHING ELSE. YOU ONLY NEED THE FIRST THREE CHARACTERS" 4230 INS$(14)="OF EACH WORD TO BE UNDERSTOOD." 4240 INS$(15)="THE FIRST LINE OF WORDS CAN BE A SINGLE ENTRY." 4250 INS$(16)="YOU CAN ASK FOR 'SCORE' AND IT WILL TELL YOU,IF YOU ARE IN" 4260 INS$(17)="THE RIGHT PLACE." 4270 INS$(18)="ASK FOR 'HELP' IF YOU ARE STUCK." 4280 INS$(19)="'INVENTORY' WILL TELL YOU WHAT YOU ARE CARRYING." 4290 INS$(20)="IF YOU GET KILLED AND WANT TO RESTORE THE GAME TO WHERE YOU" 4300 INS$(21)="WERE BEFORE YOUR DEMISE, GOTO 370." 4310 INS$(22)="" 4320 INS$(23)="" 4330 INS$(24)="THE SECOND WORD OF YOUR COMMANDS ARE WHAT YOU SEE,EXITS,WHAT" 4340 INS$(25)="YOU ARE CARRYING,ETC." 4350 INS$(26)="SOME OTHERS ARE 'SELF''YOHO'" 4360 RETURN RE WHAT YOU SEE,EXITS,WHAT" 4340 INS$(25)="YOUOU WANT ANOTHER MISSION?";:PRINT SPACE$(30) 1000 Q$="":WHILE Q$="":Q$=INKEY$:WEND 1010 X=ASC(Q$):IF X>96 THEN X=X-32 1020 IF X<>89 THEN STOP 1030 GOTO 270 1040 Y5=0:X5=0:GOSUB 670 1050 PRINT CHR$(27)+"="+CHR$(32+P)+CHR$(32+Q); 1060 PRINT BLANK$+CHR$(0) 1070 RETURN 1080 T=T+1 1090 IF T>V8 THEN 1110 1100 RETURN 1110 IF X5>31 OR X5<7 THEN 1116 1112 X5=X5-1:Y5=Y5+1:GOSUB 1050: GOSUB 670:GOSUB 640: GOSUB 690: GOTO 1120 1116 X5=X5+1:Y5=Y5-1:GOSUB 1050:GOSUB 670:GOSUB 640:GOSUB 690:GOTO 1120 1120 IF10 REM POKER modified for OSBORNE by Jack Campin 8/1985. 15 REM This version has primitive graphics and randomising but should work 16 REM on any OSBORNE. 20 CLEAR 200:DIM A$(13):DEFINT A,D,Q,I,X,Y 30 REM 40 REM 50 PRINT CHR$(26); 60 C=20 70 X=10:Y=6:GOSUB 2140:PRINT"*** POKER ***" 80 FOR Q=1 TO 13:READ A$(Q):NEXT:FOR Q=0 TO 8:READ P(Q):NEXT 90 DATA A,2,3,4,5,6,7,8,9,10,J,Q,K,1,2,3,5,7,10,40,100,400 100 PRINT:PRINT TAB(8)"DO YOU WANT INSTRUCTIONS Y/N? 110 PRINT:PRINT TAB(10)"ENGAGE CAPS LOCK! 120 GOSUB 2160 130 IF A$="Y" THEN GOSUB 1310:GOTO 160 140 IF ASC(A$)>96 THEN 110 150 IF A$<>"N" THEN 120 160 PRINT CHR$(26):X=3:Y=12:GOSUB 2140 170 RANDOMIZE 180 GOTO 210 190 RANDOMIZE:C=20 200 FOR Q=0 TO 4:A(Q)=0:B(Q)=0:D(Q)=0:V(Q)=0:NEXT:M=0 210 GOSUB 1540 'select cards 220 PRINT CHR$(26); 230 GOSUB 2110 240 X=3:Y=2:GOSUB 2140:PRINT"PAYOUTS:"; 250 FOR I=1 TO 9:ON I GOTO 260,270,280,290,300,310,320,330,340 260 PRINT" HIGH PAIR -";:GOTO 350 270 PRINT TAB(14)"TWO PAIR-";:GOTO 350 280 PRINT TAB(14)"3 OF A KIND -";:GOTO 350 290 PRINT TAB(14)"STRAIGHT -";:GOTO 350 300 PRINT TAB(14)"FLUSH -";:GOTO 350 310 PRINT TAB(14)"FULL HOUSE -";:GOTO 350 320 PRINT TAB(14)"4 OF A KIND -";:GOTO 350 330 PRINT TAB(14)"STRAIGHT FLUSH -";:GOTO 350 340 PRINT TAB(14)"ROYAL FLUSH -";:GOTO 350 350 PRINT TAB(32) USING"### TO 1";P(I-1):NEXT 360 X=3:Y=12:GOSUB 2140:PRINT"PRESS [B] TO BET OR [D] TO DRAW" 370 F=0:FOR Q=0 TO 4:GOSUB 1680:NEXT Q 380 F=0:FOR Q=0 TO 4:GOSUB 1800:NEXT Q 390 GOSUB 2160:IF A$="D"THEN 430 400 IF A$<>"B"THEN 390 410 IF M>98 THEN 390 420 IF C>0 THEN C=C-1:M=M+1:GOSUB 2110:GOTO 390 430 IF C=0 AND M=0 THEN 2160 440 IF M=0 THEN 390 450 F=8:FOR Q=0 TO 4:GOSUB 1800:GOSUB 1870:NEXT 460 X=3:Y=12:GOSUB 2140 470 PRINT"PRESS [1] TO [5] TO HOLD OR [S] TO SIT OR [D] TO DRAW:" 480 GOSUB 2160 490 'IF A$="C"THEN FOR I=0 TO 4:V(I)=0:NEXT:X=3:Y=11:GOSUB 1540:PRINT STRING$(78,32):GOTO 750 500 IF A$="S"THEN 610 510 IF A$="D"THEN 550 520 IF A$<"1" OR A$>"5"THEN 480 530 A=VAL(A$) 540 V(A-1)=1:X=(A-1)*16+5:Y=21:GOSUB 2140:PRINT"HELD";:GOTO 480 550 FOR Q=0 TO 4:IF V(Q)=0 THEN B(Q)=Q+1:F=0:GOSUB 1800 560 NEXT:'FORI=1TO500:NEXT 570 X=0:Y=21:GOSUB 2140:PRINT STRING$(78,32); 580 X=0:Y=12:GOSUB 2140:PRINT STRING$(78,32) 590 FOR Q=0 TO 4:IF V(Q)=0 THEN F=0:GOSUB 1560:GOSUB 1620:F=8:GOSUB 1800:GOSUB 1870 600 NEXT 610 REM Put cards in order 620 FOR I=1 TO 4:FOR J=0 TO I-1 630 IF A(J)> A(I) THEN K=A(I):A(I)=A(J):A(J)=K 640 NEXT J 650 NEXT I 660 REM Check for wins 670 X=0:Y=20:GOSUB 2140:PRINT STRING$(78,32) 680 X=0:Y=11:GOSUB 2140:PRINT STRING$(78,32) 690 T=1:V=0 700 ON T GOSUB 730,760,800,870,900 710 IF V=0 THEN T=T+1:IF T<>6 THEN 700 720 GOTO 930 730 IF A(0)=A(1) AND A(1)=A(2) AND A(2)=A(3) THEN V=1 740 IF A(1)=A(2) AND A(2)=A(3) AND A(3)=A(4) THEN V=1 750 RETURN 760 IF A(0)=A(1) AND A(1)=A(2) THEN V=2:IF A(3)=A(4) THEN V=V+1 770 IF A(1)=A(2) AND A(2)=A(3) THEN V=2 780 IF A(2)=A(3) AND A(3)=A(4) THEN V=2:IF A(0)=A(1) THEN V=V+1 790 RETURN 800 P=0:IF A(0)=A(1) THEN P=P+1:N=A(0) 810 IF A(1)=A(2) THEN P=P+1:N=A(1) 820 IF A(2)=A(3) THEN P=P+1:N=A(2) 830 IF A(3)=A(4) THEN P=P+1:N=A(3) 840 IF P=2 THEN V=4 850 IF P=1 AND (N>10 OR N=1)THEN V=7 860 RETURN 870 IF D(0)=D(1) AND D(1)=D(2) AND D(2)=D(3) AND D(3)=D(4) THEN V=5:GOSUB 900 880 IF V=6 THEN V=8 890 RETURN 900 IF A(0)+1=A(1) AND A(1)+1=A(2) AND A(2)+1=A(3) AND A(3)+1=A(4) THEN V=V+6 910 IF A(0)=1 AND A(1)+A(2)+A(3)+A(4)=46 THEN V=6 920 RETURN 930 IF V>0 THEN 960 ELSE IF C=0 THEN 1260 940 X=3:Y=12:GOSUB 2140:PRINT"YOU LOST. PRESS ANY KEY TO CONTINUE: 950 X=0:Y=12:GOSUB 2140:PRINT STRING$(78,32):GOSUB 2160:GOTO 200 960 X=3:Y=21:GOSUB 2140:ON V GOTO 970,980,990,1000,1010,1020,1030,1040,20,20,1050 970 PRINT"FOUR OF A KIND";:E=P(6)*M:GOTO 1060 980 PRINT "THREE OF A KIND";:E=P(2)*M:GOTO 1060 990 PRINT "FULL HOUSE";:E=P(5)*M:GOTO 1060 1000 PRINT "TWO PAIR";:E=P(1)*M:GOTO 1060 1010 PRINT "FLUSH";:E=P(4)*M:GOTO 1060 1020 PRINT "STRAIGHT";:E=P(3)*M:GOTO 1060 1030 PRINT "HIGH PAIR";:E=M:GOTO 1060 1040 PRINT "ROYAL FLUSH";:E=P(8)*M:GOTO 1060 1050 PRINT "STRAIGHT FLUSH";:E=P(7)*M:GOTO 1060 1060 PRINT ". YOU HAVE WON"E; 1070 X=3:Y=12:GOSUB 2140:PRINT"PRESS [C] TO COLLECT OR [D] TO DOUBLE: 1080 GOSUB 2160 1090 IF A$="D" THEN 1140 1100 IF A$<>"C" THEN 1080 ELSE I=0:B=C+E 1110 C=C+1:PRINT CHR$(7):I=I+1:GOSUB 2110 1120 IF I<20 THEN FOR J=1 TO 300:NEXT ELSE IF I>60 THEN C=B:GOTO 200 1130 IF C"B" AND A$<>"S" THEN 1180 1200 F=8:GOSUB 1800:GOSUB 1870:X=13:Y=8:GOSUB 2140:PRINT "YOU BET ";:IF A$="B" THEN PRINT "BIGGER" ELSE PRINT "SMALLER" 1210 IF A$="B" AND(A(2)>8 OR A(2)=1) THEN 1240 1220 IF A$="S" AND A(2)<8 THEN 1240 1230 X=9:Y=10:GOSUB 2140:PRINT "BAD LUCK! YOU LOST":IF C<1 THEN 1260 ELSE 940 1240 X=3:Y=10:GOSUB 2140:PRINT "CONGRATULATIONS! YOU HAVE WON"E*2:E=E*2:GOTO 1070 1250 REM Finish routine 1260 X=3:Y=12:GOSUB 2140:PRINT"TOO BAD. BETTER LUCK NEXT TIME. DO YOU WANT ANOTHER GO Y/N? 1270 GOSUB 2160 1280 IF A$="Y" THEN PRINT CHR$(26):GOTO 190 ELSE IF A$<>"N" THEN 1270 1290 GOTO 2180 1300 REM Instructions 1310 PRINT CHR$(26); 1320 PRINT TAB(12)"*** POKER ***" 1330 PRINT:PRINT "This game is very simple to play. 1340 PRINT 1350 PRINT"You start with"C"credits and you bet on each hand. 1360 PRINT 1370 PRINT"Maximum bet is the amount of your credits or 98. 1380 PRINT 1390 PRINT"You then draw your cards and select the cards you want to hold. 1400 PRINT 1410 PRINT"Then you draw cards again and you are told if you have won. 1420 PRINT 1430 PRINT"If you win you then have the choice of collecting your winnings or 1440 PRINT"taking a chance to double them by guessing whether a single card is 1450 PRINT"higher or lower than 8 (you lose if it is an 8). 1460 PRINT 1470 PRINT"Play comtinues until you are out of credits. 1480 PRINT 1490 PRINT TAB(10)"Press [RETURN] to begin" 1500 GOSUB 2160:IF A$<>CHR$(13) THEN 1500 1510 PRINT CHR$(26); 1520 RETURN 1530 REM Select 5 cards 1540 FOR Q=0 TO 4:GOSUB 1560:GOSUB 1620:NEXT Q 1550 RETURN 1560 REM Card selection 1570 A(Q)=RND*12+1 1580 D(Q)=RND*3+1 1590 'IF D(Q)>4 THEN D(Q)=D(Q)/2 1600 B(Q)=A(Q)+D(Q)*20 1610 RETURN 1620 REM Card check 1630 FOR I=0 TO 4 1640 IF I=Q THEN 1660 1650 IF B(I)=B(Q) THEN GOSUB 1570:GOTO 1630 1660 NEXT I 1670 RETURN 1680 REM Draw card outline 1690 W=16:G=11 1700 X=Q*16+1:Y=14:GOSUB 2140 1710 REM 1720 PRINT CHR$(45);STRING$(11,45);CHR$(45); 1730 FOR L=15 TO 20:X=Q*16+1:Y=L:GOSUB 2140 1740 PRINT CHR$(124);STRING$(11,32);CHR$(124) 1750 NEXT L 1760 X=Q*16+1:Y=20:GOSUB 2140 1770 PRINT CHR$(45);STRING$(11,45);CHR$(45); 1790 RETURN 1800 REM Fill in card 1810 FOR I=15 TO 19:X=Q*16+2:Y=I:GOSUB 2140 1820 IF F=8 THEN 1840 1830 PRINT STRING$(11,42):GOTO 1850 1840 PRINT STRING$(11,32) 1850 NEXT I 1860 RETURN 1870 REM Print the card value 1880 ON D(Q) GOTO 1900,1950,2000,2050 1890 RETURN 1900 X=Q*16+5:Y=17:GOSUB 2140:PRINT"HEART 1910 X=Q*16+3:Y=19:GOSUB 2140:PRINT USING"\\";A$(A(Q)) 1920 X=Q*16+10:Y=15:GOSUB 2140 1930 IF A(Q)<>10 THEN PRINT USING" !";A$(A(Q)) ELSE PRINT"10"; 1940 RETURN 1950 X=Q*16+5:Y=17:GOSUB 2140:PRINT"SPADE 1960 X=Q*16+3:Y=19:GOSUB 2140:PRINT USING"\\";A$(A(Q)) 1970 X=Q*16+10:Y=15:GOSUB 2140 1980 IF A(Q)<>10 THEN PRINT USING" !";A$(A(Q)) ELSE PRINT "10"; 1990 RETURN 2000 X=Q*16+5:Y=17:GOSUB 2140:PRINT"CLUBS" 2010 X=Q*16+3:Y=19:GOSUB 2140:PRINT USING"\\";A$(A(Q)) 2020 X=Q*16+10:Y=15:GOSUB 2140 2030 IF A(Q)<>10 THEN PRINT USING" !";A$(A(Q)) ELSE PRINT"10"; 2040 RETURN 2050 X=Q*16+4:Y=17:GOSUB 2140:PRINT"DIAMOND 2060 X=Q*16+3:Y=19:GOSUB 2140:PRINT USING"\\";A$(A(Q)) 2070 X=Q*16+10:Y=15:GOSUB 2140 2080 IF A(Q)<>10 THEN PRINT USING" !";A$(A(Q)) ELSE PRINT"10"; 2090 RETURN 2100 REM Update bets & credits 2110 C$="CREDITS ###,###":IF C>999999! THEN C=C-1000000# 2120 X=9:Y=0:GOSUB 2140:PRINT USING"BETS ##";M; 2130 X=33:Y=0:GOSUB 2140:PRINT USING C$;C:RETURN 2140 PRINT CHR$(27)+"="+CHR$(32+Y)+CHR$(32+X);:RETURN 'Cursor posn. 2150 REM Inkey routine 2160 A$=INKEY$:IF A$=""THEN 2160 2170 RETURN 2180 PRINT CHR$(26):PRINT"GOODBYE 2190 REM sor posn. 2150 REM Inkey routine 2160 A$=INKEY$:IF A$=""THEN 2160 2170 RETURN 2180 PRINT CHR$(26):PRINT"GOODBless you're a stickler for complete accounting accuracy, you can live with this, although your earnings will be lower because you must continue to pay daily interest of $1000 on each $100,000 loan that the program does not permit you to repay. To run, copy GUSHER.COM to a disk that has been sysgened. Place the disk in the A Drive. At the CP/M A> prompt type GUSHER and press the carriage return. Follow the menu. jSXxxch|-x{_zW}o|gx"0p".px!.p~w#=x6xIxjxUJ!Upqx!UptxF#~怩Oäx 4Uxgo"Rp"TpͲxs#r#q#pxͼxͧxx"Rp`i"Tp*Rp*TpDM^#V#N#F#xyx:Up:Tp7|/G}/O!>x x7>{_zW}o|2 PRINT CHR$(26) 5 RANDOMIZE 7 PRINT CHR$(26) 10 PRINT:PRINT TAB(18);"Space Adventure!" 15 PRINT:PRINT TAB(20);"by Dan Daetz" 20 PRINT:PRINT"**************************************************" 25 PRINT:PRINT" This is a computer adventure for the Osborne" 26 PRINT"Computer. The object is to deliver secret plans" 27 PRINT"to an Earth outpost in outer space. On the way," 28 PRINT"you may encounter hostile (and friendly) aliens," 29 PRINT"treacherous asteroid fields, and other dangers." 30 PRINT"If you succeed, you will gain fame and fortune," 31 PRINT"but if you fail the mission, it's curtains for" 32 PRINT"you!" 33 PRINT:PRINT" What is your current ranking?:" 34 PRINT" 1. Ensign" 35 PRINT" 2. Lieutenant" 36 PRINT" 3. Commander" 37 PRINT" 4. Captain" 38 PRINT" 5. Commodore" 39 INPUT R:IF R>5 OR R<1 THEN 33 40 ON R GOTO 41,42,43,44,45 41 R$="Ensign":GOTO 50 42 R$="Lieutenant":GOTO 50 43 R$="Commander":GOTO 50 44 R$="Captain":GOTO 50 45 R$="Commodore":GOTO 50 50 PRINT CHR$(26) 55 PRINT"What is your name, ";R$;"?":INPUT N$ 60 PRINT:PRINT"My greetings to you, ";R$;" ";N$;"!" 65 PRINT:PRINT:PRINT" You may choose from several different Star" 66 PRINT"Cruisers for your mission, or you may create your" 67 PRINT"own. The characteristics of each are shown below:" 68 PRINT:PRINT"_____________Name________Sp._FP__Sh.__EL___" 69 PRINT" Ship 1: USS Antares 5 1 4 10 70 PRINT" Ship 2: USS Discovery 3 3 4 10 71 PRINT" Ship 3: USS Starfire 2 5 3 10 72 PRINT" Ship 4: (Your own) Sp.+FP+Sh.=10" 73 PRINT:PRINT" Sp.=Speed FP=Firepower Sh.=Shielding" 74 PRINT" EL=Energy Level (begins at 10 for all ships) 75 PRINT:PRINT"What ship number would you like, ";R$;"?" 80 INPUT S:IF S>4 OR S<1 THEN GOTO 75 85 ON S GOTO 90,92,94,96 89 REM *** SHIP CHARACTERISTICS 90 S$="Antares":S1=5:S2=1:S3=4:S4=10:GOTO 110 92 S$="Discovery":S1=3:S2=3:S3=4:S4=10:GOTO 110 94 S$="Starfire":S1=2:S2=5:S3=3:S4=10:GOTO 110 96 PRINT CHR$(26):PRINT"Enter ship name:":INPUT S$ 97 PRINT"Enter 'Speed' value:":INPUT S1:IF S1<1 THEN GOTO 97 98 PRINT"Enter 'Firepower' value:":INPUT S2:IF S2<1 THEN GOTO 98 99 PRINT"Enter 'Shielding' value:":INPUT S3:IF S3<1 THEN GOTO 99 100 IF S1+S2+S3<>10 THEN PRINT"*** Your ship characteristics do not total 10 ***":GOTO 97 102 PRINT:PRINT"Are you satisfied with your ship (Y/N)?":INPUT Q1$ 103 IF Q1$="N" THEN GOTO 96 104 S4=10:GOTO 110 110 PRINT CHR$(26):PRINT"Just to remind you, ";R$;" ";N$;", your ship," 111 PRINT"the USS ";S$;", has the following traits:" 112 PRINT"Speed= ";S1;" Firepower= ";S2;" Shielding= ";S3 113 PRINT" Energy Level= ";S4 115 SH=INT(5*RND(1)+3) 116 PRINT"Your ship has";SH;"shuttlecraft available." 120 PRINT:PRINT:PRINT"In addition to your ship, you will also be" 122 C=INT(25*RND(1)+10) 124 PRINT"provided with ";C;" crewmen to help you. However," 125 PRINT"if all your crewmen die, you will be virtually" 126 PRINT"helpless." 127 PRINT"In addition, you should treat them fairly, or they" 128 PRINT"may turn against you." 130 PRINT:PRINT:PRINT"Are you ready to begin your mission";:INPUT Q2$ 131 IF LEFT$(Q2$,1)="Y" THEN GOTO 150 135 PRINT"OK, ";R$;" ";N$;", take a short break and" 137 PRINT"press 'Return' when ready.": INPUT I1: GOTO 200 150 GOTO 200 200 PRINT CHR$(26) 205 PRINT"You have just been handed the secret plans, ";R$ 206 PRINT N$;". You must deliver these plans as soon as" 207 PRINT "possible to the Earth outpost station (which is" 208 D=INT(75*RND(1)+50) 209 T=1:V=0:P=1:M=100 210 PRINT D;" star units away). " 211 PRINT:PRINT"It is now Day 1. You may blast off in your ship" 212 PRINT"immediately or you may spend a day inspecting the" 213 PRINT S$;" before launch. Do you want to make the" 214 PRINT"inspection, ";R$;" ";N$;:INPUT Q3$ 215 IF LEFT$(Q3$,1)="N" THEN GOTO 230 216 M=M-5 217 IF INT(3*RND(1)+1)<3 THEN GOTO 220 218 PRINT:PRINT"You have found a minor malfunction, but luckily" 219 PRINT"manage to fix it before launch.":V=50:GOTO 225 220 PRINT:PRINT"You find nothing unusual, and your ship is now" 221 PRINT"ready for launch.":V=15 225 T=T+1 230 PRINT:PRINT R$;" ";N$;", it is now Day ";T;". The USS" 231 PRINT S$;" and your crew of ";C;" are ready for launch" 232 PRINT"and are awaiting your order. Press 'Return' to" 233 PRINT"launch, ";R$;:INPUT I2 235 PRINT CHR$(26) 240 PRINT:PRINT"10...9...8...7...6...5...4...3...IGNITION!...1..." 245 PRINT"... L A U N C H ! ! !" 246 IF INT (100*RND(1))<((30*(SQR(R)/2))-V) THEN GOTO 250 247 GOTO 275 250 PRINT:PRINT:PRINT:PRINT:PRINT".....fizzle.....fizzle......fizzle......" 251 PRINT:PRINT"YELLOW ALERT! YELLOW ALERT!" 252 PRINT:PRINT R$;" ";N$;"! The number 3 ion drive seems to" 253 PRINT"be overheating! Should we shut it down";:INPUT Q4$ 255 IF LEFT$(Q4$,1)="Y" THEN GOTO 265 256 IF INT(100*RND(1))<75 THEN GOTO 258 257 PRINT:PRINT"Luckily, the ion drive cooled down, and the launch continued successfully.": GOTO 275 258 IF INT(4*RND(1)+1)=4 THEN GOTO 260 259 GOTO 261 260 PRINT"Sorry, ";R$;" ";N$;", but the drive exploded!":GOTO 5000 261 PRINT"RED ALERT! RED ALERT! We need immediate shutdown";:INPUT Q5$ 262 IF LEFT$(Q5$,1)<>"Y" THEN GOTO 260 263 PRINT"We managed to shut down the drive, but suffered 1" 264 PRINT"point of Speed damage.":S1=S1-1:S4=S4-1:GOTO 275 265 IF INT(3*RND(1))=2 THEN GOTO 267 266 PRINT"The drive has been shut down, and the launch is now continuing as planned.":GOTO 275 267 PRINT:PRINT"RED ALERT! RED ALERT! Drive will not shut down!" 268 PRINT"Should we attempt manual override, ";R$;:INPUT Q7$ 269 IF LEFT$(Q7$,1)="N" THEN GOTO 256 270 IF INT(4*RND(1)+1)=4 THEN GOTO 260 272 GOTO 266 275 PRINT:PRINT"The ";S$;" is now in Earth orbit, ";R$;"." 300 T=T+1:D=D-S1:M=M-1 302 FOR W=1 TO 3000:NEXT W 304 PRINT CHR$(26) 305 PRINT 310 PRINT R$;" ";N$;", it is now Day ";T;" of your" 311 PRINT"mission, and the ";S$;" is ";D;" space units" 312 PRINT"from the outpost." 313 PRINT SH;"shuttlecraft remain.":PRINT 314 S4=S1+S2+S3 315 PRINT"Sp.=";S1;" FP=";S2;" Sh.=";S3;" EL=";S4;" Crew=";C 316 PRINT"Morale is at ";M;"%." 317 PRINT 318 GOSUB 320 319 GOTO 400 320 IF INT(100*RND(1))>M THEN GOTO 4200 321 PRINT:PRINT" *** Status Report ***":PRINT 322 IF C=<0 THEN GOTO 4030 323 IF S4=<0 THEN GOTO 5000 325 IF S1=<0 THEN GOTO 3950 330 IF S2=<0 THEN GOTO 4010 335 IF S3=<0 THEN GOTO 4020 340 IF SH<=0 THEN GOTO 4025 345 IF D=<8 THEN GOTO 4100 347 IF P=0 THEN GOTO 4250 360 PRINT"Nothing else to report, ";R$;" ";N$;".":RETURN 400 PRINT:PRINT"Press 'Return' to discover the day's proceedings";:INPUT I 405 PRINT CHR$(26) 410 REM *** Aliens? 415 IF INT(100*RND(1))<(10*(SQR(R)/2)) THEN GOTO 500 420 REM *** Asteroid field? 425 IF INT(100*RND(1))<(10*(SQR(R)/2)) THEN GOTO 700 430 REM *** Black Hole? 435 IF INT(100*RND(1))<(10*(SQR(R)/2)) THEN GOTO 850 440 REM *** Planet? 445 IF INT(100*RND(1))<(10*(SQR(R)/2)) THEN GOTO 1000 450 REM *** Space Mine? 455 IF INT(100*RND(1))<(10*(SQR(R)/2)) THEN GOTO 1200 460 REM *** Plague/Disease? 465 IF INT(100*RND(1))<(15*(SQR(R)/2)) THEN GOTO 1400 470 REM *** Computer Failure? 475 IF INT(100*RND(1))<(15*(SQR(R)/2)) THEN GOTO 1600 480 REM *** Radiation Field? 485 IF INT(100*RND(1))<(15*(SQR(R)/2)) THEN GOTO 1800 490 PRINT CHR$(26):PRINT R$;" ";N$;", nothing of interest occurred today." 492 PRINT:GOTO 300 500 PRINT"You have encountered an alien ship during your" 505 A=INT(4*RND(1)+1) 507 REM*** If A=1 or 2, friendly; 3=hostile; 4=pirates 509 ON A GOTO 510,520,530,540 510 REM***Friendly aliens#1 511 A1=5:A3=INT(4*RND(1)+1):A2=5-A3:A4=10 512 H=0:PR=0 515 GOTO 550 520 REM***Friendly aliens #2 521 A3=5:A1=INT(4*RND(1)+1):A2=5-A1:A4=10 522 H=0:PR=0 525 GOTO 550 530 REM***Hostile aliens 531 A2=5:A3=INT(4*RND(1)+1):A1=5-A3:A4=10 532 H=1:PR=0 535 GOTO 550 540 REM***Pirates 541 A1=5:A2=INT(4*RND(1)+1):A3=5-A2:A4=10 542 H=0:PR=1 545 GOTO 550 550 PRINT"journey. What do you wish to do?" 552 PRINT:PRINT"1. Attack 2. Wait 3. Communicate 4.Escape" 553 PRINT"5. Scan the alien ship.":PRINT"What is your choice, ";R$;:INPUT B 554 PRINT CHR$(26):IF SD0=1 THEN S3=SD1:SD0=0 555 ON B GOTO 559,600,630,660,690 557 GOTO 552 559 IF S2<=0 THEN PRINT"Negative. No firepower. Re-select.":GOTO 552 560 IF INT(100*RND(1))>(20*(SQR(R)/2)) THEN GOTO 577 561 PRINT"Your attack on the aliens failed, ";R$;".":M=M-2 562 IF INT(100*RND(1))<(20*(SQR(R)/2)) AND A2>0 THEN GOSUB 564:GOTO 572 563 PRINT"The alien attack had no effect on the ";S$;".":M=M+3:GOTO 552 564 DA=INT(2*RND(1)+1)+A2-S3:IF DA<0 THEN DA=0 565 DP=INT(3*RND(1)+1):ON DP GOTO 566,568,570 566 D$="speed":S1=S1-DA:IF S1<0 THEN S1=0 567 D1=S1:RETURN 568 D$="firepower":S2=S2-DA:IF S2<0 THEN S2=0 569 D1=S2:RETURN 570 D$="shielding":S3=S3-DA:IF S3<0 THEN S3=0 571 D1=S3:RETURN 572 S4=S1+S2+S3:IF S4=<0 THEN GOTO 5000 573 PRINT"The alien attack did ";DA;" points damage to your":M=M-DA 574 PRINT D$;" generator (";D$;" is now = ";D1;" )." 575 IF RND(1)<.25 AND SH<>0 THEN PRINT"The attack also destroyed a shuttle (";SH-1;"remain).":SH=SH-1 576 GOTO 552:REM *** Damage to Aliens Below 577 DS=INT(3*RND(1)+1)+S2-A3:IF DS<0 THEN DS=0 579 DP2=INT(3*RND(1)+1):ON DP2 GOTO 582,585,588 582 A1=A1-DS:IF A1<0 THEN A1=0 583 GOTO 590 585 A2=A2-DS:IF A2<0 THEN A2=0 586 GOTO 590 588 A3=A3-DS:IF A3<0 THEN A3=0 590 A4=A1+A2+A3 592 PRINT"Your attack did ";DS;" points damage to the aliens.":M=M+DS 594 IF A4=<0 THEN PRINT"Aliens destroyed!!!":M=M+5:GOTO 596 595 GOTO 562 596 IF INT(3*RND(1)+1)<=2 THEN GOTO 300 597 S3=S3-INT(3*RND(1)+1):IF S3<0 THEN S3=0 598 S4=S1+S2+S3:PRINT"The explosion of the alien ship damaged your" 599 PRINT"shielding generator (it is now ";S3;").":GOTO 300 600 PRINT:PRINT"Waiting, ";R$;" ";N$;"...." 601 FOR W=1 TO 3000 602 NEXT W 605 IF H=1 THEN PRINT"The aliens attacked the ";S$;"!!!":GOTO 562 607 IF INT(3*RND(1)+1)=3 THEN GOTO 635 609 PRINT"The aliens waited, too.":GOTO 552 630 IF H=0 THEN GOTO 635 631 IF INT(3*RND(1)+1)=3 THEN PRINT"The aliens say that they will only let you be if":GOTO 633 632 PRINT"The aliens will not talk to you, and attack.":GOTO 562 633 PRINT"you give them the secret plans. Will you (Y/N)";:INPUT Q11$:IF Q11$="N" THEN GOTO 632 634 PRINT"The aliens are given the plans and leave.":P=0:GOTO 300 635 PRINT"The aliens wish to communicate with you." 637 IF INT(3*RND(1)+1)=3 THEN PRINT"They simply want you to let them go their own way.":GOTO 300 638 PRINT"They want to come on board to talk.Your response";:INPUT Q12$ 639 IF Q12$="Y" THEN GOTO 642 640 IF PR=1 THEN PRINT"Insulted, these pirates attack!":GOTO 562 641 GOTO 637 642 PRINT"The aliens come aboard and chat for a while." 643 IF PR=0 THEN GOTO 650 644 PRINT"Suddenly, one of them grabs the plans and runs off" 645 PRINT"with the others. Should we try to get them back";:INPUT Q13$ 646 IF Q13$="N" THEN P=0:GOTO 300 647 CK=INT(5*RND(1)):IF CK>C THEN GOTO 647 648 IF INT(3*RND(1)+1)=3 THEN PRINT"You succeeded, but ";CK;" of your crewmen were killed.":C=C-CK:P=1:GOTO 300 649 PRINT"You failed, and ";CK;" of your crewmen were killed.":C=C-CK:P=0:GOTO 300 650 IF P=0 THEN PRINT"The aliens also return the plans you had lost (and":GOTO 652 651 GOTO 653 652 PRINT"which they found). They then leave.":P=1:GOTO 300 653 IF S1=<1 THEN PRINT"The aliens also repaired your speed generator.":S1=S1+INT(4*RND(1)+1):GOTO 656 654 IF S2=<0 THEN PRINT"The aliens also repaired your firepower generator.":S2=S2+INT(4*RND(1)+1):GOTO 656 655 IF S3=<0 THEN PRINT"The aliens also repaired your shielding generator.":S3=S3+INT(4*RND(1)+1):GOTO 656 656 CG=INT(10*RND(1)+1):PRINT"Before leaving, the aliens give you a gift of ";CG 657 PRINT"crewmen to help you.":C=C+CG:M=M+10:GOTO 300 660 IF S1>=A1 THEN PRINT"You escape successfully, ";R$;".":GOTO 300 665 PRINT"The alien ship is faster than yours. Should we" 666 PRINT"try to escape anyway";:INPUT Q14$ 668 IF Q14$="N" THEN GOTO 552 670 IF INT(100*RND(1))<(50*(SQR(R)/2)) THEN PRINT"The attempt fails, and the angered aliens attack.":GOTO 562 675 PRINT"Your escape succeeded!!!":GOTO 300 690 PRINT"The alien ship has the following characteristics:":SD1=S3:S3=0:SD0=1 691 PRINT"Sp.=";A1;" FP=";A2;" Sh.=";A3;" EL=";A4 692 IF H=1 THEN GOTO 695 693 PRINT:PRINT"The alien ship did not react to your scan.":GOTO 552 695 PRINT:PRINT"While you were scanning, the aliens attacked!":GOTO 562 700 PRINT R$;" ";N$;", we have encountered an asteroid" 705 PRINT"field. Shall we:" 707 PRINT"1. Navigate through it" 708 PRINT"2. Try to go around it; or" 709 PRINT"3. Clear a path with our lasers" 710 INPUT AS:PRINT:ON AS GOTO 720,750,770:GOTO 710 720 SR=((40+S1)*(2/SQR(R))):PRINT"Aye, aye, sir. Success rate calculated at ";SR;"%" 725 PRINT:PRINT"Here we go..." 726 FOR W=1 TO 3000 727 NEXT W 730 IF (100*RND(1))=S2 THEN PRINT"Luckily, though, our shielding absorbed them.":GOTO 300 778 GOTO 732 780 PRINT:PRINT"We successfully blasted through the asteroid field.":GOTO 300 850 PRINT"We have been pulled in by a black hole, ";R$"!" 851 PRINT"The G-forces are almost tearing the ";S$;" apart!" 852 PRINT"We're going in...":FOR W=1 TO 3000:NEXT W 855 IF INT((2/SQR(R))*RND(1)+S4)=<5 THEN GOTO 5000 860 BH=INT(30*RND(1)-10):D=D-BH:IF D=<0 THEN GOTO 860 862 PRINT:PRINT"We emerged from the black hole. We are now ";D 865 PRINT"space units from the Earth outpost.":GOTO 305 1000 PRINT"You have discovered a new planet! Should we:" 1005 PRINT:PRINT" 1. Land to investigate" 1006 PRINT" 2. Use the planet's gravitational pull to" 1007 PRINT" accelerate the ";S$;"; or" 1008 PRINT" 3. Just take scientific measurements" 1010 PRINT"Your choice";:INPUT PL:ON PL GOTO 1020,1080,1120 1015 GOTO 1010 1020 IF C<=0 THEN PRINT"Sorry, ";R$;", but there are no more crewmen":GOTO 1023 1021 GOTO 1024 1023 PRINT"left for an expedition. Re-select.":GOTO 1010 1024 IF SH<=0 THEN PRINT"Sorry, but no shuttles remain. Re-select.":GOTO 1010 1025 PE=INT(5*RND(1)+1):IF C-PE<0 THEN GOTO 1025 1027 PRINT:PRINT"Aye, aye, ";R$;". ";PE;" of your crewmen are in" 1028 PRINT"the planetary shuttle and are ready for the landing." 1030 PRINT"Press 'Return' to launch the shuttle.":INPUT I 1035 PRINT:PRINT"Shuttle entering atmosphere...":FOR W=1 TO 2000:NEXT W 1036 IF INT(5*RND(1)+1)=5 THEN PRINT"SHIELDING MALFUNCTION! The shuttle burned up in":GOTO 1038 1037 GOTO 1040 1038 PRINT"the atmosphere, and all ";PE;" crewmen were killed!":C=C-PE:SH=SH-1:M=M-20:GOTO 300 1040 PRINT"...landing successful!" 1041 PRINT"The crew is now going out to investigate..." 1043 FOR W=1 TO 1000:NEXT W 1045 PR=INT(4*RND(1)+1):ON PR GOTO 1046,1051,1057,1065 1046 PRINT"The crew has found some strange leaves. Should they" 1047 PRINT"take them aboard";:INPUT Q15$:IF Q15$="N" THEN GOTO 1070 1048 IF INT(3*RND(1)+1)=3 THEN PRINT"The leaves were poisonous, and the crew died.":C=C-PE:SH=SH-1:M=M-10:GOTO 300 1049 PRINT"They seem to have mysterious healing properties.":ML=1:GOTO 1070 1051 H=0 1052 PRINT"You have encountered strange, alien beings on the" 1053 PRINT"planet. Will you: 1. Be friendly, or 2. Attack":INPUT PA:ON PA GOTO 1054,1059:GOTO 1052 1054 IF H=0 THEN PRINT"The aliens gave you 5 crewmen and Quyzlapvox Crystals (used for warp travel).":C=C+5:S1=S1+5:GOTO 1070 1055 PRINT"The aliens attacked and killed the entire crew!":SH=SH-1:M=M-10:GOTO 300 1057 H=1:GOTO 1052 1059 IF H=0 AND P=0 THEN PRINT"You killed the aliens and found the secret plans!":GOTO 1070 1060 IF H=0 AND P=1 THEN PRINT"You killed the aliens,but they had nothing of value.":GOTO 1070 1061 PRINT"You killed the aliens, and you find a mysterious" 1062 PRINT"black box.":S2=S2+3:S3=S3+2:GOTO 1070 1065 PRINT"Your crew found nothing unusual, ";R$;".":M=M+10:GOTO 1070 1070 PRINT:PRINT"Your crew has returned successfully to the ship" 1071 PRINT"with their findings.":GOTO 300 1080 IF INT(S1*RND(1)+1)=1 THEN PRINT"You approached to close to the planet, were":GOTO 1083 1081 GOTO 1090 1083 PRINT"pulled in by its gravity, and eventually crashed" 1084 PRINT"into the alien world. R.I.P.":FOR W=1 TO 3000:NEXT W:GOTO 5000 1090 PRINT"The planet's gravity sent you shooting through" 1092 D=D-5:S1=S1+1 1094 PRINT"space at ";S1;" units per turn.":GOTO 300 1120 PRINT"You made several new scientific discoveries, and" 1122 PRINT"your crew's spirits were lifted.":M=M+20:GOTO 300 1200 PRINT"Forward scanners have detected a pulsating object" 1201 SO=INT(4*RND(1)+1) 1202 REM *** If SO=1 or 2 -- drifting ship 3 -- Mine 1203 REM *** If SO=1 or 2 -- Space Mine ... 3 -- Derelict Ship ... 4 -- Asteroid 1205 PRINT"in the distance. Should we:" 1210 PRINT:PRINT" 1. Destroy it" 1211 PRINT" 2. Move in closer" 1212 PRINT" 3. Try to avoid it; or" 1213 PRINT" 4. Send out a shuttle to attempt identification" 1214 PRINT:PRINT" Your choice";:INPUT SM:ON SM GOTO 1220,1240,1300,1330:GOTO 1214 1220 REM *** Destroy it 1222 IF S2<=0 THEN PRINT"Not possible, ";R$;". No firepower.":GOTO 1210 1224 ON SO GOTO 1225,1225,1227,1230 1225 PRINT R$;", what was apparently a Space Mine exploded" 1226 PRINT"harmlessly before you.":M=M+2:GOTO 300 1227 PRINT"The object was destroyed in a flash of light, and" 1228 PRINT"pieces of an alien ship are all that remain.":GOTO 300 1230 PRINT"The object was an asteroid and broke into pieces." 1231 IF INT(3*RND(1)+1)=1 THEN PRINT"Luckily, though, nothing happened to your ship.":GOTO 300 1232 PRINT R$;"! We were hit by asteroid fragments!" 1233 IF S3=>S2 THEN PRINT"Our shielding absorbed them and no damage occurred.":GOTO 300 1234 A2=6:GOSUB 564 1235 S4=S1+S2+S3:IF S4=<0 THEN GOTO 5000 1236 PRINT"The asteroid did";DA;"points damage to the" 1237 PRINT D$;" generator (power is now";D1;")." 1238 IF RND(1)<.2 AND SH<>0 THEN PRINT"A shuttle was also destroyed (";SH-1;"remain).":SH=SH-1 1239 GOTO 300 1240 REM *** Move in closer 1241 PRINT"OK, ";R$;" ";N$;", moving in closer...":FOR W=1 TO 1000:NEXT W 1242 ON SO GOTO 1244,1244,1250,1280 1244 PRINT"The object was a space mine, and it exploded!":A2=10:GOSUB 564 1245 S4=S1+S2+S3:IF S4<=0 THEN GOTO 5000 1246 PRINT"The explosion did";DA;"points damage to the" 1247 PRINT D$;" generator (now power is";D1;")." 1248 IF RND(1)<.5 AND SH<>0 THEN PRINT SH-1;"shuttles remain (one was destroyed).":SH=SH-1 1249 GOTO 300 1250 PRINT"You have received S.O.S. signals from the object--" 1251 PRINT"a derelict. Will you shuttle men aboard to help";:INPUT Q17$ 1253 IF LEFT$(Q17$,1)<>"Y"THEN PRINT"OK, ";R$;". You avoid the derelict and leave.":GOTO 300 1254 IF C<5 OR SH=0 THEN PRINT"Sorry, but you can't. You have no choice but to go.":GOTO 300 1255 CL=INT(3*RND(1)+2) 1256 PRINT CL;"men have left in a shuttle and arrive safely" 1258 PRINT"in the derelict ship. They are now investigating...":FOR W=1 TO 1000:NEXT W 1260 IF INT(3*RND(1)+1)=3 THEN GOTO 1270 1261 PRINT"Your crew rescued stranded aliens. Your reward:":M=M+10 1262 IF RND(1)<.5 THEN PRINT" Quyzlapvox Crystals":S1=S1+5 1263 IF RND(1)<.5 THEN PRINT" A black box":S2=S2+3:S3=S3+2 1264 IF P=0 THEN PRINT" The secret plans!":P=1 1265 IF RND(1)<.5 THEN PRINT" A Shuttlecraft":SH=SH+1 1266 CG=INT(3*RND(1)+3):PRINT" ";CG;"crewmen":C=C+CG 1267 PRINT"Your crew returns with the aliens and you leave." 1268 GOTO 300 1270 PRINT"The derelict appears deserted. Continue search";:INPUT Q18$ 1272 IF LEFT$(Q18$,1)<>"Y" THEN PRINT"OK. Your crewmen return and you leave.":GOTO 300 1273 IF INT(3*RND(1)+1)<>3 THEN GOTO 1260 1274 PRINT"Your crewmen accidentally damage one of the ship's" 1275 PRINT"generators, and the entire vessel explodes!" 1276 M=M-(2*CL):A2=8:SH=SH-1 1277 GOSUB 564 1278 GOTO 1245 1280 PRINT"The object--an asteroid--seems a likely place for" 1281 PRINT"mining. Should we shuttle down a crew to try";:INPUT Q19$ 1282 IF LEFT$(Q19$,1)<>"Y" THEN PRINT"OK. We are leaving, ";R$;"...":GOTO 300 1283 IF C<10 OR SH=0 THEN PRINT"Not possible. We leave, ";R$;".":GOTO 300 1284 CL=INT(4*RND(1)+5):DM=INT(3*RND(1)+1) 1285 PRINT CL;" crewmen have landed a shuttle on the asteroid," 1286 PRINT"and spent";DM;"days mining.":T=T+DM 1287 IF INT(3*RND(1)+1)=3 THEN PRINT"They find nothing, return, and you leave.":GOTO 300 1288 PRINT"They found a rich metal deposit! Are now mining...":FOR W=1 TO 1500:NEXT W 1289 IF INT(4*RND(1)+1)<>4 THEN GOTO 1294 1290 PRINT"Unfortunately, the metal was volatile, and":SH=SH-1:C=C-CL:M=M-(2(CL)) 1291 PRINT"exploded, shattering the asteroid.":GOTO 1232 1294 PRINT"The metal was rare Krylaz, and can be used in the" 1295 PRINT S$;"'s generators! The crew then returned." 1297 M=M+10:S1=S1+INT(3*RND(1)+1):S2=S2+INT(3*RND(1)+1):S3=S3+INT(3*RND(1)+1) 1298 S4=S1+S2+S3:GOTO 300 1300 REM *** Try to Avoid 1301 PRINT 1302 IF INT(S1*RND(1)+1)=<1 THEN GOTO 1306 1304 PRINT"The object was successfully avoided, ";R$;".":GOTO 300 1306 PRINT"While attempting this, you strayed closer." 1308 ON SO GOTO 1310,1310,1318,1318 1310 PRINT"Unfortunately, the object was a mine and exploded!" 1311 M=M-3:A2=10:GOSUB 564 1313 GOTO 1245 1318 IF INT(3*RND(1)+1)=1 THEN PRINT"Your ship was hit by the object and destroyed!":FOR W=1 TO 2000:NEXT W:GOTO 5000 1320 IF SO=4 THEN PRINT"You managed to identify the object as an asteroid.":GOTO 1280 1322 PRINT"The object was then identified as a derelict ship.":GOTO 1250 1330 REM *** Send Shuttle to Ientify 1332 IF C<5 OR SH=0 THEN PRINT"Sorry, but you can't, ";R$;".":GOTO 1210 1335 CL=INT(3*RND(1)+2) 1337 PRINT"Aye, aye.";CL;"crewmen have gone out on a mission...":FOR W=1 TO 1500:NEXT W 1340 ON SO GOTO 1342,1342,1345,1350 1342 PRINT"As the shuttle approached, a mine exploded!" 1343 M=M-(2*CL):SH=SH-1:GOTO 300 1345 PRINT"Your crew identified the object as a derelict ship.":GOTO 1355 1350 PRINT"Your crew identified the object as an asteroid.":GOTO 1355 1355 PRINT:PRINT"You may now: 1. Destroy the object" 1356 PRINT" 2. Move closer; or" 1357 PRINT" 3. Try to avoid it" 1358 PRINT"Your choice";:INPUT SM 1360 ON SM GOTO 1220,1240,1300:GOTO 1358 1400 PRINT R$;"! A mysterious alien disease has swept the" 1405 IF ML=1 THEN PRINT"ship, but the healing leaves you found cured it.":GOTO 300 1410 DP=INT(C/3):C=C-DP:M=M-DP 1415 PRINT"ship, and";DP;" of your crewmen were killed (";C 1416 PRINT"now remain).":GOTO 300 1600 REM *** COMPUTER FAILURE 1605 PRINT R$;" ";N$;", we suffered a computer failure!" 1607 IF CW<>1 THEN GOTO 1650 1610 IF C<5 THEN PRINT"The computer can no longer replace your crew. You":GOTO 4037 1612 PRINT"We must shut down a generator. Which one?" 1615 PRINT" 1. Speed generator" 1617 PRINT" 2. Firepower generator; or" 1619 PRINT" 3. Shielding generator" 1620 PRINT" Your choice";:INPUT CF1 1622 ON CF1 GOTO 1625,1630,1635:GOTO 1620 1625 S1=0:GOTO 1640 1630 S2=0:GOTO 1640 1635 S3=0:GOTO 1640 1640 PRINT"Aye, aye. Being shut down...":CW=0:S4=S1+S2+S3:GOTO 300 1650 CF0=INT(3*RND(1)+1) 1652 ON CF0 GOTO 1655,1660,1665 1655 CF$="speed" 1656 S1=S1-INT(3*RND(1)+1):IF S1<0 THEN S1=0 1658 CF2=S1:GOTO 1670 1660 CF$="firepower" 1661 S2=S2-INT(3*RND(1)+1):IF S2<0 THEN S2=0 1663 CF2=S2:GOTO 1670 1665 CF$="shielding" 1666 S3=S3-INT(3*RND(1)+1):IF S3<0 THEN S3=0 1668 CF2=S3:GOTO 1670 1670 PRINT"Power to the ";CF$;" generator was automatically" 1672 PRINT"diminished (";CF$;" is now";CF2;")." 1675 FOR W=1 TO 2500:NEXT W 1676 S4=S1+S2+S3 1677 IF S4=<0 THEN GOTO 5000 1679 GOTO 300 1800 PRINT"Our sensors report that we are entering an intense" 1805 PRINT"radiation field! The field has affected the ship" 1810 PRINT"and crew in the following ways:" 1815 IF INT(2*RND(1)+1)=2 THEN S1=S1-1:GOTO 1825 1820 S1=S1+1:GOTO 1825 1825 IF INT(2*RND(1)+1)=2 THEN S2=S2-2:GOTO 1835 1830 S2=S2+2:GOTO 1835 1835 IF INT(2*RND(1)+1)=2 THEN S3=S3-3:GOTO 1845 1840 S3=S3+3:GOTO 1845 1845 IF S1<0 THEN S1=0 1846 IF S2<0 THEN S2=0 1847 IF S3<0 THEN S3=0 1848 S4=S1+S2+S3 1850 RF=INT(SQR(C)):C=C-RF:M=M-RF 1855 FOR W=1 TO 1000:NEXT W 1860 PRINT 1865 PRINT"Speed is now........";S1 1870 PRINT"Firepower is now....";S2 1875 PRINT"Shielding is now....";S3 1880 PRINT"Energy Level is now.";S4 1885 PRINT"Crewmen killed......";RF 1890 PRINT"Crewmen remaining...";C 1895 GOTO 300 3950 IF TN<>0 THEN GOTO 3960 3952 PRINT"Our speed generators are not functioning, but we" 3954 PRINT"have hooked up a temporary (5-day) navigating" 3956 PRINT"system. We only have enough fuel to use this" 3958 PRINT"manual system for five days; after that, the" 3959 PRINT S$;" will drift aimlessly.":TN=1:GOTO 330 3960 IF TN=5 THEN PRINT"We can no longer use the manual navigation system.":GOTO 4000 3962 TN=TN+1 3964 GOTO 330 4000 PRINT"The ";S$;" can no longer move on course, and it":S1=0 4001 IF INT(100*RND(1))<(50*(SQR(R)/2)) THEN GOTO 4004 4002 PRINT"is drifting through space. Luckily, though, a" 4003 PRINT"space tug found you and towed you back to Earth.": GOTO 5500 4004 PRINT"is drifting through space. Your crew abandons" 4005 PRINT"ship in a rescue vessel, but you remain. Even" 4006 PRINT"though you are destined to monotony for the" 4007 PRINT"remainder of your life, take heart: if your ship" 4008 PRINT"becomes a new satellite, at least it might be" 4009 PRINT"named '";N$;"' in your memory!":GOTO 5500 4010 PRINT"Your ship now has no firepower, ";R$;".":S2=0:GOTO 335 4020 PRINT"There is no more shield energy left, ";R$;".":S3=0:GOTO 340 4025 PRINT"No shuttlecraft remain, ";R$;".":SH=0:GOTO 345 4030 PRINT R$;" ";N$;", none of your crewmen remain. You":C=0:IF CW=1 THEN GOTO 4033 4031 IF INT(100*RND(1))<(30*(SQR(R))) THEN GOTO 4037 4033 PRINT"were able to hook up a computer to do their work":IF CW=1 THEN GOTO 4035 4034 PRINT"(with an energy drain).":CW=1:S1=S1-1:S2=S2-1:S3=S3-1:S4=S4-3 4035 PRINT:PRINT"Press 'Return' to continue";:INPUT I 4036 GOTO 323 4037 PRINT"can no longer manage the ";S$;", and drift" 4038 PRINT"aimlessly through space for the remainder of your" 4039 PRINT"sorrowfull life.":GOTO 5500 4100 PRINT R$;", the USS ";S$;" is within ";D;" space" 4102 PRINT"units of the Earth outpost. Shall we spend a day" 4104 PRINT"checking equipment before docking";:INPUT Q8$ 4106 IF LEFT$(Q8$,1)="Y" THEN GOTO 4125 4108 PRINT"OK, ";R$;", docking will occur in ";(D/S1) 4110 PRINT"hours.":V=0:GOTO 4150 4125 IF INT(4*RND(1)+1)=4 THEN GOTO 4130 4126 PRINT"You find nothing unusual, ";R$;".":V=15:GOTO 4150 4130 PRINT"There was a minor equipment failure, but it was" 4131 PRINT"detected in the check.":V=30 4150 PRINT"Everything is AOK for docking. Press 'Return'" 4152 PRINT"to begin docking procedure";:INPUT I 4154 PRINT CHR$(26) 4156 PRINT"Ready for docking....10...9...8...7...6...5...4..." 4157 PRINT"3...2...1.....":PRINT:PRINT 4160 IF INT(100*RND(1))<((30*(SQR(R)/2))-V) THEN GOTO 4163 4161 GOTO 4175 4163 PRINT".....DOCKING MALFUNCTION!!! EXPLOSION IMMINENT!!!" 4165 PRINT:PRINT"Abandon ship";:INPUT Q9$ 4166 IF INT(3*RND(1)+1)<3 THEN GOTO 4173 4167 IF LEFT$(Q9$,1)="Y" THEN GOTO 4170 4168 PRINT"Sorry, ";R$;" ";N$;", but both the ";S$ 4169 PRINT"and the outpost were destroyed. R.I.P.": GOTO 5500 4170 PRINT"You and your crew managed to abandon ship, but" 4171 PRINT"both the ";S$;" and the outpost were destroyed" 4172 PRINT"in a huge explosion.":GOTO 5500 4173 IF LEFT$(Q9$,1)="Y" THEN PRINT"You abandoned ship, but nothing happened, coward!":GOTO 4177 4174 PRINT"You valiantly stayed with the ship, but luckily nothing happened.":GOTO 4177 4175 PRINT"......DOCKING SUCCESSFUL!" 4177 PRINT"(Press 'Return' to continue)";:INPUT I 4178 PRINT CHR$(26):PRINT CHR$(7):PRINT" Space Bulletin" 4179 PRINT:PRINT"The USS ";S$;", under the command of ";R$ 4180 PRINT N$;", has arrived at the Earth outpost after a" 4181 PRINT T;"-day mission." 4183 IF P=0 THEN GOTO 4190 4185 PRINT:PRINT R$;" ";N$;" safely delivered the secret plans," 4187 PRINT"and he (and his crew of ";C;") is to be commended" 4188 PRINT"for this success." 4189 BF=((C+S4+SH)/T):PRINT:PRINT"Battle Factor: ";BF: GOTO 4900 4190 PRINT:PRINT"Unfortunately, the ";R$;" did not deliver the" 4192 PRINT"secret plans, and must undergo questioning by" 4194 PRINT"authorities. In the meantime, ";R$;" ";N$ 4196 PRINT"is to be relieved as Commander of the ";S$;",and":GOTO 5040 4200 PRINT"The crewmen have turned against you, ";R$;"," 4202 C1=INT(20*RND(1)):IF C-C1<0 THEN GOTO 4202 4204 PRINT"and ";C1;" of them have decided to abandon ship" 4206 PRINT"(you now have ";C-C1;" crewmen left)." 4208 C=C-C1 4210 IF INT(100*RND(1))<(30*(R/2)) THEN GOTO 4215 4211 GOTO 4232 4215 PRINT"While leaving, one of your mutinous crewmen" 4217 C2=INT(5*RND(1)+1) 4218 ON C2 GOTO 4220,4222,4224,4222,4224 4220 C2$="Speed":S4=S4-S1 4221 S1=0:GOTO 4230 4222 C2$="Firepower":S4=S4-S2 4223 S2=0:GOTO 4230 4224 C2$="Shielding":S4=S4-S3 4225 S3=0:GOTO 4230 4230 PRINT"destroyed the ";S$;"'s ";C2$;" generator." 4232 PRINT:PRINT"Press 'RETURN' to continue";:INPUT I 4233 GOTO 321 4250 PRINT"*** Remember, you don't have the secret plans! ***":GOTO 360 4900 IF BF>=1.5 THEN GOTO 4910 4902 IF BF<.5 THEN GOTO 4970 4905 PRINT"You have remained at your present rank.":GOTO 5500 4910 ON R GOSUB 4915,4920,4925,4930,4935,4940,4945:GOTO 4960 4913 R$="Ensign":R=1:RETURN 4915 R$="Lieutenant":R=2:RETURN 4920 R$="Commander":R=3:RETURN 4925 R$="Captain":R=4:RETURN 4930 R$="Commodore":R=5:RETURN 4935 R$="Admiral":R=6:RETURN 4940 R$="Fleet Admiral":R=7:RETURN 4945 PRINT"You have fulfilled your duty to the Earth Fleet," 4946 PRINT"and can now retire with fame and fortune." 4947 PRINT"Congratulations, Fleet Admiral ";N$;"!":END 4960 PRINT"Congratulations! You have been promoted to" 4962 PRINT R$;"!":GOTO 5500 4970 IF R<=1 THEN PRINT"You have been discharged from the Earth Fleet.":END 4975 ON (R-1) GOSUB 4913,4915,4920,4925,4930,4935 4980 PRINT"You have been demoted to ";R$;".":GOTO 5500 5000 PRINT CHR$(26):PRINT:PRINT" Space Bulletin":PRINT CHR$(7) 5001 PRINT:PRINT"We have just been informed that the Star Cruiser" 5002 PRINT"'USS ";S$;"', under the command of ";R$ 5003 PRINT N$;", has been destroyed ";T;" days into its" 5004 PRINT"mission. The ";R$;" and all ";C;" remaining" 5005 PRINT"crewmen on board are presumed dead." 5007 PRINT:PRINT"The ";S$;" came within ";D;" space units" 5008 PRINT"of the Earth outpost, where it was to deliver" 5009 PRINT"secret plans." 5010 IF D<=10 OR T>=100 THEN R1$="excellent":GOTO 5020 5011 IF D<=25 OR T>=75 THEN R1$="valiant":GOTO 5020 5012 IF D<=50 OR T>=50 THEN R1$="commendable":GOTO 5020 5013 IF D<=75 OR T>=25 THEN R1$="decent":GOTO 5020 5014 IF D<=90 OR T>=10 THEN R1$="terrible":GOTO 5020 5015 R1$="disastrous" 5020 PRINT:PRINT"This was a ";R1$;" performance by ";R$;" ";N$;"." 5030 PRINT"If, however, ";R$;" ";N$;" returns, he/she" 5040 IF R=<1 THEN PRINT"will be discharged from the Earth Fleet.":END 5050 ON (R-1) GOSUB 4913,4915,4920,4925,4930,4935 5060 PRINT"will be demoted to ";R$;".":GOTO 5500 5500 PRINT:PRINT"Would you like another mission, ";R$;:INPUT Q6$ 5505 ML=0:TN=0:CW=0 5510 IF LEFT$(Q6$,1)<>"Y" THEN GOTO 5600 5511 PRINT"Same setup";:INPUT Q10$ 5512 IF LEFT$(Q10$,1)<>"Y" THEN GOTO 2 5513 PRINT"Same ship as before";:INPUT Q75$ 5515 IF LEFT$(Q75$,1)<>"Y" THEN GOTO 75 5516 IF (S1+S2+S3)>=10 AND S1<>0 AND S2<>0 AND S3<>0 THEN GOTO 110 5520 PRINT"Making repairs...":FOR W=1 TO 2000:NEXT W 5522 IF S1=0 THEN S1=S1+INT(3*RND(1)+1) 5524 IF S2=0 THEN S2=S2+INT(3*RND(1)+1) 5526 IF S3=0 THEN S3=S3+INT(3*RND(1)+1) 5528 S4=S1+S2+S3:IF S4>=10 THEN GOTO 110 5530 RP=INT(5*RND(1)+1) 5532 ON RP GOTO 5535,5535,5540,5545,5545 5535 S1=S1+INT(3*RND(1)+1):GOTO 5528 5540 S2=S2+INT(3*RND(1)+1):GOTO 5528 5545 S3=S3+INT(3*RND(1)+1):GOTO 5528 5600 PRINT"OK, ";R$;" ";N$;". Return to Earth Base." 5605 END T(3*RND(1)+1):GOTO 5528 5545 S3=S3+INT(3*RND(1)+1):GOTO 5528 5600 PRINT"OK, ";R$;" ";N$;". Return to Earth Base." 5e automatically when the space "a1= WR , b1= WN , c1= WB , etc " appear. A CONTROL B (^B) will bring the board up at anytime, even during the regular game. To get the game going again once you have the board set up, type a (P) character. Upper10 DIM T$(47) 20 DIM M(42,8) 30 DIM O(14) 90 PRINT "WELCOME TO THE GAME OF SURVIVAL. WOULD YOU LIKE INSTRUCTIONS?" 110 INPUT D$ 120 IF D$="Y" THEN GOSUB 5050 130 FOR I=1 TO 47 140 READ T$(I) 150 NEXT I 160 FOR I=1 TO 42 170 FOR J=1 TO 8 180 READ M(I,J) 190 NEXT J 200 NEXT I 320 LET P=1 330 LET C=2 340 LET T1=0 350 LET T2=185 360 LET P1=230 370 LET P2=50 380 LET V=0 390 LET F0=1 400 LET O(1)=21 410 LET O(2)=19 420 LET O(3)=99 430 LET O(4)=6 440 LET O(5)=32 450 LET O(6)=0 460 LET O(7)=38 470 LET O(8)=35 480 LET O(9)=0 490 LET O(10)=35 500 LET O(11)=99 510 LET O(12)=33 520 LET O(13)=34 530 LET O(14)=37 540 LET M(14,4)=0 550 LET M(14,8)=M(14,7)+1 560 LET M(2,8)=M(2,7)+1 570 LET F1=0 580 LET F2=0 590 LET F4=0 600 LET F7=0 610 LET F9=0 650 PRINT "ELAPSED TIME: ";T1; "MINUTES" 660 IF O(11)=99 THEN PRINT "POWER UNIT: "; P1; "UNITS" 670 IF O(14)=99 THEN PRINT "POWER PACK: "; P2; "UNITS" 680 LET T1=T1+5 690 IF O(11)=99 AND P1>5 THEN P1=P1-5 700 IF O(14)=99 AND P2>5 THEN P2=P2-5 710 IF O(11)=99 AND P1=0 THEN 3680 720 IF O(14)=99 AND P2=0 THEN 3680 730 IF T1>400 THEN 2960 740 IF T1>350 THEN 3840 750 IF T1>200 THEN 3740 760 IF F0=1 THEN T2=T2-5 770 IF T2<0 THEN T2=0 780 IF F0=0 THEN 800 790 IF T2>0 THEN 840 800 IF F9=0 THEN 820 810 IF P>21 THEN 2900 820 IF P<18 THEN 2900 830 IF P=38 THEN 1700 840 IF P=38 THEN 3590 850 IF F0=1 THEN PRINT "OXYGEN REMAINING: "; T2; "MINUTES" 860 PRINT "PRESENT LOCATION STATUS: YOU ARE" 870 FOR I=M(P,7) TO M(P,8) 880 PRINT T$(I) 890 NEXT I 900 PRINT "##" 940 IF P=2 THEN 1920 950 FOR I=1 TO 14 960 IF O(I)<>P THEN 990 970 GOSUB 4410 980 PRINT "THERE IS "; B$; " HERE." 990 NEXT I 1000 GOTO 2000 1010 REM 1020 REM 1030 REM 1040 INPUT B$ 1050 LET I=0 1060 IF LEN(B$)<>1 GOTO 1320 1070 IF B$="N" THEN I=1 1080 IF B$="S" THEN I=2 1090 IF B$="E" THEN I=3 1100 IF B$="W" THEN I=4 1110 IF B$="U" THEN I=5 1120 IF B$="D" THEN I=6 1130 IF B$="Q" THEN 6200 1140 IF I=0 THEN 1570 1150 IF M(P,I)=0 THEN 1270 1160 IF M(P,I)=99  THEN 2940 1170 LET Q=M(P,I) 1180 IF P=12 THEN 3060 1190 IF P=13 THEN 3180 1200 IF P=22 THEN 3310 1210 IF P=23 THEN 3420 1220 IF P=29 THEN 3470 1230 LET R=P 1240 LET P=Q 1250 IF P=35 THEN V=V+1 1260 GOTO 650 1270 PRINT "YOU CANNOT GO IN THAT DIRECTION!" 1280 GOTO 1040 1320 LET C$=LEFT$(B$,3) 1330 IF C$="LOO" THEN 650 1340 IF C$="DES" THEN 650 1350 IF C$="GET" THEN 2190 1360 IF C$="TAK" THEN 2190 1370 IF C$="KEE" THEN 2190 1380 IF C$="DRO" THEN 2580 1390 IF C$="LEA" THEN 2580 1400 IF C$="PUT" THEN 2580 1410 IF C$="INV" THEN 2780 1420 IF C$="QUI" THEN 6200 1430 IF C$="END" THEN 6200 1440 IF C$="TRA" THEN 1750 1450 IF C$="DIG" THEN 1860 1460 IF C$="DEB" THEN 1610 1470 IF C$="FUE" THEN 4030 1480 IF C$="REA" THEN 4250 1490 IF C$="DEA" THEN 3890 1500 IF C$="BLA" THEN 4110 1510 IF C$="UP" THEN 1640 1520 IF C$="DOW" THEN 1640 1530 IF C$="NOR" THEN 1640 1540 IF C$="SOU" THEN 1640 1550 IF C$="EAS" THEN 1640 1560 IF C$="WES" THEN 1640 1570 PRINT "INVALID COMMAND!" 1580 GOTO 1040 1590 PRINT "I CANNOT PROCESS YOUR REQUEST." 1600 GOTO 1040 1610 PRINT "ENTER LOCATION" 1620 INPUT P 1630 GOTO 650 1640 LET D$=B$ 1650 LET B$=D$ 1660 GOTO 1070 1700 IF R<>39 THEN 2900 1710 GOTO 840 1750 IF P<>36 THEN 1800 1760 IF O(8)=99 THEN 1590 1770 LET P=O(8) 1780 PRINT "BEAMING IN PROCESS." 1790 GOTO 650 1800 IF P<>O(8) THEN 1590 1810 LET P=36 1820 GOTO 1780 1860 IF P<>10 THEN 1590 1870 LET O(9)=10 1880 GOTO 940 1920 IF O(4)<>99 THEN 950 1930 LET O(4)=100 1940 PRINT "YOU DROPPED YOUR ILLUMINATOR! YOU CANNOT RETRIEVE IT." 1960 GOTO 950 2000 IF O(5)=28 THEN LET O(5)=35 2010 IF O(5)=42 THEN LET O(5)=28 2020 IF O(5)=41 THEN LET O(5)=42 2030 IF O(5)=27 THEN LET O(5)=41 2040 IF O(5)=25 THEN LET O(5)=27 2050 IF O(5)<>35 THEN 2090 2060 IF P<>28 THEN 1010 2070 LET M(28,1)=35 2080 GOTO 1010 2090 IF O(5)<>32 THEN 1010 2100 IF P<>32 THEN 1010 2110 LET O(5)=25 2120 IF O(13)=99 THEN 1010 2130 PRINT "ROBOT FAILS TO RECOGNIZE YOU." 2140 PRINT "IT FIRES A PHASOR WEAPON AT YOU!" 2150 GOTO 2980 2190 GOSUB 4590 2200 IF I>0 THEN 2260 2210 IF I<0 THEN 2240 2220 PRINT "I DON'T RECOGNIZE "; RIGHT$(B$,LEN(B$)-J);"." 2230 GOTO 1040 2240 PRINT "WHAT ITEM?" 2250 GOTO 1040 2260 IF O(I)<>P THEN 2370 2270 IF C>3 THEN 2390 2280 IF I=5 THEN 2410 2290 IF I=10 THEN 2430 2300 IF I=11 THEN 2460 2310 IF I=14 THEN 2490 2320 LET C=C+1 2330 O(I)=99 2340 IF I=3 THEN LET F0=1 2350 PRINT "O.K." 2360 GOTO 1040 2370 PRINT "THERE IS NO "; RIGHT$(B$,LEN(B$)-J);" HERE." 2380 GOTO 1040 2390 PRINT "YOU CAN'T CARRY ANY MORE." 2400 GOTO 1040 2410 PRINT "YOU CAN'T CARRY A ROBOT!" 2420 GOTO 1040 2430 PRINT "YOU CAN'T GET THE MESSAGE. IT'S ON THE TERMINAL SCREEN." 2450 GOTO 1040 2460 IF O(14)=99 THEN 2520 2470 O(11)=99 2480 GOTO 2320 2490 IF O(11)=99 THEN 2520 2500 O(14)=99 2510 GOTO 2320 2520 PRINT "YOU CAN'T HAVE MORE THAN ONE POWER SUPPLY." 2540 GOTO 1040 2580 GOSUB 4590 2590 IF I>0 THEN 2620 2600 IF I<0 THEN 2240 2610 GOTO 2220 2620 IF O(I)<>99 THEN 2690 2630 LET C=C-1 2640 O(I)=P 2650 IF I=3 THEN LET F0=0 2660 IF I=11 THEN 2710 2670 IF I=14 THEN 2710 2680 GOTO 2350 2690 PRINT "YOU DON'T HAVE ";RIGHT$(B$,LEN(B$)-J);"!" 2700 GOTO 1040 2710 IF P<22 THEN 2870 2720 IF P=38 THEN 2870 2730 IF F9=1 THEN 2870 2740 GOTO 2350 2780 FOR I=1 TO 14 2790 IF O(I)<>99 THEN 2820 2800 GOSUB 4410 2810 PRINT "YOU HAVE "; B$; "." 2820 NEXT I 2830 GOTO 1040 2870 PRINT "YOU HAVE NO POWER OR POWER PACK." 2880 PRINT "YOU HAVE FROZEN TO DEATH." 2890 GOTO 2980 2900 PRINT "OXYGEN REQUIRED HERE. NONE AVAILABLE." 2910 GOTO 2980 2920 PRINT "A NUCLEAR DETONATION HAS JUST OCCURRED." 2930 GOTO 2980 2940 PRINT "YOU HAVE FALLEN TO YOUR DEATH." 2950 GOTO 2980 2952 PRINT "YOU HAVE BEEN ZAPPED BY THE LASER." 2954 GOTO 2980 2960 PRINT "THE MOON BASE HAS JUST BEEN DESTROYED BY A LARGE ASTEROID." 2980 PRINT "YOU HAVE FAILED TO SURVIVE." 2990 PRINT "DO YOU WISH TO TRY AGAIN" 3000 INPUT D$ 3010 IF D$="Y" THEN 320 3020 GOTO 6200 3060 IF M(P,I)<>13 THEN 1230 3070 IF F2=1 THEN 1230 3080 PRINT "THERE IS A METEOR SHOWER." 3090 PRINT "YOUR SPACE SUIT HAS DEVELOPED A LEAK!" 3100 GOSUB 4890 3110 IF I<>2 THEN 2980 3120 PRINT "YOUR SUIT IS NOW SEALED." 3130 LET F2=1 3140 GOTO 1230 3180 IF M(P,I)<>22 THEN 1230 3190 IF F1=1 THEN 1230 3200 PRINT "THE SHED IS LOCKED." 3210 GOSUB 4890 3220 IF I<>1 THEN 3260 3230 PRINT "YOU ARE IN THE SHED AIR LOCK." 3240 LET F1=1 3250 GOTO 1230 3260 PRINT "YOUR ATTEMPT FAILS." 3270 GOTO 1040 3310 IF M(P,I)<>23 THEN 1230 3320 IF F4=1 THEN 1230 3330 PRINT "IT IS DANGEROUS TO PROCEED IN THE DARK." 3340 GOSUB 4890 3350 IF I<>4 THEN 2940 3360 PRINT "THE SHAFT IS NOW ILLUMINATED." 3370 LET F4=1 3380 GOTO 1230 3420 IF O(4)<>99 THEN 2940 3430 GOTO 1230 3470 IF M(P,I)<>37 THEN 1230 3480 IF F3=1 THEN 1230 3490 PRINT "THERE IS A LASER BEAM HERE." 3500 PRINT "PASSAGE NOT POSSIBLE WITH BEAM PRESENT." 3510 GOSUB 4890 3520 IF I<>12 THEN 2952 3530 PRINT "THE BEAM IS NOW DEFLECTED." 3540 LET F3=1 3550 GOTO 1230 3590 IF R<>29 THEN 850 3600 IF F9=1 THEN 850 3!610 LET F9=1 3620 PRINT "YOU HAVE JUST BLOWN AIR SEAL IN SPACE STATION." 3640 GOTO 850 3680 IF P<22 THEN 2870 3690 IF F9=1 THEN 2870 3700 GOTO 730 3740 IF F5=1 THEN 760 3750 LET O(6)=14 3760 LET M(2,8)=M(2,7) 3770 LET M(14,8)=M(14,7) 3780 LET M(14,4)=2 3790 LET F5=1 3800 GOTO 760 3840 IF F7=0 THEN 2920 3850 GOTO 760 3890 IF O(6)<>99 THEN 3940 3900 IF O(7)<>99 THEN 3980 3910 LET F7=1 3920 PRINT "BOMB IS NOW DEACTIVATED." 3930 GOTO 1040 3940 PRINT "YOU HAVE NOTHING TO DO IT WITH." 3950 GOTO 1040 3960 PRINT "THERE IS NOTHING TO DO IT TO!" 3970 GOTO 1040 3980 PRINT "YOU CAN'T DO IT FROM HERE." 3990 GOTO 1040 4030 IF P<>19 THEN 3980 4040 IF O(9)<>99 THEN 3940 4050 LET O(9)=98 4060 PRINT "FUEL IS NOW LOADED." 4070 GOTO 1040 4110 IF P<>21 THEN 3980 4120 IF O(9)<>98 THEN 4200 4130 IF F7=1 THEN 4160 4140 PRINT "REPAIRS NOT YET COMPLETE." 4150 GOTO 1040 4160 PRINT "CONGRATULATIONS. YOU HAVE JUST BLASTED OFF" 4170 PRINT "AND ARE ON YOUR WAY TO EARTH." 4180 PRINT "YOUR ESCAPE TIME: "; T1; "MINUTES" 4190 GOTO 2990 4200 PRINT "YOUR SPACE CRAFT HAS NO FUEL." 4210 GOTO 1040 4250 IF P<>35 THEN 3980 4260 GOSUB 4590 4270 IF I<>10 THEN 3960 4280 IF V<>0 THEN 4320 4290 PRINT "BOMB DE-ACTIVATOR LOCATED SOMEHWERE EAST" 4300 PRINT "OF SPACE STATION, ON MOON'S SURFACE." 4310 GOTO 4360 4320 IF V<>1 THEN 4350 4330 PRINT "LOCAL FUEL SOURCE: DILITHIUM CRYSTAL" 4340 GOTO 4360 4350 PRINT "DILITHIUM FOUND IN SOFT SURFACES." 4360 IF F7=1 THEN PRINT "SPACECRAFT REPAIRS COMPLETED." 4370 GOTO 1040 4410 IF I=1 THEN B$="AN ELECTRONIC KEY" 4420 IF I=2 THEN B$="SEALANT" 4430 IF I=3 THEN B$="AN OXYGEN MODULE" 4440 IF I=4 THEN B$="AN ILLUMINATOR" 4450 IF I=5 THEN B$="A ROBOT" 4460 IF I=6 THEN B$="A DEACTIVATOR" 4470 IF I=7 THEN B$="A NUCLEAR BOMB" 4480 IF I=8 THEN B$="A TRANSPORTER UNIT" 4490 IF I=9 THEN B$="DILITHIUM CRYSTALS" 4500 IF I=10 THEN B$="A COMPUTER MESSAGE" 4510 IF I=11 THEN B$="A POWER UNIT" 4520 IF I=12 THEN B$="A MIRROR" 4530 IF I=13 THEN B$="A CODED BADGE" 4540 IF I=14 THEN B$="A POWER PACK" 4550 RETURN 4590 FOR J=1 TO LEN(B$) 4600 IF MID$(B$,J,1)=" " THEN 4640 4610 NEXT J 4620 I=-1 4630 RETURN 4640 LET C$=MID$(B$,J+1,3) 4650 LET I=0 4660 IF C$="ELE" THEN I=1 4670 IF C$="KEY" THEN I=1 4680 IF C$="SEA" THEN I=2 4690 IF C$="OXY" THEN I=3 4700 IF C$="MOD" THEN I=3 4710 IF C$="ILL" THEN I=4 4720 IF C$="ROB" THEN I=5 4730 IF C$="DEA" THEN I=6 4740 IF C$="NUC" THEN I=7 4750 IF C$="BOM" THEN I=7 4760 IF C$="TRA" THEN I=8 4770 IF C$="DIL" THEN I=9 4780 IF C$="CRY" THEN I=9 4790 IF C$="COM" THEN I=10 4800 IF C$="MES" THEN I=10 4810 IF C$="UNI" THEN I=11 4820 IF C$="MIR" THEN I=12 4830 IF C$="BAD" THEN I=13 4840 IF C$="PAC" THEN I=14 4850 RETURN 4890 INPUT B$ 4900 LET C$=B$ 4910 IF LEFT$(C$,3)="TRY" THEN 4950 4920 IF LEFT$(C$,3)="USE" THEN 4950 4930 I=-1 4940 RETURN 4950 GOSUB 4590 4960 IF I<1 THEN 5050 4970 IF O(I)=99 THEN RETURN 4980 PRINT "YOU DON'T HAVE ";RIGHT$(B$,LEN(B$)-J); "!" 4990 GOTO 4930 5000 PRINT "YOUR ATTEMPT FAILS." 5010 GOTO 4930 5050 PRINT "YOU HAVE CRASH LANDED ON THE EARTH'S MOON. YOU HAVE LIMITED " 5060 PRINT "SUPPLIES AND TIME IN WHICH TO SURVIVE. TO TRAVEL, YOU MAY " 5070 PRINT "ENTER DIRECTIVES SUCH AS NORTH OR N, AS WELL AS S, E, W, AND " 5080 PRINT "U AND D (UP AND DOWN). YOU WILL ENCOUNTER VARIOUS ITEMS AND " 5090 PRINT "SITUATIONS DURING YOUR TRAVELS. TO COMMUNICATE, ENTER COM- 5100 PRINT "MANDS (VERBS) FOLLOWED BY OBJECT NAMES, IF APPLICABLE. FOR " 5110 PRINT "EXAMPLE, GET XXX, LEAVE, USE, AND INVENTORY. " 5120 PRINT " " 5130 PRINT "ONCE YOU HAVE SURVIVED, THE OBJECT THEN IS TO ACHIEVE THE " 5140 PRINT "OPTIMUM SURVIVAL TIME. GOOD LUCK!!!" 5240 RETURN 5280 DATA "AT MARE SERENITATIS." 5290 DATA "ON RIM OF POSIDONIUS." 5300 DATA "TOTAL DARKNESS TO E." 5310 DATA "TWIXT DAWES AND PLINIUS." 5320 DATA "AT PASS IN HAEMUS MTNS." 5330 DATA "AT CRATER MANILUS." 5340 DATA "AT MARE VAPORUM." 5350 DATA "AT MT. EUDOXUS." 5360 DATA "INSIDE ARISTOTELES." 5370 DATA "IN CHANGING AREA." 5380 DATA "IN LACUS SOMNIORUM." 5390 DATA "AT LACUS MORTIS." 5400 DATA "THE SURFACE IS VERY SOFT HERE." 5410 DATA "AT E.SIDE OF MARE IMBRIUM." 5420 DATA "AT THE BASE OF PLATO CRATER. A" 5430 DATA "SHINY OBJECT IS SEEN W." 5440 DATA "BEFORE A METAL SHED. A " 5450 DATA "SIGN READS VENT. SHAFT #2." 5460 DATA "E. OF MARE SERENITATIS." 5470 DATA "THERE IS TOTAL DARKNESS." 5480 DATA "AT CRASH SITE OF A SPACE CRAFT." 5490 DATA "THE SHIP ENTRANCE IS BEFORE YOU." 5500 DATA "AT THE CENTER OF MARE IMBRIUM." 5510 DATA "IN THE AIR LOCK CHAMBER OF THE SHIP." 5520 DATA "IN THE AFT CARGO AND FUEL STORAGE ROOM." 5530 DATA "IN THE ENGINE ROOM OF THE SPACE CRAFT." 5540 DATA "IN THE SHIP'S CONTROL ROOM." 5550 DATA "IN AN AIR LOCK CHAMBER." 5560 DATA "INSIDE A VENTILATOR SHED. A LADDER " 5570 DATA "LEADS DOWN INTO A LARGE METAL SHAFT." 5580 DATA "IN A VENTILATOR PASSAGE." 5590 DATA "AT A VENTILATOR OPENING. THROUGH THE " 5600 DATA "OPENING A LIT PASSAGEWAY CAN BE SEEN." 5610 DATA "IN A LIGHTED SPACE STATION CORRIDOR." 5620 DATA ""IN THE SPACE STATION INFIRMARY." 5630 DATA "IN THE RECREATION ROOM AND LIBRARY." 5640 DATA "IN THE MESS HALL. ABANDONED FOOD TRAYS " 5650 DATA "ARE STILL ON THE TABLES." 5660 DATA "IN THE STORAGE ROOM AND SUPPLY AREA." 5670 DATA "IN THE SLEEPING QUARTERS." 5680 DATA "IN AN ELEVATOR AT SUBSURFACE LEVEL." 5690 DATA "IN AN ELEVATOR AT SURFACE LEVEL." 5700 DATA "IN THE STATION CONTROL CENTER." 5710 DATA "IN THE TRANSPORTER ROOM." 5720 DATA "IN THE SPACE STATION LABORATORY." 5730 DATA "IN THE HANGAR AREA. THE LAUNCH AREA " 5740 DATA "IS JUST SOUTH OF HERE." 5780 DATA 07,04,02,15,00,00,01,01 5790 DATA 09,03,14,01,00,00,02,03 5800 DATA 02,05,14,04,00,00,04,04 5810 DATA 01,05,03,00,00,00,05,05 5820 DATA 04,00,03,06,00,00,06,06 5830 DATA 00,00,05,00,00,00,07,07 5840 DATA 08,01,09,11,00,00,08,08 5850 DATA 00,07,10,00,00,00,09,09 5860 DATA 10,02,14,07,00,00,11,11 5870 DATA 00,09,14,08,00,00,12,13 5880 DATA 12,15,07,16,00,00,14,14 5890 DATA 00,11,00,13,00,00,15,16 5900 DATA 00,16,12,22,00,00,17,18 5910 DATA 99,99,99,99,00,00,19,20 5920 DATA 11,18,01,00,00,00,21,22 5930 DATA 17,16,07,16,00,00,23,23 5940 DATA 16,17,11,17,00,00,23,23 5950 DATA 15,19,00,00,00,00,24,24 5960 DATA 18,00,20,00,00,00,25,25 5970 DATA 00,00,00,19,21,00,26,26 5980 DATA 00,00,00,00,00,20,27,27 5990 DATA 00,00,13,00,00,23,29,30 6000 DATA 24,00,00,00,22,00,31,31 6010 DATA 25,23,00,00,00,00,32,33 6020 DATA 27,26,33,32,24,00,34,34 6030 DATA 25,00,30,31,00,00,34,34 6040 DATA 34,25,41,00,00,00,34,34 6050 DATA 00,29,42,36,00,00,34,34 6060 DATA 28,38,40,37,00,00,34,34 6070 DATA 00,00,00,26,00,00,35,35 6080 DATA 00,00,26,00,00,00,36,36 6090 DATA 00,00,25,00,00,00,37,38 6100 DATA 00,00,00,25,00,00,40,40 6110 DATA 00,27,00,00,00,00,39,39 6120 DATA 00,28,00,00,24,00,43,43 6130 DATA 00,00,28,00,00,00,44,44 6140 DATA 00,00,29,00,00,00,45,45 6150 DATA 29,00,39,00,00,00,46,47 6160 DATA 40,00,00,38,00,00,28,28 6170 DATA 00,39,00,29,00,00,10,10 6180 DATA 00,00,00,27,42,00,41,41 6190 DATA 00,00,00,28,00,41,42,42 6200 END 0,00,28,28 6170 DATA 00,39,00,29,00,00,10,10 6180 DATA 00,00,00,27,42,00,41,41 6190 DATA 00,00,00,28,00,41,42,42 6200 E"The ";S$;" came within ";D;" space units" 5008 PRINT"of the Earth outpost, where it was to deliver" 5009 PRINT"secret plans." 5010 IF D<=10 OR T>=100 THEN R1$="excellent":GOTO 5020 5011 IF D<=25 OR T>=75 THEN R1$="valiant":GOTO 5020 5012 IF D<=50 OR T>=50 THEN R1$="commendable":GOTO 5020 5013 IF D<=75 OR T>=25 THEN R1$="decent":GOTO 5020 5014 IF D<=90 OR T>=10 THEN R1$="terrible":GOTO 5020 5015 R1$="disastrous" 5020 PRINT:PRINT"This was a ";R1$;" performance by ";R$;" ";N$;"." 5030 PRINT"If, however, ";R$;" ";N$;" returns, he/she" 5040 IF R=<1 THEN PRINT"will be discharged from the Earth Fleet.":END 5050 ON (R-1) GOSUB 4913,4915,4920,4925,4930,4935 5060 PRINT"will be demoted to ";R$;".":GOTO 5500 5500 PRINT:PRINT"Would you like another mission, ";R$;:INPUT Q6$ 5505 ML=0:TN=0:CW=0 5510 IF LEFT$(Q6$,1)<>"Y" THEN GOTO 5600 5511 PRINT"Same setup";:INPUT Q10$ 5512 IF L10 REM **** LINELIFE.BAS **** 20 REM 30 REM (c) 1984, KENNETH L. LUNDERS, ANALOGIC DESIGN, SUNNYVALE, CA. 40 REM DONATED TO THE `FOG' LIBRARY FOR NON-COMMERCIAL USE 50 REM BY ITS MEMBERSHIP. 60 REM 100 OPTION BASE 1 110 DEFINT A-Z 120 PRINT CHR$(26);TAB(36);"LINELIFE" 130 PRINT:PRINT:PRINT 140 PRINT "WOULD YOU LIKE A BRIEF EXPLANATION OF THIS PROGRAM"; 150 INPUT A$ 160 IF A$="NO" THEN 440 170 IF A$="YES" THEN 200 180 INPUT "PLEASE ANSWER 'YES' OR 'NO'. >",A$ 190 GOTO 160 200 PRINT CHR$(&H1A);CHR$(&H1E); 210 PRINT "THIS IS A PROGRAM FOR A CELLULAR-AUTOMATON MACHINE. IT OPERATES IN" 220 PRINT "ONE DIMENSION, A LINE,"; 230 PRINT " AND SHOWS SUCCESSIVE STATES (GENERATIONS) OF A" 240 PRINT "CLASS 4 AUTOMATON, WHICH YOU WILL ORIGINATE." 250 PRINT 260 PRINT "EACH CELL WILL EXIST IN THE FOLLOWING STATE"; 270 PRINT " IF THERE ARE EITHER 2 OR 4" 280 PRINT "`LIVE' CELLS WITHIN A + OR - 2 CELL"; 290 PRINT " NEIGHBORHOOD IN THE CURRENT STATE," 300 PRINT "A `LIVE' CELL WILL BE SHOWN AS `*'." 310 PRINT 320 PRINT "THE LINE ENDS IN THIS PROGRAM ARE CONSIDERED"; 330 PRINT " TO BE ADJECENT, AS THOUGH" 340 PRINT "A CIRCLE HAD BEEN CUT AND STRETCHED ACROSS THE SCREEN." 350 PRINT 360 PRINT "THE INSPIRATION FOR THIS PROGRAM COMES FROM AN ARTICLE IN THE MARCH" 370 PRINT "1984 ISSUE OF SCIENTIFIC AMERICAN. "; 380 PRINT "THE ARTICLE WAS AUTHORED BY BRIAN" 390 PRINT "HAYES FOR THE COMPUTER RECREATIONS DEPARTMENT." 400 PRINT 410 PRINT 420 PRINT TAB(26);"PRESS ANY KEY TO CONTINUE"; 430 K$=INPUT$(1):IF K$<=>"" THEN 440 440 PRINT CHR$(&H1A);CHR$(&H1E); 450 PRINT "DO YOU WANT OUTPUT TO YOUR PRINTER"; 460 INPUT A$ 470 IF A$="NO" THEN 520 480 IF A$="YES" THEN 510 490 INPUT "PLEASE ANSWER 'YES' OR 'NO'. >",A$ 500 GOTO 470 510 P=1 520 PRINT 530 PRINT 540 PRINT "ENTER YOUR PATTERN AFTER THE PROMPT (0=DEAD, 1=LIVE)." 550 FOR BB=1 TO 1000:NEXT BB 560 DIM A(82),B$(82),C$(78) 570 PRINT 580 INPUT "> ",A$ 590 L=LEN(A$) 600 IF L>78 THEN L=78 610 FOR X=1 TO L 620 IF MI#D$(A$,X,1)="0" THEN A(X+2)=0 ELSE A(X+2)=1 630 NEXT X 640 IF L>=78 GOTO 680 650 FOR X=L+3 TO 80 660 A(X)=0 670 NEXT X 680 A(1)=A(79) 690 A(2)=A(80) 700 A(81)=A(1) 710 A(82)=A(2) 720 PRINT CHR$(&H1A);CHR$(&H1E); 730 FOR X=1 TO 82 740 IF A(X)=0 THEN B$(X)=" " ELSE B$(X)="*" 750 NEXT X 760 FOR X=3 TO 80 770 NEXT X 780 FOR X=3 TO 80 790 PRINT B$(X); 800 NEXT X 810 PRINT 820 IF P<>1 GOTO 870 830 FOR X=3 TO 80 840 LPRINT B$(X); 850 NEXT X 860 LPRINT 870 C=0 880 FOR X=3 TO 80 890 IF B$(X-2)="*" THEN C=C+1 900 IF B$(X-1)="*" THEN C=C+1 910 IF B$(X)="*" THEN C=C+1 920 IF B$(X+1)="*" THEN C=C+1 930 IF B$(X+2)="*" THEN C=C+1 940 IF C=2 THEN 980 950 IF C=4 THEN 980 960 C$(X-2)=" " 970 GOTO 990 980 C$(X-2)="*" 990 C=0 1000 NEXT X 1010 FOR X=1 TO 78 1020 PRINT C$(X); 1030 B$(X+2)=C$(X) 1040 NEXT X 1050 PRINT 1060 B$(1)=C$(77) 1070 B$(2)=C$(78) 1080 B$(81)=C$(1) 1090 B$(82)=C$(2) 1100 IF P<>1 GOTO 870 1110 FOR X=1 TO 78 1120 LPRINT C$(X); 1130 NEXT X 1140 LPRINT 1150 GOTO 870 1160 END (82)=C$(2) 1100 IF P<>1 GOTO 870 1110 FOR X=1 TO 78 1120 LPRINT C$(X); 1130 NEXT X 11407,00,00,23,23 5950 DATA 15,19,00,00,00,00,24,24 5960 DATA 18,00,20,00,00,00,25,25 5970 DATA 00,00,00,19,21,00,26,26 5980 DATA 00,00,00,00,00,20,27,27 5990 DATA 00,00,13,00,00,23,29,30 6000 DATA 24,00,00,00,22,00,31,31 6010 DATA 25,23,00,00,00,00,32,33 6020 DATA 27,26,33,32,24,00,34,34 6030 DATA 25,00,30,31,00,00,34,34 6040 DATA 34,25,41,00,00,00,34,34 6050 DATA 00,29,42,36,00,00,34,34 6060 DATA 28,38,40,37,00,00,34,34 6070 DATA 00,00,00,26,00,00,35,35 6080 DATA 00,00,26,00,00,00,36,36 6090 DATA 00,00,25,00,00,00,37,38 6100 DATA 00,00,00,25,00,00,40,40 6110 DATA 00,27,00,00,00,00,39,39 6120 DATA 00,28,00,00,24,00,43,43 6130 DATA 00,00,28,00,00,00,44,44 6140 DATA 00,00,29,00,00,00,45,45 6150 DATA 29,00,39,00,00,00,46,47 6160 DATA 40,00,00,38,00,00,28,28 6170 DATA 00,39,00,29,00,00,10,10 6180 DATA 00,00,00,27,42,00,41,41 6190 DATA 00,00,00,28,00,41,42,42 6200 E1 CLR$=CHR$(26) ' CLEAR SCREEN 2 PRINT CLR$ 3 FOR K=1 TO 5:PRINT:NEXT K 10 PRINT TAB(5)"************************* H/Z-89 LUNAR LANDER **************************" 20 PRINT:PRINT 30 PRINT TAB(5) "The author of the original Lander Program is unknown. Modifications" 40 PRINT 50 PRINT TAB(5) "made in adapting this software to Heath/Zenith Computer was implemented" 60 PRINT 70 PRINT TAB(5) "by Hank Toliver in November, 1982." 80 PRINT:PRINT 90 PRINT TAB(5) "************************************************************************" 100 REM 120 RV$=CHR$(27)+"l" ' ENTER HALF INTENSITY 130 XV$=CHR$(27)+"m" ' EXIT REVERSE VIDEO 140 TL$=CHR$(27)+CHR$(120)+CHR$(49)' ENABLE 25th LINE 150 DTL$=CHR$(27)+CHR$(121)+CHR$(49)' DISABLE 25th LINE 160 DC$=CHR$(27)+"=" ' DIRECT CURSOR ADDRESSING 170 CN$=CHR$(27)+CHR$(121)+CHR$(53)' CURSOR ON 180 CF$=CHR$(27)+CHR$(120)+CHR$(53)' CURSOR OFF 190 PRINT DC$;CHR$(56);CHR$(56);CHR$(7) 200 IF INKEY$>"" THEN 200 210 PRINT TAB(25) "Do you want instructions"; 220 C$=INKEY$ 230 IF C$="Y" THEN PRINT CLR$;DC$;CHR$(32);CHR$(32):GOTO 260 240 IF C$="N" THEN PRINT CLR$;DC$;CHR$(32);CHR$(32):GOTO 340 250 GOTO 220 260 PRINT CLR$ 270 RESTORE 1680 280 FOR K=1 TO 18 290 READ IN$ 300 PRINT TAB(10) IN$ 310 NEXT K 320 PRINT DC$;CHR$(54);CHR$(51) "Strike any key to continue....."; 330 IF INKEY$="" THEN 330 340 PRINT CLR$;CF$ 350 PRINT DC$;CHR$(32);CHR$(36);RV$;"S C A N N E R S C R E E N" 360 PRINT DC$;CHR$(32);CHR$(80)"S T A T U S M O N I T O R";XV$ 370 FOR K=0 TO 14 380 PRINT DC$;CHR$(34+K);CHR$(36) "-" 390 NEXT K 400 PRINT DC$;CHR$(34);CHR$(38) "120" 410 PRINT DC$;CHR$(41);CHR$(38) "60" 420 PRINT DC$;CHR$(47);CHR$(38) "8" 430 PRINT CHR$(27);CHR$(70) 440 PRINT DC$;CHR$(33);CHR$(79) "f" 450 PRINT DC$;CHR$(33);CHR$(35) "f" 460 PRINT DC$;CHR$(50);CHR$(79) "e" 470 PRINT DC$;CHR$(50);CHR$(35) "e" 480 PRINT DC$;CHR$(33);CHR$(107) "c" 490 PRINT DC$;CHR$(33);CHR$(63) "c" 500 PRINT DC$;CHR$(50);CHR$(107) "d" 510 PRINT DC$;CHR$(50);CHR$(63) "d" 520 FOR K=0 TO 26 530 PRINT DC$;CHR$(33);CHR$(80+K) "a" 540 PRINT DC$;CHR$(33);CHR$(36+K) "a" 550 PRINT DC$;CHR$(50);CHR$(80+K) "a" 560 PRINT DC$;CHR$(50);CHR$(36+K) "a" 570 NEXT K 580 FOR K=0 TO 15 590 PRINT DC$;CHR$(34+K);CHR$(79) "`" 600 PRINT DC$;CHR$(34+K);CHR$(35) "`" 610 PRINT DC$;CHR$(34+K);CHR$(107) "`" 620 PRINT DC$;CHR$(34+K);CHR$(63) "`" 630 NEXT K 640 PRINT CHR$(27);CHR$(71) 650 PRINT DC$;CHR$(34);CHR$(80) "Elasped Seconds:" 660 PRINT DC$;CHR$(37);CHR$(80) "Miles: Feet:" 670 PRINT DC$;CHR$(40);CHR$(80) "Miles Per Hour:" 680 PRINT DC$;CHR$(43);CHR$(80) "Fuel Remaining:" 690 PRINT DC$;CHR$(46);CHR$(80) "Prior Burn rate:" 700 PRINT DC$;CHR$(49);CHR$(80) "Prior Burn Time:" 710 PRINT DC$;CHR$(49);CHR$(37) "SCANNER MODE: " 720 A=120:V=1:M=33000!:N=16500:G=.001:Z=1.8:L=0:K=0:T=0:BT=0:PO=34:LK=121:LR=0 730 PRINT DC$;CHR$(34);CHR$(97) RV$;L 740 PRINT DC$;CHR$(37);CHR$(87) INT(A) 750 PRINT DC$;CHR$(37);CHR$(100) INT(5280*(A-INT(A))) 760 PRINT DC$;CHR$(40);CHR$(95) 3600$*V 770 PRINT DC$;CHR$(43);CHR$(96) M-N 780 PRINT DC$;CHR$(46);CHR$(100) K 790 PRINT DC$;CHR$(49);CHR$(100) BT;XV$ 800 PRINT CHR$(27);CHR$(106) 810 GOSUB 1760 820 PRINT TL$;DC$;CHR$(56);CHR$(42) CLR$;CN$ 830 PRINT TAB(15);RV$;"Input Burn Rate and Time (Separated by Comma)";XV$; 840 INPUT K,T 850 BT=T 860 PRINT DTL$ 870 PRINT CHR$(27);CHR$(107) 880 IF K>300 GOTO 820 890 IF K<0 GOTO 820 900 IF T<0 GOTO 820 910 IF M-N<.001 THEN 1020 920 IF T<.001 THEN 730 930 S=T 940 IF M>=N+S*K THEN 960 950 S=(M-N)/K 960 GOSUB 1520 970 IF I<=0 THEN 1380 980 IF V<=0 THEN 1000 990 IF J<0 THEN 1440 1000 GOSUB 1340 1010 GOTO 910 1020 PRINT CLR$ 1030 PRINT TAB(10) "* Out of fuel at";L;"seconds":M=0:N=0 1040 S=(-V+SQR(V*V+2*A*G))/G 1050 V=V+G*S 1060 L=L+S 1070 W=3600*V 1080 PRINT 1090 PRINT TAB(10) "* On moon at";L;"seconds....Impact velocity";W;"miles per hour" 1100 PRINT 1110 PRINT TAB(10) "* There's";M-N;"pounds of fuel remaining" 1120 PRINT 1130 IF W>1.2 THEN 1180 1140 PRINT TAB(10) "* Great Landing.....You're a regular Buck Rogers!!!!" 1150 PRINT 1160 GOTO 1580 1170 PRINT 1180 IF W>10 THEN 1220 1190 PRINT TAB(10) "* That was a nice landing.....Live long and prosper!!!!" 1200 GOTO 1580 1210 PRINT 1220 IF W>60 THEN 1290 1230 PRINT TAB(10) "* Craft damaged. You are stranded until a rescue mission" 1240 PRINT 1250 PRINT TAB(12) "arrives. Hope your supplies and oxygen hold out." 1260 PRINT 1270 GOTO 1580 1280 PRINT 1290 PRINT TAB(10) "* You crashed.....No survivors." 1300 PRINT 1310 PRINT TAB(10) "* The Lander blasted a new lunar crater";W*.2777;"feet deep" 1320 PRINT 1330 GOTO 1580 1340 L=L+S:T=T-S 1350 M=M-S*K 1360 A=I:V=J 1370 RETURN 1380 IF S<.005 THEN PRINT CLR$:GOTO 1070 1390 D=V+SQR(V*V+2*A*(G-Z*K/M)) 1400 S=2*A/D 1410 GOSUB 1520 1420 GOSUB 1340 1430 GOTO 1380 1440 W=(1-M*G/(Z*K))/2 1450 S=M*V/(Z*K*(W+SQR(W*W+V/Z)))+.05 1460 GOSUB 1340 1470 IF I<=0 THEN 1380 1480 GOSUB 1340 1490 IF J>0 THEN 910 1500 IF V>0 THEN 1440 1510 GOTO 910 1520 Q=S*K/M 1530 IF Q>.000001 THEN 1550 1540 Q=0 1550 J=V+G*S-Z*Q*(1+Q*(.5+Q*(1/3+Q*(.25+Q/5)))) 1560 I=A-G*S*S/2-V*S+Z*S*Q*(.5+Q*(1/6+Q*(1/12+Q/20))) 1570 RETURN 1580 PRINT TL$ 1590 IF INKEY$>"" THEN 1590 1600 PRINT DC$;CHR$(56);CHR$(32) 1610 PRINT TAB(10)CHR$(7);"Would you like to try again (Y/N)"; 1620 C$=INKEY$ 1630 IF C$="Y" THEN 1660 1640 IF C$="N" THEN PRINT DTL$;DC$;CHR$(32);CHR$(32);CLR$:GOTO 1670 1650 GOTO 1620 1660 PRINT DTL$;DC$;CHR$(32);CHR$(32):GOTO 340 1670 END 1680 DATA, "The capsule weight is 33000 pounds and you have 16500 pounds" 1690 DATA, "of fuel available. Your estimated free fall impact time is" 1700 DATA, "113.553 seconds. You must set the retro rocket burn rate to a" 1710 DATA, "value from 0 LBS/SEC (free fall) to 300 LBS/SEC (full power)." 1720 DATA, "To enter your commands, simply type the pounds of fuel to be" 1730 DATA, "expended; followed by a comma and the number of seconds for" 1740 DATA, "which the burn should last." 1743 DATA, " " 1745 DATA, "E X A M P L E : '300,30' (means 300 lbs for 30 seconds)" 1750 DATA, " G O O D L U C K" 1760 PRINT DC$;CHR$(PO);CHR$(49) " ";CF$ 1770 GOSUB 1800 1780 PRINT DC$;CHR$(PO);CHR$(49) "L.E.M.";CHR$(7) 1790 RETURN 1800 IF A>15 THEN 1810 ELSE 1910 1810 LR=LR+1 1820 IF LR>1 THEN 1840 1830 PRINT DC$;CHR$(49);CHR$(52);RV$;"Long Range";XV$ 1840 SR=0:LK1=0 1850 FOR K=LK TO 0 STEP-1 1860 LK1=LK1+.125 1870 IF INT(A)1 THEN SR=SR+1:GOTO 1940 1920 GOTO 2080 1930 REM:IF A<=1 AND INT(5280*(A-INT(A)))<5280 THEN 2500 1940 IF SR>1 THEN 1990 1950 PRINT DC$;CHR$(49);CHR$(51);RV$;"Approach";XV$;" ";CHR$(7) 1960 PRINT DC$;CHR$(34);CHR$(38) "15 " 1970 PRINT DC$;CHR$(41);CHR$(38) "7 " 1980 PRINT DC$;CHR$(47);CHR$(38) "1" 1990 PRINT DC$;CHR$(PO);CHR$(49) " " 2000 GOSUB 2020 2010 PRINT DC$;CHR$(PO);CHR$(49) "L.E.M." 2020 LK=16:NR=0:LK1=0:PO=34 2030 FOR K=LK TO 0 STEP-1 2040 LK1=LK1+.755 2050 IF INT(A)1 THEN 2110 2090 PRINT DC$;CHR$(49);CHR$(51);RV$;"Landing";XV$;" ";CHR$(7) 2100 NR=2 2110 PRINT DC$;CHR$(34);CHR$(38) INT(5280*(A-INT(A)))*2;"ft " 2120 PRINT DC$;CHR$(41);CHR$(38) INT(5280*(A-INT(A)));"ft " 2130 PRINT DC$;CHR$(47);CHR$(38) INT(5280*(A-INT(A)))/2;"ft " 2140 PO=41 2150 IF 3600*V<5 AND INT(5280*(A-INT(A)))<20 AND M-N>600 THEN GOSUB 2170 2160 RETURN 2170 FT=INT(5280*(A-INT(A))):SP=.1 2180 PRINT DC$;CHR$(41);CHR$(49) "L.E.M." 2190 FOR K=FT TO 0 STEP -1 2200 PRINT CHR$(7) 2210 PRINT DC$;CHR$(37);CHR$(100);RV$;K 2220 PRINT DC$;CHR$(43);CHR$(96) M-N 2230 PRINT DC$;CHR$(40);CHR$(95) (3600*V)-SP;XV$ 2240 PRINT DC$;CHR$(34);CHR$(38) K*2;"ft " 2250 PRINT DC$;CHR$(41);CHR$(38) K;"ft " 2260 PRINT DC$;CHR$(47);CHR$(38) K/2;"ft " 2270 N=N+25 2280 FOR Z=0 TO 200:NEXT Z 2290 PRINT DC$;CHR$(53);CHR$(41)" " 2300 FOR Z=0 TO 200:NEXT Z 2310 SP=SP+.1 2320 PRINT DC$;CHR$(53);CHR$(41);RV$;"Automatic Sequencing Has Been Initiate%d";XV$ 2330 NEXT K 2340 FOR K=0 TO 500:NEXT K 2350 PRINT CLR$;CN$ 2360 FOR K=0 TO 9:PRINT:NEXT K 2370 PRINT TAB(10) "You are now safely on the moon. All systems are operational" 2380 PRINT 2390 PRINT TAB(10) "and on standby status. Have a nice visit!" 2400 GOTO 1580 oon. All systems are operational" 2380 PRINT 2390 PRINT TAB(10) "and on standby status. Have a nice visit PRINT 820 IF P<>1 GOTO 870 830 FOR X=3 TO 80 840 LPRINT B$(X); 850 NEXT X 860 LPRINT 870 C=0 880 FOR X=3 TO 80 890 IF B$(X-2)="*" THEN C=C+1 900 IF B$(X-1)="*" THEN C=C+1 910 IF B$(X)="*" THEN C=C+1 920 IF B$(X+1)="*" THEN C=C+1 930 IF B$(X+2)="*" THEN C=C+1 940 IF C=2 THEN 980 950 IF C=4 THEN 980 960 C$(X-2)=" " 970 GOTO 990 980 C$(X-2)="*" 990 C=0 1000 NEXT X 1010 FOR X=1 TO 78 1020 PRINT C$(X); 1030 B$(X+2)=C$(X) 1040 NEXT X 1050 PRINT 1060 B$(1)=C$(77) 1070 B$(2)=C$(78) 1080 B$(81)=C$(1) 1090 B$(82)=C$(2) 1100 IF P<>1 GOTO 870 1110 FOR X=1 TO 78 1120 LPRINT C$(X); 1130 NEXT X 1140 This is the release date of the disk. SURVIVALBAS 8LINELIFEBAS LUNAR BAS !SPACEADV.BAS 5B 4B 33536 262 SURVIVAL.BAS 39 53 14464 113 LINELIFE.BAS 6F 73 3200 25 LUNAR .BAS DE A1 8576 67  Fog Library Disk FOG-CPM.007 Copyright (1988) by Fog International Computer Users Group to the extent not copyrighted by the original author for the exclusive use and enjoyment of its members. Any reproduction or distribution for profit or personal gain is strictly forbidden. For information, contact FOG, P. O. Box 3474, Daly City, CA. 94015-0474. as part of the description of a file indicates that the program is distributed on a "try first, pay if you like it" basis. If you find the program(s) meet your need, please refer to the author's documentation for information on becoming a registered user. Only by registering and paying for the programs you like and use will the authors of such programs continue development. Often, more complete documentation, additional modules, and new releases are available only to registered users. Games for most CP/M computers. A couple (written in MBasic) reference specific machines but most users will enjoy them. Filename Description -01-07 .88 This is the release date of the disk. -CPM007 .DOC This is the description of the disk contents. ZCHESS .COM CFD3 8K [ZCHESS 1 of 2] A chess game for Z80 computers. ZCHESS .DOC 71E6 3K [ZCHESS 2 of 2] GUSHER .COM 1B0E 31K [GUSHER 1 of 2] A strategy game for most CP/M computers. GUSHER .DOC CF87 4K [GUSHER 2 of 2] DEEPSPCE.BAS DB20 8K MBasic adventure-like game for most CP/M computers. DOGSTAR .BAS 77A1 18K MBasic Adventure-like game for most CP/M computers. FIGHTER .BAS 9E06 5K MBasic target game for most CP/M computers. LOSTGOLD.BAS 4D9C 21K MBasic adventure-like game for most CP/M computers. POKER .BAS 40B2 9K MBasic card game for Osborne computers. SPACEADV.BAS 5B4B 33K MBasic game similar to Star Trek for most CP/M'ers. SURVIVAL.BAS 3953 15K MBasic adventure-like game for most CP/M computers. LINELIFE.BAS 6F73 4K MBasic one-dimensional cell generation program. LUNAR .BAS DEA1 9K MBasic lunar landing game for Heath/Zenith computer . FIGHTER .BAS 9E06 5K MBasic target game for most CP/M computers. LOSTGOLD.BAS 4D9C 21K MBasic adventure-like game for most CP/M computers. POKER .BAS 40B2 9K MBasic card game for Osborne computers. SPACEADV.BAS 5B4B 33K MBasic game similar to Star Trek for most CP/M'ers. SURVIVAL.BAS 3953 15K MBasic adventure-like game for most CP/M computers. LINELIFE.BAS 6F73 4K MBasic one-dimensional cell ge&'