' +JJJJ ?\>m0M='+l> /+l  ӍԠ٠Ġٮčɭ0LL Լ ռ ռ ռ`HJ>݌h Hh݌`S6`LxQɿu  ة֩JJJJIЅ֠],LWH鷎JJJJx  f5巬 췌`GG FGx (`(8`z𷭷I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ԠĠٮ  !"#$%&'()*+,-./0123456789:;<=>?+ 0+ 0+824+82<<+ 0+ 0*#8*!6*?!5*#<"0#<)#=*4!5(.-:::20 $=-/"0(,&#:-#=-"**'>' -*-#<-*#8- -/"0 +9-+9---+;-"(::3;-#;-3<-38-47!)("4?94=9/,  +-#<-*#<-+--?#:-**$24>:-->--?;680^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED f $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`  cpq` [` Y Y LCFG8`0($ p,&" L鷭  d@LҦ{|LFBBbL`y".Q`pNФbptťܥm2<(-Py0\|66e< L鷭巬 췌`x (`(8`z𷭷I`B` ` `Ӝu`y".Q`pNФbptťܥm2<(-Py0\|66e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎL yz a`` L̦̀_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n{ y `@-eff z L }f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\yzL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NСyz `A@` LL`  \ ޿0 \  ȟ Q ^\lZl^?cqH şch`f}h~j@OAP`u@`@g&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`M ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-X̠Ӡ٠͠ӠٿԠŠˠĠ@yy`\ m ͭ \6\ 8 ЊL5`H h L~̮ `{|Jmmjnnnۭ}m~mm`"L 8H (Y`  d̠֠Y)xꪽ)' `LV0^*^*>&` aI꽌ɪVLɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`~~~?x?pp~@FD 0p~`xx?p@p@@px?p||``|x`@`p||x?p@x`?~"@~~@x?x?`xx?pp`|@`px?` "p|`xx?`?xp`x?x?@`x?xp|?~~xx?ppx>~X Pp~``x?p~@@@x?p~o|`pxC`p|px?p```x` @x@x?x?`?x|?x`pp|@`@x? |~```x?@?p~@x?p~``x?`@p|px?p``x``|`x?p~x~x~x?p~Ox?|`@xLb@x?x?@x?p````@~`p|`xpp`ppx?@`~x?|?0p~``x?~px~||p~``x??@|@x?p`@`i`|`x?p~`xD`xx?pGx?p?`~x?@@@x?x?~x?pp|?` Cp@p|`x@p@px?x?@`xx?p@|@`|x?|`axp|`|p`?x?|~~po~~{op@~~~@pp `|{o{oԊ{op@|~~@pp?``~{o?`@@??3{oppp?`~x@pp?`x{ox}_owCv~x{xo?`@@{o{o{o?~~~{opp?@x~x~?``?{o_3w_Nq{Os{o{o{o?@x~pp@p{oxx@@{o{o{ggo|@Ĉ{op?@~~~A@pp0`~{o@ovp{oĈ{op?@|~~@pp``~{o?`@@3333333{op?p``~x@pp?`x{o_s}_nw{wMs{o?`@@w=}{o@~?@`0?x{o{o?`@@{o{o{o??{ox?x@~|~?`?`?@{o8wOsC{>x{o{o{o~?@x~x~p``{ox@@{o{o{sOo|@`Ĉ{op`|~~A@pp0`~{o{oĈ{op@|~~@pp`@|{o?@@@????;???3{op?p`p~x@pp?`x{o_w}_onv<{wm[w{o?`@@={op~x@~|@p?@?|{o~{o?`@@{o{o{o?@@@{o|?x`|?`?@{o{o{o~{o|?@x~|~p``{o|@@{o{o{yox@`ԊՂ{opp|~@@pp8`?{o{oĈ{opA|~~@pp`x{o??3?3{op?p`p~x@px?`x|{o_w}_glv>{lYs{o?`@@?=?{op~p@~x@p?`{o{p|`~x?xx|?xpx?@`x?~|?ROWN STUFF,SOME KIND OF GRAY STUFFQ BASALT,LAVA,A FUMAROLE,A BATHOLITH,IGNEOUS ROCK,GYPSUM DEPOSITS,FELDSPAR DEPOSITS,CALCITE,DOLOMITE DEPOSITS,A QUARTZ BED,AN ANT BED,SANDSTONE,A CAVED-IN CAVE,A CAVED-IN MINE,RED CLAY,RED DIRT,AN OLD MINE SHAFT,A LIRNS,A FISSURE,A FAULT LINE,SLIMY MUD,SLIMY WATER,AN OLD MINE "Pv AN UNDERGROUND RIVER,A SALT CAVERN,A SALT DOME,SALT DEPOSITS,THE LOST DUTCHMAN MINE,WORMS,A SUBWAY,A CABLE,A CABLE TELEVISION LINE,ORGANIC MATERIAL,SOME KIND OF GREEN STUFF,SOME KIND OF BZxx556688::;????@@CCEFGHIJKLPQRTWZZZZZ[[[[[[\\\]]]^_`acffgghijlnxz{|}~}||{{{{{{zmdYPNNNFFFAA@A@A@A@AACCCCCCAAAA@@@BCDDCA>>==?=>=?;;::9;::;:986689;:665810100/00/128:8;<<=??@CCA@CDCA@CEFFILJIKLLKJNNPPUUVVUVWYYWVYVZZ[YYZ\]^_]\ _`_abc_`bdfdegffikmYVNF1-,2<0/.-,(,-.0123{peddddeeefgghhihgfca`^[ZYWVUVWYZbbbba`_aabbccbbba`^ZZQPPQPQRQRQRSQRPPOOLLKJIIKKKLOOPPSSTTUTSSPQG=366543456789:;:97853111;CLR[cgmqsrstuvbXNDBA@6,+*+,-./9CMWaXWXYYZbbcdfmx{|}~xnkjidZPF<768696:587-+*)-,-,+*))*+-/19CDENNNOPYYYYPQYYZccdd{{+,-./0179;ACDEFNTX^dlpsxxyz{|{zyxy|~}xsi_]\[_aabmrz}xsndZPF<2(&%$##$%&''()*+,-./.-/12479;?CEIKOSWcmkifd[ZXWVZ\^c\ZZXWMLKJIHIJKLMNPQSTUVYZcmwz~}|{{|}~}ywutqnistuvutsrqponopsuw{         (((,,,22233456789:;;;;<99                                                          o?`@@{o{o{o?`@@{o~?xp~?``{o{o{o{ox?@x~||p`?@{o|@@{o{o{ |?op@`ԊՂ{ox@?@`p8`?@{o~{oĈ{opA~|~@pp`p{                 SPACE BAR "::8:22:"- CLASSIC VERSION":24:"OF OIL BARONS":12:12:"1) REALITY VERSION":`12:"2) QUICK CLASSIC GAME"::12:"3) QUICK REALITY GAME"::12:"4) CUSTOMIZED GAME" a:12:"5) CLASSIC GAME WITH OPTIONS"::12:"6) REALITY GAME WIA:40000b_:8:"YOU MUST ACHIEVE A NET WORTH OF"::NB$;" BY THE END OF"::"TURN NUMBER ";TG%_:"WITH EITHER OF YOUR TWO COMPANIES:"::7:"1) ";N$(1)::7:"2) ";N$(2)_225_:4:"WHICH GAME DO YOU DESIRE?"_`7:"PRESS...":8:10::"RNS DESIRED--ANY"::"NUMBER GREATER THAN 5 OR LESS THAN 1000"::10:"ENTER> ";TG%k^>TG%5TG%1000820^H:10:"ENTER SKILL LEVEL DESIRED (1-9) >>";X^RX1X9840^\DA(TG%(1(X12)))(1750000((1)375000)):DA(DA1000000)1000000_pB9DILDCATTERS,BIGG,OIL CZAR,MIDDLE EAST,BIG RISK,HOPEFUL,UNUSUAL,MAJOR,PIPELINERS,PRICE & FIXX,TARR & BALL,RICKETY RIG,OIL DRUM,HOLEMAKER,EURASIAN,BRITISH,UNITED KINGDOM,MEXICAN]/ GULF COAST,BAYOU,BIG TEX,CANADIAN,CARIBBEANS^4:10:"ENTER NUMBER OF TU,MEGACORP,GIANT,SUPER,SUPERDOLLAR,RUSSIAN OIL,RUSKIE OIL,IRAN OIL,SAUDI OIL & GAS,MIDDLE EAST OIL,OHECK OIL,ARABIA,ALADDIN,MYSTIC,U.S. PLASTICS,AFRICAN,INDIAN OCEAN OIL,ASIA OIL,NORTH SEA OIL,POLAR OIL]+ AUTOMATED OIL,EPYX OIL,OUTSTANDING,SNAKE EYES,WS,HUNTER,HUNTAWELL,DOVER,ALASKA,NORTHERN SLOPE,OILASKA,PIPELINE,UNIVERSITY OF TEXAS,COASTLINE,GULF COAST,OFFSHORE,OFFSHORE OIL,U.S. OIL,1776,CENTENNIAL,INDEPENDENCE,INDEPENDENT,SYNFUELS,CHEMICAL ENGINEERING,U.S. CHEMICAL\* GENERAL,SPECIFIC,CONGLOMERATENA,UTAH Z SMITH,AMERICAN,NATIONAL,UNITED,NORTH AMERICAN,DRY HOLE,DRILLALOT,ATLANTIC,PACIFIC,ARCTIC,ANTARCTIC,SOUTHERN,NORTHERN,SOUTHWEST,NORTHWEST,GREAT NORTHWEST,GREAT SOUTHWEST,PLAINS,MEGABUCK,SERENDIPITY OIL,A.A. OIL,EASTERN,OCEANIC OIL [  ATLACORPORATION,S.A.,CORPORATION Z JONES,SPINDLE OIL,TEXAS OIL,TEXAS,OKLAHOMA,LOUISIANA,PENNSYLVANIA,CALIFORNIA,UNCLE JED'S OIL,MOUNTAIN,COMMERCE,I. M. BIGG,PHEINDUM & DRILLUM,BLACK GOLD,TEXAS T.,RICHMAN,CASTLE,SIERRA MADRE,ROCKY MOUNTAIN,COLORADO,ARIZONTS,ICE CUBES,A SNOWMAN,A FROZEN CAVEMAN,A SNOW CONEY CORPORATION,INCORPORATED,COMPANY,COMPANY U.S.A.,ENTERPRISES,ASSOCIATION,INDUSTRIES,MANUFACTURING,EXPLORATION,MINERALS INC.,MINING AND EXPORT,PETROLEUM,PETROCHEMICALS,LTD.,MINING COMPANY,CO.,CORP.,,LONG JOHN SILVER,DAVEY JONES' LOCKER,MOBY DICK,CAPTAIN AHAB,A BURIED SEA FOSSIL4X ICE,AN ICE RIVER,AN ICE CAVE,ICE CAVERNS,AN UNDERGROUND ICE LAKE,AN ICE TUNNEL,AN ICE FISSURE,FROZEN WASTELAND,REINDEER BONES,POLAR BEAR BONES,ESKIMO BONES,IGLOO BLUEPRIED,SEA FOSSILS,SEABED CREATURES,ATLANTIS,ATLANTIS,A BURIED SHIPWRECK,A DEAD SAILOR,AN IMPORTANT FISH FOSSIL,SAND,SAND AND SALT,SALT AND SAND,SALT WATER,SALTY WATER,A SEA MONSTER,SEAWEED,A SAND DOLLAR,AN ANCIENT MARINERPW SALTY DEPOSITS,A TREASURE CHEST,THE EARTH'S CORE,CHINA,HONG KONGCU @&!#@+%,SOMETHING,%$!*&#+?!U HADES,THE UNDERWORLD,A JAPANESE SEWER LINE,A NUCLEAR TEST SITE,NUTHIN',NOTHIN',SOME KIND OF LOW-LIFE,A CHEMICAL DUMP,MOLES,A MOLE HOLE,AN ANCIENT PET CEMETERY,ZILCHV AN OLD SEABMELLING LIQUIDS,GOOD-SMELLING LIQUIDS,AROMATIC HYDROCARBONS,LIMESTONE CRUSTS,ROOTS,BIG ROOTS,A NETWORK OF ROOTS,A COMPOST BED T KRYPTONITE,ROCK BOTTOM,A NEW LOW,BEELZEBUB,TURTLE EGGS,A WORM HOLE,A BLACK HOLE,EARTHWORMS,NOTHING!U THE EARTH'S BOWELSHINESE NEWSPAPER,SOMETHING HARD,SOMETHING SOFT,SOMETHING WET,SOMETHING VERY DRY,AN ANCIENT TOMB,DUST,AN AIR HOLE,A WIND CAVE,A METALLIC VEIN,A FUNGUS GARDEN,AN UNDERGROUND CAFETERIA,DARKNESS~T FOUL-SMELLING GASES,GOOD-SMELLING GASES,ACIDIC GASES,FOUL-SLGAE-LADEN WATER,CALCIUM DEPOSITS,PHOSPHOROUS DEPOSITS,BONES,DINOSAUR BONES,ANCIENT BONES,AN ARCHEOLOGICAL SITE,DIATOMACEOUS EARTH,MICROSCOPIC FOSSILS,INSECT FOSSILS,ANIMAL FOSSILS,PREHISTORIC FOSSILS,PREHISTORIC BONESS CAVEMAN TOOLS,CAVEMAN BONES,A CMESTONE GROTTOQ A LIMESTONE TUNNEL,TRAVERTINE,A BLOWHOLE,AN ESCARPMENT,AN ANCIENT CORAL BED,ANCIENT SEABED STRATA,POROUS ROCK,SOFT ROCK,AN ACID POOL,A MICA DEPOSIT,FORMICA,LINOLEUM,CAUSTIC MINERALS,SALT SOLUTION,SALT WATER,BACTERIA-LADEN WATERR AAINING TURNS A SECRET FROM THE"::"PLAYERS? PRESS 'Y' OR 'N'";:L$:L$"Y"L$"N"10900x *L$"N"V%(0,3)0:11000 *:"PRESS THE LETTER CORRESPONDING TO THE"::"RANGE OF GAME-TURNS DESIRED: ":j!*7:"A> 5 TO 15 TURNS"::7:"B> 16 TO 25 TURNSR 'N'";:L$:L$"Y"L$"N"10902?*L$"N"V%(0,3)0:11000*V%(0,3)1::X(1).5:XX.75:DADAX:10:"THE DOLLAR AMOUNT ENTERED PREVIOUSLY"::"HAS NOW BEEN MODIFIED!":11000*P1%112000[ *:9:"DO YOU WISH TO KEEP THE NUMBER OF "::"REMANDOMLY MADE ACCURACY)":EX*"WHICH? >";:L$:(L$)1(L$)910820eb*X(L$):XX.05:S%(100X)rl*:15000*16368,0:G$"A"10902*10905"*:8:"DO YOU WISH TO KEEP THE DOLLAR AMOUNT"::"GOAL A SECRET FROM THE PLAYERS?"::"PRESS 'Y' O (MOST ACCURATE)"::"2) SUPER SURVEYS INC."::"3) SIR VAIR CORPORATION"::"4) O. K. SURVEY CO.":N*"5) AMATEUR SURVEYS INC."::"6) SLIM CHANCE SURVEY CO."::"7) WILD HARE SURVEYING"::"8) A FRIEND OF A FRIEND (LEAST ACCURATE)";::"9) UNKNOWN (R )150000*16368,0::10:"DO YOU WISH TO MODIFY THE ACCURACY OF"::"THE SURVEYS? PRESS 'Y' OR 'N'";:L$:L$"Y"L$"N"10800:*L$"N"10900dD*:"ENTER THE NUMBER CORRESPONDING TO THE "::"COMPANY DESIRED...":::"1) PRECISION SURVEY CO.R OWN PRESIDENT"::"FOR THE START OF THE GAME? ( Y OR N )";:L$:L$"Y"L$"N"10710i)L$"N"10800u)PR%1:)10:"ENTER NAME OF THE PRESIDENT (NAME MUST"::"BE LESS THAN 16 CHARACTERS LONG..."::7:"ENTER NAME >";PR$:(PR$)15PR$""10730NY OF THESE PROPERTIES DISPUTED?":17:13)"('Y' OR 'N')":X(16384):X21710516c,)X20610556n0)105364)20:"HIT ANY KEY TO CONTINUE.":X(16384):X128105488)<)16368,0:)16368,0:QG%110800W):10:"DO YOU WISH TO NAME YOU384):X21710516" )X20610556-)10504;)16368,0l):10:"HOW MANY PROPERTIES ARE DISPUTED?";X)X12X010520 ):2:N$(Z);"'S NEW PROPERTIES"::"ARE LOCATED AT:"$)Y1X:5)"(";(50(1))1;",";(40(1))1;")":R()15:"ARE AU 12) >";X0:X01X01210410C(Z1C::"PROPERTIES FOR ";N$(Z)(Y1X0:A((1)50)1:D((1)40)1:Y3:11:"(";A;",";D;")"::16368,0:10500((10700)20:"ARE ANY OF THESE PROPERTIES DISPUTED?":22:"PRESS 'Y' OR 'N'")X(16x(:15000:16368,0$(16368,0(:9:"DO YOU WISH TO MODIFY THE STARTING"::"PROPERTIES GIVEN EARLIER? ('Y' OR 'N')";:L$:L$"Y"L$"N"10400(L$"N"10700(:"HOW MANY PROPERTIES SHALL EACH PERSON"::"RECEIVE? ENTER A NUMBER (1 THRZ11000:f2.f::10:"STAND BY...":-յ! !  8λe+ePíQG%1ĺ:12:"> QUICK VERSION <"XeZíL$"5"L$"6"ĺ:13:"+ WITH OPTIONS +"^edñe0Z(222):Z254Z53ĺ:8:"PLEASE ENTER CORRECTLY!!!":(7): f1Z255ĺ(7);"]BREAK IN LINE 1230":"]";::" "::Z12000::(7);"]O.K. BREAK'S OVER!":|B9(B91000):N0$((B9)):N1$(N0$,(N0$)6):N2$(N0$,(N1$)1,3):N3$(N0$,3):NB$M$(0)N1$","N2$","N3$",000":40090dN1$(N0$,(N0$)6):N2$(N0$,(N1$)1,3):NB$M$(0)N1$","N2$",000":40090dN1$(N0$,(N0$)3):NB$M$(0)N1$",000"0"c.520"CUSTOM"*c16368,0::63000Gc(4);"BLOAD CHAIN,A520"^c520"GAME RESTORE"c@B9(B9):N0$((B9)):M$(0)"$":B90M$(0)"-$"cJ(B9)99999999940060cT(B9)99999940070c^(B9)99940080chNB$M$(0)((B9))cr40090dOAD CHAIN,A520"!b$'520"CLASSIC"eb*:10:12::"**- OIL BARONS -**"::12:"'REALITY VERSION'":pb*50000b+(4);"BLOAD CHAIN,A520"b +520"REALITY"b.:10:12::"**- OIL BARONS -**"::11:"'CUSTOMIZED VERSION'":c.(4);"BLOAD CHAIN,A52TH OPTIONSa4:27:L$+aL$" "10000=aL$"1"11000Va$L$"2"QG%1:10000oa.L$"3"QG%1:11000a8L$"4"CC$"CC":12000a>L$"5"10000a?L$"6"11000aB(7):1030a':10:12::"** CLASSIC GAME **":a'50000b'(4);"BLD((1)40)1:Y3:11:"(";A;",";D;")"::16368,0:10500A(L(10700)20:"ARE ANY OF THESE PROPERTIES DISPUTED?":22:"PRESS 'Y' OR 'N'")X(16384):X21710516 )X20610556)10504)16368,0 ):10:"HOW MANY PROPERTIES AREIES GIVEN EARLIER? ('Y' OR 'N')";:L$:L$"Y"L$"N"10400O(L$"N"10700(:"HOW MANY PROPERTIES SHALL EACH PERSON"::"RECEIVE? ENTER A NUMBER (1 THRU 12) >";X0:X01X01210410(Z1C::"PROPERTIES FOR ";N$(Z);(Y1X0:A((1)50)1:"";S$(X):(S$(X))16S$(X)""10340n(::1:"HERE IS YOUR LIST OF ITEMS:"::X1Y:5:X;") ";S$(X)::24:"TO REDO THE LIST PRESS 'R'";:L$:L$"R"10300x(:15000:16368,0(16368,0=(:9:"DO YOU WISH TO MODIFY THE STARTING"::"PROPERTILL BE"::"USED IN THE STATEMENT 'YOU HAVE HIT...'.":K("PLEASE ENTER THE NUMBER OF ITEMS YOU"::"WISH TO ENTER. (ENTER '0' IF YOU DO"::"NOT WISH TO ENTER ANY) >>";YP(Y0Y2010310U(Y010400Z(X1Y%d(:10:"ENTER ITEM #";X;"-->";:5<((L$)10272,10274,10276,10278,10280,10282,10284,10286I (D.075:U"(D.22:a$(D.33:l&(D.5:x((D.67:*(D.75:,(D.95:.(D(1):0(<(16368,07F(:"WITH THIS NEXT OPTION YOU MAY ENTER "::"FROM ONE TO 20 ITEMS WHICH W,A520"+a520"AUCTION"T+0(222)254(222)53ĺ:"PLEASE ENTER CORRECTLY!";(7)Z+1IAN OCEAN OIL,ASIA OIL,NL*:21:1:"HIT ANY KEY TO CONTINUE OR 'ESC' TO"::"START THE GAME>";:L$`*:L$(27)25000}*:X2123:X:1:40)::*a:(7);(7):10::"PLEASE INSERT SIDE #2 NOW!!!"::X15000::15:"PRESS 'RETURN' WHEN READY...";L$+a(4);"BLOAD CHAIN %":9:28:"";X:X1X45120607)&/X(X):TXX100B)D/15000)N/:10:"ENTER THE STARTING INTEREST RATE FOR"::"THE GAME AS A WHOLE NUMBER PERCENTAGE"::"FROM 5% TO 35% > %":14:18:"";X:X5X3512110)X/X(X):INX100)b/15000*l/200$"Y"V%(0,1)1:TR(13)1#(.15000(/16368,0::7:"WILL THERE BE ANY TAXES AT THE START"::"OF THE GAME? PRESS 'Y' OR 'N'";:L$:L$"Y"L$"N"12040(/L$"N"12100#)/:7:"ENTER THE TAX RATE AS A WHOLE NUMBER"::"PERCENTAGE FROM 1% TO 45%>000000):Y1C:M(Y)X::12000L'R+X1C:Y((1)25000000):M(X)Y::12000W'.15000'.:16368,0:7:"WILL DRILLING BE ALLOWED IN THE CITIES"::"AT THE START OF THE GAME?"::"PRESS 'Y' OR 'N' ";:L$:L$"Y"L$"N"12010(.V%(0,1)0:TR(13)0:L0X2500000011060-&6+Y1C:M(Y)X::12000z&>+:"PLEASE ENTER THE AMOUNT FOR EACH PLAYER"::"WHEN THE NAME APPEARS."&@+Y1C&A+7:"(ANY AMOUNT FROM $0 TO $25,000,000)"::N$(Y);": $";:"";X:X0X2500000011073&B+M(Y)X&C+'H+X((1)25TED AMOUNTS"::10:"PRESS NUMBER>";:L$:X(L$):X1X511010d% +X12000,11060,11070,11080,11090o%*+12000&4+:9:"PLEASE ENTER THE AMOUNT WITH WHICH EACH"::"PLAYER WILL START THE GAME..."::"(ANY AMOUNT FROM $0 TO $25,000,000)"::10:"$";X:XH SAME PLAYER- SELECTED AMOUNT"::2$ +"3) ALL PLAYERS START WITH DIFFERENT PLAYER-SELECTED AMOUNTS"::2:"4) ALL PLAYERS START WITH SAME COMPUTER-SELECTED AMOUNTS"::2?%+"5) ALL PLAYERS START WITH DIFFERENT COMPUTER-SELEC11000&#*TG%(101((1)100)):11000G#*TG%(201((1)100)):11000h#*TG%(300((1)999)):11000#*15000:G$"A"12000'$+16368,0::"SELECT ONE OF THE FOLLOWING:":::2:"1) ALL PLAYERS START WITH $1,500,000"::2:"2) ALL PLAYERS START WIT,3)1L"*Z(Z64):Z10972,10974,10976,10978,10980,10982,10984,10986,10988j"*TG%(5((1)11)):11000"*TG%(16((1)10)):11000"*TG%(26((1)14)):11000"*TG%(40((1)11)):11000"*TG%(51((1)20)):11000#*TG%(71((1)30)):"::7:"C> 26 TO 39 TURNS"::7:"D> 40 TO 50 TURNS"::7:"E> 51 TO 70 TURNS"::7:"F> 71 TO 100 TURNS"!*:7:"G> 101 TO 200 TURNS"::7:"H> 201 TO 300 TURNS"::7:"I> MORE THAN 300 TURNS"!*23:"WHICH? >";:L$:Z(L$):Z65Z7310960"*V%(0:"OF THE GAME? PRESS 'Y' OR 'N'";:L$:L$"Y"L$"N"12040Q+/L$"N"12100+/:7:"ENTER THE TAX RATE AS A WHOLE NUMBER"::"PERCENTAGE FROM 1% TO 45%> %":9:28:"";X:X1X4512060+&/X(X):TXX100+D/15000y,N/:10:"ENTER THE STARTI16368,0:7:"WILL DRILLING BE ALLOWED IN THE CITIES"::"AT THE START OF THE GAME?"::"PRESS 'Y' OR 'N' ";:L$:L$"Y"L$"N"12010*.V%(0,1)0:TR(13)0:L$"Y"V%(0,1)1:TR(13)1*.15000?+/16368,0::7:"WILL THERE BE ANY TAXES AT THE START"::"WHEN THE NAME APPEARS."&)@+Y1C)A+7:"(ANY AMOUNT FROM $0 TO $25,000,000)"::N$(Y);": $";:"";X:X0X2500000011073)B+M(Y)X)C+)H+X((1)25000000):Y1C:M(Y)X::12000)R+X1C:Y((1)25000000):M(X)Y::12000).15000*.:11090(*+12000(4+:9:"PLEASE ENTER THE AMOUNT WITH WHICH EACH"::"PLAYER WILL START THE GAME..."::"(ANY AMOUNT FROM $0 TO $25,000,000)"::10:"$";X:X0X2500000011060(6+Y1C:M(Y)X::12000)>+:"PLEASE ENTER THE AMOUNT FOR EACH PLAYER":SELECTED AMOUNTS"::2:"4) ALL PLAYERS START WITH SAME COMPUTER-SELECTED AMOUNTS"::2'+"5) ALL PLAYERS START WITH DIFFERENT COMPUTER-SELECTED AMOUNTS"::10:"PRESS NUMBER>";:L$:X(L$):X1X511010( +X12000,11060,11070,11080,)):11000"&*15000:G$"A"12000&+16368,0::"SELECT ONE OF THE FOLLOWING:":::2:"1) ALL PLAYERS START WITH $1,500,000"::2:"2) ALL PLAYERS START WITH SAME PLAYER- SELECTED AMOUNT"::2b' +"3) ALL PLAYERS START WITH DIFFERENT PLAYER-11)):11000*%*TG%(16((1)10)):11000I%*TG%(26((1)14)):11000h%*TG%(40((1)11)):11000%*TG%(51((1)20)):11000%*TG%(71((1)30)):11000%*TG%(101((1)100)):11000%*TG%(201((1)100)):11000 &*TG%(300((1)999 100 TURNS"f$*:7:"G> 101 TO 200 TURNS"::7:"H> 201 TO 300 TURNS"::7:"I> MORE THAN 300 TURNS"$*23:"WHICH? >";:L$:Z(L$):Z65Z7310960$*V%(0,3)1$*Z(Z64):Z10972,10974,10976,10978,10980,10982,10984,10986,10988 %*TG%(5((1)*L$"N"V%(0,3)0:11000m#*:"PRESS THE LETTER CORRESPONDING TO THE"::"RANGE OF GAME-TURNS DESIRED: ": $*7:"A> 5 TO 15 TURNS"::7:"B> 16 TO 25 TURNS"::7:"C> 26 TO 39 TURNS"::7:"D> 40 TO 50 TURNS"::7:"E> 51 TO 70 TURNS"::7:"F> 71 TO75:DADAX:10:"THE DOLLAR AMOUNT ENTERED PREVIOUSLY"::"HAS NOW BEEN MODIFIED!":11000j"*P1%112000"*:9:"DO YOU WISH TO KEEP THE NUMBER OF "::"REMAINING TURNS A SECRET FROM THE"::"PLAYERS? PRESS 'Y' OR 'N'";:L$:L$"Y"L$"N"10900#100X)!l*:15000/!*16368,0:G$"A"10902:!*10905!*:8:"DO YOU WISH TO KEEP THE DOLLAR AMOUNT"::"GOAL A SECRET FROM THE PLAYERS?"::"PRESS 'Y' OR 'N'";:L$:L$"Y"L$"N"10902!*L$"N"V%(0,3)0:11000Y"*V%(0,3)1::X(1).5:XX.O.": N*"5) AMATEUR SURVEYS INC."::"6) SLIM CHANCE SURVEY CO."::"7) WILD HARE SURVEYING"::"8) A FRIEND OF A FRIEND (LEAST ACCURATE)";::"9) UNKNOWN (RANDOMLY MADE ACCURACY)": X*"WHICH? >";:L$:(L$)1(L$)910820!b*X(L$):XX.05:S%(S 'Y' OR 'N'";:L$:L$"Y"L$"N"10800;:*L$"N"10900 D*:"ENTER THE NUMBER CORRESPONDING TO THE "::"COMPANY DESIRED...":::"1) PRECISION SURVEY CO. (MOST ACCURATE)"::"2) SUPER SURVEYS INC."::"3) SIR VAIR CORPORATION"::"4) O. K. SURVEY C"N"10800)PR%1:)10:"ENTER NAME OF THE PRESIDENT (NAME MUST"::"BE LESS THAN 16 CHARACTERS LONG..."::7:"ENTER NAME >";PR$:(PR$)15PR$""10730)15000)0*16368,0::10:"DO YOU WISH TO MODIFY THE ACCURACY OF"::"THE SURVEYS? PRES05560)10536L4)20:"HIT ANY KEY TO CONTINUE.":X(16384):X12810548R8)b<)16368,0:})16368,0:QG%110800):10:"DO YOU WISH TO NAME YOUR OWN PRESIDENT"::"FOR THE START OF THE GAME? ( Y OR N )";:L$:L$"Y"L$"N"10710 )L$ DISPUTED?";X!)X12X010520Z ):2:N$(Z);"'S NEW PROPERTIES"::"ARE LOCATED AT:"$)Y1X:5)"(";(50(1))1;",";(40(1))1;")":()15:"ARE ANY OF THESE PROPERTIES DISPUTED?":17:13)"('Y' OR 'N')":X(16384):X21710516,)X2061X113:V%(X,1)800:&[%F1:10:4100;['1::16368,0:Q['X113:TR(X)0:n['(4);"BLOAD CHAIN,A520"[$'520"OPTIONS"[@(4);"BLOAD CHAIN,A520"[A520"GAMBLE"[Pâ1::16368,0:[Uú(4);"BLOAD CHAIN,A520"[ZÌ520"PREVIOUS"/\0(222)EAN"::"LESS DIFFICULTY IN LOCATING OIL."::"LEVEL 1 MEANS OIL IS VERY SCARCE!"::"ENTER A NUMBER FROM 1 TO 9=>";:L$:X(L$):X9X1Z#YX100:X9Y2:X8(1)Y:X8(X8):X9(X9)Z#X1X90:X8((1)125)1ZT$X9X9550:X8((1)1000)1[$:5:36:"PAY"Y8900:13:1:DS$(X);" PARAMETERS COMPLETE."::"DO YOU WISH TO REDO THE PARAMETERS?"::"'Y' OR 'N'";:L$:L$"Y"L$"N"8170YL$"Y"8030YY 10000Y":Z1122:Z:40)::Z(#:5:"SELECT DIFFICULTY--HIGHER NUMBERS M8900X:5:36:"PAY"X:11:1:"ENTER 'PAY-OFF' FACTOR. HIGHER NUMBERS"::"GENERATE BIGGER PAYOFFS IN ROYALTIES, "::"NET WORTH GAINS, ETC."X17:1:"RANGE 16 TO 8192--ENTER=>";L$:X3(L$):X38192X3168150YV%(X,2)(X3)::7:35:X3"LIFE"W:11:1:"ENTER OIL WELL PRODUCTION-LIFE FACTOR"::"FOR ";DS$(X);" TERRAIN. LOWER NUMBERS"::"PRODUCE SHORT-LIVED WELLS."W17:1:"RANGE 11 TO 996---ENTER=>";L$:X2(L$):X2996X2118110WV%(X,1)(X2)::7:29:X2:5:29:"LIFE"XOR FOR ";DS$(X)::"TERRAIN. LOWER NUMBERS PRODUCE LOWER"::"COSTS FOR SURVEYS, DRILLING, ETC."V18:1:"RANGE 2 TO 255--ENTER=>";L$:X1(L$):X1255X128080VV%(X,4)(X1)::7:23:X1:5:22:"COST"VV%(X,3)(X12)1V8900W:5:29:FACTOR FOR"::DS$(X);" TERRAIN. LOWER NUMBERS"::"PRODUCE LESS CHANCE FOR OIL."Ur17:1:"RANGE 1 TO 99---ENTER=>";L$:X0(L$):X099X018050UwV%(X,0)(X0)::7:17:X0:5:16:"OIL"Ux8900U|:5:22:"COST"`V:12:"ENTER THE COST FACT-------------------------------------";:]TJ5:":TERRAIN TYPE: OIL : COST : LIFE : PAY :";iTTX113T^:7:1:": : : : : :";:7:8(DS$(X))2:DS$(X)Tf8900Tg:5:16:"OIL"QUh:11:1:"ENTER OIL PROBABILITY (X):ESl16368,0:23:1:"ENTER NUMBER>";L$:X(L$):X13X17020SvX0V%(X,0):X1V%(X,1):X2V%(X,2):X3V%(X,3):X4V%(X,4)SX113:V%(X,1)X1:V%(X,2)X2:V%(X,3)X3:V%(X,4)X4:V%(X,0)X0:S4000S@::X47:X:40);:)TAX482:X:"---AA1:AX6030!RTR(Z%(X))X:+R5100RX:"THE FOLLOWING IS A LIST OF THE NORMAL"::"TERRAIN HIERARCHY. PLEASE ENTER THE"::"NUMBER CORRESPONDING TO THE TERRAIN"::"TO BE USED AS THE MODEL FOR ALL OTHERS."Sb9:X113:14(X10):X;") ";DS$ISH TO REDO THE HIERARCHY?";:L$:L$"Y"L$"N"5080GQL$"Y"5000RQI04nQY113:Z%(Y)V%(Y,I):QY113:V%(Y,I)Z%(TR(Y)):Q Q4000Qp:10::"WORKING...":QyX113QzZ%(X)((1)13)1QA0QZ%(X)Z%(A)6010R025 PA0(PZ%(X)Z%(A)ĺ(7):5025"::X5:3:"";L$:Z%(X)(L$):X5:10:DS$(X):Z%(X)13Z%(X)15IAN OCEAN OIL,ASIA OIL,N1X,Y1X1,Y1X1,Y1:Y...";L$0.a(4);"BLOAD 54(222)53ĺ:"PLEASE ENTER CORRECTLY!";(7).1IAN OCEAN OIL,ASIA OIL,N1X,Y1X1,Y1X1,Y1:0-:X2123:X:1:40)::-a:(7);(7):10::"PLEASE INSERT DISK #2 NOW!!!"::X15000::15:"PRESS 'RETURN' WHEN READY...";L$-a(4);"BLOAD CHAIN,A520"-a520"AUCTION"-0(222)254(222)53ĺ:"PLEASE ENTER CORRECTLY!";(7)-1NG INTEREST RATE FOR"::"THE GAME AS A WHOLE NUMBER PERCENTAGE"::"FROM 5% TO 35% > %":14:18:"";X:X5X3512110,X/X(X):INX100,b/15000,l/200,:21:1:"HIT ANY KEY TO CONTINUE OR 'ESC' TO"::"START THE GAME>";:L$-:L$(27)2500%.:16368,0:7:"WILL DRILLING BE ALLOWED IN THE CITIES"::"AT THE START OF THE GAME?"::"PRESS 'Y' OR 'N' ";:L$:L$"Y"L$"N"12010%.V%(0,1)0:TR(13)0:L$"Y"V%(0,1)1:TR(13)1%.15000E&/16368,0::7:"WILL THERE BE ANY TAXES AT THE SAYER"::"WHEN THE NAME APPEARS.",$@+Y1C$A+7:"(ANY AMOUNT FROM $0 TO $25,000,000)"::N$(Y);": $";:"";X:X0X2500000011073$B+M(Y)X$C+$H+X((1)25000000):Y1C:M(Y)X::12000$R+X1C:Y((1)25000000):M(X)Y::12000$.1500011080,11090#*+12000#4+:9:"PLEASE ENTER THE AMOUNT WITH WHICH EACH"::"PLAYER WILL START THE GAME..."::"(ANY AMOUNT FROM $0 TO $25,000,000)"::10:"$";X:X0X2500000011060#6+Y1C:M(Y)X::12000!$>+:"PLEASE ENTER THE AMOUNT FOR EACH PLLAYER-SELECTED AMOUNTS"::2:"4) ALL PLAYERS START WITH SAME COMPUTER-SELECTED AMOUNTS"::2"+"5) ALL PLAYERS START WITH DIFFERENT COMPUTER-SELECTED AMOUNTS"::10:"PRESS NUMBER>";:L$:X(L$):X1X511010 # +X12000,11060,11070,1)999)):11000(!*15000:G$"A"12000!+16368,0::"SELECT ONE OF THE FOLLOWING:":::2:"1) ALL PLAYERS START WITH $1,500,000"::2:"2) ALL PLAYERS START WITH SAME PLAYER- SELECTED AMOUNT"::2h" +"3) ALL PLAYERS START WITH DIFFERENT P((1)11)):110000 *TG%(16((1)10)):11000O *TG%(26((1)14)):11000n *TG%(40((1)11)):11000 *TG%(51((1)20)):11000 *TG%(71((1)30)):11000 *TG%(101((1)100)):11000 *TG%(201((1)100)):11000!*TG%(300(( 71 TO 100 TURNS"l*:7:"G> 101 TO 200 TURNS"::7:"H> 201 TO 300 TURNS"::7:"I> MORE THAN 300 TURNS"*23:"WHICH? >";:L$:Z(L$):Z65Z7310960*V%(0,3)1*Z(Z64):Z10972,10974,10976,10978,10980,10982,10984,10986,10988 *TG%(500*L$"N"V%(0,3)0:11000s*:"PRESS THE LETTER CORRESPONDING TO THE"::"RANGE OF GAME-TURNS DESIRED: ":*7:"A> 5 TO 15 TURNS"::7:"B> 16 TO 25 TURNS"::7:"C> 26 TO 39 TURNS"::7:"D> 40 TO 50 TURNS"::7:"E> 51 TO 70 TURNS"::7:"F>:XX.75:DADAX:10:"THE DOLLAR AMOUNT ENTERED PREVIOUSLY"::"HAS NOW BEEN MODIFIED!":11000p*P1%112000*:9:"DO YOU WISH TO KEEP THE NUMBER OF "::"REMAINING TURNS A SECRET FROM THE"::"PLAYERS? PRESS 'Y' OR 'N'";:L$:L$"Y"L$"N"109:S%(100X)l*:150005*16368,0:G$"A"10902@*10905*:8:"DO YOU WISH TO KEEP THE DOLLAR AMOUNT"::"GOAL A SECRET FROM THE PLAYERS?"::"PRESS 'Y' OR 'N'";:L$:L$"Y"L$"N"10902*L$"N"V%(0,3)0:11000_*V%(0,3)1::X(1).5RVEY CO.":N*"5) AMATEUR SURVEYS INC."::"6) SLIM CHANCE SURVEY CO."::"7) WILD HARE SURVEYING"::"8) A FRIEND OF A FRIEND (LEAST ACCURATE)";::"9) UNKNOWN (RANDOMLY MADE ACCURACY)":X*"WHICH? >";:L$:(L$)1(L$)910820 b*X(L$):XX.05 PRESS 'Y' OR 'N'";:L$:L$"Y"L$"N"10800A:*L$"N"10900 D*:"ENTER THE NUMBER CORRESPONDING TO THE "::"COMPANY DESIRED...":::"1) PRECISION SURVEY CO. (MOST ACCURATE)"::"2) SUPER SURVEYS INC."::"3) SIR VAIR CORPORATION"::"4) O. K. SU)L$"N"10800)PR%1:)10:"ENTER NAME OF THE PRESIDENT (NAME MUST"::"BE LESS THAN 16 CHARACTERS LONG..."::7:"ENTER NAME >";PR$:(PR$)15PR$""10730)15000/0*16368,0::10:"DO YOU WISH TO MODIFY THE ACCURACY OF"::"THE SURVEYS?206105560)10536R4)20:"HIT ANY KEY TO CONTINUE.":X(16384):X12810548X8)h<)16368,0:)16368,0:QG%110800):10:"DO YOU WISH TO NAME YOUR OWN PRESIDENT"::"FOR THE START OF THE GAME? ( Y OR N )";:L$:L$"Y"L$"N"10710ES ARE DISPUTED?";X')X12X010520` ):2:N$(Z);"'S NEW PROPERTIES"::"ARE LOCATED AT:"$)Y1X:5)"(";(50(1))1;",";(40(1))1;")":()15:"ARE ANY OF THESE PROPERTIES DISPUTED?":17:13)"('Y' OR 'N')":X(16384):X21710516 ,)X254(222)53ĺ:"PLEASE ENTER CORRECTLY!";(7)5\1IAN OCEAN OIL,ASIA OIL,N1X,Y1X1,Y1X1,Y1:Y...";L$0.a(4);"BLOAD T CORRECT DISK AND PRESS"::"RETURN TO CONTINUE...";L$=3IAN OCEAN OIL,ASIA OIL,N1X,Y1X1,Y1X1,Y1:Y...";L$0.a(4);"BLOAD NT (NAME MUST"::"BE LESS THAN 16 CHARACTERS LONG..."::7:"ENTER NAME >";PR$:N000::46595:15:"PRESS 'RETURN' WHEN READY...";L$Pa(4);"BLOAD CHAIN,A520"ba520"AUCTION"0(222)254(222)53ĺ:"PLEASE ENTER CORRECTLY!";(7)1(222)9ĺ(7):"PLEASE INSERT YOUR OWN DISK NOW.":2000072(222)6ė:10:"PLEASE INSER8:M(X):NX113:TR(X):'NTX/NIN8NQG%NO(4);"CLOSE ";L$LO:8:"PLEASE INSERT 'OIL BARONS' SIDE #1 NOW.":X15000::46595::"PRESS 'RETURN' WHEN READY...";L$VO3a:(7);(7):10::"PLEASE INSERT SIDE #2 NOW!!!"::X15R09,D:770::M$(0)N1$","N2$",000":40090hRN1$(N0$,(N0$)3):NB$M$(0)N1$",000"zRQ39(NB$):R`768,P:769,D:770:T(N0$)6):N2$(N0$,(N1$)1,3):N3$(N0$,3):NB$M$(0)N1$","N2$","N3$",000":40090QN1$(N0$,(N0$)6):N2$(N0$,(N1$)1,3):NB$M$(0)N1$","N2$",000":40090QN1$(N0$,(N0$)3):NB$M$(0)N1$",000"QQ39(NB$):R`768,P:769,D:770:PvuX1C:Y1C:M(Y)W(Y)R(X)M$(X)N$(Y)6Pu::kP@B9(B9):N0$((B9)):M$(0)"$":B90M$(0)"-$"PJ(B9)99999999940060PT(B9)99999940070P^(B9)99940080PhNB$M$(0)((B9))Pr40090WQ|B9(B91000):N0$((B9)):N1$(N0$,O:24:1:39);:X110000::24:1::"PRESS 'RETURN' TO PLAY AGAIN...";L$TO0|O1(4);"RUN OIL BARONS BY TOM GLASS"O0uX1C:R(X)M(X)W(X):O:uB0ODuX1C1ONuR(X)R(X1)30050OXuYR(X):R(X)R(X1):R(X1)Y:B1ObuOluB130010,NSERT YOUR OWN DISK NOW.":20000z-2(222)6ė:10:"PLEASE INSERT CORRECT DISK AND PRESS"::"RETURN TO CONTINUE...";L$-3IAN OCEAN OIL,ASIA OIL,N1X,Y1X1,Y1X1,Y1:Y...";L$0.a(4);"BLOAD T SIDE #2 NOW!!!"::X15000::15:"PRESS 'RETURN' WHEN READY...";L$j,a46595:(4);"BLOAD CHAIN,A520"|,a520"AUCTION",Pò LOAD IN A PREVIOUS CUSTOMIZED GAME,0(222)254(222)53ĺ:"PLEASE ENTER CORRECTLY!";(7) -1(222)9ĺ(7):"PLEASE I"+NPR$:PR%+NS%*+NX18:M(X):?+NX113:TR(X):G+NTXO+NINX+NQG%n+O(4);"CLOSE ";L$+LO:8:"PLEASE INSERT 'OIL BARONS' SIDE #1 NOW.":X15000:::"PRESS 'RETURN' WHEN READY...";L$:25000F,a:(7);(7):10::"PLEASE INSERBE"::"STORED (1 TO 8 CHARACTERS) ";L$:(L$)1(L$)820030T*HNL$L$".OBCUSTOM"i*RN(4);"OPEN ";L$*\N(4);"WRITE ";L$*NX013:Y04*NV%(X,Y)*N:*NB1:B1$:B2:B2$:B3:B3$:B4:B4$:B5:B5$*NX120:S$(X):+NPR$""PR$" L$::L$"S"20020()/N16368,0:25000)4N:3:"INSERT YOUR OWN INITIALIZED DISK ON"::"WHICH YOU WISH TO SAVE THIS CUSTOMIZED"::"VERSION...":X15000::46592>*>N11:1:"PLEASE ENTER THE NAME UNDER WHICH"::"YOU WISH THIS CUSTOMIZED VERSION TO (:X2123:X:1:40)::( N:5:"IF YOU WISH TO SAVE THIS CUSTOMIZED"::"VERSION WITH ALL OF ITS PARAMETERS"::"PRESS 'S'. YOU WILL NOT GET ANOTHER"::"CHANCE TO DO THIS. OTHERWISE, PRESS":(%N16368,0)*N"ANY OTHER KEY TO START THE GAME=>";:STARTING INTEREST RATE FOR"::"THE GAME AS A WHOLE NUMBER PERCENTAGE"::"FROM 5% TO 35% > %":14:18:"";X:X5X3512110'X/X(X):INX100'b/20000':21:1:"HIT ANY KEY TO CONTINUE OR 'ESC' TO"::"START THE GAME>";:L$':L$(27)20000TART"::"OF THE GAME? PRESS 'Y' OR 'N'";:L$:L$"Y"L$"N"12040W&/L$"N"12100&/:7:"ENTER THE TAX RATE AS A WHOLE NUMBER"::"PERCENTAGE FROM 1% TO 45%> %":9:28:"";X:X1X4512060&&/X(X):TXX100&D/15000'N/:10:"ENTER THE o~{o~{o{o?`@@{o{o{o{oĈԊԂ{opA~~~@pp``{o{o{op?@x~|~|p`?@{o?`@@333? {opxp?`~x@p@?``{o@ovp{o|`@@cw=?{o|`@p<`{yOo?`@@{o@||@?`p{o{o?|||{op?p`p~x@p|?`x~{oxz_w-u~{o>|{o~~~{o{o{o~?`@@{o{o{o{oĈԊԂ{opA~~~@pp`p{o~{o{op`?@x~|xp`{o?`@@?;3?;??? {opxp?`~x@p`?`p{o{o~?`@@gw=}{o?~`@~p<~`{sgo?`@@{o`?x~`@p{o{o?xxx{op?p@p~|Ap|?`p~{o_sz_g,u~{oNw{o?||{o{o`~`?x@@@~x{o|`@@{o{o{o{o?|~{opA~~~@pp `x{o{oԊ{op@?x~~pp?`@{o?`@@3?333 {oppp?`~x@p`?`x{o{o~?`@@ow!A{o@@@0>|p{gso?`@@{opp?@@x{o{o?|||{opp?@p~~p~?`p~{o_7r_oq<{n[w{o{o?@ovx{o@p|``p{o|p@@{o{o{ 60000E ::(7):(7):10:"PLEASE INSERT SIDE #2 NOW..."UX15000:~:"PRESS 'RETURN' WHEN READY...";L$(2(4);"BLOAD CHAIN,A520"<520"NEWS"`N 60000E ::(7):(7):10:"PLEASE INSERT SIDE #2 NOW..."UX15000:~:"PRESS 'RETURN' WHEN READY...";L$(2(4);"BLOAD CHAIN,A520"<520"AUCTION"`I o?`@@{op|p?@~x@p@?`@{o{o|p@`s{ox?@@@p8@@{|o?`@@{oxx~@?``{o{o?~~~{op?p`p~x@px?`x~{o_s}_w-t{g||y{:770:Pu 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96 V0");"CLOSE ";P$N$(ZZ):iY1Q24:"(";Z%(Y);",";Z%(Y1);")";:16:"(";Z%(Y2);",";Z%(Y3);")":p1:::"PRESS 'RETURN' TO CONTINUE...";:"";A$ :Q422:Q:1:40):%1:*ZZ1222:ZZ:1:40)::p768,P:769,D1A$:22:1:40)-22::"WORKING..."3;:Ax::3:"-------- * PROPERTY LOCATIONS * --------"~ZZ1CP$L$"."N$(ZZ)".PROP"8:(4);"OPEN ";P$(4);"READ ";P$QX1Q2:Z%(X): (4;X;",";Y;") ":22:1:"HIT ANY KEY TO CONTINUE...";:16368,0:A$:22:1:40)(Z)220İ5000:ZZ115110:D119:PZZ:6000::16368,0(Z)220Ģ16::"DEPLETED WELL AT: (";X;",";Y;") "::22:"HIT ANY KEY TO CONTINUE...";:G{(Z)210İ5000:D1200:P250:6000:D1130:P(16336)::16368,0(Z)210Ģ14::"DRY HOLE AT: (";X;",";Y;") "::22:"HIT ANY KEY TO CONTINUE...";:A$:22:1:40)U(Z)250ĺ(7);(7):12:"GUSHER (2 ACTIVE WELLS) AT ("."XZ2047:Y0146#bX0156;lZZ1:XX03:YY03Nq(Z)200660s(Z)255D1200:P50:6000:6000:5000:16368,0v(Z)255Ģ12::"ACTIVE WELL AT: (";X;",";Y;") "::22:"HIT ANY KEY TO CONTINUE...";:A$:22:1:40) m46595:(4);"BLOAD CHAIN,A520"1 r520"NEWS" :"THE FOLLOWING IS A LIST OF THE ACTIVE"::"WELLS, DRY HOLES, AND DEPLETED WELLS"::"ALONG WITH THEIR LOCATIONS WHEN THE GAME";::"WAS STOPPED. PLEASE MARK EACH WITH THE":"APPROPRIATE MARKER::(7):"PLEASE INSERT 'OIL BARONS' SIDE #2 NOW":X15000: d:14:10:"ARE YOU SURE SIDE ";::"#2"::10:"IS INSERTED? ('Y' OR 'N')";:L$:16368,0::L$"Y"L$"N"356 eL$"N"355 f:10:100:"RESUMING WHERE YOU LEFT OFF...":255::"QG%:CC$ ,Y1215! 1S$(Y)' 23 6Y113> @TR(Y)D J TB1$:B2$:B3$:B4$:B5$:TG:DA:GT%:TX:IN:NV:PR$:PR% YTG%:GT ZP1% [DF:SF:Y18:W(Y): \B1:B2:B3:B4:B5 ^(4);"CLOSE ";V$ a2000 b500> c:10X,Y):: xC Y18$ M(Y)/ N$(Y)9 D(Y)C P(Y)M B(Y)W I(Y)a L(Y)k C(Y)u F(Y) MT(Y) J(Y) S(Y) O(Y) A(Y) E(Y) L%(Y) EX(Y) CR(Y) " #R(9):B%:C% 'G$ (S% )EASE INSERT THE DISK WHICH CONTAINS"::"THE GAME NAMED ";L$;" NOW.":X18000: 46592::"PLEASE PRESS 'RETURN' TO CONTINUE...";V$ V$L$".VAR":B$L$".BOARD" ((4);"BLOAD ";B$ d(4);"OPEN ";V$ n(4);"READ ";V$ sX013:Y04:V%(X 62000&I770790:D:I,D:Z16368,0::10:"PRESS ANY KEY TO CONTINUE..."{X(16384):X128Y(1):616368,0 :10:"PLEASE ENTER THE NAME OF THE GAME YOU"::"WISH TO RESTORE =>";L$:(L$)8(L$)110P :10:(7):"PL     (4);"CLOSE ";P$  "0"( :6:N$(ZZ):9:"PARCEL #";J:11:4j 11:4:"HORIZONTAL COORDINATE>";Z%(Y):Z%(Y)50Z%(Y)13040 13:4:"VERTICAL COORDINATE>";Z%(Y1):Z%(Y1)40Z%(Y1)13050  (4);"OPEN ";P$ (4);"WRITE ";P$ Q:X1Q2:Z%(X): N EACH PARCEL THAT IS OWNED"::"BY THAT PLAYER. PRESS ANY KEY TO"::"CONTINUE..."e 14:12:A$:q ZZ1C P$L$"."N$(ZZ)".PROP" :10:"HOW MANY PROPERTIES ARE OWNED BY "::N$(ZZ);:"?";Q:Q35Q03010 J0 Y1Q22 JJ1::::"TO START OVER, HIT ANY KEY...";:L$:16368,0:> hm r46595:(4);"RUN OIL BARONS BY TOM GLASS" (4);" BSAVE ";B$;",A$800,L$1800" S :6:"AS EACH PLAYER'S COMPANY IS NAMED,"::"PLEASE ENTER THE COORDINATES OF ONE"::"SQUARE I(Y) JI TB1$:B2$:B3$:B4$:B5$:TG:DA:GT%:TX:IN:NV:PR$:PR%V YTG%:GT_ ZP1%z [DF:SF:Y18:W(Y): \B1:B2:B3:B4:B5 ^(4);"CLOSE ";V$ c3000 d10008 e:8:(7):"PLEASE INSERT 'OIL BARONS' SIDE #1 NOW.":X15000P(Y) B(Y) I(Y)" L(Y), C(Y)6 F(Y)A MT(Y)K J(Y)U S(Y)_ O(Y)i A(Y)s E(Y)~ L%(Y) EX(Y) CR(Y) " #R(9):B%:C% 'G$ (S% )QG% *CC$ ,Y1215 1S$(Y) 2 6Y113 @TRURN' TO CONTINUE...";A$( V$L$".VAR"; B$L$".BOARD"F (Y18^ 2N$(Y)""N$(Y)" "d 7~ 8CC$(0)""CC$(0)"X" d(4);"OPEN ";V$ n(4);"WRITE ";V$ sX013:Y04:V%(X,Y):: xC Y18 M(Y) N$(Y) D(Y) $ 62000% *** GAME SAVE ***+ :10:"PLEASE ENTER THE NAME UNDER WHICH YOU"::"WISH TO SAVE THIS GAME. (1 TO 8 LETTERS)":">";L$:(L$)8(L$)110 :10:(7):"PLEASE INSERT YOUR OWN DISK NOW...":X15000::46592::"PRESS 'RET     C0 $(16336):BP:255BZ90B::X9221:X9:"$";38);"$"::1:"$ THE OIL STREET JOURNAL $";:3:12:"!SPECIAL EDITION!"B4:17:"--------"B2:12:"-----------------"B22:"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"BPSED DUE TO THE OVERWHELMING"::4:L$;" ";N$(X);"!"|A2:4:"AMERICAN DOLLARS ARE WORTHLESS. THE":X14000::255:48000A<100:8:4:"COMMIES HAVE TAKEN OVER. THE GAME"::4:"IS OVER. EVERYBODY LOSES.":20:X1119:X:18X:".": BFY1300:Z @620001@M(X)W(X)0L$"WEALTH OF":10C@L$"DEBTS OF"N@ 48000p@5:100::15:"NEWS FLASH!!"@:7:4:"ECONOMIC CRISIS HITS THE WESTERN"::4:"FINANCIAL COMMUNITY! TODAY THE"4A(:4:"ENTIRE WESTERN BANKING SYSTEM COL-"::4:"LA   z#???    !Ҡ"ӠΠŠŠ ŠŠ Π Ӡ ŠϠ(à%٠(͠Ӡ' Š̠Ӡ٠͠ӠǠ ؠ"Š"ҠΠ102,15,85 w @50*@1010,242:1011,3:1012,166<@(104)6440X@103,1:104,64:16384,0o@((4)"RUN OPENING"u@2  240,192,240,172,15,192,15,146,15,114,15,96,15,192,15,146,15,114,15,96,15,192,15,146,15,114,15,96,15,192,15,146,15,114,15,96 15,172,15,128,15,102,15,85,15,172,15,128,15,102,15,85,15,172,15,128,15,102,15,85,15,172,15,128,15,102,15,85 :230,171260,171# 8X160:90:3 =X11300:W B3:Y1801561:215,Y270,Y:v LY93511:220,Y270,Y: X134:D:P:90: D30:P192:90:X1125::P146:90:X1125::P114:90:X1125::D240:P96:90D60:P146:X13:90::D8:P100:X(16336)(16336)(16336):w Y51163:238,Y242,Y:D6:P220:90:X(16336)(16336)(16336): $D4:P240:221,164261,164:225,165267,165:220,166266,166:227,167262,167 .218,168265,168:222,169266,169:225,170265,17085,34193,34184,40194,40182,45 233,45237,23243,23247,45235,40245,40236,34244,34236,25244,25236,34244,34235,40245,40233,45 234,45235,45:Y2345:240,Y:D17:P222:90:X(16336)(16336)(16336):, 0:Y4650:239,Y241,Y7::X211255:X,46X,50:E 0:X14:D160:P167:90:P217:90: 132,45136,23142,23146,45134,40144,40135,34143,34135,25143,25135,34143,34134,40144,40132,45! 182,45186,23192,23196,45184,40194,40185,34193,34185,25193,251770:O d 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96 n 120,192,120,154,120,128,120,96,120,172,120,137,120,114,120,85,120,192,120,146,120,114,60,85,120,96,120,102,120,128,120,146,240,172 X12000::1:X125211:X,46X,4 3000%I770790:D:I,D:+ =(104)6440Y103,1:104,64:16384,0(::(4)"BLOAD EPYX,A$2000":16302,0:16297,0:16304,0)X117:D:P:90:-(4)"BLOAD TITLE,A$2000".10002(4)"RUN INTRO" Z768,P:769,D:     x?@~x?p@|?@ d@x?@x?p|`b$~`x?pp@`xx@@ |pxx?pp?p`|?0$L@|@~`~`x?~`~?px?p~```x?@F|@`px?|``@?~`|p`|x?p~xx?@xx?p@p`|?0 $@x?@x?p||?Bh|~x?p@p~``x@ |p`x?px?@`p@%@>p`~`~`?xx`|p|p~``x?~Xx?`@x?x@|?>~@x?x?`px?@|`p``x?p@`p@ $ |x?px?p|?B p|xp@~`x`x?~D@|~`x?px>~`@&@8@`|@`x`@px|`|p`xx`x?`~x?x@p|?@x?x?`@x?~|?p`?x?p@~`@P%|x?px?@pB4@|?pp`~```|x?xZ@p~`|x?p|~x`?~ @ `~p|@`x@@x~`|p`x`          o?`@@{o{o{o?~~~{opp?@x~x~?``?{o_3w_Nq{Os{o{o{o?@x~pp@p{oxx@@{o{o{ggo|@{op?@~~~A@pp0`~{o@ovp{o{op?@|~~@pp``~{o?`@@{op?p``~x@pp?`x{o_s}_nw{wMs{o?`@@{o@~?@`0?x{o{o?`@@{o{o{o??{ox?x@~|~?`?`?@{o8wOsC{>x{o{o{o~?@x~x~p``{ox@@{o{o{sOo|@`{op`|~~A@pp0`~{o{o{op@|~~@pp`@|{o?@@@{op?p`p~x@pp?`x{o_w}_onv<{wm[w{o?`@@{op~x@~|@p?@?|{o~{o?`@@{o{o{o?@@@{o|?x`|?`?@{o{o{o~{o|?@x~|~p``{o|@@{o{o{yox@`{opp|~@@pp8`?{o{o{opA|~~@pp`x{o??{op?p`p~x@px?`x|{o_w}_glv>{lYs{o?`@@{op~p@~x@p?`{o{o?`@@{o{o{o?`@@{o~?xp~?``{o{o{o{ox?@x~||p`?@{o|@@{o{o{ |?op@`{ox@?@`p8`?@{o~{o{opA~|~@pp`p{                                                                                                                                   <-$$$ $";DA:291IL$"B"ė:8:"ENTER THE NUMBER OF TURNS DESIRED--ANY"::"NUMBER OF TURNS GREATER THAN ZERO OR"::"LESS THAN 30,000 >";TG%:283I270ITG%1TG%30000240IJ#DA999999999999DA199999 SPECIFIED"::5)"NUMBER OF TURNS."ZH22:"PRESS 'A' OR 'B'...";:16368,0:G$:L$G$: IL$"A"ė:7:"ENTER THE DOLLAR AMOUNT DESIRED--ANY"::"AMOUNT GREATER THAN 2 MILLION DOLLARS"::"($2,000,000) OR LESS THAN ONE TRILLION"::"DOLLARS ($1,000,03G:"SELECT THE WINNING CONDITIONS DESIRED:"::G:"ENTER 'A':"::5)"WINNER IS DETERMINED BY"::5)"ACCUMULATING A SPECIFIED AMOUNT OF"::5)"MONEY."$H::"ENTER 'B':"::5)"WINNER IS PLAYER ACCUMULATING THE"::5)"GREATEST WEALTH AFTER AX2;",";X3;") (";X4;",";X5;") (";X6;",";X7;")"mF40):40)::299::240:Y0:N0:X04:R(X)0:R1(X)0:F22:"HIT ANY KEY TO CONTINUE...":22:27:L$:::"WORKING..."::10F1000F(4);"BLOAD CHAIN,A520"F520"AUCTION"FP1%1820(50(1))1:X3(40(1))1:X4(50(1))1:X5(40(1))1:X6(50(1))1:X7(40(1))1E:40):40):40):(20((((N$(N)))2))):8:N$(N)E40):40):10:4:"STARTS WITH PROPERTIES LOCATED AT:":40)/F40):12:4:"(";X0;",";X1;") (";:">";N$(N)&DY0(N$(N)):X(1):;D(N$(N))20200OD(N$(N))1200D:10:"THE NUMBER FOR ";N$(N)::"IS ------- < ";N;" >":16368,0D22:"HIT ANY KEY TO CONTINUE...>";:L$::DN1C::6[EX0(50(1))1:X1(40(1))1:X2C:M(N)1500000:X(1):FC22:"HIT ANY KEY TO CONTINUE.":16368,0jCX(16384):X128A1(1):197xC16368,0CN1C D:9:"ENTER THE NAME OF PERSON OR COMPANY"::"NUMBER ";N;" (20-LETTER MAXIMUM).":15:2:"^";18);"^":14:22)"<":14"BLOAD COPTER"aB:10:"DO YOU WISH TO RESTORE A GAME"::"ALREADY IN PROGRESS?":12:22:L$:oB16368,0BL$"Y"37000B#L$"N"190B(20B:10:"HOW MANY PLAYERS WILL THERE BE? ";C:C8190BC1P1%1:C2:195BC1190CN117BA :I15::X((1)20)229:Y((1)115)249:A1X:CO$:jA :A1Y:CC$::M$(I)CC$" "CO$:A B1(1):B2(1):B3(1):B4(1):B5(1)A Y06:F%(Y)22:AB1$M$(1):B2$M$(2):B3$M$(3):B4$M$(4):B5$M$(5)ACC$"":AB(4);J& @62000(@(4);"BLOAD GAMEDATA"@::D(8),P(8),B(8),I(8),L(8),C(8),F(8),MT(8),J(8),S(8),O(8),A(8),E(8),DS$(13):X113:DS$(X)::V%(13,4),L%(8),M$(10),S$(215),TR(13),Z%(143),N$(8)@(4);"BLOAD DYNOMITE"AIN.1:GT%1:Y1215:S$(Y)::              R ANY) >>";Y!P(Y0Y20103100U(Y010400;Z(X1Yd(:10:"ENTER ITEM #";X;"-->";:"";S$(X):(S$(X))16S$(X)""10340n(::1:"HERE IS YOUR LIST OF ITEMS:"::X1Y:5:X;") ";S$(X)::24:"TO REDO THE LIST PRESS 'R'";:L$:L$"R"10300(<(16368,0F(:"WITH THIS NEXT OPTION YOU MAY ENTER "::"FROM ONE TO 20 ITEMS WHICH WILL BE"::"USED IN THE STATEMENT 'YOU HAVE HIT...'.": K("PLEASE ENTER THE NUMBER OF ITEMS YOU"::"WISH TO ENTER. (ENTER '0' IF YOU DO"::"NOT WISH TO ENTE023:X:1:40):. (15000:16368,0:103006(22`(L$:(L$)1(L$)8ĺ(7):23:10265((L$)10272,10274,10276,10278,10280,10282,10284,10286 (D.075:"(D.22:$(D.33:&(D.5:((D.67:*(D.75:,(D.95:.(D(1):0ERY TIMID":5:"7> EXTREMELY TIMID"M'5:"8> UNKNOWN AGGRESSIVENESS":22:o'10220:B1$;"--";:10260:B1D'10220:B2$;"--";:10260:B2D'10220:B3$;"--";:10260:B3D(10220:B4$;"--";:10260:B4D(10220:B5$;"--";:10260:B5D(X2NY IS NAMED ENTER THE"::"NUMBER WHICH CORRESPONDS TO THE AMOUNT"::"OF BIDDING AGGRESSIVENESS DESIRED FOR"::"THAT COMPANY..."#'10:5:"1> EXTREMELY AGGRESSIVE":5:"2> VERY AGGRESSIVE":5:"3> AGGRESSIVE":5:"4> MODERATE":5:"5> TIMID":5:"6> V'16368,0':2:"AUCTION OPTIONS----"::"DO YOU WISH TO MODIFY THE BIDDING"::"AGGRESSIVENESS OF THE COMPANIES"::"WHICH BID IN THE AUCTIONS?"::"PRESS 'Y' OR 'N' ";:L$'L$"Y"L$"N"10199'L$"N"10300'10230':"AS EACH COMPA"N"10199Y':7:"EACH COMPANY NAME MUST BE LESS THAN"::"20 CHARACTERS LONG.":15000f':X15'2X:"NAME OF COMPANY #";X;">";:"";CC$(X):(CC$(X))19CC$(X)""10170''B1$CC$(1):B2$CC$(2):B3$CC$(3):B4$CC$(4):B5$CC$(5):15000 0) >";V%(0,4)-~'V%(0,4)40V%(0,4)110090B'15000:16368,0':2:"AUCTION OPTIONS----"::"DO YOU WISH TO CHOOSE THE NAMES FOR THE"::"COMPUTER'S COMPANIES WHICH BID IN THE"::"AUCTIONS? PRESS 'Y' OR 'N'";:L$:L$"Y"L$"N"10130 'L$OLLOWING OPTION DETERMINES THE"::"'LAND AVAILABILITY'. ENTER A NUMBER"::"FROM ONE TO FORTY; THE LOWER THE NUMBER" t':"THE LESS LAND WILL BE AVAILABLE FOR"::"AUCTION ON A GIVEN TURN."::"(A VALUE OF '8' IS USED IN PRESET GAMES)"::"ENTER (1 TO 4"BY THE COMPUTER IS NOT"::11:"DESIRED."9 Q'16368,0 V':"PRESS ANY OTHER KEY TO DISALLOW THIS"::11:"OPTION TO BE AVAILABLE.":19:"PRESS 'A' FOR THE OPTION>";:L$:V%(0,2)0:L$"A"V%(0,2)1 `'15000uj':2:"AUCTION OPTIONS----":6:"THE F1:"ENTER 'Q' OR 'R' >";:L$:L$"Q"L$"R"10010E .'L$"Q"QG%1W 8'L$"R"QG%0b B'15000 L':2:"AUCTION OPTIONS----"::"PRESS 'A' TO ALLOW PLAYERS TO SELECT"::11:"A DIFFERENT PARCEL IN THE"::11:"AUCTIONS IF THE ONE SELECTED"+ M':11:00 ':6:"PRESS 'Q' FOR THE QUICK VERSION"::"PRESS 'R' FOR THE REGULAR GAME":::"(THE QUICK VERSION OMITS THE NEWS,"::"DEPLETED WELLS, AND MANY AUCTIONS. IT" '16368,03 $':"IS MAINLY DRILLING AND ROYALTY CHECKS"::"WITH NO FRILLS!)":19:...";L$7 :10::"PLEASE STAND BY...":::16368,0T (4);"BLOAD CHAIN,A520"f 520"AUCTION" ':"YOU WILL BE ASKED TO DECIDE ON SEVERAL"::"OPTIONS. YOU MAY START THE GAME BY"::"PRESSING 'ESC' AT MOST PLACES IN THIS"::"PROGRAM." '1501000,1150,1300,1450,1600,1800,2000,4500N x 1,2,3,5,7,9,11,14,17,21,26,32,40z 3,4,5,7,10,14,19,24,29,47,115,133,150 L$"5"10000 :(7);(7)::10:"PLEASE INSERT SIDE #2 NOW---":X15000::16368,0: 20:"PRESS 'RETURN' TO CONTINUEv#  62000S%15MV%(0,0)0:V%(0,1)0:V%(0,2)1:V%(0,3)0:V%(0,4)8XY04d(X113q2V%(X,Y)~<::140Z 91,84,77,65,60,55,51,47,43,39,35,31,20d 780,795,810,840,860,870,890,920,930,945,965,975,750' n 375,475,575,700,850,           --";:10260:B1D2'10220:B2$;"--";:10260:B2DT'10220:B3$;"--";:10260:B3Dv(10220:B4$;"--";:10260:B4D(10220:B5$;"--";:10260:B5D(X2023:X:1:40): (15000:16368,0:10300(22(L$:(L$)1(L$)8ĺ(7):23:1026S DESIRED FOR"::"THAT COMPANY..."'10:5:"1> EXTREMELY AGGRESSIVE":5:"2> VERY AGGRESSIVE":5:"3> AGGRESSIVE":5:"4> MODERATE":5:"5> TIMID":5:"6> VERY TIMID":5:"7> EXTREMELY TIMID"'5:"8> UNKNOWN AGGRESSIVENESS":22:'10220:B1$;"ENESS OF THE COMPANIES"::"WHICH BID IN THE AUCTIONS?"::"PRESS 'Y' OR 'N' ";:L$n'L$"Y"L$"N"10199'L$"N"10300'10230#':"AS EACH COMPANY IS NAMED ENTER THE"::"NUMBER WHICH CORRESPONDS TO THE AMOUNT"::"OF BIDDING AGGRESSIVENES:X15U'2X:"NAME OF COMPANY #";X;">";:"";CC$(X):(CC$(X))19CC$(X)""10170[''B1$CC$(1):B2$CC$(2):B3$CC$(3):B4$CC$(4):B5$CC$(5):15000'16368,0S':2:"AUCTION OPTIONS----"::"DO YOU WISH TO MODIFY THE BIDDING"::"AGGRESSIV--"::"DO YOU WISH TO CHOOSE THE NAMES FOR THE"::"COMPUTER'S COMPANIES WHICH BID IN THE"::"AUCTIONS? PRESS 'Y' OR 'N'";:L$:L$"Y"L$"N"10130'L$"N"10199':7:"EACH COMPANY NAME MUST BE LESS THAN"::"20 CHARACTERS LONG.":15000' THE LOWER THE NUMBER"t':"THE LESS LAND WILL BE AVAILABLE FOR"::"AUCTION ON A GIVEN TURN."::"(A VALUE OF '8' IS USED IN PRESET GAMES)"::"ENTER (1 TO 40) >";V%(0,4)~'V%(0,4)40V%(0,4)110090'15000:16368,0':2:"AUCTION OPTIONS--OW THIS"::11:"OPTION TO BE AVAILABLE.":19:"PRESS 'A' FOR THE OPTION>";:L$:V%(0,2)0:L$"A"V%(0,2)1v`'15000j':2:"AUCTION OPTIONS----":6:"THE FOLLOWING OPTION DETERMINES THE"::"'LAND AVAILABILITY'. ENTER A NUMBER"::"FROM ONE TO FORTY;000L':2:"AUCTION OPTIONS----"::"PRESS 'A' TO ALLOW PLAYERS TO SELECT"::11:"A DIFFERENT PARCEL IN THE"::11:"AUCTIONS IF THE ONE SELECTED"M':11:"BY THE COMPUTER IS NOT"::11:"DESIRED."Q'16368,0kV':"PRESS ANY OTHER KEY TO DISALLUICK VERSION OMITS THE NEWS,"::"DEPLETED WELLS, AND MANY AUCTIONS. IT"V'16368,0$':"IS MAINLY DRILLING AND ROYALTY CHECKS"::"WITH NO FRILLS!)":19:1:"ENTER 'Q' OR 'R' >";:L$:L$"Q"L$"R"10010.'L$"Q"QG%18'L$"R"QG%0B'152047): ':"YOU WILL BE ASKED TO DECIDE ON SEVERAL"::"OPTIONS. YOU MAY START THE GAME BY"::"PRESSING 'ESC' AT MOST PLACES IN THIS"::"PROGRAM." '15000H':6:"PRESS 'Q' FOR THE QUICK VERSION"::"PRESS 'R' FOR THE REGULAR GAME":::"(THE Q,420 VE%VE%1:VE%1370& 430@ VE%VE%1:VE%40370I 430b HZ%HZ%1:HZ%1370k 430 HZ%HZ%1:HZ%50370 AD((1)3):1000 OK%,A100   22:3:"FINISHED.....":X11800:: OK%(((VE%3)56)HZ%53' TO CONTINUE...";L$1 (4);"BLOAD CHAIN,A520"C 520"AUCTION"q ,X((1)150)255:Y((1)10)8:Z(XY)} 6X11Y @HZ%((1)50)1:VE%((1)40)1 JD((1)22) T1000 ^OK%,D100 hX21Z rX0((1)4)1 |X0390,400,410MOTHER NATURE, EAT YOUR HEART OUT!'"- V300@ dL$"6"İ10000m 10,10,20,10,10,10,15,30,25,25,30,30,40 5,5,8,10,12,5,17,25,35,40,150,160,125 :(7);(7)::10:"PLEASE INSERT SIDE #2 NOW---":X15000::16368,0: 20:"PRESS 'RETURNE WILL NOT TRY TO RECREATE THIS"::"TIME SCALE HERE. THEREFORE, PLEASE WAIT": A"WHILE THE COMPUTER GENERATES THE OIL"::"DEPOSITS 'UNDER THE BOARD'."::"(IN CONSIDERABLY LESS TIME)":22:4: F"WORKING...": PX22194452:X,130:$ U16:"'M& 62000I V%(0,0)1:V%(0,1)1:V%(0,2)0:V%(0,3)0:TX.05:TR(13)1RS%9]Y34iX113(V%(X,Y):V%(X,2)2000:V%(X,1)8002:O <:"IN TRUE REALITY IT TAKES MOTHER NATURE"::"MANY MILLIONS OF YEARS TO CREATE AN OIL"::"POOL. W                  10:"2) NORMAL PAYOFF"::10:"3) MEAGER PAYOFF"UN8:21:L$:X(L$):X3X14305kNX4320,4400,4330NX113:V%(X,2)(V%(X,2)2)1::4400NX113:V%(X,2)(V%(X,2)2)1::4400NF155N0F155N510000O:"AS THE ARROW MOVES FRY((1)200):X113:V%(X,1)V%(X,1)Y:V%(X,1)998V%(X,1)998LM:4300MY((1)200):X113:V%(X,1)V%(X,1)Y:V%(X,1)49V%(X,1)48M:43000N:6:"SELECT A PAYOFF RANGE FOR ROYALTIES"::"AND NET WORTH GAINS:"::10:"1) BIG PAYOFF"::(X,4)2)1::4200RL"X113:V%(X,4)(V%(X,4)2)1:V%(X,3)(V%(X,4)2)1::4200Lh:6:"SELECT OIL WELL PRODUCTION LIFE:"::10:"1) LONG LIFE"::10:"2) NORMAL LIFE"::10:"3) SHORT LIFE":6:33:L$:X(L$):X3X14200LrX4220,4300,4230@M|)40):V%(X,0)V%(X,0)Y:V%(X,0)9V%(X,0)98K:4100K:6:"SELECT A COST RANGE:"::10:"1) INEXPENSIVE"::10:"2) NORMAL"::10:"3) EXPENSIVE!":6:21:L$:X(L$):X3X14100KX4120,4200,4130LX113:V%(X,4)(V%(X,4)2)1:V%(X,3)(V%J:6:"SELECT DIFFICULTY IN FINDING OIL:"::10:"1) EASY"::10:"2) NORMAL"::10:"3) DIFFICULT":6:34:L$:X(L$):X3X14000JX4020,4100,4040JX113:Y((1)40):V%(X,0)V%(X,0)Y:V%(X,0)99V%(X,0)99J:4100,KX113:Y((1STED":2:"2) CUSTOMIZE ENTIRE HIERARCHY":2:"3) SCRAMBLE IT (HIERARCHY IS SECRET)":2:"4) EQUALIZE IT (ALL TERRAIN THE SAME)"I 2:"5) SET ALL PARAMETERS INDIVIDUALLY";I 18:12:L$:L$;:X(L$):X5X13010I X4000,5000,6000,7000,8000IE (1, 2, OR 3) =>";:L$:L$;:X(L$):X3X12060IHX3000,9000,40000H :"THE NORMAL TERRAIN HIERARCHY FOR THE"::"STRATEGIC MODE IS:":X113:X4:15(X10):(X);") ";DS$(X):H V%(0,0)0I 18:1:"SELECT ONE:":2:"1) USE HIERARCHY AS LIARD' BEFORE THE GAME BEGINS AS IN"::4:"THE REALITY VERSION.":G"3) GAMBLE MODE => ALL GAME PARAMETERS"::4:"ARE SECRETLY SET BY THE COMPUTER."::4:"THIS CREATES SOME ENTERTAINING (AND"::4:"SOMETIMES BIZARRE) GAMES!"2H 24:1:"SELECT A MODUSLY? ('Y' OR 'N')";:L$:L$"Y"L$"N"2000@FL$"Y"50000F:"1) STRATEGIC MODE => OIL POOLS ARE"::4:"MADE 'AS YOU GO' AS IN THE CLASSIC"::4:"GAME."AG:"2) REALITY MODE => OIL POOLS ARE"::4:"GENERATED AND FIXED 'UNDER THE"::4:"BO1000EOK%,A100EEIE22:3:"FINISHED.....":X11800::nEOK%(((VE%3)56)HZ%532047):E:10::"**** OIL BARONS CUSTOMIZING KIT ****":X12000::E16368,0.F17:"DO YOU WISH TO USE A CUSTOMIZED GAME"::"MADE PREVIO(1)40)1DJD((1)22)%DT10004D^OK%,D100@DhX21ZSDrX0((1)4)1kD|X0390,400,410,420DVE%VE%1:VE%1370D430DVE%VE%1:VE%40370D430DHZ%HZ%1:HZ%1370D430DHZ%HZ%1:HZ%50370EAD((1)3):94452:X,130:?CU16:"'MOTHER NATURE, EAT YOUR HEART OUT!'"HCV300SCd10000C 10,10,20,10,10,10,15,30,25,25,30,30,40C 5,5,8,10,12,5,17,25,35,40,150,160,125C,X((1)X8)X9:Y((1)10)8:Z(XY)C6X11Y D@HZ%((1)50)1:VE%( CREATE AN OIL"::"POOL. WE WILL NOT TRY TO RECREATE THIS"::"TIME SCALE HERE. THEREFORE, PLEASE WAIT":BA"WHILE THE COMPUTER GENERATES THE OIL"::"DEPOSITS 'UNDER THE BOARD'."::"(IN CONSIDERABLY LESS TIME)":22:4:BF"WORKING...":CPX22111,14,17,21,26,32,65,3,4,5,7,10,14,19,24,29,47,115,133,185HA V%(0,0)1QAS%9\AY34hAX113A(V%(X,Y):V%(X,2)2000A2:A3A7 REALITY MODE STARTS HERE jB<:"IN TRUE REALITY IT TAKES MOTHER NATURE"::"MANY MILLIONS OF YEARS TO @62000-@I04:J113:V%(J,I)::M@16368,0:Z%(0)0:F0:2000@ 91,84,77,65,60,55,51,47,43,39,35,31,99,780,795,810,840,860,870,890,920,930,945,965,975,750,375,475,575,700,850,1000,1150,1300,1450,1600,1800,2000,4500:A 1,2,3,5,7,9,              50)1:D((1)40)1:Y3:11:"(";A;",";D;")"::16368,0:10500G(R(10700)20:"ARE ANY OF THESE PROPERTIES DISPUTED?":22:"PRESS 'Y' OR 'N'")X(16384):X21710516 )X20610556)10504)16368,0):10:"HOW MANY PROPERTIROPERTIES GIVEN EARLIER? ('Y' OR 'N')";:L$:L$"Y"L$"N"10400U(L$"N"10700(:"HOW MANY PROPERTIES SHALL EACH PERSON"::"RECEIVE? ENTER A NUMBER (1 THRU 12) >";X0:X01X01210410(Z1C::"PROPERTIES FOR ";N$(Z)A(Y1X0:A((1)-->";:"";S$(X):(S$(X))16S$(X)""10340n(::1:"HERE IS YOUR LIST OF ITEMS:"::X1Y:5:X;") ";S$(X)::24:"TO REDO THE LIST PRESS 'R'";:L$:L$"R"10300x(:15000:16368,0(16368,0C(:9:"DO YOU WISH TO MODIFY THE STARTING"::"PHICH WILL BE"::"USED IN THE STATEMENT 'YOU HAVE HIT...'.":K("PLEASE ENTER THE NUMBER OF ITEMS YOU"::"WISH TO ENTER. (ENTER '0' IF YOU DO"::"NOT WISH TO ENTER ANY) >>";YP(Y0Y2010310U(Y010400Z(X1Y+d(:10:"ENTER ITEM #";X;":10265B((L$)10272,10274,10276,10278,10280,10282,10284,10286O (D.075:["(D.22:g$(D.33:r&(D.5:~((D.67:*(D.75:,(D.95:.(D(1):0(<(16368,0=F(:"WITH THIS NEXT OPTION YOU MAY ENTER "::"FROM ONE TO 20 ITEMS WB1$;"--";:10260:B1D8'10220:B2$;"--";:10260:B2DZ'10220:B3$;"--";:10260:B3D|(10220:B4$;"--";:10260:B4D(10220:B5$;"--";:10260:B5D(X2023:X:1:40): (15000:16368,0:10300(22(L$:(L$)1(L$)8ĺ(7):23IVENESS DESIRED FOR"::"THAT COMPANY..."'10:5:"1> EXTREMELY AGGRESSIVE":5:"2> VERY AGGRESSIVE":5:"3> AGGRESSIVE":5:"4> MODERATE":5:"5> TIMID":5:"6> VERY TIMID":5:"7> EXTREMELY TIMID"'5:"8> UNKNOWN AGGRESSIVENESS":22:'10220:RESSIVENESS OF THE COMPANIES"::"WHICH BID IN THE AUCTIONS?"::"PRESS 'Y' OR 'N' ";:L$t'L$"Y"L$"N"10199'L$"N"10300'10230)':"AS EACH COMPANY IS NAMED ENTER THE"::"NUMBER WHICH CORRESPONDS TO THE AMOUNT"::"OF BIDDING AGGRESS ':X15['2X:"NAME OF COMPANY #";X;">";:"";CC$(X):(CC$(X))19CC$(X)""10170a''B1$CC$(1):B2$CC$(2):B3$CC$(3):B4$CC$(4):B5$CC$(5):15000'16368,0Y':2:"AUCTION OPTIONS----"::"DO YOU WISH TO MODIFY THE BIDDING"::"AGGIONS----"::"DO YOU WISH TO CHOOSE THE NAMES FOR THE"::"COMPUTER'S COMPANIES WHICH BID IN THE"::"AUCTIONS? PRESS 'Y' OR 'N'";:L$:L$"Y"L$"N"10130 'L$"N"10199':7:"EACH COMPANY NAME MUST BE LESS THAN"::"20 CHARACTERS LONG.":15000FORTY; THE LOWER THE NUMBER" t':"THE LESS LAND WILL BE AVAILABLE FOR"::"AUCTION ON A GIVEN TURN."::"(A VALUE OF '8' IS USED IN PRESET GAMES)"::"ENTER (1 TO 40) >";V%(0,4) ~'V%(0,4)40V%(0,4)110090 '15000:16368,0 ':2:"AUCTION OPTDISALLOW THIS"::11:"OPTION TO BE AVAILABLE.":19:"PRESS 'A' FOR THE OPTION>";:L$:V%(0,2)0:L$"A"V%(0,2)1| `'15000 j':2:"AUCTION OPTIONS----":6:"THE FOLLOWING OPTION DETERMINES THE"::"'LAND AVAILABILITY'. ENTER A NUMBER"::"FROM ONE TO B'15000 L':2:"AUCTION OPTIONS----"::"PRESS 'A' TO ALLOW PLAYERS TO SELECT"::11:"A DIFFERENT PARCEL IN THE"::11:"AUCTIONS IF THE ONE SELECTED" M':11:"BY THE COMPUTER IS NOT"::11:"DESIRED." Q'16368,0q V':"PRESS ANY OTHER KEY TO (THE QUICK VERSION OMITS THE NEWS,"::"DEPLETED WELLS, AND MANY AUCTIONS. IT"\ '16368,0 $':"IS MAINLY DRILLING AND ROYALTY CHECKS"::"WITH NO FRILLS!)":19:1:"ENTER 'Q' OR 'R' >";:L$:L$"Q"L$"R"10010 .'L$"Q"QG%1 8'L$"R"QG%0 % 62000':"YOU WILL BE ASKED TO DECIDE ON SEVERAL"::"OPTIONS. YOU MAY START THE GAME BY"::"PRESSING 'ESC' AT MOST PLACES IN THIS"::"PROGRAM."'15000N ':6:"PRESS 'Q' FOR THE QUICK VERSION"::"PRESS 'R' FOR THE REGULAR GAME":::"                 N OIL,ASIA OIL,N1X,Y1X1,Y1X1,Y1:Y...";L$0.a(4);"BLOAD I"BLOAD ;L$0.a(4);"BLOAD # P-X(1).75:X(100X):INX100) -< -X116000:: -"PLEASE INSERT"::"SIDE #2 NOW AND PRESS 'RETURN' WHEN"::"YOU ARE READY TO START THE GAME...";L$ .::16368,0 .(4);"BLOAD CHAIN,A520" .520"AUCTION" 0 1IAN OCEA\+X((1)40)1:V%(0,4)X: SECOND AUCTION OPTIONY +S%((1)45)5: SURVEY ACCURACY $,X((1)10000000):Y1C:M(Y)X::(1).9211400 V,X1C:M(X)((1)10000000): ,V%(0,1)0:(1).5V%(0,1)1:TR(13)1 ,X(1).75:X(100X):TXX100:V%(X,0)((1)99)1:N >X113:Y((1)255)2:V%(X,4)Y:V%(X,3)(Y2):s RX113:V%(X,1)((1)988)11: \X113:V%(X,2)(((1)9000)20): '1::16368,0: 'X113:TR(X)0: *V%(0,2)0:(1).75V%(0,2)1: NEW PARCEL OPTION3 E ABLE TO DISCOVER PATTERNSz:"THAT WILL ALLOW YOU TO MAKE BETTER"::"DECISIONS AS THE GAME PROGRESSES. HOW-"::"EVER, AT FIRST, ALL COSTS, DEPLETIONS,": "OIL CHANCES, PAYOFFS, ETC. WILL BE"::"TOTALLY UNPREDICTABLE. "; V%(0,0)0 4X11311,14,17,21,26,32,65,3,4,5,7,10,14,19,24,29,47,115,133,185 :"YOU HAVE SELECTED THE 'GAMBLE' MODE."::"THE GAME WILL BE DIFFERENT EACH TIME"::"THIS MODE IS CHOSEN. ANYTHING IS POSS-"::"IBLE. EXPECT THE UNEXPECTED. AS YOU PLAY";: "YOU WILL BD 62000-I04:J113:V%(J,I)::M16368,0:Z%(0)0:F0:2000 91,84,77,65,60,55,51,47,43,39,35,31,99,780,795,810,840,860,870,890,920,930,945,965,975,750,375,475,575,700,850,1000,1150,1300,1450,1600,1800,2000,4500:  1,2,3,5,7,9,  **************"N 1:3:"THE OIL STREET JOURNAL-FINAL EDITION":3:"------------------------------------":11:"+ FINAL STANDINGS +":11:"--------------------"N30000:X014C::XC11:X0:3:M$(X):B9R(X):40000:X0:38(NB$):NB$:X0X02:N102:2230:"N";:D60:P102:2230:"E";:D120:P108:2230:"R";:D90:P102:2230:I1125:M " IS";:D240:P96:2230:I160::D60:P192:".";:2230:".";:2230:".":2230M N :X1121:X1:1:"*";38);"*"::22:1:"**************************500 Lb 3080Ll 10:11:"A";:D60:P128:2230:"N";:D60:P128:2230:"D";:D120:P137:2230:" T";:D90:P128:2230:I1125:Lv "H";:D60:P114:2230:"E";:D60:P114:2230:" W";:D120:P121:2230:"I";:D90:P114:2230:I1125:[M "N";:D60:P"+*":8:")."+*":2:")/"+*":8:"+)-(S\ "!":2:"/"!":8:"),"!":2:#))# ":8:"))"+*":2:")*"+*":8:")/"+*":2:") "+*":8:"+)-(SV)!"!"K<0-B1Q@TEYY)"Y)(ܺ*,")"":HJ]KK8YVA8S]A8LW8[WVLQVM]666:#"BB0).+ ,1"BB+(/+":17:9:"*":16:9:" ":8:32:"*":9:32:" ":14:32:"*":15:32:" ":3150J0 10:9:"*":9:9:" ":16:9:"*":15:9:" ":9:32:"*":10:32:" ":15:32:"*":16:32:" ":3150)K: 9:9:"*":8:9:" ":15:9:"*":14:9:" ":10:32:"*":11,3100,3110,3120,3130,3140yI 7:9:"*":18:9:" ":13:9:"*":12:9:" ":12:32:"*":13:32:" ":18:32:"*":3150I 12:9:"*":11:9:" ":18:9:"*":17:9:" ":7:32:"*":8:32:" ":13:32:"*":14:32:" ":3150QJ& 11:9:"*":10:9:" -----------"vH 7:9:"************************":19:9:"************************":X818:X:9:"*":X:32:"*":H I1700:H 3180:13:21((M$(C))2):M$(C):B9R(C):40000:15:21((NB$)2):NB$H 16368,0I X16:7:9:S$(X):X3090**** ***** "2G :X1121:X1:1:"*";38);"*":G 22:1:"****************************************":1:3:"-$$$- THE OIL STREET JOURNAL -$$$-":19:"----":14G "FINAL EDITION!":19:"----" H 8:11:"--------------------":18:11:"---------15,102,15,85F30000::%F3000>F768,P:769,D:770:F S$(1)" ***** ***** ***** *****":S$(2)"* ***** ***** ***** ****":S$(3)"** ***** ***** ***** ***" G S$(4)"*** ***** ***** ***** **":S$(5)"**** ***** ***** ***** *":S$(6)"***** ***** *D60:P146:X13:90:E 240,192,240,172,15,192,15,146,15,114,15,96,15,192,15,146,15,114,15,96,15,192,15,146,15,114,15,96,15,192,15,146,15,114,15,96 F 15,172,15,128,15,102,15,85,15,172,15,128,15,102,15,85,15,172,15,128,15,102,15,85,15,172,15,128,9,Y139Z,0D=I(16336)ADB139,Y139Z1,0:139,Y139Z1,0QDGI(16336)wDL139,Y139Z2,0:139,Y139Z2,0DQI(16336)DVDX134:D:P:90:DD30:P192:hդDUD$DUD$DUDD$P16336)(16336):QCY159171:X1((1)20)77:X2((1)20)190:X1,YX2,Y:CD3:P250:X150:Y(16336):ᐚpBi"p㎤23a!pa3ai3ahpBi"䘤!pagiphij3ai345184,40194,40185,34193,34185,25193,25185,34193,34184,40194,40182,45B233,45237,23243,23247,45235,40245,40236,34244,34236,25244,25236,34244,34235,40245,40233,45C234,45235,45:Y231592:139,Y139,Y1:D17:P183:90:X(02,208,245,174,0,3,76,2,3,96 IAX12000::1:X125255:X,46X,50:sA0:X14:D160:P167:90:P217:90:A132,45136,23142,23146,45134,40144,40135,34143,34135,25143,25135,34143,34134,40144,40132,45OB182,45186,23192,23196,  @62000&@I770790:D:I,D:6@ :16302,0H@(104)6440d@103,1:鄀 =#S&5du'u6 })a 8д7!! ! ! ! ! !!!!!!!!!    IZED VERSION YOU DESIRE:";L$:(L$)8(L$)120030IHNL$L$".OBCUSTOM"^RN(4);"OPEN ";L$s\N(4);"READ ";L$NX013:Y04NV} } $2j$2jffffffffff$2j|w | $2jtvtv$2jw$.3j|TINUE OR 'ESC' TO"::"START THE GAME>";:L$@:L$(27)20000]:X2123:X:1:40)::i^3ᆞኆ%te&(2ᆞ S."@+Y1ChA+7:"(ANY AMOUNT FROM $0 TO $25,000,000)"::N$(Y);": $";:"";X:X0X2500000011073sB+M(Y)XyC+H+X((1)25000000):Y1C:M(Y)X::12000R+X1C:Y((1)25000000):M(X)Y::12000.25000,:21:1:"HIT ANY KEY TO CON9:"PLEASE ENTER THE AMOUNT WITH WHICH EACH"::"PLAYER WILL START THE GAME..."::"(ANY AMOUNT FROM $0 TO $25,000,000)"::10:"$";X:X0X25000000110606+Y1C:M(Y)X::12000>+:"PLEASE ENTER THE AMOUNT FOR EACH PLAYER"::"WHEN THE NAME APPEAR_A\@([IEM((((((((((((KGEX]\MZ%[MDMK\ML(IEG]F\[*22:#*< )HEE)YEHPL[Z)Z]H[])^@]A)MANNMZMF\(((((((KGEX]\MZ%[MDMK\ML(IEG]F\[*22982*XZM[[(F]EJMZ6*32D,2P D,!2P9P=99898(#P998=8$998>8$998?8$99808$99818"#P902E P!9=8888822:=888<#2,0::"SELECT ONE OF THE FOLLOWING:":::2:"1) ALL PLAYERS START WITH $1,500,000"::2:"2) ALL PLAYERS START WITH SAME PLAYER- SELECTED AMOUNT"::24 +"3) ALL PLAYERS START WITH DIFFERENT PLAYER-SELECTED AMOUNTS"::2:"4) ALL PLAYERS START 14)):11000**TG%(40((1)11)):11000I*TG%(51((1)20)):11000h*TG%(71((1)30)):11000*TG%(101((1)100)):11000*TG%(201((1)100)):11000*TG%(300((1)999)):11000*YM(1):X18:M(X)Y::G$"A"25000+1636800 TURNS"::7:"I> MORE THAN 300 TURNS"Z*23:"WHICH? >";:L$:Z(L$):Z65Z7310960h*V%(0,3)1*Z(Z64):Z10972,10974,10976,10978,10980,10982,10984,10986,10988*TG%(5((1)11)):11000*TG%(16((1)10)):11000 *TG%(26((1)NG TO THE"::"RANGE OF GAME-TURNS DESIRED: ":*7:"A> 5 TO 15 TURNS"::7:"B> 16 TO 25 TURNS"::7:"C> 26 TO 39 TURNS"::7:"D> 40 TO 50 TURNS"::7:"E> 51 TO 70 TURNS"::7:"F> 71 TO 100 TURNS"(*:7:"G> 101 TO 200 TURNS"::7:"H> 201 TO 3偂!pa" 9 pd>7怂صз//ƪƵ̲ǵ۲+ٱ8ٱD[ͶY۱DZ۷QN=8ٱE۷QðE>'/ƵеǵOU WISH TO KEEP THE DOLLAR AMOUNT"::"GOAL A SECRET FROM THE PLAYERS?"::"PRESS 'Y' OR 'N'";:L$:L$"Y"L$"N"10902 *L$"N"V%(0,3)0:11000 *V%(0,3)1::X(1).5:XX.75:DADAX:10:"THE DOLLAR AMOUNT ENTERED PREVIOUSLY"::"HAS NOW BEEN MO ANY OF THESE PROPERTIES DISPUTED?":17:13)"('Y' OR 'N')":X(16384):X21710516e ,)X20610556p 0)10536 4)20:"HIT ANY KEY TO CONTINUE.":X(16384):X12810548 8) <)16368,0: ) *16368,0:G$"A"10902 *10905y *:8:"DO Y16384):X21710516$ )X20610556/ )10504= )16368,0n ):10:"HOW MANY PROPERTIES ARE DISPUTED?";X )X12X010520 ):2:N$(Z);"'S NEW PROPERTIES"::"ARE LOCATED AT:" $)Y1X:5)"(";(50(1))1;",";(40(1))1;")":T ()15:"AREHRU 12) >";X0:X01X01210410E (Z1C::"PROPERTIES FOR ";N$(Z) (Y1X0:A((1)50)1:D((1)40)1:Y3:11:"(";A;",";D;")"::16368,0:10500 ( (10700 )20:"ARE ANY OF THESE PROPERTIES DISPUTED?":22:"PRESS 'Y' OR 'N'" )X( 6200020000&(16368,0(:9:"DO YOU WISH TO MODIFY THE STARTING"::"PROPERTIES GIVEN EARLIER? ('Y' OR 'N')";:L$:L$"Y"L$"N"10400(L$"N"10700 (:"HOW MANY PROPERTIES SHALL EACH PERSON"::"RECEIVE? ENTER A NUMBER (1 T"" " " " " """""""""