' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`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,&"{ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0:$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌```葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<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 õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`  LOARUCHAIDELETLOCUNLOCCLOSREAEXEWRITSAVOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF٫!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE PROBLEM RANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNREBOOT DISC I/O ERRODISK FULFILE LOCKETYPING ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT AVAILABLE $3>L[dmx- (  @跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L ` `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d` קӠz# u`H MERDE":2047L "YOU WERE LUCKY. YOU ARRIVED SAFELY AT FORT NEW YORK."V 1311`1430"YOU NARROWLY ESCAPED AN IROQUOIS RAIDINGPARTY HOWEVER, YOU HAD TO LEAVE ALL YOURFURS BEHIND."13201418B1B12M1M12,"YOUR MI;TT0;" YEARS"'G"IS ";H;" BUFFALO."-PTZ"THE TOTAL REMAINING IN THE HERD"o["IN YEAR ";T;" IS: ";d(A1A2Y1Y2C1C2.5);" BUFFALO."x1610"**********""YEAR ";T"AM= ";(A1.5);20);"AF= ";(A2.5)#"AR TO CONTINUE...>":-$(16384)1555690F$(16384)1605750X$16368,0::^$p$:*************************$: THIS VERSION $: MODIFIED AND AUGMENTED %: FOR THE ";:A$:##20(CT$)2(#CT$1#""7#u#:16368,0:::10:10:"* * * THE END * * *":"RUN WW"#D3:CT$"* DYNASTY *":5600#bCT$"IMPROVED VERSION OF HAMURABI.":5600#v21:" PRESS 'ESC' TO END":$"< PRESS THE SPACE BRANGES BETWEEN 1 TO 9 BUSHELS PER"J"<:" * TO QUIT - TYPE IN A '-1' *"z"P:" TO BECOME 'EMPEROR OF ALL CHINA', YOUR"Z" TOTAL WEALTH (ACRES PLUS BUSHELS) MUST""d" EQUAL OR EXCEED ONE MILLION !!"#|23:1::"PRESS ANY KEY TO BEGIN YOUR RULE *"K!5:"EACH PERSON REQUIRES 10 BUSHELS OF":5:"RICE TO SUSTAIN LIFE"e! :" * FARM LABOR *"!5:"EACH PERSON CAN ONLY PLANT 2 ACRES"!:" * SEED ALLOTMENT *"!(5:"3 BUSHELS ARE REQUIRED FOR 1 ACRE"""2:" * PRICE PER ACRE *":5:"U 'EMPEROR'.":::::10:" MAY BUDDHA BLESS YOU ":; g 3::"PLEASE WAIT - NO KEYPRESS YET":x X013000:  *** PRINT INSTRUCTIONS & GUIDELINES FOR GAME *** :::" GUIDELINES FOR GOVERNING YOUR PROVINCE ":!" * FOOD ALLOTMENTING YOUR"::" RESOURCES, ANTICIPATING GOOD AND":" BAD OCCURRENCES, PREDICTING MAR-"::" KET CONDITIONS AND LAST, BUT NOT":" LEAST, SUSTAINING & FEEDING YOUR"::" POPULATION. IF SUCCESSFUL, CHINA"5 :" WILL PROCLAIM YORING THE"27:"YUAN DYNASTY (1260 TO 1368)'":d:"PLEASE WAIT...DON'T PRESS ANY KEYS YET":tX06000:220::::" YOU ARE ABOUT TO RULE A PROVINCE"::" AND YOUR OBJECTIVE IS TO ACQUIRE"3:" WEALTH BY FARMING & TRAD *":" *** ***":" * ";::1:"DYNASTY";::175:" *"`240" * ------- *":" * *":" * * * * * *"7:"'YOU ARE A GOVERNOR OF HUNAN" 7:"PROVINCE IN CHINA DU"Y"40A$"N"ĺ"RUN WW"4HN1R(3000)2000@ :20204:" !":" *":" *"" * *":" * *":" * *"W" * * *"::8:"OF HUNAN PROVINCE AND THE"I:8:"'EMPEROR' KUBLAI KHAN HAS"o:8:"ORDERED YOU BACK TO SERVE":12:"AS HIS ":12::" SLAVE ":22:6::" YOUR DYNASTY LASTED ";Y;" YEARS "::255:8:" TRY AGAIN ? ( Y / N ) ";A$A$к:8:"SUCH WEALTH THAT THE NOBLES"::8:"IN THE GREAT CITY OF PEKING"~:9:"HAVE CHOSEN YOU TO BECOME"::18:"THE NEW":9::" * 'EMPEROR OF CHINA' * ":2020N01:1000:X0PAUSE1000:::100#8:10:"YOU ARE THE SOLE SURVIVOR"^";:X .&83:" ";N0;" "?B4:" ";L2;" "XL5:" ";N1;" "`V: *** MESSAGES FOR THE GOVERNOR ***1000X0PAUSE1000:::100:8:"YOU HAVE, BY YOUR MATERIAL-"::8:"ISTIC MACHINATIONS, AMASSED"GPUTED FIGURES IN REPORT WINDOW **.34,6:1U11::" REPORT FOR YEAR ";Y;" ":jX039:"^";:X10::" PEOPLE IN PROVINCE ";10:" ACRES OF LAND OWNED ";10:" BUSHELS IN STORAGE ";:$X039:-~" LOSS TO RATS----------";B;" BUSHELS"[" NET HARVEST-----------";C;" BUSHELS"hN1N1Cq140:7::" ### HARVEST FOR YEAR ";Y;" ### ":" ";L1;" BUSHELS PER ACRE---";A;" BUSHELS"900! ** SUBROUTINE TO PRINT COM"Q2"R"IT IS YOUR JOB TO GO PROSPECTING AND"8"Sa"T"TO MAKE AS MUCH MONEY AS POSSIBLE"g"U"V"BEFORE TIME RUNS OUT.""W3"X::"Y"YOU HAVE JUST COME FROM THE EAST""Z"["COAST AND HAVE $";M0NEY;" LEFT TO SPEND.""\'#]"YODA355,325!E::F!F"LET'S GO TO THE GENERAL STORE FIRST!":M!G3^!HHI0RLOFLAG2f!I53o!J463v!K3!L::!M"THE DATE IS MAY 23, 1849. YOU HAVE JUST"!N"ARRIVED IN SACRAMENTO."!O"P"CRIES OF 'GOLD' RING IN THE STREETS."(NAME$)9307 7:10:I 8"WOULD YOU LIKE INSTRUCTIONS FOR THIS"e 9"GAME, ";NAME$;" ? ":n :240{ ;A1331 <::: ="WHERE DO YOU WANT TO START?": >: ? @" 1) SACRAMENTO" A B" 2) GOLD FIELDS" CCHOICE2:233!" POUNDS OF FOOD."*&+I1133,I8303C-F(I)0303Q.ITEM$(I)X/I0F(9)1F(11)1ĺ"YOU MUST HAVE A MINING TOOL!":3:521323:::255:104" WHAT'S YOUR NAME, PARDNER ?? ":::5" --> ";NAME$ 6NAME$""T FORGET TO BUY FEED FOR HER WHEN"Q"YOU GET TO THE HILLS. BRUSH HER DOWN""EACH MORNING AND TIE HER UP EACH NIGHT."3 H0RSE1!"#::2$15);"INVENTORY"%&"YOU HAVE:"'("$";M0NEY;" IN GOLD.")TPF;1261289)M0NEYM0NEYHV"THEN IT'S A DEAL. WHAT ARE YOU GOING"o"TO NAME HER? ";HN$HN$""(HN$)Ģ(37)1:958:278(HN$)10ĺ:"THAT NAME IS A BIT TOO LONG FOR A HORSE!":(37)3:868:279958$"DON'YOU STILL WANT TO DEAL?"#2400A2289:::_"LET'S SEE WHAT ELSE I HAVE..."pI12000:Iv 251 M0NEYH276   "YOU DO NOT HAVE THAT MUCH MONEY""DO YOU STILL WANT TO DEAL?"240A1A1(A$"N")0("YESNO",(A1)31,3)6<H:::`"HOWDY PARDNER!":f"IF YOU ARE LOOKING FOR A HORSE,"H((1)50)30"I HAVE ONE FOR $";H;".""DO YOU WANT IT?"240A1266"DO (G050)(Y25):WO5219.X((1)10)1DX1WOWO2:227Z((1)15)0232gWOWOWOp229v|PROMPT$(CHOICE);A$A(A$)A1ACHOICE235A:"(TYPE Y OR N) ";A$A$"Y"A$"N"24)1 3a"A SUMMER STORM HAS JUST HIT, MAKING YOU LOSE VALUABLE TIME!"h3n}T0:FLAG0X(1)Y3232.5TT.399(2.7183(5.(Y8)2))T16XFLAG1:Y32YFLAGYY(((1)50)1)WOа3M0NEYM0NEYDMG$*T"WHILE YOU WERE MINING, AN OLD GOLD":"PAN CAME FLOATING DOWN THE RIVER."F(9)1ĺ:"YOURS LOOKED BETTER, THOUGH, SO YOU SENTTHE OTHER DOWNSTREAM.":212:"YOU JUST GOT A FREE GOLD PAN!"F(9 "PPPP O O W W W !!!">"P O O W W W !!!"\"P O O WW WW "z"P OOO W W !!!"3:8"YOU SAVED YOUR MONEY, BUT MUST PAY":DMG((1)20)11"OLD DOC BLANCHARD $";DMG;" TO FIX YOU UP."GNE -- LE COMPUTEUR"@23::"PRESS RETURN";Z$::"RUN WW"l:*************************: THIS VERSION : MODIFIED AND AUGMENTED : FOR THE :COMPUTER EDF(3)D1F(4)I."YOU NOW HAVE $ ";IW"(INCLUDING YOUR PREVIOUS SAVINGS)"`508kJ14wF(J)0~J "MINK","BEAVER","ERMINE","FOX":::::::"OUI MAUDITE MERDE POURQOUI PRENDS-TU MON TEMPS.""SIDE AT ANOTHER FORT?"=z22::"ANSWER YES OR NO ---> ";B$:C{I|Ov"YOUR BEAVER SOLD FOR $ ";B1F(2)"YOUR FOX SOLD FOR $ ";D1F(4)"YOUR ERMINE SOLD FOR $ ";E1F(3)"YOUR MINK SOLD FOR $ ";M1F(1)IM1F(1)B1F(2)E1NK AND BEAVER WERE DAMAGED ON YOUR TRIP."k"YOU RECEIVE ONLY HALF THE CURRENT PRICE FOR THESE FURS."u1320 1410("SUPPLIES AT NEW YORK COST ?80.00.")"YOUR TRAVEL EXPENSES TO NEW YORK WERE $25.00."*x:"DO YOU WANT TO TRA"YOU DON'T HAVE THAT MUCH FOOD LEFT!!"::3:518j2EA1ĺ:"YOU DIED FROM NOT EATING WELL!!":3:887y2TPFTPFEA2STINJURYFLAG102INJURYFLAG02EA6FO152EA8FO102EA12FO52EA16FO03X(F(1)F(6)F(7)F(10))4 DIED!":3:H0RSE01:5e1TPF0ĺ"YOU RAN OUT OF FOOD AND STARVED TO DEATH.":3:8871"HOW MANY POUNDS OF FOOD DO YOU WANT TO"1 "EAT THIS WEEK?"1 1 "(YOU HAVE "TPF" LBS) ";1 "";EA$:EA$""5231 EA(EA$)32EATPFğ:0 009:17*0"WEEK# ";WEEK;0I11000:IA0W0MOVINGFLAG1517j0X((1)11)10X116,116,116,116,116,117,137,214,155,214,2050M0NEY08781H0RSE1F(5)0ė:::"YOU FORGOT TO BUY FEED FOR "HN$",":"AND YOUR HORSE HASP PLAYING."/3/::K/"IF YOU RUN OUT OF MONEY YOU WILL HAVE"Q/x/"TO GET A JOB, AND STOP PLAYING."~//:"LET'S GET STARTED WITH OUR FIRST WEEK"//"OF GOLD PROSPECTING, ";NAME$;"."/3/CITYNUMBER00WEEK18" .6."FOR PROSPECTING EACH WEEK, DEPENDING "<._."ON WHAT YOU HAVE PURCHASED."e..:"AT THE END OF EACH WEEK YOU MAY GO TO"..:"TOWN TO HEAR NEWS REPORTS, BUY ".."SUPPLIES, MOVE TO ANOTHER SPOT, OR". /"STOING BEFORE IT"-/-"WILL GET TOO HOT."5-e-:"IF YOU WANT TO GET RICH, YOU WILL WANT"k--"TO TAKE CARE OF YOUR HEALTH, MAKE"--"GOOD DECISIONS, AND HAVE GOOD LUCK."-3-::."YOU CAN CHOOSE TO USE A PAN OR CRADLEPIONEERS WALKED AND RODE TO GET TO"+,>,"CALIFORNIA."E,3[,((1)3)1İ117a,r,INJURYFLAG0~,HEAL90,NCL$"MARYSVILLE",HI0RLOFLAG2,::,"IT IS NOW MAY 27, 1849. YOU HAVE ABOUT",-"EIGHT WEEKS FOR PROSPECT:Xİ117+464&+H0RSE0İ2467+H0RSE0378A+::i+"WELL, ";NAME$;", LET'S SADDLE UP"o++HN$;" AND HEAD FOR THE HILLS."++"THE TRAIL ON WHICH WE ARE RIDING IS"++"THE CARSON IMMIGRANT TRAIL THAT THE"+%,"G((1)10)68*"YOU LOST $";DMG;" TO THE ROBBER."L*M0NEYM0NEYDMGS*3\*464f*::*"WE WILL BE WALKING UP THE CARSON"**"EMIGRANT TRAIL THAT THE PIONEERS"**"HAVE USED TO COME TO CALIFORNIA."*3 +X((1)10)AT WE ARE TAKING IS THE" )N)"CARSON EMIGRANT TRAIL USED BY PIONEERS"T)~)"WHO CAME OVER ON FOOT AND BY WAGON"))"THE LAST FEW YEARS BEFORE THE RUSH.":3)((1)10)1437):7)"THE STAGE COACH WAS ROBBED!")*DM.("SPOT ON THE FLOOR, AND $12 FOR MEALS."A(M0NEYM0NEY15G(u("NOW IT'S TIME TO SIT AROUND SACRAMENTO"{(("AND WAIT FOR THE STAGE."(3(M0NEY0878(::("THE STAGE IS LOADING, SO LET'S GO!!"():"THE TRAIL TH0'"THAT'LL BE $20 FOR THE TICKET, "NAME$"."6'F'X((1)3)~'X1ĺ"WE'LL BE LEAVING EARLY IN THE MORNING.":417''"YOU WILL HAVE TO STAY AT"''"THE HOTEL UNTIL THEN."':'"IT WILL COST YOU THREE DOLLARS FOR A"(~ &'&" 1) STAGECOACH ($20)"-&D&" 2) WALK (FREE)"J&j&" 3) HORSE/MULE ($30-$80)"|&CHOICE3:233&A391,438,447&::&M0NEY20398&&"YOU DO NOT HAVE ENOUGH MONEY!!"&&3&378'M0NEYM0NEY20";(34)%t%uC%v"DO YOU WANT TO COME OVER TO THE STORE?"L%w240^%xA1İ53:379%y:17:958:"YOU WILL NEED TO GET SOME SUPPLIES!":373%z::%{"THERE ARE A COUPLE OF WAYS TO GET TO THE";%|%}"GOLD FIELDS FROM SACRAMENTO."&SAYING,"$k:G$l(34);"HOWDY, PARDNER! MY NAME IS JOHN SUTTER."s$m"I WANT TO WELCOME YOU TO SACRAMENTO."y$n$o"I BUILT THE FORT OVER THERE 10 YEARS "$p$q"AGO. YOU CAN BUY A FEW SUPPLIES AT"$r %s"THE GENERAL STORE IF YOU LIKE.U MUST BUY FOOD, CLOTHING, SUPPLIES,"-#^[#_"GOLD PROSPECTING GEAR, AND TRANSPORTA-"a#`#a"TION TO THE GOLD FIELDS."#b3#c#d:#e:#fHI0RLOFLAG1#g:#h"WHILE YOU ARE IN SACRAMENTO, A MAN"#i $j"COMES UP TO GREET YOU B16368,0|B:12:"OK, ";NA$;" LET'S COUNT YOUR GOLD."::"PLEASE WAIT WHILE I SEPARATE THE GOLD FROM THE PYRITE."BF8A1BMOVINGFLAG1MOVINGFLAG0::"YOU ARE NOW IN "NCL$".":3:751B219BF81PCA1.2:F(13)1PCA1.5CWLCWLCAAYY:XXA"!"+AXX:YY1FABARBAR1:BAR3BAR0WABAR0ĺ"/";hABAR1ĺ"+";{ABAR2ĺ(92);AAAYY:XXA"-"AXX1:YYABARBAR1:BAR3BAR0ABAR0ĺ"/";ABAR1ĺ"+";ABAR2ĺ(92);B @598@@YY:XX%@"!"-@XXH@BARBAR1:BAR3BAR0Y@BAR0ĺ"/";j@BAR1ĺ"+";}@BAR2ĺ(92);@@@YY:XX@"-"@XX1:YY@BARBAR1:BAR3BAR0@BAR0ĺ"/";@BAR1ĺ"+";@BAR2ĺ(92);ADIR1RO(XX1,YY1)5987?DIR2RO(XX1,YY1)598H?OX:OY:" "c?DIR1YYYY1:XXXX1~?DIR2YYYY1:XXXX1?DIR3ĢOY:OX1:" ":XXXX1?RO(XX2,YY)598?OX:OY:" "?XXXX1:DIR4@GO(XX1,YY)1G0G01:GO(XX1,YY)0OX:OY:" "+>DIR1YYYY1:XXXX1F>DIR2YYYY1:XXXX1h>DIR4ĢOY:OX1:" ":XXXX1}>RO(XX2,YY)598>OX:OY:" ">XXXX1:DIR3>GO(XX1,YY)1G0G01:GO(XX1,YY)0>598>>DIR3DIR4:XX1:YY:" ":598?1=xDIR4XXXX1:YYYY14=yRO(XX,YY2)598V=zDIR1ĖOX:OY1:" ":YYYY1h={YYYY1:DIR2=|GO(XX,YY1)1G0G01:GO(XX,YY1)0=}598=~=DIR4DIR3:XX1:YY:" ":598=DIR1RO(XX1,YY1)598=DIR2RO(XX1,YY1)598>X,YY2)598/A$" "9?LL MOVE YOU UP, DOWN, LEFT AND RIGHT.":3:q78:"COLLECT GOLD WITH YOUR DIGGER BY RUNNING INTO THE 'G'S."79:"UNFORTUNATELY, YOU CAN'T DIG THROUGH"::"ROCKS ('O'S), AND GOLD SOMETIMES APPEARS"::"ON TOP OF THEM.":3:]8::"WHEN YOU HAVE COLL61CHOICE2:233H62A1F(9)1ĺ:"YOU DON'T HAVE A PAN!!":3:55663A2F(11)1ĺ:"YOU DON'T HAVE A CRADLE!!":3:55664FZ57365::"DIGGING FOR GOLD":66:"THIS IS YOU --> ! ";(8);"*":34,1:3:077:"THE 'I', 'M', 'J', 'K' KEYS WILOWED DOWN BY SORE HANDS AND":"FEET."m5(ILL1ĺ:"IT COST $20 TO SEE OLD DOC BLANCHARD.":M0NEYM0NEY20t5)35*MOVINGFLAG1ė:::7035+F(9)0F(11)0PCA.3:7305,::5-"DO YOU WANT TO USE A"5.5/" 1) PAN"60" 2) OR CRADLE"1:552>4#"YOU ARE VERY ILL. YOU HAVE MALARIA.":ILL1:552}4$X1ĺ"YOU HAVE CHILLS AND FEVER. YOU ARE ILL.":ILL1:5524%"YOU ARE ILL. YOU HAVE SCURVEY.":ILL1:5524&X1ĺ"YOU ARE HAVING BACK TROUBLE. IT SLOWS":"YOU DOWN.":552(5'"YOU ARE S3HEALHEAL(FOSTWEEK)X'3ST0k3HEAL30ė:::"DUE TO POOR HEALTH YOU HAVE":"DIED!!":3:887u3::3X((1)2)3ILL03HEAL455463HEAL605483 HEAL855503!5544"X1ĺ"YOU HAVE DYSENTERY. YOU ARE VERY ILL.":ILLR{M0NEY20908%R|M0NEY150899,R}8YR~"YOUR FRIENDS HAVE TAKEN SOME OF YOUR "R"MONEY FOR A COFFIN, AND PAID FOR IT"R"TO BE SHIPPED TO YOUR FAMILY BACK EAST."R"YOUR FAMILY WILL GET $"M0NEY100"."R921RS"YOU FRIENDS HAVU RAN OUT OF MONEY. YOU WILL HAVE TO".Qr\Qs"TAKE A JOB IN TOWN AND TRY PROSPECTING"bQtzQu"AGAIN NEXT YEAR."Qv921Qw::Qx"YOU HAVE DIED IN THE GOLD FIELDS."Qy"YOU HAVE $";M0NEY;" LEFT OVER FROM"Rz"PROSPECTING AND SAVINGS.""AND YOU WILL BECOME RICH."*Pg3:921=PhMMM0NEY10000KPiMM0877qPj"YOU ARE ONE OF THE LUCKY FEW, "PkNAME$". YOU REALLY STRUCK GOLD!!"Pl921Pm:"YOU DON'T HAVE ENOUGH MONEY!":3:827Pn:5Po"WELL, ";NAME$;","Pp:(Qq"YOOU. SOME OF ""AT THE END OF YOUR JOURNIES, YOU HAVE"zL?"$";M0NEY;". YOU CAN NOW DO ONE OF THE"L@"FOLLOWING. YOU MUST HAVE ENOUGH MONEY"LA"LEFT TO DO THE ONE THAT YOU WANT."LBLCMD" 1) GET A JOB CLEANING THE STA3824K-::6K."WHAT DO YOU WANT TO DO NOW?"U:KU10:6:rU"WOULD YOU LIKE TO PLAY AGAIN?":{U240UA1ĬU:6:7::NAME$::U"GOLD FEVER WILL BRING YOU":" BACK SOMEDAY."UU:V"THANKS, AND SEE YA LATEYOUR FRIENDS STARTED TO BURY YOU NEXT"AT"TO YOUR DIGGINGS."GTqT"WHILE DIGGING THE GRAVE THEY FOUND"T"A NEW GOLD STRIKE."TT"THEY COVERED YOUR COFFIN WITH THE "T"MUD AND ROCKS FROM THE NEW STRIKE."T U"TO THIS DAY IT IE TAKEN SOME OF YOUR"BS"MONEY FOR A COFFIN AND A NICE GRAVE"PS"STONE."VSS"THIS LEFT JUST ENOUGH MONEY FOR YOUR"S"FRIENDS TO HAVE A GOOD-BYE PARTY AT"S"THE SALOON."S921SS"BECAUSE YOU DIED WITHOUT MUCH MONEY,"(T"ݻݻݻݻݻݻݻݻݻݻ*wn];wn]ݻݻ;wn];wn];wn};wn];wn];wn];wn]{ժժ\;wn];wn];wn];wn}ݻ*wn];wn];wn];wn]ݻun];wn];wn]+un};wn];wn];wn];wn]תժժ];wn];wn];wn];wn}߻o];wn];wn];wn];wn];w֪ժժ;wn];wn];wn];w߻ݻݻݻݻݻݻݻݻݻo];wn];wn];wn];wn]{ժժ;wn];wn];wn];w߻o];w.];wn];wn];wn];wn];wnn];wn];wn];w߻o];wn];wn];wn];wn];wn]ժժwn];wn];wn];w߻:wn];wn];wn];wn];wn][n];wn];w.];wn];wo];wn];wn];wn];ժժժwn];wn];wn];wn];w߻o];wn];wn];wn];Wn];wn];Wڪwn]:wn];wn];wo];wn];wn];wn]۪ժժժwn];wn];wn];wn];w߻ݻݻݻݻݻݻݻݻݻ߻ݻ];wn];W޻ݻݻn];wn];wn];wo];wn];wn];wn];wnժժvn];wn];wn];wn];w߻ݻݻݻݻݻݻݻݻݻ߻];wn];wn];wn];UݻU;wn];wn]+wj];wo];wn];wn];wn];w֪ժժwn];wn];wn];wn];w;wn];wn];wn];wn];wn][ժժn];wn];wn];wn}ݻݻݻݻݻݻݻݻݻ;wn];wn];wn];wn];wnժժn];wn];wn];wn}+u.U*wn];wn];wn];wn];wn]{;wn];wn];wn};wn];w.U;wn];wn];wn];w^ժ];wn];wn];wn}i];wn];wn];wn];wn];w*];wn];wn];Un];wn};wn];wn];wn];wnժժժ];wn];wn];wn];wn};wn];wn];wn];wn];wn];wn]֪];w*];wn];wn};wn];wn];wn];wުժժժ];wn];wn];wn];wn}ݻݻݻݻݻݻݻݻݻݻݻU*U:w*ݻݻ*wn];wn];wnu;wn];wn];wn];wn];ժժ\;wn];wn];wn];wn}ݻݻݻݻݻݻݻݻݻݻtn];wn];wn];w.ݻn];wn];w.U:wn};wn];wn];wn];wn]תժժ];wn];wn];wn];wn}߻o];wn];wn];wn];wn];wnժժwn];wn];wn];w߻ݻݻݻݻݻݻݻݻݻo];wn];wn];wn];wn];ժժ;wn];wn];wn];w߻oU*wn];wn];wn];wn];wn];wnvn];wn];wn];w߻o];wn]+wn];wn];wn];wn][ժwn];wn];wn];w߻߻un];wn];wn];wn];wnUun];wn];wn];wn];wo];wn];wn];wn];ժժժwn];wn];wn];wn];w߻k];wn];wn];wn];Wn];wn];UԪwn];wn];wn];wo];wn];wn];wn]۪ժժժwn];wn];wn];wn];w߻ݻݻݻݻݻݻݻݻݻ߻ݻݻ*UݻݻݻU;wn];wn]+o];wn];wn];wn];wn-ժժn];wn];wn];wn];w߻ݻݻݻݻݻݻݻݻݻ߻;wn];wn];wn]kݻ:wn];wn];wn];wo];wn];wn];wn];w֪ժժwn];wn];wn];wn];w;wn];wn];wn];wn];wn]{ժժ];wn];wn];wn}ݻݻݻݻݻݻݻݻݻ;wn];wn];wn];wn];wn=ժժn];wn];wn];wn}590%D20001996$%D1000100%"COME ON YOU STARTED WITH 1000 SQ. KMS. OF FARMLAND AND 1000 SQ. KMS. OF FOREST LAND."%1990%X5X51%B50%100%22005:"RUN WW"&U23::"PLEASE PRESS RETURN TO CONTINUE ";XZ$:::OF OFFICE IS ONLY ";N5;" YEARS."+$1960Y$"HOW MUCH DID YOU HAVE IN THE TREASURY";`$An$A01590$"HOW MANY CITIZENS";$B$B01590$"HOW MANY WORKERS";$C$C01590$"HOW MANY SQ. KMS. OF LAND";$D%D01,1825:16,1826d 15,2422:15,1826:21,2626:21,2225:23,2513:23,2514:23,2525:23,2526 15,1729:23,2429:17,1930:18,2131:20,2232:22,2433:15,1633 30,3213:30,3214:30,3226:30,3225 I11500: : THER KEY"B D$L I3044)V A(I)C/` 5j ? 4100E \ 17184:: LO-RESc 6o I039{ 0,39I  13 13,268 9,1113:9,1119:9,1125:9,1114:9,1126:9,1118 15,1712:20,2412:13,2415:13,2419:16C$"1"C0C$"2"C11/C$"3"C14? C$"4"C5N C12217T ` 5:5: "YOU MAY FINISH AFTER ANY YEAR":5$ " BY TYPING THE LETTER F. "::3. 15:"YOU MAY START OR INCREMENT YEARS":3 8 17:" BY PRESSING ANY OOUR":610:" 1)DARK BACKGROUND: RED HARD TO FIND"b" 2)PINK BACKGND: ORANGE HARD TO FIND"" 3)LIGHT BACKGND: YELLOW HARD TO FIND"" 4)GREY BACKGND: ALL EASY TO FIND":22:"WHICH BACKGND DO YOU WANT (1,2,3 OR 4) ?":C$:C1  Computer CentreC (03) 388 0796p ************************1 FOR THE 9:COMPUTER EDUCATION CENTRE Y: BY: LACHLAN ARNOTT 1988 :************************* LACHLAN ARNOTT Parent & Teacher::::::::::0:X1)b1811^23:"PRESS RETURN FOR DISC MENU";Z$:"RUNWW"j :1760:*************************: THIS VERSION : MODIFIED AND AUGMENTED : ETRES 23 TO 29ZZ1+!Z218705&::_+"WOULD YOU LIKE A PRINT-OUT OF THESE,"DISTANCES AND CLUBS? (Y/N)/0:"IF SO, MAKE SURE THAT THE PRINTER1"IS SWITCHED ON AND IS 'ON LINE'."::S$DS$"Y"1880N:::::"YOUR TOTAL IS ";G2;"."'C020008G1F12000>G292Mm::5)"SELECTION OF CLUBS::" DISTANCE DESIRED SUGGESTED CLUB:" 280 TO 200 METRES 1 TO 4" 200 TO 100 METRES 13 TO 19" 100 TO 0 M,3,206,3,4,2,500,5,7,2E 408,4,2,4,359,4,6,4,424,4,4,2,388,4,4,4s 196,3,7,2,400,4,7,2,560,5,7,2,132,3,2,2 357,4,4,4,294,4,2,4,475,5,2,3,375,4,4,2 180,3,6,2,550,5,6,6G2G2S1:"TOTAL PAR FOR ";F1;" HOLES IS ";G3;".":056D,P,L(1),L(2);%=::l@"YOU ARE AT TEE-OFF HOLE ";F::"DISTANCE ";D;" METRES. PAR ";PxEG3G3P~JT"ON YOUR RIGHT IS ";^X1h400mr"ON YOUR LEFT IS ";|X2400629 361,4,4,2,389,4,3T41530&D2D2I(42(1))1.56D221560ED221500b::"YOU HOLED IT!!!":hrFF1{230:"PUTT SHORT"D2(D2)1380D2D2I(41(1))11450:"PASSED BY CUP.""D2D2,151:GX;wn];wn];wn];wn];wn]תժժn];wn];wn];wn}ݻݻݻݻݻݻݻݻU*U;wn];wn];wn];wn];wnժժvn];wn];wn];wn}0G0;wn];Un];wn];wn];wn];wn]{;wn];wn];wn};wn];wnU;wn];wn];wn];wժժ];wn];wn];wn}n];wn];wn];wn];wn];wjvn];wn];wn];wn};wn];wn];wn];wnժժժ];wn];wn];wn];wn};wn];wn];wn];wnU;wn];wn]ڪ];Wn];wn];wn}%"HEAVY.":5000!%"SEVERE."'%/%:a%"WOULD YOU LIKE TO TRY AGAIN? (Y OR N) "::s%" ----> ";A$%A$""5030%A$"Y"İ2000:390%%"RUN WW"%B$""%I14%A$% (A$)325140%B$""ı%OUT%(B$)N YOUR",$6"AREA WILL DROP SIGNIFICANTLY."2$h8$rB$w2000l$|D%1(DMGE%10)(DMGE%20)(DMGE%30)$"THE EQUIPMENT DAMAGE SUSTAINED DURING"$"THIS PERIOD WAS ";$D%4260,4270,4280,4290$"VERY LIGHT.":5000$"MODERATE.":5000"HORRIBLE! FIND A LESS DEMANDING JOB.":4200_#"WAY BELOW YOUR AREA'S POWER NEEDS.":4200#"ADEQUATE YOU COULD DO BETTER.":4200#"EXCELLENT! POWER COSTS IN YOUR AREA "#""WILL NOT BE INCREASED.":4200$,"NEAR THE MAXIMUM! POWER COSTS I A PERIOD OF ";DAY%;" DAYS, YOU HAVE"P""PRODUCED AN AVERAGE POWER OUTPUT OF"o"KW%;" KILOWATTS PER DAY.""AKW%1(KW%1000)(KW%1200)(KW%1500)(KW%1800)"""YOUR AVERAGE POWER PRODUCTION RATE IS""AKW%4090,4100,4110,4120,4140/#ION. THE"3!0 "CONTAINMENT BUILDING HAS RUPTURED."^!: "LETHAL RADIOACTIVE GASES AND DEBRIS"s!D "HAVE ESCAPED."y!N !X "INITATE YOUR EVACUATION AND RADIATION"!b "CLEAN UP PLANS AND GET MEDICAL"!l "ASSISTANCE."!v 5000!!%""OVERAS BEEN DESTROYED BY"C "UNCONTROLLED THERMAL RUNAWAY. HOWEVER,"o "THE CONTAINMEMT BUILDING HAS NOT YET" "RUPTURED."  "INITIATE YOUR EVACUATION PLAN."  5000  "THE REACTOR CORE HAS MELTED DOWN AND" !& "PRODUCED A STEAM EXPLOS3)(ED%3)(PD%3)(SD%3)2PB%2SB%3XB%3GB%):DAY%DAY%MD%K*RD%0U4ED%0_>PD%0iHXD%0sRSD%0}\GD%0fPB%0pSB%0zXB%0GB%0EF%0:PF%0:SF%0GO%0   RD%63100 "THE REACTOR CORE HT%25(CT%25)CT%(CT%25)=xXB%1XB%(XD%2)((4).9)^GB%1GB%(GD%4)((4).9)lTTTTGO%u470{EV%300PV%120SV%120RT%25XT%25 CT%25DMGE%DMGE%2RD%ED%PD%XD%SD%GD%A MD%53(10(RD%PF%(CT%25)SF%)(PF%SF%1)256<XB%XT%RT%.85nFSHSF%(100(PV%100)PV%(PV%100))350(XT%CT%)PXB%SHSH.2ZGO%SHXT%(XT%CT%)23_GO%2600GO%2600dGO%GO%(GO%0)(GB%0)nCT%25((XT%25)(SHGO%)(SH1).75)sC00SD%10)SB%SF%(100SD%10)(100SD%100)>RLRLRH50iRH(A%30A1%60A2%10)2500(100RL)PH%PF%(100(PV%100)PV%(PV%100))350EHEF%200(RT%25)(RT%RT%RHEHPH5(RT%25)-RT%25(RT%25)(RT%25) 2XT%((RT%25)HUTDOWN - ";MD%;" DAYS":I05000:8EF%EV%EF%EV%>\EV%EV%EF%2ED%(ED%3)}PD%PD%(PF%90)((20).95)SD%SD%(SF%90)((20).92)PB%PD%5SB%SD%5PF%(100PD%10)PB%PF%(100PD%10)(100PD%100).SF%(1"":I14jA$:Z(A$)>o(Z13Z32)(Z57Z48)1130VtB$B$A$:Z131170eyZ321165~SF%(B$):SF%SF%(100SF%)(SF%100)A$;:I(1):(P3):958:800#PF%0SF%0RH1RT%100A%0İ2000:(1):(24):922:"MAINTENANCE SEF%)(EF%100)$ EF%EV%EF%EV%/A$:I8(P)B$(35)S)B$"":I14c.A$:Z(A$)3(Z13Z32)(Z57Z48)10708B$B$A$:Z131170=Z321110BPF%(B$):PF%PF%(100PF%)(PF%100)LA$;:IV(P1)`(35) eB$57Z48)960%B$B$A$:Z1311703Z32990XA%(B$):A%A%(100A%)(A%100)dA$;:Io(P1)y(35)B$"":I14A$:Z(A$)(Z13Z32)(Z57Z48)1010B$B$A$:Z131170Z321050EF%(B$):EF%EF%(100;EF%0>"PRIMARY LEVEL- ";PV%;" FLOW- ";PF%]H"SECONDARY LEVEL- ";SV%;" FLOW- ";SF%;R(100RL)5ĺ::"REACTOR FUEL EXHAUSTED":4000P(37)(P3)20A2%A1%:A1%A%B$"":I14A$:Z(A$) (Z13Z32)(Z  910:3::"DO YOU WANT TO RERUN (Y/N) ?":GY4$:Y4$X"Y4$"Y"910j,Y4$"N"5000}6:"TRY AGAIN"@4110:::16368,0:"EXEC WB"::*************************: THIS VERSION 'OOP W13800V1W/G(V)14190c34,0::12:10);"IT IS NOW ";N$(V);"'S TURN."tT1500:7670::V13810491034,13::PP12:10);"********************":PPDAY(V)DAY(V)1:6)"IT IS DAY ";DAY(V);" ON TA$(1)"COLES"#$A$(2)"ALCOA"4.A$(3)"MYER"D8A$(4)"BHP"TBA$(5)"WMC"fLA$(6)"SHELL"V ORIGINAL BUYING PRICES. `I16jE(I)((10)102)tI~5000V1 GENERAL GAME L3540 7630 3560. T800:7670:255X  *INITIALIZE  H0::(11):(12):"I'M THINKING!!!":Q(1)3000:RP(1)3000 3020: REQUIRE INPUT AGAIN W13610V1W:Q(V)3000:RP(V)3000:V DEFINE STRINGS!p :" BE WARNED":Pz "ON OCCASIONS, YOU MUST PAY OTHER BILLS!" :"WHEN THIS HAPPENS, SELLING PRICES FALL": "IF YOU ARE FORCED TO SELL TO PAY BILLS." :DI1:3500 (12):150 " G O O D L U C K !" P$"N"17,35,18,35,19,35,20,35,21,35,22,35,23,35,24,35,25,35,26,35,26,35,27,35,281l34,28,34,29,34,30,35,30,35,31,35,32,34,32,34,33,34,34,34,35,34,36,34,37,34,38,33,38,32,38,31,38,30,38,29,38,28,38,27,38,26,38,25,38,24,38,23,38,2v22,38,21,38,20,38,19,38,18,0,32,20,31,20,30,20,29,20,28,20,27,20,26,20,25,20,24,20,23,20,22,20,210X21,21,22,21,23,21,24,21,25,21,26,21,27,21,27,20,27,19,27,18,27,17,27,16,27,15,27,14,27,13,27,12,27,11,27,10,27,9,27,8,27,7J1b28,7,29,7,30,7,31,7,32,7,34,10,32,13,34,16,35,16,35,2/I1124/Y,X"/&X,Y2/0J1200:J9/:I/D4,35,4,37,5,35,5,36,5,37,6,35,6,36,6,37,7,36,8,36,9,36,10,36,11,36,12,36,12,35,12,34,12,33,12,32,13,32,14,32,15,32,16,32F0N16,33,16,34,16,35,16,36,17,36,18,36,19,36,20,36,20,35,20,34,20,33,226,2826.26,2834%.28,36273.28,3633>.34,36I.26,36W.25,3538f.I1DE:Iw.S12000:S.23."THE SECONDARY COOLANT CARRIES HEAT"."FROM THE HEAT EXCHANGER TO THE"."TURBINE AND THEN TO THE COOLING TOWER"/ ,1830-30,3618!-5,1836.-30,3655-0B-"2,1733P-,I7152b-6I,34:I1,32i-@Ix-JI1DE:I-OS12000:S-T23-^"THIS IS THE COOLING TOWER "-h5-r23,2524-|23,2536-25,2625-25,2635 .4,30,13,30,13,30,12,30,12,29,12,28,12,272,:23U," THIS IS THE HEAT EXCHANGER"\,5j,28,3410x,10,1834,28,3418,10,1828,2:28,12:28,16:5,I1DE:I,S12000:S,23,"THIS IS THE GENERATOR TURBINE"-5,5,26,5,27,6,25,6,26,6,27,7,26,8,26,9,26,10,26,11,26,12,26,12,25,12,24,12,23,12,22,12,21,12,20,12,19+s12,18,12,17,12,16,12,15,13,15,14,15,15,15,16,15,16,16,16,17,16,18(,x16,19,16,20,16,21,16,22,16,23,16,24,16,25,16,26,16,27,16,28,16,29,16,30,15,30,1,7,16,6,16,5,16,4,16,3,17,3,18,3,19,3,20,3,22,3,24,3C* I1DE:IM*:23z*"THE PRIMARY COOLANT CARRIES HEAT FROM"*("THE REACTOR CORE TO THE HEAT EXCHANGER"*2I152*<Y,X*FX,Y*PJ1200:J*ZI*dI1DE:Id+n4,25,4,27,5,25" THE EMERGENCY COOLANT CAN COOL THE"E)"REACTOR IN AN EMERGENCY."L)2X)I136a)Y,Xj)X,Yz)J1200:J)I)4,2,4,4,5,2,5,3,5,4,6,2,6,3,6,4,7,3,8,3,9,3,10,3,11,3,12,3,12,4,12,5,12,6,12,7,12,8,12,94*13,9,14,9,15,9,16,9,16,8,16(S12000:S(23<($"THIS IS THE REACTOR CORE "C(.8O(8I915\(B11,17Ic(LIr(VI1DE:I([S12000:S(`23(j"THESE ARE THE CONTROL RODS "(t13(~2,1711(2,1713(I1DE:I(S12000:S(23%)5,6,11,18,19,11,5,6,12,18,19,12,5,6,13,18,19,13,5,6,14'18,19,14,5,6,15,18,19,15,5,6,16,18,19,16,5,6,17,18,19,17,5,6,18,18,19,18,5,7,19,17,19,19,6,18,20,7,17,21,8,16,22'0'13,146'12'14,155'14,164'15,163'I1DE:I&&(A$)13ġ:1170'&B$B$A$0&(A$;7&2I=&<Z&p:15:I039:0,39I:Id&z:23&"THIS IS THE REACTOR VESSEL"&&1&I129&X1,X2,Y&X1,X2Y&I6'7,9,6,15,17,6,6,18,7,5,19,8,5,7,9,17,19,9,5,6,10,18,19,10,V)5600*2960E*:::"YOU HAVE ENOUGH TO PAY YOUR BILLS NOW."t*::4);"THE TABLE IS NOW BEING UPDATED."*N55570*2030**2080** CANNOT AFFORD BILL *2960+5);"YOU CANNOT AFFORD THIS BI OF WHATEVER YOU OWN ";N$(V)*)?)"P(30R(V))100P),XR(V):2690|)6"YOUR SHARES AND CASH ARE WORTH $";XX$)@XP:2690)J:6);"YOUR TAX BILL IS $";XX$)T7630)^5500)h)r TEST AFFORD BILL *|PQ((V)35270#(Q(V)(Q(V)100)100-(5340I(PR(V)3PR(V)25270|(XP:2690:"A BILL FOR $";XX$;" HAS ARRIVED!!"(XQ(V):2690::3);"YOU HAVE $";XX$;" CASH ";N$(V);".":(7630(5500($)"YOUR TAXES ARE DUE AT THE RATE OF 30%$(I);" AT A SPECIAL PRICE OF $";XX$::45001'P^'Z TAXES AND BILLS h'd2960z'nP((10)10)'xP55390'" KNOCK-KNOCK-KNOCK!!!":'2880'PR(V)((10)20)20'P(P100)100'R(V)80005330 (PRTS TO ";::"BUY";::" ";J;" SHARES OF "/&=&XL:2690i&A$(I);" AT AN URGENT PRICE OF $";XX$:s& 4250y&& SPECIAL BUY PRICE &(L(80E(I))100&2"SOMEONE WANTS TO SELL ";J;" SHARES OF "&<XL:2690+'F:A GENERATE SELLING PRICES 2%I16D%IIP(V)5040a%D(I)(.85E(I)100)100}%D(I)1.0D(I)E(I).02%I%IP(V)0:IN(V)0:% SPECIAL SELL PRICE %B(V,I)0ı%L(120D(I))100)&"SOMEONE WAN4750 $PN1$G$$ GENERATE BUYING PRICES Y$.IN(V)15050d$8I16v$BIIP(V)4960$LF(I)(10)3.01$VE(I)(F(I)E(I)100)100$`E(I)25.0E(I)((10)2000)1001$jE(I)1.0E(I)E(I)1$tI'%~ GENERAL TRADE INVITE ;#34,14:g#:"WANT TO TRADE AT THE PRICES SHOWN?"#:"B = BUY S = SELL N = NO TRADE":#7690#P$"!"İ6870#G(V)1ı#(P$,1)"B"4690#(P$,1)"S"4410$(P$,1)"N"500 " PKL"PQ(V)İ56001" PQ(V)4660="*TM1ıG"42030Q">4750"H NORMAL BUYING ROUTINE "RTM0:6120"\LE(I):6430"fK0ı"pG(V)1ı"z5500"TM1ı"2960"G(V)14890"TM1ı.# AT $";XX$D!:3)"TYPE THE NUMBER AND PRESS ";::"RETURN":V!TM0:K:2960l!K0İ7810:4760{!KJ4620!2960!5);"THERE ARE ONLY ";J;" ";A$(I);" SHARES"!" OFFERED AT $";:XL:2690:XX$;" ";N$(V);"."!7670"4/ 0 NORMAL SELL QUOTE 9 :6120D DLD(I)N N6220\ XK04460f b2130t lG(V)1ı~ v4750 N54690  SPECIAL BUY QUOTE T0 "HOW MANY ";A$(I);" SHARES WILL YOU BUY"!:" YPE THE NUMBER AND PRESS ";::"RETURN":BK:K0İ7810:4760QKJ4340[2960"HE ONLY WANTS TO BUY ";J;" SHARES, NOT ";K76304230PKL TEST OWNERSHIP 6320P043902130 &475070 ^Vh3750@r END MAIN LOOP l| BUY/SELL QUERY v2960 SPECIAL SALE QUOTE "HOW MANY ";A$(I);" SHARES WILL YOU SELL":" AT $";XX$):3)"T2 GENERAL TRADE INVITE CG(V)14190VN0:PN14120`4790iPN0z"G(V)14190,Z((10)40)6R(V)7000Z204140@Z30İ6930JW13800T:20:6);"THAT COMPLETES ";N$(V);"'S TURN.":T1000:760)8(N10))1010xP0:TM0G SPECIAL SALE VN54020`5070j4090 SPECIAL BUY N540705160TM141204090 WHERE N=5, BILLS ARE DUE 5220HE STOCKMARKET."V13860J :6);"ALL PRICES ARE BEING ADJUSTED."YRY(V)R(V)c2180r(G(V)1ĂV2DI1İ7980< SET UP SPECIAL BUY/SELL BARGAINFN((10)10)1PI((10)7)ZI03920dR(V)7000N43910nJ((1E JUST LOST":=:2);"VALUE DUE TO FIRE AT THE FACTORY.":U: D(I)(30D(I))100n:*E(I)(115D(I))100:4D(I)1.0E(I)1.85:>XD(I):2690:H"THESE SHARES ARE NOW WORTH ONLY $";XX$:R" EACH TO SELL.":\7630;fQP(V)Q(V):IP(V9Y271709Y37110*9Y4738089Y77490B97290x9"ALL ";A$(I);" SHARES ARE FOUND TO BE FORGED.":95);"YOU LOSE ALL ";B(V,I);" SHARES!!!"9P0:KB(V,I)976309212099D(I).8ı: " ALL ";A$(I);" SHARES HAV8908G(V)1::J8 FURTHER VARYING OF STOCK R8M0]8I16l8&MMB(V,I)s80I~8:M0ı8D29608NI((10)7)8XI069908bB(V,I)069908lY((10)92)8vR(V)7000Y470208Y8ı934,14::V1V2:68407V1:(4)U7XR(V):2690:3);"YOUR OPPONENT'S WEALTH WAS $";XX$_777407 DO OTHERS WANT TO PLAY ON?72960:"TYPE Y IF OTHERS WANT TO CONTINUE."7:"IF YOU ALL WANT TO STOP, TYPE * ";7P$:P$"*"77308P$"Y"6":,6T8:"EXCEEDS THE $50 000 LIMIT."::=6^T6000:7670L6h34,0::66r"OTHER STOCK BROKERS WILL BE WARNED ABOUT YOU!":6|10);"PITY IT'S NOT REAL MONEY.":612);"THANKS FOR THE GAME.":6W268706W168507AY.":5W17740"5W2687055V1V2:6690G5V1:W177405"XR(V):2690:3);"YOUR OPPONENT'S WEALTH WAS $";XX$5,774056:"YOU'VE BROKEN THE BANK IN ";DAY(V);" DAYS!":5@XR(V):2690:6J2:"YOUR TOTAL WEALTH IS $";XX$;" WHICHT TOOK YOU ";DAY(V);" DAYS TO LOSE YOUR DOUGH.":B4T4000:7670434,0::4:"AS YOU WILL NEED THE REST OF YOUR WEALTH":4"FOR EMERGENCIES YOU ARE OUT OF THE GAME!":4"YOU HAD BETTER STICK TO HOPSCOTCH.":56);"THANKS FOR THE GAME ANYW";::"RETURN":3PK&3ZK0İ296003dPKL63ng3x WINNER LOSER TEST {3R(V)150065603R(V)50000671033XR(V):26903"YOUR WEALTH IS $";XX$;" WHICH IS BELOW"3:" THE $1500 LIMIT.":14"I;" SHARES TO SELL."2K0%27630/22960B2B(V,I)06220H2 p2 BUYING QUERY z229602(XL:2690223);"HOW MANY ";A$(I);" SHARES WILL YOU BUY":2<" AT $";XX$3F:3)"TYPE THE NUMBER AND PRESS $71t:3)"TYPE THE NUMBER AND PRESS ";::"RETURN":>1~KM1K0İ2960`1K0ND55850i1ND0~1K06320:P0:1KB(V,I)63501PKL:B(V,I)B(V,I)K:1 INSUFFICIENT SHARES 129602"YOU DO NOT HAVE ";K"SELL?"30:7);"TYPE ONLY THE COMPANY NUMBER.";C0I$:I(I$)U0$I0I76200_0.6170e080B CAN HE SELL ROUTINE 0L29600VXL:26900`3);"HOW MANY ";A$(I);" SHARES WILL YOU SELL"1j:" AT $";XX0:7670/2180/C/ DEBT NOT CLEAR Z/H((HP)100)100k/Q(V)05750u/2180/5830/ SELECT COMPANY /2960/5);"WHICH SHARES DO YOU WANT TO ";/P$"B"ĺ"BUY?"0P$"S"ĺK05800.4P(KL100)1003.>XP:2690:::`.H"YOU WILL GET $";XX$;" FROM THIS SALE."q.RT1000:7670.\ DEBT CLEARED .fHP6070.pQ(V)PH:H0::6020.z::::(6)."YOU HAVE CLEARED YOUR DEBT."/T2000-Q(V)05750-(12)A-XH:2690:"YOU STILL OWE $";XX$g-8);"AND MUST SELL SOME SHARES."-"BUT YOU'LL ONLY GET 80% OF THEIR VALUE!"-7630- SELLING AT 80% OF SELL PRICE- P$"S"-6120- L(.8D(I)100)100:ND5:6220 .* OBLIGATORY SALE ),b76303,l2960L,vQ(V)(Q(V)100)100],XQ(V):2690},8);"YOUR CASH OF $";XX$:,8);"WILL GO TOWARD YOUR BILLS.":,HPQ(V):QP(V)Q(V):Q(V)0,H(H100)100,H0Q(V)Q(V)H:H0:6010-218LL!":+XQ(V):26906+8);"YOU HAVE ONLY $";XX$D+XP:2690g+8);"YOUR BILL COSTS $";XX$:u+N55730+&8);"YOUR ORDER IS CANCELLED!"+0"YOU MAY NOT TRADE ANY MORE TODAY........+:16);"HOOROO!!!+D7630+NTM1:,XED TO BURY YOU NEXT"-T"TO YOUR DIGGINGS."3T]T"WHILE DIGGING THE GRAVE THEY FOUND"wT"A NEW GOLD STRIKE."}TT"THEY COVERED YOUR COFFIN WITH THE "T"MUD AND ROCKS FROM THE NEW STRIKE."TT"TO THIS DAY IT IS KNOWN AS"UUR".S"MONEY FOR A COFFIN AND A NICE GRAVE"Y10MY201560WY20fC101580p"C10,C2016006C20@JT(04);"PR#0"h20005:"RUNWW" N23::"PRESS RETURN TO CONTINUE ";XZ$:::%N23::"PRES LACHLAN ARNOTT 1988 PG:************************* ;"^" F 6F:*************************]F: THIS VERSION F: MODIFIED AND AUGMENTED F: FOR THE F:COMPUTER EDUCATION CENTRE F: BY#G:BE PLACED WILL BE DONECED :"IN THIS LOWER PORTION OF THE SCREEN.MEN 7630WEX 2960]Eb El  ARROWS IN INSTRUCTIONS Ev 998:998: CANCEL 2 PRINTSE TA);"^"E TA1);"^^^"E TA2);"^ ^ ^"E TA);"^"F TA)" ( MAXIMUM PRICE WILL BE $25.00 )"0D7640:D2960JDTA35:8310zD "THIS IS THE PRICE YOU WILL GET PER SHARE D :3);"WHEN TRYING TO SELL AT NORMAL PRICES.D 7640D& 2960D0 ".......ALL QUESTIONS TO BE ANSWEREDE: :"OR ORDERS TO 7640C2960 CTA20:8310NC"THIS WILL BE THE AVERAGE PRICE YOU HAVE|C:"PAID FOR ANY SHARES THAT YOU MAY OWN.C7640C2960CTA28:8310C"THIS IS THE PRICE PER SHARE YOU MUST PAYC5);"TO BUY SHARES AT NORMAL PRICES.&D: EXPLAIN PRINTOUT 0B,DI0:TA3:8310_B6"THESE ARE THE COMPANIES IN WHICH YOU MAYB@:" DEAL & THEIR NUMBERS.BJ7640BT2960B^TA12:8310Bh"THIS IS THE NUMBER OF SHARES YOU OWN OFBr:" EACH COMPANY."C|0A34,14:=A:"THE SPECIAL OFFER HAS BEEN WITHDRAWN!"GAT600QA7670YA:_AA CHOOSE NEW GAME A7920AA7900AV1WADAY(V)0:G(V)0AI16:B(V,I)0:IAVA3560B" GAME? (Y/N)";@FP$:P$*@HP$"Y"7890<@PP$"N"7750M@Z:WW27790@dV1WW:2880:XR(V):2690:N$(V);"'S TOTAL WEALTH WAS $";XX$::::@n:12);"BYE FOR NOW.":34,0:"RUN WW"@x CANCEL SPECIAL OFFER A296 OPERATION ?X1T::H? END GAME CHOICE V? W17710?"TYPE ! FOR THIS PLAYER TO LEAVE THE GAME?:"TYPE * TO END THE GAME COMPLETELY.";:P$:P$?(P$"*"ı?234,0::10:5 @<::3)"DO YOU WANT ANOTHER 100 >I'>QP(V)Q(V):IN(V)1:2180->]> CONTINUING ROUTINE >:2);"TO CONTINUE, PUSH THE SPACE BAR.":2);"--------------------------------";:998>RT$:RT$(32)7640>: ? PAUSE IN=8=BY((10)20)*=LY(1Y20)10V=V"DUE TO INFLATION, THE STOCK MARKET":=`"ANNOUNCES AN INCREASE IN ALL PRICES.":=j(4)=t4);"THE INCREASE WILL BE ";Y;"%"=~7630=I16=D(I)((100Y)D(I))100>E(I)((100Y)E(I))(I);" COMPANY IS GIVING AWAY":J<"FREE SHARES TO ITS SHARE HOLDERS.":\<Y((10)20)i<Y0Y2~<K(B(V,I)Y20)<K0K2<7);"SINCE YOU OWN ";B(V,I);" SHARES,":<2);"YOU WILL RECEIVE ";K;" FREE SHARES."<$7630=.P0:2030)I:P0:K0:2120;p/;zPB(V,6)C(V,2)400Y;" C O N G R A T U L A T I O N S !"_;m;XP:2690;"YOU HAVE WON $";XX$;" IN TATTSLOTTO.";7630;QP(V)Q(V):Q(V)Q(V)P:RP(V)R(V):R(V)R(V)P;P0:I0:K0:2120;<"THE ";A$. YOU WILL HAVE TO"QrHQs"TAKE A JOB IN TOWN AND TRY PROSPECTING"NQtfQu"AGAIN NEXT YEAR."oQv921yQw::Qx"YOU HAVE DIED IN THE GOLD FIELDS."Qy"YOU HAVE $";M0NEY;" LEFT OVER FROM"Qz"PROSPECTING AND SAVINGS."Q{M0NEY20908OME RICH."Pg3:921)PhMMM0NEY100007PiMM0877]Pj"YOU ARE ONE OF THE LUCKY FEW, "PkNAME$". YOU REALLY STRUCK GOLD!!"Pl921Pm:"YOU DON'T HAVE ENOUGH MONEY!":3:827Pn:5Po"WELL, ";NAME$;","Pp:Qq"YOU RAN OUT OF MONEY"THOSE WHO BOUGHT BUSINESSES ENDED UP"SO]"OWNING RAILROADS. MAYBE THAT COULD"iO^"HAPPEN TO YOU!"rO_921O`MMM0NEY600OaMM0877Ob"GOOD JOB, "NAME$". WITH"OcOd"MORE LUCK YOUR BUSINESS WILL DO WELL"Oe Pf"AND YOU WILL BECNQ"NR"WILL BE STEADY MONEY."+NS921"AT THE END OF YOUR JOURNIES, YOU HAVE"fL?"$";M0NEY;". YOU CAN NOW DO ONE OF THE"L@"FOLLOWING. YOU MUST HAVE ENOUGH MONEY"LA"LEFT TO DO THE ONE THAT YOU WANT."LBLCLD" 1) GET A JOB CLEANING THE STABLES"LEMF""K."WHAT DO YOU WANT TO DO NOW?"(K/8K0" 1) SHOP">K1ZK2" 2) GO TO THE SALOON"`K3K4" 3) GO BACK TO DIGGINGS"K5AAAK6CHOICE3:233K7A789,791,824K8M0NEY0878K9MOVINGFLAG0K:WEEKK;K<: L="SO YOU ARE ALL DON DON'T HAVE THAT MUCH, TRY AGAIN!":797:J!X((1)20)1KJ"XM0NEY801bJ#GAMBLE(GAMBLEX)hJ$J%"YOU LOST $"GAMBLEJ&M0NEYM0NEYGAMBLEJ'ML(M0NEYX)J(J)"YOU PAID $"ML" FOR FUN."J*3J+M0NEY0878J,AA3824J-::3,751I53:AA3824!I813+I::UI"WELCOME TO THE LONG BRANCH SALOON."[II"WOULD YOU LIKE TO DO SOME GAMBLING?"I240IA2807II"HOW MUCH MONEY TO GAMBLE WITH?";GAMBLE$IGAMBLE(GAMBLE$)'J GAMBLEM0NEYĺ:"YOU HA2751HMOVINGFLAG1'H8248HM0NEY0878BH::YH "DO YOU WANT TO:"_H H " 1) GO TO THE GENERAL STORE"H H " 2) GO TO THE SALOON"HH" 3) BOTH"HH" 4) NEITHER"HCHOICE4:233HAAAIA789,791,81CTING" G(G" 3) QUIT PROSPECTING"6GMV0763 ";XZ$:[V(4);"EXEC WB":V:*************************V: THIS VERSION V: MODIFIED AND AUGMENTED V: FOR THE *WO THE MENU --> ";XZ$:,V(4);"EXEC WB":XV:*************************V: THIS VERSION V: MODIFIED AND AUGMENTED V: FOR THE V:COMPUTER EDUCATION CENTRE WS RETURN TO GO TO MENU";XZ$::K:*************************r: THIS VERSION : MODIFIED AND AUGMENTED : FOR THE :COMPUTER EDUCATION CENTRE :-%:COMPUTER EDUCATION CENTRE M%: BYw%: LACHLAN ARNOTT 1988 %:************************* LTON":190:V10:Z$"VICTORIA, 3054, AUSTRALIA":190: xV15:Z$" DISC PREPARED ":190:V16:Z$"FOR THE C.E.C.":190:V17:Z$" BY LACHLAN ARNOTT 1989":190 :V21:L$"C.E.C. COLLECTION DISC 37":59300: ZZ11500:ZZ" Z124::Z`  :?" "::49234,0:X039O((1)16)](X,39XXn2X,47X39X<39X,X47XF47X,XXPXZ(16384)136ī32d6 n:V8::Z$"COMPUTER EDUCATION CENTRE":190:V9:Z$"P.O. BOX 209 NTH. CAR     BY8: LACHLAN ARNOTT 1988 e:************************* Sx  :: ,21:14:"PLEASE WAIT"H(4);"BLOAD TITLE.PIC"`16297,0:16304,0w(4);"RUN GR"UCATION CENTRE /: BYY: LACHLAN ARNOTT 1988 :************************* LIC SIMULATION":A !17:1:"8 - CHAMPIONSHIP GOLF SIMUL'N":u +18:1:"9 - BUFFALO POPULATION SIMULATION": 24:Z1901:32,Z:33,(20Z)2:::Z124:::Z- CHINESE DYNASTY SIMULATION":M 12:1:"3 - FUR TRADER SIMULATION": 13:1:"4 - GOLD RUSH (U.S.) SIMULATION": 14:1:"5 - NUCLEAR PLANT SIMULATION": 15:1:"6 - EPIDEMIC: SIMULATE YOUR OWN": 16:1:"7 - BANANA REPUB"ğ:535:' A$"7"ĺD$;"RUN BR"< A$"8"ğ:545:X A$"8"ĺD$;"RUN G"m A$"9"ğ:555: A$"9"ĺD$;"RUN BP" 255 9:1:"0 - BUG POPULATION SIMULATION": 10:1:"1 - STOCK MARKET SIMULATION":! 11:1:"2 A$"2"ğ:485:- YA$"2"ĺD$;"RUN CD"B cA$"3"ğ:495:_ mA$"3"ĺD$;"RUN FT"t wA$"4"ğ:505: A$"4"ĺD$;"RUN GR" A$"5"ğ:515: A$"5"ĺD$;"RUN NP" A$"6"ğ:525: A$"6"ĺD$;"RUN EP" A$"7 545 555) 24:13::16368,0L "SELECT A NUMBER :";:A$:A$;^ :A$(26)Ān A$"9"ī80~ A$"0"ī80 A$(27)ī80  'A$"0"ğ:465: 1A$"0"ĺD$;"RUN BPS" ;A$"1"ğ:475: EA$"1"ĺD$;"RUN SM" O X(0)P58300::KU"****************************************"i_NA$"PROGRAMS ON DISC 37"i1(20(NA$)2):s3:NA$:}23112,192:23104,193D$(4)465475485495505515525535     A A M M M"0"BBBB L AAAAA M M M"O"B B L A A M M"n"B B L A A M M""BBBB LLLLL A A M M"I11000:I:"PPPP OOO W W !!!""P P O O W W !!!""P P O O W W !!!"CHOICE3:233A1173@"GOOD LUCK IN YOUR NEW SPOT."I178WA2176`180i179o"THE SHERIFF HAS TAKEN THE THIEF TO JAIL"3:2"BBBB L A M M""B B L A A MM MM""B B L AND SAYS,"E" ";(34);"HOWDY PARDNER! I LIKE THIS HOLE"n" YOUR WORKING. I'D LIKE YA TO"" FIND ANOTHER SPOT.";(34)"DO YOU WANT TO:"" 1) MOVE"" 2) FIGHT"" 3) GET THE SHERIFF";:"";ML$:ML$""146VML(ML$):MLM0NEYĺ:19:"YOU DON'T HAVE THAT MUCH!!":145ML5Ģ19:"NOT ENOUGH!";:868::145M0NEYM0NEYML"THAT WILL DO... FOR NOW..."9583:: "A ROUGH LOOKING MAN COMES BY::<"YOU ARE DIGGING IN AN OLD INDIAN AREA."Bn"WILL YOU GIVE THEM GOLD TO KEEP THEM"t"HAPPY?"240A2ī180M0NEY6ĺ"YOU DON'T HAVE ENOUGH MONEY FOR THEM!":3:18016:"HOW MUCH GOLD WILL YOU GIVE? "R YOUR LIFE!!!";(34)z:4{"DO YOU WANT TO:":|X}" 1) GIVE UP SOME MONEY"^~v" 2) FIGHT IT OUT"|CHOICE2:233A2180ML(M0NEY(1)):"YOU JUST LOST $";ML;" TO THE ROBBER!"M0NEYM0NEYML3:"YOU NOW HAVE ";'nITEM5ĺ"A ";<oITEM$(ITEM);"."ep:"YOU HAVE $"M0NEY" IN GOLD LEFT."nq3:vr74s::tu::v"A ROUGH LOOKING MAN COMES BY AND SAYS,"wx" ";(34);"STAND AND DELIVER! YOUR MONEY"y" O ALL."]112!^F(ITEM)098+_::O`"YOU ALREADY HAVE THAT ITEM!!"Xa113vbNWPRICE(HI0RLOFLAG,ITEM)cNWM0NEY106d:efg"YOU DO NOT HAVE THAT MUCH GOLD!!"hi113jM0NEYM0NEYNWkF(ITEM)1lmITEM13ITEM(ITEM)73(QITEM894.RUS"HOW MANY POUNDS OF FOOD TO BUY?"eT" -> ";PF$tUPF$""82VPF(PF$)WNWPFPRICE(HI0RLOFLAG,8)XNWM0NEY101YM0NEYM0NEYNWZTPFTPFPF[\"YOU HAVE ";TPF;" LBS OF FOOD INICE3:233 GA2İ290:1153 HA3İ290:::539 I^ J"YOU HAVE $";M0NEY;" TO SPEND."d K L"ENTER THE NUMBER OF THE ITEM THAT YOU" M"WANT TO BUY AND PRESS RETURN. TO EXIT: ";ITEM$ NITEM$""66 OITEM(ITEM$)PITEM1 BY2 : LACHLAN ARNOTT 1989 _ :************************* );" ";: 255:34,0:E :*************************l : THIS HELLO : PROGRAMMED : FOR THE :COMPUTER EDUCATION CENTRE  : Z2)L$L$" " ZZ(L$)2* 160:23d Z1(L$)2:1:(L$,ZZ1Z,1);:40:(L$,ZZZ,1);:l 65 Z123VZZ:: 225 Z1ZZ:V:1:(L$,ZZ1Z,Z);:41Z:(L$,ZZ1,Z);:24:: Z120ZZ:V:Z:" ";(L$,ZZ);:41ZZZ:(L$,ZZ38,17,38,16,38,15,38,14,38,13,38,12,38,12,3782:23:d2:*************************2: THIS VERSION 2: MODIFIED AND AUGMENTED 2: FOR THE 3:COMPUTER EDUCATION ЍźŠŠŠŠĠח׍̠Š΍/%v"DO YOU WANT TO COME OVER TO THE STORE?"8%w240J%xA1İ53:379%y:17:958:"YOU WILL NEED TO GET SOME SUPPLIES!":373%z::%{"THERE ARE A COUPLE OF WAYS TO GET TO THE";%|%}"GOLD FIELDS FROM SACRAMENTO."%~%&" 1$l(34);"HOWDY, PARDNER! MY NAME IS JOHN SUTTER."_$m"I WANT TO WELCOME YOU TO SACRAMENTO."e$n$o"I BUILT THE FORT OVER THERE 10 YEARS "$p$q"AGO. YOU CAN BUY A FEW SUPPLIES AT"$r$s"THE GENERAL STORE IF YOU LIKE.";(34)$t%uLOTHING, SUPPLIES,"#^G#_"GOLD PROSPECTING GEAR, AND TRANSPORTA-"M#`m#a"TION TO THE GOLD FIELDS."t#b3z#c#d:#e:#fHI0RLOFLAG1#g:#h"WHILE YOU ARE IN SACRAMENTO, A MAN"#i#j"COMES UP TO GREET YOU SAYING,"#k:3OUR JOB TO GO PROSPECTING AND"$"SM"T"TO MAKE AS MUCH MONEY AS POSSIBLE"S"Up"V"BEFORE TIME RUNS OUT."w"W3"X::"Y"YOU HAVE JUST COME FROM THE EAST""Z"["COAST AND HAVE $";M0NEY;" LEFT TO SPEND.""\#]"YOU MUST BUY FOOD, C!E:2!F"LET'S GO TO THE GENERAL STORE FIRST!"9!G3J!HHI0RLOFLAG2R!I53[!J463b!K3l!L::!M"THE DATE IS MAY 23, 1849. YOU HAVE JUST"!N"ARRIVED IN SACRAMENTO."!O!P"CRIES OF 'GOLD' RING IN THE STREETS."!Q"R"IT IS YAME$)9307 7:10A 8"WOULD YOU LIKE INSTRUCTIONS FOR THIS"Y 9"GAME, ";NAME$;"?"b :240o ;A1331y <:: ="WHERE DO YOU WANT TO START?" >: ? @" 1) SACRAMENTO" A B" 2) GOLD FIELDS" CCHOICE2:233 DA355,325UNDS OF FOOD."* +I113-,I8303=-F(I)0303K.ITEM$(I)R/I0F(9)1F(11)1ĺ"YOU MUST HAVE A MINING TOOL!":3:521323:::255:104" WHAT'S YOUR NAME, PARDNER ?? ":::5" --> ";NAME$ 6NAME$""(NRGET TO BUY FEED FOR HER WHEN"K"YOU GET TO THE HILLS. BRUSH HER DOWN"z"EACH MORNING AND TIE HER UP EACH NIGHT."3 H0RSE1!"#::2$15);"INVENTORY"%&"YOU HAVE:"'("$";M0NEY;" IN GOLD.")TPF;" PO61 289#M0NEYM0NEYHP"THEN IT'S A DEAL. WHAT ARE YOU GOING"i"TO NAME HER? ";HN$HN$""(HN$)Ģ(37)1:958:278(HN$)10ĺ:"THAT NAME IS A BIT TOO LONG FOR A HORSE!":(37)3:868:279958"DON'T FOSTILL WANT TO DEAL?"240*A22894::Y"LET'S SEE WHAT ELSE I HAVE..."jI12000:Ipy 251 M0NEYH276   "YOU DO NOT HAVE THAT MUCH MONEY""DO YOU STILL WANT TO DEAL?"240A121A1(A$"N").("YESNO",(A1)31,3)4:D::Z"HOWDY PARDNER!"`"IF YOU ARE LOOKING FOR A HORSE,"H((1)50)30"I HAVE ONE FOR $";H;".""DO YOU WANT IT?"240A1266"DO YOU (G050)(Y25):WO5219,X((1)10)1BX1WOWO2:227X((1)15)0232eWOWOWOn229tzPROMPT$(CHOICE);A$A(A$)A1ACHOICE235A:"(TYPE Y OR N) ";A$A$"Y"A$"N"24)1 3_"A SUMMER STORM HAS JUST HIT, MAKING YOU LOSE VALUABLE TIME!"f3l{T0:FLAG0X(1)Y3232.5TT.399(2.7183(5.(Y8)2))T16XFLAG1:Y32YFLAGYY(((1)50)1)WOа3M0NEYM0NEYDMG"(R"WHILE YOU WERE MINING, AN OLD GOLD"}:"PAN CAME FLOATING DOWN THE RIVER."F(9)1ĺ:"YOURS LOOKED BETTER, THOUGH, SO YOU SENTTHE OTHER DOWNSTREAM.":212:"YOU JUST GOT A FREE GOLD PAN!"F(9CENTRE '3: BYQ3: LACHLAN ARNOTT 1988 ~3:************************* XZ(16336)(16336):ZQ150::T :22:"PLEASE WAIT - PROGRAM LOADING"::255i (4);"RUN WW" 235:Z(Z$):Z2(Z2)Z$Z$" ":ZZ1 Z10:V:ZZZ211:20Z1:Z1Z11:(Z$,Z1);(Z$,Z1);:::255: 34,V ZZ(L$):ZZ2(Z1::" ////// RAIN ////// ":*S860:TL1R(4)3eW ** COMPUTE & PRINT YEARLY HARVEST **r\AL1L3aBR(A2)fCABuA0910z:7::" ### HARVEST FOR YEAR ";Y;" ### ":|" ";L1;" BUSHELS PER ACRE----";A;" BUSHELS"R(2)1!4N15000L1R(2)2;6N125000L1R(3)2W8N125104L1R(2)39:11::" ......DROUGHT..... ":>860CL(15)0852HL1R(3)7ML21000L1R(3)6OL25000L1R(3)5QL2105L1R(2)5!R:1R(L210)(L220)X::"><><><EARTHQUAKE><><><";::" ";A;" ACRES LOST"e L2L2AwL(15)0810AR(100(L2100))500 ::" $$ RICE IMPORTS ARRIVE $$ ";::" ";A;" BUSHELS"%N1N1A*L(15)0835/L1ASE........... +";N3C" DEATHS FROM NATURAL CAUSES.... -";N4q" DEATHS FROM STARVATION........ -";N5L(10)0760AR(N120)(N120)::" ??? GRAFT ??? ";::19:A;" BUSHELS MISSING"N1N1AL(10)0785AR(20)10BR(N0250)50S:7::" **** LAND ACQUISITION **** ":4:"GAINS: ";A;" PEOPLE ";B;" ACRES"N3N3AL2L2BN0N0N3N4N5N012014 ** PRINT POPULATION CHANGES **:" POPULATION INCRE0670qAR(N05)(N05)7vBR(N120)(N120)H{CR(L250)::" <<< RAIDS BY 'MONGOLS'>>> ";::" ";A;" KILLED"3:;A;" BUSHELS LOOTED ";C;" ACRES BURNED"N4N4AN1N1BL2L2CL(15)0705 A::" << FOOD RIOTS >> ";::" ";A;" BUSHELS TAKEN"KDN1N1A]NL(10)0620wSA(N03)R(N022)V *** COMPUTE RANDOM OCCURRENCES ***]::" +++++ 'PLAGUE' +++++ ";::" ";A;" PERISHED!"bN4N4AlL(10)1N3R(N033)'N4R(N042);N5N0(N210)IN50560W N50590iAR(3N52)::" !! FOOD SURPLUS !! ";::" ";A;" NEWCOMERS"!N50&N3N3A+5900(L(5(N52)))05905AR((N5N1)(2N0))>?400AN13L3#A0480T"YOUR STORAGE IS ONLY ";N1;" BUSHELS!"]400n1000::500xN1AN104751000:6:::" !!! RICE STORAGE EMPTY !!! ": ** COMPUTE EFFECTS OF FOOD ALLOTMENT **YY N10490 1000::23E "HOW MANY ACRES TO BE PLANTED? ";L3S L3(L3)b L303000p L30475 (L2L3)0440 "YOU ONLY OWN ";L2;" ACRES!" 400 (2N0L3)0455 "YOUR POPULATION IS ONLY ";N0;" PEOPLE!"L0)02000 TN10495* Y1000::23] [ ** READ AND VERIFY FOOD & SEED ALLOTMENTS ** ^"HOW MANY BUSHELS FOR FOOD? ";N2 hN2(N2) mN203000 rAN1N2 wA0390 |"YOUR STORAGE IS ONLY ";N1;" BUSHELS!" 350 N1A BUSHELS PER ACRE": "HOW MANY DO YOU WISH TO SELL? ";CF C(C)T C03000a "C0325m 'AL2C{ ,A0315 1"YOU ONLY OWN ";L2;" ACRES!" 6275 ;L2A @N1N1CL1 E(BC)0335 J *** TEST FOR WIN *** O(L2N1 IS ";L1;" BUSHELS PER ACRE"C "HOW MANY DO YOU WISH TO BUY? ";BN B(B)\ B03000i B0270x AN1BL1 A0260 "YOUR STORAGE IS ONLY ";N1;" BUSHELS!" 215 N1A L2L2B 1000::23:"PRICE OF LAND IS ";L1;"ETERS ***  PY0:L0106) ZL1R(3)3: dN0R(75)75M nL2R(250)250b xN1R(3000)2000j :x L30:N20 1000: ** DISPLAY THE REPORT FIGURES IN WINDOW ** *** READ AND VERIFY LAND TRANSACTIONS *** 23 :"PRICE OF LAND16298,0:16368,0::>45995:(47721)123Č1401X PAUSE5:240:CT$(40)b5700|5000: ** INTRO **(PAUSE5:225- ** RANDOMIZE FUNCTIONS **2R(Z1)((Z1)(1))<L(Z2)R(100)Z2 F *** SET INITIAL PARAM           1P1P11TT11280.R1R01245=P1P0900G1060QR10[1410e1230o1410y1410 1340"BUFFALO ARE THREATENED WITH EXTINCTION.""NO MORE HARVESTING."(148021410<F"TOTAL HARVEST IN "A1(1M1)A1(1M3)Y1Q1,BA110001300KLA2(1M2)A2(1M4)Y2C2]VA210001300o`Y1(1M5)C1jY110001300tY2(1M6)C2~Y210001300C1B1A2C110001300C2B2A2C210001300HHQ1Q2R1R1"PRESENT ADULT MALE POPULATION."-910>Q2A21010f"YOUR FEMALE QUOTA IS LARGER THAN""THE PRESENT ADULT FEMALE POPULATION."910Q101340Q201060"FEMALE QUOTA CANNOT BE NEGATIVE"910$TT182"|" AM = ";A1;" AF = ";A2A}" YM = ";Y1;" YF = ";Y2c~" CM = ";C1;" CF = ";C2:8u"**********"P10"FOR YEAR ";T;" MALE AND""FEMALE QUOTAS ARE ";Q1,Q2Q1A1970"YOUR MALE QUOTA IS LARGER THAN THE"$F YEARLING MALES AND FEMALES RESP.T M5,M6=MORT. OF MALE AND FEMALE CALVES RESP.f BIRTH RATES B1,B2=BIRTH RATES OF MALE AND FEMALE CALVES RESP. M1.05*M2.054M3.25>M4.25HM5.4RM6.4\B1.48fB2.42zY2T5.08C1T5.14+C2T5.12O"YOU START IN YEAR ";T;" WITH"o"THE FOLLOWING SIZE HERD:"y1410 MORTALITY RATES(BUFFALO DEATHS/BUFFALO/YEARS)  M1,M2=MORT. OF ADULTS MALES AND FEMALES RESP"  M3,M4=MORT. Oc:/l"YEARLING MALES, YEARLING FEMALES";Iv" YM,YF ---> ";Y1,Y2Sw::t"CALF MALES, CALF FEMALES";" CM,CF ---> ";C1,C2:760:5:" TOTAL NUMBER IN THE HERD ---> ";T5::A1T5.3A2T5.27Y1T5.09 0+20000::6:F0"WILL YOU INITIALISE NUMBER OF BUFFALO"::101" BY (1) POPULATION BREAKDOWN":" BY (2) TOTAL HERD SIZE":16D:" 1 OR 2 ---> ";G1NG12670O::X"ADULT MALES, ADULT FEMALES";b" AM,AF ---> ";A1,A2:UMBERS":"IN THE FOLLOWING ORDER"S6:"YEARS TO OBSERVE, CHANGE POLICY, REPORT"9::"WITH COMMAS BETWEEN EACH PLEASE":14:" _,_,_ ---> ";Z0,P0,R0 R10P1019:H0!"STARTING YEAR ---> ";T0:(TT0*T1TZOVER 10 YEARS"4 "CHANGE POLICIES EVERY YEAR AND"R "GET REPORTS EVERY YEAR"i "YOU WOULD ENTER" " 10,1,1" "THE PROGRAM WILL STOP IF THE MALE " "QUOTA IS NEGATIVE." 20000::3!:"PLEASE TYPE THE 3 REQUIRED N WANT TO OBSERVE THE POPULATION,"* V " YEARS IN INTERVALS AT WHICH YOU" " WANT TO CHANGE HARVEST POLICIES,"  " YEARS BETWEEN POPULATION REPORTS." 20000::5 "THUS, IF YOU WANT TO OBSERVE " "THE PATTERNS BY ASKING: "::: "y @" * NO. OF YEARS TO BE OBSERVED ?":" * CHANGE OF POLICY ?":" * REPORT ?" E20000 J T"YOU SHOULD TYPE 3 NUMBERS SEPARATED" ^"BY COMMAS." h r" NUMBER OF YEARS OVER WHICH YOU"$ s" PATTERN OF THE HERD, THE TIME AT WHICH"V "YOU WANT TO HAVE THE OPTION OF CHANGING" "HARVEST POLICIES, AND TIME INTERVALS " "AT WHICH YOU WANT REPORTS OF POPULATION." : " THE COMPUTER " " WILL REQUEST THESE"Y"175 ::2A "THIS PROGRAM ALLOWS YOU TO INITIALIZE "o "THE POPULATION OF A BUFFALO HERD AND " "DETERMINE THE POLICIES FOR HARVESTING " "THE ANIMALS. YOU CAN SPECIFY THE TIME " "OVER WHICH YOU WANT TO OBSERVE THE "' "f :936:::& 19541:48351S"DO YOU WANT A COPY OF THIS SIMULATION"s"PRODUCED ON THE PRINTER";{A$(A$,1)"Y"40#"";"PR#1"(936:::"DO YOU WANT THE INSTRUCTIONS";G$(G$,1)"N"510 (G$,1)      .25(1)1.10)102.5)1020P(10(1))1?P21281NP61291]P81295mP101306"YOU WERE ATTACKED BY A PARTY OF IROQUOISALL THE PEOPLE IN YOUR TRADING GROUP WERE KILLED. THIS ENDS THE GAME.":::::::::"OS WERE NOT CURED PROPERLY."8"NO ONE WILL BUY THEM."B1244L1410|"SUPPLIES AT FORT STADACONA COST $125.00.""YOUR TRAVEL EXPENSES TO STADCONA WERE $15.00."II105M1((.15(1)1.05)102.5)102D1((PELTS BUT FOUND THEM STOLEN WHEN YOU RETURNED."<1244F1414s"YOU ARRIVED SAFELY AT FORT STADACONA."}12391430"YOUR CANOE UPSET IN THE LACHINE RAPIDS. YOU LOST ALL YOUR FURS12441418F(4)0"YOUR FOX PELT&E1((.15(1).80)102.5)102LB1((.2(1).90)102.5)102`P(10(1))1oP21216~P61224P81226P101235F(2)02"YOUR BEAVER WERE TOO HEAVY TO CARRY ACROSS THE PORTAGE. YOU HAD TO LEAVE THE65)102.5)1027B1((.2(1).75)102.5)102]D1((.2(1).80)102.5)102"SUPLIES AT FORT HOCHELAGA COST $150.00 YOUR TRAVEL EXPENSES TO HOCHELAGA WERE $10.00."1410II140M1((.3(1).85)102.5)102 FORT NEW YORK YOU WILL RECEIVETHE HIGHEST VALUE FOR YOUR FURS."}"THE COST OF YOUR SUPPLIES WILL BE LOWER THAN ALL THE OTHER FORTS."1400B$"YES"11101250:II160M1((.2(1).70)102.5)102E1((.2(1).TE TO HOCHELAGA BUT EASIER THAN THE ROUTE TO NEW YORK. YOU WILL RECEIVE AN AVERAGE VALUE FOR YOUR FURS AND THE COST OF YOURSUPPLIES WILL BE AVERAGE."u1400xB$"YES"1110y1198z@{"YOU HAVE CHOSEN THE MOST DIFFICULT ROUTE. ATSEAPORT. THE VALUE YOU RECEIVE FOR YOUR FURS WILL BE LOW AND THE COST OF SUPPLIES HIGHER THAN AT FORTS STADACONA OR NEW YORK."e1400iB$"YES"1110j1160no"YOU HAVE CHOSEN A HARD ROUTE. IT IS, IN COMPARISON, HARDER THAN THE ROUD IS UNDER DUTCH CONTROL."JU"YOU MUST CROSS THROUGH IROQUOIS LAND."hV::"ANSWER 1, 2, OR 3."oWB}XB11119YB21134[B31146\1110_`"YOU HAVE CHOSEN THE EASIEST ROUTE, HOWEVER, THE FORT IS FAR FROM ANY GA (MONTREAL) AND IS UNDER PROTECTION OF THE FRENCH ARMY."@ O P"FORT 2 IS FORT STADACONA (QUEBEC) AND ISUNDER THE PROTECTION OF THE FRENCH ARMY.HOWEVER, YOU MUST MAKE A PORTAGE AND CROSS THE LACHINE RAPIDS." RT"FORT 3 IS FORT NEW YORK ANE FORTS AT WHICH YOU MAY TRADE.THE COST OF SUPPLIESAND THE AMOUNT YOU RECEIVE FOR YOUR FURSWILL DEPEND ON THE FORT THAT YOU CHOOSE." K L:"DO YOU WANT TO TRADE YOUR FURS AT FORT 1, FORT 2 OR FORT 3?" M::: N"FORT 1 IS FORT HOCHELA15 7 "DO YOU WANT TO TRADE FURS NEXT YEAR? "? 18E  C"YOU ARE THE LEADER OF A FRENCH FUR TRADING EXPEDITION IN 1776 LEAVING THE LAKE ONTARIO AREA TO SELL FURS AND GET SUPPLIES FOR THE NEXT YEAR." E"YOU HAVE A CHOICE OF THRE"HOW MANY ";B$;" PELTS DO YOU HAVE ";0 RF(J)N TF(0)F(1)F(2)F(3)F(4)a VF(0)1901100s XF(0)190500z \J ^1100  "YOU MAY NOT HAVE THAT MANY FURS." "DO NOT TRY TO CHEAT. I CAN ADD." "YOU MUST START AGAIN."::: E EXPEDITION." g:= E1((.15(1).95)102.5)102e B1((.25(1)1.00)102.5)102k , -"YOUR 190 FURS ARE DISTRIBUTED AMONG THE FOLLOWING KINDS OF PELTS: MINK, BEAVER, ERMINE AND FOX." 61430 ; JJ14 LB$ M& O F(4)=15);"FUR TRADER "I:::S1091^I600"DO YOU WISH TO TRADE FURS?"::1402B$"YES"B$"Y"100B$"NO"B$"N"2044d: e"YOU HAVE $";I" SAVINGS AND 190 FURS TO BEGIN TH       STWEEK)X3ST0W3HEAL30ė:::"DUE TO POOR HEALTH YOU HAVE":"DIED!!":3:887a3::q3X((1)2){3ILL03HEAL455463HEAL605483 HEAL855503!5543"X1ĺ"YOU HAVE DYSENTERY. YOU ARE VERY ILL.":ILL1:552*4#"YOU AHAT MUCH FOOD LEFT!!"::3:518V2EA1ĺ:"YOU DIED FROM NOT EATING WELL!!":3:887e2TPFTPFEAz2STINJURYFLAG102INJURYFLAG02EA6FO152EA8FO102EA12FO52EA16FO02X(F(1)F(6)F(7)F(10))4 3HEALHEAL(FO 1:5Q1TPF0ĺ"YOU RAN OUT OF FOOD AND STARVED TO DEATH.":3:8871"HOW MANY POUNDS OF FOOD DO YOU WANT TO"1 "EAT THIS WEEK?"1 1 "(YOU HAVE "TPF" LBS) ";1 "";EA$:EA$""5231 EA(EA$)2EATPFğ:"YOU DON'T HAVE T170"WEEK# ";WEEK'0I11000:I-0C0MOVINGFLAG1517V0X((1)11)10X116,116,116,116,116,117,137,214,155,214,2050M0NEY08781H0RSE1F(5)0ė:::"YOU FORGOT TO BUY FEED FOR "HN$",":"AND YOUR HORSE HAS DIED!":3:H0RSE0 /::7/"IF YOU RUN OUT OF MONEY YOU WILL HAVE"=/d/"TO GET A JOB, AND STOP PLAYING."j//:"LET'S GET STARTED WITH OUR FIRST WEEK"//"OF GOLD PROSPECTING, ";NAME$;"."/3/CITYNUMBER0/WEEK18//09:PROSPECTING EACH WEEK, DEPENDING "(.K."ON WHAT YOU HAVE PURCHASED."Q..:"AT THE END OF EACH WEEK YOU MAY GO TO"..:"TOWN TO HEAR NEWS REPORTS, BUY ".."SUPPLIES, MOVE TO ANOTHER SPOT, OR".."STOP PLAYING."/3-"WILL GET TOO HOT."!-Q-:"IF YOU WANT TO GET RICH, YOU WILL WANT"W--"TO TAKE CARE OF YOUR HEALTH, MAKE"--"GOOD DECISIONS, AND HAVE GOOD LUCK."-3-::-"YOU CAN CHOOSE TO USE A PAN OR CRADLE"-"."FOR D RODE TO GET TO",*,"CALIFORNIA."1,3G,((1)3)1İ117M,^,INJURYFLAG0j,HEAL90,NCL$"MARYSVILLE",HI0RLOFLAG2,::,"IT IS NOW MAY 27, 1849. YOU HAVE ABOUT",,"EIGHT WEEKS FOR PROSPECTING BEFORE IT"-+H0RSE0İ246#+H0RSE0378-+::U+"WELL, ";NAME$;", LET'S SADDLE UP"[++HN$;" AND HEAD FOR THE HILLS."++"THE TRAIL ON WHICH WE ARE RIDING IS"++"THE CARSON IMMIGRANT TRAIL THAT THE"+,"PIONEERS WALKED AN"YOU LOST $";DMG;" TO THE ROBBER."8*M0NEYM0NEYDMG?*3H*464R*::z*"WE WILL BE WALKING UP THE CARSON"**"EMIGRANT TRAIL THAT THE PIONEERS"**"HAVE USED TO COME TO CALIFORNIA."*3*X((1)10):Xİ117+464S THE" ):)"CARSON EMIGRANT TRAIL USED BY PIONEERS"@)j)"WHO CAME OVER ON FOOT AND BY WAGON"p))"THE LAST FEW YEARS BEFORE THE RUSH.":3)((1)10)1437):7)"THE STAGE COACH WAS ROBBED!"))DMG((1)10)6$*FLOOR, AND $12 FOR MEALS."-(M0NEYM0NEY153(a("NOW IT'S TIME TO SIT AROUND SACRAMENTO"g(("AND WAIT FOR THE STAGE."(3(M0NEY0878(::("THE STAGE IS LOADING, SO LET'S GO!!"():"THE TRAIL THAT WE ARE TAKING I20 FOR THE TICKET, "NAME$".""'2'X((1)3)j'X1ĺ"WE'LL BE LEAVING EARLY IN THE MORNING.":417p''"YOU WILL HAVE TO STAY AT"''"THE HOTEL UNTIL THEN."':'"IT WILL COST YOU THREE DOLLARS FOR A"'("SPOT ON THE ) STAGECOACH ($20)"&0&" 2) WALK (FREE)"6&V&" 3) HORSE/MULE ($30-$80)"h&CHOICE3:233{&A391,438,447&::&M0NEY20398&&"YOU DO NOT HAVE ENOUGH MONEY!!"&&3&378&M0NEYM0NEY20'"THAT'LL BE $:************************* A************************* 1***************6: THIS VERSION a: MODIFIED AND AUGMENTED : FOR THE :COMPUTER EDUCATION CENTRE : BY: LACHLAN ARNOTT 1988 ) A A M M M"2"BBBB L AAAAA M M M"Q"B B L A A M M"p"B B L A A M M""BBBB LLLLL A A M M"I11000:I:"PPPP OOO W W !!!""P P O O W W !!!""P P O O W W !!!"CHOICE3:233A1173B"GOOD LUCK IN YOUR NEW SPOT."K178YA2176b180k179q"THE SHERIFF HAS TAKEN THE THIEF TO JAIL"3:2"BBBB L A M M""B B L A A MM MM""B B L AND SAYS,"G" ";(34);"HOWDY PARDNER! I LIKE THIS HOLE"p" YOUR WORKING. I'D LIKE YA TO"" FIND ANOTHER SPOT.";(34)"DO YOU WANT TO:"" 1) MOVE"" 2) FIGHT"" 3) GET THE SHERIFF";:"";ML$:ML$""146XML(ML$):MLM0NEYĺ:19:"YOU DON'T HAVE THAT MUCH!!":145ML5Ģ19:"NOT ENOUGH!";:868::145M0NEYM0NEYML"THAT WILL DO... FOR NOW..."9583:: "A ROUGH LOOKING MAN COMES BY::>"YOU ARE DIGGING IN AN OLD INDIAN AREA."Dp"WILL YOU GIVE THEM GOLD TO KEEP THEM"v"HAPPY?"240A2ī180M0NEY6ĺ"YOU DON'T HAVE ENOUGH MONEY FOR THEM!":3:18016:"HOW MUCH GOLD WILL YOU GIVE? "R YOUR LIFE!!!";(34)z:6{"DO YOU WANT TO:"<|Z}" 1) GIVE UP SOME MONEY"`~x" 2) FIGHT IT OUT"~CHOICE2:233A2180ML(M0NEY(1)):"YOU JUST LOST $";ML;" TO THE ROBBER!"M0NEYM0NEYML3:"YOU NOW HAVE ";)nITEM5ĺ"A ";>oITEM$(ITEM);"."gp:"YOU HAVE $"M0NEY" IN GOLD LEFT."pq3:xr74s::tu::v"A ROUGH LOOKING MAN COMES BY AND SAYS,"wx" ";(34);"STAND AND DELIVER! YOUR MONEY"y" O ALL."]112#^F(ITEM)098-_::Q`"YOU ALREADY HAVE THAT ITEM!!"Za113xbNWPRICE(HI0RLOFLAG,ITEM)cNWM0NEY106d:efg"YOU DO NOT HAVE THAT MUCH GOLD!!"hi113jM0NEYM0NEYNWkF(ITEM)1lmITEM13ITEM(ITEM)73*QITEM8940RWS"HOW MANY POUNDS OF FOOD TO BUY?"gT" -> ";PF$vUPF$""82VPF(PF$)WNWPFPRICE(HI0RLOFLAG,8)XNWM0NEY101YM0NEYM0NEYNWZTPFTPFPF[\"YOU HAVE ";TPF;" LBS OF FOOD INICE3:233 GA2İ290:1155 HA3İ290:::53; I` J"YOU HAVE $";M0NEY;" TO SPEND."f K L"ENTER THE NUMBER OF THE ITEM THAT YOU" M"WANT TO BUY AND PRESS RETURN. TO EXIT: ";ITEM$ NITEM$""66 OITEM(ITEM$)PITEM1RE PRICES" 7: 8" ITEMS FOR SALE PRICE "@ 9L :V113U ;V2b <4(V9)y =V;" - ";ITEM$(V); >26 ?PRICE(HI0RLOFLAG,V) @V A34,16 B C" 1) BUY GOODS" D" 2) LOOK FOR GOLD" E" 3) TAKE INVENTORY" FCHOL12 &L2113% 'PRICE(L,L2)- (L24 )LK * JACK RABBIT STEW\ + BEEF JERKYu , BISCUIT & HARDTACK - REDEYE & BEANS . RATTLESNAKE STEW / FLAPJACKS & BACON 0L16 1DINNER$(L) 2L 3 4 5:9 6"GENERAL STO  HORSE FEED"  WOOL HAT3  WOOL SHIRTF  FOOD (1 LB.)U  GOLD PANc  BLANKETp  CRADLE{  PICK  SHOVEL L113 !ITEM$(L) " # 10,3,5, 2,1, 6, 20,1,16,4, 20,12,10 $ 30,8,10,5,20,12,50,2,25,15,35,45,45 %O(40,24) H0RSE0$ M0NEY300D PROMPT$(2)"(TYPE 1 OR 2) "h PROMPT$(3)"(TYPE 1, 2, OR 3) " PROMPT$(4)"(TYPE 1, 2, 3, OR 4) " PROMPT$(5)"(TYPE 1, 2, 3, 4, OR 5) "  PAIR OF BOOTS  FRYING PAN  COFFEE POT  FORK & KNIFEO10:307FR(0)5FR(0):22FIRST:1S"PRESS TO END"::z"PRESS TO CONTINUE => ";X$:X$:X$(27)ġ:922X$(13)6   PRICE(2,13),F(13),ITEM$(13),PROMPT$(5),DINNER$(6) RO(40,24),G                         ((I100)B)01170!F101180X"YOU WERE FORCED TO SPEND ";((F1(B(I100)))9)~"DOLLARS ON FUNERAL EXPENSES.":B5(F1(B(I100)))A(A((F1(B(I100)))9))1185"YOU WERE FORCED TO SPEND ";(F19)"DOLLARS ON FUNEA4AL(I100B)011201QI100501700gV(B(I100));" CITIZENS -DIED OF STARVATION.":`F1((1)(2000D))bK251130eF1(F1(K25))jF101150tF1;" CITIZENS -DIED OF":"CARBON-MONOXIDE AND DUST INHALATION":~01002ZI01002$\J010023^K01002?a::10Sd"GOODBYE."::f"* IF YOU WISH TO CONTINUE THIS GAME AT A LATER DATE, ANSWER 'AGAIN' WHEN ASKED AT THE BEGINNING OF THE NEW GAME"g:j2046600:A(AK)HE TREASURY."410K0&A001000;AAU1"HOW MANY DOLLARS DO YOU WISH TO SPEND ON POLLUTION CONTROL ? -- ";K K0510KA1000" THINK AGAIN, YOU'VE ONLY GOT ";A;" DOLLARS REMAINING."&510XHϺ"SORRY, BUT EACH CITIZEN CAN ONLY PLANT 2 SQ. KMS. "F410YJD1000430"SORRY BUT YOU HAVE ONLY ";D1000:"SQ. KMS. OF FARM LAND."410U1A500U1A490 " THINK AGAIN, YOU'VE ONLY ";A;" DOLLARS LEFT IN T320^IA400hIA380fr" THINK AGAIN, YOU HAVE ONLY ";A;" DOLLARS IN THE TREASURY."ow320w|J0K0A01000A(AI):"HOW MANY SQ. KMS. DO YOU WISH TO PLANT - ";J::J0410JB2426= FARM LAND BECAUSE FOREST LAND IS NOT ECONOMICAL FOR MINING .. DUE TO TREES, THICKER TOPSOIL, ETC.)"u}X1+200,D(DH)6A(A(HW))@"HOW MANY DOLLARS WILL YOU DISTRIBUTE AMONG YOUR CITIZENS ? -- ";TI:VI0 TO PLANT.":Q"HOW MANY SQ. KMS. WILL YOU SELL TO INDUSTRY -- ";\H::iH0200|HD1000300" THINK AGAIN, YOU'VE ONLY ";D1000;" SQ. KMS. OF FARM LAND.":X0200o"(FOREIGN INDUSTRY WILL ONLY BUYsV9((((1)2)1010)))xC0140O(C);" FOREIGN WORKERS, ";::v"AND ";(D);" SQ. KM. OF LAND.":"THIS YEAR INDUSTRY WILL BUY LAND FOR ";W;" DOLLARS PER SQ. KM. " "LAND CURRENTLY COSTS ";V9;" DOLLARS PER SQ. KM."** FOLLOWING QUESTIONS **"+ /N50N556 022000] 2A(60000(1000(1))(1000(1)))~ 7B(500(10(1))(10(1))) AD2000 dW(10(1)95) f:: i"YOU NOW HAVE ";A;" DOLLARS IN THE TREASURY."::n(B);" CITIZENS, ";:WN WORKERS. CROPS COST BETWEEN 10 AND 15 DOLLARS PER SQ. KM. "U *"TO PLANT.":: ,"YOUR GOAL IS TO COMPLETE YOUR ";N5;" YEAR TERM OF OFFICE.": .:"GOOD LUCK (YOU WILL NEED IT)":::"** TO EXIT THE PROGRAM **":"** ANSWER ZERO TO ALL **": PRODUCE AND TOURISTS VISITING YOUR MAGNIFICENT FORESTS, HUNTING, FISHING, ETC." ""HALF YOUR LAND IS FARMLAND. IT ALSO HAS AN EXCELLENT MINERAL CONTENT AND MAYBE SOLD TO FOREIGN INDUSTRY."@ &"THE FOREIGN MINERS IMPORT AND SUPPORT THEIR OL TREASURY.":i 19:"HOW LONG (IN YEARS) DO YOU THINK":"YOU CAN REMAIN IN OFFICE ?? --> ";N5:::10 "THE MONEY SYSTEM IS DOLLARS,AND EACH PERSON NEEDS 100 DOLLARS PER YEAR TO SURVIVE."::22000V "YOUR COUNTRY'S INCOME COMES FROM FARM 1960 :::_ "BY YOUR EVIL CUNNING, YOU HAVE":"JUST TAKEN OVER BANANA-LAND. THIS IS" "A SMALL ISLAND 30 BY 70 KMS. LONG.":"YOUR JOB IS TO DECIDE UPON THE":"COUNTRY'S BUDGET AND DISTRIBUTE" "MONEY TO YOUR CITIZENS FROM THE":"COMMUNA:"************************************************************************************************************************"12:45995:50,1278:"BANANA REPUBLIC DICTATOR":::::22010 Z$"N"Z$"NO"47 Z$"AGAIN"           " ;&U23::"PLEASE PRESS RETURN TO GO TO THE MENU";XZ$::m&U23:"(TYPE 'AGAIN' TO RESUME PREVIOUS GAME)"&U21::"WOULD YOU LIKE SOME INSTRUCTIONS ? ";Z$:: INSTRUCTIONS ? ";Z$::Z***************&: THIS VERSION ''N1180`Q1N1160 jRR1.tRN10308~1100BII1L1100{D1;10);(I.5);20);(R.5);32);(S.5)S1SJ:23::"DO YOU WANT ANOTHER RUN";A$:(A$,1)"Y"123"RUN WW":**********"==============================================":[" BY DAY NUMBER ";J1"EVERYONE IS EITHER RECOVERED,ISOLATED OR IMMUNE."1210SN(IR)$S01080.S08SS11100BSS1LQ1(I.5)(R.5)(S.5)VQ1====================================="Jz(I.5)(R.5)(S.5)N910TRR1D1;10);(I.5);20);(R.5);32);(S.5)J1T1D1D11R2R1II2I1SIR2III2(I.5)N990INRRR2(R.5)N105060 (T)T830B*"YOUR INPUT MUST BE AN INTEGER--TRY AGAIN."K4750[>T365860H"A YEAR OF DISEASE IS ENOUGH FOR ANYONE--TRY AGAIN."R750\SN(IR):S1SfD11k936::p"DAY INFECTED RECOVERED SUSCEPTIBLE"&q"== A 100% RECOVERY RATE PER DAY"Y"YOU WOULD HAVE TO BE RATHER OPTIMISTIC TO DO BETTER"x"THAN THAT----TRY AGAIN."620:"NUMBER OF DAYS TO BE STUDIED";TT1800 "YOU MUST LOOK AT THE POPULATION FOR AT LEAST 1 DAY."75E OF RECOVERY";vR1&R11670Y"YOU HAVE SPECIFIED A 100% RECOVERY RATE/DAY""A MEDICAL MIRACLE! (BUT WE'LL ALLOW IT)"R10700"A RECOVERY RATE MUST BE POSITIVE-- TRY AGAIN."620R11750"A VALUE OF 1 INDICATES INFECTION";I1#&I10580U0"THIS MUST BE GREATER THAN ZERO--TRY AGAIN."^:530xDI1I(N(IR))N620N::"THIS VALUE IS TOO LARGE TO LEAD":"LEAD TO SENSIBLE RESULTS. TRY A":"SMALLER VALUE. ":b530l:"RATPULATION--TRY AGAIN."370.(R)R470["THIS MUST BE AN INTEGER -- TRY AGAIN."d360tRNI510"IMPOSSIBLE!""THIS MUST BE LESS THAN OR EQUAL TO (POPULATION-INFECTED)"360NI620IRN620  "RATE OFME IN WHOLE NUMBERS (ALIVE)--TRY AGAIN."1 T240> ^IN620D hp i"NUMBER RECOVERED,ISOLATED OR IMMUNE";w rR |R0410 "PEOPLE ONLY COME IN POSITIVE NUMBERS -- TRY AGIAN." 360 RN440"THIS MUST BE LESS THAN THE TOTAL PO 160+ :"INITIAL NUMBER INFECTED";2 I@ I0290x "PEOPLE ONLY COME IN POSITIVE NUMBERS--TRY AGAIN." 240 "IN320 ,"YOU CAN'T INFECT MORE THAN THE TOTAL POPULATION--TRY AGIAN." 6240 @(I)I350( J"PEOPLE ONLY COPRESS RETURN TO CONTINUE ";XZ$:0 {936:::6 [ "WHAT IS THE TOTAL POPULATION";b Np N2210 "POPULATIONS LESS THAN 2 AREN'T MUCH FUN. TRY AGAIN." 160 (N)N240 "PEOPLE ONLY COME IN WHOLE NUMBERS (ALIVE)--TRY AGIN." OR IMMUNE"= P" SUSCEPTIBLE (THOSE WHO CAN BE INFECTED)":d Z:"YOU WILL BE ABLE TO VARY:":: d" THE RATE OF INFECTION," e" THE RATE OF RECOVERY, AND" n" THE NUMBER OF DAYS YOU WISH " o" TO WATCH THE POPULATION." x23::"UCTIONS"; Z$:) (Z$,1)"Y"1557 936::a ("THIS PROGRAM SIMULATES AN EPIDEMIC" )"OF A DISEASE SUCH AS INFLUENZA.": 2"THERE CAN BE THREE CLASSES OF " 3"PEOPLE IN SUCH A SITUATION:" <:" INFECTED" F" RECOVERED,ISOLATED* :936:::@ "DO YOU WANT A COPY OF THIS SIMULATION"a "PRODUCED ON THE PRINTER ";i A$~(A$,1)"Y"19"";"PR#1"936:::" EPIDEMIC SIMULATION"" ===================": ::"DO YOU WANT INSTR     ;wn];wn];wn];wn];wn];wn]k\;wn];wn];wn};wn];wn];wn];wn];wn];wn-ժ];wn];wn];wn}];wn];wn];wn];wn];u;wn];wn];Wn];wn};wn];wn];wn];wnժժժ];wn];wn];wn];wn}+wn];wn];wn];wn]:wn];w.5ժn];w.U;wn];wn};wn];wn];wn];wުժժժ];wn];wn];wn];wn}ݻݻݻݻݻݻݻݻݻݻݻݻݻݻݻݻn];wn];w;wn];wn];wn];wn];7ժժ;wn];wn];wn];wn}ݻݻݻݻݻݻݻݻݻݻn];wn];wn];Wݻj];wn];wn];wn};wn];wn];wn];wn]תժժ\;wn];wn];wn];wn}߻o];wn];wn];wn];wn];wnժժwn];wn];wn];w߻wݻݻݻݻݻݻݻݻݻto];wn];wn];wn];wn];wժժժ;wn];wn];wn];w߻o];wn];wn];wn]+wn];wn];wnwn];wn];wn];w߻o];wn]*wn];wn];wn];wn];7ժvn];wn];wn];w߻߻tn];wn];wn];wn];w.n];wn];wn]:wn];wo];wn];wn];wn];/ժժժwn];wn];wn];wn];w߻];wn];wn];wn];w*U;wn]+%ժ;wn];Wj];wn];wo];wn];wn];wn]۪ժժժwn];wn];wn];wn];w߻ݻݻݻݻݻݻݻݻݻ߻ݻݻݻݻݻݻݻ*un];wnUo];wn];wn];wn];wn=ժժժn];wn];wn];wn];w߻ݻݻݻݻݻݻݻݻݻ߻ݻ*wn];wn];wnUݻݻ+wn];wn];wn];wo];wn];wn];wn];wުժժvn];wn];wn];wn];w;wn];wn]:wn];wn];wn];ժժ];wn];wn];wn};wn];wn];wn];wn];wn]ժժn];wn];wn];wn};wn];wn];wn];w.];wn];wn]j];wn];wn];wn};wn];wn];wn];wn];wn];wn]W\;wn];wn];wn};wn];wn];wn];wn];ݻ:wn];wn];wn];wn};wn];wn];wn];wn=ժժժ];wn];wn];wn];wn}tn];wn];wn];wn];wn];w.n];wn]+wn];wn};wn];wn];wn];wުժժժ];wn];wn];wn];wn}ݻݻݻݻݻݻݻݻݻݻݻݻݻݻݻݻ:wn];;wn];wn];wn];wn];w֪ժժwn];wn];wn];wn}ݻݻݻݻݻݻݻݻݻݻU;wn];wn]+ݻݻ];wn];wn];wn};wn];wn];wn];wn][ժժ\;wn];wn];wn];wn}߻o];wn];Wn];wn];wn];wnժժwn];wn];wn];w߻o];wn];wn];wn];wn];w֪ժժ;wn];wn];wn];w߻o];wn];wn];wn];un];wn];wڪwnU;wn];wn];w߻o];wn]:wn];wn];wn];wn];w^vn];wn];wn];w߻߻n];wn];wn];wn];w*j];wn];wn]*wnU*wo];wn];wn];wn];wժժժwn];wn];wn];wn];w߻S;wn];wn];wn];wn];wn]+;wn];w.];wn];wo];wn];wn];wn];ժժժwn];wn];wn];wn];w ߻ݻݻݻݻݻݻݻ*];w.o];wn];wn];wn];wn]۪ժժ];wn];wn];wn];w߻ݻݻݻݻݻݻݻݻݻ߻ݻn];wn];wjݻݻtn];wn];wn];wo];wn];wn];wn];w^ժժvn];wn];wn];wn];w                YOU'RE STILL IN THE TRAP."$F629-PN.87Z1300md:"ON GREEN ";(D230)100;" M. FROM THE PIN.":e"CHOOSE YOUR PUTT POTENCY (1 TO 13).":f"PUTT POTENCY NUMBER";xIS1S11S11P(H.072)21470K21470KK1 S1S11D"PENALTY STROKE ASSESSED. HIT FROM PREVIOUS LOCATION."NJJ1YL(0)1aDBj629"YOUR SHOT WENT OUT OF BOUNDS."1210T31320D21(3((80(40H))(1)))1380((1)N13602NN.2<"HARD LUCK -1)15/(S9)S9104003"YOU SLICED IT-";>8L(0)L(1)HB1055VD"BADLY."_F320jLL(0)5sV320~`L(0)8jD2(D23)t1380~L(0)1320D1(.85D1)830L(0)61260"YOUR SHOT WENT INTO THE WATER."2X"BALL HIT TREE - BOUNCED INTO ROUGH"::"YOU'RE ";D75;" METRES FROM THE HOLE.":cDD75l629{Q301150J01150T01070 S9(S21)15 (S9)S91075"YOU HOOKED-";L(0)L(2)Q451092$320.S9(S256 752QQ1-S12(S12)10116862"YOU MAY NOW GAUGE YOUR DISTANCE"::"BY PERCENT(1 TO 100) FULL SWING":"PERCENT FULL SWING ";WWW100W1680L(0)51280C14760CC10760D9586U BUNGLED IT!!"`D135"b8302cD2001300;d770JfD220890vp"TOO MUCH CLUB. YOU'RE PAST THE HOLE."~zBDDD2D2271020D2201100D2.51120L(0)91470S2Q(10(F1)18)(F1)(72((H1).85))189(F3)F3952 C4756)7609L(0)2862GS17867~D1(((30H)2.5187((30H).2515)C2)25(1)) D1(D1W) T21170>Q((1).8)(2H16)((D1.0035))HD2((Q2(DD1)2))RDD10870\890^"YO1690}C29690 C47101L(0)5740?C14740MC23740V690bS1S1120::"THAT CLUB IS NOT IN THE BAG"::23:"PRESS RETURN TO TRY AGAIN";Z$:629C12690CC6650S1S11W1C1396080"FAIRWAY"1690("ROUGH"21690?"TREES"I1690a"ADJACENT FAIRWAY"k&1690w0"TRAP":1690D"WATER"N1690u16368,0:22::"WHAT CLUB DO YOU CHOOSE?"::"SELECT CLUB 0...TO QUIT.";C:vC03000{C"::"FROM THE CUP.":F j:"BALL IS ";(Q);" METRES OFFLINE...IN ";O |400X 629h L(X)1480x L(X)2500 L(X)3520 L(X)4540 L(X)5560 L(X)6580 "OUT OF BOUNDS" 1690 "PGA RULES HANDICAP = 0 TO 30 0:" A GREAT BIG EAGLE":% 1310? 2:"A HOLE IN ONE.":h 5:"PRESS TO CONTINUE.":A$w 6F191710 ;S10 < @S101590 JL(0)11150 TX0 ^L(0)51190 c:: h::"SHOT WENT ";D1;" METRES. IT'S ";D2;" METRES F1310; ::"YOUR SCORE ON HOLE ";F1;" WAS ";S1:E #1750U $S1P2297c %S1P299s &S1P1301 'S1P2303 (309 )"KEEP YOUR HEAD DOWN" *309 +"A PAR. NICE GOING." ,309 -:"A BIRDIE.": .309 /P3306 u::4 x"DIFFICULTIES AT GOLF INCLUDE:":::u "0=HOOK, 1=SLICE, 2=POOR DISTANCE, 3=TRAP SHOTS, 4=PUTTING" :::"WHICH ONE (ONLY ONE) IS YOUR WORST";T: T4116 1800 S10 L(0)0 J0 Q0 S2S21 K0 LE. THE COMMENTATOR WILL ":J "EXPLAIN THE GAME AS YOU PLAY."::} "ENJOY YOUR GAME - SEE YOU AT THE 19TH!!":22 G118 G20 G30 (A0 2N.8 <S20 FF1 P:"WHAT IS YOUR HANDICAP";H: dH30470 nH0470 t2 LANGUAGE NOT AVAILABLE PR#6c17185:48352:::6:"CHAMPIONSHIP GOLF":6:"WELCOME TO TOFFEENOSE COUNTRY CLUB.":"AN EIGHTEEN HOLE CHAMPIONSHIP LAYOUT":"LOCATED A SHORT DISTANCE FROM SCENIC ":! "YUPPIEVIL          ATELY":"15 BUGS, THUS STABILIZING THE POPULATION"[23::"PRESS ANY KEY TO CONTINUE":cD$k:3:"AS THE COLOUR OF THE BACKGROUND":"DETERMINES THE EASE WITH WHICH THE ":"PREDATOR MAY LOCATE BUGS,YOU MAY NOW":"CHOOSE THE BACKGROUND COLRIRRO1\A(I)9f,pIRO298zA(I)13>L::2:2"EACH YEAR ONE PAIR OF BUGS PRODUCES":2:" ONLY ONE OFFSPRING ":6:"*ORANGE REPRESENTS RED-YELLOW HYBRID*":112:"EACH YEAR PREDATORS EAT APPROXIM Y1$Y1$"N"2100/Y1$"Y"1999K::"HOW MANY RED ?";RZR302080y:"HOW MANY ORANGE ?";O:(RO)3020802100 :"THERE ARE ONLY 30 BUGS ALTOGETHER !"#:"TRY AGAIN"$20264I0R1>A(I)1H E WAIT"::ZZ15000:ZZ$*V:"THERE ARE 30 BUGS ON A RUG, NATURE"" HAS PROVIDED US WITH: 10 RED, "" 10 ORANGE AND 10 YELLOW BUGS. "::11"DO YOU WISH TO SELECT A DIFFERENT"" DISTRIBUTION OF COLOURS ???": NN1600N15ı&"II10,1510C@RY0:OY0:YY0OJI044dTA(I)13YYYY1x^A(I)9OYOY1hA(I)1RYRY1mr|"THERE ARE NOW ";RY;" RED, ";OY;" ORANGE AND ":YY;" YELLOW BUGS IN THE POPULATION.":"PLEAS SO MUCH NOISE..PLLLLEASE!!!"CQ3ĺ"EVEN BUGS TAKE THEIR TIME"U:Q(4(1))^230h1080tN0:I0I45I0A(I)C1560D1(3(1))A(I)13D1A(I)CA(I)9D2A(I)CA(I)1D3A(I)C A(I)C15600 y1600z:21:9{"TO CONTINUE, PRESS ANY KEY"]|" TO FINISH: TYPE F ":eA$vA$"F"4000YY1:10:Q5ĺ"QUIET PLEASE, BUGS ARE MATING"Q0ĺ"SHHH !"Q1ĺ"PLEASE DO NOT DISTURB"Q2ĺ"NOTC1290NN1600% N15ı/ II19 1255EN0:I0SI45I0d(A(I)C1390v2D1(6(1))<A(I)13D3A(I)CFA(I)9D3A(I)CPA(I)1D3A(I)CZA(I)C1390dNN1i600nN15ısII1x131A(I)9D3A(I)C,A(I)1D3A(I)C>A(I)C1245HNN1Q600]N15ıgII1q1220}N0:I0I45I0A(I)C1290D1(6(1))A(I)13D3A(I)CA(I)9D3A(I)CA(I)1D3A(I)CA(I))1A(L)9A(M)1A(8)7 A(I)9A(L)9A(M)9A(2)R A(M)11A(M)1A(12)X a 400q C14İ1300 C11İ1210 C0İ1250 C5İ1500 1401 N0:I0 I45I0 A(I)C1245 D1(5(1)) A(I)13D3A(I)C $30 8I014 9LI15( :MI30B BA(I)1A(L)1A(M)1_ LA(I)13A(L)13A(M)13z VA(I)1A(L)13A(M)9 `A(I)13A(L)1A(M)9 jA(I)9A(L)13A(M)9A(4) tA(I)13A(L)9A(M)9A(4) ~A(I)9A(L)1A(M)1A(8) A(IV A(V30) 34,3652V& V, > A(45):B(45)[ 19541:48351: STARTUPv (17815)123Č1401 V0:I1:N1:J0:Y1 C15:Q5:RY0:OY0:YY0 L15:M30:K0:X1:R10:O10 A(X)X(2(1)) 3000 1999 400TERN PREDATOR PATTERN ":O " FOR YEAR ";Y;" FOR YEAR ";Y[ V014e A(V)t 2,552V A(V15) 7,1052V A(V30) 14,1652V V  XV014 bA(V) l22,2552V vA(V15) 27,30520 B(J)A(I) JJ1 I- "N30448 $B(N)C? 'NK ,N044Y 6A(N)B(N)` ^Nh c30n ht z   C I139 0,39I  12 0,390 0,3939 0,390 0,3939 0,3919 :" MATING PAT2 LANGUAGE NOT AVAILABLE PR#6; 900GN029\(I((30N)(1))j2B(N)A(I)s<J29FA(J)C100PJJ1Z70dA(I)A(J)nA(J)CxNN029A(N)B(N)NJ0I044 A(I)C28         ANGER TEMP. (MAX 500) ";XT%E"COOLING TOWER TEMP. (MAX 300) ";CT%p"POWER OUTPUT (MAX 2000KW) ";GO%;"KW"KW%TTDAY%"AVERAGE POWER OUTPUT ";KW%;"KW/DAY" "CONTROL RODS- ";A%*:"COOLANTS":4"EMERGENCY LEVEL- ";EV%;" FLOW- "AILURE - ";10SD%(SD%10)100(SD%10);"%"OXB%ĺ"HEAT EXCHANGER FAILURE"kGB%ĺ"TURBINE FAILURE"qRD%5720:3:" MELTDOWN! MELTDOWN! MELTDOWN! ":3000:"INDICATORS:""REACTOR TEMP. (MAX 800) ";RT%"HEAT EXCHY COOLANT LEAK - ";SD%;"/DAY":SV%(SV%SD%)((SV%SD%)0)ED%2ĺ"EMERGENCY COOLANT LEAK - ";2ED%;"/DAY":EV%(EV%2ED%)((EV%2ED%)0)PB%ĺ"PRIMARY COOLANT PUMP FAILURE - ";10PD%(PD%10)100(PD%10);"%",SB%ĺ"SECONDARY COOLANT PUMP FENCY COOLANT LOW"5DPV%100ĺ"PRIMARY COOLANT LOW"eNSV%100ĺ"SECONDARY COOLANT LOW":SD%SD%1kXzb"DAMAGE:"lRD%3ĺ"REACTOR CORE DAMAGED"vPD%4ĺ"PRIMARY COOLANT LEAK - ";PD%;"/DAY":PV%(PV%PD%)((PV%PD%)0)9SD%4ĺ"SECONDAR)SXT%500ĺ"HEAT EXCHANGER OVERHEATED":XD%XD%1(XT%600):PD%PD%1:SD%SD%1GO%2000ĺ"TURBINE OVERLOADED":TD%TD%1(GO%2500):SD%SD%1&CT%300ĺ"COOLING TOWER OVERHEATED":SD%SD%10GO%1000ĺ"POWER OUTPUT LOW":EV%200ĺ"EMERG0:A1%0:A2%0:+DAY%DAY%1Q:7)"APPLE NUCLEAR POWER PLANT"w7)"STATUS REPORT - DAY ";DAY%:::6"WARNINGS:":RT%800ĺ" REACTOR OVERHEATED":RD%RD%1(RT%850)(RT%900)2(RT%950):PD%PD%1:ED%ED%1(RT%850, THE LONGER THE"+O"REPAIRS WILL TAKE."1TU^" WARNING :THIS POWER PLANT"h" HAS NO AUTOMATIC SAFETY DEVICES!!"r23::"PRESS RETURN TO CONTINUE";XZ$:|2202000RH0RL0DAY%0TT0DMGE%0 A%"/1"COOLANT, BRING THE REACTOR TEMPERATURE"^6"DOWN BELOW 100 AND SHUT OFF THE COOLANT";"FLOWS. THIS WILL CAUSE AN AUTOMATIC"@"MAINTENANCE SHUT DOWN AND ALL COOLANT"E"WILL BE REPLENISHED AND REPAIRS MADE."J"THE GREATER THE DAMAGE IS"."EXHAUSTED. THE FUEL WILL LAST FOR "Z"ABOUT 100 TO 150 DAYS. WHEN THE FUEL"""IS EXHAUSTED YOUR PERFORMANCE WILL BE"'"EVALUATED."(*23::"PRESS RETURN TO CONTINUE";XZ$:::3,:"IF YOU WANT TO REPAIR DAMAGE OR REPLACEANGE. USE THE SPACE BAR TO STEP"L "TO THE DIFFERENT FUNCTIONS. WHEN THE"{ "DESIRED ENTRIES HAVE BEEN MADE, USE THE" "'RETURN' KEY TO ADVANCE TO THE NEXT DAY." "THE REACTOR CAN BE OPERATED UNTIL A""MELTDOWN OCCURS OR THE REACTOR FUELRT OPERATION"::"-----> ";A$& :4= A$"D"İ6000:220M A$"S"390{ "THE CONTROLS ARE OPERATED BY TYPING IN" "THE DESIRED CONTROL ROD SETTING AND" "FLOW RATES.(USE 0 TO 100)" "IF NO ENTRY IS MADE, THE VALUES WILL" "NOT CH OTHER SYSTEMS"6 "FAIL.UNLIKE THE OTHER COOLANTS,"` "EMERGENCY COOLANT IS NOT RECYCLED." 23::"PRESS RETURN TO CONTINUE";XZ$: : 12:" ENTER 'D' TO SEE REACTOR DIAGRAM"::" ENTER 'I' FOR WORKING INSTRUCTIONS"::" ENTER 'S' TO STA THE HEAT"7 "EXCHANGER.SECONDARY COOLANT TRANSFERS"b "HEAT FROM THE HEAT EXCHANGER TO THE" "TURBINE,WHERE POWER IS PRODUCED,AND" "FINALLY TO THE COOLING TOWER. THE" "EMERGENCY COOLANT IS USED TO HELP SHUT" "DOWN THE REACTOR WHENTOR.THE OBJECT"; <"IS TO OPERATE THE PLANT AT A MAXIMUM"g F"AVERAGE POWER OUTPUT WITHOUT CAUSING" P"A REACTOR MELTDOWN." d"THE CONTROL RODS ADJUST THE AMOUNT OF" n"HEAT PRODUCED BY THE REACTOR.PRIMARY" x"COOLANT TRANSFERS THIS HEAT TO+2 LANGUAGE NOT AVAILABLE PR#6Q :19541:48352: STARTUPl(17815)123Č14019)" NUCLEAR POWER PLANT"$:9)" *******************"%:("THIS PROGRAM SIMULATES THE OPERATION OF" 2"A NUCLEAR POWER REAC                          GETS TOO HIGH OR LOW."::3D> "HIGHER THAN $50 000......YOU WIN!"H :3);"LOWER THAN $1500 ........YOU LOSE!":20:7640::3R "BUYING AND SELLING PRICES WILL BE SHOWN."\ :"THERE WILL ALSO BE BARGAINS AT TIMES.":f " BUT"ND SELL AT THE CORRECT TIMES TO"::(5)J " INCREASE YOUR WEALTH." 20::"FROM HERE ON, PRESS THE SPACE BAR TO GET":::11::"MORE INFORMATION.": 20:7640::10* "THE GAME STOPS WHEN THE VALUE OF YOUR"4 :2);"SHARES PLUS CASH  INSTRUCTIONS , ] 3);"HI! YOU ARE INVITED TO TRADE ON THE": "STOCKMARKET. EACH PLAYER IS GIVEN $3000" :"WITH WHICH TO BUY SHARES IN 6 COMPANIES.": "PRICES OF SHARES CONTINUALLY CHANGE SO"' :2);"BUY A X V2Wb l (12):(4)Lv "WHAT IS THE NEXT PLAYER'S NAME?";N$(V)S V] 3230 V1::12:10:"WHAT IS YOUR NAME?";N$(W) :11:10 "WANT INSTRUCTIONS?":15:10);"TYPE Y OR N ONLY."; P$:P$"N"ė:3490 P$"Y"3250&0.5)100> :(3):"HOW MANY PEOPLE WILL BE PLAYING (1-5) ";X W$:W(W$):W03090b 3070q W53120 :4);"A MAXIMUM OF 5 PLAYERS PLEASE."& 30600 :WWW: W13220D :(12):(4)N "WHAT IS THE FIRST PLAYER'S NAME?";N$(1)  34,13 1 10);"********************"9 :? h  ERROR HANDLER  998:: CURSOR UP ONE LINE  MAIN PROGRAM  :34,0::12:6);"WELCOME TO THE STOCKMARKET." R(X)(100X YX992840 YX0:* NN(XX$)=" Y6NN);XX$;C, q6  CALCULATE WEALTH @ RP(V)R(V)J R(V)0T I16^ R(V)R(V)B(V,I)D(I)h Ir R(V)R(V)Q(V)|   BLANK BELOW TABLE X99: PASS BACK XX$ STRINGJ XX$(R(X)): ENTER HERE TO PRINT RESULT[ II1(XX$)u (XX$,II,1)"."2760} II XX$XX$"." IIII1 YY2((XX$,II1)) YY02810 JJ1YY XX$XX$"0" JJ (XX$)3XX$"0"XX$2620  VV1' RP(V)R(V)1.4İ6930A RP(V)R(V)1.42620K 2880`( RP(V)R(V)2620j2 2210y< N52640F T1000:7670P 2960Z R(V)1500R(V)500002670d 6530n x  PRINT SUPPRESSED ZEROES  Y2700 ~ " (PREV.$";, Y33:XQP(V):2700E :" YOUR WEALTH=$";[ Y15:XR(V):2700l " (Y/DAY$"; Y33:XRY(V):2700 H0Č868:2550 H0ĺ"......STILL IN DEBT FOR $"; H(H100)100 XH:2690 868:XX$ VV1I;4);A$(I);12);B(V,I);18);"$";9  Y18:XC(V,I):2700H  26);"$";^  Y26:XE(I):2700g $ PR0v . 33);"$"; 8 Y33:XD(I):2700 B L I V ::N$(V);::35(((DAY(V)))))::"DAY ";DAY(V) ` j "CASH IN HAND=$"; t Y15:XQ(V):2880 VV0 34,0:(1)g "NO";4);"COMPANY";12);"SHARES";19);"AVE.";26);"BUY";33);"SELL" 12);"OWNED";19);"PAID";26);"PRICE";33);"PRICE" I16 B(V,I)0C(V,I)0 INDCO02290 IICĺ IIC2380 868! PDATE AFTER TAXES # Q(V)Q(V)P4 *ICI:INDCO1> 42190p > UPDATE AFTER SELLING HB(V,I)B(V,I)K RQP(V)Q(V) \Q(V)Q(V)P fICI:INDCO1 p2190 z PRINT OUT OF TABLE INDCO0 *****": 180 X = 12.35:BLOAD STOCK.OBJ"TT"FPL I12000::V 3040  UPDATE AFTER BUYING CB(V,I)C(V,I)P B(V,I)B(V,I)K C(V,I)(CB(V,I)1000.5)100 QP(V)Q(V)  UQ?2 LANGUAGE NOT AVAILABLE PR#6Nd:(8):45995: STARTUPn17185:9);"********************":(47721)123Č1401x9);"*";18);"*":9);"* STOCKMARKET *":9);"*";18);"*"9);"*";18);"*" 9);"***************!! ! ! ! ! !!!!!!!!!                        :12:"OK, ";NA$;" LET'S COUNT YOUR GOLD."::"PLEASE WAIT WHILE I SEPARATE THE GOLD FROM THE PYRITE."sBF8A1BMOVINGFLAG1MOVINGFLAG0::"YOU ARE NOW IN "NCL$".":3:751B219BF81PCA1.2:F(13)1PCA1.5BWLCWLC1CD1(((WO A"!"AXX:YY12ABARBAR1:BAR3BAR0CABAR0ĺ"/";TABAR1ĺ"+";gABAR2ĺ(92);mAsAAYY:XXA"-"AXX1:YYABARBAR1:BAR3BAR0ABAR0ĺ"/";ABAR1ĺ"+";ABAR2ĺ(92);AA16368,0hBYY:XX@"!"@XX4@BARBAR1:BAR3BAR0E@BAR0ĺ"/";V@BAR1ĺ"+";i@BAR2ĺ(92);o@u@@YY:XX@"-"@XX1:YY@BARBAR1:BAR3BAR0@BAR0ĺ"/";@BAR1ĺ"+";@BAR2ĺ(92);@@AYY:XX1)598#?DIR2RO(XX1,YY1)5984?OX:OY:" "O?DIR1YYYY1:XXXX1j?DIR2YYYY1:XXXX1?DIR3ĢOY:OX1:" ":XXXX1?RO(XX2,YY)598?OX:OY:" "?XXXX1:DIR4?GO(XX1,YY)1G0G01:GO(XX1,YY)0?598?@DIR1YYYY1:XXXX12>DIR2YYYY1:XXXX1T>DIR4ĢOY:OX1:" ":XXXX1i>RO(XX2,YY)598z>OX:OY:" ">XXXX1:DIR3>GO(XX1,YY)1G0G01:GO(XX1,YY)0>598>>DIR3DIR4:XX1:YY:" ":598?DIR1RO(XX1,YYX1:YYYY1 =yRO(XX,YY2)598B=zDIR1ĖOX:OY1:" ":YYYY1T={YYYY1:DIR2}=|GO(XX,YY1)1G0G01:GO(XX,YY1)0=}598=~=DIR4DIR3:XX1:YY:" ":598=DIR1RO(XX1,YY1)598=DIR2RO(XX1,YY1)598=OX:OY:" ">IR2ĖOX:OY1:" ":YYYY1-;fc;gDIR2DIR1:XX:YY1:" ":598;hDIR3RO(XX1,YY1)598;iDIR4RO(XX1,YY1)598;jOX:OY:" ";kDIR3XXXX1:YYYY1;lDIR4XXXX1:YYYY1;mRO(XX,YY2)5989GZ(20(1))4Q9HT(38(1))1`9IZ:T:"O"n9JRO(T,Z)1v9KLL9LLL1409MZ(20(1))29NT(38(1))19OZ:T:"G"9PGO(T,Z)19QLL9RMV09SOX20:OY19TYY1:XX20:DIR2:U YOU WANT OR IF YOU CAN'T COLLECT ANY MORE GOLD, PRESS THE 'ESC' KEY."8;3:::"YOU HAVE 50 MOVES BEFORE YOU GET TIRED"::"AND MUST QUIT."::"GOOD LUCK.":38<FZ1:8=8>A$" "8?8@9ALL324 DOWN, LEFT AND RIGHT.":3:]78:"COLLECT GOLD WITH YOUR DIGGER BY RUNNING INTO THE 'G'S."79:"UNFORTUNATELY, YOU CAN'T DIG THROUGH"::"ROCKS ('O'S), AND GOLD SOMETIMES APPEARS"::"ON TOP OF THEM.":3:I8::"WHEN YOU HAVE COLLECTED ALL THE GOLD462A1F(9)1ĺ:"YOU DON'T HAVE A PAN!!":3:556m63A2F(11)1ĺ:"YOU DON'T HAVE A CRADLE!!":3:556y64FZ57365::"DIGGING FOR GOLD":66:"THIS IS YOU --> ! ";(8);"*":34,1:3:77:"THE 'I', 'M', 'J', 'K' KEYS WILL MOVE YOU UP,: MODIFIED AND AUGMENTED K': FOR THE x':COMPUTER EDUCATION CENTRE ': BY': LACHLAN ARNOTT 1988 ':*************************  REBOOTDISC "