:Last Update - 7/17/82:AM:A.Vanchura> A : (A) $ :(A) :P ( ) n s( ,,: P: ,,:XX:YY2 : ,,<: AY: Z: Z( ),HIT(,(),PAY(,,),MAP(d,),WELL( )F(((,)))P(0u)ZZUM"$$########,.##" dCSH$tn . : 'xCHS1 ;  r ,: ,:"Please Pick A Drill Site.";: ,Z: (Z"A" Z"J") (Z"a" Z"j")  Z"J" Z((Z) ):A(Z)A : A(Z)A" "Z;Z: Z"" & Z"0" Z"9" ,: 2): 7B(Z): Z;DCA By MAP(C,) MAP(C,) ,: O);:  6 YES  CHS   : ,: (P,)"  ,, ,(: ""6  ,#:""!@  ,#:" "<J  ,#:" ۺ "WT  ,#:" ۺ "r^ ,#:" "h ,#:" "r ,#:" ܺ "| ,#:" " ,":" ߺ " ,":" " ,":" "0 ,(: "": ,` ,:"Potential Pay Zone :"; ,: SZN"To"EZN"Ft.": , ,:"Cost To Drill Per Ft : "; ,: "$$#.##";: ,MAP(C,):CSFSZN:DTSZN  CSHCSF OOM:YRN(CHS)(CSH):  2D:CHSCHS` CSHCSF OOM:YRN(CHS)(CSH):   ,: ,:"Cost So Far "; ,: ZUM;CSF: , ,:"Current Depth ";& ,: DT: ,0DD:TRY(() DPAYOFFHIT(TYPE,TRY)N PAYOFF 2X ,: O);Eb ,: O);}l , :"No Show At";: " ##,### ";DT;:"Feet.";v D  ,:"You Must Try A New Well Sight"; X ::   ,: ,:"Do You Wish To Go Deeper? ";: ,& : YES 8YRN(CHS)CSFZOPD:GSP:FRC:OPN: m ,: O); ,: O); , ,:"Strike Enter Key When Ready"; ,:"Enter New Test Depth : "; ,Z1""Z: Z""   Z( ) HB (Z,)(K) Z() 4W  (Z1) n* Z;:Z1Z1Z: 4 (Z1) > ()( )();:Z1(Z1,(Z1)): H ,,: O);: ,:DPT(Z1)R DPTDT p"\ ,:"You Must Go Deeper ";: X :;f ,: O);: Pp DPTEZN cz ,: O); ,:"You Are Past The Pay Zone"; CC :: CSFCSF(DPTDT):DTDPT:  ,: O); ,: O);0 ,:"Oil And GAS Show At";: " ##### ";DT;:"Feet";>FRC DTl ,:"Fracture Cost Is";: ZUM;FRC; ,: O); ,:"Do You Want To Fracture? "; : NO HIT(( ))OPDPAY(HIT,PAYOFF,TYPE)GSPPAY(HIT,PAYOFF,TYPE)0 ,: O);C ,: O);V$ ,: O);. ,:" !! EUREKA, WE STRUCK OIL !!"8 BB ,:"Well Will Produce";L ,: " ### ";OPD;: ,V"Barrels Of Oil Per Day";` ,:"";0j ,: " #,###,### ";GSP;: ,Zt"Cubic Feet Of Natural Gas Per Day";t~OPN((K))  ,: ,:"Strike Any Key To Continue": ,Z: Z""  ,: ,: ((,"")  A : A,:"": A,;:"":% ,: ((,"");V ,: ,:"***** INCOME STATEMENT *****"m ,: (&,"") ,: ,:"Well #"CHS ,&: :"Costs" ,: ,:"Drilling" ,:"Fracture"  : ,:"1 YR. OPER. " TOTALCOSTOPNFRCCSF:  ,: ,(: ZUM;CSFQ  ,(: ZUM;FRCl ( : ,(: ZUM;OPN 2 ,: ,:"Total Cost" < ,: ,(: ZUM;TOTALCOST F :  ,":"Gross Income" P ,:  ,:"Oil"!Z :  ,:"Gas "0!dODSOPD(#:GDSGSPffA!nGRDSODSGDSc!xRVS(ODSGDS):WELL(CHS)RVS{!  ,(: ZUM;GDS! ,:  ,(: ZUM;ODS! ,: ,:"Total Income"! ,(: ZUM;GRDS! : ,:"Cost -""NTPGRDSTOTALCOST-" ,(: ZUM;TOTALCOSTN" ,: ,:"Net Profit"l" ,(: ZUM;NTP: ," ,:"Estimated Reserves In Ground""CSHCSHNTP"YRN(CHS)NTP" ,: ,(: ZUM;RVS: ,#ADD: A CHS:ADDADDWELL(A):,# ,:"Total Reserves So Far "Q# ,: ,(: ZUM;ADD: ,#" ,: ,:"Strike Any Key To Continue";#, ,:Z: Z"" , : #6: ,:  ,#@ "ͻ"$J ,:" GEOLOGY REPORT "/$T ,:"ͼ"g$^ ,:"ͻ"$h X  : X,:"": X,<:""$r$|  ,:"ͼ": ,$SZNMAP(C,):EZNMAP(C,):TYPEMAP(C,)"% ,:"Potential Pay Zone :"L% ,: ,: SZN"To"EZN"Ft.": ,|% ,:"Target Zone Starts At"SZN"Ft."% ,: ,:"Do You Wish To Drill? ";: ,%Z: Z"" % Z"Y" Z"y" YES:NO:& Z"N" Z"n" NO:YES:& 0& X : X:=& ,:h& ,:"B O O M C O U N T Y U S A&B1:B2:B3:B4:B5:B6:B7:B8:B9:B0& SEG& (() 0)0 SEG0 : SEG8 'A: A, : (<,)}'& A,B8: A ,B9: A,B9: A$,B9: A0,B9: A<,B9: AH,B9: AT,B9: A`,B9: Al,B9: Ax,B0'0 AR  (: A,B1: A ,B1: A,B1: A$,B1: A0,B1: A<,B1: AH,B1: AT,B1: A`,B1: Al,B1: Ax,B1(DAA.(N A, : (<,)(X A,B2: A ,B3: A,B3: A$,B3: A0,B3: A<,B3: AH,B3: AT,B3: A`,B3: Al,B3: Ax,B4(b)l A,B1: A ,B1: A,B1: A$,B1: A0,B1: A<,B1: AH,B1: AT,B1: A`,B1: Al,B1: Ax,B1')vAAB) A, : (<,)) A,B5: A ,B6: A,B6: A$,B6: A0,B6: A<,B6: AH,B6: AT,B6: A`,B6: Al,B6: Ax,B7) ,:D) A  ) C: B C ,* MAP(D,) A,B: Z(A) ((C),)B* DD:CC:H*p* ,:"Cash Assets";: ZUM;CSHv**  ,:"ONE MOMENT PLEASE";* C d:  MAP(C,): + L MAP(C,):MAP(C,)X:MAP(C,): =+  MAP(C,)L:MAP(C,)':MAP(C,): l+ MAP(C,)):MAP(C,)::MAP(C,): r++  A  : Z(A):+* B : A (: HIT(B,A): A,B+4 C +> B +H A +R PAY(A,B,C),\ A,B,C,f A,B,C,D,E,F,G,H,I,Jr,p 1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,4,4,4,4,4,4,4,4,5,5,5,5,5,5,z 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,3,3,3,3,3,3,4,4,4,4,5,5,5,5- 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,5,5L- 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0- 54,0,13,240,0,370,112,0,41,600,0,514,70,112,95,0,0,301,62,98- 37,0,12,128,0,131,19,50,0,167,6,114,42,0,36,20,0,185,39,11 . 0,75,15,32,21,0,7,39,0,78,3,67,17,0,0,59,0,133,22,11@. 0,22,8,11,2,0,6,13,0,61,3,36,8,2,0,60,4,0,0,24n. 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0. 0,461,123,0,78,502,124,120,270,0,0,960,41,581,108,333,0,1333,121,380. 0,197,51,0,22,142,37,65,51,0,17,131,0,233,41,69,19,158,65,0:/ 0,141,13,88,30,0,6,106,15,53,28,0,21,50,0,137,25,83,49,0p/ 7,0,4,34,0,47,9,25,17,0,11,30,2,6,11,0,3,0,4,13/ 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0/ 276,620,29,1500,282,0,0,4400,241,1200,35,1400,860,0,80,997,240,0,105, 2200'0 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0U0 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,00 0,200,40,0,23,90,41,33,0,187,32,104,0,202,43,0,0,281,27,1040$ 0. 08 ,: (P,)0B A 0L A,:"": A,P:""0V 1` ,: (P,);41j ,: ,:"* * * W I L D C A T T E R * * *w1t  ,:"Would You Like Instructions? ": , 1~ : NO :1 , :"1 ,:"In this game, you own an independent oil and gas2 ,:"drilling company. First you must select a drilling]2 ,:"sight from the map of Boom County. After you enter2 ,:"your sight, you will be shown a geology report2 ,:"indicating the potential pay zone. The deeper you!3  ,:"drill a well, the less chance you have of findingc3  ,:"oil or gas, but the chance of finding huge strikes3  ,:"increases. Shallow wells are more likely to produce.3  , :"3 ,:"If after drilling to the potential pay zone and no94 ,:"oil or gas is indicated, you may choose to drill to{4 ,:"ONE other depth at that sight. If you do show oil4 ,:"or gas, you must FRACTURE a well before production.4 , :"5 ,:"We have loaned you $1,000,000 to begin exploration.R5( ,:"That is your credit limit. When you have completed52 ,:"ten wells or run out of operating capital, you will5< ,:"be given a final statement of operations. GOOD LUCK5F , 6P ,:"Strike Any Key To Continue";6Z ,26d Z: Z"" d : :L6n ( ) :XX:YY()f6x ,: O);: ,6 ,:"Do You Wish To Leave This Game? ";6 : YES  6 ,: O);: ,: ,7 " Strike To Leave This Game ";: ,7 XX,YY:( ) :$7 "MENU*7 A7 ,: (2,"")j7 A : A,:"": A,@:"":7 ,: (2,"");7 ,: ,:"***** FINAL STATEMENT *****"7 ,: (0,"")8 ,:"Well # 1st Year Earnings Reserves"18 A  : ,: "##";A;:  );O8 TOTALRVSTOTALRVSWELL(A)c8 ZUM;YRN(A);~8" " "ZUM;WELL(A)8, 86 ,8@ OOM ,: "$$#,###,###.##";$t;: T 8J ,: "$$#,###,###.##";CSH$t;9T ,(): "$$,###,###,###.##";TOTALRVS59^ OOM h :  m9h ,:"You Ran Out Of Money At "(CSH)"Feet.9r ,:"You Have 30 Days To Repay Your Loan9| ,:"Personal Checks Are Not Accepted !! : ,: ,:"Would You Like To Play Again? ";,: ,: : NO  :