L%hh LHH` X% " ӠӠΠǠ ˮԠˠǠӬĠӠ٠٠ϠŮ+JJJJ ,,,L Lک ٥ҥ>ӥ? ( ㆭ  ؆` | A""""""QQQYV <"<Q '(h((QQQ`@GHOHO $"!$q}T@` `@@``p0 8p@@`00 |0@` `pppPox`D3 < p?|@@@|@`f ppn|>0p  qcs6<, 3['Nxxxpp0` ```@vl  ?`@:3q  AcqcCyO@  0p`@@q @p?|`3cC ? ?>|xp`p`@Acwsssssss__????????~^^ ?~~~~~~~?>~||xpp`@~| xyy{~|@`pp xpp`@yyyyyyyx~ ~x`|xpxqa` cqx|||||||cCC?>>>??<<|||~?`ppxx||<||xxpp`|||||||| |?|p`@@@@`p|? OOGgccqpxsssssssppxxx|<<~?>~||xxxxppp```@@@`?~|x|~|||||||p@@p|~><|xp`@>|x|xpx}yyyyyyyAA?~|xpp`ppx|~? ?? 33@``@@glloLL LlOgloloG @`@glolo@@gLLL GaamGGlg`GGlg`G  xL| x@@xMLLxMyyM MyxAxMx|Yq @lllLglllgG LlL`@GLOLo033366m~0>3>33~G<`G}rccb``acccq{{{{8008????~ |lL COoooog CgoooocCFFLLXXPpqa88`}}}}>????~ | ~FCCFL ____|GG|GGccp{{{{ ;1q``qp`aas{{{{8008 0y| |}}}}AAQg((h' $C@0j ed`y < I1@@q q s8EE9EE8> ` `$DC0ANPQN@'h(' WPG((H@stq q8AyEx:NPQ@GhHHG#$p# @ (*Y9AyEy: QQQO~C%%C~_DDD qAAAaq9`ppxxx|xxx|AsGN8088 Ccˆʎõĵ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 iõ`  \ 濭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- ( t Ϡ@跻~!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䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`.5) & ?& "SIMULATED LOSSES ";(T1.5);34);(T2.5)E& & "% OF ORIGINAL LOSSES";24);(100(T1P1).5);35);(100(T2P2).5)& B$"Y"3100& 35000::43000& ---------------------------------& 35000:43000'& - UNION % R1031007% "FOR THE "WLW0" BATTLES FOUGHT:"=% % B$"N"ĺ" CONFEDERACY":" (YOU) UNION":2991% " CONFEDERACY UNION"% & "HISTORICAL LOSSES ";(P1.5);34);(P2:"THE UNION HAS SURRENDERED.":(6))$# 3$' 29209$, c$6 "THE CONFEDERACY ";:B$"N"ĺ"(YOU)"i$; $@ "HAS WON "W" BATTLES AND LOST "L$f WL2940$h :"THE CONFEDERACY HAS WON THE WAR.":$r 2950$| :"THE UNION HAS WON THE WAR.":% M3M3M1# M4M4M2"# 33000# U(U20)O# B$"Y"ĺ"---------------"W# RAg# 35000:630# ------FINISH OFF# :(3):"THE CONFEDERACY HAS SURRENDERED":(6)# "THE UNION HAS WON ";L;" BATTLES AND LOST ";W# # 2940#$" :(3)ULATIVE BATTLE FACTORS WHICH ALTER HISTORICALH"Z RESOURCES AVAILABLE.S"n WW1c"x T1T1C5Et" T2T2C6E2" P1P1C1" P2P2C2" Q1Q1(F(1)H(1)B(1))" Q2Q2(F(2)H(2)B(2))" R1R1M1(100I1)20" R2R2M2(100I2)20 # CASUALTIES WERE "(100(C5C1).5)"% OF"S! :"THE ACTUAL CASUALTIES AT ";C$;"."[! :r! - FIND WHO WON! U12590! C5E17C2C1(C520)5O2630! "YOU LOSE ";C$!( A02790!2 LL1!< 2680!F "YOU WIN ";C$;"."-"P - CUM ` C5EC6E22460) j C5EC6E22440F t "THE UNION WINS "C$;"."P ~ 2600s "THE CONFEDERACY WINS "C$;"."} 2670 "BATTLE OUTCOME UNRESOLVED" W0W01 A02790 2680 C6(17C2C1(C520)) E25O 2280)! "YOUR WITH THE"0 "ACTUAL CASUALTIES AT ";C$;":":i "CONFEDERATE: "(100(C5C1).5)"% OF THE ORIGINAL"o $ "UNION: "(100(C6C2).5)"% OF THE ORIGINAL". :8 - 1 WHO ONEB U12380G U212460L U12420V U2124401(P1T1)(M31))2270=C5(13M120(1(P1T1)(M31)))LE7C513UU1cD12500"CASUALTIES";:18(((C5))2):C5;:34(((C6))2):C6"DESERTIONS",(E),(E2): B$"Y"2530  "LET'S SEE HOW YOU COMPARE[B$"N"ĺ" CONFEDERACY":" (YOU) UNION":2192" CONFEDERACY UNION"C5(2C15)(11(2((Y2Y)1)))C5(C5(11O)(1.28F1(B(1)1)).5)E100OC5100OM1(5)(11(2((Y2Y)1)))<*C6C6(1.28(5M26)(B(2)1))V4C6(C6(11O2).5)> - IF LOSS > MEN PRESENT, RESCALE LOSSESHE2100O2R(C6E2)M62180\C6(13M620)fE27C613pU21z - CALCULATE SIMULATED LOSSES 50002170I22040%Y1Y3M219509\::"UNION";::" GENERAL---"bpI21840~M22010M32000M32010M1IY2YYY1 Y251950 : SIMULATED LOSSES-NORTH C6(2C2ON THE OFFENSIVE":30670CV(37):"YOUR STRATEGY? ";H:868:40000Q;YZNdD(Y3)31890N(23):868:"STRATEGY ";Y;" NOT ALLOWED."S(CV1)X1840bY5I22830gY52850lB$"Y"1930nM21910qv3110{3I12I21790%M21778U"BOTH SIDES ARE ON THE OFFENSIVE":35000:^306oB$"N"1790:"CONFEDERATE";::" GENERAL---"M21840M31830" YOU ARE ON THE DEFENSIVE":2601840&" YOU ARE "; 61620(@:7:"UNION";::" ";JTO((2F(Z)2H(Z)2)F121)Y^O101660oh"MORALE IS HIGH"yr1700|O51690"MORALE IS FAIR"1700"MORALE IS POOR":B$"Y"1760O(Z)OZO2O(2)OO(1)K 12307(23):"NEGATIVE VALUES NOT ALLOWED."HN1365,1405ZB$"Y"1550hI21550Q1324:Q:868:Q13:"UNION";::" GENERAL---"IZ1DB$"Y"1620"Z1580,1600,:"CONFEDERATE";::"EDERICKSBURG","MURFREESBORO","CHANCELLORVILLE","VICKSBURG"6 "GETTYSBURG","CHICKAMAUGA","CHATTANOOGA","SPOTSYLVANIA","ATLANTA"624:7:16368,0:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:868: 7@CH(36):CV(37):8GUST, 1864. SHERMAN AND THREE"%5T5"VETERAN ARMIES CONVERGED ON ATLANTA AND"Z55"DEALT THE DEATH BLOW TO THE CONFEDERACY."5115055 DATA FOR LIST OF BATTLES::6 "BULL RUN","SHILOH","SEVEN DAYS","2ND BULL RUN","ANTIETAM","FRGEN. ROSENCRANS' ARMY FOR THREE"&4WQ4Z"MONTHS, GEN. GRANT BROKE THE SIEGE."[4d11504n"MAY 5, 1864. GRANT'S PLAN TO KEEP LEE"4p4s"ISOLATED BEGAN TO FAIL HERE, AND"4u4x"CONTINUED AT COLD HARBOR AND PETERSBURG."411505"AU+3"GEN. LEE AT GETTYSBURG COST THEM ONE"13`3"OF THE MOST CRUCIAL BATTLES OF THE WAR."j3(115032"SEPT. 15, 1863. CONFUSION IN A FOREST."373<"SOUTHERN VICTORY."3F11503P"NOV. 25, 1863. AFTER THE SOUTH HAD"3R 4U"SIEGED ANDING GENERALS, 'STONEWALL' JACKSON."021150]2"JULY 4, 1863. VICKSBURG WAS A COSTLY"c22"DEFEAT FOR THE SOUTH BECAUSE IT GAVE"22"THE UNION ACCESS TO THE MISSISSIPPI."2 11502"JULY 1-3, 1863. A SOUTHERN MISTAKE BY"2TTACK BY"151"THE UNION UNDER GEN. BURNSIDE."?11150j1"DEC 31, 1862. THE SOUTH UNDER GEN."p11"BRAGG WON A CLOSE BATTLE."111501"MAY 1-6, 1863. THE SOUTH HAD A COSTLY"1:"VICTORY AND LOST ONE OF THEIR OUT-":&2"STORCES "&0y:"BACK INTO WASHINGTON."00~1150Z0"SEPT 17,1862. THE SOUTH FAILED TO"`00"INCORPORATE MARYLAND INTO"00"THE CONFEDERACY."011500"DEC 13, 1862. THE CONFEDERACY UNDER"0 1"LEE SUCCESSFULLY REPULSED AN AFFENSIVE THROUGHOUT THE"/IF/L"BATTLE AND FORCED GEN. MCCLELLAN"L/N|/V"AND THE UNION FORCES AWAY FROM RICHMOND."/`1150/j"AUG 29-30, 1862. THE COMBINED"/l/o"CONFEDERATE FORCES UNDER LEE"/q0t"AND JACKSON DROVE THE UNION F PUSH"&.:"BACK THE UNION ATTACK."0.1150Y.$"APRIL 6-7, 1862. THE CONFEDERATE"_.&.)"SURPRISE ATTACK AT SHILOH FAILED".+.."DUE TO POOR ORGANIZATION.".81150.B"JUNE 25-JULY 1, 1862. GENERAL LEE (CSA)".D/G"UPHELD THE O.,17723,18000,2<- "ATLANTA",65000.,100000.,8500,3700,1j- "JULY 21, 1861. GEN. BEAUREGARD, "p- -"COMMANDING THE SOUTH, MET UNION FORCES"--"WITH GEN.MCDOWELL IN A PREMATURE BATTLE"-. "AT BULL RUN. GEN. JACKSON HELPED0,90000.,13000,17197,2F, "VICKSBURG",50000.,70000.,12000,19000,1w, "GETTYSBURG",72500.,85000.,20000,23000,3, "CHICKAMAUGA",66000.,60000.,18000,16000,2, "CHATTANOOGA",37000.,60000.,36700.,5800,2- "SPOTSYLVANIA",62000.,1100005000.,20614,15849,3I+ "SECOND BULL RUN",54000.,63000.,10000,14000,2x+ "ANTIETAM",40000.,50000.,10000,12000,3+ "FREDERICKSBURG",75000.,120000.,5377,12653,1+ "MURFREESBORO",38000.,45000.,11000,12000,1, "CHANCELLORSVILLE",3200*R I*\ - HISTORICAL DATA...CAN ADD MORE (STRAT.,ETC) BY INSERTING *f DATA STATEMENTS AFTER APPRO. INFO, AND ADJUSTING READ*p "BULL RUN",18000,18500,1967,2708,1*z "SHILOH",40000.,44894.,10699,13047,3+ "SEVEN DAYS",95000.,11, START FORGETTING OLD ONESX) - PRESENT STRATEGY OF SOUTH GAINS 3*S, OTHERS LOSE S) PROBABILITY POINTS, UNLESS A STRATEGY FALLS BELOW 5.) S3) S00) I14) S(I)53390)* S(I)S(I)S)4 S0S0S)> I)H S(Y)S(Y)S0 - IF ACTUAL STRATEGY INFO IS IN PROGRAM DATA STATEMENTSv( THEN R-100 IS EXTRA WEIGHT GIVEN TO THAT STATEGY.( RS03270( I( - IF ACTUAL STRAT. IN,THEN HERE IS Y2= HIST. STRAT.( Y2I( Y2( ) LEARN PRESENT STRATEGYSTRATEGY IS COMPUTER CHOSEN)'* M231207'+ M13118j', :"CHOICES FOR DEFENSIVE STRATEGY ARE"::270t'- 3120'. :" CHOICES FOR OFFENSIVE STRATEGY ARE"::320'0 :"UNION STRATEGY IS ";'l S00'v R100(1)' I14' S0S0S(I):( ";:XX1ĺ" ";*E36000::31:"------"3FQQ1^JI1I:ID1F(4)B1F(2)M1F(1)E1F(3)mKQQ01615L10:"TOTAL FUR SALES:";:30:"$";:I100ĺ" ";:I10ĺ" ";:I1ĺ" ";MQQ0NXXI:36000:OIII1T/ ^"YOU NOW HAVE $";:XXI$";:E11ĺ" ";`:XXE1:36000:26:"= $";:XXE1F(3):XX100ĺ" ";:XX10ĺ" ";:XX1ĺ" ";m;36000:@F(4)100ĺ" ";:F(4)10ĺ" ";BF(4);" ";B$(4);:14:"@ $";:D11ĺ" ";DXXD1:36000:26:"= $";:XXD1F(4):XX100ĺ" ";:XX10ĺ"";'36000:2,F(2)100ĺ" ";:F(2)10ĺ" ";`.F(2);" ";B$(2);:14:"@ $";:B11ĺ" ";0XXB1:36000:26:"= $";:XXB1F(2):XX100ĺ" ";:XX10ĺ" ";:XX1ĺ" ";136000:6F(3)100ĺ" ";:F(3)10ĺ" ";8F(3);" ";B$(3);:14:"@ .00."0:"YOUR TRAVEL EXPENSES WERE $17.00."6<Z:10:"TRADING SUMMARY:"`"F(1)100ĺ" ";:F(1)10ĺ" ";$F(1);" ";B$(1);:14:"@ $";:M11ĺ" ";&XXM1:36000:26:"= $";:XXM1F(1):XX100ĺ" ";:XX10ĺ" ";:XX1ĺ" FURS BEHIND."1530!1610.B1B12;M1M12B1|"YOUR MINK AND BEAVER WERE DAMAGED":"ON YOUR TRIP.""YOU RECEIVE ONLY HALF THE CURRENT":"PRICE FOR THESE FURS."0153001550:"SUPPLIES AT NEW YORK COST $88PARTY WERE KILLED. THIS ENDS THE GAME.":i35000:40000fn"YOU WERE LUCKY. YOU ARRIVED SAFELY."x"AT FORT NEW YORK."01510017002"YOU NARROWLY ESCAPED AN IROQUIS":"RAIDING PARTY. HOWEVER, YOU HAD TO" "LEAVE ALL YOUR 100)B1((.25(1)1.00)100.5)100OD1((.25(1)1.10)100.5)100c(P((1)10)1s2P2013607P61390<P801420FP1001470P:"YOU WERE ATTACKED BY A PARTY OF"::"IROQUOIS. ALL PEOPLE IN YOUR TRADING"(d:"E NOT CURED PROPERLY.":"NO ONE WILL BUY THEM.":01230E01550w:"SUPPLIES AT FORT STADACONA COST $125.00.""YOUR TRAVEL EXPENSES WERE $15.00."II105M1((.15(1)1.05)100.5)100 E1((.15(1).95)100.5)TOLEN WHEN YOU":"RETURNED."'B012301L1550^V"YOU ARRIVED SAFELY AT FORT STADACONA."i`01210tj01700t:"YOUR CANOE UPSET IN THE LACHINE RAPIDS":"AND YOU LOST ALL YOUR FURS."0123001610F(4)0/:"YOUR FOX PELTS WER=ZE343049I=:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"U=)1023,9]=*:I:43005e< "WOULD YOU LIKE TO:"::"1) RUN THIS PROGRAM AGAIN,"::"2) RUN A DIFFERENT PROGRAM, OR"u< :"3) END"<13:"PLEASE ENTER 1, 2, OR 3 ";:868<40000:ZEZN<ZE0ZE443030<:"PLEASE ENTER A NUMBER 1 - 3":43022<ZE1Ĭ(ZN$): ;JCV1:36,CH:868:7; END OF PROGRAMB;::5Y;(1023)12343020;5:"WOULD YOU LIKE TO RUN THIS PROGRAM"::"AGAIN - YES OR NO";:868;A$;(A$,1,1)"Y"Ĭ;(A$,1,1)"N"43050<:"PLEASE ANSWER WITH YES OR NO"A AND" :<:"DEALT THE DEATH BLOW TO THE CONFEDERACY."F:1150L:b:@CH(36):CV(37):AZN$:(ZN$)(((ZN$)))40003:B(ZN$)0ZN$"0"40006:CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001;FZM:868:CV1(CV23):ZNING THE MENU PROGRAM...":(13);(4);"RUN HELLO"]9:"PLEASE ANSWER WITH YES OR NO":430059:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"G."911509"AUGUST, 1864. SHERMAN AND THREE"9:"VETERAN ARMIES CONVERGED ON ATLANTCH1:CV1:868:ZN$;:4000178JCV1:36,CH:868:N8 END OF PROGRAMY8::585:"WOULD YOU LIKE TO RUN THIS PROGRAM"::"AGAIN - YES OR NO";:8688A$:A$(A$,1)8A$"Y"ė:6308A$"N"(1023)123ė:09A$"N"ė:10:"GETT68:ZN$""V7A16368,0:16384,128:BB(16384)128:BB8BB13(BB48BB57)400017B16368,0:BB8ĭ(ZN$)2ZN$"":400097CBB8ZN$(ZN$,(ZN$)1):400097DBB13(ZN$)0400017EBB13ĢCV1(CV23):1:ZN(ZN$):7FZN$ZN$(BB)8I7,141,37,1,4,0,10,49,0,63,52,0,0,6,11,23,9,98,52,18,5" 7,12,14,10,126,52,11,5,8,13,15,11,141,52,1,5,0,0,20,12,218,52,0,0,11,15,0,0,126,76,0,0,12,16,21,14,141,76,1,11# 0,0,22,15,168,76,0,0,0,18,24,0,193,66,18,6,0,0,19,17,203,66,5,6,18,20,0,0,203,7,184,57,184,71,175,17 GARBONZO DATA <--d!! 0,2,4,0,71,15,17,2,0,3,5,1,98,15,18,2,0,0,8,2,141,15,1,2,1,5,0,0,71,25,17,3,2,0,6,4,98,25,18,35" 5,7,10,0,98,37,18,4,0,8,11,6,126,37,11,4,3,0,12,8,74,5,10,29,0,0,20,168,91,0,0 19,32,35,0,98,102,1,6,20,0,36,31,114,102,16,6,11,34,0,0,82,114,0,0,0,0,37,33,133,114,0,0,31,36,0,0,98,128,1,3 32,37,0,35,114,128,16,3,34,0,0,36,133,128,0,0! 139,4,59,59,69,124,129,74,174,88,131,99,219,34,219,45,114,77,16,4,17,20,31,0,98,91,1,5,18,30,32,19,114,91,16,50,22,26,0,156,38,0,0,0,23,24,21,183,38,11,7,0,0,25,22,203,38,12,7,22,25,0,0,183,48,11,8,23,0,0,24,203,48,12,8 21,27,28,0,156,61,7,9,0,0,29,26,168,61,5,9,26,29,0,0,156,74,7,10,27,0,30,28,16,8,11,6,82,34,3,14,0,9,12,7,114,34,16,14,0,0,13,8,133,34,1,14,6,11,0,0,63,47,2,157,12,33,10,82,47,3,15,8,13,15,11,114,47,16,15,9,0,16,12,133,47,1,15,0,15,17,0,98,60,0,0,12,16,18,14,114,60,16,1913,0,0,15,133,60,0,0,14,18,19,0,98,77,1,4,15,0,20,17a FOLLOWING THE CORNER INFO ARE PAIRS OF CO-ORDS FOR PRINTING THE STREET NUMBERS ON THE MAP.g --> CRANZ DATA <--0,2,4,0,63,9,0,0,0,0,5,1,82,9,3,2,0,0,9,0,133,5,0,0,1,5,6,0,63,18,2,13,2,0,7,4,82,18,3,13Q4,7,10,0,63,34,2,14,5S:*y 1) INTERSECTION # IF YOU GO NORTHIz 2) INT. # IF YOU GO EASTi{ 3) INT. # IF YOU GO SOUTH| 4) INT. # IF YOU GO WEST} 5) X CO-ORD OF INTERSECTION~ 6) Y CO-ORD OF INTERSECTION 7-8) STREET NUMBERS THAT INTERSECT HERENOMON C":(4);"RUN NOMAD2":B24:868:7:16368,0:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1::tv --> CITY MAP DATA <--wx FIRST SECTION OF DATA FOR EACH CITY CONTAINS 8 BYTES FOR EACH CORNER AS FOLLOW::"IT WILL BE A FEW MORE MINUTES.":1050u"THE LAST USER HASN'T RETURNED IT."::"YOU MUST WAIT A FEW MINUTES."T3ĺ(4);"BLOAD NOMTAB1":1070$(4);"BLOAD NOMTAB2".:10:14:"*";(7);(7);"*GOOD LUCK*";(7);(7);"*":2558:(4);" GO TO GET YOUR CAR,"36:T1010,1020,1030,1040"THERE IS MECHANICAL TROUBLE WITH IT."::"IT'LL BE AVAILABLE IN A FEW MINUTES.":1050"ZEKE HAS A BIG MAC ATTACK."::"HE WILL BE RIGHT BACK.":1050*"THERE IS A PROBLEM FILLING OUT FORMS."I$"YES"ĺ:"WHICH ONE?":940/I$"NO"9808100b:"SORRY, WE DON'T SERVE THAT.":980:"ENJOY YOUR ";I$;", ";N$;"."12:"YOUR FLIGHT LANDED IN ";C$(T);".":255:1090:100:2:"YOU ARRIVE AT ZEKE'S RENT-A-CAR,"::"BUT WHEN YOU$(T),Y,1):920:Y:T$"#":UL((1)100)50:Y$;:P(16336)(16336):e100: INTRO TO TRIP4:"WELCOME ABOARD FLY-AWAY AIRLINES."::868:"COFFEE, TEA, OR MILK? ";I$958100I$"COFFEE"I$"TEA"I$"MILK"ī9702558:"";Y$.#TY$(Y$,1):Y$"Y"Y$"N"40010I#^Y$"Y"Ĺ1022,111:165_#h(1023)123ė:#r:10:"GETTING THE MENU..."#|(4);"RUN HELLO"#ATTED PRINT ROUTINE+"XX(XX100.5)100C"XX.001ĺ".00";:e"X$(XX):Y$((XX)):Z$".00"{"L1(X$):L2(Y$)"Y$"0"L20"X$Y$ĺX$;".00";:"ȌX$X$(Z$,L1L21)"͌X$;"Ҍ"@:#J10:"DO YOU WANT TO PLAY AGAIN? ";:86NK","BEAVER","ERMINE","FOX" "!Z!"YOU ENDED YOUR FUR TRADING WITH $";:XXI:36000:`!k!40010! SPACE BAR ROUTINE!ˆ24:868:16368,0:7!̈"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0!ֈ1:868:" FORM:36000:" INCLUDING":"YOUR PREVIOUS SAVINGS."5 cD gCV(37)1v hCV:868:"DO YOU WISH TO TRADE FURS AGAIN"; r"? ";B$:B$(B$,1):B$"Y"B$"N"1640 w |B$"Y"380 B$"N"1760 J14 F(J)0 J  ! "MI ENTER A POSITIVE NUMBER.";:40010:40001QFZM:868:CV1(CV23):ZN(ZN$):jJCV1:36,CH:868: END OF PROGRAM::55:"WOULD YOU LIKE TO RUN THIS PROGRAM"::"AGAIN - YES OR NO";:868A$:A$(A$,1):A$"Y"A$"N"43005AR";::" TO CONTINUE";:16384,128:16368,0<ֈ1:868:R@CH(36):CV(37)zA"";ZN$:(ZN$)(((ZN$)))40003B(ZN$)0ZN$"0"40004CZM:868:"THAT IS NOT A NUMBER - TRY AGAIN.";:40010:40001)D(ZN$)0ĢZM:868:"BE SERIOUS. ":"BUT WE ALL HAVE OUR TRIVIAL PROBLEMS."<*35000:43000x+:"O GREAT ONE"::11:"REPORT FOR YEAR ";Z1;":":ZZ1 N FORMATTED PRINT ROUTINE*N23((XX))4NXX;: SPACE BAR ROUTINEˆ24:868:7:16368,0-̈"PRESS ";::"SPACE BAM CO.>>":<-- .145,51,130,80,130,49,38."$","DEAR"," HOW ARE YOU? I LIVE AT THE CORNER","OF ROAD #","#"," & #","#"," IN THE CITY OF ","#",". COME ON OVER." / " "," LOVE"," GRAMMA"," ","< TELEGRAM DATA 1,13,8~, 0,22,26,20,83,91,14,8,17,23,27,21,139,91,12,8,18,24,28,22,154,91,5,8,19,0,29,23,169,91,4,8,20,26,30,0,68,105,13,9, 21,27,31,25,83,105,14,9,22,28,32,26,139,105,12,9,23,29,33,27,154,105,5,9,24,0,34,28,169,105,4,9,25,31,0,0,68,119,13,10w-,10,14,0,128,41,3,6,1,11,16,9,142,41,2,6+ 6,12,18,10,154,41,5,6,2,0,19,11,169,41,4,6,8,14,0,0,93,53,0,0,9,0,0,13,128,53,0,0,7,16,0,0,80,61,0,0, 10,0,0,15,142,61,0,0,0,18,22,0,139,77,12,7,11,19,23,17,154,77,5,7,12,0,24,18,169,77,4,7,0,21,25,0,68,927,109,89,109,112,20,140,137,170,137,177,60,187,908*Q* --> SNOIT DATA <--W** 0,2,10,0,142,11,2,4,0,0,12,1,169,11,0,0,0,4,7,0,80,27,2,1,0,0,8,3,93,27,3,1,0,6,9,0,128,27,3,5(+ 0,0,11,5,154,27,0,0,3,8,15,0,80,41,2,15,4,0,13,7,93,41,3,15,55,13,19,28,29,0,157,100,18,8,0,0,30,27,172,100,19,8,27,30,31,0,157,114,18,9,28,0,32,29,172,114,19,9) 29,32,0,0,157,128,18,10,30,0,0,31,172,128,19,10,172,3,177,17,182,28,182,41,182,52,192,71,192,81,1892*98,189,112,189,126,76,54,76,83,76,98,110,70,10,0,133,73,0,0,14,18,19,16,157,73,18,6,0,0,20,17,182,73,21,6,17,20,27,0,157,85,18,7,18,0,0,19,182,85,21,7( 4,22,24,0,106,85,16,12,0,23,25,21,121,85,14,12,0,0,26,22,133,85,15,12,21,25,0,0,106,100,16,13,22,26,0,24,121,100,14,13c) 23,0,0,25,133,100,1,6,12,4,121,40,17,2'd0,7,13,5,133,40,6,2,2,0,0,6,144,40,0,0,3,9,10,0,157,30,18,3,0,0,11,8,172,30,20,3,8,11,14,0,157,43,18,4'n 9,0,15,10,172,43,20,4,5,13,0,0,121,56,17,11,6,0,16,12,133,56,6,11,10,15,17,0,157,56,18,5,11,0,0,14,172,56,20,5i(x13,17,47,23,160,12,43,22,43,34,43,70,146,61,112,80,184,107,184,118,184,131,161,146&P145,153,120,146,105,153,73,94,67,145,67,0,73,73&S &U --> NEMWOG DATA <--&W'Z 0,0,3,0,157,5,18,1,0,3,7,0,144,19,0,0,0,0,8,2,157,19,18,2,0,5,21,0,106,40,16,2,0,9%2 33,42,0,0,73,134,16,10,34,43,0,41,84,134,15,10,35,44,50,42,98,134,5,10,36,45,0,43,113,134,14,10,37,46,0,44,128,134,13,10%< 38,47,0,45,141,134,1,10,39,48,0,46,156,134,12,10,40,0,0,47,168,134,11,10,9,50,0,0,63,157,0,0,43,0,0,49,98,157,0,0L&F1110,1,8$0,32,39,30,156,110,12,8,22,0,40,31,168,110,11,8,25,34,41,0,73,122,16,9,26,35,42,33,84,122,15,9,27,36,43,34,98,122,5,9,28%(37,44,35,113,122,14,9,29,38,45,36,128,122,13,9,30,39,46,37,141,122,1,9,31,40,47,38,156,122,12,9,32,0,48,39,168,122,118,0,0,13,0,0,19,218,78,0,0#  15,22,30,0,141,83,1,7,16,0,32,21,168,83,11,7,10,24,0,0,98,98,0,0,17,0,0,23,193,98,0,0,0,26,33,0,73,110,16,8$ 0,27,34,25,84,110,15,8,0,28,35,26,98,110,5,8,0,29,36,27,113,110,14,8,0,30,37,28,128,110,13,8,21,31,38,29,141,::10:"BBBRRRR...A BLIZZARD STRANDS YOU.":1460:1410:21:"**TRAFFIC JAM**":L14000:L:"THE TRAFFIC THINNED SOMEWHAT...."1460:2501460::10:A(3)1220,1230,1250"NO INJURY...EXCEPT TO CAR.":12709"MINOR INJURIES...WH1)ĺ".0";!Iu!NuGROIX,45,85,RAINY LAKE,3,70|  LIGHT,MODERATE,HEAVY,CLOTHES,GUNPOWDER/SHOT,WINE,FLOUR/SUGAR,TOBACCO,TRADING GOODS,PEMMICAN xP PZ1(ZA$) PZ1((ZA$,Z,1)) PZ13220660 PZ1ZX,ZY PZXZX8 P: 0uN110ĺ" "; :uN1; !DuN1(NORTAGE,260,100,PARTRIDGE PORTAGE,255,116cOUTARDE PORTAGE,235,120,THROUGH MOOSE PORTAGE,215,115NEW GRAND PORTAGE,190,110,REACH HEIGHT OF LAND,160,100,GUNFLINT LAKE,130,105 MARABOU-KNIFE LAKE,93,110,LAC LA CROIX NEAR MAI ISLAND,70,90,LAC LA C."::"ALMOST AN EXPERT PIERRE!!!":w"HIVERANT."::"YOU ARE AN EXPERENCED VOYAGEUR BUT"::"STILL CAN IMPROVE.":"MANGEUR DE LARD."::"YOU NEED PRACTICE."::"COME AGAIN TO THE VOYAGEUR'S HIGHWAY.":1470:::6(LEAVING GRAND PD" DAYS FOR THE"::"JOURNEY AND YOU TRADED FOR "F" FURS YOU"[:"ARE QUALIFIED AS A ";cZ4uD25F0Z3D15F20Z2D10F50Z1Z1509,1510,1511,1512:1514"BOURGEOIS."::"YOU ARE AN EXPERT VOYAGEUR!!!":$"COMMISV:"SORRY PIERRE":"YOU JUST DIED OF STARVATION"^"BEEN NICE KNOWING YOU.":151424:868:7:16368,0:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:::::"YOU MADE IT!!!!!":="BECAUSE IT TOOK YOU "T TO STOP AND REPAIR IT?";G$2f(G$,1)"N"1390Rh(G$,1)"Y"(G$)01380kjC100:DLDL1:MM10|nP(1)01430x:::"SORRY PIERRE"::"YOU HAVE LOST ALL YOUR CLOTHES AND DIED"}:"OF EXPOSURE.":1514::P(7)0āV1500: ISLAND AND ":"HAD TO SWIM TO GRAND PORTAGE.":1519?Z17U(P(Z)0W9113402"YOU RAN OUT OF ";P$(Z);".":P(Z)0:W913E1<P(Z)0P(Z)0FPE1E0:1470ZC1001390d:"CANOE REPAIR AT "C"% OF POSSIBLE."::"DO YOU WANM01280n:"THE LOW MORALE CAUSED EVERYONE TO QUIT."::"BECAUSE OF THIS, YOU HAVE BEEN FIRED.":1519I1500:I:C01310 "BECAUSE OF THE WAY YOU ABUSE YOUR"::"CANOE, IT WAS DESTORED IN THE WATER.":4"YOU WERE STRANDED ON A SMALL:DLDL1:1130&P(3)0P(6)012501MM15Q:"THE MEN ARE UNHAPPY.":"WOULD YOU LIKE TO STOP FOR A ONE DAY ":868:"REST?";G$:(G$,1)"N"MM10:1230(G$,1)"Y"Ģ7:1210(G$,1)"N"1250MM15:DLDL1:M100M100 "THEY WANT ALL YOUR TRADING GOODS.":"SINCE THEY ARE THE ONLY PLACE YOU CAN ":"PURCHASE GOODS."19:"DO YOU STILL WANT TO TRADE?";G$:(G$,1)"N"ė:1020(G$,1)"Y"1160T9((1)50)10:"YOU GET "T9;" "P$(7):P(7)P(7)T9:P(6)0:DLDL13,73,69,69,65,65,61,62,58,58,54,55,51,52,48,49 46,46,43,44,41,41,38,39,36,37,34,35,32,33,30,31,29,29,27,28,26,26,24,25,23,23,21,22,20,21,19,20,18,18,17,17,16,16,15,16,14 4,106,172,3,106,96,32,146,94,173,148,105,0 R1,208,152,234,234,76,112,3,230,2,208,5 230,3,208,5,96,234,76,125,3,208,236,0,0,246,246,232,232,219,219,207,207,195,195,184,184,174,174,164,164,155,155,146,146,138. 138,130,130,123,123,116,116,109,110,103,104,97,98,92,92,87,87,82,82,77,78,7,0,173,48,192,230,2,208,5,230 3,208,5,96,234,76,47,3,136,240,209,76,53,3,208,235,173,255,2,10,168,185,127,3,133,0,173,253,2,74,240,4,70,0,208,249,185,127& 3,56,229,0,133,1,200,185,127,3,101,0,133,0,169,0,56,237,254,2,133,3,169,0,133,2,165,A$"Y"Ľ:1080* (1023)123ė:e:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"O TRY AGAIN USING DIFFERENT"! O "NUMBERS OF SIGNS AND REALLY STUDY THE "U  "RESULTS TO LEARN THE BEST COMBINATION." 35000: 43000 P(J)P2 E(J)E1 N(J)N2 I(J)I1  N01860 N501840!3:"TOO BAD H35000:43000J100 OST13:"GOOD, HOW MANY SIGNS SEEMED TO BE THE":i\"BEST FOR YOU?";y^40000:SZNhS5S201670q:6r"IT LOOKS LIKE YOU HAVE THINGS FIGURED"vz"OUT PRETTY WELL."|1690 :7:"YOU SHOULD5000: J6C "DO MORE ADVERTISING SIGNS MEAN 'MORE'":b$"OR 'FEWER' PLANTS SOLD";p6868:A$z;958@(A$,1)"M"1620A(A$,1)"F"Ģ12:"CAN'T YOU READ?? 'MORE' OR 'FEWER'?":1560E20:"ARE YOU SURE? BETTER TRY AGAIN."1" TOTAL TOTAL PLANTS"_"INCOME EXPENSES PROFIT LEFT"eZDI:45000:ZD$;12);:ZDE:45000:ZD$;22);:ZDP:45000" ";ZD$;38((N)));N35000:JD1525155017903"YOU SHOULD LOOK AGAIN."%1380<J((D1)2)1480JJD1550n"FINAL SALES REPORT FOR ";N$x1490~"MID WEEK SALES REPORT FOR ";N$"AFTER ";J;" DAYS OF SELLING:""---------------------------------------"380 P23.Q"GOOD FIGURING, LET'S GO ON."CRJD1İ35000:MZ1430S_[d21e"DID THE EXTRA ADVERTISING HELP YOU";:868nA$x(A$,1,1)"Y"I(J)I(J1)E(J)E(J1)1360(A$,1,1)"N"I(J)I(J1)E(J)E(J1)136023"YESTERDAY. THIS HELPED YOU TO SELL ";N(J)N(J1);""; e"MORE PLANTS THAN YESTERDAY. THESE"k"EXTRA SIGNS COST YOU ";:ZDE(J)E(J1):45000:ZD$;" MORE AND"("YOUR INCOME INCREASED BY ";:ZDI(J)I(J1):45000:ZD$<F1((N2)));N2B"SIGN EXPENSES INCOME PLANTS LEFT"kZDE1:45000:ZD$;19);:ZDI1:45000uZD$;36((N)));N1740J11430A(J)A(J1)1362"TODAY YOU MADE ";A(J)A(J1);" MORE SIGNS THAN"5A.01`III1jEEE1&tPIE1~NNN27=j"DAY ";J;" FINANCIAL REPORT FOR ";N$"---------------------------------------""PRICE ADVERTISING SIGNS PLANTS SOLD"P2P1.01 ZDP2:45000:ZD$;14);A(J);365"NUMBER OF SIGNS EACH DAY SO YOU CAN FIND"_"THE BEST NUMBER OF SIGNS TO MAKE.";$CV(37):CH(36):40000:A(J)ZN)A(J)0Ĺ36,CH:CV1:868:1060.N2(N1N1(1(A(J)C)C2))8N2N1100BN2NLI1N2P1.01VE1A(J)68:Z CRANZ,M. T. HEADED,GARBONZO,WILL I. HANGUM,NEMWOG,U. R. GUILTY,SNOIT,I. M. FAIRr90:X2((X1X2)2)Y2((Y1Y2)2):R:4:6X,Y:3:(D1)16430:900(D1)16430:900OMAD"(I$,1)"N"1420'768,9>(1023)1231450::10:10:"** SEE YA **";(7);(7);(7):23:22016:(4);"RUN HELLO":24:868:7:16368,0"PRESS ";::"SPACE BAR";::" TO CONTINUE";16384,128:16368,0:1:8RY."@d:"YOU'VE BEEN FOUND GUILTY AS CHARGED...":1460:1410qn:"YOU WERE FOUND NOT GUILTY...":1460:120x LOST THE GAME::10:"SORRY, YOU LOSE.":12:868:"DO YOU WANT TO TRY AGAIN";:I$(I$,1)"Y"ģ16384:::(4);"RUN N;I$2(I$,1)"G"1380C7(I$,1)"I"Ĺ37,(37)3:958:1320<:"A POLICEMAN TESTIFIED AGAINST YOU...":A(5)11390F1380P:"YOUR REFUSAL TO TAKE THE OATH DROVE":"JUDGE ";J$;" CRAZY. YOU'RE"Z"GUILTY OF CONSPIRACY TO COMMIT PERJU$;" TRAFFIC VIOLATION COURT"::"JUDGE ";J$;" PRESIDING."8:"DO YOU SWEAR TO TELL THE TRUTH,":"THE WHOLE TRUTH, AND NOTHING BUT":868:"THE TRUTH? ";I$(I$,1)"N"1360#(I$,1)"Y"1300(:"HOW DO YOU PLEAD":"(GUILTY OR INNOCENT)? "IRRR...AMBULANCE"::"TAKES YOU TO THE HOSPITAL. GRAMMA"[:"SENDS YOU FLOWERS.":1270"YOU DIED IN THE CRASH...DEARLY BELOVED"::"WE ARE GATHERED HERE TODAY TO PAY LAST":"RESPECTS TO THIS POOR DRIVER."1460::1410::39 C 11:31L1:("-------",L1)gZDA(I)L(I)C1S(I)S3:45000:12:30(ZD$):"$";ZD$;" BALANCE"p255A(I)L(I)C1S(I)S3.001101021:"SORRY, BUT YOU CAN'T AFFORD THAT MANY.":35000:33,19:32,21:10::10:1:958:32,0:33,40:21)":15:1:"DO YOU WANT? ";:868:33,40;40000:S(I)ZNUS(I)0S(I)5096521:"PLEASE BE REASONABLE.":35000:21:868:950S(I)(S(I))962SP:ZDS3S(I):45000:10:30L1((ZD$)L1)((ZD$)L1):"-";:31(ZD$):ZD$;" SIGNS",L1)6ZDA(I)L(I)C1:45000:9:30(ZD$):"$";ZD$?255kL(I)C1A(I)L1(ZD$):13:958:950q21:"I DON'T THINK YOU CAN AFFORD THAT MANY."35000:7:958:891(33,21:13:"HOW MANY ADVERTISING SIGNS (";S3100;" CENTS EACH:33,4040000:L(I)ZN6L(I)0L(I)1000905o21:1:"PLEASE BE REASONABLE.":35000:8:958:891L(I)(L(I))902SP:ZDL(I)C1:45000:7:30L1((ZD$)L1)((ZD$)L1):"-";:31(ZD$):ZD$;" LEMONADE"8:31L1:("-------"UPT. THERE ARE"7k:"NO DECISIONS FOR YOU TO MAKE."Dn35000:Np1030zSP:6:ZDA(I):45000:L1(ZD$):30L1:"$";ZD$;" ASSETS":255{24:10:"(TYPE 'END' TO STOP)";:1|8:33,21:"HOW MANY GLASSES OF LEMONADE DO YOU WISH TO MAKE? ";(ZD$)45010+ϯZD$ZD$"0"-+үZD$"$"ZD$:P43022*ZE1Ĭ"*ZE343049]*:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"i*)1023,9q**:*ȯ DOLLAR FIXER*ɯZD(ZD100.5)100:ZD$(ZD)*ʯZE1(ZD$)*˯(ZD$,ZE,1)"."45006*̯ZE*ͯZD$ZD$".00":45010 +ίZE2ZD$))˯(ZD$,ZE,1)"."45006')̯ZE@)ͯZD$ZD$".00":45010W)ίZE2(ZD$)45010g)ϯZD$ZD$"0"y)үZD$"$"ZD$:N:"3) END")13:"PLEASE ENTER 1, 2, OR 3 ";:868)40000:ZEZN)ZE0ZE443030*:"PLEASE ENTER A NUMBER 1 - 3":(үZD$"$"ZD$:ШZE0ZE443030R(:"PLEASE ENTER A NUMBER 1 - 3":43022^(ZE1Ĭn(ZE343049(:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"()1023,9(*:(ȯ DOLLAR FIXER(ɯZD(ZD100.5)100:ZD$(ZD))ʯZE1(RUN HELLO"'ȯ DOLLAR FIXER@'ɯZD(ZD100.5)100:ZD$(ZD)Q'ʯZE1(ZD$)l'˯(ZD$,ZE,1)"."45006t'̯ZE'ͯZD$ZD$".00":45010'ίZE2(ZD$)45010'ϯZD$ZD$"0"'ү'ܯZD$"$"ZD$:$"0"'ү'ܯZD$"$"ZD$:'ϯZD$ZD$"0"1(CV23):ZN(ZN$):.&JCV1:36,CH:868:F& END OF PROGRAM N&:l& 10:"DO YOU WANT TO TRY"&12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030& :R$"Y"B$"Y":180&*(1023)123Ā&/D$(13)(4) '4D$;"0:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";W%̈16384,128:16368,0:1:868:m%@CH(36):CV(37)%A"";ZN$:(ZN$)(((ZN$)))40003%B(ZN$)0ZN$"0"40006%CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001&FZM:868:CVȭ" SUM OF DAILY PROFITS - FIXED EXPENSES":" --------------------":" TOTAL PROFIT"$ZDTP:45000:15:30:ZD$:28:ZD30:45000:"- ";ZD$$30:" -----":30:ZDTP30:45000:ZD$$$$ SPACE BAR2%ˆ24:868:16368,"---------------------------------------"5#I1D^#DP(I)P(I)N(I).25A(I):TPTPDP(I)#I;7):ZDP(I):45000:ZD$;18((A(I))));A(I);27((N(I))));N(I);33):ZDDP(I):45000:ZD$#I#34:"-----"#33:ZDTP:45000:ZD$#::i$"PLANTS.""P:B"X"TO SEE WHAT EFFECT YOUR ADVERTISING HAD "m"]"ON SALES LET'S LOOK AT A SUMMARY OF"s"b"d"YOUR WEEK'S SALES:""e35000:"l"v"DAY PRICE SIGNS PLANTS DAY'S""x" SOLD PROFIT"*#y YOU STILL HAD ";N;" OF YOUR"#!Q!"PLANTS LEFT. YOU LOST A LOT OF INCOME"W!s!"BY NOT SELLING THEM."y!!!&1872!05:"GOOD JOB! YOU SOLD ALL BUT ";N;" OF YOUR":!:1870!D5:"CONGRATULATIONS!! YOU SOLD ALL OF YOUR"!H "N:" TO CONTINUE";7+̈16384,128:16368,0:1:868:M+@CH(36):CV(37)u+A"";ZN$:(ZN$)(((ZN$)))40003+B(ZN$)0ZN$"0"40006+C(ZN$,1)"E"ĉ::43050+DZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001,FZM:868:CV1($,(ZZ$)1)2*O(0):" ";:(0):16368,0:20360G*O16368,0:20360Y*OZZ$"":20430*OZZ$ZZ$(ZZ):(ZZ);:16368,0:ZCZC2:20360*O(13);:ZCZC59:ZA$ZZ$*P16368,0:* SPACE BAR+ˆ24:868:16368,0:7:"PRESS ";::"SPACE BAR";:F SECONDS IT TOOK, (ZC=-256 IF WENT OVER TIME LIMIT)A)tOZTZT60[)~OZZ$"":ZC0:16368,0)OZCZC1:ZCZTZC15104:20470)O(16384)12820360)OZZ(16384)128:ZZ1320470)OZZ820460)O(ZZ$)020440)O(ZZ$)120450 *OZZ$(ZZ1105 (= R30(B J1N#(C G(J)0*(D J4(L 1320B(` X41805K(j X41x(~ :"A HEAT WAVE IS PREDICTED FOR TODAY."( R12( 805( (LO ENTER STATEMENT(VO ENTRY CONDITIONS - ZT= # OF SECONDS TO ALLOW4)`O EXIT - ZA$=INPUT, ZC= # OTO CONTINUE";:A$'1105)'X318052' X31;' R33D'$ 805r'. :"A SEVERE THUNDERSTORM HITS YOUR TOWN"'3 :"JUST AS YOU SET UP YOUR STANDS."'8 :"YOUR LEMONADE AND SIGNS ARE RUINED."'9 24:"PRESS SPACE BAR TO CONTINUE";:A$': (; THERE WILL BE"2&:"NO TRAFFIC ON YOUR STREET."E&(1).52233N&R22X&2250b&R1.1k&X21t&805&:"THE STREET CREW COMES TO YOUR STAND"&:"AT LUNCHTIME AND BUYS ALL THE "':"LEMONADE YOU HAD MADE.":24:"PRESS SPACE BAR 6(1))1,%X2100,2200,2300,2400,805,805:%4X11805h%>:"THERE IS A 50% CHANCE OF RAIN TODAY,"%C:"AND THE WEATHER IS COOL."%HR1.5%RX11%\805%X21805%:"THE STREET DEPARTMENT IS WORKING ON"&:"YOUR STREET TODAY, SO EACH GLASS"$:"YOU MAKE.".$D71480]$:"INFLATION CAUSES YOUR LEMONADE MIX TO"$:"GO UP. YOUR COST IS NOW 5 CENTS PER"$:"GLASS."$705$24:"PRESS SPACE BAR TO CONTINUE";:A$:::255::43000$ RANDOM EVENTS %X(:I1N:QQB(I):I:QN1397N#r(5):"ALL YOUR STANDS ARE BANKRUPT. IF I"#s:"WERE YOU, I'D GIVE UP SELLING LEMONADE."#t1500#uR11#vR20#xD21450#:"YOUR MOTHER QUIT GIVING YOU FREE SUGAR." $:"YOUR COST IS NOW 4 CENTS FOR1390y"272Z3:4LNGTH(I));I;12LNGTH(L(I)));L(I);21LNGTH(S(I)));S(I);30LNGTH(P(I)));P(I);38LNGTH(N2));N2"6162Z3:4LNGTH(I));I;13(M$));"$";M$;22(E$));"$";E$;31(P$));"$";P$;39(A$));"$";A$"nZ3"p35000::Z2#qQ00: PROFIT:! ZDP1:45000:P$ZD$:P11P10P$"0"P$b!A(I)(100(A(I)P1))100: ASSETS!ZDA(I):45000:A$ZD$:A(I)1A(I)0A$"0"A$!H(I)12300!(!)B(I)11330!.(72Z3):3);I;" ***BANKRUPT***":(162Z3):3);I"/SALES ARE LOST.; N2L(I)1270: IS SALES >=PRODUCTIONG N2L(I)m M(.001(N2P(I)))100: INCOME ZDM:45000:M$ZD$:M1M0M$"0"M$ E((S(I)S3L(I)C1)100)100 ZDE:45000:E$ZD$:E1E0E$"0"E$ ! P1(100(ME).5)102365Z313,I(Z21)3Z3:IN1392;R221260NP(I)P91220kN1(P9P(I))P9.8S2S2u1230N1(P92S2P(I)2): NUMBER SOLD IF P(I)>=0.P.N2R1(N1N1(1(S(I)C9)C2)) N2(N2G(I)): CORRECTION FACTOR IF SOME "FOR 'LEMONSVILLE'"&t18);"DAY ";D~::"STAND GLASSES SIGNS PRICE GLASSES MADE (CENTS) SOLD"15:"STAND INCOME EXPENSES PROFIT ASSETS TODAY" CALCULATE NUMBER OF GLASSES SOLD, PROFIT ETC.R3Ģ22:"DO YOU WANT TO CHANGE":"ANYTHING (YES OR NO) ?";:868:"";Y$:Y$(Y$,1):Y$"Y"Y$"N"1050v$Y$"N"1030.:7:958:810L PRINT OUT M:R22290OR32350QZ21(N1)31`j10);"DAILY FINANCIAL REPORT":12);:1:868:950@(18):"WHAT PRICE (IN CENTS) DO YOU WISH TO"^"CHARGE FOR LEMONADE? ";w868:40000:P(I)ZNP(I)0P(I)100102422:"PLEASE BE SERIOUS.":35000:18:958:1010P(I)(P(I))10211050I1100eMBER - TRY AGAIN";:40010:40001H FZM:868:CV1(CV23):ZN(ZN$):a JCV1:36,CH:868:y END OF PROGRAM : 10:"DO YOU WANT TO TRY" 12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030! :R$"Y"A$"N": 43000 SPACE BAReˆ24:868:7:16368,0:"PRESS ";::"SPACE BAR";::" TO CONTINUE";̈16384,128:16368,0:1:868:@CH(36):CV(37)A"";ZN$:(ZN$)(((ZN$)))40003B(ZN$)0ZN$"0"40006 CZM:"THAT IS NOT A NUSELLING"::"APPLES IN APPLESVILLE.":}d"I HOPE YOU LEARNED ABOUT SELLING A"::"PRODUCT, BUT PLEASE REMEMBER THAT THE":n"BEST PRICE YOU FOUND TODAY MAY NOT BE"x:"THE BEST PRICE IN APPLESVILLE THE NEXT"::"TIME YOU PLAY."35000: AGAIN." ZQ1"35000:1180T:"DO YOU WANT TO SELL APPLES FOR ANOTHER":#12:868:"DAY TO TRY AND FIND THAT BEST PRICE? ";A$:A$(A$,1):A$"Y"A$"N"13152A$"N"ė:6:1370<JT1FTT1P640&Z:"THANKS, ";N$;", FOR S CORRECT. HOWEVER, THERE IS A":_"PRICE THAT WILL GIVE YOU AN EVEN BETTER"::"INCOME.":T13ĺ:"THAT BEST PRICE IS ";S;" CENTS.":35000:430001310 19:958:"THERE IS A BETTER PRICE THAN ";P1;" CENTS"::"IN YOUR SUMMARY LIST. TRY WEEK IN"::"APPLESVILLE? ";(400002P1ZNBP1S1250L:10:"YOU HAVE FOUND THE BEST PRICE FOR"::"SELLING APPLES THIS WEEK IN APPLESVILLE!"8:"***** GOOD JOB! *****"35000:6:1370P1Q1290!:3:P1;" IP(I);25LNGTH(N(I)));N(I);(ZDM(I)345000L39(ZD$));"$";ZD$WT8ĺ^It FIND BEST PRICEQ1:K2TM(Q)M(K)QK:QP(Q)19:958:"WHAT DO YOU THINK IS THE BEST SELLING":"PRICE FOR SELLING APPLES THIS:"FOR ";I;" DAYS. HERE'S HOW YOU'VE DONE:"j52(T5T8)(T5)(T7)(T9):" NUMBER DAY PRICE SOLD INCOME --- ----- ---- ------"tI1T~3LNGTH(I));I;12LNGTH(P(I)));E.":"TRY IT AGAIN."$$1090M."YOU ARE DOING PRETTY WELL. KEEP "S/8"EXPERIMENTING IN THIS PRICE RANGE TO"9:"FIND THE BEST PRICE."B35000LIM35000:QT51130RII1-V"WELL, YOU HAVE BEEN IN BUSINESS NOW":45000:ZD$;"."IT11001W(M(I).25)1LW1020,1050,1070,1070"YOU CAN DO BETTER. YOU WILL GO BROKE"::"AT THIS RATE. OH WELL, TOMORROW IS""ANOTHER DAY. LET'S TRY AGAIN."1090"NOT BAD, BUT THERE IS A BETTER PRIC1(ZD$)$1˯(ZD$,ZE,1)"."45006,1̯ZEE1ͯZD$ZD$".00":45010\1ίZE2(ZD$)45010l1ϯZD$ZD$"0"r1ү1PCH(36):CV(37):1QâCV1:36,CH:868:1Rù34,ZC1:ZC::34,0:CV2:0ʯZE1(ZD$),0˯(ZD$,ZE,1)"."4500640̯ZEM0ͯZD$ZD$".00":45010d0ίZE2(ZD$)45010t0ϯZD$ZD$"0"z0ү0PCH(36):CV(37):0QâCV1:36,CH:868:0Rù34,ZC1:ZC::34,0:CV2:R FIXER0ɯZD(ZD100.5)100:ZD$(ZD) 1ʯZEOR 3 ";:868/40000:ZEZN3/ZE0ZE443030_/:"PLEASE ENTER A NUMBER 1 - 3":43022k/ZE1Ĭ{/ZE343049/:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"/)1023,9/*:/ȯ DOLLAR FIXER0ɯZD(ZD100.5)100:ZD$(ZD):34,0:CV2:P(ZD$)45010..ϯZD$ZD$"0"4.үL.PCH(36):CV(37):e.QâCV1:36,CH:868:.Rù34,ZC1:ZC::34,0:CV2:Z:"1) RUN THIS PROGRAM AGAIN,"::"2) RUN A DIFFERENT PROGRAM, OR". :"3) END" /13:"PLEASE ENTER 1, 2, ;"RUN HELLO" -ȯ DOLLAR FIXERB-ɯZD(ZD100.5)100:ZD$(ZD)S-ʯZE1(ZD$)n-˯(ZD$,ZE,1)"."45006v-̯ZE-ͯZD$ZD$".00":45010-ίZE2(ZD$)45010-ϯZD$ZD$"0"-ү-PCH(36):CV(37):-QâCV1:36,CH:868:.Rù34,ZC1:ZC:CV23):ZN(ZN$):+,JCV1:36,CH:868:C, END OF PROGRAM K,:i, 10:"DO YOU WANT TO TRY",12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030, :R$"Y"đ:3:1:0:1000,*(1023)123Ā,/D$(13)(4) -4D$6160!E(1)1!Q1Q%!051407!I((1)2)1J!QW2205160\!C(I)005160p!C(I)20005440!C(I).75C(I)!,05460!@C(I)C(I)200!T06260!h:"YOUR CASH IS NOW $";(C(I).5)!|7000!W2Q!05160"J((1)) `G4G105080$ tG4G205020/ G4G2S G5D(3M)((G4G1)(G2G1))G3i D(3M)D(3M)G5{ D(M)D(M)G5  Q605880 (1).105220 (1).105320 ((1).105560 <(1).105760 P05880 dE(1)005140!x020H.05 \.2,.4,.4(p12000 21.5 FFL2İ7000::_6:15:"COMPANY ";Jz:13:"YOU HAVE GONE":12:"B A N K R U P T"7000P417P(1)P(2)04920M2$049408M1 LG4(P(3M)P(M))P(3M ";J;:11:"$";(P(J)100)100;:25:(T(J).5);:35:"$";(UI(J)C(J)B(J).5)(122J):" ";J;:11:"$";(C(J).5);:25:(I(J).5);:34:"$";(UI(J)C(J).5)502 .001.05 5000,5000  100,100  250 4TER ";Q;" RESULTS"112:"-----------------":q"COMPANY";:11:"PRICE";:22:"BIKES SOLD";:34:"PROFITS"012:"COMPANY";:12:"CASH";:22:"INVENTORY";:34:"ASSETS"D17:"----------------------------------------"XQl1:(52J):"  03360J10'A2A(1)A(2)7A2004140CV(1)0OV(2)0Z04180l,V(1)A(1)A2~@V(2)A(2)A2TD1(K2K2(KA2))K4hJ12|C(J)C(J)FL(J)UA(J)I(J)I(J)L(J)J::12:"QUAR003610J11ė:3880( 34,20:/J^(34,20::"ARE ALL ENTRIES CORRECT";:868f<H$P(H$,1,1)"Y"04020Z(H$,1)"N"Ģ21:3880d"WHICH COMPANY SHOULD BE CHANGED?";:868x40000:JZNJ1J2Ģ22:3940J11868 40000:A(J)ZN( A(J)003535.622P$"UNIT PRICE?";:868`840000:AZNsLE(1)103780`AP(J)03780"YOU MAY NOT RAISE PRICES DURING THE":"WAGE-PRICE FREEZE.";13610P(J)AA20003610 P(J) 34,21\ E(2)103480Fp "NO PRODUCTION POSSIBLE DUE TO STRIKE"Pz 7000[ 03540c 22 "PRODUCTION LEVEL? (ENTER -1 TO END) ";:868 40000:L(J)ZN L(J)1ĉ::43000 L(J)003470  22 "ADVERTISING BUDGET?";:15:"COMPANY ";JI :" YOU HAVE REACHED $";(.001M1);" THOUSAND AND"^ :16:"W O N !"h 7000o Ju  P41702080 0 43000 18:15:"QUARTER ";Q 7:"UNIT PRODUCTION COST = $";U J12 21H "COMPANY ";JR002640/ W(J)(10000T(J)(T(1)T(2)))1006 JA J12N 4460:JY J12o B(J)C(J)UI(J) B(J)002880 FLFL1 04760@ B(J)M103040T B(J)C(3J)UI(3J)03040h P417| FL1İ7000:: FLFL1 6:ZD)%ʯZE1(ZD$)/%˯(ZD$,ZE,1)"."450067%̯ZEP%ͯZD$ZD$".00":45010g%ίZE2(ZD$)45010w%ϯZD$ZD$"0"}%ү1(ZD$)%˯(ZD$,ZE,1)"."45006%̯ZE%ͯZD$ZD$".00":45010%ίZE2(ZD$)45010%ϯZD$ZD$"0"%ү02(ZD$)45010$ϯZD$ZD$"0"$$ү (ZD$)45010E$ϯZD$ZD$"0"K$үPUMBER 1 - 3":43022n$ZE1Ĭ~$ZE343049$:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"$)1023,9$*:$ȯ DOLLAR FIXER%ɯZD(ZD100.5)100:ZD$((4);"RUN HELLO"#)1023,9$#*:8#ȯ DOLLAR FIXERZ#ɯZD(ZD100.5)100:ZD$(ZD)k#ʯZE1(ZD$)#˯(ZD$,ZE,1)"."45006#̯ZE#ͯZD$ZD$".00":45010#ίZE2(ZD$)45010#ϯZD$ZD$"0"#ү#̯ZE#ͯZD$ZD$".00":45010$ίZE.00":45010""ίZE2(ZD$)450102"ϯZD$ZD$"0"8"үD)45010S"ϯZD$ZD$"0"Y"ү$0n"ϯZD$ZD$"0"t"үZE0ZE443030":"PLEASE ENTER A NUMBER 1 - 3":43022"ZE1Ĭ"ZE343049#:10:"GETTING THE MENU PROGRAM...":560!*(1023)123Ā)!/D$(13)(4)=!4D$;"RUN HELLO"Q!ȯ DOLLAR FIXERs!ɯZD(ZD100.5)100:ZD$(ZD)!ʯZE1(ZD$)!˯(ZD$,ZE,1)"."45006!̯ZE!ͯZD$ZD$".00":45010!ίZE2(ZD$)45010!ϯZD$ZD$"0"!үE "ͯZD$ZD$"RY"M+12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030i+ :R$"Y"Ľ:Q$"Y":320}+*(1023)123Ā+/D$(13)(4)+4D$;"RUN HELLO"(37),*A"";ZN$:(ZN$)(((ZN$)))40003I*B(ZN$)0ZN$"0"40006*CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001*FZM:868:CV1(CV23):ZN(ZN$):*JCV1:36,CH:868:* END OF PROGRAM *:+ 10:"DO YOU WANT TO TTION"6)"RESUMED. NEW VARIABLE COST = $";U;"/UNIT";U)"DUE TO INCREASED WAGES."_)7000k)E(2)0q)0w)D)X SPACE BAR)b24:868:16368,0:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";)l16384,128:16368,0::*@CH(36):CV(,:"THE WAGE-PRICE FREEZE HAS ENDED."2(@7000E(TE(5)106840U(hQ2Q06840a(|E(5)0(:"TRANSPORTATION STRIKE SETTLED. NORMAL":("DELIVERIES RESUMED."(7000(E(2)106960(Q3Q06960):"STRIKE SETTLED. NORMAL PRODUCT LOOKS DIM."'d7000'xG':"THERE HAS BEEN A STRIKE AND YOUR"x'"PRODUCTION HAS BEEN HALTED. NEGOTIATIONS";'"HAVE BEEN STARTED, BUT HOPE OF A"'"SETTLEMENT LOOKS DIM."'7000''E(1)106740'QQ1206740'E(1)2(OU IN THE AMOUNT OF 75% OF THE VALUE"@&"OF YOUR LOST BIKES."J&7000P&&(:"A TRANSPORTATION STRIKE HAS OCCURED, AND";&2"YOU ARE UNABLE TO MOVE YOUR GOODS TO THE";&<"DISTRIBUTORS. NEGOTIATIONS HAVE BEGUN," 'F"BUT HOPE OF A SETTLEMEN%L7000%`<%t"COMPANY ";I;" HAS BEEN THE VICTIM OF":k%~"BURGLARY OF $200 BY ONE OF ITS WORKERS."q%%"COMPANY ";J;" HAS SUFFERED FIRE DAMAGE"%"IN ITS WAREHOUSE. ALL UNITS WERE"%"DESTROYED. YOUR INSURANCE WILL REIMBURSE";%&"Y - VARIABLE PRODUCTION";$>$"COST NOW = $";U;"/ UNIT."H$7000S$06640}$:"THE PRESIDENT HAS JUST IMPOSED A"$"WAGE-PRICE FREEZE ON THE ECONOMY, AND"$$"YOU MAY NOT RAISE THE PRICE OF YOUR"$8"PRODUCT OVER THE NEXT 2 QUARTERS."Q #06440#E(5)1##Q2Q@#((Q1)4)4Q106640O# Q106640a# E(1)106640u#4(1).2506080#HQ606080#\06540#pE(2)1#U(U(1.1.1(1)))#Q3Q#06640#U(U(1.05.1(1)))$:"NEW LABOR CONTRACT2)1"QW3205180""06340<"C(J)C(J)UI(J).75H"I(J)0r":"YOUR INVENTORY IS NOW 0, BUT THE""&"INSURANCE MONEY INCREASED YOUR CASH""0"TO $";(C(J).5)"XW3Q"b7000"l05180"E(1)105880"QW4205880#W4 from our library." P:D Z"WILLAMETTE APPLE CONNECTION, INC."X d"P.O. Box 7252w n"SALEM, OREGON 97303-0053 x20:"PRESS ANY KEY TO CONTINUE" zA$ } D$(4): CTRL-D 12 C(1101):C6ĺ::A$"BE SURE CAPS LOCK IS DOWN":l  ::::"These programs are distributed by the"f"WILLAMETTE APPLE CONNECTION, Inc. as"("Public Domain. If any person has proof"2"that any program is not Public Domain,"<"please contact us and we will delete" F"the program$% 0 vf'  `m :F a -mLǏLi^j_kZl[`8tp`8M`y h (`|)* X |`YLHHJhh`Ǘ˯߷ë󳏋'C/cO KC[ a(נ)+Ss?` WILLAMETTE APPLE CONNECTION, INC. L(OAD R(UN D(ELETE C(ATLG T(DRIV K(LOK U(NLOK X(ALL E(XIT V(ERIFY ----------------------------------------VOL PG OF SECT-USED LEFT ---------------------------------------- ) v) m}}m~~ة$eeeLؠ D8}}~~ؠ ~ 0})JJJJ 0ș}) 0șeJJJJ 0``% $ Bd 鑠e e ēHi&eh L`$e  ɍ ` X0 md:&98N9m:Jn8m8eed`8edd 鑠` :` ^67ą89 Q@ y 6 @^`6798 Q`Hǒ hǒ``}~eei@iA)m~~ v BOTTOMS." E1 7200#E0)  A %6200.E08 XK0+]I466bJ12@lKK1PvZ(K)T(I,J)WJ^IiI26vJ1I1Z(I)Z(J)7150JI7190"NO GOOD. YOU HAVE USED THE""SAME BOTTOM TWICE. START " "OVER WITH TYING THE  6g/5 ys r ; ya ` `$$(ɠ$C y$f ``H$%  h\  `CATALOG\Y/N\LOAD\LOCK\UNLOCK\RUN\SAVE\DELETE\NOMONC\START\ LENGTH\,D\I/O ERROR\VERIFY\@  dh a X ;g B ؐg KL L KPhg a X00   ddd 鑠 ؐLs ;O ؐ YLЪPТ2'gh a X ;" ē$ y X ؐ Y ȒL :L'% g h y ē I8Mtn=vH?J QVQT_ɕ%j^iZk[l#^Z_[ 0f ߓ Y1  Ȓ@)ȹ@)ȹ@) Xmɠ 0   L Mf'fП K Xg QLiLLs4 0#"NO GOOD. YOU HAVE USED THE"D"SAME BOTTOM TWICE. START "h"OVER WITH TYING THE BOTTOMS."p E1z 7200E0  TI 6190)"NO GOOD. YOU HAVE USED"D"THE SAME TOP TWICE."W"START OVER."_$E1i%6200q.E0w8XK0]I46bJ12lKK1vZ(K)T(I,J)JII26J1I1Z(I)Z(J)7150JI719 TO TRY AGAIN(Y/N)?"Z$"(7Z$"Y"10HZ$"N"5030i"TYPE Y FOR YES, N FOR NO."s5000"BYE.":pK0uI13zJ12KK1Z(K)T(I,J)JII26J1I1Z(I)Z(J)6150JX,10(T(K,2)2030),30"K-K466K3EAT(K,1)6TBT(K,2)6gX10A10B30(A2030),130X,150X,150(B2030),130K K166CS(K,2)6 (K2030),50(C2030),110*K4"DO YOU WANT I J13080 J1' 3090/ J29 KK1I V(K)T(I,J)O& U\2gK16(20K30),30(20K30),50(20K30),110(20K30),130KK13X10T(K,1)10T(K,2)30K(T(K,1)2030),30X,10T512000:T5 l5000" I16- J12C V(K)S(I,J)1050J JQ I_ J11080g $J1q .1090y 8J2 BKK1 LV(K)S(I,J) V K12500 M1K1 V(K)V(M)600  I16 J12 V(K)T(I,J)3050 J "2000 ,3000 62000% @280: Y110:(7):Y@ g "CONGRATULATIONS.":T612000:T6m  "HOW MUCH RICE WILL YOU NEED":"FOR YOUR WEDDING?" T512000:T5 5000 X"SORRY. NO WEDDING. BETTER LUCK" b"NEXT TIME." g 150 T(K,1)X:T(K,2)Y$ K. 7000< E1175E 130O 4000Y 34,0d T16v X((1)67) T1240 I1T1 S(I,2)X190 I S(T,1)T:S(T,2)X T 4500 V(1)T(1,1):V(2)T(1,2) K2 10000 K46$ " PICK A BOTTOM";X5 (X)X148B X7148P X12148Y 150t "NO GOOD, TRY AGAIN."} 140 "TO WHICH OTHER BOTTOM IS IT TIED?";Y (Y)Y158 Y7158 Y12158 160 "NO GOOD. TRY AGAIN."X698 ^X198 _1006 b"NO GOOD. TRY AGAIN."> c90f d"TO WHICH OTHER TOP IS IT TIED?";Yl e} f(Y)Y108 gY6108 hY1108 i110 l"NO GOOD. TRY AGAIN." m100 nT(K,1)X:T(K,2)Y xK }6000 ~E1130 1 T(6,2),S(6,2)V(12)%B 15);"1 2 3 4 5 6"He15);"////////////////"(15);:T6116:(92);:T6:" "2<15);"7 8 9 10 11 12"A34,7F:PK13Z"PICK ONE TOP OF STRING";X\(X)X98 ]     z#Xð    ! #"ԠӠ  в±² IJʱ Р%̠+ՠ̠7ӠĠ)ҠϠŠ0: F24:(4);"CATALOG"! d9 ,(20(A$)2):A$:O 1:X140:A$;: *23:X140:A$;::2:X222:1:A$;:40:A$;:: A(21)::$:A$"+":800:(6:A$"PUBLIC DOMAIN SOFTWARE":300:8:A$"DISK VOLUME C15 - EDUCATION":300:14:A$"DISTRIBUTED BY:":300216:A$"THE BIG RED APPLE CLUB":300:A$"1301 NORTH 19TH":300:A$"NORFOLK, NE 68701":300 <X1200180: 23! D$;"BRUN MENU"' > CENTER STRING A$^ B(20((A$)2)):B0B1k B:A$:ZN nN1xH(I)01490&}(21)>" - AMMUNITION? ";I40000UB(I)ZN^N2oB(I)01490F(I)H(I)B(I)D(I)1510(23):"THINK AGAIN YOU HAVE ONLY $";D(I)15K17" "SPEND FOR"(17)," - FOOD......? ";740000@FZNO F01360_R101330(23):868:"NO PREVIOUS ENTRIES"(12302F(I)H(I)B(I)D(I)Ģ23:1470F1510PF(I)FU(19)Z" - SALARIES..? ";d40000eH(I):"$";D(1);:36((D(2))):"$";D(2)*m"INFLATION";:21((I1I5)):I1I5;"%";:37((I2)):I2;"%"syI1DB$"Y"1260I2126013:"CONFEDERATE";::" GENERAL---"15 "HOW MUCH DO YOU WISH TO 3920,3950,3980$~X$"N"İ35000:yB$"N"ĺ" CONFEDERACY":" (YOU) UNION":1162" CONFEDERACY UNION"" MEN";:21((M5)):M5;:37((M6)):M6$" MONEY";:20((D(1))) - MEN AVAILABLE6$M5(M1(1(P1T1)(M31)))W.M6(M2(1(P2T2)(M41)))f8F15M16oB:2L"THIS IS THE BATTLE OF ";C$VX$"N"1154[5`A111130eA3580,3620,3650,3690,3720,3750,3780,3800,3830,3860,3890jA11M2(A)C1C1(A)*C2C2(A):MM(A):U0JI110(LW)2:I210(WL)2PD(1)100((M1(100I1)2000)(1(R1Q1)(R11)).5)D(2)100(M2(100I2)2000.5)B$"Y"1050D(2)100((M2(100I2)2000)(1(R2Q2)(R21)).5) A BATTLE, 0 TO END) ?";:40000:AZN6A0A14645GA0ė:2860v:5:"WOULD YOU LIKE A BRIEF DESCRIPTION"7:868:"OF THE BATTLE? ";X$:X$(X$,1)X$"Y"X$"N"Ģ10:"PLEASE ANSWER YES OR NO.":662C$C$(A)M1M1(A)M2ZM23gQQ1630Ci ** DATA FOR FOLLOWING LIST IS AT 5000 **`lX9114:A1$(X9)::QQ1v:3:"WHICH BATTLE DO YOU WANT?"|X9114:L1%(X97):V042(X9L1%7):H0L1%211:V0:H0:X910ĺ" ";}X9;" ";A1$(X9):$21:"(TYPE 1-14 FOR BE THE"::"CONFEDERATE GENERAL.":540v::"OK, YOU BE THE CONFEDERATE GENERAL,"::"I'LL BE THE UNION GENERAL."~D135000OL0:WL:R1L:Q1L:M3L:M4L:P1L:P2L:T1L:T2L:F(2)L:H(2)L:B(2)L:R2L:Q2L:C6L:FL:W0L:YL:Y2L:UL:U2LeLANKING MANEUVER"::" 4) ENCIRCLEMENT"? h:" 5) SURRENDER "E iK kT m:6| r"ARE THERE TWO GENERALS PRESENT?"; " ";B$:B$(B$,1):B$"Y"B$"N"365'B$"Y"D2:::"ONE OF YOU WILL BE THE UNION GENERAL,"::"AND THE OTHER ONE WILLAL ATTACK";7 ":" 3) FORTIFICATION AGAINST FLANKING"M ':" MANEUVERS"z ,:" 4) FALLING BACK"::" 5) SURRENDER" - 1 2 6:"YOUR CHOICES FOR OFFENSIVE STRATEGY ARE:" @" 1) ARTILLERY ATTACK"::" 2) FRONTAL ATTACK"' T:" 3) F"YOU HAVE TO DECIDE HOW TO ALLOCATE"t :"A LIMITED AMOUNT OF MONEY, AND ALSO"::"WHAT BATTLE STRATEGY TO USE." 35000: 365 :"YOUR CHOICES FOR DEFENSIVE STRATEGY ARE:" " 1) ARTILLERY ATTACK" :" 2) FORTIFICATION AGAINST FRONTIS A CIVIL WAR SIMULATION."J n10:868:"DO YOU WANT INSTRUCTIONS? ";B$d x(B$,1,1)"Y"ė:176| (B$,1,1)"N"100 365 5:"THIS SIMULATION ALLOWS ONE OR TWO" :"PEOPLE TO PLAY OUT ANY ONE OF 14" :"CIVIL WAR BATTLES."% ::14),C2(14),M(14) 7A1$(14)O < UNION INFO ON LIKELY CONFEDERATE STRATEGYZ AI14d FS(I)k KI P 25,25,25,25 R READ HISTORICAL DATA. TD114 VC$(D),M1(D),M2(D),C1(D),C2(D),M(D) XD YD(1) Z:(3) d:3:"THIS 1 PROGRAM: CIVIL6 LAST UPDATE: 7/8/80<m COPYRIGHT MECC 1979 CIVIL 7/79 FP AUTHORS: CRAM, GOODIE, HIBBARD LEXINGTON H.S. ASSOCIATED PROGRAMS AND FILES: NONE(::255: 2S(4),C$(14),M1(14),M2(14),C1(                    )100)D1((.2(1).85)100.5)100=P(10(1))1MP201050]P601110mP801130~P1001180F(2)0$:"YOUR BEAVER WERE TOO HEAVY TO CARRY":"OVER THE PORTAGE. YOU HAD TO LEAVE THE"."PELTS, BUT FOUND THEM S0%D1((.2(1).80)100.5)100U"SUPPLIES AT FORT HOCHELAGA COST $150.00.":"YOUR TRAVEL EXPENSES WERE $10.00."01550II140M1((.3(1).85)100.5)100E1((.15(1).80)100.5)100B1((.2(1).90)100.5HEST VALUE FOR YOUR"::"FURS. THE COST OF YOUR SUPPLIES WILL"kH:"BE LOWER THAN ALL THE OTHER FORTS."xM35000:R01260\II160fpM1((.2(1).7)100.5)100zE1((.2(1).65)100.5)100B1((.2(1).75)100.5)10K."::"YOU WILL RECEIVE AVERAGE VALUE FOR YOUR"m :"FURS AND THE COST OF SUPPLIES WILL BE"::"AVERAGE."z35000: 00940*K(B)1012604"YOU HAVE CHOSEN THE MOST DIFFICULT"::"ROUTE. AT FORT NEW YORK YOU WILL"?>:"RECEIVE THE HIG COST OF SUPPLIES"U:"WILL BE HIGHER THAN AT FORTS STADACONA"::"AND NEW YORK."b35000:m00860K(B)100940"YOU HAVE CHOSEN A HARD ROUTE. IT IS"::"HARDER THAN THE ROUTE TO HOCHELAGA BUT"0:"EASIER THAN THE ROUTE TO NEW YOR:5K(B)1K(B)%K(B)1Ģ14B100690CB200750RB300810bK(B)1860"YOU HAVE CHOSEN THE EASIEST ROUTE,"::"BUT THE FORT IS FAR FROM ANY SEAPORT.""THE VALUE YOU RECEIVE FOR YOUR FURS"::"WILL BE LOW AND THE$"N"440$19:958"&00590l019:"HEY, ARE YOU TRYING TO CHEAT?"::"YOU CAN ONLY HAVE 190 FURS."|D35000:440N19:"AT WHICH FORT DO YOU WISH TO SELL YOUR"X21:868:"FURS (1, 2, OR 3) ?";Y$:B(Y$):B1B3B(B)(B)Y$600v"DECIMAL FRACTION OF A PELT.":35000:4905F(J)F1AF(J)F1NFFF(J)_F19000590pF19000560wJ19:958:"THAT ONLY ADDS UP TO ";F;" FURS." :"ARE YOU SURE THAT'S WHAT YOU WANT? ";Y$:Y$(Y$,1):Y$"Y"Y$"N"542 "Y 017009:958&F01J14<B$(J)CJNJ14TcCV(37)1CV:958:"HOW MANY ";B$(J);" PELTS DO YOU HAVE";"? ";F$:F1(F$):F10(F1)F$490)F1(F1)Ģ19:"I BET. YOU KNOW YOU CAN'T HAVE A":: THROUGH IROQUOIS LAND."& c350002 hI600:8 rp |"YOU HAVE $";:XXI:36000:" SAVINGS AND 190 FURS" "TO START YOUR EXPEDITION.":"YOUR FURS ARE DISTRIBUTED AMONG THE":"FOLLOWING KINDS OF PELTS:":" MINK, BEAVER, ERMINE, AND FOX."D IS UNDER THE PROTECTION OF THE FRENCH ARMY. HOWEVER, YOU MUST"; @" MAKE A PORTAGE AND CROSS THE LACHINE RAPIDS." J: T"FORT 3 - IS FORT NEW YORK AND IS UNDER DUTCH CONTROL. YOU MUST CROSS R YOUR FURS WILL DEPEND ON THE"::"FORT YOU CHOOSE."@ 35000L ::: ""FORT 1 - IS THE FORT HOCHELAGA (MONTREAL) AND IS UNDER THE PROTECTION OF THE FRENCH ARMY." ,:T 6"FORT 2 - IS FORT STADACONA (QUEBEC) AN60 :5` "YOU ARE THE LEADER OF A FRENCH FUR"::"TRADER EXPEDITION IN 1776 LEAVING FOR" :"THE NEXT YEAR.":::"YOU HAVE A CHOICE OF THREE FORTS AT"::"WHICH YOU MAY TRADE. THE CHOICE OF"5 :"SUPPLIES AND THE AMOUNT YOU RECEIVE"::"FOVERTED TO APPLE II BY DOUGLAS J. HERTEL/ M DELETED THE RANDOMIZEY 1022,9c F(4)l 150~ BE$(7)(7) :150:(1022)111360 10:"DO YOU WANT INSTRUCTIONS"; "? ";B$:B$(B$,1):B$"Y"B$"N"170 B$"N"3 PROGRAM: FURS, LAST UPDATE: hd PROGRAM NAME - FURS VERSION: 07/30/77 DRn AUTHOR: MARGE KOSEL/MECC HIBBING,MNx CORRECTED AND REFORMATTED BY STEVE G. WOODWARD CDC CYBER 70/73-26 BASIC 3.1' CON       (S$)4Y$(S$,Y,1)7>Y$" "ĺ" ";:E150::850@H920GRYQ\T$S$XfUsp255:1090::100:940zY1((R1)):Y$((R1),Y,1):920:Y:W2:T$"#":UY1((R2)):Y$((R2),Y,1):920:Y:W3:T$"#":U::Y1(C$(T)):Y$(C1(21006(IS1)8):R2(21007(IS1)8):=W1: TELEGRAMQX$:X$"$"750Z730:3:X$:Y16:Y$(X$,Y,1):920:Y:" ";Y1(N$):Y$(N$,Y,1):920:Y:",";U113:S$ S$"#"ĴW890,900,910T$"#"810 :*Y1D(T):21506,IS(T):21510,NS(T)+vT1650YY1T1:Y11NC(Y)8(NS(Y)2):I:Y1,YU1NC(T)8:I:20999U,I:U:U1NS(T)2:I:21599U,I:U GRAMMAS HOUSE IS((1)NC(T))1:710R1067021508,R1:21509,R2720*R:" 4) SNOIT";&:868:"(1, 2, 3, OR 4) ";:T$:T(T$)T0T1T4T(T)520z:20:9:"GRAMMA IS NOW MOVING!!!"D21507,TNT600,610,600,610X21500,1:21501,2:620b21500,3:21501,4l21502,NC(T):21503,X(T):21504,Y(T):21505,):[6:"DO YOU WANT TO HELP GRAMMA DECIDE WHICH"::868:"CITY SHE WILL LIVE IN? ";I$I$(I$,1):I$"Y"I$"N"500I$"N"TA(4):56011:"WHICH CITY DID GRAMMA AND YOU CHOOSE":" 1) CRANZ":" 2) GARBONZO"" 3) NEMWOG"ARE CROSSING."a::" YOU WILL BE ASKED WHICH"::"WAY YOU WANT TO TURN AND HOW FAST YOU":"WANT TO DRIVE (IN MILES-PER-HOUR)."1090:3:"WHAT IS YOUR NAME? ";N$N$""ī480768,123:L(N$):769,L:X1L:769X,((N$,X,1)ING"::"THE LAW IN EACH CITY (THIS INCLUDES"]:"THE THIRTY MILE-PER-HOUR SPEED LIMIT)."j1090:6" AS YOU DRIVE THROUGH THE CITY,"::"YOU WILL BE TOLD THE DIRECTION YOU":"ARE TRAVELING, THE ROAD YOU ARE ON,"::"AND THE ROAD YOU OBJECT OF THE GAME IS TO GET"::"TO ";zr"GRAMMA'S HOUSE WITHOUT HAVING AN"::"ACCIDENT, RUNNING OUT OF GAS, GETTING"|:"A FLAT TIRE YOU CAN'T FIX, BEING CON-"::"VICTED OF A TRAFFIC VIOLATION, ETC."-::" THERE ARE TWELVE POLICE ENFORCON THE"6,"FLY-AWAY AIRLINES. AT THE AIRPORT, YOU"g6:"RENT A CAR FROM ZEKE'S RENT-A-CAR. YOU"@:"THEN DRIVE TO GRAMMA'S HOUSE. TO AID"J:"YOU IN FINDING HER HOUSE, YOU ARE GIVEN"T:"A MAP OF THE CITY."^1090:4'h" THE REET CORNER."= :" AT THE BEGINNING OF THE GAME, THE"n :"MAILMAN GIVES YOU A TELEGRAM WRITTEN BY" :"GRAMMA NOMAD, ASKING YOU TO COME OVER" :"AND SEE HER NEW HOUSE. YOU ACCEPT." 1090:7"" YOU TAKE THE NEXT FLIGHT OUT ICE OLD LADY."::"SHE HAS NOT QUITE MADE UP HER MIND ABOUT" "WHERE SHE WANTS TO LIVE, SO SHE MOVES"::"EVERY GAME. SHE HAS NARROWED IT DOWN TO" "SOMEWHERE IN EITHER GARBONZO CITY, SNOIT":"CITY, NEMWOG CITY, OR CRANZ CITY, AND" :"ON A ST,"SNOIT"7 T14:NC(T),X(T),Y(T),D(T),IS(T),NS(T):K T14:C$(T):W QQ500z :10:12:"THE GAME OF NOMAD" 15:5:"WOULD LIKE INSTRUCTIONS? ";A$ A$(A$,1):A$"N"480 A$"Y"150 RULES < :" GRAMMA NOMAD IS A N17:15,2421:18,15:16,1919:20,15:15,2424:15,2428y d24,2815:24,2819:15,2431:31,3415:16,2335:31,3424 nU1200:U,T:: s x 0,8,4,12,7,6,2,37,110,5,2,3,16,50,141,5,3,3,18,32,122,5,2,1,21,36,63,27,2,3,15,CRANZ,GARBONZO,NEMWOG16382:255:! 3(768)123609 4L(769):N$"":QQ1X 5X1L:N$N$((769X)):m 6T17:C::115 <::2:T039:0,39T: FT17:C:C:15,243:15,247:16,174:18,205: P21,226:15,2410:10,1424:15,2414:10,14159 Z15,24 ' (C) MECC 19792 PROGRAM: NOMADN LAST UPDATE: 80/8/12Tr PROGRAM NOMAD1 & NOMAD2 AUTHOR: STEVEN N. TRAPP CONVERTED TO APPLE BY: JAY A. CARLSON( LANGUAGE: APPLESOFT (FP)+A(X)((1)X)1-: 2             "::"THE PEOPLE (REMAINING) FIND YOU AN":m"UNPLEASANT RULER AND WANT TO THROW"::"YOU OUT OF OFFICE."w2090 "YOUR PERFORMANCE COULD HAVE BEEN"::"BETTER, BUT WAS PRETTY GOOD.":*((1)P810)1;" PEOPLE WANT TO SEE YOU ASSASSINATED,R PERSON":;"AND ENDED WITH ";L;" ACRES PER PERSON.":KP1331850YL71850iP1102030wL92030P132060L102060"A FANTASTIC PERFORMANCE!"::"THE PEOPLE LOVE YOU!":2090+"DUE TO YOUR HEAVY-HANDED PERFORMANCE DO AS YOU WISH.":>l"GET YOURSELF ANOTHER STEWARD.":2090qv35000::::"IN YOUR 10 YEAR TERM OF OFFICE":P1;" OF THE POPULATION STARVED PER YEAR.":"A TOTAL OF ";D1;" PEOPLE DIED."::L(AP10)10 :"YOU STARTED WITH 10 ACRES PE"YOU STARVED "D" PEOPLE IN ONE YEAR.":x:"DUE TO THIS EXTREME MISMANAGEMENT YOU"::"HAVE BEEN THROWN OUT OF OFFICE"D2090N20:868:"YOU HAVE ONLY ";S;" BUSHELS.":X20:868:"YOU HAVE ONLY ";A;" ACRES.":b:::"GREAT ONE, I CANNOT1)5)1YC:HDY:E0=C((1)5)1:C(C2)21760JE(SC)VSSEHcC(5)1I((2AS10)PC101)C(Q20)PC1100DPC:D(45P100)1840P1(((Z1)P1D(100P))Z)&PC:D1D1D:1110'0::8::868:"ACRES TO PLANT WITH SEED ?";:40000:DZNIJD01890:D01720XTAD1650b^1880lh1600}rD2S1680|18701600D10P171020:868:"YOU HAVE ONLY ";P;" PEOPLE TO PLANT IT."1600SS(D2)C((LL ?";:40000:QZN AQ1510*188041470JAAQ:SSYQ:C0X20:95821:"HOW MANY BUSHELS OF GRAIN SHOULD BE":868:"DISTRIBUTED TO THE MASSES? ";:40000:QZNQS15801870"1530,SSQ:C1620:9581@22A$,1,1)"S"14606Z23:"TYPE 'BUY' OR 'SELL'":1360Dd20:958zn22:868:"HOW MANY ACRES TO BUY ?";:40000:QZNxYQS143018701390Q01515AAQ:SSYQ:C0151520:95822:868:"HOW MANY ACRES TO SEWISH TO BUY OR SELL LAND ?";A$6(A$,1,1)"N"1515Y(A$,1,1)"Y"Ģ20:958:1360q((A$,1,1)"B"13802(A$,1,1)"S"1460<20:"TYPE 'YES', 'NO', 'BUY' OR 'SELL'."F1290P21:"BUY OR SELL ";:868:A$:(A$,1,1)"B"1380U(E01240> "DESTROYED BY RATS";:XXE:20000:" BUSHELS."n "GRAIN IN STORE";:XXS:20000:" BUSHELS."} Z111910 C((1)9):YC17 :CV(37)1:"LAND IS TRADING AT";:XXY:20000:" BUSHELS PER ACRE.";:CV1:1 22:868:"DO YOU R02 ~PPR:"TOTAL THAT STARVED";:XXRD:200008 ] "NEW PEOPLE";:XXI:20000:PPIc  "TOTAL POPULATION";:XXP:20000   "THE CITY NOW OWNS";:XXA:20000:" ACRES."  "HARVEST PER ACRE";:XXY:20000:" BUSHELS." $D10:P10 .350008 8Z0:P95:S2800:H3000:EHSB =ZM24Y BY3:A1000:I5:Q1b LD0:n V:936t [ `15:"O GREAT ONE"::11:"REPORT FOR YEAR ";Z1;":":ZZ1 j::"PEOPLE STARVED";:XXD:20000 o tR(((1)P)15100):Z1/ :"EACH PERSON CAN PLANT UP TO 10 ACRES."t :"EACH ACRE PLANTED TAKES HALF A BUSHEL":"OF GRAIN FOR SEED." :"THE PRICE OF LAND RANGES BETWEEN 17":"AND 25 BUSHELS PER ACRE." !:"THE HARVEST RANGES BETWEEN 1 AND 5":"BUSHELS PER ACRE." :936! 16:"S U M E R") :S "TRY YOUR HAND AT GOVERNING ANCIENT" "SUMER FOR A TEN YEAR TERM OF OFFICE.": :"THIS INFORMATION MAY BE USEFUL:" :"EACH PERSON IN YOUR KINGDOM NEEDS 20":"BUSHELS OF GRAIN FOR FOOD EACH YEAR."f PROGRAM: SUMER8 LAST UPDATE: 80/8/12 CPET COPYRIGHT MECC, 1979p SUMER 8/23/79 FP AUTHOR :'BASIC COMPUTER GAMES' BY DARRELL ALDRICHZM24:255:  SUMER ADAPTED FROM 'BASIC COMPUTER GAMES' BY DARRELL ALDRICH     :xPP HGR ROUTINE*PZ1(ZA$)?PZ1((ZA$,Z,1))PPZ13220660^PZ1ZX,ZYjPZXZX8rP:0 MUSIC ROUTINE: -MUSICv 76,55,3,164,1,173,48,192,230,2,208,5,230,3,208,5,96,234,76,21,3,136,240,5,76,27,3,208,235,164,35,40,35,39,35,37,35,35,35,35,35,35,70k 42,35,42,35,42,70,30,35,30,35,30,70,42,70,40,70,39,70,37,70N MUSIC ROUTINE SETUPNMUSIC768:PITCH767:TIME766:TMBRE765NTMBRE,15NNZ$:Z$"-MUSIC"20120NZ0239:Z1:768Z,Z1::J0:1201!JI:16368,0::: MUSIC NOTES,35,100m 35,100,37,35,39,70,39,70,37,35,35,35,37,35 39,35,35,70,30,70,35,100,37,35,39,70,39,70  37,35,35,35,37,35,39,35,35,100,35,35,37,35,39,35, 40,35,42,35,42,35,42,70' 42!!" 14400*L(4);"RUN VOYP2"v24:868:7:16368,0:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:1|A$:A$"MUSIC NOTES"1202I1J1:A,B:IJ143A,BPITCH,A:TIME,B:MUSIC(16384)1271220 0P0::20:"THAT'S NOT 30, TRY AGAIN.":265Ru17:22:"PIECES TAKEN "P" "Y|IP30Į:20:"THAT'S NOT 30, TRY AGAIN.":P0:270I06:600I,P(I1)::10"STAND BY WITH YOUR PADDLES!!!"::"WE'RE APPROACHING GRAND PORTAGE!!ROM":" THE FOLLOWING"m" CLOTHES,GUNPOWDER/SHOT,WINE,FLOUR/SUGAR,TOBACCO,TRADING GOODS,PEMMICAN,I17:I23:P$(I):P$(I):I6I17@17:I23:868:R$:R(R$)JR0R(R)320TR0R$"0"320hPPR:P(I)R-rP3THEIR FURS."L:"PEMMICAN- THIS IS THE MAIN FOOD FOR ":"THE VOYAGEUR."V1200_288 24:868:16368,0:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:16368,0:1:868  !:"YOU MUST TAKE A TOTAL OF 30 PIECES F:"MEN HAPPY AND WORKING HARD.":e"FLOUR/SUGAR- FLOUR/SUGAR IS USED AS ":"PART OF THE FOOD.":"TOBACCO- THIS WILL HELP KEEP YOUR MEN":"HAPPY.": "TRADING GOODS- YOU WILL USE THE":"TRADING GOODS TO GIVE THE INDIANS IN ":"EXCHANGE FOR " YOU CAN TAKE THE FOLLOWING THINGS -"-w"CLOTHES- YOU NEED CLOTHES TO PROTECT ":"YOU FROM THE ELEMENTS.":"GUNPOWDER/SHOT- YOU WILL NEED THIS IF":"YOU RUN OUT OF FOOD AND HAVE TO HUNT. "!"WINE- YOU WILL NEED WINE TO KEEP YOUR"IECES' YOU ":"WISH TO BRING. A 'PIECE' IS A BUNDLE"^ "OF GOODS WEIGHING ABOUT 80 POUNDS." :"YOU MUST TAKE 30 PIECES FOR THE TRIP." "IF YOU TAKE TOO MANY OR TOO FEW THE":"COMPUTER WILL MAKE YOU RE-ENTER YOUR":"RESPONSES." 1200': 3130,140F 135,100135,135:135,135125,125:135,135145,125P 1200V ` ::y 15:"THE START":: "YOU WILL BE ASKED WHAT YOU WISH TO ":"TAKE ON YOUR JOURNEY ACROSS THE BORDER":"OF MINNESOTA."4 :"TYPE IN THE NUMBER OF 'PX50:ZY120:206007 ZA$"CANADA":ZX120:ZY60:20600W 9);"THE VOYAGEUR'S ROUTE" "THESE ARE THE BOUNDARY WATERS OF THE":"NORTHERN PART OF MINNESOTA." 1200 :21:"THIS IS THE MARKER TO SHOW WHERE YOU":"ARE LOCATED ON THE MAP." 3U ARE A FUR TRADER WORKING FOR THE":"AMERICAN FUR COMPANY UNDER JOHN JACOB"[ "ASTOR. " :"YOUR GOAL IS TO REACH RAINY LAKE IN THE":"LEAST AMOUNT OF TIME WITH THE MOST FURS." 1200 6::21::11,10:2100,89 3 ZA$"MINNESOTA":Z IS A SIMULATION OF THE":"EARLY 18TH CENTURY IN THE WOODS"[ _"OF NORTHERN MINNESOTA.": d"FUR TRADING WAS THE MAIN INDUSTRY IN":"THE AREA AT THIS TIME. DURING THIS" n"PERIOD, MINNESOTA WAS STILL PART OF THE":"UNSETTLED WILDERNESS."L x:"YO PROGRAM: VOYAGE8 LAST UPDATE: 80/8/12>^A$(4):A$;"NOMON I,C,O":z ::15:10:"VOYAGEUR" 20100A$;"BLOAD J1.5,A$4000"81321:0:3:232,0:233,64(::U15:"INTRODUCTION"::; Z"THIS PROGRAM       )L53L511070'BL51100,1140,1130\LP(2)0ĺ"YOU DON'T HAVE ANY AMMUNITION.":1130~VP1((1)30)10:P(2)P(2).2`"YOU GOT "P1" PIECES OF FOOD.":P(7)P(7)P1j1470:1250tP(6)0ĺ"YOU DON'T HAVE ANYTHING TO TRADE WITH.":1130b~01190"YOUR FOOD IS LOW-";P5(1)2:P5(2)6:P5(3)7Q" YOU HAVE:"Z13:(P(P5(Z))100)100;" PIECES OF ";P$(P5(Z)):$:"DO YOU WANT TO-":"1. HUNT":"2. TRADE":"3. CONTINUE".15:"TYPE 1,2,OR 3?";L5$:L5(L5$)8L5(L5MMDL10%C((1)100)1990-:MPL((1)7)1:P(PL)1940dP9((1)P(PL)1)"THE CANOE SWAMPED -""YOU LOST "P9" PIECES OF "P$(PL)::P(PL)P(PL)P9:PPP9:1470P(7)1.51190P(7)01440P(6)0P(2)1XRCV:"HOW MANY DAYS DO YOU WANT TO"::"STOP AND VISIT WITH THEM?";:868:" ";DL$vWD2(DL$):(D2)DL$850Z958\D20D25ĺ:"TRY BETWEEN 0 AND 5 DAYS.":850fDLDLD2pDL0MM10:270uMM15:270zM((1)50)1920 ";(7);(7):P(6)0g "CANOES WE'RE DAMAGED. MORALE IS DOWN":"FROM ATTACK.":MM15:CC20:1470:270x*34,5:35,244P(6)P(6)Z:MM5:PPZ:FFB:34,5:35,24:1470:270>25((1)100)1270H::"OTHER VOYAGEURS SIGHTED "M:CV(37)ING.":34,5:35,24:1470:270MBZ(1)100ĺ"THEY WANT MORE.":1470:690"INDIANS ACCEPT":"YOU GET THE FURS AND THEY SHOULD GET"Z;" PIECE";:Z1ĺ"S";".":780"THE INDIANS WANT MORE."1470:2 ZP(6)820"FOOL!!!"3:"WOLF";:12:B(4)10ĺ" ";,B(4)FBB(1)B(2)B(3)B(4)q12:"--":3:"TOTAL";:12:B10ĺ" ";xB:34,15:35,2415:1:868:"HOW MUCH DO YOU WANT TO GIVE THEM?";L$:Z(L$)::7(Z)L$690Z0730"NO TRAD MOVE."D1470:830@N:"YOU HAVE "P(6)" PIECES TO TRADE."TX:"THEY HAVE:"tbZ14::B(Z)((1)20)1:l3:"BEAVER";:12:B(1)10ĺ" ";qB(1)v3:"FOX";:12:B(2)10ĺ" ";{B(2)3:"MUSKRAT";:12:B(3)10ĺ" ";B(3)DD1((1)5)18307&:12);"INDIANS SIGHTED":f+"YOU HAVE "P(6)" PIECES TO TRADE WITH.":u.CV(37)10CV:"DO YOU WANT TO TRADE WITH THEM? ";:868:"";G$:G$(G$,1):G$"Y"G$"N"5605G$"Y"590:P(6)0ĺ"THAT IS NOT A WISE1ĺ"SNOW ":S120:510& "FOG":S120k 7:"HOW MANY DAYS DO YOU WANT TO DELAY";:868:L$:(L$)0510u 958 I(L$):(I)L$510 (L$)0ĺ:"DON'T BE SILLY.":510 (L$)5ĺ:"YOUR MEN WON'T SIT STILL THAT LONG.":510 DLDLI- ::"CANOE IS IN ";C;"% GOOD CONDITION."> M100M100 :"MORALE IS "M"% OF POSSIBLE."::"YOU HAVE "F" FURS.":1470 DL0830 75((1)100)1540 S((1)3)1:S9$(S);" "; (1)1013ĺ"WIND":S130:510 D((1)15)ȹ35,24, T100:((40(Q$))2));Q$::890J ^:5:13:"STATUS REPORT"o rH117:P(H1)(P(H1)10)10:H1 |Z17:Z6:8:P$(Z);:26:N1P(Z):30000  P0:H217:PPP(H2):H2 P(10P)10 26:"----":8:"TOTAL";:26:N1P:30000"DL" DAY";:DL1ĺ"S";7 (" AND HAVE NOT"::"MOVED."] ,1470:D1D1DL:DDDL1:DL0:270p 6DD1121500 @100:ZA$Q$:ZY170:ZX135(Q$)72:40:20600:ZA$"PRESS 'SPACE BAR' TO CONTINUE":ZY180:ZX30:20600:1470 J::17:2:"DAY "D:34,4:(Z):Z:120' d:Z1DD1:Q$,X,Y::N xZ06:P(Z1)(600Z):::2:280 ::::DD1:P(3)P(3).2:P(5)P(5).2:P(7)P(7).2:PP.6 DL0ė::310 ":2:17:"DAY "D::(40(Q$))2);Q$: %DL(DL)DL(DL)1 '"YOU WERE DELAYED  144006S9$(3),P$(7),P(7),B(4),P5(3):::60[(:6:11,10:2100,89:3:3X,Ya-<:M100:C100:X100:Y100:D1F(4);"BLOAD J1.5,A14500"G232,164:233,56P:0:0::U1:0 ZZ133:P$:Z:Z13:S9$(Z):Z:Z17:P$        16.-=$466&3--??6-u6?8I9.-?$A--6)u?v- ?d)u6?d-6/?----M ---5666>???$$$$ے666666666>??????????????'$$$$$$$$$--566--%$$---66.--$$,----6$$$4u&$$$6666666666$$$$$?????----------?????$$$$,?M$u6$ 166&,?--7&$$4>?--)u66?$$ -  666-?? -.-=8--u????6666-----$$$$??????????6666-----$$$$?????????7666.----$$$$???????6666---$$$$?????7666.--$$$$6666:??6666--%$$$lI6666---$$$$???---M 6666----%$$$??????????7666vIIII6666---%$$$????'$$$$$ -----6666666666?????$$$$$$$$$$666666666666-------56?????66-----66666666666>???'$$??766?????$$????'$$??766????'$$??766???$$??$$$$$$$$$$$$$$$$$$$$$$$$$$$---------------66666666666666666666666-------------------566-----------$$,--66.------------------%$??'$$$$,-IIIIIIIIIIIIIIIIIIIIIIII666-----------$$$???????????-----------M -------------------666666666?????$$???????????$$$$-----------%$??$$$$???????????????????'$$$$$$$$$$$$$??76.--$$$$$$$$??76.--$$$$$$$$??76.--$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$-----------------%$$$$$?????????????????'$,-----------------$$$$???????????66>??$$????'$$$,--$$??'$$??766??'$$??766???????????????76.---------------66666666666666??????????666666-----66?????6666-----66?????6666-----66?????6666>??$$$$??$$$$?76------66??????666666666--------56>????????66666.--------------------------------------666666666666666??????????$$$$$$??7666666666666666>????????????$$$$$$$,----%$???66.----------66??????????766666.-------------$$,--66.------%$$$$$$$$$$$$??????76???????'$$$$,----6IIIIIIIIIIIIIIIIIIIII*------566???????$$466*------566666>??????'$$$$$4666666666.------%$$$$???????-------M 6666.-------------$$$$??$$$$$?????76666>??$$$$$?????$$-----$$$$$-----------------56666>??????'$$$$????766666666???????????????????????????666.-----56>?????7666>???????????????'$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$-------------56666????????66666666>??66--56666>??66--5666??76.--6666--%$$$,-----6-----566666666666666---56>???6666.---66???7666666?????????7666666----56>????66666------------------------%$$$$$$???76>??$$???'$,---$$$$??$$??$$????'$$$$,----ۓ666666?????$$$$$$-----6$$$4u&$$$6666666666$$$$$?????----------?????$$$$,?M$u?6$ ?6$ 6166&,?--7&$$4>?--$)u66?$$ - $  666-??- -.-=6--u?66.-=$466&---??6-u6?????76666.-------------------------$$$$$??????????????????????????????66666-----$$$$$66666:????76666.----%$$$$lI-------------------------56666>?????????????????????????$$$$$66666-------------------------mI$$$$$-----66666?????-----MIIIII $$$$$---$$???$6666666666????????????????????$$$$$$????66666666----------------------------%$$$$$$$????'$$$$?????66666-----$$$$$66666:????76666.----%$$$$???????'$$$$$,-6IIIIIIIIIIIIIIIIIIIIIIIIIII----66666????$$$$$----MIIIIIIIIIIII)----------66666???'$$$$??76666.--56>??76666.--56>??76666.--56>??766>??$$$?????666666---66???666??'$$??$$$???$$---$$$$$$?????????????????????????7666??'$$$?????666>??$$$??7%$$$$????? 6666----------$$$$?????????? -----6666>????'$$$$666666666-----$$$$$???????'$,--$$$$$??'$$$$$$????----mI$$$$$$---566666>???$6.---$$$$,--6666.--%$$$$$$$$$$------%$$$$??????$$$$$--IIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIIII2666??66--6666>?76.-56666??66--666666>?????????$$$$$$,--$$??'$$$$$,-----$$$$$$$$$$,---mI-----6666>????'$$$$66666666.----6??'$$??'$,--$$$$$??'$,--$$$$$??'$,--$$$$$??$$?????666666666666.----%$,--66---%$,--66--56>??66666.--66??766??'$$???766??'$$?????66>??$$???????666.----%$--56--56>??6666.--66??76666--56>??66666??'$$$$??$$$??????????66666.----%$,--66------66??????66666------66??????66666------66??????66>??$$,$$.6,$5.$,66>66%$$%%%66%$$5.$$->?-,,>>>>>.-=6-555-66%,6%4.$6.$6.$5.$5.$5&,,6/m .,,%5777??>?-,-...,-.&-?6$,-5.,,6.,---.&$56.$56%$56%,6.$.-655555-.-,-%--%-,--%%6$<>'??<?<%$?66$$?>-???.--=????,-*----------------------%?????>.-->?/$--...--%->?.-5556..--66.6466.$$,6.$$56.$$,466%$5.$,6.$$56$$/%%46>>>>>?7.567777>>77&$75.$46%$5&--66%$6677??7--5??75%,-,,,$$>-..?<6?6.-%??%-56?7----%??6??7----vd 4v6&$ 4--.-=<Ғ6666&%$$$.666%$$45?66-$,6666%$$$4.-,>>>6..--6>??=?7666.$$$,6666.$$$566%$$566%$$566.$$$%6666%$$$5666.$$$$,666.$$$,666.&$$$5666.$$$$566.$$$566%$$.-5??.-->?7-??66%5->??>--=>???<66.$$56.$$56.%$-5?66'$4?/-66%4655-e$$?7--??6.-?76--6--??6.-?76?)-?66-%<6666$,-%$666$ =/666/=6I166? 666$, 666--666$$$& 666$=666$$$v&$$4)u66?$$ 666$$$-u?7)u6 $$L6666$$$-u?$)u?v-?--?666u66v- $$466 $$666 4$$$@-d 5(!.<FPaiz , 66$C"NOT TO SPEND ANY MONEY FOR ADVERTISING."D35000:HA(J)0R1070\JD869aA50920b950e35000:-fCE (IN CENTS) ARE YOU GOING TO "(18U"CHARGE FOR EACH TOMATO PLANT? ";:868f40000:P1ZNtP11693z CALCULATE NUMBER SOLD P19770N181N9P12780N1(PP1)P.8N9N9 JD950J1D J1860&"EXPENSES FOR SEEDS, CONTAINERS,",V"FERTILIZERS, AND OTHER EXPENSES IS"\"";C5;" CENTS PER PLANT. THIS MEANS YOU""HAVE EXPENSES OF $30.00 BEFORE YOU ""START SELLING YOUR 1000 PLANTS."16 "WHAT PRIWISH TO GIVE TO YOUR"O5P"PLANT STORE";:868MX"? ";N$:N$""586b(N$)10Ģ15:"THE NAME CANNOT BE OVER 10 LETTERS LONG":586cdl"YOU HAVE ";N;" PLANTS TO SELL AND ";D;""qv"DAYS OF SELLING TIME. YOUR FIXED"{IDE HOW MANY NEW ADVERTISING SIGNS")B"YOU WISH TO MAKE."O35000:V4"YOUR GOAL IS TO SELL ALL YOUR PLANTS,""BUT STILL RAISE AS MUCH MONEY AS YOU CAN""FOR YOUR CLASS."D35000IJ6N"WHAT NAME DO YOU ND NOW YOU">"ARE GOING TO START A BUSINESS TO SELL"Do"THE PLANTS AND RAISE MONEY FOR YOUR"u"CLASS.""ON THE FIRST DAY YOU SET YOUR SELLING""PRICE AND ON EACH OF THE NEXT DAYS YOU"#"DEC% w"WAY TO ADVERTISE YOUR PRODUCT."+ z1 {a |"IMAGINE YOU ARE IN THE SCHOOL IN A TOWN " "WE WILL CALL ""TOMATOESVILLE""."  35000:   "YOUR CLASS HAS PLANTED AND GROWN TOMATO"  "PLANTS AS A SCIENCE PROJECT A INSTRUCTIONS";:868 TA$4 ^(A$,1,1)"N"585K _(A$,1,1)"Y"355T `323Z c` df el f h"THIS IS A COMPUTER SIMULATION OF A" i m"BUSINESS TO SELL TOMATO PLANTS. THE " p r"MAIN PURPOSE IS TO LET YOU FIND THE BEST" INITIALIZING VARIABLES& TP00 ZM24; N1000C D5L C53U A25] P9h N9125p S0x I0 J0 A50 C.15 "C21 ,ENC5.01 6B$"Y"612 ?:8 @9);"THE TOMATO PLANT STORE" C16 J"DO YOU NEEDTO HAVE STUDENTSN INVESTIGATE THE EFFECTS OF ADVERTISING ON A BUSINESS. FOR A COMPLETE EXPLANATION, BACKGROUND MATERIALS, AND SUGGESTIONS FOR USING THESE PROGRAMS, OBTAIN THE RESOURCE MATERIALS "SELL" FROM MECC. 255:::ABLE FROM MECC UNDER NAME: SELL ^ d PROGRAM 2 OF A 4 PROGRAM "SELL" SERIES FOR ELEMENTARY n STUDENTS DEVELOPED BY BOB JAMISON, ALEXANDRIA, MN x FOR MECC UNDER THE MECC UNIVAC MINI-GRANT PROGRAM.  THE MAIN PURPOSE OF THIS PROGRAM IS  PROGRAM: SELLP6 LAST UPDATE: 7/1/80<W COPYRIGHT MECC, 1979r SELLP 8/23/79 FP ALTERNATE NAMES UNIVAC: SELLPLANTS  AUTHOR: BOB JAMISON( LANGUAGE: APPLESOFT 2 DOCUMENTATION AVAIL                   4H(I)0;>:"DAY ";D;": YOUR COST FOR MAKING LEMONADE"gC8((D)):"IS ";C;" CENTS PER GLASS."mHR6:"LEMONADE STAND #";IWA(I)C1B(I)1\B(I)0890a:"YOU DO NOT HAVE ENOUGH MONEY TO STAY IN"f:"BUSINESS. YOU ARE BANKR35000:DD1D2740&C2/782<D7743DC4M780UC5[ hC1C.01qR11 INPUT VALUES D22000: AFTER 2 DAYS RANDOM EVENTS CAN HAPPEN"807%Q(37):Q0807&35000:'I1N*G(I)1(I)0ĺ:"DON'T BE RIDICULOUS":590.]B(I)05bI>l705r::"'ASSETS' ARE WHAT YOUR COMPANY IS WORTH.""EACH STAND STARTS OUT WITH $";A2;" IN":"ASSETS, AND YOU CAN NOT SPEND MORE THAN":"THE ASSETS YOU HAVE AT ANY TIME." A(I)A2IB1690I& INPUT VALUES FROM THE PREVIOUS RUNk0:"LAST DAY WAS DAY NUMBER";r:D<D0ĺ:"DON'T BE RIDICULOUS":560DI1NN:"ASSETS FOR LEMONADE STAND #";IS:"AFTER DAY ";D;" WERE ($)";XA(I)#ZAMONADE STANDS ARE THERE? ";+40000:NZN:(6):34,6_N0ĺ:"OOPS! TRY AGAIN.":520N1N10ĺ:"THIS PROGRAM ONLY WORKS WITH":"1 TO 10 STANDS. TRY AGAIN.":520:34,0:(5):"HOW MANY LEMONADE STANDS ARE THERE? ";N;" "I1NTO MAKE THE ":i:"GREATEST POSSIBLE PROFITS.":35000::8:"ARE YOU"::" 1) STARTING A NEW SESSION, OR"::" 2) CONTINUING AN OLD SESSION"14:"(ENTER 1 OR 2) ?";:868:ZM23:40000:ZN1ZN2501BZN:(5)"HOW MANY LE:"(1) HOW MUCH LEMONADE TO MAKE,"TJ:"(2) HOW MANY ADVERTISING SIGNS TO MAKE"xO:(6):"(15 CENTS EACH), AND,"T:"(3) HOW MUCH TO CHARGE FOR YOUR"Y:(6):"LEMONADE."^:"TRY TO MANAGE YOUR LEMONADE STAND" h:"EFFICIENTLY SO AS CALL 'LEMONSVILLE, MINNESOTA'."L":"YOU MAY RUN THIS SIMULATION WITH AS"|':"MANY STANDS AS YOU WISH, HOWEVER, WHAT",:"ONE STAND DOES HAS NO EFFECT ON THE"6:"OTHER LEMONADE STANDS.":35000:@:"EACH DAY, YOU MUST DECIDE:"#E" IN THIS COMPUTER SIMULATION YOU".Z"WILL MAKE DECISIONS THAT ARE SIMILAR"`"TO THOSE YOU MIGHT MAKE IN RUNNING A" "REAL LEMONADE STAND. YOU HAVE AN" "IMAGINARY LEMONADE STAND IN A TOWN WE""WILL IMITS OF THE NUMBER SOLD/ LNGTH(X)((X))> ::255:c (5):(11):"THE LEMONADE STAND" 10:"DO YOU NEED INSTRUCTIONS? "; 868:"";Y$ (Y$,1,1)"N"500 (Y$,1,1)"Y"240 :"PLEASE ANSWER YES OR NO." 209 :(BER SOLD AT 'BEST PRICE ' AND NO ADVERTISINGf A22.00: ALL STANDS ARE GIVEN TWO DOLLARS IN ASSETS SP100: SPEED FOR SLOW PRINTING (LINES 890, ...) C9.5: INCREASE TO INCREASE THE EFFECTS OF FIRST SIGNS C21: INCREASE TO RAISE THE LH THE COMPETITION BETWEEN COMPANIES IS INTRODUCED.A :::255p A(30),L(30),G(30),H(30),B(30),S(30),P(30) INITIALIZING VARIABLES P910: 'BEST PRICE' FOR SELLING LEMONADE S3.15: EACH ADVERTISING SIGN COST 15 CENTS, S230: NUMROGRAM IS TO LET STUDENTS INVESTIGATE THE CONCEPTSu F OF PRODUCTION, ADVERTISING AND PRICING AND HOW THESE RELATE P TO THE PROFIT A BUSINESS MAKES. THIS PROGRAM IS INTENDED Z TO BE AN INTRODUCTION TO "MARKET" OR "SELL BICYCLES" IN2 d WHIC STUDENTS DEVELOPED BY BOB JAMISON, ALEXANDRIA, MN.r  FOR MECC, UNDER THE MECC-UNIVAC MINI-GRANT PROGRAM. ( THIS IS AN ECONOMICS SIMULATION/GAME WHERE STUDENTS 2 LEARN TO MANAGE AN IMAGINARY BUSINESS. THE MAIN EMPHASIS2 < OF THIS P& PROGRAM: SELLL6 LAST UPDATE: 7/7/80<X AUTHOR: BOB JAMISON ASSOCIATED PROGRAMS AND FILES: NONE DOCUMENTATION AVAILABLE FROM MECC UNDER NAME: SELL PROGRAM 3 OF A 4 PROGRAM "SELL