' +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,&" HLLHLЭh`hLlH  !"#$%&'()*+,-./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+"04+"0?!)E(!B++H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠HL ЭhLHIHHHHhHH݌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`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-|}(. @Ϡ@跻~!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 B / / ]ƴ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 ~(` wi d ֠Ġz"`# u`P O O W W W !!!"2"P O O W W W !!!"P"P O O WW WW "n"P OOO W W !!!"u3~:8"YOU SAVED YOUR MONEY, BUT MUST PAY":DMG((1)20)11"OLD DOC BLANCHARD $";DMG;" TO FIX YOU UP."3 M0N%Z1$%!GLAF1FLAG0Z$"-"Z$*%&W1694 $A(Z$):1670:1700::J$23:"PRESS TO CONTINUE...";b$Z$:(Z$)131701h$$FLAG0:Z$""FLAG1:$ FLAG0:GLAF0:(Z$,1)"-"GLAF1$ GLAF1Z$(Z$,(Z$)1)$ Z11(Z$):Z2((Z$,Z1,1))$Z248Z257FLAG1RR! IT'S TOO COLD TO COMPUTE!":"PLEASE ENTER A WARMER TEMPERATURE."::1700:1655#A1(A32)59::A;" DEGREES F = ";(10A1.5)10;" DEGREES C"##:3#:"ENTER DEWPOINT IN DEGREES F: ";Z$$1799:FLAG1ĺ"THAT'S NOT A VALID ANSWER!":ERATURE IN DEGREES F AND PRESS =>";:"}Z$:1799j"~FLAG1ĺ"THAT'S NOT A VALID ANSWER!":1660v"A(Z$)"1670:1700:1693"A150ĺ:"HELP! MY DIODES ARE FRYING!":"PLEASE ENTER A COOLER TEMPERATURE."::1700:1655R#A70ĺ:"BRRRSS 'RETURN'.":L!@1700::2::"WHICH TEMPERATURE UNITS ARE YOU USING?":e!J" F = FAHRENHEIT":{!T" C = CELSIUS":!^"(C OR F) =>";!_Q$:Q$""1631!hQ$"C"ĺ::!rQ$"F"ĺ:"TRY THAT AGAIN PLEASE!":1630!{:3,"|:"ENTER TEMP1540 :10h "A1A.13332::A;" MILLIMETERS OF MERCURY = ";(10A1.5)10:28:"KILOPASCALS":1600r +1600| ,1600 5::: 6"YOUR PRESSURE UNITS MUST BE CONVERTED TOONE OF THE ABOVE."::"WHEN YOU HAVE DONE THIS, TYPE 'RUN' AND"!;"PRE ";(10A1.5)10;" KILOPASCALS":16005:2:A350:"ENTER BAROMETRIC PRESSURE IN MILLIMETERSOF MERCURY AND PRESS =>";Z$:1799FLAG1ĺ"THAT'S NOT A VALID ANSWER!":1540 A(Z$)A650ĺ:L$::1540 A850ĺ:H$::SURE IN INCHES OF MERCURY AND PRESS =>";@Z$:1799pFLAG1ĺ"THAT'S NOT A VALID ANSWER!":1500|A(Z$)1510DL1800:DL:1499A26ĺ:L$::1500A33ĺ:H$::1500:10&A1A3.3164::A;" INCHES MERCURY =ARS AND PRESS ==>";+Z$:1799[FLAG1ĺ"THAT'S NOT A VALID ANSWER!":1460gA(Z$)A800ĺ:L$::1460A1200ĺ:H$::1460A1A.1::A;" MILLIBARS = ";A1;" KILOPASCALS":1600:2:A3502:"ENTER BAROMETRIC PRES:'n" 3 = MILLIMETERS OF MERCURY":Ax" 4 = KILOPASCALS":a16:"(1, 2, 3, OR 4) ==>";wQ$::Q$""1420(Q$)49(Q$)521420Q(Q$):Q1459,1499,1539,1579,1589:2:A350"ENTER BAROMETRIC PRESSURE IN MILLIB"N"1330AQ$"N"ė:2:#GrH:2:"PLEASE MAKE A COPY OF ALL CONVERSIONS, I WILL NOT REMEMBER THEM!"xIP5:"YOUR BAROMETRIC PRESSURE READINGS ARE INWHICH OF THE FOLLOWING UNITS?":Z" 1 = MILLIBARS":d" 2 = INCHES OF MERCURY"S PROGRAM.":="BAROMETRIC PRESSURE IS IN KILOPASCALS.":u("TEMPERATURE AND DEWPOINT ARE IN DEGREES CELSIUS."{-2:21:958:"DO YOU NEED TO CONVERT ANY OF YOUR DATA TO METRIC UNITS? "7"(Y FOR YES OR N FOR NO)=>"; <Q$::Q$"Y"Q$H"IS THERE ANYONE ELSE WHO WANTS":"TO TRY THIS PROGRAM? (Y/N) =>";\Z$:Z$""1281jZ$"Y"Ĭ|Z$"N"1281 :D$(4):D$;"RUN MENU";: *** METRIC CONVERSION SUBROUTINES ::"ONLY METRIC UNITS WILL BE ACCEPTED BY THI."t~1280(A41A441190>A45A481220H1230"RAIN WITH HIGH WINDS, FOLLOWED WITHIN ONE DAY BY CLEARING, AND IN WINTER, COLDER."1230"CLEARING AND COLDER."::"THANK YOU"::"HAVE A NICE DAY!": OR NOT FALL FOR SEVERAL DAYS.")B1140hL"SUMMER: LIGHT TO MODERATE WINDS, GOOD CHANCE OF RAIN."V"WINTER: RAIN OR SNOW, WITH INCREASING WINDS, OFTEN WILL SET IN WHEN THE"`"BAROMETER BEGINS TO FALL AND THE WIND SETS IN FROM THE N OR NEME$"." ''X((1)3)T'X1ĺ"WE'LL BE LEAVING EARLY IN THE MORNING.":417Z'z'"YOU WILL HAVE TO STAY AT"''"THE HOTEL UNTIL THEN."':'"IT WILL COST YOU THREE DOLLARS FOR A"'("SPOT ON THE FLOOR, AND $12 FOR MEA&" 2) WALK (FREE)" &@&" 3) HORSE/MULE ($30-$80)"R&CHOICE3:233e&A391,438,447o&::&M0NEY20398&&"YOU DO NOT HAVE ENOUGH MONEY!!"&&3&378&M0NEYM0NEY20'"THAT'LL BE $20 FOR THE TICKET, "NA COME OVER TO THE STORE?""%w2404%xA1İ53:379p%y:17:958:"YOU WILL NEED TO GET SOME SUPPLIES!":373z%z::%{"THERE ARE A COUPLE OF WAYS TO GET TO THE";%|%}"GOLD FIELDS FROM SACRAMENTO."%~%%" 1) STAGECOACH ($20)"&NER! MY NAME IS JOHN SUTTER."I$m"I WANT TO WELCOME YOU TO SACRAMENTO."O$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$u%v"DO YOU WANT TO^1#_"GOLD PROSPECTING GEAR, AND TRANSPORTA-"7#`W#a"TION TO THE GOLD FIELDS."^#b3d#cl#d:r#e:#fHI0RLOFLAG1#g:#h"WHILE YOU ARE IN SACRAMENTO, A MAN"#i#j"COMES UP TO GREET YOU SAYING,"#k:$l(34);"HOWDY, PARDING AND""S7"T"TO MAKE AS MUCH MONEY AS POSSIBLE"="UZ"V"BEFORE TIME RUNS OUT."a"W3k"X::"Y"YOU HAVE JUST COME FROM THE EAST""Z"["COAST AND HAVE $";M0NEY;" LEFT TO SPEND.""\"]"YOU MUST BUY FOOD, CLOTHING, SUPPLIES,"#TO THE GENERAL STORE FIRST!"#!G34!HHI0RLOFLAG2: ? @" 1) SACRAMENTO" A B" 2) GOLD FIELDS" CCHOICE2:233 DA355,325 E:!F"LET'S GO OD." *+I113#,I83033-F(I)0303A.ITEM$(I)H/I0F(9)1F(11)1ĺ"YOU MUST HAVE A MINING TOOL!":3:521323:::255:104"WHAT'S YOUR NAME, FRIEND?"5" -> ";NAME$6NAME$""(NAME$)93077:10Y FEED FOR HER WHEN"A"YOU GET TO THE HILLS. BRUSH HER DOWN"p"EACH MORNING AND TIE HER UP EACH NIGHT."w3 H0RSE1!"#::2$15);"INVENTORY"%&"YOU HAVE:"'("$";M0NEY;" IN GOLD.")TPF;" POUNDS OF FO9M0NEYM0NEYHF"THEN IT'S A DEAL. WHAT ARE YOU GOING"_"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 FORGET TO BU TO DEAL?"240 A2289*::O"LET'S SEE WHAT ELSE I HAVE..."`I12000:Ifo 251 M0NEYH276   "YOU DO NOT HAVE THAT MUCH MONEY""DO YOU STILL WANT TO DEAL?"240A126128(A$"N")$("YESNO",(A1)31,3)*0:::P"HOWDY PARDNER!"V}"IF YOU ARE LOOKING FOR A HORSE,"H((1)50)30"I HAVE ONE FOR $";H;".""DO YOU WANT IT?"240A1266 "DO YOU STILL WANTY25):WO5219"X((1)10)18X1WOWO2:227N((1)15)0232[WOWOWOd229jpPROMPT$(CHOICE);A$A(A$)A1ACHOICE235A:"(TYPE Y OR N) ";A$A$"Y"A$"N"241A1 U"A SUMMER STORM HAS JUST HIT, MAKING YOU LOSE VALUABLE TIME!"\3bqT0:FLAG0|X(1)Y3232.5TT.399(2.7183(5.(Y8)2))T16XFLAG1:Y32YFLAGYY(((1)50)1)WO(G050)(EYM0NEYDMGH"WHILE YOU WERE MINING, AN OLD GOLD"s:"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)13":3:G78:"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:38::"WHEN YOU HAVE COLLECTED ALL THE GOLD YOU WANT OR IF YOU CAOU DON'T HAVE A PAN!!":3:556W63A2F(11)1ĺ:"YOU DON'T HAVE A CRADLE!!":3:556c64FZ57365::"DIGGING FOR GOLD":66:"THIS IS YOU --> ! ";(8);"*":34,1:3:77:"THE 'I', 'M', 'J', 'K' KEYS WILL MOVE YOU UP, DOWN, LEFT AND RIGHT.5(ILL1ĺ:"IT COST $20 TO SEE OLD DOC BLANCHARD.":M0NEYM0NEY20J5)3g5*MOVINGFLAG1ė:::7035+F(9)0F(11)0PCA.3:7305,::5-"DO YOU WANT TO USE A"5.5/" 1) PAN"50" 2) OR CRADLE"51CHOICE2:23362A1F(9)1ĺ:"YMALARIA.":ILL1:552S4$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.":5524'"YOU ARE SLOWED DOWN BY SORE HANDS AND":"FEET."CHEAL30ė:::"DUE TO POOR HEALTH YOU HAVE":"DIED!!":3:887K3::[3X((1)2)e3ILL0v3HEAL455463HEAL605483 HEAL855503!5543"X1ĺ"YOU HAVE DYSENTERY. YOU ARE VERY ILL.":ILL1:5524#"YOU ARE VERY ILL. YOU HAVE :3:518@2EA1ĺ:"YOU DIED FROM NOT EATING WELL!!":3:887O2TPFTPFEAd2STINJURYFLAG10u2INJURYFLAG02EA6FO152EA8FO102EA12FO52EA16FO02X(F(1)F(6)F(7)F(10))42HEALHEAL(FOSTWEEK)X2ST0A3"YOU RAN OUT OF FOOD AND STARVED TO DEATH.":3:887i1"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 THAT MUCH FOOD LEFT!!":0I11000:I0-0MOVINGFLAG1517@0X((1)11)1s0X116,116,116,116,116,117,137,214,155,214,2050M0NEY08780H0RSE1F(5)0ė:::"YOU FORGOT TO BUY FEED FOR "HN$",":"AND YOUR HORSE HAS DIED!":3:H0RSE00:5;1TPF0ĺU RUN OUT OF MONEY YOU WILL HAVE"'/N/"TO GET A JOB, AND STOP PLAYING."T//:"LET'S GET STARTED WITH OUR FIRST WEEK"//"OF GOLD PROSPECTING, ";NAME$;"."/3/CITYNUMBER0/WEEK18///9:170"WEEK# ";WEEK DEPENDING ".5."ON WHAT YOU HAVE PURCHASED.";.j.:"AT THE END OF EACH WEEK YOU MAY GO TO"p..:"TOWN TO HEAR NEWS REPORTS, BUY ".."SUPPLIES, MOVE TO ANOTHER SPOT, OR".."STOP PLAYING.".3.::!/"IF YOHOT." -;-:"IF YOU WANT TO GET RICH, YOU WILL WANT"A-j-"TO TAKE CARE OF YOUR HEALTH, MAKE"p--"GOOD DECISIONS, AND HAVE GOOD LUCK."-3-::-"YOU CAN CHOOSE TO USE A PAN OR CRADLE"- ."FOR PROSPECTING EACH WEEK,,"CALIFORNIA.",31,((1)3)1İ1177,H,INJURYFLAG0T,HEAL90j,NCL$"MARYSVILLE"{,HI0RLOFLAG2,::,"IT IS NOW MAY 27, 1849. YOU HAVE ABOUT",,"EIGHT WEEKS FOR PROSPECTING BEFORE IT",-"WILL GET TOO H0RSE0378+::?+"WELL, ";NAME$;", LET'S SADDLE UP"E+i+HN$;" AND HEAD FOR THE HILLS."o++"THE TRAIL ON WHICH WE ARE RIDING IS"++"THE CARSON IMMIGRANT TRAIL THAT THE"++"PIONEERS WALKED AND RODE TO GET TO",O THE ROBBER.""*M0NEYM0NEYDMG)*32*464<*::d*"WE WILL BE WALKING UP THE CARSON"j**"EMIGRANT TRAIL THAT THE PIONEERS"**"HAVE USED TO COME TO CALIFORNIA."*3*X((1)10):Xİ117*464*H0RSE0İ246 +SON EMIGRANT TRAIL USED BY PIONEERS"*)T)"WHO CAME OVER ON FOOT AND BY WAGON"Z))"THE LAST FEW YEARS BEFORE THE RUSH.":3)((1)10)1437):7)"THE STAGE COACH WAS ROBBED!"))DMG((1)10)6*"YOU LOST $";DMG;" TLS."(M0NEYM0NEY15(K("NOW IT'S TIME TO SIT AROUND SACRAMENTO"Q(p("AND WAIT FOR THE STAGE."w(3(M0NEY0878(::("THE STAGE IS LOADING, SO LET'S GO!!"((:"THE TRAIL THAT WE ARE TAKING IS THE"($)"CAR QUIT PROSPECTING" GMV0763&G?G" 4) MOVE TO ";NCL$GG:\GCHOICE3MV:233sGA775,824,828,766}G::G"YOU WILL LOSE ONE WEEK OF PROSPECTING"G"IF YOU MOVE."GG"DO YOU STILL WANT TO?"G240GA2751HMOVI'F"THERE IS A NEW GOLD STIKE IN"-F7FNCL$>F3DFNF::uF"ALL RIGHT "NAME$", IT'S SUNDAY."F"WHAT DO YOU WANT TO DO TODAY?"FF" 1) GO TO TOWN FOR SUPPLIES OR FUN"FF" 2) CONTINUE PROSPECTING"FG" 3)RIKES THIS WEEK.":3:750"EMV1>ECITYNUMBERCITYNUMBER1bECITYNUMBER739,740,741,742,743ENCL$"JACKSONVILLE":744ENCL$"DOWNIEVILLE":744ENCL$"WEAVERVILLE":744ENCL$"OROVILLE":744ENCL$"WHISKEYVILLE"E"HEY, "NAME$"!"F:726DD2(D21.5):D"AND FOUND "NF$" WORTH $"D2","SDNF$"ANOTHER NUGGET"`DGNGND2iD719|DM0NEYM0NEYGNDD"YOU NOW HAVE $"M0NEY"."D3DD20DGN0D:5DMV0DWEEK8824E((1)5)ĺ:"NO NEWS ON NEW STG0CD2(WO2)CPCA1$CF80.C::VC"WELL "NAME$", LET'S SEE HOW MUCH"wC"GOLD YOU FOUND THIS WEEK."}CC"YOU HAVE FOUND $"D1" IN GOLD DUST,"CGND1CD2D21.5CNF$"A NUGGET"CX((1)3)1DX1ĺ"AND THAT'S ALL."'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.5BWLCWLC1CD1(((WOPCA)(WLC(WOILL))))1ABARBAR1:BAR3BAR0-ABAR0ĺ"/";>ABAR1ĺ"+";QABAR2ĺ(92);WA]AiAYY:XXrA"-"AXX1:YYABARBAR1:BAR3BAR0ABAR0ĺ"/";ABAR1ĺ"+";ABAR2ĺ(92);AA16368,0RB:12:"OK, ";NA$;" LETXX@BARBAR1:BAR3BAR0/@BAR0ĺ"/";@@BAR1ĺ"+";S@BAR2ĺ(92);Y@_@k@YY:XXt@"-"@XX1:YY@BARBAR1:BAR3BAR0@BAR0ĺ"/";@BAR1ĺ"+";@BAR2ĺ(92);@@@YY:XX@"!"AXX:YYX1,YY1)598?OX:OY:" "9?DIR1YYYY1:XXXX1T?DIR2YYYY1:XXXX1v?DIR3ĢOY:OX1:" ":XXXX1?RO(XX2,YY)598?OX:OY:" "?XXXX1:DIR4?GO(XX1,YY)1G0G01:GO(XX1,YY)0?598??YY:XX?"!"@1>DIR2YYYY1:XXXX1>>DIR4ĢOY:OX1:" ":XXXX1S>RO(XX2,YY)598d>OX:OY:" "v>XXXX1:DIR3>GO(XX1,YY)1G0G01:GO(XX1,YY)0>598>>DIR3DIR4:XX1:YY:" ":598>DIR1RO(XX1,YY1)598 ?DIR2RO(X,YY2)598,=zDIR1ĖOX:OY1:" ":YYYY1>={YYYY1:DIR2g=|GO(XX,YY1)1G0G01:GO(XX,YY1)0p=}598v=~=DIR4DIR3:XX1:YY:" ":598=DIR1RO(XX1,YY1)598=DIR2RO(XX1,YY1)598=OX:OY:" ">DIR1YYYY1:XXXXYY1A$" "8?8@8ALL3248BLL8CA$9D ELSE WHO WANTS":"TO PLAY (Y OR N) =>";616368,0JZ$:Z$""1212XZ$"Y"ĬjZ$"N"1211r10:9:" * * * T H E E N D * * *"D$(4):D$;"RUN MENU";:%Ak776,255:777,255:778,173:779,48:780,192:781,136:782,208:783,5:784,206:785,9:786,3:787,240788,9:789,202:790,208:791,245:792,174:793,8:794,3:795,76:796,10:797,3:798,96:776,100:777,50:778:(:2:"IS THERE ANYONE(34) U3U:U10AU"WOULD YOU LIKE TO PLAY AGAIN?"JU240UUA1Ĭ[UUNAME$;", GOLD FEVER WILL BRING YOU"U"BACK SOMEDAY."UU"THANKS, AND SEE YA LATER, PARDNER."UU(4);"RUN MENU"T"TO YOUR DIGGINGS."TGT"WHILE DIGGING THE GRAVE THEY FOUND"aT"A NEW GOLD STRIKE."gTT"THEY COVERED YOUR COFFIN WITH THE "T"MUD AND ROCKS FROM THE NEW STRIKE."TT"TO THIS DAY IT IS KNOWN AS"U(34);NAME$;"'S HILL.";COFFIN AND A NICE GRAVE"&S"STONE.",SXS"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,"S"YOUR FRIENDS STARTED TO BURY YOU NEXT"8/R~"YOUR FRIENDS HAVE TAKEN SOME OF YOUR "ZR"MONEY FOR A COFFIN, AND PAID FOR IT"R"TO BE SHIPPED TO YOUR FAMILY BACK EAST."R"YOUR FAMILY WILL GET $"M0NEY100"."R921RR"YOU FRIENDS HAVE TAKEN SOME OF YOUR"S"MONEY FOR A Qr2Qs"TAKE A JOB IN TOWN AND TRY PROSPECTING"8QtPQu"AGAIN NEXT YEAR."YQv921cQw::Qx"YOU HAVE DIED IN THE GOLD FIELDS."Qy"YOU HAVE $";M0NEY;" LEFT OVER FROM"Qz"PROSPECTING AND SAVINGS."Q{M0NEY20908Q|M0NEY150899R}PhMMM0NEY10000!PiMM0877GPj"YOU ARE ONE OF THE LUCKY FEW, "oPkNAME$". YOU REALLY STRUCK GOLD!!"xPl921Pm:"YOU DON'T HAVE ENOUGH MONEY!":3:827Pn:5Po"WELL, ";NAME$;","Pp:Pq"YOU RAN OUT OF MONEY. YOU WILL HAVE TO"SINESSES ENDED UP"=O]"OWNING RAILROADS. MAYBE THAT COULD"SO^"HAPPEN TO YOU!"\O_921mO`MMM0NEY600{OaMM0877Ob"GOOD JOB, "NAME$". WITH"OcOd"MORE LUCK YOUR BUSINESS WILL DO WELL"OeOf"AND YOU WILL BECOME RICH."Pg3:921EADY MONEY."NS921&NTMMM0NEY1004NUMM0877bNV"NOT MANY MADE IT BACK TO THEIR FAMILY."hNWNX"YOU LEFT THE GOLD FIELDS WITH $"M0NEY"."NY921NZMMM0NEY400:MM0877N["FEW WERE AS SMART AS YOU. SOME OF "O\"THOSE WHO BOUGHT BU,MH" 3) BUY A SHARE IN A LOCAL BUSINESS"2MI]MJ" 4) GO BACK EAST AND BUY A BUSINESS"cMKML" 5) LIVE THE LIFE OF THE RICH"MMCHOICE5:233MN:5MOA848,852,858,872,922MP"THE SMELL WON'T BE THE SAME, BUT IT"MQ NR"WILL BE STTHE END OF YOUR JOURNIES, YOU HAVE"PL?"$";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"LELF" 2) GO BACK EAST"MG TO DO NOW?"K/"K0" 1) SHOP"(K1DK2" 2) GO TO THE SALOON"JK3iK4" 3) GO BACK TO DIGGINGS"rK5AAAK6CHOICE3:233K7A789,791,824K8M0NEY0878K9MOVINGFLAG0K:WEEKK;K<:K="SO YOU ARE ALL DONE, "NAME$"!"#L>"AT TRY AGAIN!":797$J!X((1)20)15J"XM0NEY801LJ#GAMBLE(GAMBLEX)RJ$jJ%"YOU LOST $"GAMBLEJ&M0NEYM0NEYGAMBLEJ'ML(M0NEYX)J(J)"YOU PAID $"ML" FOR FUN."J*3J+M0NEY0878J,AA3824J-:: K."WHAT DO YOU WANT24 I813I::?I"WELCOME TO THE LONG BRANCH SALOON."EIpI"WOULD YOU LIKE TO DO SOME GAMBLING?"yI240IA2807II"HOW MUCH MONEY TO GAMBLE WITH?";GAMBLE$IGAMBLE(GAMBLE$)J GAMBLEM0NEYĺ:"YOU DON'T HAVE THAT MUCH,NGFLAG1H824"HM0NEY0878,H::CH "DO YOU WANT TO:"IH lH " 1) GO TO THE GENERAL STORE"rH H " 2) GO TO THE SALOON"HH" 3) BOTH"HH" 4) NEITHER"HCHOICE4:233HAAAHA789,791,813,751I53:AA38MBERS"   3000(& (AD)03170A0 ((D2)S1)03210K: 3280fD S" BUSHELS IN STORE."lN vX 3000b 3280l A" ACRES."v  3000 (D10P1)03260 3280 P;" PEOPLE."  3000 SS(D2) 1390!OU FINISHED WITH $";Z;". SO LONG.")%TFOR $1.25)":AD$,v$ AD1ĺ"BAD CHOICE. THE BIGGER DEMAND FOR CHOCOLATE WILL DRIVE UP COCOA PRICES.":1050$ "YES! THIS INCREASE IN DEMAND WILL CREATE HIGHER COCOA PRICES FOR YOU.":311#%:"THANKS FOR PLAYING THE COCOA GAME. YES FOR YOU.":1050`# :"SMART MOVE! A SMALL SUPPLY OF COCOA MEANS HIGHER PRICES.":311#*:"CHOCOLATE SALES ARE WAY UP ALL OVER WORLD. DO YOU WANT TO GAMBLE ON THE FUTURE PRICE OR SELL NOW FOR $1.25? (TYPE 0 FOR GAMBLE"$+"OR 1 G AREAS HAVE HAD A DROUGHT! DO YOU WANT TO GAMBLE ON THE FUTURE PRICE OR SELL NOW FOR $1.25 PER KILOGRAM?"" "(TYPE 0 GOR GAMBLE OR 1 FOR $1.25)":AC"#AC1ĺ"TOO BAD. A SMALLER SUPPLY OF COCOA BEANS WOULD HAVE MEANT HIGHER PRICAB1ĺ"GOOD CHOICE. THE SMALLER DEMAND FOR CHOCOLATE WILL CERTAINLY DRIVE DOWN COCOA PRICES.":1050!"OOPS! A FALLING DEMAND FOR CHOCOLATE MEANS LOWER PRICES. YOU SHOULD HAVE TAKEN THE $1.25 PER KG.":311u" :"SOME OTHER COCOA GROWIN11k :"NEWS FLASH! THE WORD IS OUT THAT CHOC- OLATE CAUSES PIMPLES! KIDS ARE BUYING LESS CHOCOLATE." "DO YOU WANT TO GAMBLE ON THE FUTURE PRICE OR SELL NOW FOR $1.25 PER KILO- GRAM? (TYPE 0 FOR GAMBLE OR 1 FOR $1.25)":AB l!TUREf"PRICE OR SELL NOW FOR $1.25 PER KILO- GRAM? (TYPE 0 FOR GAMBLE OR 1 FOR $1.25)":AAlAA1ĺ"GOOD CHOICE. A BIG CROP MEANS FALLING PRICES.":1050 "TOO BAD. A BIG CROP LIKE THIS IS GOING TO DRIVE DOWN THE PRICES!":314000:Q:R"TYPE 1 IF YOU WISH TO CONTINUE AND 0 IF YOU WISH TO STOP.":GaG0ī4000g"GOOD! LET US BEGIN YOUR NEXT YEAR.":260:"COCOA BEANS HAVE GROWN WELL ALL OVER THE WORLD THIS YEAR. DO YOU WANT TO GAMBLE ON THE FURM AND THE GAME.":4000.Q14000:Q"SORRY. MAYBE YOU'LL HAVE BETTER LUCK IN YOUR NEXT LIFE. SO LONG.":2010lYY1uQ14000:Q:v"YOU HAVE NOW FINISHED YEAR ";Y;". PRAISE BE TO ALLAH! YOU'RE STILL IN BUSINESS." QVED $";.50D;" PER KILOGRAM."0$Q14000:Q:_."O.K., SINCE YOU SOLD ";B200C;" KG. AT"/"$1.25 EACH, YOU MADE $";1.25B200C;" ON"0"YOUR COCOA BEANS."8E1.25B200C:340"YOU HAVE GONE $";Z;" IN DEBT. YOU " "LOSE THE FAT THE PRICE WILL BE LATER.":J1Q14000:Q:?J2ī311NJ1ī1050"NO! NO! NO! YOU MUST TYPE 1 OR 2 AND THEN PRESS RETURN."::1010"YOU CHOSE TO SELL EARLY AT $1.25 PER KILOGRAM. IF YOU HAD WAITED, YOU WOULD HAVE RECEIVE LIVED MANY MORE YEARS.":4000"DO YOU WANT TO SELL YOUR COCOA BEANS NOW FOR $1.25 PER KILOGRAM OR DO YOU WANT TO GAMBLE ON WHAT THE PRICE WILL BE IN A FEW WEEKS?""TYPE 1 IF YOU WISH TO SELL FOR 1.25. TYPE 2 IF YOU WANT TO GAMBLE ON WHATHE SALE OF THIS COFFEE."'HZZ200\R"SO NOW YOU FINISH THE YEAR WITH $";Z;".":1900\"YOU ARE UNLUCKY. YOU CAUGHT MALARIA AND WILL SOON DIE FROM IT."fpQ14000:Q"z"TOO BAD THAT GHANA LACKS GOOD MEDICAL CARE. YOU COULD HAALONG WITH SUPPLIES WORTH $400."-ZZ400<Z0ī1800B S Q14000:Qz"YOU NOW HAVE ONLY $";Z;".":1900 "THE COFFEE GROWN ON THE FRINGES OF YOUR LAND SOLD FOR A HIGH PRICE."*4Q14000:Q>"YOU MADE AN EXTRA $200 FROM "YOU MUST PAY $200.":/Q14000:Q<ZZ200KZ0ī1800l"YOU NOW HAVE ONLY $";Z;"."v1900"NEWS FLASH--A REVOLUTION HAS BROKEN OUT IN YOUR COUNTRY!!!"Q14000:Q "THE GUERILLAS HAVE BURNED YOUR SHED T E2$\ W3W310$f E20@$p C(I) IS CHANGE IN STOCK VALUEi$z C(I)(AS(I))X1(36(X).5)W3$ C(I)(100C(I).5)100$ S(I)S(I)C(I)$ S(I)03520$ C(I)0$ S(I)0$ 3530$ S(I)(100S(I).5)100$ I,% AFTER T8 BIG CHANGE CONSTANT:W3 (SET TO ZERO INITIALLY)<# W30K# E113390g# (I1.5)(I.5)3390# ADD 10 PTS. TO THIS STOCK; RESET E1#* W310#4 E10#> E213450#H (I2.5)(I.5)3450$R SUBTRACT 10 PTS. FROM THIS STOCK; RESE) "N E21/"X DEDUCT ONE DAY FROM N1 AND N2<"b N1N11I"l N2N21g"v LOOP THROUGH ALL STOCKSr" I15" X1(X)" X1.253250" X1.25" 3330" X1.53280" X1.5" 3330" X1.753310" X1.75" 3330" X102#DAYS HAVE PASSED, PICK AN I1, SET E1, DETERMINE NEW N1 G! N103110^! I1(4.99(X)1)u! N1(4.99(X)1)! E11!& IF N2 DAYS HAVE PASSED, PICK AN I2, SET E2, DETERMINE NEW N2 !0 N203160!: I2(4.99(X)1)"D N2(4.99(X)1S - SUBROUTINEH RANDOMLY PRODUCE NEW STOCK VALUES BASED ON PREVIOUS[ DAY'S VALUES N1,N2 ARE RANDOM NUMBERS OF DYS WHICH RESPECTIVELY DETERMINE WHEN STOCK I1 WILL INCREASE 10 PTS. AND STOCK I2 WILL DECREASE 10 PTS.8! IF N1 ;S(2);18);P(2);25);S(2)P(2);34);C(2)`| " LBJ";9);S(3);18);P(3);25);S(3)P(3);34);C(3) " ABC";9);S(4);18);P(4);25);S(4)P(4);34);C(4) " CBS";9);S(5);18);P(5);25);S(5)P(5);34);C(5) X91  2040 NEW STOCK VALUEGING-DIFFERENT ON MANY COMPUTERS -" "";9, :936a6 "********** END OF DAY'S TRADING"g@ T " PRICE/ NET"^ "STOCK SHARE HOLDINGS VALUE CHANGE"h " IBM";9);S(1);18);P(1);25);S(1)P(1);34);C(1)(r " RCA";9)P5B5S5 C5027604 "YOU HAVE USED $";C5O "MORE THAN YOU HAVE."b XX11000:XXl CC5 CALCULATE NEW PORTFOLIO I15 P(I)P(I)Z(I) I CALCULATE NEW STOCK VALUES 3010 PRINT PORTFOLIO" BELL RIN HAVE OVERSOLD A STOCK; TRY AGAIN."-F 23804P I[Z TOTAL VALUE OF TRANSACTIONS:T5 id T5P5S5n BROKERAGE FEE:B5x B5(.01T5100.5)100 CASH ASSETS=OLD CASH ASSETS-TOTAL PURCHASES -BROKERAGE FEES+TOTAL SALES:C5  C5C Z(4) "CBS"; Z(5)" F TOTAL DAY'S PURCHASES IN $:P5P P50p TOTAL DAY'S SALES IN $:S5z S50 I15 Z(I)(Z(I).5) Z(I)02600 P5P5Z(I)S(I) 2640( S5S5Z(I)S(I)2 Z(I)P(I)2640#< "YOU"TYPE Y FOR YES, N FOR NO : ";' Q9$0 Q9$B$ Q9$"N"3660U. Q9$"Y"2310[8 tB INPUT TRANSACTIONSL "ENTER TRANSACTIONS FOLLOWED BY ";::"RETURN"V ` "IBM";j Z(1)t "RCA";~ Z(2) "LBJ"; Z(3) "ABC";T(100T.5)100?"TOTAL STOCK ASSETS ARE $";TVC(100C.5)100z"TOTAL CASH ASSETS ARE $";CD(100D.5)100"TOTAL ASSETS ARE $";D34,(37)1X902370"DO YOU WISH TO CONTINUE?" I)4TTS(I)P(I)>I9HZ5(100(Z55).5)100WRZ6((Z5Z4)100.5)100l\ TOTAL ASSETS:DwfDTCpX902190z"NEW YORK STOCK EXCHANGE AVERAGE: "Z52210"NEW YORK STOCK EXCHANGE AVERAGE: ";Z5"NET CHANGE: ";Z6NSTEIN, BUMRAP & JOKE";29);"LBJ";34);S(3)]"AMERICAN BANKRUPT CO.";29);"ABC";34);S(4)"CENSURED BOOKS STORE";29);"CBS";34);S(5) NYSE AVERAGE:Z5; TEMP. VALUE:Z4; NET CHANGE:Z6Z4Z5 Z50T0 I15*Z5Z5S(RICTS DATA PROCESSING JOINT BOARD (TIES). "PLEASE THINK AGAIN. YOU HAVE"/ "ONLY ";5 ; }:<><> CONVERTED FROM HP2000F BASIC TO APPLESOFT BASIC, SUMMER 1979, BY TIES INSTRUCTIONAL DESIGN AND DEVELOPMENT STAFF.5d}:<><> COPYRIGHT (C) AUGUST 1979 BY MINNESOTA SCHOOL DISTNT"0#"OF THE COMPANY. YOUR CASH ON HAND IS"B#"NOW $";C(I)H#N#|#"COMPANY ";J;" HAS SUFFERED FIRE DAMAGE"#"IN ITS WAREHOUSE. ALL UNITS WERE"#"DESTROYED. YOUR INSURANCE WILL"#"REIMBURSE YOU IN THE AMOUNT OF "$"$";(UE PRESIDENT HAS JUST IMPOSED A WAGE-"Q"J"PRICE FREEZE ON THE ECOMOMY, AND YOU""T"MAY NOT RAISE THE PRICE OF YOUR PRODUCT""^"OVER THE NEXT 2 QUARTERS.""h"r"|"COMPANY ";I;" HAS BEEN THE VICTIM"#"OF EMBEZZLEMENT BY THE VICE PRESIDEQ14480!E(1)14480/!(1).254120=!Q64120G!4420S!E(2)1m!U(U(1.1.1(1)))w!Q3Q!4480!U(U(1.05.1(1)))!""NEW LABOR CONTRACT - VARIABLE"!,"PRODUCTION COST NOW = $ ";U;" / UNIT"!64480%"@"THC(I)C(I)200 4220! W2Q+ (3710> 2J((1)1.5)P <QW323720Z F4280t PC(J)C(J)UI(J).75 ZI(J)0 dW3Q n3720 xE(1)14020 QW424020 W4Q 4350 E(5)1 Q2Q ((Q1)4)4Q14480 !64020j(1).13740+t(1).13790=~(1).13890O(1).13960Y4020jE(1)03700t4160E(1)1Q1Q3700I((1)1.5)QW223710C(I)03710C(I)2003850C(I).75C(I)3860  7);"********************"( P417. B P(1)P(2)3590K M2U 3600^M1{G4(P(3M)P(M))P(3M)G4G13670$G4G23640.G4G28G5D(3M)((G4G1)(G2G1))G3BD(3M)D(3M)G5LD(M)D(M)G5V`Q17)I(J);31);UI(J)C(J)* (4 500> 2;H .001ER .05W\ 5000,5000 ef 100,100op 250xz 20 .05 .2,.4,.4 12000 1.5 J47 7);"********************" "COMPANY "J;" YOU HAVE GONE BANKRUPT"V(2)A(2)A2) D1(K2K2(KA2))K4/ 9 936K "QUARTER ";QR 3 "PROFIT MARKET SHARE CASH ON HAND" 7 "NUMBER SOLD INVENTORY ASSETS"  3J UI(J)C(J)B(J);17);W(J);31);C(J) 7J T(J);N"3020  5 "FOR WHICH COMPANY DO YOU WISH TO"N "RE-INPUT DATA ? ";U J\& Jb0 : C(J)C(J)FL(J)UA(J)D I(J)I(J)L(J)N F01X 2710b A2A(1)A(2)l A203220v V(1)0 V(2)0 3240 V(1)A(1)A2  AGE-PRICE FREEZE"h !r 2850-| P(J)A= A2002850O P(J)02850U d F013000k J -CHECK TO SEE ALL DATA IS CORRECT "ARE ENTRIES CORRECT?" "TYPE Y FOR YES, N FOR NO : "; A$ A$ A$"Y"3170 A$" L(J)02760, "ADVERTISING BUDGET";6 A(J)G A(J)02790d C(J)C(J)FL(J)UA(J)u E(2)12850 I(J)I(J)L(J)" "UNIT PRICE";, A6 E(1)12940@ AP(J)2940J T "YOU MAY NOT RAISE PRICES DURING THE"^ "W"N"2670F HT$"Y"2590!P 'Z 1d 13007n =x F F00Q J12z "COMPANY ";J;" HIT ";::"RETURN"; :" AFTER EACH ENTRY" E(2)12760 "NO PRODUCTION POSSIBLE DUE TO STRIKE" 2790 "PRODUCTION LEVEL"; L(J)****************"R "COMPANY ";J;" YOU HAVE REACHED ".001M1;" MILLION AND WON"r 7);"********************"x  J  P4172130 20 "DO YOU WANT TO PLAY AGAIN?" "TYPE Y FOR YES, N FOR NO : ";( HT$2 HT$< HT$CESSING JOINT BOARD (TIES). O&B!&L:"HOPE YOU HAD FUN!"'&V&}:<><> CONVERTED FROM HP2000F BASIC TO APPLESOFT BASIC, SUMMER 1979, BY TIES INSTRUCTIONAL DESIGN AND DEVELOPMENT STAFF.!'d}:<><> COPYRIGHT (C) AUGUST 1979 BY MINNESOTA SCHOOL DISTRICTS DATA PRO DAYS RANDOMLY CHANGE TREND SIGN AND SLOPE 9% T8T81H% T813580N% % RANDOMLY CHANGE TREND SIGN AND SLOPE (A), AND DURATION OF% OF TREND (T8)%T8(4.99(X)1)%A(((X)10)100.5)100%$S4(X)%.S4.53650&8AAILEAGE IS ";M;" WITH ";2040M;" TO GO":2040]!"TOTAL MILEAGE IS 950 WITH 1090 TO GO":M90":"FOOD","BULLETS","CLOTHING":"----","-------","--------":F,B,C::"----------------------------------------":"MISC. SUPP.","CASH":"-----------","----":850B 0"YOU'D BETTER DO SOME HUNTING OR BUY FOOD, AND SOON!"w :F(F):B(B):C(C):M1(M1):T(T):M(M):M2M S411950 K811950 1990 TT20:T15080 "THE DOCTOR BILL WAS $20" K80:S40 M912020,!"TOTAL MDECEMBER 20 ";:1720"YOU HAVE BEEN ON THE TRAIL TOO LONG. ---- YOUR FAMILY DIES IN THE FIRST BLIZZARD OF THE WINTER.":5170"1847"F01770F0B01790B0C01810C0M101830M10 &F131LY 19 ";:1720&"AUGUST 2 ";:1720?"AUGUST 16 ";:1720X"AUGUST 31 ";:1720t"SEPTEMBER 13 ";:1720"SEPTEMBER 27 ";:1720""OCTOBER 11 ";:17206"OCTOBER 25 ";:1720J"NOVEMBER 8 ";:1720^"NOVEMBER 22 ";:1720r"90,1410,1430,1450,1470,1490XD3101510,1530,1550,1570,1590,1610,1630,1650,1670,1690p"APRIL 12 ";:17202"APRIL 26 ";:1720F"MAY 10 ";:1720Z"MAY 24 ";:1720n"JUNE 7 ";:1720"JUNE 21 ";:1720"JULY 5 ";:1720"JU":830BB50U:"AFTER ALL YOUR PURCHASES YOU NOW HAVE ";T;" DOLLARS LEFT"]:}"MONDAY, MARCH 29, 1847":1750M20405430 ***SETTING DATE***D3D31:"MONDAY ";D3101300 D31310,1330,1350,1370,13 MISCELLANEOUS SUPPLIES? ";M1$1B(M1$)01110BGM1((M1$))lL(M1$)0(M1$)(700AF(C$))1130V"IMPOSSIBLE":1080jT700AFBCM1tT01170yA0:F0:B0:C0:M10~"YOU OVER SPENT -- YOU ONLY HAD $700 TO SPEND. BUY AGAIN$)CM1)1020$"IMPOSSIBLE":9808B((B$)):860x:"HOW MUCH DO YOU WANT TO SPEND ON CLOTHING? ";C$(C$)0(C$)(700AF(C$)BM1)1070$"IMPOSSIBLE":1030.C(C$):8608:"HOW MUCH DO YOU WANT TO SPEND ON :"HOW MUCH DO YOU WANT TO SPEND ON FOOD? ";F$[(F$)0(F$)(700AB(F$)CM1)960r"IMPOSSIBLE":930F((F$)):860:"HOW MUCH DO YOU WANT TO SPEND ON AMMUNITION ($1 BUYS 50 BULLETS)?";B$ (B$)0(B$)(700AF(B:S40:F10:F20:M0:M90:D30%>:mR"HOW MUCH DO YOU WANT TO SPEND ON YOUR OXEN TEAM (200-300)? ";A$S(A$)0(A$)200(A$)300ĺ"NOT POSSIBLE!!":850[A((A$)):865\:"YOU HAVE ";700AFBCM1;" DOLLARS LEFT"]a860.ES":"ENTER ONE OF THE ABOVE -- THE BETTER YOUCLAIM YOU ARE, THE FASTER YOU'LL HAVE TOBE WITH YOUR GUN TO BE SUCCESSFUL. ";D9$:D9$""735(D9$)1(D9$)5735D9(D9$)D9(D9) 810  *** PURCHASES ****X114K80ISTRICTS DATA PROCESSING JOINT BOARD (TIES). / UNIT DUE TO INCREASED WAGES."&' 2'*E(2)08'4>'>'}:<><> CONVERTED FROM HP2000F BASIC TO APPLESOFT BASIC, SUMMER 1979, BY TIES INSTRUCTIONAL DESIGN AND DEVELOPMENT STAFF.8(d}:<><> COPYRIGHT (C) AUGUST 1979 BY MINNESOTA SCHOOL DE(5)14590&Q2Q4590)&E(5)0W&"TRANSPORTATION STRIKE SETTLED. NORMAL"r&"DELIVERIES RESUMED."x&&E(2)14660&Q3Q4660&"STRIKE SETTLED. NORMAL PRODUCTION"& "RESUMED. NEW VARIABLE PRODUCTION COST" '"= $";U;"ERE HAS BEEN A STRIKE AND YOUR"B%N"PRODUCTION HAS BEEN HALTED."m%X"NEGOTIATIONS HAVE BEEN STARTED, BUT"%b"HOPE OF A SETTLEMENT LOOKS DIM."%l%v%E(1)14530%QQ124530%E(1)2%"THE WAGE-PRICE FREEZE HAS ENDED"%&I(J).75);" FOR THESE UNITS."$$*$V$"A TRANSPORTATION STRIKE HAS OCCURED,"$"AND YOU ARE UNABLE TO MOVE YOUR GOODS"$"TO THE DISTRIBUTORS. NEGOTIATIONS HAVE"$"BEGUN, BUT HOPE OF A SETTLEMENT LOOKS"$&"DIM."$0$:%D"THt"OX HURTS ITS LEG --- SLOWS YOU DOWN RESTOF WAY"E1~MM25:AA20O147101"BAD LUCK --- YOUR DAUGHTER BROKE HER ARM. YOU HAD TO STOP AND USE SUPPLIES TOMAKE A SLING."1MM54(1)1M1M123(1)14710%2"OX WANDERS OFF --- SPEN7,22,32,35,37,42,44,54,64,69,95/0.D1103650i08D13660,3700,3740,3790,3820,3850,3880,3960,4130,41900BD1104220,4290,4340,4560,4610,46700L"WAGON BREAKS DOWN -- LOSE TIME AND SUPPLIES FIXING IT."0VMM155(1)0`M1M180j471031 OUT OF BULLETS AND GOT MASSACREDBY THE RIDERS":5170V/ ***SELECTION OF EVENTS*** |/ "PRESS TO CONTINUE...";/ CL$:(CL$)133551/ D10/ / / R1100(1)/ D1D11/D1164670/D/R1D35800$ 6,11,13,15,1470.R T133430.\ 3470'.f MM201.p 3470M.z "THEY DID NOT ATTACK!"W. 3550f. S503500. "THE RIDERS WERE FRIENDLY, BUT CHECK FOR POSSIBLE LOSSES.":3550. "THE RIDERS WERE HOSTILE -- CHECK FOR LOSSES!". B035505/ "YOU RANTO GO SEE OL' DOC BLANCHARD":3470Q- :"KINDA SLOW WITH YOUR COLT .44":3470`- T133290r- (1).83450- BB150:M1M115:3470- 6140- BBB13080:MM25:3140- T113370- MM15:AA10:3470-* T123410.4 BB100:MM5:3, S513330, T113110G, MM20:M1M115:BB150:AA40:3470V,& T123240`,0 6140q,: BBB14080,D B11.53170,N "NICE SHOOTING -- YOU DROVE THEM OFF!":3470,b B143220$-l :"LOUSY SHOT -- YOU GOT KNIFED":K81::"YOU'LL HAVE --":"1 - RUN 2 - ATTACK 3 - CONTINUE 4 - CIRCLE WAGONS":(1).2+ S51S5+ T1$:(T1$)1(T1$)43000+ T1(T1$)+ T11T11+ T14T14, T1(T1)LL":2750**, MM200(A220)5((1)10)8*6 L10:C10T*@ *** RIDERS ATTACK ****J (1)10((M100)272)((M1004)212)13550*L :2*T "RIDERS AHEAD. THEY ";*^ S50*h (1).82940*r "DON'T ";+| "LOOK HOSTILE"::"TACTICS":"----- 1 - POORLY 2 - MODERATELY 3 - WELL ") E$:(E$)1(E$)32760) E(E$)) E(E)) FF(85E)) F02860) FF(85E) * "YOU CAN'T EAT THAT WEEEN THE EYES -- YOU GOT A BIG ONE -- FULL BELLIES TONIGHT"[(x FF52(1)6m( BB10(1)4w( 2720( "YOU MISSED --- AND YOUR DINNER GOT AWAY."( F132750( 5060( *** EATING ***) :"DO YOU WANT TO EAT HUNTING"' 2080%' MM45/' 6140?' B122660X'( (1)10013B12710h'2 FF482B1'< "NICE SHOT -- RIGHT ON TARGET -- GOOD EATIN' TONIGHT!"'F BB103B1'P 2720'Z *** BELLS IN LINE 2660 ***I(d "RIGHT BETW&t "AMMUNITION";&~ 23301& B(B23P50)C& "CLOTHING ";M& 2330[& CC23P{& "MISCELLANEOUS SUPPLIES ";& 2330& M1M123P& MM45& 2720& *** HUNTING ***& B392570' "TOUGH --- YOU NEED MORE BULLETS TO GO FOOD ";=% 2330G% 2410X% P:P02400b%. TTPq%8 T02400%B "YOU DO NOT HAVE THAT MUCH MONEY --- KEEPYOUR SPENDING DOWN, YOU MISS YOUR CHANCE TO BUY THAT ITEM"%L TTP%V P0%` &j FF23P$X32260$B392260`$:"TOUGH --- YOU NEED MORE BULLETS TO GO HUNTING"j$2170y$X1X1(1)$X2290,2540,2720$ *** STOPPING AT FORT***3%"ENTER WHAT YOU WISH TO SPEND ON THE FOLLOWING NUE""#*X$:(X$)1(X$)32090.#4X(X$)?#RX(X):2270M#fX3:2270#z:2:"DO YOU WANT TO: 1 - HUNT 2 - CONTINUE"#X$:(X$)1(X$)22180#X(X$)#X12210#X2$XX1M1,T::.""PRESS TO CONTINUE...";H"QQ$:(QQ$)132051N"^" X112170m"X1X1(1)v":2# :"DO YOU WANT TO: 1 - STOP AT NEXT FORT 2 - HUNT 3 - CONTILONG MILES --- HOORAY !!!!!"qAr::"A REAL PIONEER !!!!!"wA|AF9(F914)AD3D314F9AF9F91AF985560AF9F97A"PRESS TO CONTINUE...";AC$:(C$)135561BCE"@"6700: END-@, *** FINAL TURN ***E@6F9(2040M2)(MM2)\@@FF(1F9)(85E)b@J@T ***BELLS IN LINES 5470,5480***@]::@^"YOU FINALLY ARRIVED AT OREGON CITY"PAh"AFTER 2040 L BE $4.50 FOR THE TELEGRAPH CHARGE ":?"WE THANK YOU FOR THIS INFORMATION AND WE ARE SORRY YOU DIDN'T MAKE IT TO THE GREAT TERRITORY OF OREGON. BETTER LUCK NEXT TIME."::?15):"SINCERELY,"@:2):"THE OREGON CITY CHAMBER OF COMMER:5250>pC$"N"5231W>:"WOULD YOU LIKE US TO INFORM YOUR NEXT OFKIN? (Y/N) ";r>C$:C$"Y"ė:2:5310>C$"N"5250>:2>C$"Y"5310>::"BUT, YOUR AUNT SADIE IN SAINT LOUIS IS REALY WORRIED ABOUT YOU"::5330*?"THAT WILRIES": =2f=<"DUE TO YOUR UNFORTUNATE SITUATION, THEREARE A FEW FORMALITIES WE MUST GO THROUGH "=Z"WOULD YOU LIKE A MINISTER? (Y/N)";=\C$:C$"Y"ĺ:5230=]C$"N"5212=^=n:"WOULD YOU LIKE A FANCY FUNERAL? (Y/N)";>oC$:C$"Y"C182(1)6300<4940.< *** DYING ***d<"YOU RAN OUT OF FOOD AND STARVED TO DEATH":5170l<T0<"YOU CAN'T AFFORD A DOCTOR":5120<"YOU RAN OUT OF MEDICAL SUPPLIES"<"YOU DIED OF ";< K815160<"PNEUMONIA":5170=("INJUMADE IT THROUGH THE SOUTH PASS --- (THERE WAS NO SNOW)"I;$M17004940X;.F214940a;8F21s;B(1).74970;LM9501230;VM91:1230;j"BLIZZARD IN MOUNTAIN PASS -- LOSE TIME AND SUPPLIES":L11:FF25:M1M110:BB300:MM3040(1)<OST --- LOSE TIME LOOKING FOR TRAIL":MM60:4860E:(1).114840:"WAGON DAMAGED! -- LOSE TIME AND SUPPLIES":M1M15:BB200:MM2030(1):4860:"THE GOING GETS SLOW":MM45(1).2:F114900:F114900:F11:(1).849708;"YOU (1).2563009 4710(9*(1).563002944710y9>"HELPFUL INDIANS SHOW YOU WHERE TO FIND MORE FOOD.":FF14:47109\ ***MOUNTAINS*** 9fM95012309p(1)109((M10015)212)48609z"RUGGED MOUNTAINS!!":(1).1147802:"YOU GET LRRRRR! --- YOU ";'8C224(1)453068"DON'T ";?8C11x8"HAVE ENOUGH CLOTHING TO KEEP YOU WARM ":C104710863008"HAIL STORM --- SUPPLIES DAMAGED ":MM5(1)108BB200:M1M14(1)3847108E163008 E34650 9- THE WOLVES OVERPOWERED YOU...":K81:5120?7:B124440s7D"NICE SHOOTING --- THEY DIDN'T GET MUCH":44507X"SLOW ON THE DRAW --- THEY GOT AT YOUR FOOD AND CLOTHES"7bBB20B17lCCB147vFFB18747108"COLD WEATHER --- BRR-BITE SINCE YOU HAVE NO MEDICINE":5170>647106"WAGON GETS SWAMPED FORDING RIVER -- LOSEFOOD AND CLOTHES":FF30:CC20:MM2020(1):47106"WILD ANIMALS ARE ATTACKING!!! ":61406B39441007"YOU WERE TOO LOW ON BULLETS -OD AND SUPPLIES DAMAGED ":FF40:BB400:M1M1(1)83:MM15:47105^"LOSE YOUR WAY IN HEAVY FOG --- TIME IS LOST":MM105(1):47105|"YOU KILLED A RATTLE SNAKE AFTER IT BIT YOU":BB10:M1M15:M10428046"YOU DIE OF SNAKE0N4"YOU GOT SHOT IN THE LEG --- AND THEY TOOK ONE OF YOUR OXEN":K8K814"BETTER HAVE DOC LOOK AT YOUR WOUND":M1M15:AA20:47104"QUICKEST DRAW OUTSIDE OF DODGE CITY!!! --- YOU GOT 'EM!!":4710E5""THERE WAS A FIRE IN YOUR WAGON -- FOT":FF10:BB500:M1M115:MM10(1)5:4710S3x"BANDITS ARE ATTACKING !":6140a3BB20B1p3B040303"YOU RAN OUT OF BULLETS AND THEY GOT A LOT OF YOUR CASH. YOU NOW HAVE $";(T3100)1003T(T3100)100340404B11.5410D TIME LOOKING FOR IT":MM17:4710u2"YOUR SON GETS LOST --- SPEND HALF THE DAY LOOKING FOR HIM":MM10:47102 "UNSAFE WATER -- LOSE TIME LOOKING FOR CLEAN SPRING":MM10(1)2:47102(M9504490.32"HEAVY RAINS -- TIME AND SUPPLIES LOS i@ &N&O ϕLz JKLυML LMJυKLˎ qL ȩ` 6 6P`JLKMLxL L6 L[L JLKMMLILLILLLLy 2L,PQ܅x݅yLÈ آ8ЕNЕKʵ˕{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ă ărLa ?&0ΰ` ΔL 4΅` ȑ` l΅υLD L4 䎴xPiڄeΕPeϕxPȵxڰL# N ONi)OOנԮէŠΠ)a(ǠԠҠӠ̠ՠ)+a(ԠǮȠԠҠҮ)_Q,a(ĠŠϠŠՠĠԠŠ)(a(ŠҠ̠ŠӮ)$a()a(ϠǠҠ׮)Qoa(ՠĠƠҠ̮)a(ՠŠĠϠ͠ҠǬ)a(ԠŠƠҠŮ)_Ra(ՠϠĠΠŠŮ))a(ŠŠǩĠՠ)0a(ԠҠĠŠҠӡ)_'a(ҠŠĠŠ)-a(ԠҬԠ٠ΧԠ)6a(ĠԠ̮)F88/? rrrE()(((N))):(N)0TATA10N0N1TATA1AN0TATA1\TA);N;:FR0ĺ".00";r((FR))2ĺ"0";x 0";HR2:TATB:11500$" WENT TO PAY THE INTEREST."6.@8"$";UBNR3:TATB:1150xL" WENT TO PAY THE PRINCIPAL."~V`"PRESS TO CONTINUE. ";:K$::(K$)131120j936t~N(N100.5)100:FR((N(N))100.5)100:TATAIN$"N"6710!J@IN$"Y"Ľ:100TJJ:10:"GOODBYE UNTIL THE NEXT WAGON TRAIN!":qJD$(4):D$;"RUN";"MENU"UN";"MENU"0=I "BAD ILLNESS --- YOU USED YOUR MEDICINE":MM5:M1M12LI(M105110[I2L114940eI<4710I,24:"PLEASE PRESS . ";:IN$::(IN$)136700 J6:10:"ARE THERE ANY MORE PIONEERS WAITING TO MAKE THE JOURNEY? (Y/N) ";:IN$:IN$"Y"Ͳ *** ILLNESS SUBROUTINE ***;H100(1)1035(E1)6370_H100(1)100(404(E1))6410zH"SERIOUS ILLNESS ---"H"YOU MUST STOP FOR MEDICAL ATTENTION":M1M110:S41:6440H"MILD ILLNESS --- YOUR MEDICINE CURED YOU":MM5:M1M15I644210%GEVVVV1:S$S$(XX128):6210MGFVV3S$S$(S)ĺ"TRY AGAIN.":6209zGG VV=NUMBER OF LETTERS USED TO SHOOT GH XX=KEY BOARD STROBEGI .03003003 X B1 = GIVES TIMEGJB1B1.03003003GKD9D91GLB1B1(D9.05)GMD9D91GHC$:(C$)136142F+FS$(1)"BANG"F@VV0:XX0:B10FAVV0:XX0:S$""FBXX(16384)FC16368,0:XX1416214GDB1B11:XX1286RESIDENT JAMES K. POLK SENDS YOU HIS HEARTIEST CONGRATULATIONS"E:"AND WISHES YOU A PROSPEROUS LIFE AHEAD AT YOUR NEW HOME"E6700E E *** START OF SHOOTING SUBROUTINE ***E"PRESS TO START SHOOTING.";F";D3;" 1847":5920 D D3D3246>D"DECEMBER ";D3;" 1847":DD D*"FOOD","BULLETS","CLOTHING":"----","-------","--------":(F),(B),(C):"---------------------------------------":"MISC. SUPP.","CASH":"-----------","----"::M1,TEE:5):"PD3;" 1847":5920!ClD31555780/CvD3D3124OC"AUGUST ";D3;" 1847":5920`CD31855820nCD3D3155C"SEPTEMBER ";D3;" 1847":5920CD32165860CD3D3185C"OCTOBER ";D3;" 1847":5920CD32465900CD3D3216D"NOVEMBER :2B"MONDAY ";:57002B"TUESDAY ";:5700KB"WEDNESDAY ";:5700cB"THURSDAY ";:5700yB"FRIDAY ";:5700B:F95570,5590,5610,5630,5650,5670,5690B&"SATURDAY ";:5700B:"SUNDAY ";:5700BDD31245740BND3D393CX"JULY ";jЀyv|yv|UYUYCiCifzfG/S*/S*Iv\вIv\в fL fLyHpz| fL fLmJHmJHY+jزZJJتeyXJءh\yHpyHpyHpItlItlItlItlhehehefGfGfG ) 7?O_o *0+ %,& 1-.'/!$"# (C^y*Kl5BO\o '1>HR\iy಍fzfzfz/S*/S*/S*/S*hyijвhyijвhyi_oqrt#omqoomp @?IiA  ``|z `|qrt`vvnwu".u88 d)@ d)`w <` d)`8Hh`l `` @ l ` d)"z` <_o|zu8`( ) 8ȱ)J) ȱ)J) ȱ)J) `x+)ɀay)|)ɀa u`  ` 筇|{{} Hh `{{{ `m| ) ` {{}}Hh `{{ `)pq:r`m Э;ɓ @ @ ɠNn @ @ @讒`m ijDDx4 rx y Dyij`ȭrr)=?`ʕ>?>`8M˕   , ` ăL: \B>Z[Z\ʽ\ ZXLީCZV[U ߭W\[\\ \N=Z\*\"[\ \L\ ZXLޮ[X `Z[ʽ\P[L߮ZVU[Ub ߮WVU8VT`Z[XVYU z߮WZV z߮W[`[\jNc[ʽ\$\ NFʽ\9ZvLݮ[Nj\'ʽ\TPLNʽ\@a[N$\c(O&_O:c^O$acCb/CR_.N R`OU>a[&RcN@Yc^O[UHc'aN RO:c^O[cAN_)_N6cc>^&[a9b^>a[b[44[W['W[W['W[W[W[[cNUO_Q44b*RcbNC[_)^#ȏZPגBP&a[\&a[a[P VGՎVC#V:ٛ:ٛ:ٛٛAٛ ٛٛ:'[W[WW[[W,PCRcB]O6YKY:U[Aa[[@UR9cR:RN:RY_OcHR[b9[b5[cO)Y_>\aQb,_b*Rc&a[aNQ9\)RaP;ȅTT'[ȁ]ȁT]dԉc\\)d.՛d(c##&[+ՔՔB՛B՛CՔ':#P'W՛A՛#՛#՛B՛7՛C՛#-V-.ɎB'('((C#Վ#)UUUa#aPa+śOAśOO殠[9Rc[cO6c&[ӕ[[\՛\7X.\H՛X(\X\[cW_[W[W[W[W[W[W[[[W[ӃΧW[RcW[Ӊ[W[[cȏTԔ)ϓ;τ)?Փ)KGKLՇ(7Ռ;Ȕ5;!CY՛C'59>9>)9999>>>)5>)N??%?)I.K)OқI+?))>)$)$%I99Ɏ&9>#\ \>QBKXvD1~;)9󄉛>>^&[&[[c&R5)Շ$Y)Ʉ&55>>&5))9>HHHHHHHHHH`Pa@p@q@a`a@@aQA``Pq !"'()*,-. :;?([3\O^T_\`gapbzcde 1 ,Xssssseeeeeew g,V9uXzвe8TT TKfKfKf'@XIwfq'qq QԥAF#j3ou%jww Hg,V9uXzВe8TT T mftsttttԥAF#j3ou%j#j3Iv\в fLSGLSGLyHpyHp fLSGLSGL(ifY|7iH7iHSJНSJK*eK*eK*eJ9xJ9xJ9xkk Xe XeDeEjDeEjmJHmJHIdJгIdJIdJгIdJsș̦̦̦̦ KE flUXXXY+jزZJJتeyXJءh\ಌz|z|z|pزIv\вIv\в/S*/S*/S*pزfzfzfzSGLSGL/S*/S*SGLSGLgYlв fLSGLSGLSGLSGLSGLиUYUYUYSGLSGLfzfGSGLSGLPزIv\NG TEMPERATURE."#12809A42A441070MA46A471040aA41A481100k1140"FAIR WITH SLIGHT TEMPERATURE CHANGES FOR1 TO 2 DAYS."$1140."GOOD CHANCE OF RAIN WITH WIND INCREASINGIN FORCE. HOWEVER RAIN MAY FALLOU WILL BE ASKED TO INPUT THESE PLUS"jz"DEWPOINT AND TEMPERATURE."::"THIS FORECAST IS 77% ACCURATE."I11000:I:1300"FAIR. SLIGHT POSSIBILITY OF RAIN IN TWODAYS IF BAROMETER IS RISING RAPIDLY.":"OTHERWISE, FAIR WITH SLIGHTLY RISIA2102.6830A2101.6850) 12802*950<41250F>1000PH1250ZR1160d\1250f:2:255:"THIS FORECAST INFORMATION DEPENDS ON VARIOUS FACTORS, AMONG THE MAIN FACTORS"%p"ARE BAROMETRIC PRESSURE AND WIND DIREC- TION."::"Y" ";:I:%A8((A3A6)121.92.5)4A80A80C1700::3y"CUMULUS CLOUDS COULD FORM AT":8);A8;" METERS"I14:J110:" ";:J::I16)"FORECAST"I130:J15:A(16336)(16336):J,I:A2102.6810  A2101.6:5)"BAROMETRIC PRESSURE ";A2;" KPA":ON:"ALTITUDE(M) TEMPERATURE( C)"vX"--------- ---------------":4lV1A33.18vC5003000500C;19((((V1))(10))).5(1(V1)));(10V1.5)10V1V13.183C I140:"EAST":480$M$"SOUTHEAST":4808M$"SOUTH":480PM$"SOUTHWEST":480cM$"WEST":480vM$"NORTHWEST"::3:12)"PRESENT WEATHER":5)"WIND ";M$:5)"TEMPERATURE ";A3;" DEGREES C":5)"DEWPOINT ";A6;" DEGREES C":)8ĺ:"NOT A VALID ANSWER!"::160*:5^::"WHAT IS THE DEWPOINT IN DEGREES CELSIUS?"lZ$:1799FLAG1ĺ:"NOT A VALID ANSWER!"::200A6(Z$)A4330,350,370,390,410,430,450,470JM$"NORTH":480^M$"NORTHEAST":480 rM$:5P"WHAT IS THE WIND DIRECTION USING THE FOLLOWING CODE?":" N = 1, NE = 2, E = 3, SE = 4,"::" S = 5, SW = 6, W = 7, NW = 8"::4:"?";Z$1799:FLAG1ĺ"NOT A VALID ANSWER!"::160A4(Z$)!A41A4;Z$:1799;FLAG1ĺ:"NOT A VALID ANSWER!"::130HA3(Z$)A350ĺ:"HELP! MY DIODES ARE FRYING!":"PLEASE ENTER A COOLER TEMPERATURE."::130A340ĺ:"BRRRR! IT'S TOO COLD TO COMPUTE!":"PLEASE ENTER A WARMER TEMPERATURE."::130,1:G e"WHAT IS THE BAROMETRIC PRESSURE IN KILOPASCALS (KPA) ";U iZ$:1799 nFLAG1ĺ:"NOT A VALID ANSWER!"::101 xA2(Z$) zA285ĺ:L$::101 |A2118ĺ:H$::101 ~:5"WHAT IS THE TEMPERATURE IN DEGREES CELSIUS "TOLD TO DO SO."W (12:"DO YOU WANT INSTRUCTIONS?":"(TYPE Y FOR YES OF N FOR NO)=>";e 116368,0w 2A$:A$""50 7A$"Y"80 <A$"N"ĺ::"Y OR N PLEASE!":40 F90 P870 Z1330:5 d:"....PRESS KEY AFTER ANSWER....":34CUE,INC *) "************************1 #: $:L$"TOO LOW, UNLESS YOU'RE FLYING IN SPACE!":H$"TOO HIGH UNLESS YOU ARE UNDER WATER!" &2:"IN THIS PROGRAM YOU WILL ";::"NOT";::" NEED TO" ':"TO HIT THE KEY UNLESS YOU"::"ARE A 94063 *- * (415) 363-5472 *K * *i ************************o u  ************************ * PROGRAM MAY BE COPIED* * FOR EDUCATIONAL USE &* * MAY NOT BE SOLD.COPY-* !* RIGHT 1981 * * OFFICE OF EDUCATION *= * *[ COMPUTER-USING EDUCATORSy * * * SOFTSWAP * * * * 333 MAIN STREET * * REDWOOD CITY * * C+!WEATHER FORECAST JULY 1980'B STUDENT ENTERS DATA^ FOR WEATHER FORECASTdy 48K APPLESOFT  JOHN COOK   ************************ * * * SAN MATEO COUNTY            M M M"&"BBBB L AAAAA M M M"E"B B L A A M M"d"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 !!!""PPP:233A11736"GOOD LUCK IN YOUR NEW SPOT."?178MA2176V180_179e"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 A A";" ";(34);"HOWDY PARDNER! I LIKE THIS HOLE"d" YOUR WORKING. I'D LIKE YA TO"" FIND ANOTHER SPOT.";(34)"DO YOU WANT TO:"" 1) MOVE"" 2) FIGHT"" 3) GET THE SHERIFF"CHOICE3ML$""146LML(ML$):MLM0NEYĺ:19:"YOU DON'T HAVE THAT MUCH!!":145wML5Ģ19:"NOT ENOUGH!";:868::145M0NEYM0NEYML"THAT WILL DO... FOR NOW..."9583::"A ROUGH LOOKING MAN COMES BY AND SAYS,::2"YOU ARE DIGGING IN AN OLD INDIAN AREA."8d"WILL YOU GIVE THEM GOLD TO KEEP THEM"jx"HAPPY?"240A2ī180M0NEY6ĺ"YOU DON'T HAVE ENOUGH MONEY FOR THEM!":3:180 16:"HOW MUCH GOLD WILL YOU GIVE? ";:"";ML$:E!!!";(34)z:*{"DO YOU WANT TO:"0|N}" 1) GIVE UP SOME MONEY"T~l" 2) FIGHT IT OUT"rCHOICE2:233A2180ML(M0NEY(1)):"YOU JUST LOST $";ML;" TO THE ROBBER!"M0NEYM0NEYML3W HAVE ";nITEM5ĺ"A ";2oITEM$(ITEM);"."[p:"YOU HAVE $"M0NEY" IN GOLD LEFT."dq3:lr74vs::|tu::v"A ROUGH LOOKING MAN COMES BY AND SAYS,"wx" ";(34);"STAND AND DELIVER! YOUR MONEY" y" OR YOUR LIF112^F(ITEM)098!_::E`"YOU ALREADY HAVE THAT ITEM!!"Na113lbNWPRICE(HI0RLOFLAG,ITEM)cNWM0NEY106d:efg"YOU DO NOT HAVE THAT MUCH GOLD!!"hi113jM0NEYM0NEYNWkF(ITEM)1l m:"YOU NOEM(ITEM)73QITEM894$RKS"HOW MANY POUNDS OF FOOD TO BUY?"[T" -> ";PF$jUPF$""82xVPF(PF$)WNWPFPRICE(HI0RLOFLAG,8)XNWM0NEY101YM0NEYM0NEYNWZTPFTPFPF[\"YOU HAVE ";TPF;" LBS OF FOOD IN ALL."] GA2İ290:115) HA3İ290:::53/ IT J"YOU HAVE $";M0NEY;" TO SPEND."Z K L"ENTER THE NUMBER OF THE ITEM THAT YOU" M"WANT TO BUY AND PRESS RETURN. TO EXIT: ";ITEM$ NITEM$""66 OITEM(ITEM$)PITEM1ITEM13IT 7. 8" ITEMS FOR SALE PRICE "4 9@ :V113I ;V2V <4(V9)m =V;" - ";ITEM$(V);u >26 ?PRICE(HI0RLOFLAG,V) @V A34,16 B C" 1) BUY GOODS" D" 2) LOOK FOR GOLD" E" 3) TAKE INVENTORY" FCHOICE3:233L2113 'PRICE(L,L2)! (L2( )L? * JACK RABBIT STEWP + BEEF JERKYi , BISCUIT & HARDTACK~ - REDEYE & BEANS . RATTLESNAKE STEW / FLAPJACKS & BACON 0L16 1DINNER$(L) 2L 3 4 5:9 6"GENERAL STORE PRICES"SE FEED  WOOL HAT'  WOOL SHIRT:  FOOD (1 LB.)I  GOLD PANW  BLANKETd  CRADLEo  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 %L12 & H0RSE0 M0NEY3008 PROMPT$(2)"(TYPE 1 OR 2) "\ 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 & KNIFE  HORM10:307FR(0)3FR(0):22FIRST:1M"PRESS TO END"t"PRESS TO CONTINUE => ";|X$X$(27)ġ:922X$(13)6   PRICE(2,13),F(13),ITEM$(13),PROMPT$(5),DINNER$(6) RO(40,24),GO(40,24)                          AT ";I100;"%"/" IS $";B5$Z."HAVE ANOTHER? ENTER Y OR N=>";n3C$:C$""1:758(C$)89ė:1200:180B(C$)781075G1210V:1200`180j958:"INVALID CODE -- TRY AGAIN --"t~Z12000:"PRESENT VALUE OF $";D;" ANNUITY"'L"FOR ";N;" YEARS AT ";I100;"%"Rn" IS $";Bx1060::5B(D((((1I)(N1))1)I))DB(B.5)1200"FUTURE VALUE OF $";D;" ANNUITY""FOR ";N;" YEARS N;" YEARS AT ";I100;"%"9" IS $";BC 1060Iz "FUTURE OR PRESENT VALUE? ENTER F OR P ";Q$*:4Q$"P"ī870>Q$"F"ī970HR1130\790f::5pBD(1(1(1I)N))IzB(B.5)1200!XBD(1((1I)N))"bB(B.5),l1200Hv"PRESENT VALUE OF $";DNr"IN ";N;" YEARS AT ";I100;"%"x" IS $";B1060::5BD((1I)N)B(B.5)1200"FUTURE VALUE OF $";D"IN ";ER L OR A ";Q$:'Q$"L"ī5208Q$"A"ī790B1130K450Q 23:"PRESS KEY AFTER YOUR ANSWR!":20"FUTURE OR PRESENT VALUE? ENTER F OR P ";Q$:&Q$"P"ī5900Q$"F"ī690:1130D520N::5N$N$""N$"R"O(N$)48(N$)57ĺ"THAT'S NOT A VALID ANSWER!":430h(N$)3N$"R":432tN(N$)N0N$"R":432N99N$"R":43223:"PRESS KEY AFTER YOUR ANSWER!":20"LUMP SUM OR ANNUITY? ENT|"ENTER INTEREST RATE ";:I$1}I$""I$"R"k~(I$)48(I$)57ĺ"THAT'S NOT A VALID ANSWER!":380(I$)3I$"R":382I(I$)I100I$"R":382I0I$"R":382I1420II100"ENTER TIME IN YEARS ";:R FOR A NUMBER OF YEARS."(,34,1916255;@1180EJ1200KTs^"ENTER AMOUNT-NO DOLLAR SIGN";:D$_D$""D$"R"`(D$)48(D$)57ĺ"NOT A VALID ANSWER":350a(D$)20D$"R":352bD(D$)cD0D$"R":352hrUAL ANNUAL (ANNUITY) PAYMENTS"*"3. THE FUTURE VALUE OF A PRESENT LUMP SUM, SUCH AS FROM PUTTING $3000 IN A BANK NOW."""4. THE FUTURE VALUE OF EQUAL ANNUAL PAYMENTS, SUCH AS FROM PUTTING $1000 IN A BANK EACH YEAA$:(A$)271210' (A$)131756 :::255< e "** THIS PROGRAM WILL CALCULATE **" "--------------------------------" "1. THE PRESENT VALUE OF A FUTURE LUMP SUM PAYMENT." $"2. THE PRESENT VALUE OF FUTURE EQ *";I "* S A V I N G S & L O A N S *";z "* *"; "****************************************"; 23:6:"PRESS TO CONTINUE...":6:"OR TO END THIS PROGRAM=>"; **********(  *PROGRAM MAY BE COPIED*F  *FOR EDUCATIONAL USE &*d *MAY NOT BE SOLD.COPY-* ! *RIGHT 1981 CUE,INC * " *********************** d:::255 n8 x"****************************************"; "* * SOFTSWAP *8  * *V  * 333 MAIN STREET *t  * REDWOOD CITY *  * CA 94063 *  *(415)364-5600 EX 4401*  * *  * *  ************* * ***********************H * *f  * SAN MATEO COUNTY *  * OFFICE OF EDUCATION *  * & *  * COMPUTER-USING *  * EDUCATORS *  * *  SAVINGS AND LOANS&  GIVES PRESENT OR FUTURE VALUE OF AMOUNTS OF MONEY AT DIFFERNT INTEREST RATES. PAYMENTS AS LUMP SUM OR ANNUITY.   APPLESOFT 8K  KEVIN ARMSTRONG      HE CITY OF KUMASI."&bQ12000:Q:ol"HE WAS ABLE TO SEND HOME $300 TO HELP PAY THE FARM'S EXPENSES."|vZZ300Q13500:Q"YOU NOW HAVE $";Z;".":1900"SORRY, BUT THE GOVERNMENT HAS PUT A SPECIAL TAX ON LARGE FARMS.QG&"YOU GAVE HIM $400 SO THAT HIS FAMILY WOULDN'T STARVE."T0ZZ400c:Z0ī1800D"SINCE YOU SPENT $400, YOU NOW HAVE ONLY $";Z;" TO START THE NEW YEAR."N1900X"GOOD NEWS. YOUR SON, MOISE, WAS ABLE TO GET A JOB IN T(4)1(G1)(G1.1)5309(G1.1)(G1.3)600S(G1.3)(G1.5)670m(G1.5)(G1.7)720(G1.7)(G1.9)800G1.9860"ONE OF YOUR WORKERS WAS BITTEN BY A SIMULIUM FLY AND HE GOT RIVER BLINDNESS."Q14000:ZFZ0ī1800^"YOU NOW HAVE $";Z;" BUT EVERY YEAR BRINGS ITS SURPRISES, YOU KNOW."d"TYPE 1 WHEN YOU ARE READY FOR THIS YEAR'S SURPRISE.":II1ī445:"COME ON. FIRM UP YOUR COURAGE AND PUSH THE 1":433G600BEĺ"YOU BROKE EVEN ON YOUR COCOA THIS YEAR. SMILE, IT COULD HAVE BEEN WORSE.":400|600BEĺ"GREAT! YOU MADE $";E(600B);" THIS YEAR.":400600BEĺ"OOPS! YOU LOST $";(600B)E;" THIS YEAR."Q14000:Q:FE(600B)ZO CONTINUE.":AF9'JEB100CDZK"YOU SOLD ";B200C;" KG. AT $";.50D;" PER"L"KG. SO YOUR TOTAL INCOME ON THE COCOA"M"WAS $";E;"."T^"YOUR EXPENSES, HOWEVER, WERE $600 PER HECTARE, FOR A TOTAL OF $";600B;"."hZr(D1.5)306&/(D1.5)(D1.9)30760D1.9308D1D1:2000R2D2:2030`3D3:2060n4D4:2090x610007"THE PRICE OF COCOA BEANS HAS GONE TO $";.50D;" PER KG. THAT IS THE PRICE THAT YOU WILL RECEIVE."8"TYPE 1 WHEN YOU WISH T"THAT'S RIGHT! YOU'RE SUCH A SMART FARMER.":290"NO. ";B;" HECTARES TIMES ";200C;" KILOGRAMS PER HECTARES EQUALS A TOTAL YIELD OF ";B200C;" KILOGRAMS.":290"Q14000:Q$,D(4)1-(D1)(D1.1)305 .(D1.1) YIELD IS ";200C;" KILOGRAMS PER HECTARE. AN AVERAGE YIELD IS 500 KILOGRAMS PER HECTARE."pQ14000:Q:"YOU PLANTED ";B;" HECTARES OF COCOA AND YOUR YIELD WAS ";200C;" KG. PER HECTARE. HOW MANY KG. DID YOU PRODUCE?":K8KB200CU MUST TYPE 2,4 OR 6.":250) C(4)1A (C1)(C1.1)276[ (C1.1)(C1.5)277u (C1.5)(C1.9)278 C1.9279 C1:280 C3:280 C2:280 C4:280 "OK. HERE GOES WITH THIS YEAR'S CROP.":Q12000:Q:]"YOUR TO START THE YEAR. TRY TO MAKE ENOUGH TO KEEP YOUR FARM RUN- ING."x "TYPE 1 WHEN YOU ARE READY TO CONTINUE":AE 2 "I WOULD LIKE TO PLANT --- (2/4/6) OF MY 8 HECTARES TO COCOA THIS YEAR. TYPE ANSWER AND PRESS RETURN.":B B6ĺ"YOD THEN PRESS RETURN.":139Z :"NO, A HECTARE IS ABOUT 2.5 ACRES. TRY AGAIN.":140k Q14000:Qq "YOUR FAMILY CONSISTS OF YOU, YOUR SPOUSE, AND TWO SONS--KWAME AND MOISE." Q14000:Q Z3600G "YOU HAVE $";Z;" ANSWER AND THEN TYPE RETURN.":A* 7 A1180D A5180R A80180 A20ĺ"RIGHT! THIS IS A VERY LARGE FARM BY AFRICAN STANDARDS. YOU ARE VERY RICH.":210 "THIS IS A MULTIPLE CHOICE QUESTION. YOU MUST TYPE 1,5,20, OR 80 ANK d"THIS IS A PROGRAM THAT PUTS YOU IN THE PLACE OF AN AFRICAN FARMER."T sY0Z w x"IMAGINE THAT YOU LIVE IN GHANA AND THAT YOU OWN 8 HECTARES OF LAND." Q14000:Q:$ "EIGHT HECTARES IS ABOUT---(1/5/20/80) ACRES OF LAND. TYPE YOUR+9$:::::::::::B::::::::::::K1:R 2~ "BEFORE WE BEGIN THIS PROGRAM, PICK A" "NUMBER FROM 1 TO 100. TYPE IT INTO " "THE KEYBOARD AND PRESS RETURN." TU0V(1)UU1 UT15          AS SEED THIS" "YEAR."" D0* S04 1390? SSQ2l "HOW MANY ACRES OF LAND DO YOU WISH TO" "PLANT WITH SEED? INPUT NUMBER OF" "ACRES FOLLOWED BY ";::"RETURN"; :" "; D  D03110  "NO NEGATIVE NU::" "; Q2 % Q2029008 (Q2S)02990K (Q2S)02930U" 3280p, S" BUSHELS IN STORE."v6 @ 2760J T "NO NEGATIVE NUMBERS"^ h 2760r "YOU NOW HAVE NO GRAIN LEFT IN STORE SO" | "YOU HAVE NONE LEFT TO USE d AAQ1n S(S(YQ1))&x 27601 AAQ3B S(S(YQ3))L 2760V 3280f A" ACRES."l v 2280 "HOW MANY BUSHELS OF GRAIN DO YOU WISH" "TO DISTRIBUTE AS FOOD? INPUT NUMBER" "OF BUSHELS FOLLOWED BY ";: "RETURN";"NO NEGATIVE NUMBERS" & 2380> ((YQ1)S)02660H 3280c S" BUSHELS IN STORE."i s 2280 SSYQ1 Q3Q1 Q302630 Q302690( "NO NEGATIVE NUMBERS"2 < 2380F Q3Q3(1)P (AQ3)02720Z 2690;  Q4$ Q4$!$ Q4(Q4$)5. Q43Q412310G8 Q43ĺ:2760MB {L "HOW MANY ACRES? INPUT NUMBER OF ACRES"V "FOLLOWED BY ";::"RETURN";` :" ";j Q1t ~ Q412460 Q422570 Q1 Q102570 Q102510 2230Q$"N"3310 21601C(10(M))<YC17g"THIS YEAR LAND MAY BE TRADED FOR ";Y"BUSHELS PER ACRE. ""DO YOU WISH TO (1) BUY"" (2) SELL"" (3) NEITHER" "TYPE 1, 2, OR 3 : "RESENT NUMBER OF BUSHELS OF GRAIN"7>"IN STORE = ";SeH24:"PRESS ANY KEY TO CONTINUE : ";:GT$oR936\"DO YOU WISH TO CONTINUE AS THE RULER"f"OF SUMER?"p"TYPE Y FOR YES, N FOR NO : ";zQ$Q$Q$"Y"ĺ:2230Q$"Y"CITY = ";A7"NUMBER OF ACRES OF LAND PLANTED"O" WITH SEED = ";DU}"YIELD (IN BUSHELS PER ACRE) = ";Y"TOTAL HARVEST (IN BUSHELS) = ";H "NUMBER OF BUSHELS OF GRAIN DESTROYED" " BY RATS = ";E*"4"P OF"X" STARVATION = ";D1&b:Ol"NUMBER OF PEOPLE THAT CAME TO THE"bv" CITY = ";Ij:tPPI"PRESENT POPULATION = ";P24:"PRESS ANY KEY TO CONTINUE : ";:GT$936"NUMBER OF ACRES OF LAND OWNED BY" " THE 1800 D2((G)1610)( D1D22 1800D D2((G)11)N D1D2X 1800a D10k 1840t D1P| P0 1840 D101840 P1((PD1)100) PPP1 &D1P1 01850 :936 D:::N"NUMBER OF PEOPLE THAT DIED1) N((C)11)15" N1PN2 N1191560; N23E 1570N N22] "Q201770o ,Q26N11630 6Q2N2N11660 @Q2N11690 JQ2N2N11750 TQ2N11720 ^D2((G)1090) hD1D2 r1800 |D2((G)2566) D1D20:P10 <Q20:Q30:Q10% FD1000. PQ406 ZJ0@ d1850R nY((M)51)\ xHDYm C(10(M))u E0 ((C2)(C2))01490 S2001480 J((Y)3120) E((SJ)100) 1490 ES S(SE)H I(C(20AS)P100A$"N"1210 tA$"Y"1100# ~8 "WHICH NUMBER?"f "INPUT NUMBER FOLLOWED BY ";::"RETURN"l s N Y(((N))) P95 S2800 H3000 E200 Y3 A1000 I5 Q1 Z820 M17 G21 (C1 2D10:D2************************************ 1 :9367 f $" SUMER " ."SIMULATION OF THE SUMERIAN GAME " 8:: B"DO YOU WANT REPEATABLE RESULTS?" L"TYPE Y FOR YES, N FOR NO : "; VA$ `A$ j6J *****************************************************************  * THE FOLLOWING REMARK IS FROM THE ORIGINAL TIMESHARE VERSION. *  * REVISED: 7/74 (M. OLSON) * %  *****************************        Z(I)0I2 INITIALIZE CASH ASSETS:C?C10000^ PRINT INITIAL PORTFOLIO " STOCK INIT. $/SHARE""INT. BALLISTIC MISSILES";29);"IBM";34);S(1)"RED CROSS OF AMERICA";29);"RCA";34);S(2)+"LICHTES(5)110= INITIAL T8 - # DAYS FOR FIRST TREND SLOPE (A) T&T8(4.99(X)1)0 RANDOMIZE SIGN OF FIRST TREND SLOPE (A) :(X).51870DAAN RANDOMIZE INITIAL VALUESX3010b INITIAL PORTFOLIO CONTENTSlI15vP(I)0R AT LEAST""10 DAYS).""="-----GOOD LUCK-----"k24:"PRESS ANY KEY TO CONTINUE : ";:GT$u936 GENERATION OF STOCK TABLE; INPUT REQUESTS  INITIAL STOCK VALUES S(1)100S(2)85S(3)150S(4)140ALL"1h"TRANSACTIONS. NOTE THAT IF A STOCK'S"^r"VALUE DROPS TO ZERO IT MAY REBOUND TO"|"A POSITIVE VALUE AGAIN. YOU HAVE""$10,000 TO INVEST. USE INTEGERS FOR""ALL YOUR INPUTS. (NOTE: TO GET A " "'FEEL' FOR THE MARKET RUN FO,"OF EACH STOCK WILL BE PRINTED WITH A"U6"QUESTION MARK. HERE YOU INDICATE A "@"TRANSACTION. TO BUY A STOCK TYPE +NNN,"J"TO SELL A STOCK TYPE -NNN, WHERE NNN"T"IS THE NUMBER OF SHARES. A BROKERAGE"^"FEE OF 1 WILL BE CHARGED ON NS ON THE EXCHANGE.">"A TABLE OF AVAILABLE STOCKS, THEIR"i"PRICES, AND THE NUMBER OF SHARES IN""YOUR PORTFOLIO WILL BE PRINTED. "24:"PRESS ANY KEY TO CONTINUE : ";:GT$936:""FOLLOWING THIS, THE INITIALS OF EACH") 9363" THIS PROGRAM PLAYS THE STOCK"]"MARKET. YOU WILL BE GIVEN $10,000""AND MAY BUY OR SELL STOCKS. THE STOCK""PRICES WILL BE GENERATED RANDOMLY AND""THEREFORE THIS MODEL DOES NOT REPRESENT""EXACTLY WHAT HAPPET TREND:A (SAME FOR ALL STOCKS))X01X1;(T50E2X90T<N10:N20cFE10:E20mPZ50Z INTRODUCTIONd"DO YOU WANT THE INSTRUCTIONS?"n"TYPE Y FOR YES, N FOR NO : ";xZ9$Z9$Z9$"N"1740Z9$"Y"1390*************************************** 4:936:i" STOCK ""THE STOCK MARKET - A SIMULATION ":S(5),P(5),Z(5),C(5)SL5:SC0:PL5:PC0:ZL5:ZC0:CL5:CC0   SLOPE OF MARKE * T-TTL STCK ASSTS; T5-TTL VAL OF TRNSCTNS; *  * W3-LRG CHNG; X1-SMLL CHNG(<$1); Z4,Z5,Z6-NYSE AVE.; *  * Z(I)-TRNSCTN. * ( ****************************TK VAL; D-TTL ASSTS; * f t * E1,E2-LRG CHNG MISC; I-STCK #; I1,I2-STCKS W LRG CHNG; * ~ * N1,N2-LRG CHNG DAY CNTS; P5-TTL DAYS PRCHSS; P(I)-PRTFL CNTNTS; *  * Q9-NEW CYCL?; S4-SGN OF A; S5-TTL DYS SLS; S(I)-VALUE/SHR; * G 8/18/70 (D. PESSEL, L. BRAUN, C. LOSIK) * V * REVISED: 7/74 (M. OLSON) * ` * IMP VRBLS: A-MRKT TRND SLP; B5-BRKRGE FEE; C-TTL CSH ASSTS; *  j * C5-TTL CSH ASSTS (TEMP); C(I)-CHNG IN S * Y . * * 8 * **** CONTRIBUTED PROGRAM ************************************** B * STOCK MARKET SIMULATION -STOCK- * : L * REVISED * x  * STOCK: STOCK MARKET SIMULATION *  * *  $ * 36331 (A860) REV A -- 10/71 "L *******************************************************************  * THE FOLLOWING REMARKS ARE FROM THE ORIGINAL TIMESHARE VERSION. *  * **** HP TIME-SHARED BASIC PROGRAM LIBRARY ********************* -  *                 70. W(J)08 2390.B T(1)T(2)02350VL W(J)(10000T(J)(T(1)T(2)))100]V Jh` J12rj 3330t B(J)C(J)UI(J)~ B(J)02460 3500  B(J)M12540 B(J)C(3J)UI(3J)2540 P417 J47 7);"****J3560J120D(J)I(J)2260?T(J)D(J)I2270XT(J)I(J)jT(J)(T(J))C(J)C(J)T(J)P(J)I(J)I(J)T(J)J J12 C(J)C(J)RI(J)UK3C(J)((C(J))(C(J))2)2 C(J)(C(J))$ E(5)0235 E(J)0JP40(32603J12? W(J)0KD(J)0W T(J)0m*B(J)UI(J)C(J)w43330~>JHRQQ1\3680f2680p3260z COMPUTE DEMANDJ12D(J)(1E(5)).5(K22V(J)D1)(P(J)50)NN";::" ";XQbQQ1&l20000v93675h"VARIABLE PRODUCTION COST = $ ";U;" / UNIT"p12"UNITS AND DOLLARS LISTED IN QUARTERLY""SUMMARIES ARE IN THOUSANDS."24"PRESS ANY KEY TO CONTINUE : ";GT$J1"COMMA";:4" AND FOLLOWED BY A ";::"RETURN";?:"."NC(J),I(J)T[J"ENTER VARIABLE PRODUCTION COST FOLLOWED""BY A ";::"RETURN";:&" ";0U:D"ENTER NEXT QUARTER NUMBER FOLLOWED BY" N"A ";::"RETURHE"-h"GAME? TYPE B FOR BEGINNING, C FOR"Cr"CONTINUING : ";L|AZ$UAZ$gAZ$"B"1910zAZ$"C"1630936J12"COMPANY ";J;" ENTER PREVIOUS CASH ON""HAND AND PREVIOUS INVENTORY, SEPARATED" "BY A ";::")" 4" WAREHOUSE CHARGE FOR INVENTORY"O""= ";R100;" PERCENT"U,6" INTEREST CHARGE ON BORROWED MONEY"@"= ";K3100;" PER CENT"J24:"PRESS ANY KEY TO CONTINUE : ";:GT$T936^"ARE YOU BEGINNING OR CONTINUING T.001M1;" MILLION"*"IN TOTAL ASSETS."0]" FIXED PRODUCTION COST = $";F1000q"PER QUARTER."w" WITH NO ADVERTISING AND A SELLING""PRICE OF $50 / UNIT, A COMPANY WILL""SELL ";K2500;" UNITS (PRINTED AS ";K22;"BETWEEN TWO COMPANIES SELLING A PRODUCT"Y"DIFFERENTIATED BY BRAND ADVERTISING.""THE QUANTITY EACH COMPANY SELLS IS""DEPENDENT UPON PRICE AND ADVERTISING""BUDGET. THE GAME ENDS WHEN ONE COMPANY""GOES BANKRUPT OR REACHES ";NSTRUCTIONS?"1 "TYPE Y FOR YES, N FOR NO : ";: (HT$C 2HT$_ <HT$"Y"HT$"N"1310 FK2,N,K,K3,C(1),C(2),I(1),I(2),F,U,R,G1,G2,G3,M1,K4 PQ0:W20:W30:W40 Z dHT$"N"1630 n936 x" MARKET SIMULATES THE COMPETITION"- FOR YES, N FOR NO : "; A$' A$8 A$"N"1300J A$"Y"1170P ~ "WHICH NUMBER? TYPE NUMBER FOLLOWED BY" "A ";::""; :" "; R(X).01(100X.5) N Y(((N)))  DIM A$(10) :"DO YOU WANT I * V V ******************************************************************* d `:936: j" MARKET " t" SIMULATION OF MARKET COMPETITION " ~:: "DO YOU WANT REPEATABLE RESULTS?" "TYPE YSSEN - PROGRAMMED BY D. SOBIN * u 8 * LATEST REVISION 6-1-73 * B * REVISED: 7/74 (M. OLSON) * L * COPYRIGHT 1972 - STATE UNIVERSITY OF NEW YORK  * THE FOLLOWING REMARKS ARE FROM THE ORIGINAL TIMESHARE VERSION. *  * MARKET - SIMULATION OF MARKET COMPETITION BETWEEN 2 COMPANIES * $ * DEVELOPED BY S. FINKELSTEIN, J. MCGRATH, I. STAW, D. SOBIN * * . * ALSO DEVELOPED BY D. KLA9 =C(2),I(2),T(2),A(2),L(2),D(2),P(2),V(2),W(2),B(2),E(5)}CL2:CC0:IL2:IC0:TL2:TC0:AL2:AC0:LL2:LC0:DL2:DC0PL2:PC0:VL2:VC0:WL2:WC0:BL2:BC0:EL5:EC0 ******************************************************************* I                `7hh`H)h`n)n`8`[cE_5N.[ Rb[&Rc$R_6aPNW[$cN@[T$R`O9c.T$R[N$\RCQ^.[ Rn7nJJJJ P n) ` `n`7@  jjjj` v v` 8,'    7 ɍ` 7`a{ z)2.5)(102.5):H0ı:GGH:BHBBH:2050wCCHB:B0:" <> $";(C102.5)(102.5)CIC:"INTEREST IS NOW ";P;"%":"BANK ACCOUNT AT";:30:"$";(B102.5)(102.5):SL:1910:B0BB:1940'2050M"*** OVERDRAWN ***";:30:"$";Bp"TO AVOID JAIL YOU LIQUIDATE"GBī2000CCG:G0:"ALL OF YOUR GOODIES"B0:"BANKRUPTCY--LAWYER FEE $";L100UUC:CL100:"GOODIES WORTH $";(B10102.5)(102.5)#&T2ī1870Z01050:" ",((A(3)A(7)A(11))102.5)(102.5)i:T3ī1870D1070:" ",((A(4)A(8)A(12))102.5)(102.5)NXL(SMBC)(4QM):bV(100V.5)100:lBBC2:CIC2:vBBSM4000ʺ:936: END OF GAMEF"AFTER ";Z1978;" YEARS UNDER YOUR CONTROL"}"THE FOLLOWING ARE THE RESULTS OF YOUR EFFORTS":"GROUP:","TOTAL:":1010:" ",((A(1)A(5)A(9))102.5)(102.5)T1ī18701030:" ",((A(2)A(6)A(10))V(12(X)):M12V="YOU LOSE ";V;" MONTHS OF WORK"SVP(30(X)15)o"AND YOU ";:V0ī1730"GET A ";V;"% PAY CUT":1740"GOT A ";V;"% RAISE !!"SS(1V100)A(W)B:A(W4)C:A(W8)GA(W12)M:A(W16)S:1470(102.5)RJ"LESS CREDIT PAYMENT";:30:"$";((C102.5)(102.5))2:1900^"LEAVING $";(C102.5)(102.5);" DUE":1920h"WANT TO STRIKE 1=YES, 0=NO ";:Kr"HOW MUCH WILL YOU BUY ";:H|2010:(X)O2ī1680K0M12:175010:"HAVE $";(G102.5)(102.5);" G00DIES""M;" MO. AT $";(S102.5)(102.5);"/MO.=";:30:"$";(S102.5)(102.5)M,"PREVIOUS BANK ACCOUNT";:30:"$";(B102.5)(102.5) 6"LESS LIVING EXPENSES";:30:"$";4000(L102.5)COST-OF-LIVING: ";L9 "RESALE: ";R;" INTEREST: ";P;"%"N WW1:WTī1300k BA(W):CA(W4):GA(W8) MA(W12):SA(W16) YZGGR:1900:1750 :N02000:N: TIMER W1İ1010 W2İ1030 W3İ1050 W4İ10700GGR::1880:O0:L.5ī1380d P"DUE TO THE DEPRESSION THIS YEAR MANY WORKERS WILL BE LAID OFF.":O1s dL2ī1420 QQ((X)1):1880 I.55L2:P100(I1):R.9L VI:1890:IV:VL:1890:LV VP:1890:PV:VR:1890:RV 936:6::Y;" (1-7) "; Y:Y7ī12706 Z1978Y:Y1977:U0:X1T W0: STATR NEW YEAR HERE\ 24 "PRESS RETURN TO CONTINUE";S$ YY1:YZ1ī1770 (B0:CU:M0:S0: U IS UNPAID DEBT 2N14:BBA(N):CCA(N4) <MMA(N12):SSA(N16):N FGOODS. GAME END TOTALS CASH AND GOODS."1 24T "PRESS RETURN TO CONTINUE";S$e Q500:N14 A(N)0:A(N4)0:A(N8)2Q A(N12)12:A(N16)Q:N 936:13 "HOW MANY TEAMS (1-4) "; T:T4GOT1250 :: "HOW MANY YEARS BUT CREDIT IS ALWAYS GOOD."" Q V"HOWEVER, THEY MUST PAY BACK HALF WITH INTEREST NEXT YEAR. NO INTEREST ON BANK ACCOUNT. THEY MAY OVERDRAW AND SELL PROPERTY AND GO BANKRUPT!!" `) "GOODIES ARE THE CURRENT RESALE VALUE OF THEIR MATERIAL d936:3A(20):10900"TEACHERS";6E"MINERS";K["GROCERS";a$q."DRIVERS";w8B" ECONOMIC--SIMULATION"::: L"THE LEDGER REPRESENTS THE AVERAGE INDIVIDUAL OF EACH GROUP. THEY MAY GO ONSTRIKE      :25D124:15)::"GOOD LUCK"::D:?::v"HOW GOOD OF A SHOT ARE YOU WITH YOUR RIFLE? "" 1 - ACE MARKSMAN"" 2 - GOOD SHOT"" 3 - FAIRLY FAIR"" 4 - NEED PRACTICE"" 5 - SHAKY KNEILL HAVE OF HITTING YOUR TARGET.":" AT EACH TURN, ALL ITEMS ARE SHOWN IN DOLLAR AMOUNTS, EXCEPT BULLETS. WHEN YOU ARE ASKED TO ENTER DOLLAR AMOUNTS, DON'T USE A '$'.":"PRESS TO CONTINUE....";A$:(A$)13662 ALONG THE WAY TO GET MORE FOOD. WHENEVER YOU HAVE TO USE YOUR TRUSTY RIFLE ALONG THE WAY, YOU WILL BE TOLD TO TYPE IN A WORD THAT SOUNDS LIKE A GUNSHOT."$b" THE FASTER YOU TYPE IN THE WORD AND PRESS THE 'RETURN' KEY, THE BETTER THE CHANCE YOU W$)13522 :2" YOU CAN SPEND ALL YOUR MONEY BEFORE YOU START YOUR TRIP - OR YOU CAN SAVE SOME OF YOUR CASH TO SPEND AT FORTS ALONG THE WAY WHEN YOU RUN LOW."0" HOWEVER, ITEMS COST MORE AT THE FORTS. YOU CAN ALSO GO HUNTINGWHEN CROSSING THE MOUNTAINS"."MISCELLANEOUS SUPPLIES - THIS INCLUDES MEDICINE AND OTHER THINGS YOU WILL NEED FOR SICKNESS AND EMERGENCY REPAIRS""PRESS TO CONTINUE....";  A$:(ATTING SICK""AMMUNITION - $1 BUYS A BELT OF 50 BULLETS FOR ATTACKS BY ANIMALS AND BANDITS, AND FOR HUNTING FOOD";("CLOTHING - THIS IS ESPECIALLY IMPORTANT FOR THE COLD WEATHER YOU WILL ENCOUNTER A$)13332N:2T"OXEN - YOU CAN SPEND $200-$300 ON YOUR TEAM. THE MORE YOU SPEND, THE FASTER YOU WILL GO BECAUSE"h" YOU'LL HAVE BETTER ANIMALS"r |"FOOD - THE MORE YOU HAVE THE LESS CHANCE THERE IS OF GEIF YOU MAKEIT ALIVE!"x""YOU HAVE SAVED $900 TO SPEND FOR THE TRIP, AND YOU'VE JUST PAID $200 FOR A WAGON"6"YOU WILL NEED TO SPEND THE REST OF YOUR MONEY ON THE FOLLOWING ITEMS-"@:J"PRESS TO CONTINUE...."; LA$:("N"6904*INSTRUCTIONS*******"THIS PROGRAM SIMULATES A TRIP OVER THE OREGON TRAIL FROM INDEPENDENCE, MISSOURI";"TO OREGON CITY, OREGON IN 1847.""YOUR FAMILY WILL COVER THE 2040 MILE OREGON TRAIL IN 5-6 MONTHS--- *"7 }" * T R A I L *"^ " * *" " *********************" :: C$(5) "DO YOU NEED INSTRUCTIONS (Y/N) "; C$::C$""160 C$"N"690 C$"Y"160C$TCH MIDDLE SCHOOL,FOSTER- F CITY, MAY/1979N P FOR FULL DOCUMENTATION,SEEe Z ORIGINAL ARTICLEt d:::255 i" *********************" n" * *" s" * O R E G O N *" x" * **********( * PROGRAM MAY BE COPIED*F * FOR EDUCATIONAL USE &*d * MAY NOT BE SOLD.COPY-* !* RIGHT 1981 CUE,INC * "************************ # $ ( REWRITTEN FOR APPLE BY TOM BEAL 2 AND TIM IVERSON,STUDENTS OF < BOWDIFTSWAP *, * *J * 333 MAIN STREET *h * REDWOOD CITY * * CA 94063 * * (415) 363-5472 * * * ************************   ************** CHRIS EDWARDS < ************************Z * *x * SAN MATEO COUNTY * * OFFICE OF EDUCATION * * * COMPUTER-USING EDUCATORS * * * SOrB OREGON TRAIL AUG 1980' F SIMULATES PIONEER WAGON^ TRIP TO THE WESTdy 32K APPLESOFT  DAN RAWITCH CREATIVE COMPUTING - MAY 1978  ADAPTED BY TOM BEAL, KEITH ROLLIN AND                                        R30R40MCMC1)R1R1P17R2R2P2ER3R3P3OR4P`MC12ī1140f"IN YEAR ";(M12);" OF YOUR LOAN.":TB((((R1))))2"$";NR1:TATB:1150" WAS YOUR ANNUAL PAYMENT.""$";N1X$"Y"1102:298,0:16300,0:16368,0Z :10:12:" * * * B Y E * * *":23xD$(4):D$;"RUN MENU";: THIS ROUTINE ACCUMES * YEARLY FIGURES.4>HMC14ī970RMC12ī910\MC0fR10pR20z((I)));I;"%"::255)16368,0\"WANT TO DO ANOTHER":" ANSWER Y OR N=>";yX$:X$"Y"X$"N"750X$"Y"11034,0:"IS ANYONE ELSE WAITING TO PLAY?""(Y FOR YES OR N FOR NO)=>";X$:X$"Y"X$"N"76150 ,BBP:"TOTAL PAYMENTS PAID ";@NB:TATB:1150Fm"TOTAL YEARS PAID";TB((D)));D"TOTAL MONTHS PAID"TB((A)));A"YOUR MONTHLY PAYMENT IS ";NP1:TATB:1150I1ĪII100:"THE INTEREST RATE IS ";TBAM0:BP1B:CP2C]J$"S"K0ĺ:"** I'M COMPUTING AS FAST AS I CAN !! **":::K1d&M0J$"D"MC12ĪMC14:790::DTB30IN"ORIGINAL LOAN AMOUNT:";XNE:TATB:1150bl"TOTAL INTEREST PAID:";vNC:TATB:1T";21);"PRIN RED.";32)"PRIN BAL."-34,2WP1P(I12)(1(1(1(I12))(L12)))eM1L12sP2PI12P3P1P2PPP3J$"S"ī530M;NP1:TA9:1150NP2:TA17:1150NP3:TA27:1150NP:TA38:1150790UMMARY LIST?":" ENTER D OR S ";A;J$:J$"D"J$"S"310Z@J$"S"ĉ:936:400bT:^"DO YOU WANT FAST OR SLOW PRINT:":" ANSWER F OR S ";:G$hG$"F"G$"S"350rG$"S"ĩ100|:936#"PER";5)"PAYMENT";17)"IN ":250l":10:"# OF YEARS TO PAY:":"I.E. ENTER .5 FOR HALF A YEAR: ";L$#(L$)0ĺ"TRY AGAIN...":"# OF YEARS TO PAY:":L$:291'L(L$),DL:$6:"DO YOU WANT A DETAIL & A SUMMARY LIST,":" OR JUST A SE--DO NOT USE THE % SYSMBOL!"M:"(I.E. FOR 10% INTEREST, TYPE .1 OR .10)z11:"WHAT IS THE INTEREST RATE ";:I$:(I$)0ĺ"TRY AGAIN!":11:" ":250 I(I$)I1ī290&"TRY AGAIN...":11:" *******"::: 34,7W 18:"DO NOT USE A DOLLAR SIGN OR COMMA IN THE MORTGAGE!" 13:"HOW MUCH IS THE MORTGAGE ";:P$: (P$)0ė:10:"TRY AGAIN!":229 P(P$) P1ĺ"TRY AGAIN...":229 EP:18:"USE A DECIMAL PERCENTAG D0 E0 F19% K00 MC138 : "***************************************** ** -MORTGAGE CALCULATION- ** ***********************************  *PROGRAM MAY BE COPIED*=  *FOR EDUCATIONAL USE &*[ *MAY NOT BE SOLD.COPY-*y ! *RIGHT 1981 CUE,INC * " *********************** Z::298,0:16300,0:16368,0 d DONATED BY KEVIN ARMSTRONG n936 xA0 B0 C0 SOFTSWAP */  * *M  * 333 MAIN STREET *k  * REDWOOD CITY *  * CA 94063 *  * (415) 363-5472 *  * *  * *  ********************** ! ***********************? * *]  * SAN MATEO COUNTY *{  * OFFICE OF EDUCATION *  * & *  * COMPUTER-USING *  * EDUCATORS *  * *  * y HOME MORTGAGES#  PAYMENTS, MONTHLY INT- EREST, PAYMENT TOWARD PRINCIPAL, AND PRINCIPAL LEFT AT THE END OF THE MONTH.  APPLESOFT 8K  BY KEVIN ARMSTRONG (S.F. APPLE CORE)       $u`$z`б $|` ı$`б$` $Pa(àšŬɬĠΠ)'a(ĠԠŠŠҡ)_/a(Ҡ٭ĠŠӠƠ)"a(ԠƠŠ)9_a(ΠĠҠҠŠƠҠŮ)``%q,aa(̠Ơ)FıE(Šġ)q:fa(ՠĠȠӠҠΠĠĠ)kbE(ӠҠή)cp`б!$5r`nLɺɠԠϠԠՠȮ)&Wa(ԠƠҠġ)Xca(ɠԡŠҡ)Y_+\a(Ҡ)FE(ϠՠԠϠſ)5]S(ŠǠϠϠάҠӠϠЮ)&@`@9()$6@^a(ΠҠ)FE(Ҡ͠ƠŬ)FбE()'bE(ӠƠή٠ή)[a(ɺˠή)!a(ՠ٠Š)FE(Ӯ)[oPa()FE()oPa()FE()oP a()FE() o[ `%[ ] ] [ q/?r![.Rca(.0ca(ՠĠ)FE(ŠΠŠҡ)I5a(ŠϠŠԠՠŠ)a(Ԡ٠ΠĠ),6a(ĠΠԠƠŠԠՠ)(7a(ϠΠĠ̠ˮ)9_-a(ɺˠάՠŠǠ `%qq8rq\\ `%q#q888 r rr q]Ӭq/?dr &`$(q` $0-)`%q`%qбqıd8r+qıqı_]ȠŠϠĠŠӿ` $Fa(Ԡՠ٠Š)FE(ŠϠĠŠӮˠ)_q8r\ ]̠qqq \  `8r$ ]ŠӠŠqc\P:a(נ٠ӠϠՠȠϠ)a(ȠĿ)GT`$`$R0]ǠϠԠŠӠΠՠο `$\_]ȠΠҠĿ`8r$\_'̠)GUT`$R V`$^W\X_T^qqqc\c+a(נ٠ӠϠՠȠϠ)S(ҠŠ)'`$R-]ǠϠŠŠΠΠՠ`$\_\_qq/? rq18a(ĠӠǠԠ)FE(ӠҠŮ)9cc:c*@a(נ٠ӠϠՠȠϠ٠)GAT`$RB`$JC\D_@J`$TKqqqL\N_+Ta(נ٠ӠϠՠȠϠ˺)Pa(ƠŠŠĮ)ca(ΠӠנ)Fc%a(Š٠נӠ)FE(Ӯ)c,a(ՠĠ)FE(ӠҠŮ)ca(ӠŠ)FE()c*a(ՠנŠ)FE(ӠΠ) c` $\6qqq q`$5cca(ɬɠǠϠԠϠլ)qJa(ΠҠ)FE()FE(ŠĬ)FE(ŠŠϠŠٮ) q\\`$q8r\Bca(ŠŠD-M6oa(ӠΠŠ)a(ӠƠĠ)a(Š).`;@r$+//oa()G4o5q;@r<@r9UVWq/?rYZıqбq#dqq_q q q eq/?rnq)#c(cN@"PrW)a(ӠƠΠ̠Ġ)a(ҠŠҮƠ̠Ҡ)\*a(ӠĠҠĠή)ca(ȠΠΠ͠ԠԠΠӮ)UVWY!+S(ŠŠҠź)&@,KM6d"e| ]ɠ] KM6'oP a(Ƞ͠͠ՠҠ )o /a(ԠéŠҬî) cP!a(٠ҠĠԠ) cP# a(Ԡ)*"cPa(ҠҠ͠Ơ     " AND ";X:690C"DOUBLE SPACE PRINT ":Y$::Y$"Y"Y$"2":750TY$"N"ī750]720"PRESS RETURN TO BEGIN PRINTING":"W TO WRITE TO DISK":"OR ESCAPE TO ABORT ":P$::P$(27)ĺ"PRINTING ABORTED "::500P$"W"ī790P$(13)ī960:550500" PRINT ROUTINEN"ENTER FIRST LINE NUMBER TO PRINT ";B$ZA(B$)A1AXĺ"THE FIRST LINE MUST BE BETWEEN 1 AND ";X:660"ENTER LAST LINE NUMBER TO PRINT ";C$B(C$)BABXĺ"THE LAST LINE MUST BE BETWEEN ";A;&A$(I):N$+0N$(10)IXII1:550H:N$(11)I1II1:550aDN$"I"ĺI;" ";:550NN$"L"ĺ"LINE "I" IS "(A$(I))" CHARACTERS LONG ":550XN$"S"ĺ(5)"S":550bN$"M"ĺ(5)"M":550lN$"E"ĺ(5)"E":550vN$"F"ĺ(5)"C"(5)"S";:430(N$"M"ĺ(5)"M";:430CN$"E"ĺ(5)"E";:430^N$"F"ĺ(5)"C";:430r(37)22ī430x"REVIEW LINES 1 TO ";X:"P TO PRINT ":"OR Q TO QUIT""";N$:N$"Q"ī1040N$"P"ī650N(N$):N1NXī500IN350J |E107ė:"READING FIRST "XX" LINES OF TEXT ":34,1:XXX:IXX:390n XI:A$(X)(13)A$(X)""XI1 :X0ĺ"YOU WENT PAST THE END OF THE FILE ":1040 I1X A$(I) (37)22Ė(1):"PRESS SPACE BAR.";:N$:N$" "ė N$"S"ĺ:P2ī500 6E13P0ĺ:O @E8ĺ"CHECK THE DISK DRIVE DOOR ":P2ĺ:750^ JE8P0Ĭ TE9ĺ"THIS DISK IS FULL ":P2ĺ:750 ^E10ĺN$;" IS LOCKED ":"WOULD YOU LIKE IT UNLOCKED ":Z$::Z$"Y"İ1190:860 hE10Z$"N"ĺ:500 rE10(IN$,1) / E(222):3288::D$;"CLOSE"\ E6ĺ"THAT FILE IS NOT ON THIS DISK ": E4ĺ"THIS DISK IS WRITE PROTECTED ":750 E255ĺ"CONTROL C INTERRUPT ":222,0:E0:Z1:I0ī1040 "Z1Z0:500 ,E13ĺN$;" IS NOT A TEXT FILE "110 N$"C"ī1100Q N$""ĭ(N$)65(N$)90ĺ"PRESS YOUR CAPS LOCK":100a N$""ī110 :D$;"NOMON C I O":A0AA1 :D$;"VERIFY ";N$ D$;"OPEN ";N$ D$;"POSITION ";N$;",R";A D$;"READ ";N$ I1XX 768 A$(I) <XX300 F250 PA$(XX)+ ZD$(4)3 d: n"ENTER FILE NAME ":"OR C TO CATALOG ":"";N$:N$"P"ĺ"POSITION AT WHICH LINE ":"";A$:A(A$):A0ĺ"O K ":"STARTING WITH LINE ";A:110 xA0A0:"NO NEGATIVE NUMBERS PLEASE ":N$"":A$""::  APPLE TALK READER- BY JEFF WEISSk"FOR INSTRUCTIONS; ENTER AS YOUR FILE NAME;; HELP TEXT."wIN$"X"( 162, 0, 32, 117, 253, 160, 2, 138, 145, 105, 200, 169, 0, 145, 105, 200, 169, 2, 145, 105, 76, 57, 213 2F768790:G:F,G:       $). #(-24)"BRUNTEXTALKER.RAM"" (5)"C"0 (5)"2D"? (5)"15V"N (5)"12P" E$(5):EO$E$(79):EB$E$(66):ET$E$(84):V$(22) EB$:(10):"DO YOU WANT FAST SPEECH?":(12):"TYPE ''Y' OR 'N': ":FS$ (FS$(27)ĺE$"C":80 2FS$"Y"ĺEd+:(7):(8):"TALKING SIMULATIONS #1"J(11):(13):"ADAPTED BY "(2):(13):"TECHNOLOGY FOR LANGUAGE AND LEARNING":(12):"P.O. BOX 327":(5):"EAST ROCKAWAY, NY 11518-0327"8:22:"PRESS ANY KEY TO BEGIN"A$:: ( ! @p@*#;@rr KM6a@E(Π)E@QKM6a@E()Q KM6[ )d2ehKd"ero wd2e?B|Pa(͠)GTM6`$`$`$+q-rUVW$d8re.?rYd8re`@*#r9()$@p@*#;@rrKM6a@E(Π)E@Q()r$T -rq ` %a()GbE()Gq"UVW,d e.?ra@GYc;@`.?%r$Td!ed e`%_Jo_T6JKoa(ԠΠϠ)GM6M6\TY<^` %a()GbE()Gd2e?a(̠@E(ΠϬɬ)]\;dedede.?6rde.?7rq +dedede(dea@E(Ǭְ)a@E(ң)a@E(Σ)Ѱqѱq ,qUVW8.?r.?rrX&`.?r<eidedede]Zdededeide@dededededededdedeKnd ehd!ed"ed#e`d$ed%ed&ed'exd(ed)ed*e`aWP2q@p()q.?Jr.?KrN@"rD4FrD4Fr@p()]Ĥ̭<d e@p@]Fde8deHdededededede ded e]Pd eid ed ed e`dededD";N$,t(1):"CATALOG ANOTHER DISK ";:N$?~(N$)0ī1140ZN$"Y"N$"N"ī1140lN$"Y"ī1100r UNLOCK A FILE:(4);"UNLOCK ";N$N$;" IS UNLOCKED "I FILE Y OR N ";:N$:6$N$"Y"N$"N"ī1040D.N$"Y"Ĭ[8N$"N"ĉ:216,0:nB BUILD STRINGL"CATALOG DISK IN WHICH DRIVE ";:N$:"DRIVE ";N$V(N$)0ī1100`(N$)1(N$)2ĺ"THAT'S AN ILLEGAL DRIVE ":1100jD$;"CATALOG,ABA$(I)I)D$;"CLOSE ";N$GN$;" IS WRITTEN TO DISK"P500_D$;"PR#1"jIABA$(I):Y$"2"ĺID$;"PR#0""ANOTHER COPY ":P$:P$"Y"ī750P$"N"ĺ"EXIT PRINT ROUTINE ":5001010"READ ANOTHER  750" APPEND A DISK FILE* P2I*"WRITE TO WHICH FILE ";N$[4(N$)0ī810>"WRITE LINES ";A;" THROUGH ";B:P$HP$"N"ī500RP$"Y"ī830\fD$;"OPEN ";N$:D$;"CLOSE ";N$pD$;"APPEND ";N$zD$;"WRITE ";N$I D$(4):D$;"CATALOG"C줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  %L"wLh X{gggggg'(dgxkg~9g'7(*䮥G 0 #gMghghPcQ)Wqqqqhhq`uuuQĠ 5EMҠL Šō?FِLÈϚΠ ăκ f ٢  ٦Τ ȹɀI ȄȹH h3 oLP O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` @G>W']5Kgvq7ϠGX͠LϠ٠SGϠDĠHSĠNSĠTܙݙᙯ` ??<<<<<<<0UUUUUUUUWB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<[(N܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ăܪȱ L[ĨP?xO_ڹo  ʤ  Y YoܹݾЇ`TP@xL` Ιϙ_o$0 8 P# o ΅ڥυ e epݕ` 4LˎL$ `  rPՆϦ ` ΅υȩ ` Τ PڵxۥΑȥL`hh$ F`` ͏%ֈ`ʤZA^ܙ ݙ0  m7; xx ԅբ H 0  $ ( x$0  xx 0$FԨֹ)U h)װ H 듥֐ι L؆l`w0P`fLPεϵxϱHȱ΅hΈ` J  P` Y $0`  'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄӠȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe eѕxh$0X~")XȔ) F*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0hޤȄ h󰩠ɩch cɰ$0 $` dq  u  mʥ` ȹ0 L uߙ`` ӎ$0LL*iS 00)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх 8 05  o ` l3 ΃3` 4J G 4&(JJJJ) ` ӏ F٩ $  ΃Ȣ ii)ɰL ̥͐Eʑ˥ʥ˰ਈ$ u~`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOwh(VP`΅h(OM ׁL6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڥυ džة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ Px+L 4P 䏕xL# 48` PxL PeHxeH˰iکeۅȱhڙ=i?BC , LʩM˩I6bVcWdXeYfZg[h\i]j^k_L L3L`) #L $  `  v mL;ʅ˅LM  m            $"C":80 <FS$"N"ĺE$"E":80( F30I PL$(20),D$(20),N$(26),U$(50)] U(4)"RUN MENU"c _ΠҠíˍΠխԍ!lHL ЭhLgϠȠҍԠԠӠЮŠΠǠōҠŠčΠΠ٠Ԭج٬Ġ΍ĤϮ„ HLLHLЭh`hLҠͩϠȠҍԠԠӠЮŠΠǠōҠŠčΠΠ٠Ԭج٬Ġ΍ĤϮ„ HLLHLЭh`hLY\[ X %$ۓ   X |STUVL+i,-5404Í,֔i  𕚭`àҠɠԠ̨"" "