' +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*`ō΍ԍōōԍЍɍٍύ΍ōҍōȍōӍЍčҍҍӍӍӍٍӍōԍԍЍōԍٍˍӍٍ̍ōԍō΍ō(A$,I,1)"."II1=tA999999ĭA9999999B$(A$,7):l~A0B$(A$,2)"."(A$,3,1)"E"(I2):B$(A$,1)"."(A$,2,2)"E"(I1):A06070 A.01B$"0.0":2 A999B$"***":E B$((A),3):[ A.1B$"0.0":q A99B$"-**": B$((A),3): 8A$(A) B(A$)7B$A$: L(A$,(A$)3,1)"E"B$(A$,3)(A$,4): VI1(A$) `(A$,I,1)"."ĂIj1. "MARG. PROPENSITY=";MP;25);"ACCEL.="ACF OG0:OII0:PD0:P1L $U APD_ 6000l B$;5); AOG:6200:B$;13); AOAI:6000:B$;17); AOII:6200:B$;25); AOTNP:6200:B$;33); APR:6200:B$ X(0)  pA  X(0) 3008 "ENTER ACCELERATOR, ";ACO AC0ĺ"RE";:1000t " MARGINAL PROPENSITY ";MP MP1MP0ĺ"REENTER";:1010 " AND AUTONOMOUS INVESTMENT (INCREASE OVER THE BASE LEVEL) ";OAI OAI0ĺ"REENTER":1020 GE PERIOD INCREMENT,ESC TO END ";:A$8 A$" "ė:300f A$"P"ĺ:"PERIOD INCREMENT = ";P::300p :10 "PUSH 'ESC' TO STOP,SPACE BAR TO ENTER NEW MARG. PROPENSITY,ACCEL. AND AUTON. INVESTMENT. " A$ (A$)27ĉ::  100034,7  ,P1P1# 6L115. @J1P? BOII0OII0N DOG0OG0a FOTNP0OTNP0p HPR0PR0| JPDPD1 TOTNPOGOIIOAI ^PROTNPMP hJPİ5000 rOII(PROG)AC |OGPR J,L% "PRESS SPACE BAR TO CONTINUE,P TO CHANdn1000x2;" P PRODUCERS' OUTLAYS"[" E"10)"ON"17)"RECEIPTS"v" R"9)"AUTON"10)"*"" I ON OMOUS ON TOTAL *"" O CONSUMER * INDUCED NATIONAL *"" D GOODS INVESTMENT PRODUCT *"      ONIONYb KNIGHT,INFLUENZA, GUEST,FATAL,EXCELLENT,GHOST,BUDGET,ECCENTRIC,FATIGUE,ZYGOTErbp...ORIGINAL PROGRAMbz...R.J.HUGGETTb...COPYRIGHT 1977,1980RANT,REIGN,UNIQUE,HYMN,RESIGN,VEXha INK,RHUBARB,VIGIL,KNACK,RHYTHM, WALK, LYNCH,SCHOLAR,WAX,MYSTERY,a SCYTHE, WEIGHT, MYTH, SIGNAL, WRECK,YACHT, ZEBRA,ZINC,MAYOR,VEHICLEb ZERO,UGLY,VEGETABLE, TYPICAL,SPINACH,SCRATCH,SMUDGE,SYMPATHETIC,LUXURY,, DAUGHTER, PNEUMATIC, SYMBOL, DRINK, PREJUDICE, TAX, DRY, PRIZE, PRIZE, TEXTILE`DYNASTY,PRY,THANK,DESK, PYJAMAS, THIGH, DUNGEON, QUACK, TIGHT, EDGE` QUEUE,TORQUE,EIGHT,QUICK,TOXIC,GAZE,RACQUET,TRY,GYPSY,RAKE!a TWILIGHT,HAZARD,RAZOR,UGLY, HYDGLE,GOVERNMENT,SAFETY,INVISIBLE,WRESTLEK_ DATA LIST FOR DIFFICULT WORDS_ LIQUID, NYLON, SKELETON,ABLAZE, OXYGEN,SNOOZE,BRISK, PERPLEX, SPAGHETTI, CAPSIZE_ PHARYNX, SQUEEZE, CRANK, PHYSIQUE, SQUIRM, CRYPT, PITY, STICKY, CYST, PLANKP` STYLENT,DRAWER,SYMPATHY,ENGINE,PERSUADE{^j EXAMPLE,TELEPHONE,ESCAPE,FEMALE,TREASURE,EXCELLENT,PLOUGH,GARAGE,UNIVERSE,COMPUTER^t EXCEPT,PRACTISE,HONEST,VEGETABLE,FAMILIAR,QUIET,HUNGRY,WASTEFUL,RECEIPT,ORPHAN'_~ INJURY,WRITING,FULFIL,REGARD,IMAGINE,WRIGIT,LIBRARY,BEYOND,PLEASANTu]L BREAKFAST,MINUTE,BRAIN,PHYSICAL,CAUGHT,MYSTERY,CATERPILLAR,REQUIRE,CLOTHES,NECESSARY]V CHOIR,SANDWICH,COMING,NEIGHBOUR,CONCERT,SATISFY,DECISION,OBLIGE,DESIGN,SCIENCE"^` DESCEND,PARENT,CURIOUS,SQUEEZE,DEVELOP,PARLIAMET,JUICE,ACROSS,HEIGHTk\. SURPRISE,KINGDOM,ALOUD,HOPING,THROUGH,KITCHEN,ALREADY,HOSPITAL,UMBRELLA,LIBRARY\8 AMOUNT,INVITATION,WHISPER,LIQUID,BEAUTIFUL,JEWEL,WOMEN,MAGAZINE,BELEIVE,JOURNEY]B WRITING,MIDNIGHT,BICYCLE,KNOWLEDGE,AVERAGE,NATURAL,BISCUECT,JUMP,PENCIL,STRONG,EASY,KICK,PICTURE,THANKp[ FACE, KITTEN, PLANT,TRICK,FIRST,KNEE,PLEASE,VISIT,FAIR,LEAF[ PRESENT,WIPE,FEAR,LITTLE,QUICK,WRONG,FRAME,LUNCH,QUIET,YESTERDAY[# AVERAGE LIST\$ ACCEPT,GUEST,SKILFUL,KETTLE,ACHE,HALVES,STRAIGHE,HAVE,NECK,SWIM,CAME,SHIRT,HOME,NAMEhZ COMING,HEAD,NIGHT,SISTER,CHASE,HORSE,NUMBER,SMALL,CLIMB,HIDEZ OPEN,SNAKE,CLOSE,HEAT,OCEAN,SIZE,DRAW,HUNGRY,PICK,SKINZ DIRTY, INSIDE,PLAY,STORY,DANGER,ISLAND,PUSH,SUGAR,EARTH,JELLY.[ PAPER,SPORT, EXPCTANGLE, TRIANGLE!Y EASY LISTeY AFTER,FRIEND, LARGE, RING,ALMOST,GIRL,LISTEN,ROAD,BACK,GARDENY,LOSE,READ,BEACH,GOING,MILK,REMEMBER,BEST,FIGHT,MOTHER,RIGHTY BEHIND,GIANT,MATE,SCHOOL,BUSH,GREAT,MORNING,SLEEP,BUSY,GROUND%Z MONEY,SONG,CAGSION, INTEREST, ANNUAL, PREMIUM, FORMULA,SUBSTITUTE, VALUE, BISECTORX MEDIAN, MEAN, FREQUENCY,STANDARD, VOLUME, HYPOTENUSE, MEASUREMENT, APPROXIMATE, CORRECT,NEARESTY INDICES,EVALUATE,COINTERIOR,VERTICALLY, BISECTOR, AVERAGE, DISTANCE, SQUARE, RE SOLUTION,EQUATION,RATIO|W SEGMENT,RADIUS,SYMMETRY, PERPENDICULAR,CHORD, ARC,REFLECTION,ENLARGEMENT,EQUIDISTANT,CIRCULARW DIVISION,MULTIPLY,OPERATION,FACTOR, ISOSCELES, QUADRILATERAL, ACUTE, OBTUSE, REFLEX, INDEXDX PERCENTAGE, DISCOUNT, COMMISISM,SPHERE,SECTOR,EQUILATERAL,SCALENE,RESPECTIVELY,CONGRUENT,INEQUATION,GRAPH,DIAMETERVz NEGATIVE,SIGN,PRONUMERAL,FRACTION,DECIMAL,PRODUCT,COMPLEMENT,SUPPLEMENT,REVOLUTION,MULTIPLICATIONWREPRESENT,AXIS,ARRANGE,SENTENCE, STATEMENT, ROTATION, FALSE,;"BLOAD SHAPES"Uh10000U[ MATHEMATICS LISTU\ MATHEMATICS,EIGHT,NINETY,HUNDREDTH, DIRECTED,DIRECTION,ADDITION,SUBTRACTION,OPPOSITE,POSITIVEUf TRANSLATION,CORRESPOND,COMPARE,QUANTITY,HEIGHT,PERIMETER,CIRCUMFERENCE,PAIR,PARALLEL,SIMILARVVp PRS ...3"0T" DIFFICULT WORDS ...4"ST:"ENTER YOUR CHOICE ";CHOICEfT CHOICE14130TCHOICE2CHOICE3CHOICE44120T4010TA1(CHOICE1)100:Z$:AT"A1100:DICT$(A):AT6RDM((8)100)1T@D$"": CTRL DUJD$ W"5S"WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW"WS13:"TRY TO GUESS THE WORD "uS"(ONE LETTER AT A TIME)"S"FROM THE LIST OF YOUR CHOICE":S700S" MATHEMATICS WORDS ...1"S" EASY WORDS ...2" T" AVERAGE WORDR::700R"THE END":1R 3:31112,120:GRDICT$(100),W(20)OR:R3:"WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW":"W W"S"W *** WATER WORDS *** W":"W QTA12000:AQ^:1:0:3lQh15,100:1415,100:1525,100:2035,100:845,100:555,100:1865,100Qr785,100:195,100:13105,100:5115,100Q|25135,100:27145,100:14155,100QA(16384):A1271670Q16368,0QA2171000 SSGUESS1P200&PGUESS1115607PA11000:AIP0:150:1100ZP0:150:100kPA1(WRD$)PW(A)((WRD$,A,1))64PAP 3:100P"A17P'3:650:800P,0:650P1AP61630P@ HERE IF WORD COMPLETEPJ3:170:750$(WRD$,A,1)1360(O<Z9$Z9$(Z$,A,1)2OF1380AOPZ9$Z9$X$SOUW(A)(X$)64^OZFLAG1eOdApOnZ$Z9$OxFLAG01500O3O100O120OA11200:AO0:120OZ$WRD$1600O1100O HERE IF WRONGO3:100:150 PGUEE NFLAG0NA1(CHECK$):NX$(CHECK$,A,1)1240DN1260TN3:100:70kNFLAG1:A(CHECK$)rNANFLAG01300NA11500:AN0:70N 1100N TESTING THE GUESSNCHECK$CHECK$X$NZ9$"":FLAG0N(A1(WRD$)O2X3:50SMoZ915:Z(16336)(16336)(16336)(16336)(16336)(16336):Z9pMtA(16384):A1271140~M~16368,0MA193A2181140MX$(A128)MZ9(X$)64:3:20M0:50M20M100N CHECK IF THIS HAS BEEN TRIED BEFOR4:770L4A9:*L HERE FOR THE STARTGLRDMRDM1:RDM100RDM1wLWRD$DICT$(RDM):Z$"":CHECK$"":GUESS0:Z0LA1(WRD$)LZ$Z$"-"LW(A)27LAL$232,0:233,96L.L81:0L=3:50LB100LL GUESSING ROUTINE MjP,135:D,128:T:P,127:D,128:TaK P,100:D,192:T:P,113:D,64:T:D,128:T:P,127:D,128:TKD,128:T:P,135:D,128:T:P,150:D,128:T:P,135:D,128:TKP,127:D,255:T:P,168:D,255:T:P,255:D,255:T:K A92002020L*768,A9:769,P768:D769:T770IJP,168:D,128:T:P,150:D,128:T:P,135:D,128:ToJP,127:D,255:T:P,168:D,255:TJP,1:D,128:T:P,127:D,128:T:P,135:D,128:T:P,127:D,128:TJP,113:D,255:T:P,150:D,255:T!KP,1:D,128:T:P,150:D,128:T:,127:D,96:T:P,113:D,32:T:P,127:D,96:T:P,135:D,32:T:P,142:D,192:T:P,150:D,64:TIP,168:D,96:T:P,150:D,32:T:P,142:D,96:T:P,127:D,32:T:P,113:D,128:T:P,100:D,128:TIP,95:D,128:T:P,127:D,128:T:P,190:D,255:T:J,150:D,128:TeHP,168:D,96:T:P,150:D,32:T:P,179:D,128:T:P,168:D,128:T:P,100:D,128:THP,113:D,255:T:D,128:T:P,100:D,128:THP,95:D,96:T:P,113:D,32:T:P,142:D,96:T:P,168:D,32:T:P,100:D,192:T:P,113:D,64:T^IP185:12100,185:1125,185:19150,185:8175,185:IGP768:D769:T770GP,190:D,128:T:D,96:T:P,168:D,32:T:P,150:D,96:T:P,127:D,32:T:P,100:D,128:THP,113:D,128:T:P,113:D,96:T:P,100:D,32:T:P,113:D,96:T:P,127:D,32:T:P6,77#F3:28140,120:29124,1174F31145,68:FF0:31145,68TFA5205jF3:31145A,68AzF28140,120F0:31145A,68AF&AF0A481084F:3:33168,AFD0:33168,AFNAFX3:33168,108Fb3G1950,185:1675,E^0:32126,113%Eh3:29124,1177Er32126,104:JE|0:32126,104]E3:29124,117nE32126,95:E0:32126,95E3:28140,120:29124,117E32126,86:E0:32126,86E3:28140,120:29124,117E32126,77:F0:321214200,185:19215,185DTDGUESS210,230,250,270,320,350,380,410,440,470,500fD28140,120:xD29124,117:D30170,120:DA41084D3:31A,120D"0:31A,120D,AD63:31112,120:D@0:31112,120DJ3:32126,113:,185:565,185:380,185:2095,185)CbC235,185:1820,185:1535,185:1450,185:765,185hCC35,185:1520,185:1435,185:750,185:1865,185:180,185:2095,185D21110,185:12125,185:1140,185:20155,185:9170,185:15185,185:115,185:5125,185:4135,185OBP20155,185:8165,185:9175,185:19185,185BU2205,185:5215,185:6225,185:15235,185:18245,185:5255,185BZBdA1(WRD$)BiW9W(A)BnW9A1010,25BsA:#Cx35,185:1520,185:1835,185:1850:2025,185:535,185:1845,185PA72565,185:1575,185:2185,185:1895,185A<7115,185:21125,185:5135,185:19145,185:19155,185AAAF255,185:1515,185:2125,185:845,185:155,185:2265,185:575,185BK2095,185:18105,185:9ţ"h@770,173:771,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240:780,9:781,202@782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96:791,0:792,0@26142@ 4000@Z9185,185: A255,185:1415,185                       :10:15:"I/O ERROR"::9:"PLEASE CHECK DISKETTE"a1L::9:"PRESS A KEY WHEN READY":A$::g1V1`MODIFIED BY I.WALSH & C.JACKSON AUGUST 1981@ ZX(W$(I))ZX(W$(I)) 0 I+0MMCT=0::12:1240K0EM(222)V0$""0.EM4ė:10::4:"PLEASE REMOVE WRITE PROTECT TAB"::14:"ON DISKETTE":366008EM9ė:10:13:"DISKETTE FULL"::5:"PLEASE INSERT ANOTHER DISKETTE":366041BPLEASE RE-TYPE WORD ";KN;" NOW ";:"";T$ :"IF THERE ARE NO CHANGES TO THESE WORDS, JUST PRESS 0 (ZERO) ANDEN WONDER.FILE"+,D D$;"WRITE WONDER.FILE"2,N MG,X I1M:W$(I):Ic,b D$;"CLOSE WONDER.FILE"n,l 216,0v,v 10, KKKK1, KK10MZPP1, , :, I951, QSKK10I, I10Ė2, QSMZĺQS;" - ";W$(QS), , I, 1 I9Ė4+ "-";T$;"-"++ (T$)MD3070P+ "THAT'S TOO LONG,I'M AFRAID."o+ "TRY ANOTHER ONE:":QQ1:+ IZ1I1:W$(IZ)T$Ă:3100+ "YOU'VE ENTERED THAT ONE ALREADY."+ "TRY ANOTHER:":QQ1:+ W$(I)T$+& +0 3610,: D$;"OP1):DR$(T$,((T$)J)):T$DL$(((T$,J,1))32)DR$:3000j* TE$T$T$"":"INPUT ERROR;RE-DO":QQ1:* J(T$)T$(T$,J1):3010* J1T$(T$,(T$)1):JJ1:3000* T$(T$,J1)(T$,(T$)J):JJ1* JJ1:J(T$)2900* I10Ė5+ J1.)T TE$(T$,J,1):TE$"A"TE$"Z"3000H)^ TE$"A"TE$"Z"2960`)h J1J(T$)2950)r J1DL$"":DR$(T$,((T$)J)):T$DL$((MID(T$,J,1))32)DR$:3000)| J(T$)DL$(T$,J1):DR$"":T$DL$(((T$,J,1))32)DR$:3000:* DL$(T$,JASE IN SIZE OF":9:"PUZZLE TO ALLOW FOR WORDS WHICH":9:"COULD NOT FIT IN)"( :5:"(N) DO A NEW PUZZLE, OR"::5:"(F) FINISH"( ::"WHICH (S, N OR F) ?";A$(" A$(A$,1):A$"S"3120(, A$"N"10(6 A$"F"2820(@ :"SEE YOU LATER":)J0ZJZP:ZH1)' AN1ĺ(PF):ZP0:2780<' ZJPLZP2780M' ZP0:(PF)S' e' ZP0ĺ(PF)t' D$;"PR#0"' PXĺ:7::"PRESS ANY KEY TO CONTINUE"::A$:M( :8:"WOULD YOU LIKE TO:"::5:"(S) DO SAME WORDS AGAIN":9:"(WITH, SAY, INCRE&P AN1ZPZP1&U AN26806&d W$(J);ZE);" ( ";K&f LX%(J)10ĺ" ";o&h LX%(J);" , ";:LY%(J)10ĺ" ";&j LY%(J);" ) "&n 2720&x W$(J);ZX(W$(J)));& ZNZN1& ZNZW2720& :ZN0:ZPZP1& ::& ZPZP2:ZN0 ' AN1ZH % ::>% PX0ĺ::7:"PRESS ANY KEY TO CONTINUE"::A$D% % "FIND THESE HIDDEN WORDS":" IN THE ABOVE PUZZLE."%( ANĺ" THE FIRST LETTER IS AT":ZE7);"( LINES DOWN , COLUMNS ACROSS )"%2 %< ZPZP6L%F J1M:(W$(J))027202W)2 $ (TW(XY$))2);XY$&$ E$ ANĺ(TW(XZ$))2);XZ$:b$ J1L:AN1K1ĺJ;"-";r$ T0ĺT);}$ K1W$ AN1K1ĺJ;"-";:D(36):J$(J):3(J$));$ "";$ A%(J,K)0ĺ". ";:2560$ (A%(J,K));" ";% ZEZX:ZE14ZE14,I,1)3# TL$"A"TL$"Z"ZC%(NC)(TL$):NCNC1:# I@# K#$ I1LV#. J1Wk#8 A%(I,J)02390#B NQNCA%(I,J)(A(26)64):2390#L A%(I,J)ZC%(NQ):NQNQ1#V :#` #j PX1ĺD$;"PR#1"#t #~ C1N:2440::2790# $ T(TWMANY CHARACTERS"::1940S""NO. OF CHARACTERS LEFT IN MESSAGE";::" = ";C1;" "`"1:40)"8::"MESSAGE";::" ";:MB$;:MA$;"2050"::12"14::"PLEASE WAIT"""ZQ2290"ZC%((MS$)):ZQ1"I1(MS$)#TL$(MS$32MA$(MA$,(MA$)1):8:8:232);:240)::2160!f(CH$)8(MS$)1(MA$)1MA$(MA$,(MA$)1):MS$(MS$,(MS$)1):8:8:232);:240):C1C11!p(MA$)254MM0MB$MA$:MM1:MA$""!z!22::C15ğ:"":22"C10ė:6:10:"TOO *(CH$)32MA$MA$CH$:2160] 4(CH$)64(CH$)91C1C11:MS$MS$CH$:MA$MA$CH$:2160n >MA$""2160 H(CH$)8(MS$)1MA$"":C1COUNT:MS$"":8:8:232);:240):2160 R(CH$)8(MA$)1MMMA$MB$:MM0:MB$""4!\(CH$)8((MA$,1))COUNT254C1COUNTI"MAX. NO. OF CHARACTERS IN MESSAGE = ";COUNT|:"PLEASE PRINT YOUR MESSAGE NOW"::NC0:NQ05:4:"PRESS ";::"CTRL-R";::" TO RESTART MESSAGE"MM02220CH$ (CH$)132240 (CH$)181930 (I,J)0COUNTCOUNT1l:2vPX1ĺD$;"PR#0"8>z12:"DO YOU WANT TO INSERT A MESSAGE (Y/N)";:CHOICE$MM0:MA$"":MB$"":MS$""CHOICE$"N"NQ1:NC0:::14::"PLEASE WAIT"::2340CHOICE$"Y"1930 COUNT254LX%(J):LX%(J)LH%9LH%LY%(I):LY%(I)LY%(J):LY%(J)LH%CJ:IUX$"Y"1860[e&24400PX0Ğ:7:"PRESS ANY KEY TO CONTINUE ";:A$::PX0LW200ė:12:14::"PLEASE WAIT":DCOUNT0:XY$XZ$:AN0NI1LXJ1WbA%:"ADJUST TOP OF PAGE ON PRINTER":ZPXğ:8:"HIT ANY KEY TO CONTINUE":::A$:::dZP0:12:14::"PLEASE WAIT":PXĺD$;"PR#1"I1M1:JI1MW$(I)W$(J)1800HZ$W$(I):W$(I)W$(J):W$(J)HZ$LH%LX%(I):LX%(I)T2039,32128:^:CT,W$(I):CTCT1:LX%(I)SY:LY%(I)SXAhIGr|:N1:PXĺ"HOW MANY COPIES OF THIS PUZZLE":"DO YOU WANT ";N:PXĉ:N((N)):N0N1X$"Y"1720XY$"*** ANSWER KEY ***"PXĉAN1$PXĞ:5 1490W$(I)"":1640*JSY:KSX6P1LNdA%(J,K)0A%(J,K)((W$(I),P,1))1400"JJDXY(SD,2):KKDXY(SD,1):P,JSY:KSX6P1LN:A%(J,K)((W$(I),P,1))@JJDXY(SD,2):KKDXY(SD,1):JW(I,1)SX:W(I,2)SY:W(I,3)SDNTWLSQ1540 2039,32128S:"COULD'NT FIT '";W$(I);"' IN THE PUZZLE.""DO YOU WANT TO CONTINUE (C)OR ":"SAVE THE WORDS AND START AGAIN WITH A":"BIGGER PUZZLE (B) ":" B OR N ?";A$(A$,1)"C"1530(A$,1)"B"31204,6,8,2,4,6,8,1,3,5,7PCT1)ZI1M9dLN(W$(I))BnNT0TxSDDD(A(28))SXA(W):X1SX(LN1)DXY(SD,1):X11X1W1400SYA(L):X1SY(LN1)DXY(SD,2):X11X1L1400NTNT1PC%(NT9(WLSQ))2039,(9PC%)48128ZXZX1:ZW(TWZX):ZN0*I1M17 JI1Mn(W$(I))(W$(J))HZ$W$(I):W$(I)W$(J):W$(J)HZ$v:(I18:DXY(I,1),DXY(I,2):2I128:DD(I):< 0,1,1,1,1,0,1,-1,0,-1,-1,-1,-1,0,-1,1F 2,4,6,8,2,4,6,8,2,4,6,8,2,4,6,8,2, WORDS":11202T$"."MI1:34,12:""::1260\(T$)0ĺ"INPUT ERROR;RE-DO":1120f2890}ZX(T$)ZX(T$)QQ1QQ0:1120WW$(I)W$(I)I34,12:"":"THAT'S IT...";M;" WORDS.""NOW LET ME PONDER THIS ....."" TYPE A PERIOD (.)."8)B34,193LZX0>VI1MP`I;" ";:T$tjT$"-"II1:I1W$(1)"":I1tT$"-"ĺ"RE-DO ";W$(I);"...":W$(I)"":1120~T$"."I1ĺ"NO WORDS ENTERED":1120 T$"."I2ĺ"THERE MUST BE AT LEAST 2 CTRL-RESET & TYPE RUN"::950FOZ(40(XY$))2:V9:OZ1OZ1:V8VV:OZ:XY$bXZ$XY$q:RD3200"OK...ENTER A WORD AT EACH QUESTION MARK."$"TO RE-DO THE PREVIOUS WORD,":" TYPE A HYPHEN (-)."."WHEN YOU RUN OUT OF WORDS,":3),DXY(8,2),DD(28)g"NOW ENTER A ";::"HEADING";::" THAT WILL BE PRINTED OVER THE PUZZLE:"m"(";TW;" CHARACTERS MAXIMUM! )":"NAME = ";XY$(XY$)(TW1)940(XY$)1XY$"-"ė:"IF YOU WISH TO MAKE CHANGES:":"PRESSRY!, THERE MUST BE AT LEAST 2 WORDS.":800S\9:40):7:23:"MAX. WORDS = ";M:nf14::"PLEASE WAIT":pW$(M),WW$(M)zA%(L,W),LX%(M),LY%(M)M11L:N11W:A%(M1,N1)0:N1:M1I1MZ:W$(I)WZ$(I):WW$(I)WZ$(I):IMZMW(M,MBER OF WORDS":"IN THE PUZZLE ?"::"(RECOMMEND NO MORE THAN ";(((LW10).4));" WORDS)"::"MAX. WORDS = ";M$:M$"-"690*(M$)0ĺ"":7904M(((M$)))>RDMMZė:"THERE MUST BE AT LEAST ";MZ;" WORDS":800HM2860*R:"SOR":690cRDSZWSZLė:5:26:" "::"WIDTH OR LENGTH MUST BE AT LEAST ";SZ:610LOYė:"TOO LONG ! (MAXIMUM = 20)":720L4ė:"LENGTH MUST BE AT LEAST 4":720 6:26:"LENGTH = ";L} "WHAT IS THE MAXIMUM NU FIT IN ";TW;" COLUMNS.":610KW4ė:"WIDTH MUST BE AT LEAST 4":610f5:26:"WIDTH = ";Wl6:26:" ":OY20:PXOY50"THE LENGTH = (";OY;" OR LESS) ";:"";L$:(L$,1)"-"550L(((L$)))(L$)0ĺ"2)1DPXX$"Y"OX161NPXX$"N"OX197Xb"WHAT IS TO BE THE WIDTH OF THE PUZZLE?"::"(MAXIMUM = ";OX;")"::"WIDTH = ";W$:(W$,1)"-"490lW(((W$))):MDWvW0ĺ"":550WOX660670:"THAT WILL NOT REALLYIOUS ITEM"  T PX1ĺ"DO YOU WANT A SOLUTION PRINTOUT?"::"(Y/N) ";X$ PX0ĺ"DO YOU WANT A SOLUTION DISPLAYED?"::"(Y/N) ";X$ X$(X$,1) X$"-"310 X$"Y"X$"N"ĺ"":490 & 05:26:" ":OX(TW"HOW MANY CHARACTERS PER LINE ON YOUR PRINTER?"::"NO. OF CHARACTERS = ";TW$p (TW$)45Ģ5:13):330 TW(((TW$))) TW132TW8::::"WHAT ? TRY AGAIN":420 6:"COLUMNS = ";TW;" " 9:"PRESS HYPHEN (-) TO RE-DO PREV " @PX1f J:"DO YOU HAVE A PRINTER IN SLOT #1 "::"( Y/N )";A$:(A$,1)"N"PX0:350 T(A$,1)"Y"ĺ"":330 ^PXA$" ON " hPXA$" OFF " r5:"PRINTER ";::A$: | A(Z)((1)Z1)  PX0TW40:460S RDĺ( RDĞ:"USING SAME WORDS":0 11` "****************************************"k 34,13q " ,PX1:SQ2: SQ IS THE SPEED OF SEARCH - 1 FAST - 9 SLOW 69:" ":5:" ":6:" (WZ$(I))SZ(WZ$(I)) I: D$;"CLOSE WONDER.FILE"U D$;"OPEN WONDER.FILE"q D$;"WRITE WONDER.FILE"x 0 D$;"CLOSE WONDER.FILE" 216,0 5:"THIS PROGRAM IS A WORD SEARCH": RDĖ10 RDĖ2 "PUZZLE GENERATOR!! "; )  ::/PF12: CTRL-CHAR FOR PAGE FEEDWPL60: LENGTH OF PAGE ON PRINTERc(D$(4)m2190<D$;"OPEN WONDER.FILE"FD$;"READ WONDER.FILE"PMZZMZ0ĺD$;"CLOSE WONDER.FILE":190dRD1nWZ$(MZ) xI1MZ:WZ$(I):SZ                         ESS SPACE TO CONTINUE, ESC TO END...";J5ZFIN$:IN$" "(IN$)2718010_5dF(IN$)2731111e5nF5yI12000:::10:"WOULD YOU LIKE TO PLAY AGAIN ";5yIN$:IN$"Y"1505y(994)(1001)192Č9765y:::)5,54:13946,96:13947,0:4?+4hBSC5ıa4iB10:7,929:30,319:9,1432:33,3414:14,25354mB5,88:9,8:8,1310:11,13:13,17124rBRPT154|B138244B7:138274B138244B9:138274BRPT4B138244B5:138274B&5PF24:" PR173:13923,162:}3>13924,48:13925,133:13926,36:13927,173:13928,163:13929,54:13930,133:13931,37:13932,165:13933,48:3>13934,41:13935,15:13936,141:13937,164:13938,54:13939,165:13940,48:13941,41:13942,240:13943,141:4>13944,165:139499,161:13900,54:13901,145:13902,40:13903,200:2>13904,192:13905,40:13906,144:13907,213:13908,160:13909,0:13910,104:13911,105:13912,0:13913,197:3>13914,34:13915,144:13916,196:13917,32:13918,193:13919,251:13920,133:13921,40:13922,:13876,41:13877,240:13878,24:13879,109:13880,160:13881,54:13882,145:13883,40:1>13884,177:13885,40:13886,41:13887,240:13888,205:13889,165:13890,54:13891,208:13892,10:13893,177:12>13894,40:13895,41:13896,15:13897,24:13898,109:138:13853,133:z0>13854,36:13855,133:13856,37:13857,72:13858,32:13859,193:13860,251:13861,133:13862,40:13863,164:0>13864,36:13865,177:13866,40:13867,41:13868,15:13869,205:13870,164:13871,54:13872,208:13873,10:U1>13874,177:13875,409,41:13830,15:13831,141:13832,160:13833,54:/>13834,165:13835,48:13836,41:13837,240:13838,141:13839,161:13840,54:13841,165:13842,36:13843,141: 0>13844,162:13845,54:13846,165:13847,37:13848,141:13849,163:13850,54:13851,169:13852,0;I,J:J015320#.;SC10154008.;I,J:J015340L.(13824,76:13825,108:13826,54:13827,165:13828,48:1382SC7Ė15:" HOT AND DRY ";7-P;SC10Ė17:" CLOUDY ";a-R;SC5Ė14:" THUNDERSTORMS! ";:17000g-`;~-j;A$:A$"*"15210-t;SC215300-~;I,J:J015500-;K1J:768,I:769,10:770-;LKJ:::15230-;I,J:J015300-;SC715400.Ġ0J,6;6,102:4,143:7,124:22,304:20,365:23,336:::17000:15170W,8;SC7Ġ9,:;3,51:2,62:I36:1,7I::2,67:3,58,B;22:8:" LEMONSVILLE WEATHER REPORT ":,G;22:8:" LEMONSVILLE WEATHER REPORT ":,L;SC2Ė18:" SUNNY ";-N;+8:(7):"...READY TO BEGIN? ";A$;+8(A$,1)"N"13000A+8X+: WEATHER DISPLAY`+::{+;SC:I025:0,39I:I+;12:I2639:0,39I:I+;8:I2432:15,25I:I+.;13:I17232:22,23I:I+/;SC2SC715160+0;SC10Ġ15,5;SC5*@8I1N::@*J8"PLAYER NO. ";I;", HOW MUCH MONEY (ASSETS)":W*T8"DID YOU HAVE? ";l*^8"";A$:A(A$):*h8A2ĺ"O.K. - WE'LL START YOU OUT WITH $2.00":A2:14490*r8A40ĺ"JUST TO BE FAIR, LET'S MAKE THAT $10.00":A10*8A(I)(A100.5)100:$BER IT WAS? ";/)F7"";A$:A(A$)::A014200p)P7A$(A$,1):A$"Y"ĺ"GOOD! WHAT DAY WAS IT? ";:II1:14150)Z7A$"N"I014300)d7(7);"YES OR NO? ";:II1:14150)x7A1A99A(A)14300)7DA)7"OKAY - WE'LL START WITH DAY NO. ";D1: MONEY THAN YOU HAVE! ":%(318000-(3:F(6 CONTINUE OLD GAME[(7936:(7);:I0(7"HI AGAIN! WELCOME BACK TO LEMONSVILLE! ":((7"LET'S CONTINUE YOUR LAST GAME FROM WHERE"(27"YOU LEFT IT LAST TIME. DO YOU REMEMBER ")<7"WHAT DAY NUMNCOME FROM SALES AND YOUR EXPENSES.":V'3"THE NUMBER OF GLASSES YOU SELL EACH DAY "'3"DEPENDS ON THE PRICE YOU CHARGE, AND ON "'3"THE NUMBER OF ADVERTISING SIGNS YOU USE.":'3"KEEP TRACK OF YOUR ASSETS, BECAUSE YOU "(3"CAN'T SPEND MORE TO MAKE LEMONADE IS TWO CENTS "Q&3"A GLASS (THIS MAY CHANGE IN THE FUTURE).":\&318000b&3&3"YOUR EXPENSES ARE THE SUM OF THE COST OF"&3"THE LEMONADE AND THE COST OF THE SIGNS. ":&3"YOUR PROFITS ARE THE DIFFERENCE BETWEEN "&'3"THE IING)"]%T3"2. HOW MANY ADVERTISING SIGNS TO MAKE (THE SIGNS COST FIFTEEN CENTS EACH) "%^3"3. WHAT PRICE TO CHARGE FOR EACH GLASS ":%h3"YOU WILL BEGIN WITH $2.00 CASH (ASSETS)."%r3"BECAUSE YOUR MOTHER GAVE YOU SOME SUGAR,"&|3"YOUR COST => ";N$+$/N(N$):N1N30ĺ(7);:122201$/E$2 NEW BUSINESSK$,3{$63"TO MANAGE YOUR LEMONADE STAND, YOU WILL "$@3"NEED TO MAKE THESE DECISIONS EVERY DAY: ":%J3"1. HOW MANY GLASSES OF LEMONADE TO MAKE (ONLY ONE BATCH IS MADE EACH MORN*PRINT HEADINGS**!FD!K"TAX RATE SALES TAX REV. ELAST.";R!PX11370_!U" SCR."e!Zk!_!d105000,350,50000,3000,.028!i 93600,350,52000,3000,.055!n 121000,350,55000,3000,.05!s!x34,0:"END OF PROGRAM"!}X0, "**TAX RATE UNREALISTICALLY HIGH. TRY"; "AGAIN**"E 1250p E((100P(QQ1))(Q(P20)).5)100x CV 3);P;12);(Q.5);23);(PQ100.5); 32);E;  **CALL INPUT** # (K1L -1250 2 7K <!A*R$R$"YES"1230,R$"NO"1235L"**REPLY WITH YES OR NO**"V1200_R91e**INPUT AND CHECK % RATES**PCV(37)P11270"**INPUT A PERCENTAGE (1 - 100)**"1250Q2E06(P20)Q1 Q01290."yH(1).05~925A"QLD. INCREASES SALES TAX ON CARS."q"NSW HIT TON-UP BOYS. AGE LIMIT UP TO 19."}H(3).1H(2).2925"ASSESSMENT ";(5T6650.5)"% -END OF PART 3."85**YES/NO*******************R0I"EXPECTED."LH(1).1'Q925OV"STATES INTRODUCE NEW PETROL TAX."zX"PETROL UP BY 5% IN VIC, 15% IN NSW,"Y"AND 20% IN QLD."`H(1).02eH(2).05jH(3).07o925t"OUR MACHINE TAKES FIRST THREE PLACES"v"IN T.T. RACEDEATH INEVITABLE SAYS UNION BOSS.".$H(1).17)925_."FEDERAL GOVERNMENT RULES AGAINST"|0"NSW CARTEL WITH PUCH."3M(2)95078C(2)Q(2)M(2)P(2)=925B"VICTORIAN GOVERNMENT BAILS OUT NVT"G"FOR PART STAKE. SUBSIDISED SALES "S(K)01005"N(K)Q(K)S(K)8TT6(S(K)500)GL(K)S(K)RS(K)0\1020jN(K)Q(K)uL(K)0TT10(S(K)500)K765 "NEW BMW ENTERS QLD. MARKET."H(3).1925"NVT HIT MONEY TROUBLE."""91090Y101110$Y1111403Y1211559M"NEW PRICES ";aP(1),P(2),P(3)v"ALLOCATIONS ";A(1),A(2),A(3)K13Q(K)N(K)965C(K)C(K)Q(K)(G(K)H(K))Q(K)(M(K)P(K)C(K).5)S(K)S(K)A(K)Q(K)30:"NSW.= ";E(2)*M30:"QLD.= ";E(3)?O30:"SCORE= ";TfP23:"PRESS RETURN TO CONTINUE";Z$pRYY1WY131180Y\"YEAR ";YaK13fH(K)0kKp**BRANCH**uY4925zY41035Y61050Y71070Y"LOST ORDERS",L(3)( K136%P1P(K)1D*P2P(K)1X/Q1M(K)P1C(K)l4Q2M(K)P2C(K)9E(K)(100((Q2Q1)Q(K))((P2P1)P(K)).5)100>TT10(100(E(K)1).1)CKE10:30H"ELASTICITY"J30:"VIC.= ";E(1)K)"NEW SOUTH WALES"/"==============="A"PRICE",P(2)T"ORDERS",Q(2)f "SALES",N(2)y "STOCKS",S(2) "LOST ORDERS",L(2) "QUEENSLAND" "==========""PRICE",P(3)"ORDERS",Q(3)"SALES",N(3)"STOCKS",S(3)8327M(3)13207!K13?C(K),P(K),Q(K),S(K),G(K)MN(K)Q(K)XL(K)0_KhT20pY1}"YEAR1":"VICTORIA""========""PRICE",P(1)"ORDERS",Q(1)"SALES",N(1)"STOCKS",S(1)"LOST ORDERS",L(1OUR ALLOCATIONS">"IN A SIMILAR WAY E.G 45500,50000,62500"Dp"YOU WILL BE GIVEN A SCORE WHICH WILL""REFLECT YOUR SUCCESS IN ACHIEVING ""THESE OBJECTIVES."23:"PRESS RETURN TO CONTINUE.":Z$:M(1)11007M(2) HAVE BEEN INSTRUCTED TO MAXIMISE"K"REVENUE BY SETTING PRICES AND TO "u"ALLOCATE SUFFICIENT STOCKS IN YOUR""THREE MAIN MARKETS.""TYPE IN THE PRICE FOR EACH STATE IN""ORDER SEPARATED BY COMMAS E.G.""400,450,500 THEN YT10(100(E1).1)"S38);T(X/]JQb"MAXIMUM POSSIBLE SCORE 50";ig"-END OF PART TWO"ql85q**START OF PART 3**v{"YOU ARE THE AUSTRALIAN MARKETING MANAGER""FOR A JAPANESE MOTOR CYCLE MANUFACTURER."""YOU POSSIBLE TO MAXIMUM"> "REVENUE FROM THE TAX. DEMAND FOR "l"WASHING MACHINES CHANGES EVERY 3 MOVES""SCORES DEPEND ON SUCCESS EACH THIRD MOVE"!T0&1350+J150Q1Q(J)5K13:1250?K3585DIKNT","ELASTICITY CAUSED BY A SHIFT OF THE"A"DEMAND CURVE."K1395d**START OF PART 2**jyQ(1)20000Q(2)17000Q(3)22000Q(4)24000Q(5)16000"YOUR AIM IS TO GAIN MAXIMUM SCORE BY" "MOVING AS CLOSE ASIMILAR LINES BUT HARDER SINCE THE"N"DEMAND WILL VARY RANDOMLY UP OR DOWN"~"EVERY 3 TURNS. TO TRY IT, SELECT PART 2."85I1462"INCORRECT. TWO MORE TRIES."L2I1385"CONSULT LEAFLET C ABOUT THE EFFECT ON*h"YOU MAY ALTER THE TAX RATE 3 TIMES."2mL3:rI0GwQ118100Q|1350[1315a"WHAT IS YOUR ESTIMATE OF THE TAX RATE""FOR MAXIMUM REVENUE NOW ";E1(E127).5440"WELL DONE. THE NEXT PART IS ON"""S ELASTICITY OF":@"DEMAND AND REVENUE. YOU SHOULD READ"`E"LEAFLET C BEFORE TRYING AGAIN."jJ1395pOT"THE DEMAND FOR WASHING MACHINES HAS"Y"RISEN DUE TO AN INCREASE IN REAL"^"INCOMES.":c"NOW TRY TO MAXIMISE REVENUE AGAIN."24).5290 > "GOOD, YOU MAY NOW PROCEDE TO THE NEXT"N "SECTION."W 335d "I1315j % '"INCORRECT. YOU MAY HAVE 3 MORE ATTEMPTS" ) ,L3 1I1 6CV:245 9 ;"YOU HAVE NOT UNDERSTOOD THE"="RELATIONSHIP BETWEEN "WHEN REQUESTED, TYPE YOUR ESTIMATE OF"R "THE TAX RATE (AS A PERCENTAGE)."Z L4b I0o Q120700y 1350 1315 "WHAT IS YOUR ESTIMATE OF THE TAX RATE " "WHICH MAXIMISES REVENUE (TO 1 PER CENT)"; E1  (E1 5 "YOU HAVE BEEN ASKED TO ADVISE THE"` "TREASURER ON A SUITABLE RATE OF VAT"| "ON WASHING MACHINES." "THE COMPUTER HOLDS AN APPROPRIATE" "DEMAND SCHEDULE AND YOU HAVE 4 ATTEMPTS" "AT MAXIMISING REVENUE." + TO END)"/ n"1. MAXIMIZATION OF TAX REVENUE"W s"2. MOVEMENTS OF THE DEMAND CURVE"} x"3. THE MOTOR-BIKE GAME "; }C1 X X(X1)(X2)(X3)0140 "**REPLY WITH 1,2,3 OR 4**" 130 (X1)1395,175,485,630 **PART1**WARD ARNOLD" ( -= 2**ELAST VERSION 6 17/APR/1978**` 7**COPYRIGHT-SCHOOLS COUNCIL**k <R$(6) AM(3),C(3),P(3),S(3),G(3),N(3),L(3),E(3),H(3),A(3),Q(5) FC0 K"WHICH"; P95 U Z"NEXT"; _" PART "; dC1130 i"(OR 06 "***************************************"x"SCHOOLS COUNCIL COMPUTERS IN THE CURRICULUM PROJECT""***************************************"10"ELASTICITY OF DEMAND""===================="15 #"TEXT BY ED           YOU"7#/"MAKE THE MOST MONEY, YOU'RE THE WINNER!!":g#/"ARE YOU STARTING A NEW GAME? (YES OR NO)"#/21:958:"TYPE YOUR ANSWER AND HIT RETURN ==> ";A$#/A$(A$,1):A$"Y"A$"N"ĺ(7);:12200$/23:958:"HOW MANY PEOPLE WILL BE PLAYING =YOU ARE IN CHARGE OF"E"b/"RUNNING YOUR OWN LEMONADE STAND. YOU CAN"u"l/"COMPETE WITH AS MANY OTHER PEOPLE AS YOU""v/"WISH, BUT HOW MUCH PROFIT YOU MAKE IS UP""/"TO YOU (THE OTHER STANDS' SALES WILL NOT"#/"AFFECT YOUR BUSINESS IN ANY WAY). IF55,152,40,171,80,192,40,228,255,1,40,0,160,192,255,192,40,171,80,152,40,128,255,0,0`!- MUSICp!-I,J:J0ı!-768,I:769,J:770!-11710!. TITLE PAGE!D/::(7);!N/"HI! WELCOME TO LEMONSVILLE, CALIFORNIA!":"X/"IN THIS SMALL TOWN, L;LL;,;L;LL;,;;;LL;,,,,,*J - 96,16,85,4,128,4,96,4,76,4,128,4,96,16,0,0 - 114,120,144,60,114,255,1,120,128,120,144,60,128,120,114,60,144,120,171,255,228,255,0,0 - 152,180,152,120,152,60,144,120,152,60,171,120,192,60,152,255,0,0S!(- 0,160,128,212%,32,0:33,40:34,20:35,23:22<,I14000::I(0)B,N, DATA, 96,180,128,60,114,60,128,120,144,60,152,60,128,255,128,60,114,60,85,120,96,60,102,60,114,120,102,60,96,255,0,0 - ,,,,,,L;LL;,L;LL;,;;LL;;,L;LL;,L;;;;,,,;L;;;;,;L;LL;,;5,1958,I3971:15:18,37I:12:I39ď18,36I1OB,15:I30ď18,36I10L,12:I29ď18,37I11:32,I11:11:I12::A$:A$;V,J14II:::I11000:`,13:14,3612:I36201:8,16Ij,J150::768,I312:769,12:770::12:14,19;L;LL;LLLLLLLL";A+"LLLLLLLLLLLL;LL;LL;;;;L;LL;L;LL;LLLLLLLL";r+"LLLLLLLLLLLL;LL;LL;LL;L;LL;L;LL;LLLLLLLL";,"LLLLLLLL;;;;;LL;LL;;;;L;LL;L;;;;LLLLLLLL";,23:" COPYRIGHT 1979 APPLE COMPUTER INC."$,11700:I12000:.,33,1:34,9:3L;L;LL;L;LL;L;LLL";D+";;;;L;;;;L;LLL;L;;;;L;LL;L;;;;L;;;;L;;;;";L+11}+"LLLLLLLL;;;;;LL;LLLLLLLLLLLLLLL;LLLLLLLL";+"LLLLLLLL;LLLLLL;LLLLLLLLLLLLLLL;LLLLLLLL";+"LLLLLLLL;LLLLL;;;L;;;;L;;;;L;;;;LLLLLLLL";+"LLLLLLLL;;;;;LL;LLLLL;L;LLLLLLLLLLLLLLLLLLLLLLLL;LLLLL";Op+";LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL;LLLLL";z+";LLLL;;;;L;;;;;L;;;;L;;;;L;;;;L;;;;L;;;;";+";LLLL;LL;L;L;L;L;LL;L;LL;LLLL;L;LL;L;LL;";+";LLLL;;;;L;L;L;L;LL;L;LL;L;;;;L;LL;L;;;;";+";LLLL;LLLL;L;L;L;LL;L;L71,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240:780,9:781,202~'782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96:791,0:792,0'* INTRODUCTION\+:::12:I039:0,39I::2f+";LLLLLLLLLLL05,.5,5000,7.5,4,.0008,1,7.5,4F- -.0005,10.5,.0005,.5,5000,.0008,1L2b7"END OF PROGRAM"h<nA;14);P(4);19);P(5);124);P(6);29);(P(7))7={ **** SUBROUTINE FOR YES/NO REPLIES ********************R90R$ R$"YES"1310R$"NO"1315"++TYPE EITHER YES OR NO";1280R91#( 0,5,.00"OUTPUT MC PRICE AC PROFIT"TW;8);P(6);13);P(2);19);P(4);24);(P(7))^1265"OUTPUT MC AC AVC AFC"W;9);P(6);14);P(4);19);P(3);25);P(4)P(3)1265" Q P=AR AC MR MC PROFIT"W;7);P(2)Z1(ZZ1)01150tC$" "'y11706~ZZ11165EC$"WORSE"O1170`C$"BETTER"jZ1Zp **** SUBROUTINE FOR TARGET TABLE **********************A$;"ACHIEVED WHEN :"(S2)(S4)01225(S5)(S6)01245#Q(4)P(4)1040!$W010751)V1001125;.1145K3Z(1VW)[8Z.021100o=C$"WELL DONE"xBL1G1160L(S2)(S4)01120QP(7)Q(7)01120VC$"** LOSS **"[1170`Z.051135eC$"CLOSE"j1170oL2995,Q(7)01005 10058:C$:B1015H_A$"MINIMUM LOSS"e **** SUBROUTINE FOR COMMENTS**************************L0(S2)(S4)01055 Q(5)Q(6)1060C$"EXCELLENT"L21160z#     ҠĠ+ ҠӠ$ҮŠҠӠ ϲ ͱ"ϠԪ! Ӡ٠Š/ϠԠǠˠ ɠ͠ ΠĠŠ!::" ";L(I);7);"GLASSES MADE":hSTIE:4000:" ";S(I);7);"SIGNS MADE";25);"EXPENSES ";STI$::STIP1:4000:16);"PROFIT ";STI$:STIA(I):4000:16);"ASSETS ";STI$18000 :' INITIALIZE'0:0Wt'770,173:7(STI)&STI(STI)STI$STI$".0"MSTI(STI10.5)10STI$STI$"0"S`6:34,5" DAY ";D;30);"STAND ";I::" ";N2;7);"GLASSES SOLD":STIP(I)100:4000:STI$;7);"PER GLASS";STIM:4000:27);"INCOME ";STI$"NDS WERE BEING SET UP."E8 "UNFORTUNATELY, EVERYTHING WAS RUINED!!"YB J1N:G(J)0:cL 1185q` X41805zj X41~ "A HEAT WAVE IS PREDICTED FOR TODAY!" R12 805  STI => DOLLARS.CENTSSTI(STI100.5)100STI$"$"805-"THE STREET CREWS BOUGHT ALL YOUR"L"LEMONADE AT LUNCHTIME!!"V1185k THUNDERSTORM!y X31:R30 SC5:15000:: "WEATHER REPORT: A SEVERE THUNDERSTORM"$ "HIT LEMONSVILLE EARLIER TODAY, JUST AS". "THE LEMONADE STA LIGHT RAIN,"5C"AND THE WEATHER IS COOLER TODAY."DHR11J100MRX11V\805dX21805"THE STREET DEPARTMENT IS WORKING TODAY.""THERE WILL BE NO TRAFFIC ON YOUR STREET."(1).52233R222250R1.1X21USINESS YOU'RE BANKRUPT!"%dB(I)12f18000:HiN1B(1)131111OnIXsR11atR20jx400 RANDOM EVENTSSC102110SC72410(1).2522108054X11805>J30((1)5)10 @"THERE IS A ";J;"% CHANCE OF01ES(I)S3L(I)C1# P1ME4A(I)A(I)P1EH(I)12300K(])B(I)11330."STAND ";I;:" BANKRUPT":18000/139025000FA(I)C1001390P"STAND ";IU:" ...YOU DON'T HAVE ENOUGH MONEY LEFT"Z" TO STAY IN B32350I1N%A(I)0A(I)04R221260GP(I)P91220dN1(P9P(I))P9.8S2S2n1230N1((P92)S2P(I)2)WS(I)C9V1((W)C2)N2R1(N1(N1V))N2(N2G(I))N2L(I)1270N2L(I)MN2P(I).:SC10(1).252300Fj"$$ LEMONSVILLE DAILY FINANCIAL REPORT $$"Loft768,152:769,80:770v768,128:769,160:770x768,152:769,40:770z768,144:769,80:770|768,128:769,200:770 CALCULATE PROFITSR222290R3ONADE ";P(I),P(I)0P(I)100102261024b"COME ON, BE REASONABLE!!! TRY AGAIN."l1010P(I)(P(I))1022C51105023:"WOULD YOU LIKE TO CHANGE ANYTHING?";A$$(A$,1)"Y"ė:C51:810LMIVC50::`950S(I)(S(I))963;S(I)S3A(I)L(I)C11010A\STIA(I)L(I)C1:4000"THINK AGAIN, YOU HAVE ONLY ";STI$"IN CASH LEFT AFTER MAKING YOUR LEMONADE."950:"WHAT PRICE (IN CENTS) DO YOU WISH TO""CHARGE FOR LEM);" GLASSES OF">"LEMONADE YOU NEED $";L(I)C1;" IN CASH."G890M"HOW MANY ADVERTISING SIGNS (";S3100;" CENTS""EACH) DO YOU WANT TO MAKE ";S(I)S(I)0S(I)50963965"COME ON, BE REASONABLE!!! TRY AGAIN." "WISH TO MAKE "; L(I)9 L(I)0L(I)1000903B 906m "COME ON, LET'S BE REASONABLE NOW!!!"~ "TRY AGAIN" 890 L(I)(L(I))903 L(I)C1A(I)950 "THINK AGAIN!!! YOU HAVE ONLY ";STI$"IN CASH AND TO MAKE ";L(II)A(I).000000001$ 4G(I)1:H(I)0` RSTIA(I):4000:"LEMONADE STAND ";I;26);"ASSETS ";STI$f Wv \B(I)0890 f"YOU ARE BANKRUPT, NO DECISIONS" k"FOR YOU TO MAKE." lN1A(1)C31111 p1050 z"HOW MANY GLASSES OF LEMONADE DO YOU"B GREETING PROGRAM: " SLAVE DISC CREATED BY MH "@ "NO NEGATIVE NUMBERS, PLEASE!":760+/JF4A2A(1)A(2):A20845]9V(1)0:V(2)0:855{MV(1)A(1)A2:V(2)A(2)A2WD1(K2K2(KA2))K4\aZ124::k12:"QUARTER ";Q;" REPORT"::$C$(J);":"::"PROFIT";T);"$";UI(J)C(J)800P(J)0800Z:"YOU MAY NOT RAISE PRICES DURING A WAGE- PRICE FREEZE."::760 P(J)A:A200ĺ:5)"... WHO WOULD BUY A":(P$,((P$)2));" FOR $";A;"?":"TRY A LOWER PRICE.":760%P(J)0ĺ:"YOU CAN'T GIVE IT AWAY!":760$*P(J)0ĺ:NEGATIVE NUMBERS PLEASE.":7151L(J)L(J).001:"ADVERTISING BUDGET? $";A(J):A(J)0ĺ:"NO NEGATIVE NUMBERS PLEASE.":730A(J)A(J).001:C(J)C(J)FL(J)UA(J):E(2)1760I(J)I(J)L(J):"UNIT PRICE? $";A:E(1)1800AP(J)":635::10:140a:"I HOPE YOU ENJOYED PLAYING 'MARKET'! COME AGAIN ANOTHER TIME."v"";"RUN HELLO":J12:::C$(J):E(2)1715:"NO PRODUCTION POSSIBLE DUE TO STRIKE.":730:"PRODUCTION LEVEL? ";L(J):L(J)0ĺ:"NO .NP417:::255:Z140:"*";::C$(J):90vS"YOU HAVE REACHED $";.001M1;" MILLION AND WON!":Z140:"*";::XJ1İ50lJ:50::P417410{::"DO YOU WANT TO PLAY AGAIN? ";A$:(A$,1)"N"670(A$,1)"Y"ĺ:"YES OR NO, PLEASE.E(5)0530W(J)0:540/T(1)T(2)0520VW(J)(10000T(J)(T(1)T(2)))100]J!J12:I(J)(I(J)):C(J)(C(J)):B(J)(B(J)):T(J)(T(J))&900:B(J)C(J)UI(J):B(J)0580+:975:DB(J)M1620IB(J)C(3J)UI(3J)620J12:D(J)(1E(5)).5(K22V(J)D1)(P(J)50)N:U1000:J12:D(J)I(J)475hT(J)D(J):480vT(J)I(J)T(J)(T(J)):C(J)C(J)T(J)P(J):I(J)I(J)T(J):JJ12:C(J)C(J)RI(J)UK3C(J)((C(J))(C(J))2)2C(J)(C(J)) REHOUSE CHARGE FOR INVENTORY = ";R100;"%":g""INTEREST CHARGE ON BORROWED MONEY = ";K3100;"%"::o'50,J15:E(J)0::P40:8751J12:W(J)0:D(J)0:T(J)0:B(J)UI(J)C(J):900:650QQ1:1060:675:865 COMPUTE DEMAND5: $";U:::"ENTER QUARTER NUMBER: ";Qa::"FIXED PRODUCTION COST = $";F1000;"/ QUARTER":"VARIABLE PRODUCTION COST = $";U;"/ UNIT":"WITH NO ADVERTISING AND A SELLING PRICE OF $50/ UNIT, A COMPANY WILL SELL ":K2500" UNITS.":,"WAINUING"0 :"(B OR C) ? ";A$:(A$,1)"B"270F (A$,1)"C"215 ::J12:C$(J):"ENTER PREVIOUS CASH ON HAND: $";C(J):C(J)(C(J)1000.5) "ENTER PREVIOUS INVENTORY: ";I(J)::I(J)(I(J)1000):J::'"ENTER VARIABLE PRODUCTION COSTION" "IN TOTAL ASSETS."d ::"PLEASE ENTER THE NAME OF THE FIRST COMPANY: ";C$(1):: "PLEASE ENTER THE NAME OF THE SECOND COMPANY: ";C$(2):::"ARE YOU BEGINNING THE GAME" "OR CONTINUING?"::" B = BEGINNING"::" C = CONT"EACH IS SELLING THEIR OWN BRAND OF THE SAME PRODUCT.":"(";P$;")": "HOW MUCH EACH COMPANY SELLS DEPENDS ON THE PRICE AND HOW MUCH IS SPENT ON ADVERTISING." :"THE GAME ENDS WHEN ONE COMPANY GOES BANKRUPT OR REACHES $";.001M1;" MILLERNING AUTHORS ALSO LINE 60000"` K2,N,K,K3,C(1),C(2),I(1),I(2),F,U,R,G1,G2,G3,M1,K4,T,T$:Q0 90:"DO YOU WANT INSTRUCTIONS? ";A$::(A$,1)"N"200 5:(A$,1)"Y"ĺ"YES OR NO, PLEASE."::145F "IN THIS PROGRAM, TWO COMPANIES COMPETE. ":BIN7 x COPYRIGHT 1972 - STATE UNIVERSITY OF NEW YORKR }R(X).01(100X.5) C(2),I(2),T(2),A(2),L(2),D(2),P(2),V(2),W(2),B(2),E(5),C$(2) :10:100:14)"M A R K E T":WW1500:WW:15:255 "SEE LINES 100 TO 120 FOR INFOMATION CONC 1520:100B2"PRESS ANY KEY TO CONTINUE ";:K$:1:868:d MARKET - SIMULATION OF MARKET COMPETITION BETWEEN 2 COMPANIESi DEVELOPED BY S. FINKELSTEIN, J. MCGRATH, I. STAW, D. SOBIN n ALSO DEVELOPED BY D. KLASSEN - PROGRAMMED BY D. SO          R11 X CURRENT EVENTS( bD3650X l"(YOUR MOTHER QUIT GIVING YOU FREE SUGAR)"f D7700 "(THE PRICE OF LEMONADE MIX JUST WENT UP)"  AFTER 2 DAYS THINGS CAN HAPPEN D22000  INPUT VALUES %:34,(37) *I1N /A( WEATHER REPORT SC(1)0 SC.6SC2:460F SC.8SC10:460O SC7] D3SC2h 15000p :  START OF NEW DAY DD1 "ON DAY ";D;", THE COST OF LEMONADE IS "; C2:D2C4 &D6C5 0"$.0";C: :C1C.01 D FEBRUARY, 19791 Z BY CHARLIE KELLNER` A(30),L(30),H(30),B(30),S(30),P(30),G(30)j P910u S3.15 S230 A22.00 C9.5 C21 , START OF GAME 612000:I1N:B(I)0:A(I)A2: @A$"Y"İ13000:400 J14000  - 14080*10000:11000:16000:135H <<< LEMONADE STAND >>>O n FROM AN ORIGINAL PROGRAM BY BOB JAMISON, OF THE( MINNESOTA EDUCATIONAL2 COMPUTING CONSORTIUM< * * *F MODIFIED FOR THE APPLE PCOMES FROM KYDE TYME PROJECT SAN JUAN UNIFIED SCHOOL DISTRICT SACREMENTO USA"a ADDED TO SWAP DISK 15/3/80D WAGES."::E(2)0!-!"";"RUN HELLO"U!A%4(1):A%11525,1530,1535,1540z!P$"A LASER CIGARETTE LIGHTER":!P$"A SOLID-STATE WATER DEHYDRATOR":!P$"A COMPUTERIZED YOYO":!P$"A ROCKET-POWERED SKATEBOARD":Z"` THIS PROGRAMME E(5)11475 Q2Q1475( E(5)0m "TRANSPORTATION STRIKE SETTLED. NORMAL DELIVERIES RESUMED.": E(2)11505 Q3Q1505 "STRIKE SETTLED. NORMAL PRODUCTION RESUMED.":"NEW VARIABLE COST = $";U;"/ UNIT DUE"!"TO INCREASEOKS DIM."::Vx"THERE HAS BEEN A STRIKE, AND YOUR":"PRODUCTION HAS BEEN STOPPED."}"NEGOTIATIONS HAVE BEEN STARTED, BUT HOPEOF A SETTLEMENT LOOKS DIM."::E(1)11450QQ121450E(1)2"THE WAGE-PRICE FREEZE HAS ENDED.": "]K"WERE DESTROYED. YOUR INSURANCE WILL PAY $";(UI(J).75);T$;" FOR YOUR LOSS. ":_"A TRANSPORTATION STRIKE HAS OCCURED, ANDYOU ARE UNABLE TO MOVE YOUR GOODS TO THE"; d"DISTRIBUTORS. NEGOTIATIONS HAVE BEGUN, BUT HOPE OF A SETTLEMENT LOOVERTHE NEXT 2 QUARTERS."::w-C$(I):"HAS BEEN THE VICTIM OF EMBEZZLEMENT BY THE VICE PRESIDENT OF THE COMPANY":2"YOUR CASH ON HAND IS NOW $";C(I);T$::FC$(J):"HAS SUFFERED FIRE DAMAGE IN ITS":"WAREHOUSE.":"ALL THE ";(P$,((P$)2));"S 1425#U(U(1.05.1(1)))t8)"-- NEW LABOR CONTRACT --":"VARIABLE PRODUCTION COST NOW = $";U;"/UNIT"~1425"THE PRESIDENT HAS JUST IMPOSED A WAGE- PRICE FREEZE ON THE ECONOMY AND YOU MAY""NOT RAISE THE PRICE OF YOUR PRODUCT .75I(J)0W3Q"10803E(1)11230EQW421230NW4QX1375cE(5)1lQ2Q((Q1)4)4Q11425Q11425E(1)11425(1).251280Q612801400E(2)1U(U(1.1.1(1)))Q3Q G1300LE(1)1QQ1Q)V1070<[I((1)1.5)N`QW221075_eC(I)01075rjC(I)2001145oC(I).75C(I)t1150yC(I)C(I)200~1325W2Q1075J((1)1.5)QW3210801350C(J)C(J)UI(J)(P(3M)P(M))P(3M)%G4G110555G4G21040? G4G2bG5D(3M)((G4G1)(G2G1))G3wD(3M)D(3M)G5D(M)D(M)G5$Q61230)(1).11090.(1).111153(1).111658(1).11200=1230BE(1)01070 250 20 .09* .2,.4,.46 12000@ 1.5P 16," 000"Z150:ZZ(16336)(16336):Z::Z140:"*";:C$(J):"YOU HAVE GONE BANKRUPT!":Z140:"*";::P417J1İ50P(1)P(2)M1:1020M2G4B(J);T$:"MARKET SHARE";T);W(J);"%"l"CASH ON HAND";T);"$";C(J);T$:"NUMBER SOLD";T);T(J);T$;" UNITS""INVENTORY";T);I(J);T$;" UNITS":"ASSETS";T);"$";UI(J)C(J);T$::: 50 2 .001 .095 5000,5000 100,100 FORCED":"SALE OF LAND."E$ T0((ML01)L0):LLT0:L10002390l. "NOT ENOUGH LAND TO SELL !":3270zV MMT0L0` D02003300j PPD0:D1D1D0:D103410t D222460~ M5003520 L202520 T0(L2L2(8)2) W02500D3((S1100000)(.1.4(8))P)3D302280mD3;" COUNTRYMEN DIED FROM EXCESS POLLUTION":D0D0D3}D002400FD09:"YOU WERE FORCED TO SPEND ";F;" RALLODS":"FOR FUNERAL EXPENSES." M(MF):M02400 "INSUFFICIENT RESOURCESM(MM2):M02170( L20002170d4"HOW MUCH TO SPEND TO COMBAT POLLUTION ";M3:M302100t>M3M2160H3250:2100pM(MM3)z:3220D00:E2M2P:D2(PM1100):D202240D0D2D2;" COUNTRYMEN DIED OF STARVATION."#ND.":1950&M4(L3L1):M4M199003250"YOU CAN AFFORD ";(ML1):"AND HAVE LABOUR FOR ";P2:"AND HAVE ";;L1000;" SQ.KM.":1830M(MM4):M02180"HOW MUCH TO SPEND FOR EDUCATION ";M2:M202010M2M20703250:2010M1M101740!M1M181013250:1740IM(MM1):M02170x&"HOW MANY SQ.KM. TO PLANT ";L3:L3018300L3P21890N"EACH COUNTRYMAN CAN ONLY PLANT 2 SQ.KM.":1950bL3L10001920 l"ONLY GOT ";L1000;" SQ.KM. OF FARM LAQ.KM. OF FARM LAND":X101580wh"(FOREIGN INDUSTRY NOT INTERESTED IN ":"FOREST LAND BECAUSE OF DEVELOPMENT COST."|X11:1580M(ML2L0):L(LL2):X9(44(2000L)):M20:M30:M40"HOW MANY RALLODS TO DISTRIBUTE":"TO YOUR COUNTRYMEN ";LAND":"FOR ";L0;" RALLODS / SQ.KM."P"PLANTING COSTS ";L1;" RALLODS/SQ.KM."_S101570"POLLUTION LEVEL IS ";S1;" UNITS.""3220,"HOW MANY SQ.KM. TO SELL TO INDUSTRY ";L2:L2015806L2(L1000)1680T"YOU'VE ONLY ";L1000;" SW0:X20:E00:X10:E10:S90:S00:M50:S10<D1(P3)L1(((8)5)10):L0((8)1095):3220:"YOU HAVE ";M;" RALLODS":P;" COUNTRYMEN,";W01520W;" FOREIGN WORKERS,"$"AND ";L;" SQ.KM. OF LAND.":"THIS YEAR, INDUSTRY WILL BUY 2"YOUR GOAL ... TO COMPLETE AN 8 YEAR TERM":W""K I N G ";N$;", GOOD LUCK !!"a,1000k61400:"(HIT SPACE BAR TO CONTINUE)"A$:(A$)321010:5:xM(70000((8)1000)((8)1000)):P(500((8)10)((8)10)):L2000.AN INCREASE YOUR CROP YIELD":"THROUGH EDUCATION." "THE VALUE OF CROPS IS DEPENDENT UPON":"THE AMOUNT OF MONEY USED FOR EDUCATION" "IN THE PAST THREE YEARS.":"10 RALLODS PER PERSON IS THE MAXIMUM""USEFUL AMOUNT TO SPEND ON EDUCATION.":: SQ.KM.":"OF LAND.":1000_ "INDUSTRY ALSO BRINGS POLLUTION WHICH IS":"MEASURED IN UNITS." "POLLUTION MAY BE COMBATTED BY SPENDING":".44 RALLODS PER UNIT.": "POLLUTION WILL DECREASE TOURIST TRADE":"AND CROP YIELD.": 10002 "YOU C@ "AND WILL PAY TAXES OF 44 RALLODS PER":"SQ.K. OF LAND.": "INDUSTRY BRINGS TOURIST TRADE.":"IT MUST OWN AT LEAST 2 SQ.KM.BEFORE" "YOU GET ANY TOURIST TRADE,":"AND INCOME FROM YOUR TOURIST TRADE WILL" "INCREASE UNTIL INDUSTRY OWNS 26"4 "IMPORT AND SUPPORT THEIR OWN WORKERS.":1000w "CROPS COST BETWEEN 10 AND 15 RALLODS":"PER SQ.KM TO PLANT," "AND THEY BRING IN BETWEEN 45 AND 65":"RALLODS PER SQ.KM." :"INDUSTRY WILL BUY LAND AT FROM":"95 TO 105 RALLODS PER SQ.KM."NEY SYSTEM IS RALLODS.":"EACH COUNTRYMAN MUST HAVE AT LEAST"g d"100 RALLODS PER YEAR TO SURVIVE.": n"YOUR COUNTRY'S INCOME IS FROM FARM":"PRODUCE, TOURISTS AND TAXES." x"HALF YOUR LAND IS FARM LAND WHICH MAY":"BE SOLD TO FOREIGN INDUSTRY WHOH  :N587"WHAT IS YOUR NAME PLEASE ?";N$=([2(5):"CONGRATULATIONS":<"YOU HAVE JUST BEEN CROWNED SUPREME RULER"F"OF A SMALL MONARCHY, JUST 30KM BY 70 KM.":P"YOUR TASK: TO DECIDE YOUR COUNTRY'S FATE":1000= Z"THE MO                         100F$NN15N;" ";(F$);" ";F$?5020dA SEA6#YALTA,YANGTZE RIVER,YOKOHAMA,YUKON TERRITORYN(**,OCEANS AND SEASVF==\d A1j u B$(A) B$(A)"**"3060 B$(A)"=="3090 AA1 3010 C$ " ";C$ 3010  AA1 N0,U.S. STATE CAPITALSaPACIFIC OCEAN,ATLANTIC OCEAN,INDIAN OCEAN,ARTIC OCEAN,RED SEA,BLACK SEA  MEDITERRANEAN SEA,BERING SEA,NORTH SEA,BALTIC SEA,YELLOW SEA CARIBBEAN SEA,GULF OF MEXICO,EAST CHINA SEA,HUDSON BAY SEA OF JAPAN,SOUTH CHINA **(" ** ADAPTED TO APPLE-II**G" ** BY R.J.HUGGETT ** ON.":4000R!."THROWN A BANQUET IN YOUR HONOUR":"(BUT SENT YOU THE BILL)":4000w!tI911500:J9(19):I9::(5):!"";"RUN HELLO"! ** K I N G ** ! ** FROM 'WHAT TO DO **! ** AFTER YOU HIT ** " ** RETURN'ULLY COMPLETED":"YOUR EIGHT YEAR REIGN":u "YOU HAVE ENDEARED YOURSELF SO MUCH":"TO YOUR PEOPLE THAT THEY HAVE" T0((8)3)1:T03610,3620,3630 "MADE YOU A LIFE MEMBER OF THE RED CROSS":4000 !$"CAST A STATUE OF YOU IN":"GENUINE PIG IRPEND."I "AS A RESULT, SOME OF YOUR COUNTRYMEN":"DIED OF STARVATION." "THE PUBLIC IS ENRAGED AND YOPU HAVE BEEN":"FORCED TO EITHER RESIGN OR" "COMMIT SUICIDE.":4000 3700:"C O N G R A T U L A T I O N S ! ! !":* "YOU HAVE SUCCESSFASSASINATED !!!":4000k 3700:"THE NUMBER OF FOREIGN WORKERS":"HAS EXCEEDED THE NUMBER OF COUNTRYMEN." "AS A MAJORITY, THEY HAVE REVOLTED":"AND TAKEN OVER THE COUNTRY.":3450 3700:"MONEY WAS LEFT OVER IN THE TREASURY":"WHICH YOU DID NOT SGAINED A VERY BAD REPUTATION.":4000X "HAVE ALSO BEEN DECLARED NATIONAL FINK.":4000R "OVER ONE THIRD OF THE POPULATION":"HAS DIED SINCE YOU WERE CROWNED."\ "THE PEOPLE (REMAINING)":"HATE YOUR GUTS."z ((8)2)13270 "YOU HAVE BEEN SON.":4000\ D0;" COUNTRYMEN DIED IN ONE YEAR !!!":"DUE TO THIS EXTREME MISMANAGEMENT," "YOU HAVE NOT ONLY BEEN":"THROWN OUT OF OFFICE, BUT YOU" T0((8)3):T03340,3350,3360 "ALSO HAD YOUR LEFT EYE GOUGED OUT.":4000$ "HAVE ALSO :"TAXES ON INDUSTRY."&0 S203170E: S1(S1S22):S1S03190UD S1S0:3190tb S1(S1S2):S0(S0S210)v N5N51:N501450 3570 :: "ONLY GOT ";M;" RALLODS LEFT !":  3700:"YOU HAVE BEEN OVERTHROWN":"AND CAST INTO PRI:"YOU MADE ";(T0T1);" RALLODS FROM ":"TOURISTS.":MM(T0T1)X| (T0T1)M53080i S1S93080 " DECREASE BECAUSE " "POLLUTION IS KILLING WILD LIFE" M5(T0T1):S9S1 S2(2000L)2M3.44& "YOU RECEIVED ";X9;" RALLODS FROM"(8)20)(1.25(E0E1)20))] "MAKING ";(T1(L3T0));" RALLODS.":MM(T1(L3T0)):E0E1n E2102820x E210 E1E2:T02000L:T023100 T0262870 T0266 T0(T0500(.52.5(8))):T1S1100000:T112910@ T11A^ T1T1T0(S1100000)L3):T0L32660&P T0L35d T002680Vn "OF ";L3;" SQ.KM. PLANTED,"x "YOU HARVESTED ";L3T0;" SQ.KM. OF CROPS.":T002760 X222760 " (DUE TO ";:X202740 "INCREASED "; "POLLUTION LEVEL)":X2X21 T1((39 T0(T0.1W)B T0;" WORKERS CAME TO THE KINGDOM AND":WWT0p T0(((500P)10D33D25).75(1(8))) (T0);" COUNTRYMEN ";:T002570 "CAME TO ";:2580 "LEFT "; "THE KINGDOM.":PPT0:PW3480 T00:L20002680F T0( LINCOLN,CARSON CITY,CONCORD,TRENTON,SANTA FEb ALBANY,RALEIGH,BISMARK,COLUMBUS,OKLAHOMA CITY SALEM,HARRISBURG,PROVIDENCE,COLUMBIA,PIERRE NASHVILLE,AUSTIN,SALT LAKE CITY,MON PELIER,RICHMOND OLYMPIA,CHARLESTON,MADISON,CHEYENNE**,LITTLEROCK,SACRAMENTOF DENVER,HARTFORD,DOVER,TALLAHASSEE,ATLANTA} HONOLULU,BOISE,SPRINGFIELD,INDINAPOLIS,DESMOINES TOPEKA,FRANKFORT,BATON ROUGE,AUGUSTA,ANNAPOULIS LANSING,ST. PAUL,JACKSON,JEFFERSON CITY,HELENA**,CONTINENTS. ST LOUIS,TORONTO,HAMBURG,BUDAPEST,CLEVELAND g~ BANGKOK,JOHANNESBURG,ATHENS,SINGAPORE,ISTANBUL VIENNA,BRUSSELS,AMSTERDAM,GLASGOW,HAVANA LISBON,WARSAW,COPENHAGEN,STOCKHOLM,PRAGUE**,MAJOR WORLD CITIESMONTGOMERY,JUNEAU,PHOENIX";D(S);"%"xP(S)150505-T(S)T(S)30?TT(S)TT(S)3R:936:50,63`"NEWS ";l50,255S$(S);" IN HANDS OF RECEIVER"505C(S)PSP(S)P(S)PS!S7 I110:D(I)0:IQ(1).5ĉ:936:505dS((1)10)1wP(S)2501400(T(S)T(S)252TT(S)TT(S)3<D(S)((1)10)5F:936:50,63P"NEWS ";Z50,255 dS$(S);" DECLARES DIVIDEND OF TT(S)TT(S)1!`TT(S)012005jTT(S)((1)6)@tT(S)0^~I110:T(S)T(S)(1):IvT(S)(T(S)51)100MA0I14:MAMAM(S,I):IMAMA4MA0MA1MAMA0MA1PSP(S)(T(S)(1)105)PS0PS((1)5)18 958518:"TOTAL ASSETS=$";(CAB(G))100A""h"YOU ARE BROKE ";N$(G);" AND YOU""CAN'T PLAY ANYMORE!! HA HA!!"A(1,G)1:"PRESS RETURN FOR NEXT PLAYER ";T$T$"END"ĺ"";"RUN HELLO"GLS110V 5*535$34,18:18:958D"BANK BALANCE =$";B(G)100B(G)0IN(B(G)10):"LESS INTEREST =$";IN100:B(G)B(G)IN:"MAKES BALANCE =$";B(G)100"SHARE ASSETS =$";CA100"TOTAL ASSETS=$ ";(CAB(G))100CAB(G)01000NG IN ";S$(S);" IS CLOSED.":670C"HOW MANY TO BUY OR SELL ";TRqTR(TR)ĺ"MUST BE A WHOLE NUMBER":755A(S,G)TR0TRA(S,G)A(S,G)A(S,G)TR B(G)B(G)TRP(S)BR((TRP(S)1000))I13:M(S,I)M(S,I1):IM(S,4)TRERAGE =$";BR100! qB(G)B(G)BRA v"BANK BALANCE =$";B(G)100I 60Q :\ 34,21 "WHICH STOCK WOULD YOU LIKE TO TRADE. TYPE 'NONE' TO FINISH."; T$ T$"NONE"950 S110 T$S$(S)750 S 670 P(S)0ĺ"TRADI:1000 BR0:D04 I110:DDA(I,G)D(I)2:I> 958n "STOCK PRICE CHANGE NO HELD VALUE $"w !CA0 &I110 0VA(I,G)P(I) 5CACAV :40 DI N60 XD0ĺ"DIVIDENDS =$";D100 ]B(G)B(G)D bD0 lBR0ĺ"BROK hTT(I)0 rJ14" |M(I,J)0/ A(I,J)0@ B(J)1000000G JT A(I,5)0_ D(I)0f Iw B(5)1000000 :936 G1NP 2:958:60 "PLAYER IS ";N$(G) 60 A(1,G)0ĺ:"THIS PLAYER IS BROKE AND OUT OF THE GAME"150 I1NP6 "NAME OF PLAYER NUMBER ";I;" IS "A N$(I)H IY , INITIALISE 6S$(1)"AMP":S$(2)"BHP":S$(3)"CRA":S$(4)"CSR":S$(5)"GMH" @S$(6)"IBM":S$(7)"MLC":S$(8)"NCR":S$(9)"STC":S$(10)"TNT" JI110 TP(I)200 ^T(I)0  <I140:"-";:I:" d:936) n2G x11);"SHARE MARKET GAME"e 11);"-----------------" :"VERSION 2 :WRITTEN BY P JENNER.9/9/78" 10 "HOW MANY PLAYERS ARE THERE "; NP NP1ij NP5ĺ"THERE CAN ONLY BE 5 PLAYERS!": G N$(5),S$(10),P(10),T(10),C(10),TT(10),M(10,4),A(10,5),B(5),D(10)T(X)(((X)((X)0)(X0))(10))(X0)((X)10)#100(S$(I);10T(P(I)));P(I)100;17T(C(I)));C(I)100;29T(A(I,G))(A(I,G)10));A(I,G);38T(V));V1002      SEOL,RIO DEJANEIRO,CAIRO,PHILADELPHIA,DETROITcL HONG KONG,BERLIN,LENINGRAD,MANILLA,NEW DEHLIV BOSTON,KARACHI,MADRID,SAN FRANCISCO,WASHINGTON DC` SYDNEY,ROME,MILAN,SANTIAGO,MONTREALj LIMA,BARCELONA,MELBOURNE,PITTSBURG,MANCHESTER2t AT ALL.";(P.8(1));"PEOPLE"J"DEARLY LIKE TO SEE YOU ASSASSINETED"w"BUT WE ALL HAVE OUR TRIVIAL PROBLEMS.":N110:(7);:N"SO LONG FOR NOW.":"";"RUN HELLO"EAVY-HANDED PERFORMANCE SMACKS"R"OF NERO AND IVAN IV. THE PEOPLE (REMAINING)"z"FIND YOU AN UNPLEASANT RULER,AND""FRANKLY, HATE YOUR GUTS!!":990"YOUR PERFORMANCE COULD HAVE BEEN ""SOMEWHAT BETTER,BUT REALLY WASN'T""TOO BAD WITH ";L;"ACRES PER PERSON.":.pP133565;uL7565JzP110940W|L9940eP13960sL10960"A FANTASTIC PERFORMANCE!!! MR.MC BRIDE,""MR GOW, AND MR. WHITLAM COMBINED COULD ""NOT HAVE DONE BETTER!":990"YOUR HANOTHER STEWARD!!!"Y990D\"IN YOUR 10-YEAR TERM OF OFFICE,";q]P1;"PERCENT OF THE POPULATION STARVED "^"PER YEAR ON THE AVERAGE, I.E. A TOTAL"a"OF ";D1;"PEOPLE DIED !!":LAPf"YOU STARTED WITH 10 ACRES PER PERSON "h"AND ENDED!!":9905"HAMURABI: THINK AGAIN. YOU HAVE ONLY "ZS;"BUSHELS OF GRAIN. NOW THEN,"`"HAMURABI: THINK AGAIN. YOU OWN ONLY";A;"ACRES. NOW THEN," C((1)5)1!R:"HAMURABI: I CANNOT DO WHAT YOU WISH."W"GET YOURSELF Z1)P1D100P)Z'+PC:D1D1D:215V0:"YOU STARVED";D;"PEOPLE IN ONE YEAR!!!"5"DUE TO THIS EXTREME MISMANAGEMENT "6"YOU HAVE NOT ONLY BEEN IMPEACHED"7"AND THROWN OUT OF OFFICE BUT YOU HAVE"8"ALSO BEEN DECLARED A NATIONAL FINK !HAVE SOME BABIES,I(C(20AS)P1001)Z... HOW MANY PEOPLE HAVE FULL TUMMIES ??hC(Q20)...HORROR , A 15% CHANCE OF PLAGUEQ(10(2(1).3))&PC210'...STARVE ENOUGH FOR IMPEACHMENT ??(DPC:D.45P560)P1(("YOU HAVE ONLY";P;"PEOPLE TO TEND THE FIELDS ! NOW THEN ,"F440USS(D2)^800|... A BOUNTIFUL HARVEST!YC:HDY:E0 800 (C2)C2530 ...RATS ARE RUNNING WILD !!! E(SC)SSEH800... LET'S WITH SEED ?"; D:D0511+ D0850\ ...TRYING TO PLANT MORE ACRES THAN YOU OWN?j AD450s 720| 440 ... ENOUGH GRAIN FOR SEED? (D2)S455 710 440 ... ENOUGH PEOPLE TO TEND THE CROPS ? D10P510=40 ^AAQ:SSYQ:C0 Y "HOW MANY BUSHELS DO YOU WISH TO FEED YOUR PEOPLE ?";` Qm Q0850  ... TRYING TO USE MORE GRAIN THAN IS IN THE SILOS? QS430 710 410 SSQ:C1: "HOW MANY ACRES DO YOU WISH TO PLANTT ";Y;" BUSHELS PER ACRE."G @"HOW MANY ACRES DO YOU WISH TO BUY ? ";W AQ:Q0850f BYQS330o C710x D320 JQ0340 KAAQ:SSYQ:C0 N400 T"HOW MANY ACRES DO YOU WISH TO SELL ?? "; UQ:Q0850 VAQ350 W720 X3 ";P 0 "THE CITY NOW OWNS ";A;" ACRES."6 c "YOU HARVESTED ";Y;" BUSHELS PER ACRE."i "RATS ATE ";E;" BUSHELS." "YOU NOW HAVE ";S;" BUSHELS IN STORE.":  Z11860 6C(10(1)):YC17 8"LAND IS TRADING A: I BEG TO REPORT TO YOU,":ZZ1& R "IN YEAR ";Z;",";D;" PEOPLE STARVED, "t "AND ";I;" CAME TO THE CITY"~ PPI Q0230 P(P2) "A HORRIBLE PLAGUE STRUCK !!! HALF THE PEOPLE DIED." "POPULATION IS NOW  5);"HAMURABI"::3"CREATIVE COMPUTING";:^P"TRY YOUR HAND AT GOVERNING "U"ANCIENT SUMERIA , FOR A TEN-"Z"YEAR TERM OF OFFICE.":_D10:P10dZ0:P95:S2800:H3000:EHSnY3:AHY:I5:Q1D0 ::"HAMURABI     )4010 )VVS(J1):S(J1)0:J1&x8S(J1)S(J1)VPLLL(2):L103040L(2)0X14G(3)(G(3)2):"THE KING APPROPRIATES HALF YOUR EARNINGSAS PUNISHMENT FOR SELLING AT SUCH A LOW PRICE"GGG(3)"K24350(#"THE KINGS ARMY IS AT ";X1;"HL/HA = ";:1430:VX2ĺ"BUT YOU ONLY HAVE ";X2;"HA OF":"GOOD LAND!":3840rG(3)VX1:G(3)40003870"NO BUYERS HAVE THAT MUCH GRAIN.. SELL LESS!"J1:"BUYERS HAVE LOST INTEREST":V0:G(3)0L(2)V(J1311:VS(J13P(2)2X1:U1883100& P332980X CC1:X1(2CX(1)5):X1X1(X14)4(X14)8"LAND TO BUY AT ";X1;"HL/HA = ";:1430:G(3)VX1:G(3)Gİ1530:3640tL(2)V:S(3)S(3)V:V04020uX2S(1)S(2)S(3)SJ113:X1X11:"LAND TO SELL AVP11VGĺ"THE PEASANTS DEMONSTRATE BEFORE THE CASTLE WITH SHARPENED SCYTHES.":U1U13:3270xR G(2)V:GGG(2)p X1VP:X113ĺ"SOME PEASANTS HAVE STARVED DURING THE WINTER":P(2)(PV13):PPP(2) X1X114:X1X1(X14)4(X14):U1U1GE OF MANDATORY RETIREMENT.":30000b U10:K0ĺ"THE KING DEMANDS TWICE THE ROYAL TAX IN THE HOPE OF PROVOKING WAR. WILL YOU PAY IT? ";:1330:K2:V$"N"K1 "GRAIN FOR FOOD = ";:1430:VV(V100)VP(V100):VGİ1530:3270c S ABOLISHED YOUR DUCAL RIGHT!":::30000: L1993070i "YOU HAVE SO LITTLE LAND LEFT THAT":3100 U188U2993100 G4293130 "THE PEASANTS TIRE OF WAR AND STARVATION!YOU ARE DEPOSED!"::30000%: Y45K0ĺ"YOU HAVE REACHED THE A CROP DAMAGE DUE TO SEVEN YEAR LOCUSTS)"S ::"PRESS RETURN TO CONTINUE";A$:] 2461 ::YY1:I18:P(I)0::I13:L(I)0::I110:G(I)0: P(1)P:L(1)L:G(1)G P333040 "YOU HAVE SO FEW PEASNATS LEFT THAT") "THE KING HA 2 J1:"LAND AT END";20);L:J "100% 80% 60% 40% 20% DEPL"s J116:(J11)61);S(J1);:J1:: ::"PRESS RETURN TO CONTINUE";A$: J1110:G(J1)0J11ĺG$(J1);20);G(J1) J1:"GRAIN AT END";20);G:* Y0ĺ"(SEVERE);P;20);L;29);G: * R$"Y"2810S :"DETAILED REPORT FOR YEAR ";Y:: J118:P(J1)0J11ĺP$(J1);20);P(J1) J1 "PEASANTS AT END";20);P: ::"PRESS RETURN TO CONTINUE";A$:( J113:L(J1)0J11ĺL$(J1);20);L(J1)6,200,184,0,0,0  Q14:Q27:1050:R(1)GO:Q28:1050:R(2)GO:Q26:1050:R(3)GO:Q13:Q28:1050:R(4)GO:Q15:1050:R(5)GO:Q13:Q26:1050:R(6)GO Q28:1050:R(7)GO:Q14:1050:R(8)GO 2500 "YEAR PEASANTS LAND GRAIN" Y;9,K,D,P,L,G I18:P(I):0 I13:L(I):D I110:G(I):W I16:S(I):k I18:P$(I): I13:L$(I): I110:G$(I):   0,3.95,0,0,0,0,100,600,4177,96,0,0,0,0,0,-4,8,600,0,0,5193,-1344,0,-768,0,0,0,1516,-120,-300,21A OF LAND" #. T::13);"D U K E D O M"H U13);"-------------" V::"DO YOU WANT INSTRUCTIONS? ";:1330:V$"N"2050 F32:M1.95 4"DO YOU WISH TO SKIP THE DETAILED REPORTS AT THE END OF EACH YEAR? ";:1330:R$V$ Y,C1,U1,U2"ENOUGH TO BUY ";(GX1);"HA OF LAND"R "ENOUGH TO PLANT ";(G2);"HA OF LAND."X  :"BUT YOU DON'T HAVE ENOUGH LAND!":"YOU ONLY HAVE ";L;"HA OF LAND LEFT.": ":"BUT YOU DON'T HAVE ENOUGH PEASANTS!":"YOUR PEASANTS CAN ONLY PLANT ":4P;"HV$:V$""V$"N"Y 3V$(V$,1):(V$"N"V$"Y")ĺ"ANSWER WITH A 'YES' OR A 'NO'":1330_ 4 V$:V((V$)):V0ĺ"PLEASE ENTER A NON-NEGATIVE NUMBER.":1430 % :"BUT YOU DON'T HAVE ENOUGH GRAIN.":"YOU HAVE ";G;" HL OF GRAIN LEFT,":X14ĺ(R(Q1)((1)(1Q2Q1)Q1)RX(Q1)((1)(1F3(F3))F3R(Q1))\1620P(8),L(3),G(10),U(6),R(8),L$(3),G$(10)Q3((1)(1Q2Q1)Q1)((1)(1Q2Q1)Q1)5GO((Q3(1)(1Q2Q1)Q1)2):1060GOQ3$ 2          AIN AT START ","USED FOR FOOD ","LAND DEALS ","SEEDINGS ","RAT LOSSES ","MERCENARY HIRE ","FRUITS OF WAR ","CROP YIELD ","CASTLE EXPENSE ","ROYAL TAX "&0u:"DO YOU WISH TO TRY ANOTHER GAME? ";:1330:V$"Y"2180&:u"";"RUN HELLO" 2(U2.85)U1::"PRESS RETURN TO CONTINUE";A$:2460%X"PEASANTS AT START ","STARVATIONS ","KING'S LEVY ","WAR CASUALTIES ","LOOTING VICTIMS ","DISEASE VICTIMS ","NATURAL DEATHS ","BIRTHS "%"LAND AT START ","BOUGHT/SOLD ","FRUITS OF WAR "& "GR1d$G(8)(CG(8)):GGG(8):X1G(8)4000:G(9)G(9)(X10)(.1X1)(X10):G(9)G(9)120:GGG(9)r$K06790$X1(L2)$6X1X1(K2)2X1(K2):X1Gĺ"YOU HAVE INSUFFICIENT GRAIN TO PAY THE ROYAL TAX.":3000$TG(10)G(10)X1:GGX15%UD06500@#"THE BLACK PLAGUE HAS STRUCK THE AREA":D13:X23a#P(6)(PX2):PPP(6):6500#("A POX EPIDEMIC HAS BROKEN OUT":X2X15:P(6)(PX2):PPP(6)$dX1X(8)4:X1X1(P(5)0)4.5(P(5)0):P(8)(PX1):P(7)(.3P22):PPP(7)P(8):DD(X4L(3)):X640V:X6GG(6)X6:6250"G(6)G:P(5)((X6G)7)1:"THERE ISN'T ENOUGH GRAIN TO PAY THE MERCENARIES""jGGG(6):P(5)P(5)(P(5)P)P(P(5)P):PPP(5):LLL(3):U1U12P(4)3P(5)"X1X(7):X136500"X116440 #IS CROWN AND MAY BE PLANNING DIRECT ACTION":6130z!zX20ĺ"YOU HAVE WON THE WAR":X4.67:G(7)(1.7L(3)):GGG(7):6090!"YOU HAVE LOST THE WAR":X4G(8)L!X69X60:6130!X6(X610))"X6X6(X6P)P(X6P):P(4)P(4)X6:PPX6:G(8)G(8)J1)S(J1)X5:X1X1X5:J1A J146:X5S(J1):X1S(J1)X5X1a S(J1)S(J1)X5:X1X1X5:J1t L(3)3996010 "YOU HAVE OVERRUN THE ENEMY AND ANNEXED HIS ENTIRE DUKEDOM":G(7)3513:GGG(7):X647:X4.55:K061301!RK1:"THE KING FEARS FOR HMERCENARIES AVAILABLE":5590X2(X2M):X5(PX4)7V13:X6X24V(.25X5):X2X5X2:L(3)(.8X2):L(3).67Lĺ"YOU HAVE BEEN OVERUN AND HAVE LOST THE ENTIRE DUKEDOM":4190XX1L(3)bJ113:X3(X1(4J1)):X5S(J1):X3S(J1)X5X3 S(L"P(4)X11:X20:5570t"THE FIRST STRIKE FAILED ---":"YOU NEED PROFESSIONALS":P(4)X3X12:X2X23P(4)PPP(4):X21U1U12P(4)3P(5):6340"HOW MANY MERCENARIES WILL YOU HIRE AT 40 HL EACH = ";:1430:V75ĺ"THERE ARE ONLY 75 AINST YOU":X1X12:X2Y5:5380(X20AX3X(5):X3X16340y"A NEARBY DUKE THREATENS WAR":X2(X28518X(6))@X41.2U116:X5(PX4)13:"WILL YOU ATTACK FIRST? ";:1330:V$"N"5590AX2X55540B"PEACE NEGOTIATIONS WERE SUCCESSFUPP(3)iFK1ĺ"THE HIGH KING CALLS FOR PEASANT LEVIES AND HIRES MANY FOREIGN MERCENARIES":K2:6340xX1(111.5C):X1X1(X12)2(X12):K0P10917(L400)G106005350y"THE HIGH KING GROWS UNEASY AND MAY""BE SUBSIDIZING WARS AG:P67K15190+X1X(4):X1P305190"THE HIGH KING REQUIRES ";X1:"PEASANTS FOR HIS ESTATES AND MINES.":"WILL YOU SUPPLY THEM..(YES)":"OR PAY ";X1100;"HL OF GRAIN INSTEAD (NO)":1330V$"N"G(10)100X1:GGG(10):5190P(3)X1:P2)3:(Y7)7Yĺ"SEVEN YEAR LOCUSTS":CC2WX10:J115:X1X1U(J1)(1.2.2J1):lG(8)0C10:C0C1((C(X1G(8)))100)100:CC18"YIELD =";C;"HL/HA":X1X(3)3:X1951909G(5)((X1G)83):GGG(5)~"RATS INFEST THE GRAINERY"V:GGG(4)I16:U(I)0:9J116:VS(J1)4620_VVS(J1):U(J1)S(J1):S(J1)0:J1e U(J1)V:S(J1)S(J1)V:S(1)S(1)S(2):S(2)04J136:S(J12)S(J12)S(J1):S(J1)0:J1\J115:S(J11)S(J11)U(J1)::S(6)S(6)U(6),CX(OWN!!":"YOU AR NEARBY MONARCHY THREATENS WAR.":"HOW MANY......................"f}"";"RUN HELLO""LAND TO PLANT = ";:1430:VLİ1550:4350V4Pİ1570:4350 V0ĺ"YOU MUST PLANT SOME":4350NG(4)2V:G(4)Gİ1530:4350 vG(8)BOUT TO ATTACK YOUR DUCHY.":X1(G100)J"YOU HAVE HIRED ";X1;"FOREIGN":"MECENARIES AT 100 HL EACH (PAYMENT IN ADVANCE.)":8X1P23994220^"THE PLACEMENT OF YOUR HEAD ATOP THE CASTLE GATE SIGNIFIES THAT":3000Q|"WIPE THE BLOOD THE CR6)Y(1)Y(2)Y(3)Y(4)Y(5)h:"YOUR TOTAL POSSIBLE FOOD PRODUCTION THIS YEAR IS ";Y(6);" UNITS"{"";A$Y(6)Y(6)J"AFTER ALLOWING FOR CROPS STORED LAST YEAR THE TOTAL UNITS OF CROPS AVAILABLE FOR CONSUMPTION THIS YEA""";A$520|:"ONLY LIGHT RAINS HAVE FALLEN THIS YEAR, THEREFORE YOU HAVE HAD A DRY YEAR.""";A$520P540,540,700,700,700Y(1)A800Y(2)B60DY(3)C10XY(4)D40lY(5)E40Y(INEA CORN DO YOU WANT?";E+FABCDE1?F10500|"YOU HAVE NOT SELECTED 10 FIELDS PLEASE SELECT AGAIN."300P((1)5)P2515:"GOOD RAINS HAVE FALLEN THROUGHOUT THE YEAR, THEREFORE YOU HAVE HAD A WET YEAR.0  :"THIS IS YEAR ";NN,"HOW MANY FIELDS OF YAMS DO YOU WANT?";A}@"HOW MANY FIELDS OF MAIZE DO YOU WANT?";BT"HOW MANY FIELDS OF CASSAVA DO YOU WANT?";Ch"HOW MANY FIELDS OF MILLET DO YOU WANT?";D|"HOW MANY FIELDS OF GUETURN>";A$X0Y0"N0,NN19N2270" ""TO PLAY THE GAME FOR NEXT YEAR TYPE , TO END THE GAME TYPE .";U$ U$"E"240==== =========== =========== A. YAMS 80 10""B. MAIZE 60 50 C. CASSAVA 10 40 D. MILLET 40 60 E. GUINEA CORN 40 30 " " YOU "9 "NOW PUSH THE RETURN KEY.";A$? E F"YOU HAVE A CHOICE OF 5 DIFFERENT CROPS YOU CAN GROW - YAMS, MAIZE, CASSAVA, MILLET, AND GUINEA CORN. YOU WILL BE ASKED HOW MANY FIELDS OF EACH CROP "G"YOU WISH TO GROW. YOUF MEMBERS OF YOUR VILLAGE SUFFER FROM MALNUTRITION THEY WILL BE PRONE TO DISEASE. " " IF THEY DO SUFFER FROM DISEASE NEXT YEARS YIELD WILL BE DECREASED." " " " 3. IF YOUR FOOD PRODUCTION IS BELOW 450 UNITS YOUR VILLAGE WILL SUFFER FROM MALNUTRITION, CONSEQUENTLY, THE FOLLOWING YEARS YIELD WILL BE DECREASED. "j " 4. I OF FOOD PRODUCTION ARE- 1. WHETHER YOU HAVE HAD A WET OR A DRY YEAR. " " 2. A NATURAL DISASTER MAY OCCUR, THIS WILL DECREASE YOUR YIELD. PRODUCTION FOR THAT YEAR. NOW PUSH THE RETURN KEY." "";A$  "OTHER FACTORS WHICH WILL EFECT THE LEVEL"IN THIS GAME YOU ARE THE LEADER OF A VILLAGE IN WEST AFRICA. YOU WILL BE ASKED TO DECIDE WHICH CROPS THE VILLAGE WILL GROW EACH YEAR. YOUR DECISIONS WILL BE ONE OF THE FACTORS" "WHICH DETERMINE THE LEVEL OF FOOD           ROPS WILL BE CUT BY 15%."&&T15/&260&"YOUR VILLAGE HAS BEEN HIT BY MENINGITIS, NEXT YEARS CROPS WILL BE CUT BY 5%."&T5&#260'&"YOUR VILLAGE HAS BEEN HIT BY INFLUENZA, NEXT YEARS CROPS WILL BE CUT T BY BILLHARZIA, NEXT YEARS CROPS WILL BE CUT BY 5%."K%T5T%260%"YOUR VILLAGE HAS BEEN HIT BY SMALLPOX, NEXT YEARS CROPS WILL BE CUT BY 10%."% T10%260&"YOUR VILLAGE HAS BEEN HIT BY RIVER BLINDNESS, NEXT YEARS C10%."$T10$260j$"YOUR VILLAGE HAS BEEN HIT BY TYPHOID NEXT YEARS CROPS WILL BE CUT BY 5%."r$T5{$260$"YOUR VILLAGE HAS BEEN HIT BY YAWS, NEXT YEARS CROPS WILL BE CUT BY 10%."$T10$260C%"YOUR VILLAGE HAS BEEN HIA OUTBREAK, NEXT YEARS CROPS WILL BE CUT BY 5%.":#T5C#260#"YOUR VILLAGE HAS BEEN HIT BY YELLOW FEVER, NEXT YEARS CROPS WILL BE CUT BY 10%."#T10#260$"YOUR VILLAGE HAS BEEN HIT BY TRACHOMA, NEXT YEARS CROPS WILL BE CUT BY 30,1830,1840,1840,1840""YOUR VILLAGE HAS BEEN HIT BY SLEEPING SICKNESS, NEXT YEARS CROPS WILL BE CUT 10%.""T10"2602#"YOYR VILLAGE HAS BEEN HIT BY A MALARIO((1)6).!O1700,1700,1700,1700,260,260>!O((1)6)b!O1700,1700,1700,1700,1700,260s!S((1)30)y!"S1730,1730,1730,1740,1740,1740,1750,1760,1770,1770,1780,1780,1780,1790,1790,1790,1800,1800,1800,1810,1810,1810,1820,1820,1820,18 MALNUTRITION, CONSEQUENTLY NEXT YEARS CROP WILL BE REDUCED BY ";X;" %."b u"";A$ X51220,1240,1260,1280,1700,1700,1700,1700,1700 O((1)6) O1700,1700,260,260,260,260 O((1)6) O1700,1700,1700,260,260,260 !VE AVAILABLE FOR CONSUMPTION THIS YEAR IS ";Y(6)H"";A$ZY(6)450260e8I19LY(6)450(50I)Y(6)450(50(I1))XI5`IoX01200sO t"DUE TO YOUR LOW LEVEL OF PRODUCTION THE VILLAGE WILL SUFFER FROM CROP YIELD IS ";Y(6);" UNITS."1 "";A$9 X0AT0G"HOW MANY UNITS OF THIS YEARS CROPS DO YOU WISH TO STORE FOR CONSUMPTION NEXT YEAR? ";JY(6)Y(6)J5:"AFTER ALLOWING FOR CROPS STORED, THE NUMBER OF UNITS YOU HA FOR MALNUTRITION WHICH OCCURRED AS A RESULT OF YOUR LOW LEVEL OF PRODUCTION LAST YEAR, YOUR TOTAL CROP YIELD IS ";Y(6);"UNITS.":"";A$T01036Y(8)Y(6)T100Y(6)Y(6)Y(8)"AFTER ALLOWING FOR DISEASES YOUR TOTAL S THIS YEAR."&:"";A$:"AFTER NATURAL DISASTERS HAVE BEEN TAKEN INTO ACCOUNT YOUR LEVEL OF FOOD PRODUCTION IS ";Y(6);" UNITS.""";A$X01027Y(7)Y(6)X100Y(6)Y(6)Y(7)"AFTER ALLOWING1000="CIVIL WAR - 10% OF ALL CROPS DESTROYED."RY(6)Y(6)90100\1000b"LOCUSTS - 30% OF ALL CROPS DESTROYED."Y(6)Y(6)701001000"NORMAL HARVEST - NO CROPS HAVE BEEN LOST THROUGH NATURAL DISASTER+z"FLOODS - 10% OF ALL CROPS DESTROYED."@~Y(6)Y(6)90100J1000P"SEVERE DROUGHT - 20% OF ALL CROPS DESTROYED."Y(6)Y(6)801001000"MODERATE DROUGHT - 10% OF ALL CROPS DESTROYED."Y(6)Y(6)90100ASTER DISASTER DISASTER"#P"")Q7RG50846=SCT\Q879,889,899,909,909,919,929,939,939,939,939,939,939,939,939,939,939,939,939,939op"PLAGUE OF RATS - 10% OF ALL CROPS DESTROYED."tY(6)Y(6)90100w1000y)Y(6)J@N2840B:"AFTER ALLOWING FOR CROPS STORED LAST YEAR THE TOTAL UNITS OF CROPS AVAILABLE FOR CONSUMPTION THIS YEAR IS ";Y(6);" UNITS."C"";A$HQ((1)20)IQ7860MG1NGG1O"DISASTER DISR IS "Y(6)" UNITS."&"";A$/840=Y(1)A10KY(2)B50YY(3)C40gY(4)D30u Y(5)E60 Y(6)Y(1)Y(2)Y(3)Y(4)Y(5)4:"YOUR TOTAL POSSIBLE FOOD PRODUCTION THIS YEAR IS ";Y(6);" UNITS.">"";A$?Y(6EZUELA,UNITED KINGDOMW NORTH VIETNAM,SOUTH VIETNAM,RUSSIA,UNITED STATES,YUGOSLAVIAi**,COUNTRIES$ TOKYO,LONDON,SHANGHAI,OSAKA,MOSCOW. BUENOS AIRES,PARIS,MEXICO CITY,CHICAGO,LOS ANGELES8 CALCUTTA,PEKING,SAO PAULO,BOMBAY,DJAKARTA0BOUTH AFRICA,SOUTH AMERICA,NORTH AMERICA,SPAIN,SUDANd SURINAN,SWAZILAND,SWEDEN,SWITZERLAND,SYRIA TANZANIA,THAILAND,TOGO,TRINIDAD,TUNISIA UNION OF SOVIET SOCIALIST REPUBLICS,WALES,ZAIRE,YEMEN,ZAMBIA UPPER VOLTA,URUGUAY,VATICAN CITY,VENQUE7 NEPAL,NETHERLANDS,NEW ZEALAND,NICARAGUA,NIGER`NIGERIA,NORWAY,OMAN,PAKISTAN,PANAMA PARAGUAY,PERU,PHILIPPINES,POLAND,PORTUGAL QATAR,RHODESIA,RUMANIA,RWANDA,SAUDI ARABIA SCOTLAND,SENEGAL,SIERRA LEONE,SINGAPORE,SOMALIA3 SLY,JAMAICA; JAPAN,JORDAN,KENYA,SOUTH KOREA,NORTH KOREAe KUWAIT,LAOS,LEBANON,LESOTHO,LIBERIA LIBYA,LIECHTENSTEIN,LUXEMBOURG,MALAWI,MALAYA MALAGASY REPUBLIC,MALAYSIA,MALDIVES,MALI,MALTA MAURITANIA,MAURITIUS,MEXICO,MONGOLIA,MOZAMBIUINEA,EUROPE,FIJI,FINLAND,FRANCEUR GABON,GAMBIA,EAST GERMANY,WEST GERMANY,GERMANY\ GHANA,GREAT BRITAIN,GREECE,GUATEMALA,GUINEAf GUYANA,HAITI,HOLLAND,HONDURAS,HUNGARYp ICELAND,INDIA,INDONESIA,IVORY COAST,IRAN z IRAQ,IRELAND,ISRAEL,ITA,BURUNDI,CAMBODIA,CAMAROONR  CANADA,CENTRAL AFRICAN REPUBLIC,CEYLON,CHAD,CHILE}* CHINA,COLUMBIA,CONGO,COSTA RICA,CUBA4 CYPRUS,CZECHOSLOVAKIA,DAHOMEY,DENMARK,DOMINICAN REPUBLIC> ECUADOR,EGYPT,EL SALVADOR,ENGLAND,ETHIOPIA H EQUATORIAL GNDLAND" **,CANADIAN PROVINCESR AFGHANSTAN,AFRICA,ALBANIA,ALGERIA,ANDORRA ANGOLA,ANTARCTICA,ARGENTINA,ASIA,AUSTRALIA AUSTRIA,BAHRAIN,BANGLADESH,BARBADOS,BELGIUM  BHUTAN,BOLIVIA,BOTSWANA,BRAZIL,BRITISH HONDURAS BULGARIA,BURMAIANA,DELAWARE,MARYLAND,ARKANSAS,COLARADOZ ARIZONA,WEST VIRGINIA,TEXAS,NEVADA,OKLAHOMA WYOMING,MISSOURI,ALASKA,HAWAII,ILLINOIS **,U.S. STATES ALBERTA,MANITOBA,SASKATCHEWAN,QUEBEC,ONTARIO PRINCE EDWARD ISLAND,NEW BRUNSWICK,NEWFOUOLINA,RHODE ISLAND,UTAH,INDIANAV NORTH CAROLINA,VIRGINIA,SOUTH DAKOTA,OHIO,OREGON NEW MEXICO,NORTH DAKOTA,WISCONSIN,MICHIGAN,IDAHO CALIFORNIA,MISSISSIPPI,KANSAS,NEBRASKA,IOWA WASHINGTON,MONTANA,MINNISOTA,KENTUCKY,TENNESSE( LOUIS 0E1A":(B$(E),1)R$620-DI1UBNB$(E)U$(I)620IXIibB$(E):"YOU LOSE!!!!":520ulE:510v NEW YORK,NEW JERSEY,PENNSYLVANIA,CONNECTICUT,ALABAMA VERMONT,NEW HAMPSHIRE,MAINE,FLORIDA,MASSACHUSETTS GEORGIA,SOUTH CARH(B$(E),1)R$480%I1U:B$(E)U$(I)480AI^B$(E):UU1:U$(U)B$(E)uR$(B$(E),1):255|EG1510HG:G1:410"YOU WIN!!!!""PLAY AGAIN";A$:A$"YES"230& *** CHALLENGE SUBROUTINE ***ETTERS DON'T MATCH ***":260* 'U03355 ,E1UH 6A$U$(E)330l @" :***ALREADY USED ***:":260s JE~ TE1A ^A$B$(E)370 h390 rE |" ***ILLEGAL WORD***":260 R$(A$,1):UU1:U$(U)A$ G((99)A1):HAEGOU LOSE." > "PRESS RETURN WHEN YOU WISH TO START.";T$D p U0:C0:"DO YOU WANT TO GO FIRST";:A$ :A$"NO"250 C1:260 R$(((5)2665)):400 C0 A$:C1300 A$"CHALLENGE"550 (A$,1)R$300 "" *** L CONTINUE ";T$ "= "IF YOU CAN'T THINK OF A CORRECT "h "RESPONSE, YOU MAY TYPE 'CHALLENGE'." "IF YOU HAVE EXHAUSTED ALL POSSIBLE " "RESPONSES THEN YOU HAVE WON. IF NOT" "THE COMPUTER WILL SHOW YOU A POSSIBLE" "RESPONSE AND YNUE.";T$ 8 "THE COMPUTER WILL TELL YOU IF THE "^ "LETTERS OF YOUR ENTRY AND THE " "PRECEEDING WORD DON'T MATCH, THE WORD" "HAS ALREADY BEEN USED OR THE WORD IS" "NOT IN THE COMPUTERS MEMORY (ILLEGAL)"  "PRESS RETURN TOBY 5%."')T5'-260~'0"YOUR VILLAGE HAS BEEN HIT BY TAPEWORMS, NEXT YEARS CROPS WILL BE CUT BY 10%."'3T10'7260'` -----------------------"l***** THE NEXT INSTRUCTION CALCULATES THE CAPITAL STOCK FOR THE CURRENT YEAR.K0.97KI100P"WHAT IS THE MARGINAL TAX RATE THIS YEAR?";T2"""WHAT IS THE LEVEL OF GOVT. SPENDING THIS YEAR?";G ""YEAR ";K}****** THE NEXT TWO INSTRUCTIONS CALCULATE THE LABOUR FORCE AND LEVEL OF TECHNOLOGY FOR THE CURRENT YEAR.L1.015LA1.02A"PRICE LEVEL FOR LAST YEAR ";P"LEVEL OF INVESTMENT LAST YEAR ";I"---------------THE RETURN KEY. ";R$(1)=:"SUBSEQUENT YEAR CALCULATION"`&"---------------------------"g04q:NN1D"THIS IS YEAR ";NNX"LABOUR FORCE LAST YEAR ";Lbl"LEVEL OF TECHNOLOGY LAST YEAR ";Av"STOCK OF CAPITAL LAST PENDITURE"," $142":" GROSS DOMESTIC PRODUCT"," $675.11":" INVESTMENT",," $108"" DISPOSABLE INCOME"," $243.06":" CONSUMPTION EXPENDITURE $251.21":" PRICE INDEX",," 100"" UNEMPLOYMENT (TO BE READ AS 0.04) 4%READY? TYPE ER IN";A33A33#WS113540)"THE FIGURES FOR YEAR 1 ARE : ============================":" LABOUR FORCE",," 75":" TECHNOLOGY INDEX"," 100":" STOCK OF CAPITAL"," $1785"V" TAX RATE",," 0.35":" GOVERNMENT EXTOUT FROM EACH========================================RUN FOR SUBSEQUENT REFERENCE. =============================21:"NOW PUSH THE RETURN KEY";R$(1)"DO YOU REQUIRE A PRINTOUT";XAA$XAA$"NO"480 "WHAT SLOT NO. IS PRINTE READ AS MILLIONS":"":"EXCEPT THE LEVEL OF TECHNOLOGY AND THE":"":"PRICE LEVEL (WHICH ARE INDEX NUMBERS)":"":"AND THE LEVEL OF UNEMPLOYMENT WHICH IS":""{"EXPRESSED AS A DECIMAL AND READ AS A":"":"PERCENTAGE.":"":" YOU SHOULD KEEP YOUR PRINITH INFORMATION ABOUT THE":"":"PREVIOUS YEAR.":""|" AFTER EACH INPUT YOU SHOULD PRESS THE =================?==================== RETURN KEY. =========== NOW TYPE THE RETURN KEY.";R$(1)" ALL NUMBERS ARE TO BS IN ":"":"THE DOLLAR OF INCOME THAT YOU TAKE FROM"h"":"THE LABOUR FORCE. YOU CAN ALSO SET THE ":"":"LEVEL OF GOVERNMENT EXPENDITURE."4r"":" AS WELL AS MAKING THESE POLICY ":"":"DECISIONS, YOU WILL BE ASKED TO PROVIDE":"":"THE COMPUTER WE TWO POLICY MEASURES TO ACHIEVE THESE AIMS. NOW TYPE THE RETURN KEY ";R$(1)z T5^" YOU CAN SET THE TAX RATE. THIS MUST BE":"":"EXPRESSED AS A DECIMAL BETWEEN 0 AND 1,":"":"AND REPRESENTS THE NUMBER OF CENTTH NO" 6"":"INFLATION.":"":" FULL EMPLOYMENT IS DEFINED AS AN ":"":"UNEMPLOYMENT FIGURE OF 3% TO ALLOW FOR":"":"FRICTIONAL UNEMPLOYMENT.YOU WILL HAVE":"":"ACHIEVED ZERO INFLATION IF THE PRICE" @"":"INDEX DOES NOT RISE."t J"":" YOU HAV"TYPE THE NUMBER REQUIRED";( WS11. D WS11300,430,280N 1400W "430 ,:" THIS PROGRAM SIMULATES AN ECONOMIC"::"SYSTEM, IN WHICH YOU PLAY THE ROLE OF"::"THE GOVERNMENT'S TREASURER. YOUR AIM IS"::"TO ACHIEVE FULL EMPLOYMENT WIN HILL HIGH SCHOOL - APRIL 1979"1 P,I,L,A,KJ 100,108,75,100,1785x 10:5:"THIS IS VERSION 3.2 (JAN. 1980)" 15 "WHICH" "-----" "1.INSTRUCTIONS" "2.NO INSTRUCTIONS" "3.CONTINUE A STUDY ALREADY COMMENCED" 22 Z d PREPARED FROM PGS. 65 TO 73 OF "NEW DEVELOPMENTS IN THE TEACHING OF ECONOMICS"(EDITOR KEITH G. LUMSDEN). . nN1 x" " MACROECONOMIC SIMULATION":" ==========================":"":" BY A.C.BANKS, SWA2 10>"***************************************"m"*THIS PROGRAM WAS PREPARED FOR APPLE *"("* II AT SWAN-HILL HIGH SCHOOL, 1980 *"2"***************************************"<22F"PRESS RETURN TO CONTINUE";PAAQ$          AME A LOCATION"= S"WITH THE FIRST LETTER THE SAME AS THE"h Z"LAST LETTER OF THE PRECEEDING WORD."n ] `"YOU WILL PLAY AGAINST THE COMPUTER." d"ONLY THE FOLLOWING CATEGORIES WILL BE " g"USED." 3000  "PRESS RETURN TO CONTIA% GEOGRAPHY BY J AMSTERDAM FROM? CREATIVE COMPUTING.n APPLE-ED BY JEFF WIGNALL - FREMONT HIGH.t (B$(500),U$(500)AF"THIS IS A GAME OF GEOGRAPHY."I"A PLAYER NAMES A GEOGRAPHICAL LOCATION." P"THE OTHER PLAYER MUST N     8' WAGGA WAGGA HIGHB' /L' APRIL 1981):2:1000#BBA2:MMM2:1:1000<BBA1:MMM1:1:1000RA3A1A2:M3M1M2kBBA3:MMM3:3:1000SS(A3(1M3).5)SSS10İ2000X150SSS1:Y1150SSS150,Y1X1,Y1X1,150' PROGRAM BY'$' JOHN MESSING.'BS1Y1190İ2000;X250P15:Y2150(BBSMMP)15QY20PP1:1020bX1,Y1X2,Y2hzCHANGE SCALESSSF:S1S15 SOLNS1020503000 :200 LABELLING ROUTINESDRAW VARIOUS LINES BBA1:MM(1M11SS$"* *"CS$:SS$:SS$f"*";19(N$)2);N$;:39:"*"tSS$:SS$"*";19(M$)2);M$;:39:"*"SS$:SS$:"********************** J. MESSING *****" DRAW A LINEX150:P10:Y1150BST YEAR";KNN10"END OF PROGRAM")"WHAT WAS THE LEVEL OF INVESTMENT LAST YEAR ";If"WHAT WAS THE PRICE LEVEL FOR LAST YEAR ";P"WHAT WAS THE SIZE OF THE LABOUR FORCE LAST YEAR ";L"WHAT WAS THE LEVEL OF TECHNOLOGY LAST YEAR ";A "WHAT WAS THE STOCK OF CAPITAL LA TYPE 'STOP' AND RETURN. ";E$(1)WE$(2)"REPEAT"hE$(3)"STOP"~(E$(1)E$(2)13402E$(1)E$(3)1380<0FP""Z540d0n:1490x**CONTINUATION**"WHAT IS THE CURRENT YEAR ";N5P "":""3"THE LEVEL OF UNEMPLOYMENT IS";Uf"":"========================================r"":""y0D " TO TRY AGAIN FOR NEXT YEAR TYPE 'REPEAT' AND RETURN, TO STOP THE GAME ~"DISPOSABLE INCOME IS ";DY*""M"CONSUMPTION EXPENDITURE ";CU""x" TYPE RETURN KEY ";R$(1)~" POLITICAL RESULTS FOR YEAR ";N;" ARE =================================="""" THE PRICE LEVEL IS ";"STOCK OF CAPITAL IS ";K&""J"MARGINAL TAX RATE IS ";T2R$""u."TOTAL TAX RECEIPTS ARE ";T}8""B"GOVERNMENT EXPENDITURE ";GL""V"THE GDP IS ";Y`""j"INVESTMENT LEVEL IS ";It""" PYQU0.03950%PP@U0.03(PQY)(3PQ)SXAA$"NO"970\A33:"OUTCOMES FOR YEAR ";N;" ARE""----------------------------""THE LABOUR FORCE IS ";L"""LEVEL OF TECHNOLOGY IS ";A""6Y4Q(AK0.3L0.7)3000+>Q0860H"YOU HAVE ENTERED AN INCORRECT FIGURE.":"":"RE-ENTER THE LEVEL OF TECHNOLOGY, THE":"":"STOCK OF CAPITAL, AND THE LABOUR FORCE."R590\T94.5T2YfDY0.85YTpC27.60.92DYzYPQ930 THE NEXT TWELVE INSTRUCTIONS CALCULATE GROSS DOMESTIC PRODUCT, INVESTMENT, POTENTIAL OUTPUT, TOTAL TAX RECEIPTS, DISPOSABLE INCOME, CONSUMPTION EXPENDITURE, PRICES AND UNEMPLOYMENT FOR THE CURRENT YEAR. Y(0.9294.527.6G)(0.0580.92T2)*I0.1 VVWM1M1WG"I.B. EXPENDITURE ON BUYING COMMODITY= ";h(Q10000)100;" MILLIONS ""I.B. INCOME FROM SELLING STOCKPILES = ";(R10000)100;" MILLIONS "QR1000QR1025"YOU MADE A FINANCIAL SURPLUS "PRIATE ACTION "z850@"++PLEASE REPLY BUY,SELL OR NONE "I850Oh" QUANTITY = ";(K)" STOCKS NOW = ";(L)" MKT PRICE= ";(M)" FARM INCOMES = ";(S200)W10400*******TOTALS AND ANALYSIS PRINTOUT******%C1C *" PLANNED S= ";(D)8/" ACTUAL S= ";(F)N4" FREE MKT P= ";[9F0840e>" -"nC845xH(G)~MR"I.B. ACTION ";WJ$\J$H$905aJ$"BUY"855fJ$"SELL"880kJ$"NONE"895pK0905u"++INAPPRO"NONE"K0MC> ****TOTALS AND ANALYSIS********ISFMb(Z43)(S200)740oA1A11|W1760TSUS790ST775US785790TS 790USVVSM1M1M L2500810ET *******lH$"SELL"&qL0645/vK08{MGA725VJ(5000(AC))aKJFnKL675yLLKMC690KLL0M((5000(FK))A)RRKM725 ******PRICE EQUALS TARGET***********H$(&********INTERVENTION BOARD*********5+GC620B0GC705t5 *********PRICE FALLS BELOW TAEGET**********:H$"BUY"?J5000(AC)DJ0590IJ0NKFJSLLKXMC]QQKCb725 g ********PRICE EXCEEDS TARG *****CALCULATIONS*********(WW16C1M500CCM500[D2400(B(250M))d505|D2400(B(250C))D0515D0E((0).5)FDE(D(211(0))) F0535F0G((5000F)A)G1555!G1*****TARGET EACH YEAR ***********'8"YEAR ";W1>Q" TARGET P ";XCh(C)C440"++ WHOLE NUMBER ONLY"460W0450C1940(C1)(C2C)0475"++ LIKELY RANGE: 1 TO ";C2"RE-TYPE ";415FOR ",J"AGRICULTURE YOU MUST RAISE AND "YO"STABILISE INCOMES AT A MINIMUM LEVEL "P"OF AT LEAST ";(4Z3);" PER YEAR"TL0YU0^T0cA10hV0mM10rQ0wC10|R0W0C2(5000A100)! ****Y REACHING MARKET = 1 YEAR"! * "MYF '"NO. OF FARMERS = 200"L ,r 1"FREE MARKET PRICE YEAR 0 = ";Y 6"FARMERS PRESENT INCOMES= ";(Z);" PER FARM " ; @"FARMERS PROTEST ABOUT THIER LOW AND "E"FLUCTUATING INCOMES. AS MINISTER 245B "++SLOPES ARE UNREALISTIC - EQUILIBRIUM PRICE TOO HIGH"K 255Z Z200270r "++INCOME TO LOW"; "++RE-TYPE BOTH VALUES" 135  ******* STARTING POSITION *********  "TIME LAG BETWEEN DECISION TO SUPPLY AND SUPPL; B B(100B)0200K "++SHOULD BE POSITIVE AND LESS THAN 100"T 170s Y((2600(250B))(AB)) Z(2400(B(Y250)))Y200 A93270 Y100230 "++SLOPES UNREALISTIC - EQUILIBRIUM PRICE TOO LOW" 255 Y700A93135 dA92120 iA7* nB103 s200= xA12F }B10O 200U v "SLOPE OF DEMAND CURVE = ";} A A(100A)0165 "++SHOULD BE NEGATIVE AND GREATER THAN -100" 135 AA  "SLOPE OF SUPPLY CURVE = "***AGOM1 VERSION 10, 4TH JULY 1978 ***********P 7 COPYRIGHT - SCHOOLS COUNCILg <H$(5),J$(5),R$(6)m A F"SELECT MARKET : POTATOES(1) ,BEEF(2), ANOTHER(3) " KA9 P(A91)(A92)(A93)095 U"+++ PLEASE TYPE 1,2 OR 3"; Z75 _: I"SCHOOLS COUNCIL COMPUTERS IN THE CURRICULUM PROJECT"Q""s"AGRICULTURAL COMMODITIES 1"12:"**CONVERTED FOR APPLE II AT **""**SWAN HILL HIGH SCHOOL VIC. AUS. **""**BY D. WATERSON MARCH 1980**"20. 2 ***          !!! ! ! ! WSW1%Z$(3)900J*SW1SW1:16304,0:16297,0:16302,0:790c4SW0Ĺ16303,0:790u END ROUTINE}:N$"EXIT ECONOMIC MODELLING"M$"HOPE YOU LEARNT SOMETHING"::255S$"***************************************"INCOME (A) = $";OLDSOLN::M" CHANGE IN INCOME = $";SOLNOLDSOLN:dDE(ACAI)(BCBI)" CHANGE IN EXPENDITURE = $";DE::Z$KK(DYDE100.5)100 " CONSTANT MULTIPLIER K = ";KK22:Z$:Z$(13)410 Z$(27)S21:" SUPERIMPOSE THE TWO GRAPHS ":Rl" (ANSWER Y OR N ) ? ";Z$wv(Z$,1)"N"BC0:NC0:BI0:NI0200:" SCALE 1 UNIT = ";S::::"EQ. LEVEL OF INCOME (B) = $";SOLN:DY0790"EQ. LEVEL OF 'RETURN' TO LEAVE UNCHANGED"0 8:25:"";Z$E Z$""AC(Z$)T 8:25:ACg 11:25:"";Z$| Z$""MC(Z$) 11:25:MC &14:25:"";Z$ 0Z$""AI(Z$) :14:25:AI D17:25:"";Z$ NZ$""MI(Z$) X17:25:MI0b400 :) BCAC:NCMC:BIAI:NIMIY "CURRENT VALUES OF THE VARIABLES ARE:"::s 8:"AUTO. CONS. ";AC 11:" M.P.C ";MC 14:" AUTO. INV. ";AI 17:" M.P.I ";MI 21:"TO CHANGE ANY ENTER THE NEW VALUE"::"JUST PRESS,151J,153: 50,150200,0/ , DRAW LINESK 6A1AC:M1MC:A2AI:M2MIU @4000a JSOLNSSt TBC0NC0390 ^A1BC:M1NC:A2BI:M2NI h4000 rOLDSOLNSS |DYSOLNOLDSOLN  Z$:Z$(13)410 Z$(3)900 Z$(27)700 ";MI:Q MCMI1ĺ:"CAN'T DO THAT !! THE MPC+MPI MUST BE < 1":::110 ::"ENTER THE SCALE : 1 UNIT = ";S:S1S15:24 SFS :3:16302,0 50,050,150200,150 50,15050,190 J1519015:47,J49,J: J6520015:J39:"*"@ SS$:SS$:"********************** J. MESSING *****"J Z900R d14 n"ENTER THE AUTONOMOUS CONSUMPTION ";AC: x"ENTER THE M.P.C ";MC: "ENTER THE AUTONOMOUS INVESTMENT ";AI: "ENTER THE M.P.I 0  N$"ECONOMIC MODELLING"1 M$"PROGRAM I"> ::255o S$"***************************************"SS$"* *"S$:SS$:SS$"*";19(N$)2);N$;:39:"*"SS$:SS$ "*";19(M$)2);M$;:! !!!!!!!!!PROGRAM" D ";1200"REDUCED ";I"THE AVERAGE LEVEL OF MARKET PRICES"{"FOR CONSUMERS BY ";(((M1Y100)100));"%""ANOTHER TRY ";R$R$"YES"65R$"NO"1245"REPLY WITH 'YES' OR 'NO' "1220"END OF 1145?o"BUT FARM INCOMES TOO LOW. FARMERS PROTESTING."It1155wy"WHILE MOST FARMERS ARE SATISFIED WITH "~"THEIR AVERAGE LEVEL OF INCOME ""YOUR ACTIONS ";M1Y1185YM11195"CHANGED";1200"INCREASE"REASONABLE STABILITY OF FARM INCOMES ACHIEVED"<G1105]L"FARM INCOMES TOO UNSTABLE"cQtVL25001125["STOCKPILES REACHED 'MOUNTAIN' PROPORTIONS AT TIMES"`1130e"STOCKPILES KEPT AT REASONABLE LEVELS"jV200Z43ĺ"AVERAGE = ";(V200)1"HIGHEST = ";(T200)L$" LOWEST = ";(U200)T'22w)"PRESS 'RETURN' TO CONTINUE";*Z3$+."FARM INCOMES REACHED MINIMUM ACCEPTABLE LEVEL"3"IN ";A1;" YEARS OUT OF ";W8=(TU)(V25)11002B 1030."YOU MADE A FINANCIAL LOSS OF "I(((QR)10000))100;r"MILLIONS TO BE PAID BY TAXPAYERS."|1030"YOU JUST BROKE EVEN"" BUT DID YOU ACHIEVE YOUR MAIN OBJECTIVES? " "ANNUAL FARM INCOMES"1015(10);Q(6);15);Q(4);20);Q(3);D26);Q(4)Q(3)::C$:N1015[V0955z7);Q(2);14);"---";19);9607);Q(2);13);Q(4);19);Q(5);25);Q(6);30);Q(7)1E06980">10^6 LOSS"1015(Q(7).5) ***********"a(S5)(S6)09409f(S2)(S4)0905FkV0890pp7);Q(6);14);"---";19);"---";24);yu965z11);Q(6);16);Q(2);23);Q(4);29);965V092510);Q(6);15);"---";20);"---";26);"---":C$:Q(6)2DVE  Q(3)DVE0%Q(4)1E36=*V0820P/Q(4)Q(3)FVj4Q(7)(Q(2)Q(3))VFu9M27>IQ(M)100.5CQ(M)(I)100HQ(M)I100850MQ(M)Q(M).01RMW \****SUBROUTINE TO OUTPUT LINE *************T"D**** SUBROUTINE TO DETERMINE TARGET VALUES ***********[(S2)(S4)0765vV((BE)(DA)2.5)770V((FD).5)785  **** SUBROUTINE TO DETERMINE VALUES ***************Q(2)BAVQ(5)B2AV"BUT DEMAND HAS CHANGED"G"DO YOU WANT TO SELECT (1) OUTPUT"^" OR (2) PRICE ";eGkxG1720G2730"++PLEASE REPLY WITH 1 OR 2";690"Q P=AR ";735"P=AR Q ";" AC MR MC PROFIFIT" ]740!bA$"LOWEST AC"<g"FIND OUTPUT FOR ";A$BlYq"OUTPUT MC ";ov"AC AVG AFC"x{740A,B,D,E,FS5655D,E"YOUR FIRM'S DEMAND CURVE IS DOWNWARD""SLOPING"N5680A.000125S5545I,I565&!N1565-&B:+N2565A0BX5(S5)(S6)0640o:(S2)(S4)0610z?S150D"PRICE DETERMINED BY THE MARKET IS"F"NOW ";BI"FIND OUTPUT FOR ";A$NS"OUTPUT MC ";X"PRICE AC PRO**********>"DO YOU WISH TO RUN THE PROGRAM AGAIN ";H1280UR9170_1330 **** SUBROUTINE TO READ CONSTANTS AND OUTPUT HEADINGS *S155A$"MAXIMUM PROFIT"A,B,D,E,F(S1)(S2)0545 I,I,D,EFOUNR OUTPUT FOR "A$#4252N911195V"YOU WILL NOT REMAIN MANAGING"k"DIRECTOR LONG"u1185NN1(S1)(S3)0460(S2)(S4)0450N5470135N1470135N4135 ****RE-RUN SECTION*.05).09 JP(7)Q(7)I360& O350: TP(4)Q(4)360M YQ(4)P(4).01^ ^Q(7)P(7)I c ****OUTPUT RESULTS*********** h1025 m865 rN9N91 wL0410 |L2395 "YOU ARE WITHIN 2% OF OUTPUT FOR ";A$ 420"YOU HAVE 95 VP(2)275' V((VB)A.5)5 V0280> V0G 280P VWY 785f G1295r "Q(2)V 'WV360 ,P(6)Q(6)315 1D1VW 6Q(6)P(6)D1(D1)100 ;I(Q(7))10000 @(S2)(S4)0340 EI.01((I1000)I*** INPUT VALUES**************% V2 ((37)): V;G G2235W V(V)220v "++TYPE A WHOLE NUMBER "; 195 V(99999V)0280 "++TYPE NUMBER IN RANGE 0 TO 99999 "; 195 V0250 "++TYPE A POSITIVE PRICE "; 1115" i"++TYPE 1 2 3 4 5 OR 6";* n907 sS5125@ xN4F } **** READ CONSTANTS, COMPUTE TARGETS & OUTPUT HEADINGS* 500 750 Z10 Q(7)F165 V0 785 M27 P(M)Q(M) M WV N91 *L APRIL 1980"A 2 **** MAXPRO VERSION 11 17 APRIL 1978 ********z 7 **** COPYRIGHT - SCHOOLS COUNCIL****************** <P(7),Q(7) AA$(14),C$(10),R$(6) FG1 KZ0 PN1 S22 U"WHICH STAGE "; ZS _S(S)105 dS(7S)0p  4"SCHOOL COUNCIL COMPUTERS IN THE"N"CURRICULUM PROJECT"U8o"THEORY OF THE FIRM""------ -- --- ----"15#"TEXT DISTRIBUTED BY EDWARD ARNOLD LTD."(-"MODIFIED FOR APPLE II AT SWAN HILL" ."HIGH SCHOO"" " " " " """""""""