' +JJJJ ?\>m0M='+l> /+l   d']6@5L&]655]6LF%5 & "L}"BB5L&]6 X  `6 77777777777JJJJx 77L? L7877777777 776i 7 7867 7`77 777777`x =(`(8`5775I7`B` 76`77`>J><;VU<)?<`8'x0|<&HhHh 8 8 8 8V&` aI꽌ɪVɭ&Y:&<&Y:&;: 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8 9: :' 9: :& :x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?8  1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#000'#07#0:"4<*55**5*%5)1)1)1)'#0/#0*5*75**5*:5/#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh < <݌ < < h < < < <`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 (G FG HZXj 80x D9$xxH` >( Z>h Z>L=.xxH >hh@(LH>9L>HH/Hh/ H?-З( 8(& 8$8 H` *8HNx`* >x$50x*$50xL9JJJJ`HHjf5 >h $50x`HA>VD;;P >(ED Z> ?$0x8x D9- 8DD# H8`?E Vˆʎ55L $ 5 55555 &a*5`*5` "L&5_*b*JL%u**Lz%`** $  Q(lXJ̥KlV $  Q(lV eօ3L e3L &%R*L &%Q*L d' "L4% N'e*)n*5 5 &`@-e*f*f* 5 "L# "5f*`L %.* *t*Q*L$ %L&*L` "O**P**u** d' "L% N'e*)n*o*o*n* &8ɍ` ^&f\*555L& ^&NR* & "R*ΩL&)\*Z* ʽ LH*v 3h`0h8` " ['L & N'С55 &5`*A*@` +5L^6L65`  \* ?*0 '\* '  Q( ^&\*lZl^?*c*q)H c*h`f*5h*5j*555@O*AP*`u*@`@5&`Q*R*`E 'Ls' ' ' @DAE@u*`8` %@ @A@`@`**@*A`M5 ) "L&`8@AW*c*@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@c*h8&ȑ@Hȑ@Ah@L'Hȑ@ȑ@* htphso`hMhL`9V*8U*897T*6S*67`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- (   Ϡ734@~3!+,W,o,*--,,9,-.-~3~3,,,,~3~3,,,,~3_*3 j.5 *H*H`Lc3 (+L3 +55555 1^3_* )3J Q*L_3Ls3443 D23455545554 70 / 7 :/354545455454555535L^/5-5I5555 55` / 4/ 2-5! / 08555454 70L3 (+50+5B5C3 2 70L35 *H*H`Lg3L{3505 *H*H` 3 ,5L3 3 1 ,H 1hBL, 0 BH [1 1h`Lo3 35 ,L3 3 1B , 1L,H 0hB@ 55 [1L133 (+34) 34 70L3 3L3 (+ 055L- (+34L{33454445 70 ^/* / 3B0 HȱBh -355 -8 /L38 25` +5 /3 /. /. 3 E7D B. /. /. 0]34S0J4 4) 3 4D4E B. 4  /. 02L3 Ν3 3`HD٤33DEEhiHLG.h ` /5B5-` /5B-` + X05I33383 33DH /4 E03744Ȍ7 X040 7 J7L35B5C`,5p` / R0-55`50` K/ R0-55`575755` 4/ K/ /( 55L/BȱBL/58` D2BH5BH :/ 75Bȭ5Bhh55 R0B5m55ȱB5m55` /LR0557755`*7*75LR0 E0(33 48`433 R0` E033LR0*7*7`777 555I7575757577** 7757`7 L35555f /55555555 ^/`855 i /B58` 41L 15ȱB5 /5555 /5`3 D23ȑB55B5 / 7 55`5555555555 5555`555`55BC55`5555`L3 /5B5C355 0Q340"B4 3` 02۰Ϭ33B438`3i#`3ЗLw35!50>5555`53 /3m3 3 3733i35 3583 /35ЉLw35`H /5h 25L/~43 533`55555555J5m55m5jn5n5n5ۭ55m5555m55m55`"L? 585H ~.(3` # 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):( 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)=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)8I)":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 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 $,(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))10211050I1100e 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|xA?ooo}@|>`}~?8ok=?o{z^>?Wt?~Ox?x|}0@v`>_o7_o?OO|O@_~{~?k{m?_}v>?|x~0W]v[k6wmo.{~?y>x`ow[m|?`wsownw_opq?xg~xA?oOoy]_{??oogO{}wv~_v~wqq`}Oox>?|}?~?xp~@|_>?7{ox?s}|qo?}w[>_o7oo?oo~o@_~{~?g]{m?_}v??~~~?~PO>zog>{k/{~?|>{o7ow[n{~?wxo?~_|pn6|Xg]_cnw_opg?xw~xA?o/wu>o{{^o_k~s}wg?|{_1(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$:" 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( 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 PRICyxA?ooo}={{^o^k|sgww__w^_W~__~V~wxO8oJV[_{]n]vox?>pp}xOo?}WZ<__;_;?X_{{@ww~_>?wvyx?o`}?__`_@_~{~?p_0G~~?]{o}_ow[g~?_wgog?wox?o@?~?x>{m?_9v>}xA?ooo}];?oogy{swwv.w^ww^_wv6~_/?w~~w6~w?~oxp67\_{]qcfoxG?G|}xo?}gY>_?=_}~?X_s;ww|_>?gv|_x?o~?~}?__y_@_8{~??~wp`}xAxs~xXc{o~_ow[k~?_wwoO?w{nsox|?xO>n?_}xA ";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$"MBER - 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: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#W46160!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(3MANSINGEÃOHIO,COLUMBUS,KENTUCKY,FRANKFORT,WISCONSIN,MADISON,ALASKAÃJUNEAU,ARIZONA,PHOENIX,CALIFORNIA,SACRAMENTO,COLORADO,DENVERÃNEW MEXICO,SANTA FE,OREGON,SALEM,UTAH,SALT LAKE CITYÃHAWAII,HONOLULU,IDAHO,BOISE,MONTANA,HELENA,NEVADA,CARSON SAS,LITTLE ROCK,TEXAS,AUSTINNÃOKLAHOMA,OKLAHOMA CITY,NORTH DAKOTA,BISMARCKÃSOUTH DAKOTA,PIERRE,NEBRASKA,LINCOLN,KANSAS,TOPEKAÃMINNESOTA,ST. PAUL,IOWA,DES MOINES,MISSOURI,JEFFERSON CITYÃILLINOIS,SPRINGFIELD,INDIANA,INDIANAPOLIS,MICHIGAN,LLAND,ANNAPOLISAxà VIRGINIA,RICHMOND,WEST VIRGINIA,CHARLESTONuÃNORTH CAROLINA,RALEIGH,SOUTH CAROLINA,COLUMBIAà GEORGIA,ATLANTA,FLORIDA,TALLAHASSEE,ALABAMAÃMONTGOMERY,MISSISSIPPI,JACKSON,TENNESSEE,NASHVILLEÃLOUISIANA,BATON ROUGE,ARKAN23Ā4D$;"RUN HELLO"WPà MAINE,AUGUSTA,NEW HAMPSHIRE,CONCORD,VERMONT,MONTPELIERZà MASSACHUSETTS,BOSTON,CONNECTICUT,HARTFORD,RHODE ISLANDdà PROVIDENCE,NEW YORK,ALBANY,PENNSYLVANIA,HARRISBURGnà NEW JERSEY,TRENTON,DELAWARE,DOVER,MARYR - TRY AGAIN";:40010:40001EFZM:868:CV1(CV23):ZN(ZN$):^JCV1:36,CH:868:pD$(13)(4)x: 10:"DO YOU WANT TO TRY"12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030 :R$"Y"Ĭ*(1023)1A$,G7,1)"Z"G2G7:G71,.:A$(A$,G2):16368,0:24:7:"PRESS ";::"SPACE BAR";::" TO CONTINUE";:16384,128:1:868:@CH(36):CV(37)A"?";ZN$:(ZN$)(((ZN$)))40003B(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBEA NUMBER 1 - 3":43022"ZE1Ĭ2ZE343049m:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"y)1023,9*: 9*: ,: Z23,9 "*:20-!:"PLEASE ENTER A NUMBER 1 - 3":430229!ZE1ĬI!ZE343049!:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"!)1023,9!*:3022!ZE1Ĭ!ZE343049!:10:"GETTING THE MENU PROGRAM...":(4);"RUN HELLO"")10(A$,1,1)"N"43050B :"PLEASE ANSWER WITH YES OR NO":43005 "WOULD YOU LIKE TO:"::"1) RUN THIS PROGRAM AGAIN,"::"2) RUN A DIFFERENT PROGRAM, OR" :"3) END" 13:"PLEASE ENTER 1, 2, OR 3 ";:868 40000:ZEZN!ZE0ZE44303AD,LASKA,JUN,ARIZ,ENIX,CALIF,SACRA,COLOR,DENV}TăW MEX,FE,OREG,SALEM,UTAH,SALT L,HAW,LULU,IDA,BOISE,MONTA,HELEN,VADA,CARSON^ăWASHING,OLYM,OMING,CHEYHMING,CHEYTO RUN THIS PROGRAM"::"AGAIN - YES OR NO";:868A$(A$,1,1)"Y"Ĭ LAN,FLOR,LAHAS,ALAB,MONTG,MISSI,JACKS,TEN,NASHVl,ăSIANA,BATON,RKAN,ROCK,TEX,AUST,OKLA,MA CITY,RTH DA,BISM6ăUTH DA,PIER,BRASK,LINC,KANS,PEKA@ăMINN,PAUL,IOW,MOIN,SOURI,JEFFER,ILLI,SPRING,INDIAN,DIANAPO,HIGAN,LANS-JăOHIO,LUMBUS,KENT,FRANK,WISC,MCITY-ÃWASHINGTON,OLYMPIA,WYOMING,CHEYENNEbăMAIN,GUSTA,HAMPSH,CONC,VERM,MONTPE,MASSACH,BOSTăCONNE,HARTF,ISLAND,PROVID,YORK,ALBA,PENNS,HARRISBăJERSEY,TRENT,DELAW,DOV,MARYL,NAPOLIS,RGIN,RICHM,ST VIR,CHAR,RTH CAR,RALE,UTH CAR,MBIA/"ăORG,ATz#     ӠӲб Ϡ ̠7Р%̠+Ϡ" #dHE STATES."  " "$ STATES2J"STATES2 PROVIDES DRILL ON THE" t"GEOGRAPHIC LOCATION OF THE STATES."~ " " T STATES,STATES<"STATES PROVIDES DRILL ON KNOWING THE"\"CAPITALS OF THE STATES." f " "| STATES2,STATES2"STATES2 PROVIDES DRILL ON THE" "GEOGRAPHIC LOCATION OF THE STATES." " " L ON KNOWING THE" "CAPITALS OF TS A SIMULATION IN WHICH"F "THE STUDENT MAKES DECISIONS NECESSARY"h "TO RUN A LEMONADE STAND." SELL PLANTS,SELLP"SELL PLANTS IS A SIMULATION IN WHICH THE""USER MAKES THE DECISIONS NECESSARY"  "TO MANAGE A PLANT STAND."ECISIONS NECESSARY" 3s"TO RUN AN APPLE STAND." M| SELL BICYCLES,SELLB{}"SELL BICYCLES IS A SIMULATION IN WHICH"~"STUDENTS TRY TO MANAGE BICYCLE" "COMPANIES. THIS REQUIRES TWO PEOPLE." SELL LEMONADE,SELLL "SELL LEMONADE I 3",7 CIVIL,CIVILC "CIVIL IS A SIMULATION OF THE CIVIL" q "WAR. IT CAN BE RUN WITH ONE GENERAL" "(SOUTH) OR TWO GENERALS (NORTH & SOUTH)."p SELL APPLES,SELLAq"SELL APPLES IS A SIMULATION IN WHICH THE"r"USER MAKES THE D CH(36):CV(37); "";ZN$:(ZN$)(((ZN$)))520V (ZN$)0ZN$"0"540j ZN$"D"ZN0: ZM:"THAT IS NOT A NUMBER - TRY AGAIN";:550:500 ZM:868:CV1(CV23):ZN(ZN$): &CV1:36,CH:868: "ELEMENTARY - VOLUME8 A$ (A$,1,1)"Y"330: (A$,1,1)"N"ė:280b "PLEASE ANSWER YES OR NO";:1:390u Q0QN1470 22:1:"PLEASE ENTER A NUMBER IN THE RANGE":"OF 1 AND ";N;".":16:280 ::10:"GETTING THE PROGRAM..." D$;"RUN ";N$(Q,2)PE THE NUMBER OF THE PROGRAM YOU"::"WANT DESCRIBED ";:868K ^490:QZN^ hQ0QN1380 r:"PLEASE TYPE A NUMBER IN THE RANGE OF"::"1 AND ";N:340 |:N$(Q,3):18:N$(Q,4):20:N$(Q,5)   23:"DO YOU WANT ANOTHER DESCRIPTION";:86:20 T2(T2)ĺ:N10ĺ% T 16:1:"TYPE THE NUMBER OF THE PROGRAM YOU WANT.":"(IF YOU WANT PROGRAM"::"DESCRIPTIONS, TYPE 'D'.) ";:868 "490 ,ZN$"D"330 6(ZN$,1)"E"Ĺ1023,9::: @QZN:450 J34,15:16:= T16:"TYJ132JJ1:J40030$ #16368,0* (4 dZM24B xN$(24,5)X D$;"NOMON,C,I,O"f 1023,123u ::255: T$,N 1:20(T$)2 T$ 2:11:"AVAILABLE PROGRAMS" 4 T1N C15 N$(T,C) C T;" ";N$(T,1);  PROGRAM: HELLO4 VERSION: 2.0.2 (TMB)P LAST UPDATE: 6/27/80V m (C) MECC, 1979x 22016D$(13)(4):::255:(1023)123100:16302,0:::D$"BLOAD LOGO":16304,0:16368,0 J1(16384)128:J127     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(                    "SIGNS DO YOU WISH TO MAKE?";+A5A51:A521060IA511010S1040[:"(EACH SIGN WILL COST YOU ";A;" CENTS, BUT""THEY ARE ONLY GOOD FOR ONE DAY.)";1060 :"IT IS A GOOD IDEA TO TRY A DIFFERENT"14:"WOULD YOU LIKE TO TRY MAKING SOME SIGNS"5^"TO ADVERTISE YOUR BUSINESS";:868fC$}(C$,1,1)"N"840(C$,1,1)"Y"95020:"YES OR NO PLEASE"9203"THIS IS DAY ";J;". HOW MANY ADVERTISING"4:"DO YOU WANT TO HAVE A SALE AND LOWER":\k"YOUR PRICE FOR THIS LAST DAY IN ORDER":u"TO SELL OUT THE ";N;" PLANTS LEFT";:A$(A$,1,1)"Y"Č958:689(A$,1,1)"N"91520:"YES OR NO PLEASE."870(C$,1,1)"Y"950/* /18@4"YOUR CLASS DECIDES TO ADVERTISE ON THE"F6t9"FIRST DAY BY TELLING THEIR FRIENDS AND"z>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" SERIES FOR ELEMENTARY5                ox<@}~??|_Oox?g}xGo?}w[_o7wo?go?~o@|?p>{m?_}v??ppx?X_~zoo>{k/?{~?~>{o7owo{~?o~ox_8onV;W[]_]nw_ox?|g?~xc?oox p|ao?lxg}sO{_w_wv^F_w~~Go88`}~?~~gox?O}x~o?}w[._0{o?|p{{@|~?~~1wvwg?o@q?|C>{m?_}~C?@~`?@_O~zog>{K/{~??~>{o7_ow[o{~?ogxs_X_nfWO{]_>nwOo?~?o?x?ocO}{o_wvv_7_wv^_?wv~_w~wvvw>w~O0?~}~?_qwlw`\o>~oox?a@}xx<Awx6_o7`o?8o{;?o{~_}~.wvsw?o@G?xx>{m?_mv???`@?`@?W~v[k>w-w.{~?> x`\o{~?owpg_X_nvW_{]_~nwoo|?o?x?o~_}?@{?|c@ooo}}`|a?l?~gOwwv_W_7v^_vf~_/vn~f~_ |~?_?|k{o;_ow[o>~oox? }xco?}7[:_o7_W?X_{{?ww~_>wv{w?o@?x?~>{m?_Uv?G_@X~nx1{~?G wpO_X_lfW_{_>fwooq?o         APPLE STAND.":U"AT ";P(I);" CENTS PER APPLE, YOU SOLD ";N(I)::"APPLES."[gZDM(I)r45000:"YOU RECEIVED $";ZD$;" IN INCOME TODAY."T1T1M(I)IT1000"THAT PUTS YOUR TOTAL SALES"::"SO FAR AT $";:ZDT1:"F"910fW$"D"Z$"S"910+p:868jz"THAT IS NOT THE WAY IT USUALLY GOES."::"TRY IT AGAIN."py800:868:"THAT IS USUALLY TRUE. GOOD THINKING."::868350009:"DAY ";I;" CLOSING REPORT FOR" :12:N$;"'S HE SAME NUMBER OF APPLES AS"V+:"YESTERDAY (TYPE 'MORE', 'SAME' OR"::"'FEWER')";d4868:Y$u>W$(X$,1,1)HZ$(Y$,1,1)JZ$"M"Z$"S"Z$"F"850L:"PLEASE TYPE 'MORE', 'SAME', OR 'FEWER'.":800RW$"L"Z$"M"910\W$"R"Z$2I5921P(I)P(I1)772'7907X$"RAISED"@ 800UP(I)P(I1)793mX$"DID NOT CHANGE"v800X$"LOWERED" 868::868:9:"SINCE YOU ";X$;" YOUR PRICE"::"TODAY, DO YOU THINK YOU WILL SELL MORE,"!*"FEWER, OR T101682<:"LET'S BE REASONABLE. TRY IT AGAIN.":5:670tP(I)(P(I))ĺ:868:"PLEASE USE CENTS.":5:670P(I)S730C.70N(I)((SP(I))SCN1N1.5)750C12N(I)(SC1N1P(I)2.5)M(I)P(I)N(I)100 IN1S4100SqA$"N"635Cv"O.K. ";N$;", LET'S SELL APPLES."Px35000:X{J1cIJTl:3|"DAY ";I:"WHAT PRICE (IN CENTS) DO YOU WISH TO"::"CHARGE FOR EACH APPLE ?";Q6(0)868:40000P(I)ZNP(I)0P(I)Y APPLES YOU WOULD HAVE SOLD IN"&Q"APPLESVILLE AND HOW MUCH MONEY YOUR"W!"APPLE STAND WOULD MAKE EACH DAY."&0T5:T10DX2(1)NP83XP925bS((P9P8)(1)P8)cS14S20S21610dZM24gS43.00 l-"APPLE) YOU WILL PROBABLY SELL MANY"3]"APPLES, BUT YOU WILL NOT MAKE MUCH"c"MONEY. THE BEST SELLING PRICE WILL":"PROBABLE BE SOMEWHERE IN BETWEEN.""YOU SET THE PRICE AND I WILL TELL YOU"  "HOW MAN 86" A HIGH PRICE (SUCH AS 40 CENTS PER"<h"APPLE) WILL GIVE YOU A LOT OF MONEY "n"FOR EACH APPLE, BUT YOU PROBABLY""WILL NOT SELL VERY MANY APPLES."35000:" AT A LOW PRICE (SUCH AS 1 CENT PER""SET UP A STAND TO SELL APPLES. YOU", FX J"HAVE SEVERAL GOOD APPLE TREES SO YOU"^ K T"DON'T HAVE TO WORRY ABOUT RUNNING OUT." U Y"YOUR JOB IN THIS GAME IS TO FIND THE" Z ^"BEST PRICE TO CHARGE FOR YOUR APPLES." h35000::868:"INSTRUCTIONS (YES OR NO) ?";A$:A$(A$,1):A$"Y"A$"N"260[ :A$"N"560b "3 ,"THIS IS A COMPUTER GAME ABOUT SELLING" - 6"APPLES. IMAGINE YOU ARE LIVING IN A " 7 @"TOWN NAMED 'APPLESVILLE' AND YOU HAVE" A& E" SERIES AND WILL HELPC STUDENTS IN RUNNING LATER SIMULATIONS.Z LNGTH(X)((X))w P(20),N(20),I(20),M(20) :::255 3:9:"WELCOME TO APPLESVILLE" 7:868:"WHAT IS YOUR NAME? ";N$:N$""240I 11:"HI, ";N$;". DO YOU NEED"S. THE MAIN EMPHASIS OFV THIS PROGRAM IS TO LET STUDENTS INVESTIGATE THE EFFECTS THAT A CHANGING PRICE HAS ON THE NUMBER SOLD AND INCOME OF A SMALL APPLE STAND. THIS PROGRAM IS INTENDED TO BE THE INTRODUCTORY PROGRAM IN THE "SELL OF A 4 PROGRAM "SELL" SERIES FOR ELEMENTARYd n STUDENTS DEVELOPED BY BOB JAMISON, ALEXANDRIA,MN. x FOR MECC, UNDER THE MECC-UNIVAC MINI-GRANT PROGRAM. THIS IS AN ECONOMICS SIMULATION WHERE STUDENTS LEARN  TO MANAGE AN IMAGINERY BUSINES PROGRAM: SELLA6 LAST UPDATE: 7/8/80<Y COPYRIGHT MECC 1979q SELLA 8/7/79 FP AUTHOR: BOB JAMISON( ASSOCIATED PROGRAMS AND FILES: NONE2 DOCUMENTATION AVAILABLE FROM MECC UNDER NAME: SELL, d PROGRAM 1              02600 1:18D "COMPANY ";J;" YOU RAN OUT OF CASH. A BANK":s "LOANED YOU THE MONEY BUT THEY CHARGED": "YOU $";(V(J)1000)100;" INTEREST." 34,17:7000:( C(J)(C(J))< E(5)002680P W(J)0d 02720x T(1)T(2)0004860J12(D(J)I(J)023607 T(J)D(J)B$ 02380Q8 T(J)I(J)cL T(J)(T(J))|` C(J)C(J)T(J)P(J)t I(J)I(J)T(J) J J12 V(J)(K3C(J)100)100 C(J)C(J)RI(J)UK3C(J)((C(J))(C(J))2)2 C(J)0W(J)0D(J)0 T(J)06B(J)UI(J)C(J)EA202040P04460WJ] h QQ1u*34,17:4A202140H05100\03300p04320 COMPUTE DEMANDJ12D(J)(1E(5)).5(K22V(J)D1)(P(J)50)NJSTART IN QUARTER ";Q;" OR"=13:"QUARTER ";Q1;"?";:868N40000:Q1ZNfQ1QQ1Q11490qJ12y:"INPUT COMPANY ";J;"'S PRICE IN":"QUARTER ";Q1;"?";40000:P(J)ZN,J@0A21900X4320lJ12(H$,1,1)"Y"01350n6x"WAS IT A"::" 1) PRICE FREEZE,"::" 2) TRANSPORT STRIKE, OR"::" 3) PRODUCT STRIKE":868:"(ENTER 1, 2, OR 3) ?";:40000:A2ZN:Z21Z22Z231390E(A2)1A210160011"DID FREEZE PE YOUR INVENTORY FROM QUARTER ";Q;"?";:868@40000:I(J)ZNRI(J)01315eJ1Ģ14:1280x J2Ģ22:1280#:(J2<"DID A WAGE-PRICE FREEZE, OR A STRIKE"F3:"START LAST QUARTER";:868PH$Z(H$,1)"N"1600d40000:QZN"Q1Ģ1:1140*:i"THE UNIT PRODUCTION COST LAST QUARTER"::"WAS ?";:868y40000:UZNU1Ģ4:1180:J12"COMPANY ";J;" TYPE YOUR CASH FROM"::"QUARTER ";Q;"?";40000:C(J)ZN:-"TYELL"&:"25 BICYCLES PER QUARTER.".14~"ARE YOU"::" 1) BEGINNING THE GAME, OR"::" 2) CONTINUING A GAME":868:"(ENTER 1 OR 2) ?";:40000:AZN:A1A21030`A101600et"THE LAST QUARTER YOU COMPLETED WAS?";:868FIRST COMPANY TO GET ASSETS OF":B"$12000 WINS THE GAME."::N7000:|"AS A GUIDE FOR YOU, A SURVEY IN YOUR":"TOWN LAST YEAR INDICATED THAT WITH NO":"ADVERTISING AND A SELLING PRICE OF":"$50 PER BICYCLE, A COMPANY WOULD SN COST"::"OF $250 DOLLARS PER QUARTER."5 47000:< >6c H"EACH QUARTER YOU MUST DECIDE:": \" 1) HOW MANY BICYCLES TO MAKE": p" 2) HOW MUCH TO SPEND FOR ADVERTISING" "AND 3) WHAT PRICE TO CHARGE FOR BICYCLES" :!"THE "THERE IS A 5% INTEREST CHARGE IF YOU RUN"[ "OUT OF CASH AND HAVE TO BORROW MONEY."c : "THERE IS A 5% WAREHOUSE CHARGE ON THE ": "VALUE OF YOUR INVENTORY AT THE END OF": "EACH QUARTER." %) *:"THERE IS A FIXED PRODUCTIO:"THIS IS A SIMULATION FOR TWO PEOPLE."::"EACH ONE OF YOU IS THE MANAGER OF A"l D:"BICYCLE COMPANY."v 7000 "AT THE BEGINNING OF THE SIMULATION EACH": "COMPANY HAS $5000 IN CASH AND 100": "BICYCLES IN THEIR WAREHOUSE." :.:420! h8:14:"B I C Y C L E": r10:16:"S A L E S"r K2,N,K,K3,C(1),C(2),I(1),I(2),F,U,R,G1,G2,G3,M1,K4{ Q0 Q$"Y"ī1040 20:868:"DO YOU WANT INSTRUCTIONS? ";H$:H$(H$,1):H$"Y"H$"N"450 H$"N"ė:14:1040 :8R S A DIRECT ADAPTATION OF THE PROGRAM "MARKET" AND HAS BEENv REVISED FOR EASIER USE BY ELEMENTARY SCHOOL STUDENTS Q$"" @R(X).01(100X.5) TC(2),I(2),T(2),A(2),L(2),D(2),P(2),V(2),W(2),B(2),E(5) YZM24 ^::255: cQ$"Y"Ģ14K0 PROGRAM: SELLB6 LAST UPDATE: 7/8/80<Yd COPYRIGHT MECC 1979qn SELLB 7/30/79 FPx AUTHOR: BOB JAMISON ASSOCIATED PROGRAMS AND FILES: NONE DOCUMENTATION AVAILABLE FROM MECC UNDER NAME: SELL: THIS I                           VZV61711:9:ZV:"**********************"::7:ZV110:9:"*";20);"*":8:12:"NUMBER TRIED...";N:::11:"NUMBER CORRECT"::12:"FIRST TRY......";S::12:"SECOND TRY.....";S135000:43000.G7(A$)11:(A$,G7,1)"A"($(Z);N$;"!":35000'P KEEPING SCORE6ZT1SS1GdT2S1S11UnQN1440_x1010 GIVES CORRECT ANSWER AFTER TWO TRIES:"THE CAPITAL OF ";S$(P(Q))::" IS ";C$(P(Q));"."35000:1390 THIS GIVES THE STUDENT HIS SCORE.":35000:13600 ROUTING IF WRONG RESPONSE\ :868:"NO, THE CAPITAL OF ";S$(P(Q))v :"IS NOT ";A$;".":T21420"TRY AGAIN.":(10802 IF STUDENT GIVES CORRECT ANSWER<Z(5(1)1)F958::20((R$(Z)N$)2):R35000:1220TT1-A$C$(P(Q))1330aA1(A$):(A$,A,(CC$(P(Q))))CC$(P(Q))1273nA:1290958::"THAT'S CLOSE, ";N$;"; HOWEVER,":"THE EXACT ANSWER IS ";C$(P(Q));"."::"THE CAPITAL OF ";S$(P(Q))::" IS ";C$(P(Q));"L OF ";A$;".":~T212401"TRY AGAIN.":;1110MZ(5(1)1)W958:20((R$(Z)N$)2):R$(Z);N$;"!"35000T1SS1T2S1S11QN14401010:C$(P(Q));" IS THE CAPITAL"::" OF ";S$(P(Q));"." ):(A$,A,(SC$(P(Q))))SC$(P(Q))11333lA:1140cm958::"THAT'S CLOSE, ";N$;"; HOWEVER,":n"THE EXACT ANSWER IS ";S$(P(Q));"."::oC$(P(Q));" IS THE CAPITAL"::" OF ";S$(P(Q));".":1192t:868:"NO, ";C$(P(Q))::"IS NOT THE CAPITA80.X22L121110J84:"THE CAPITAL OF ";S$(P(Q))::" IS ";:868^BA$:A$""1080iG12000yL958:1260V4:C$(P(Q));" IS THE CAPITAL"::" OF ";:868:A$[A$""1110]12000`958:TT1jA$S$(P(Q))1180&kA1(A$(50(1)1):W1950M EXCLUDING REPITITIONS OF THE SAME NUMBER ZQ1W1jJP(Q)770qQ}P(W)JW ASKING THE QUESTIONS0:QSQQ1T0X231060L1(2(1)1)$X21L1110ER FROM 1 TO ";N8:5305 WASTING A RANDOM NUMBERAX9(1)LX(1)WW1NkJ(50(1)1)P800,820,840,860,880,890:900 J(6(1)1):4J(7(1)7):HJ(11(1)14):\J(13(1)25):pJ(13(1)38):zJ 5 3:"HOW MANY QUESTIONS DO YOU WANT ";:868N 40000:NZN:N1530T m 0P6N50N850:710v :N80 DP1N6N86:710 NP2N7N87:710 XP3N11N811:710 b(P4P5)N13N813:710 7405:"PLEASE USE A NUMB1) NAME THE CAPITAL OF A GIVEN STATE,"X :" 2) NAME THE STATE FOR A GIVEN CAPITAL,"u " 3) DO SOME OF EACH?" :"(ENTER 1, 2, OR 3) ";:40000:X2ZN  X21X22X23460   DETERMINING THE NUMBER OF QUESTIONS TO BE ASKED40000:PZN# P1P6P(P)4203 :QQ1460? I150P S$(I),C$(I)~ (C$(I),1)" "C$(I)(C$(I),(C$(I))1) (S$(I),1)" "S$(I)(S$(I),(S$(I))1) I I150 SC$(I),CC$(I) I  "DO YOU WANT TO":& " PITALS, h"WOULD YOU LIKE TO BE TESTED ON"j r:" 1) NEW ENGLAND STATES,"::" 2) EASTERN STATES,": " 3) SOUTHERN STATES,"::" 4) CENTRAL STATES,"::" 5) WESTERN STATES, OR" :" 6) THE WHOLE COUNTRY?" 15:"(ENTER 1-6) ";:868:T, "- S$(50),SC$(50),C$(50),CC$(50),P(50)A INSTRUCTIONS 4:"THIS PROGRAM WILL TEST YOUR KNOWLEDGE OF":"THE STATES AND THEIR CAPITALS." 10:"WHAT IS YOUR FIRST NAME, PLEASE";:868 N$:N$""250 : ^ LOADING STATES AND CA2 COPYRIGHT MECC 19796< STATES 9/7/79 FPEF AUTHOR:qP ASSOCIATED PROGRAMS AND FILES: NONE|d22016::255:R$(5)ZM24 R$(2)"RIGHT ON, ":R$(4)"THAT'S IT, ":R$(5)"SUPER, ":R$(3)"CORRECT, ":R$(1)"THAT'S GREA             36,CH:868: D$(13)(4)(:F 10:"DO YOU WANT TO TRY"12:868:"AGAIN (YES OR NO) ?";R$:R$(R$,1):R$"Y"R$"N"43030 :R$"Y"Ĭ*(1023)123Ā4D$;"RUN HELLO" E MENU PROGRAM...":(4);"RUN HELLO" ZASE ENTER R";::" TO CONTINUE";:16384,128:16368,0:1:868:M@CH(36):CV(37)uA"";ZN$:(ZN$)(((ZN$)))40003B(ZN$)0ZN$"0"40006CZM:"THAT IS NOT A NUMBER - TRY AGAIN";:40010:40001FZM:868:CV1(CV23):ZN(ZN$):JCV1:'18,34,52,68,28,48,66,34,38,54,57,53,70S' 106,84,86,108,80,97,96,96,77,87,118' 27,37,35,42,42,53,53,65,68,59,44,46,60.G7(I$)11:(I$,G7,1)"A"(I$,G7,1)"Z"G2G7:G71.:I$(I$,G2):716368,0:24:7:"PRESS ";::"SPACE BALAWARE0t' 58,50,42,74,60,96,102,82,108,76,102j~' 132,132,134,138,156,160,164,173,194,178,191,205,198' 136,144,166,168,194,181,194,210,225,221,222' 194,189,184,189,176,172,183,162,173,178,192,188,182' 10,28,66,30,54,18,40,58,64,86,88)ANSAS,LOUISIANA,TENNESSEEJL' MISSISSIPPI,ALABAMA,GEORGIA,NORTH CAROLINAgV' SOUTH CAROLINA,FLORIDA`' MAINE,NEW HAMPSHIRE,VERMONT,MASSACHUSETTS,NEW YORKj' PENNSYLVANIA,NEW JERSEY,WEST VIRGINIA,VIRGINIA,MARYLANDl' RHODE ISLAND,CONNECTICUT,DE WASHINGTON,OREGON,CALIFORNIA,IDAHO,NEVADAa' MONTANA,WYOMING,UTAH,COLORADO,ARIZONA,NEW MEXICO$' NORTH DAKOTA,SOUTH DAKOTA,NEBRASKA,KANSAS.' MINNESOTA,IOWA,MISSOURI,WISCONSIN,MICHIGAN,ILLINOIS8' INDIANA,OHIO,KENTUCKYB' TEXAS,OKLAHOMA,ARK*****"::7:ZV110:9:"*";20);"*":l8:12:"NUMBER TRIED...";F:::11:"NUMBER CORRECT"::12:"FIRST TRY......";I3::12:"SECOND TRY.....";I4v35000:43000:22:14:"***CORRECT***":R0I3I31R1I4I4135000::585*'ANSWER IS: ";A$(ST) D35000:NI0:A1,B1A12,B1A1,B12A12,B1A1,B12NN%(1,ST)N%(1,ST):W5ST45QFđ:3:WA,B:WA1,B1OW5ST45Ē0:Q715:134Q7,114Q7134Q7,113Q7:Q7PQX:'bZV61711:9:ZV:"*****************B:WA1,B1AW5Ē0:Q715:134Q7,114Q7134Q7,113Q7:Q7LQ1FuR0:ST((1)N2N1):N%(1,ST)0520} 1012000I$A$(ST)700RR1:R1560&::868:I$;" IS NOT CORRECT.":"TRY AGAIN.";:5250:21:"THE CORRECT B1$"E"A100:B5:S2:W5:N136:N213d :868:18:"THERE ARE ";N2;" STATES IN THAT REGION.": "HOW MANY STATES DO YOU WANT TO TRY?";:868 40000:FZN F1FN2ĺ:"TRY A NUMBER IN THE RANGE OF 1 TO ";N2;".":450 ::3:S WA,B0B5B(B)395J :"THAT ISN'T ONE OF THE CHOICES. TRY AGAIN":384Y I30:I4I3 B1$("WMSE",B,1):B1$"W"A200:B20:S1:W2:N11:N211:450 B1$"M"A130:B10:S2:W3:N112:N213:450 B1$"S"A110:B0:S1:W4:N125:N211:450' (48),N%(2,48)# A148:A$(A):AE A12:B148:N%(A,B):B:A |3:"DO YOU WANT A DRILL ON THE":6:" 1) WESTERN,"::" 2) MIDWESTERN,"::" 3) SOUTHERN, OR"::" 4) EASTERN" 15:"PART OF THE UNITED STATES? ";:868:40000:BZN )01400 dC124C18C132(C165C190)ı\ xI$I$(C1):(C1);:C18(I$)1ġ:20 |C18ĺ" ";(8);:I$(I$,1,(I$)2) }C124ġ:20 : (4);"NOMON C,I,O"::(4);"BLOAD USMAP1,A$4000" ZM24 :232,0:233,64 A$ IS THIS?";:I$"" 5C (A1,B1A12,B1A1,B12A12,B1A1,B12b -E120:(16384)127İ90i /Ep 20 7A1,B1A12,B1A1,B12A12,B1A1,B12 <E110:(16384)127İ90 FE P30 ZC1(16384)128:16368,0:Q9(0) _C113(I$ COPYRIGHT MECC 19797 STATES2 7/16/79 FPP AUTHOR: MECC STAFFm ASSOCIATED FILE:USMAP10:::255::150 * FLASHING CURSER AND INPUT SUBROUTINE!! A1S(N%(1,ST)150)A:B1S(N%(2,ST)10)B 1:21:868:"WHAT STATE      L GOODDNOW IS THE TIME FOR ALL GOONOW IS THE TIME FOR ALL GOOEENOW IS E FOR ALL GOOD MENNNOW IS THE TIME FOR ALL GOOD MEENOW IS THE TIME FOR ALL GOOD MMNOW IS THE TIME FOR ALL GOOD NOW IS THE TIME FOR ALL GOOD ENOW IS THE TIME FOR ALL GOOD ENNNOW IS THE TIME FOR ALL GOOD EENOW IS THE TIME FOR ALL GOOD NOW IS THE TIME FOR AL HLHLL RQ H xI !M N IL N KLIH xQR xQH xQH xQR xQH xQK$#L2N NONOW IS THE TIME FOR ALL GOOD MEN TONOW IS THE TIME FOR ALLNNNOW IS THE TIME FOR ALL GOOD MENNOW IS THE TIME FOR ALL GOOD MENNOW IS THE TIM$',$--576567>'?/66.-$'$?66.-6>6''''?<<'??7>'$<>?><7>>>676655-%-%-<,$,%%%-%,55-...6>7--6?7?7??>?7??>?7???'%%%%%=?<$$$%%%%%$<$$'$-%%<$-,-%-$,,,,$---,,-,%66666>76.-,%--.%$?$7?>?'$$$,$$....656&,,$%,,,,%%%'''''''?>7767>6-.%%,'$-56??,$$ے5666666&$$$LIIIIII-----,----,---%,,,,%%%-$-????/-%-,--%--5-5-.$????>???'????75>?>??$$$<$$'$$$$$,,------,----.55.5.555..<$<$<$J15>6.66?JIQQ*%%<$-,-%-$,,$-$---.65.6566.6??<'??7??>?>??'=776565.6%--%--,--,-,%$6&--%--6---%--55555-66655555555..565--$$$%$<<<<$$'$<<<<<<<<$$$$%$%%%-,,$%%%%%,,,,,,<$-$???>??7????7????????7???>???7????>???????$?76------56666.55.--6-%--5-%---.-566666666666NIIIIIII $?$$,$%????7?'$%,,$''?IIII!'$$%%%%$%%,,6-56.56ۛ$$$$'$$$<$?7676666>6666>66>??????666..66766??$<'$$$$-'$$<>6$-$$??>?',,,--%,-??''?7'??????????'???????$LIIIIIIIII166?...6666.----------$''''?$$',%$$JI.6.-----5555%$6.,---,%----ۓ66.6656.5.---???'<77?6>?>>?7?7>7776$<'$?LII $$$$<$$$$$,,>?7557776....--.-MIIII6>676>6676677666.-.--.--.--5----5----.-----ۛ$$$-$-$$'?'%-6>$4-56'666666667666----6666666666.-5----5---------56-------%----%--%----,---,--,,-,,$-<<<<<%%%,,,,,<$$$$$$$?>>>6????'$-,$$<>????66>6676666>6666766767666&$$$<$%%<$%$-<$$<<<$''''<<<$'<<<<<$'',$,$,$%$$$<=?>>>'$%$<'?76677667676757777666557777775...7777....765566?65665566....-555555-66.--.--55555-55-...---.----.%,----,--5-----%$$%$$$$%$$$$,$,--$$$$$$$$$$<'???'%$$,$$$$$$$$,$$$$$,$$$     ox<@}~??|_Oox?g}xGo?}w[_o7wo?go?~o@|?p>{m?_}v??ppx?X_~zoo>{k/?{~?~>{o7owo{~~~ox_8onV;W[]_]nw_ox?|g?~xc?oox p|ao?lxg}sO{_w_wv^F_w~~Go88`}~?~~gox?O}x~o?}w[._0{o?|p{{@|~?~~1wvwg?o@q?|C>{m?_}~C?@~`?@_O~zog>{K/{~??~>{o7_ow[o{~}gxs_X_nfWO{]_>nwOo?~?o?x?ocO}{o_wvv_7_wv^_?wv~_w~wvvw>w~O0?~}~?_qwlw`\o>~`ox?a@}xx<Awx6_o7`o?8o{;?o{~_}~.wvsw?o@G?xx>{m?_mv???`@?`@?W~v[k>w-w.{~?> x`\o{~Cwpg_X_nvW_{]_~nwoo|?o?x?o~_}?@{?|c@ooo}}`|a?l?~gOwwv_W_7v^_vf~_/vn~f~_ |~?_?|k{o;_ow[o>>_ox? }xco?}7[:_o7_W?X_{{?ww~_>wv{w?o@?x?~>{m?_Uv?G_@X~nx1{~?G wpO_X_lfW_{_>fwooq?o         )002600 1:18G "COMPANY ";J;" YOU RAN OUT OF CASH. A BANK":v "LOANED YOU THE MONEY BUT THEY CHARGED": "YOU $";(V(J)1000)100;" INTEREST." 34,17:7000:( C(J)(C(J))< E(5)002680P W(J)0d 02720x T(1)T(2) 04860J12+D(J)I(J)02360: T(J)D(J)E$ 02380T8 T(J)I(J)fL T(J)(T(J))` C(J)C(J)T(J)P(J)t I(J)I(J)T(J) J J12 V(J)(K3C(J)100)100 C(J)C(J)RI(J)UK3C(J)((C(J))(C(J))2)2  C(J W(J)0D(J)0#T(J)09B(J)UI(J)C(J)HA202040S04460ZJ` k QQ1x*34,17:4A202140H05100\03300p04320 COMPUTE DEMANDJ12D(J)(1E(5)).5(K22V(J)D1)(P(J)50)NJ QUARTER ";Q;" OR"3:"QUARTER ";Q1;"?";:868D40000:Q1ZN\Q1QQ1Q11490i936:3tJ12|:"INPUT COMPANY ";J;"'S PRICE IN":"QUARTER ";Q1;"?";40000:P(J)ZN,J@0A21900X4320lJ12(H$,1,1)"Y"01350n6}x"WAS IT A"::" 1) PRICE FREEZE,"::" 2) TRANSPORT STRIKE, OR"::" 3) PRODUCT STRIKE":868:"(ENTER 1, 2, OR 3) ?";:40000:A2ZN:A21A22A231390E(A2)1A2101600:"DID FREEZE START INTYPE YOUR INVENTORY FROM QUARTER ";Q;"?";:868B40000:I(J)ZNTI(J)01315gJ1Ģ14:1280z J2Ģ22:1280#:(J2<"DID A WAGE-PRICE FREEZE, OR A STRIKE"F3:"START LAST QUARTER";:868:H$Z(H$,1)"N"1600d6840000:QZN$Q1Ģ1:1140,:k"THE UNIT PRODUCTION COST LAST QUARTER"::"WAS ?";:868{40000:UZNU1Ģ4:1180:J12"COMPANY ";J;" TYPE YOUR CASH FROM"::"QUARTER ";Q;"?";40000:C(J)ZN:/" SELL"(:"25 BICYCLES PER QUARTER."014"ARE YOU"::" 1) BEGINNING THE GAME, OR"::" 2) CONTINUING A GAME":868:"(ENTER 1 OR 2) ?";:40000:AZN:A1A21030`A101600et"THE LAST QUARTER YOU COMPLETED WAS?";:8E FIRST COMPANY TO GET ASSETS OF":D"$12000 WINS THE GAME."::P7000:~"AS A GUIDE FOR YOU, A SURVEY IN YOUR":"TOWN LAST YEAR INDICATED THAT WITH NO":"ADVERTISING AND A SELLING PRICE OF":"$50 PER BICYCLE, A COMPANY WOULDION COST"::"OF $250 DOLLARS PER QUARTER."7 47000:> >6e H"EACH QUARTER YOU MUST DECIDE:": \" 1) HOW MANY BICYCLES TO MAKE": p" 2) HOW MUCH TO SPEND FOR ADVERTISING" "AND 3) WHAT PRICE TO CHARGE FOR BICYCLES" :#"TH0 "THERE IS A 5% INTEREST CHARGE IF YOU RUN"] "OUT OF CASH AND HAVE TO BORROW MONEY."e : "THERE IS A 5% WAREHOUSE CHARGE ON THE ": "VALUE OF YOUR INVENTORY AT THE END OF": "EACH QUARTER." %+ *:"THERE IS A FIXED PRODUCTT :"THIS IS A SIMULATION FOR TWO PEOPLE."::"EACH ONE OF YOU IS THE MANAGER OF A"n D:"BICYCLE COMPANY."x 7000 "AT THE BEGINNING OF THE SIMULATION EACH": "COMPANY HAS $5000 IN CASH AND 100": "BICYCLES IN THEIR WAREHOUSE." :14:420# h8:14:"B I C Y C L E"< r10:16:"S A L E S"t K2,N,K,K3,C(1),C(2),I(1),I(2),F,U,R,G1,G2,G3,M1,K4} Q0 Q$"Y"ī1040 20:868:"DO YOU WANT INSTRUCTIONS? ";H$:H$(H$,1):H$"Y"H$"N"450 H$"N"ė:14:1040 :8 IS A DIRECT ADAPTATION OF THE PROGRAM "MARKET" AND HAS BEENx REVISED FOR EASIER USE BY ELEMENTARY SCHOOL STUDENTS Q$"" @R(X).01(100X.5) TC(2),I(2),T(2),A(2),L(2),D(2),P(2),V(2),W(2),B(2),E(5) YZM24 ^::255: cQ$"Y"ĢN0 PROGRAM: SELLB8 LAST UPDATE: 8/26/80>[d COPYRIGHT MECC 1979sn SELLB 7/30/79 FPx AUTHOR: BOB JAMISON ASSOCIATED PROGRAMS AND FILES: NONE DOCUMENTATION AVAILABLE FROM MECC UNDER NAME: SELL< THIS