' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- (  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` d ֠Ġz# u` (4);"RUN MENU" E  B$(A) B$(A)"**"30604 B$(A)"=="3090> AA1H 3010P C$a " ";C$k 3010q { AA1 N0100F$NN1N;" ";(F$);" ";F$5020dEOVERGRAZING,MANURE,DUNG[ SUPERPHOSPHATE,NITRAM,TOPOGRAPHY,BASALT,LIMESTONE,ROCK,PODSOL FERTILITY,FERTILE,TOPSOIL,DRAINED,ALLUVIAL,GYPSUM,ALKALINE,ACID,PH RUN-OFF,TILLAGE,ELEMENT,ELEMENTS,DIRT YEAST,YEASTSF== A1 TION,CRACKO NITROGEN,OXYGEN,BACTERIA,PROTOZOA,FUNGI,STEM,NITRATES,NITRITES ORGANISMS,DRAINAGE,TERMITES,SLUGS,CENTIPEDES,LARVAE RHIZOBIA,LEGUMES,GRASSES,NODULES,RHIZOBIUM,NODULATION,MOISTURE SLATE,SANDSTONE,SHALE,GRANITE,OVERCROPPING,NTSH MILLIPEDES,SLATERS,PUPAE,LIFE,DECAY,MINERAL,MINERALS,AIR-DRIED SATURATED,LOAM,QUARTZ,AERATED,EROSION,CRUST,CRUSTING,PORE,PORES CULTIVATION,SELF-MULCHING,COLLOID,COLLOIDS,SALT,SALTS  PLOUGHING,EVAPORATION,EVAPOTRANSPIRATION,IRRIGAGANIC,NUTRIENTS,ROOTS,INORGANIC\ FERTILIZER,WATER,SUBSOIL,LEACHING,RAINFALL,PERCOLATION HORIZON,CLAY,SAND,SILT,MULCH,AIR,GRAVEL DRY,WET,MUD,SOIL,CLOD,COMPOST,CRUMBS,PED,PEDS AGGREGATE,AGGREGATES,LEAVES,EARTHWORMS,GRUBS,GROUND,WORMS,A)(4);"RUN MENU"4& *** CHALLENGE SUBROUTINE ***?0E1AW:(B$(E),1)R$620bDI1UwNB$(E)U$(I)620~XIbB$(E):"YOU LOSE!!!!":520lE:510v **,SOILS PROFILE,DECOMPOSITION,HUMUS,PARTICLES,TEXTURE STRUCTURE,ORA EGH%(B$(E),1)R$4800I1UEB$(E)U$(I)480LIiB$(E):UU1:U$(U)B$(E)R$(B$(E),1):255EG1510HG:G1:410"YOU WIN!!!!":"DO YOU WISH TO PLAY AGAIN (Y/N)";:A$A$"Y"230(13"" *** LETTERS DON'T MATCH ***":2605 'U0335@ ,E1US 6A$U$(E)330w @" :***ALREADY USED ***:":260~ JE TE1A ^A$B$(E)370 h390 rE |" ***ILLEGAL WORD***":260 R$(A$,1):UU1:U$(U)A$G((99)A1):HPONSE AND YOU LOSE." I "PRESS RETURN WHEN YOU WISH TO START.";T$O { 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( S RETURN TO CONTINUE ";T$ "H "IF YOU CAN'T THINK OF A CORRECT "s "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" "RESNTINUE.";T$  :C "THE COMPUTER WILL TELL YOU IF THE "i "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)"  "PRES GIVE ":: S"AN AGRICULTURAL WORD BEGINNING WITH THE":e Z"LAST LETTER OF THE PRECEEDING WORD."q ]::: `"YOU WILL PLAY AGAINST THE COMPUTER." d"ONLY THE FOLLOWING CATEGORIES WILL BE " g"USED." 3000 "PRESS RETURN TO CO % 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 AGRICULTURE.":I"A PLAYER GIVES AN AGRICULTURAL WORD": P"THE OTHER PLAYER MUST     ION OF 'HAMMURABI' ** COPIED & RE-PROGRAMMED FOR THE APPLE II - BY WEYMAN FONG FOR THE APPLE CORE ** 415-391-1915 ***}&'&' GIVEN TO APPLE CORE OF SAN FRANCISCO FOR USE OF MEMBERS.. . DECEMBER 1978 .&$' '.' LAST MOD.ONTINUE...>"$%(16384)1555690=%(16384)1605750O%16368,0::U%p%' ** 'DYNASTY' IS A MODIFIED ADAPTATION OF A PROGRAM PUBLISHED IN 'PEOPLE'S COMPUTERS' MAGAZINE -SEP/OCT '78 ISSUE CALLED - KINGDOM,w&' * WHICH IS AN EXPANDED VERSUN MENU")$D3:CT$"* DYNASTY *":5600H$NCT$"BY WEYMAN FONG":5600f$XCT$"DECEMBER 1978":5600$bCT$"IMPROVED VERSION OF HAMMURABI. ":5600$gCT$"WITH EXPANDED 'EVENTS' !":5600$v21:" PRESS 'ESC' TO END" %"< PRESS THE SPACE BAR TO CTH (ACRES PLUS BUSHELS) MUST"D#d" EQUAL OR EXCEED ONE MILLION !!"|#|23:5::" HIT ANY KEY TO BEGIN YOUR RULE ";:A$:##20(CT$)2#CT$#""##:16368,0:::10:10:"* * * THE END * * *"#<X11000:X$>(13)(4);"RACRES"$":" * SEED ALLOTMENT *"P"(5:"3 BUSHELS ARE REQUIRED FOR 1 ACRE""2:" * PRICE PER ACRE *":5:"RANGES BETWEEN 1 TO 9 BUSHELS PER""<:" * TO QUIT - TYPE IN A '-1' *""P:" TO BECOME 'EMPEROR OF ALL CHINA', YOUR#Z" TOTAL WEALTRUCTIONS & GUIDELINES FOR GAME ***[!:::" GUIDELINES FOR GOVERNING YOUR PROVINCE ":w!" * FOOD ALLOTMENT *"!5:"EACH PERSON REQUIRES 10 BUSHELS OF":5:"RICE TO SUSTAIN LIFE"! :" * FARM LABOR *""5:"EACH PERSON CAN ONLY PLANT 2 " KET CONDITIONS AND LAST, BUT NOT" :" LEAST, SUSTAINING & FEEDING YOUR"::" POPULATION. IF SUCCESSFUL, CHINA" :" WILL PROCLAIM YOU 'EMPEROR'.":::::10:" MAY BUDDHA BLESS YOU ": X0PAUSE1000::255#! *** PRINT INSX0PAUSE500:!100::::w" YOU ARE ABOUT TO RULE A PROVINCE"::" AND YOUR OBJECTIVE IS TO ACQUIRE":" WEALTH BY FARMING & TRADING YOUR"::" RESOURCES, ANTICIPATING GOOD AND"' :" BAD OCCURRENCES, PREDICTING MAR-":::1:"DYNASTY";::175:" *"x" * ------- *":" * *":" * * * * * *":7:"'YOU ARE A GOVERNOR OF HUNAN":7:"PROVINCE IN CHINA DURING THE":7:"YUAN DYNASTY (1260 TO 1368)'":ON ***U4:" !":" *":" *"" * *":" * *":" * *"" * * * *":" *** ***":" * ";:K TO SERVE"2:12:"AS HIS ";::" EUNUCH! ":k22:6::" YOUR DYNASTY LASTED ";Y;" YEARS "::255:8:" TRY AGAIN ? ( Y / N ) ";A$A$"Y"40A$"N"ĺ(13)(4);"RUN MENU"HN1R(3000)2000 :2020$ *** PRINT INTRODUCTIO BECOME"::18:"THE NEW"C:9::" * 'EMPEROR OF CHINA' * ":M2020uN01:1000:X0PAUSE1000:::1008:10:"YOU ARE THE SOLE SURVIVOR"::8:"OF HUNAN PROVINCE AND THE":8:"'EMPEROR' KUBLAI KHAN HAS" :8:"ORDERED YOU BAC *** MESSAGES FOR THE GOVERNOR ***.1000KX0PAUSE1000:::100:8:"YOU HAVE, BY YOUR MATERIAL-"::8:"ISTIC MACHINATIONS, AMASSED":8:"SUCH WEALTH THAT THE NOBLES"::8:"IN THE GREAT CITY OF PEKING":9:"HAVE CHOSEN YOU T^";:X410::" PEOPLE IN PROVINCE ";`10:" ACRES OF LAND OWNED ";10:" BUSHELS IN STORAGE ";:$X039:"^";:X.83:" ";N0;" "B4:" ";L2;" "L5:" ";N1;" "V:$N1C 140@:7::" ### HARVEST FOR YEAR ";Y;" ### ":r" ";L1;" BUSHELS PER ACRE---";A;" BUSHELS"{900 ** SUBROUTINE TO PRINT COMPUTED FIGURES IN REPORT WINDOW **34,6:111::" REPORT FOR YEAR ";Y;" ":X039:"*\AL1L3aBR(A2)(fCAB5uA0910hz:7::" ### HARVEST FOR YEAR ";Y;" ### ":|" ";L1;" BUSHELS PER ACRE----";A;" BUSHELS"~" LOSS TO RATS----------";B;" BUSHELS"" NET HARVEST-----------";C;" BUSHELS"N1к" ......DROUGHT..... ":&>8608CL(15)0852HHL1R(3)7aML21000L1R(3)6zOL25000L1R(3)5QL2105L1R(2)5R:11::" ////// RAIN ////// ":S860TL1R(4)3W ** COMPUTE & PRINT YEARLY HARVEST *AL(15)08100AR(100(L2100))500u ::" $$ RICE IMPORTS ARRIVE $$ ";::" ";A;" BUSHELS"%N1N1A*L(15)0835/L1R(2)14N15000L1R(2)26N125000L1R(3)28N125104L1R(2)39:11::...... -";N5L(10)07609AR(N120)(N120)v::" ??? GRAFT ??? ";::19:A;" BUSHELS MISSING"N1N1AL(10)0785AR(L210)(L220)::"><><><EARTHQUAKE><><><";::" ";A;" ACRES LOST" L2L2 ";A;" PEOPLE ";B;" ACRES"+N3N3A8L2L2BLN0N0N3N4N5\N012014 ** PRINT POPULATION CHANGES **:" POPULATION INCREASE........... +";N3" DEATHS FROM NATURAL CAUSES.... -";N4 " DEATHS FROM STARVATION.. 'MONGOLS'>>> ";::" ";A;" KILLED"[3:;A;" BUSHELS LOOTED ";C;" ACRES BURNED"hN4N4AuN1N1BL2L2CL(15)0705AR(20)10BR(N0250)50:7::" **** LAND ACQUISITION **** ":4:"GAINS: (N03)R(N022)>V *** COMPUTE RANDOM OCCURRENCES ***]::" +++++ 'PLAGUE' +++++ ";::" ";A;" PERISHED!"bN4N4AlL(10)0670qAR(N05)(N05)vBR(N120)(N120){CR(L250))::" <<< RAIDS BYN52)D::" !! FOOD SURPLUS !! ";::" ";A;" NEWCOMERS"N!N50[&N3N3Ad+590~0(L(5(N52)))05905AR((N5N1)(2N0))?::" << FOOD RIOTS >> ";::" ";A;" BUSHELS TAKEN"DN1N1ANL(10)0620SA000::500N1A"N10475,1000d:6:::" !!! RICE STORAGE EMPTY !!! ": ** COMPUTE EFFECTS OF FOOD ALLOTMENT **YY1N3R(N033)N4R(N042)N5N0(N210)N50560 N50590AR(3L30475 (L2L3)0440G"YOU ONLY OWN ";L2;" ACRES!"P400f(2N0L3)0455"YOUR POPULATION IS ONLY ";N0;" PEOPLE!"400AN13L3A0480"YOUR STORAGE IS ONLY ";N1;" BUSHELS!"400 1HOW MANY BUSHELS FOR FOOD? ";N2, hN2(N2); mN203000H rAN1N2V wA0390 |"YOUR STORAGE IS ONLY ";N1;" BUSHELS!" 350 N1A N10490 1000::23 "HOW MANY ACRES TO BE PLANTED? ";L3 L3(L3) L303000 'AL2C ,A0315> 1"YOU ONLY OWN ";L2;" ACRES!"G 6275Q ;L2Aa @N1N1CL1r E(BC)0335 J *** TEST FOR WIN *** O(L2N1L0)02000 TN10495 Y1000::23 [ ** READ AND VERIFY FOOD & SEED ALLOTMENTS ** ^"0270 AN1BL1" A0260R "YOUR STORAGE IS ONLY ";N1;" BUSHELS!"[ 215e N1Ar L2L2B 1000::23:"PRICE OF LAND IS ";L1;" BUSHELS PER ACRE" "HOW MANY DO YOU WISH TO SELL? ";C C(C) C03000 "C0325 : L30:N20K 1000: ** DISPLAY THE REPORT FIGURES IN WINDOW **~ *** READ AND VERIFY LAND TRANSACTIONS *** 23 :"PRICE OF LAND IS ";L1;" BUSHELS PER ACRE" "HOW MANY DO YOU WISH TO BUY? ";B B(B) B03000 B 5000: ** INTRO **) (PAUSE5:225L - ** RANDOMIZE FUNCTIONS **f 2R(Z1)((Z1)(1))} <L(Z2)R(100)Z2 F *** SET INITIAL PARAMETERS *** PY0:L0106 ZL1R(3)3 dN0R(75)75 nL2R(250)250 xN1R(3000)2000'16298,0:16368,0::8 " DYNASTY " ? \ BY WEYMAN FONG v APPLE CORE BOX 4816  S.F.CA 941011  DEC. 2, 1978    PAUSE5:200:CT$(40)5700          H 3010H H AA1H $H,HN02H;H100CHF$MHNN1gHN;" ";(F$);" ";F$qH5020dAOUTINE ***G0E1A-G:(B$(E),1)R$6208GDI1UMGNB$(E)U$(I)620TGXItGbB$(E):"YOU LOSE!!!!":520GlE:510GF==GG A1G G B$(A)G B$(A)"**"3060G B$(A)"=="3090G AA1G 3010G C$G " ";C$A FEGH%F(B$(E),1)R$4800FI1UEFB$(E)U$(I)480LFIiFB$(E):UU1:U$(U)B$(E)FR$(B$(E),1):255FEFG1510FHG:G1:410F"YOU WIN!!!!"F"PLAY AGAIN";FA$:A$"YES"230F G& *** CHALLENGE SUBR"" *** LETTERS DON'T MATCH ***":2605E'U0335@E,E1USE6A$U$(E)330wE@" :***ALREADY USED ***:":260~EJEETE1AE^A$B$(E)370Eh390ErEE|" ***ILLEGAL WORD***":260ER$(A$,1):UU1:U$(U)A$FG((99)A1):HPONSE AND YOU LOSE."DID"PRESS RETURN WHEN YOU WISH TO START.";T$OD{DU0:C0:"DO YOU WANT TO GO FIRST";:A$D:A$"NO"250DC1:260DR$(((5)2665)):400DC0DA$:C1300DA$"CHALLENGE"550D(A$,1)R$300(ES RETURN TO CONTINUE ";T$ C"HC"IF YOU CAN'T THINK OF A CORRECT "sC"RESPONSE, YOU MAY TYPE 'CHALLENGE'."C"IF YOU HAVE EXHAUSTED ALL POSSIBLE "C"RESPONSES THEN YOU HAVE WON. IF NOT"C"THE COMPUTER WILL SHOW YOU A POSSIBLE"D"RESNTINUE.";T$BB:CB"THE COMPUTER WILL TELL YOU IF THE "iB"LETTERS OF YOUR ENTRY AND THE "B"PRECEEDING WORD DON'T MATCH, THE WORD"B"HAS ALREADY BEEN USED OR THE WORD IS"B"NOT IN THE COMPUTERS MEMORY (ILLEGAL)"BC"PRES GIVE "::AS"AN AGRICULTURAL WORD BEGINNING WITH THE":eAZ"LAST LETTER OF THE PRECEEDING WORD."qA]:::A`"YOU WILL PLAY AGAINST THE COMPUTER."Ad"ONLY THE FOLLOWING CATEGORIES WILL BE "Ag"USED."A3000A B"PRESS RETURN TO COs%@ GEOGRAPHY BY J AMSTERDAM FROM?@ CREATIVE COMPUTING.n@ APPLE-ED BY JEFF WIGNALL - FREMONT HIGH.t@ @(B$(500),U$(500)@A@F"THIS IS A GAME OF AGRICULTURE.":@I"A PLAYER GIVES AN AGRICULTURAL WORD": AP"THE OTHER PLAYER MUST     3,61.9,42.3,126.5?3 68.9,63.5,42.9,127,70.5,65.6,43.4,127.5m8 72.3,67.7,43.9,127.7,73.8,70,44.3,127.9= 75.3,72.4,44.5,127.8,76.8,75,44.6,127.5B 77.9,77,44.7,127.3,79,79.5,44.6,126.9G 79.7,81.8,44.4,126.3,80.5,84.2,44.2,125.7#L 81.9,29.6,82.2: 55.2,50.7,31.1,86.8,56.1,51.5,32.3,92.6_ 57,52.3,33.6,96,58,53,35,101.5 59,54,36.1,106.3,60,54.8,37.3,111$ 61,55.7,38.3,115,62.1,56.6,39.4,118.5) 63.2,57.7,40.3,121.3,64.4,59,41.2,123.6. 65.7,60.2,41.8,125.5,67.Z$"N"1000970R91+R91754R90>1130f 42.5,37.5,16.5,46,44.2,39.5,18,50 45.7,41.2,19.5,53.6,47.5,42.7,21,57.6 48.8,44.2,22.5,61.5,50,45.6,24,65  51,47,25.5,69,52.1,48,26.8,73.1  53.3,49,28.2,77.5,54.2,49:"FINAL ";B$;" YIELD/sq.m = "::B;" g"L::"DOUBLE YIELD = ";B2;" g"w::"TOTAL FINAL YIELD = ";(AB);" g""----- ----- -----"23:8:"Press any key to continue";:A$:3:"Another set of plants(Y/N) ";:Z$Z$"Y"980  ";(AS100.5);"g"::24:"ROWS ";(S.5);"cm APART"g23:8:"Press any key to continue";:A$mv94023:8:"Press any key to continue";:A$:3:"FINAL ";A$;" YIELD/sq.m = "::A;" g"::"DOUBLE YIELD = ";A2;" g"(:/A5);"X"4T@>" +....+....+....+....+....+....+"kH" 0 200 400 600 800 1000"R12:"DRY MASS/sq.m (g)"\E1afA(A.5)kB(B.5)pM2908u2:20:"FIN.YIELD/sq.m = ";A;"g"z20:"FIN.YIELD/Rw.m =B B10J'T2(T2)820/T;BA5(A.0258)UB5(B.0258)cA58770qB587708);".";B58805A5B5815 A5B5795A5);A$;B5);B$820B5);B$;A5);A$ 820%A5);A$*820 81T4.0525T5.00032T68R3V3R3(A1(V3U3)H3U3)cBR3(156569.7T4.773T5.00404T6)l710vU4V4V424.21.14471T4.0221T5.00032T6R4V4R4(A1(V4U4)H4U4)BR4(153875.7T4.775T5.00242T6)J2725A679T5&qR1V1R1(A1(V1U1)H1U1)NvBR1(77.122T4.474T5.00485T6)W{710aU2V2V2412.823.2196T4.4190996T52.6725E03T6R2V2R2(A1(V2U2)H2U2)BR2(147358.2T41.04T5.00485T6)710U3V3V318.11.00520H11H21!H31*H413A10> J1MXK(J)550,560,570,580h&A1A1H1R1q+5850A1A1H2R25585:A1A1H3R3?585DA1A1H4R4IJNJ1MSK(J)615,640,665,690gU1V1lV12369.25T4.0"R3(S16.05006)(6.05006S11)+415NR4(S13.29788)(3.29788S11)UJA0:B0:V19.0016:V24.6454:V36.0501:V43.2979T4278T1T35T4T1T5T4T4T6T5T4H1,H2,H3,H4GAM1495GGBG2"ROW SPACING MUST BE BETWEEN 20 AND 500."1=N@"CHOOSE ANOTHER VALUE";WE305dJS11SMjTY"DAYS FROM PLANTING"cJ1MhK(J)380,390,400,410|R1(S19.0016)(9.0016S11)415R2(S14.64543)(4.64543S11)4154 M1295 M12275& M12; "Second kind?";D 170X K(1)K(2)295 "TWO DIFFERENT KINDS OF PLANTS MUST"  "BE CHOSEN" 160 ' ,"Distance between rows (20 - 500 cm)"; 1S 6(S20)(500S)0330 :+;65 "Which kinds?"+ "First kind? ";5 M11= B$K M12185U A$B$e B$"B"215u B$"O"225 B$"D"235 B$"T"245 "TYPE B O D OR T"; 170 K(M1)1 250 K(M1)2 250 K(M1)3 250 K(M1)и "You may investigate the growth of (B) barley (O) oats (D) dwarf peas (T) tall peas " "Type 'B','O','D' or 'T' " M2155 "Which kind?"; 130 <A$(3),B$(3),R$(4),K(2)& AE0/ K:3 P"Do you want to grow plants in (1) monoculture or (2) competition with a second type?" U"Type '1' or '2' ";:M _(M1)(M2)0115 d85 s x }E1136may choose the distance between the plant rows." -:"The computer provides you with dry mass yields after 78 days of growth and graphs the yield between days 42 and 78" 223:6:"Do you wish to continue(Y/N)?";:A$ 7A$"Y"60 9A$"N"11' :3:12::"PLANT COMPETITION":X::4:"CHELSEA SCIENCE SIMULATION PROJECT":"This program simulates the growth of various plant types in either:" :"(1) monoculture; or"#:"(2) competition with another type."0 (:"You            #"W";20(M$)2);M$;:39:"W"`SS$:"W DOS 3.2 JM W":SS$:S$f PROGRAM BY J MESSING JUNE 1980N1550,Y1X1,Y1X1,150L24:"EQUILIBRIUM POINT":"-----------------""QUANTITY ";(SX100.5)100;" PRICE "(SY100.5)100Z$N$"EXIT SUPPLY & DEMAND"::255S$:SS$:SS$"W";20(N$)2);N$;:39:"W"SS$:SS$ XJ1N bS(J)D(J)630$ lJ: vY2P(J):Y1P(J1)P X2S(J):X1S(J1)g MS(Y2Y1)(X2X1)w BSY1MSX1 X2D(J):X1D(J1) MD(Y2Y1)(X2X1) BDY1MDX1 SX(BDBS)(MSMD) SYMSSXBS X1SXQS1550Y1150SYPS50,050,150200,1506 J6520015:J,154J,151:JU J1513515:46,J49,J:J` J2N X1D(J1)QS1550:X3S(J1)QS1550 X2D(J)QS1550:X4S(J)QS1550 Y1150P(J1)PS15:Y2150P(J)PS15 X1,Y1X2,Y2:X3,Y1X4,Y2 &J"SCALE IS TOO LARGE. THERE ARE ONLY"::"10 GRADUATIONS ON THE AXIS":X hGOOFGOOF1 rGOOF3ĺ"COME ON NOW!! BE SERIOUS.": |GOOF4ĺ"THIS IS YOUR LAST CHANCE.": GOOF5ĺ"THAT'S IT!! I'M TERMINATING THIS.":999  :3 :(37)' " ";D(J):MQD(J)MQD(J)9 32,26:(37)H " ";S(J)T 32,0:[ Jf 33,40q ,GOOF0 6"PRICE AXIS SCALE 1 UNIT = ";PS @PS10MPİ350:310 J"QUANTITY AXIS SCALE 1 UNIT = ";QS TQS10MQİ350:330 Y400H ^19:"W"@ SS$:"W DOS 3.2 JM W":SS$:S$H :r d"HOW MANY POINTS IN THE SCHEDULE ";N~ n::: x" PRICE ";13);" DEMAND ";26);" SUPPLY ":: MP0:MQ0 33,13 J1N " ";P(J):MPP(J)MPP(J) 32,13 N$"SUPPLY & DEMAND"- M$"ECONOMICS": ::255k S$"WWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWWW"SS$"W W"S$:SS$:SS$"W";20(N$)2);N$;:39:"W"SS$:SS$ "W";20(M$)2);M$;:39:   " 6D$;"RUN AG WORDS-SOILS"; :D$;"RUN MATCHING SHEEP"S >D$;"RUN HELLO.OBJ" F7)"$";P(I);15)A(I);22)N(I);30)"$";I(I)E(I)6I<BHPIU[a PRICE SIGNS PLANTS DAY'S"{22)"SOLD";30)"PROFIT"I1DI;7)"$";P(I);15)A(I);22)N(I);30)"$";I(I)E(I)I LET'S LOOK AT A SUMMARY OF"6g"YOUR WEEK'S SALES:"<lgv"DAY PRICE SIGNS PLANTS DAY'S"{22)"SOLD";30)"PROFIT"I1DI;7)"$";P(I);15)A(I);22)N(I);30)"$";I(I)E(I)I(13)(4);"RUN MENU"NU";"YOU LOST A LOT OF INCOME NOT SELLING ":"THEM.";&1870k0"GOOD JOB; YOU SOLD ALL BUT ";N;" PLANTS."u:1870D"CONGRATULATIONS, YOU SOLD ALL OF YOUR":"PLANTS."NAA15000:AA:X"TO SEE WHAT EFFECT YOUR ADVERTISING HAD"b"ON SALESS TO LEARN THE BEST NUMBER OF "-"SIGNS."3U"DO YOU WANT TO TRY AGAIN ";]B$mB$"Y"190w1980P(J)P2E(J)E1N(J)N2I(J)I1N01860N501840"TOO BAD!!! YOU STILL HAD ";N;"PLANTS LEFT"1NY SIGNS SEEMED TO BE THE"0Y"BEST FOR YOU ";7^SJhS5S201670wr"IT LOOKS LIKE YOU HAVE THINGS FIGURED"w"OUT PRETTY WELL."|1690"YOU SHOULD TRY AGAIN, USING DIFFERENT""NUMBER OF SIGNS AND REALLY STUDY THE ""RESULTRNED SOMETHING TODAY "8""ABOUT HOW BUSINESSES WORK."e,"DO MORE ADVERTISING SIGNS MEAN 'MORE'"1"OR 'LESS' PLANTS SOLD ";6A$@A$"LESS"1605B1620E"ARE YOU SURE? BETTER TRY AGAIN."FAA11000:AAJ190T"GOOD, HOW MASELLING:"5"TOTAL";12)"TOTAL";30)"PLANTS"j"INCOME";12)"EXPENSES";22)"PROFIT";30)"LEFT""$";I;14)"$";E;22)"$";P;31)NJD152515301790J"THANKS FOR PLAYING 'SELLPLANTS'""I HOPE YOU LEAA$"N"I(J)I(J1)E(J)E(J1)1360D"YOU SHOULD LOOK AGAIN"N1380cAA13000:AA:zJ((D1)2)1480JD1530"FINAL SALES REPORT FOR ";N$1490"MID-WEEK SALES REPORT FOR ";N$: "AFTER ";J;" DAY(S) OF 0"SIGNS COST YOU $";E(J)E(J1);" MORE AND"b"YOUR INCOME INCREASED BY $";I(J)I(J1);"."h<rF1380P:"GOOD FIGURING, LET'S GO ON"Z1430d"DID THE EXTRA ADVERTISING HELP YOU ";nA$xA$"Y"I(J)I(J1)E(J)E(J1)1360'NCOME PLANTS LEFT"3" $";E1;17)"$";I1;28)N9C1740QJ11430hA(J)A(J1)1430"TODAY YOU MADE ";A(J)A(J1);" MORE SIGNS""THAN YESTERDAY.THIS HELPED YOU SELL ";N(J)N(J1) "MORE PLANTS THAN YESTERDAY. THESE EXTRA"E1A(J)A.01`III1#jEEE1=tP((IE)100.5)100H~NNN2R::~"DAY ";J;" FINANCIAL REPORT FOR ";N$::"PRICE ADVERTISING SIGNS PLANTS SOLD"P2P1.01" $";P2;16)A(J);33)N2"SIGN EXPENSES IOD FOR ONE DAY)"1060F"IT IS A GOOD IDEA TO TRY A DIFFERENT"r"NUMBER OF SIGNS EACH DAY SO YOU CAN ""FIND THE BEST NUMBER OF SIGNS TO MAKE."$A(J)).N2(N1N1(1(A(J)C)C2))8N2N1100BN2NLI1N2P1.01 V"Y OR N PLEASE"930'::-\"THIS IS DAY ";J;". HOW MANY ADVERTISING"~"SIGNS DO YOU WISH TO MAKE?"A5A51A521060A5110101040"(EACH SIGN WILL COST YOU ";A;" CENTS,""BUT THEY ARE ONLY GOTO SELL OUT THE ";N;" PLANTS YOU HAVE":"LEFT";7zA$GA$"Y"690WA$"N"915l"Y OR N PLEASE"u890C$"Y"950"WOULD YOU LIKE TO TRY MAKING SOME SIGNS""TO ADVERTISE YOUR BUSINESS";C$C$"N"840C$"Y"950 ON THE"69"FIRST DAY BY TELLING THEIR FRIENDS AND"d>"NOT TO SPEND ANY MONEY FOR ADVERTISING"qHA(J)0:{R1070\JD870aA50920b970f" DO YOU WANT TO HAVE A SALE AND LOWER"k"YOUR PRICE FOR THIS LAST DAY IN ORDER"/p"ARGE FOR EACH TOMATO PLANT";$P1*F CALCULATE NUMBER SOLDTP1P770N1P2N9P12:NUMBER SOLD IF PRICE#[A#[I#]J#]N#]O#]S#]T#]Y#]]#]^#ЦРӬĦ٬ϭȦŠҬҭȦϠӬϦ)y8#IJ@p(ȦԠάŦנĬ˦ˠĬŦǬǦ̬ӦĠ)[x<#ı@p(Р٠ЦРӬ̠1#[o2#ı@p(Р٬ЦРӬ٦ǬǦ٬ȦάŦ)g3#IJ@p(į̠ϦǬǦǬǦάĦҬŦŬŦ)4#[r7#ı@p(Р٠Ųa(ӠŠŠҠϠή)G\a()|[,Pa(ӠŠŠҠϠή)G+d.?(r.?)r.?$re`]Ҡ+`.?6@r%`.?6@r$d6?e`.?6@r%[w_ (#]-#qȠŠ)c(^a(ԠРϠӠƠ)c,ca(͠Š٠ՠŮ)cc'ha(Ҡ ӠϠȠͮ)c1mcca(ǠŠ٠Ġà)c'ra(ΠՠϠŠΠծ)woP&a():yoź]̠@ccc\ EM6/Ja()"Of lm,nlm,n'5Toa()G6WUVWde/?dr2de/?rMY2Yoa(ŠӠ*]"4]˯ŠŠӠ!>]̠Ԡ̠Π"R]ϠŠŠκ\]̠f]ϠŠ͠"p]ҠΠϠͺz]̠]ϠŠ͠"]ҠΠϠŭϭΔede$dede["]ĠĠ˯Š#]ĺ¯׺î]Ҡ̠Ӻ]Š]Š]]ҠĠӺ]̠ ]]ҠРӺ ]̠dyeH]dze d{e$d|ed}e d~e^dedededehdei]dedede#dededeLde"dedede]dede"dede%dededd]e$d^ed_e(d`e)dae dbedceddedee]dfedgedhediedjeQdke(dledme(dnedoe]dpe!dqedredse`dteduedve$dwedxe%edBedCe dDe dEe]dFedGedHedIedJedKeYdLedMedNedOeKdPeZdQedRedSe dTedUe[dVedWe`"]˯ԠԠРӪ]d\ed&ed'eY]qd(ed)ed*e d+ed,eZd-ed.ed/ed0ed1e]vd2ed3ed4ed5e d6ed7ed8ed9eXd:ed;e]{d<ed=ed>ed?ed@e dA ed ed e0d edededededede]gdededededededeLde dede]ldeXded e`d!ed"e[d#ed$ed%eԠ͠Ҡ9q`.?rZ.?r%[deZdede[ra(ŠȠ)[s]ŠҠҠX]àӠ]]deLdededeLde!dededeXded e]bd͠ӠƠǠӠΠ]Joa(ŠҠŠҠƠҠ)a(ĠӠŠΧ٠)GM6R@6T`7;@r$JUVW;@r`<@*rr$^Y_JB^`;@r$Jq<@r`$JqM6[!p]_ d6?e"q.?6@r`$d6?e`$`$q_8`$`2#%qo M6doM6d_]נ͠%"de.?Jrde.?Kr]Ϡ,q_=@]ԠԠӠϠX6oM6dYto`.?%r$qo Pd2e?a(ĠƠŠ)d2eq_IPa(ҠԠנΠŠ)d2eq_de8-#r!`7$qa(Ӻ)a(ĠנϠԠԠ))a(ˠנϠԠҠ)Oa(ξϠΠϠŠՠ)a(ŠԠ͠)2oa(Ԡͺ)GM6db8-#r4o`$UV WԠͺ)F.?rca(ŠĠƠŠ)T<ca(ΠϠթ)q\J`$`%de`$nFq_nFnM6Pa(ȠϠԠ͠)q.?r-#xoM6:oŠϠŠŠ͠Ơ)a(ŠĠ٠)oQ3M6oPa(ȠҠ͠)2oa(ՠ٠ȠĠҠĠ)E(oa(ՠ٠ΠǠͺ)ca(ŠԠ)cI2a(Š);ca(٠ŠԠϠנ)a()8de.?Jrde.?KrqN@"rq*q\J`$`$`$0`$!`$ q_0 `$o\rTo a(͠٠Ҡ)&oa(ŠŠ͠պ)c*a(Ҡנ)ca(Ժ)cTa(ԠԠͺ)F.?rca(٠Ԡͺ)F.?rcJa(ȠҠ͠ϠŠ)ca(٠ŠƠȺ)c[\a(Ϡ)Gİ@p()2d2e?a(Ӡξ)d2e[]Ġ͠dedede8:`.?r$dede]έƠؠd6?e\q0KM6Pa(ň6\a()FE(͠)G\qoİ@p()Q0\a()FE(Π)G\qoQ!oM6a(҇)Ua(Š٭ҠŠǠӬ)a(ǠŠĠ׬Ġ)/a(Šξ٠ԠŠĠ%a(̠ŠӠŠΠĬ)[a(ŠŠҠӠΠŮ)`%a(ՠ٠ҠԠĮ)Xca(ŠԠĠϮˮ)ca(ӠξϠΠϠ)d6?e#`.?6@r$d6?e_z #?    ԠΠ Π٠!ǠӭӠϠ ϮʠҠȠ ΠҠĠǠӠ ǠРLɠ ϠӠ ٠ĠĠ ՠҠȠҠŠԠנǠҠETE":& B$;:198::K$:K(K$)48; ,K17KT16130| 6CH1:CVSTK16:1000:C194(B$"RUN"B$"LOAD")B$"B"B$ @CH639:1000:B$B$(C):CH:1:868:B$:D$;B$:100 C1(CV8):C2CVC18:P1024128C240C1CH:C(P): DW B$"RUN":1:(A$,39);:A$(A$,2)(A$,1):K(16384):K128āK175:K:K(0):130z 16368,0:KK176:K1K5300 1:868:K5Ĺ34,0: "PRESS 'LETTER' YOU WISH TO ";:K1B$"LOAD" K2B$"LOCK" K3B$"UNLOCK" K4B$"DEL_::"ALAN POWELL 1983"(`34,2VdD$(4):D$"CATALOG":B(37)2:B22B22nT0:CH4:CV023:1000:C160ĹP1,219:P,T193:P1,221:TT1:SCVxCV:24:A$"TYPE LETTER TO RUN, OR LOAD =1 LOCK=2 UNLOCK=3 DELETE=4 EXIT=5 ...."}34,0 ET" D$;"RUN COW"( D$;"RUN KING"A pD$;"RUN IRRIGATION"Z XD$;"RUN STEER FEED"w @D$;"RUN AG COMMODITIES" (#D$;"RUN TOMATO PLANTS" 'D$;"RUN SUPPLY AND DEMAND" *D$;"RUN PLANT COMPETITION" .D$;"RUN DYNASTY" 2D$;"RUN HAMMURABI of your choice"5 ,11:"(and press 'RETURN')";:A$Y 6A((A$)):A1A16ĺ(7):310 @A1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000,13000,14000,15000,16000 D$;"RUN STEER GROWTH" D$;"RUN STEER AVERAGE" D$;"RUN MARK:"4. FRIESIAN COW 12. DYNASTY"Q :"5. KING 13. HAMMURABI" :"6. IRRIGATION 14. AG WORDS-SOILS" :"7. STEER FEED 15. MATCHING SHEEP" :"8. AG COMMODITIES 16. DISK CATALOG " "22:6:"Type the numberU$ ::12:15::"AGRICULTURE":0D$(4)AX12000:Xbd::14::"AGRICULTURE 1":hn:"1. STEER GROWTH 9. TOMATO PLANTS ":"2. STEER AVERAGE 10. SUPPLY & DEM. ":"3. MARKET 11. PLANT COMPET'N"%       25,15,5,5,10,30,90,901f 5,5,15,10,10,30,90,9079AILABILITY(KG/HA) ";A9WD]EfH115R 35,20,20,10,10,30,90,90\ 25,15,5,5,10,30,90,90f 5,5,15,10,10,30,90,905,90,90A,10,10,30,90,90+\ 25,15,5,5,10,30,90,90Gf 5,5,15,10,10,30,90,90b(13)(4);"RUN MENU" 5,5,15,10,10,30,90,90CKING RATE ";SC:"INITIAL PASTURE AVAILABILITY(KG/HA) ";A9DEH115R 35,20,20,10,10,30,90,90\ CHECK YOUR INPUT DATA TO SEE"::"IF IT WAS CORRECT"iA:"INITIAL AGE AND WEIGHT OF STEERS ";A1;",";W0B:"LIVEWEIGHT TO COMMENCE FEEDING ";W1::"STOCKING RATE ";SC:"INITIAL PASTURE AVAILABILITY(KG/HA) ";A9DEH115R 35,20,20;30);(HS100)100W2" U"WEIGHT OF STEERS ";W::"HAY FED/STEER ";HSq  G=GROSS RETURN PER HA*G(WW0)S0.8H0.08S84"GROSS MARGIN/HA= $";G>837?I110::4:"***THE MODEL HAS BROKEN DOWN***":"":I4@:"PLEASE 720C0720:I1.00.35((1.00000E03C2))ICCW41.5ZAAC1US7iWM1730rM1W TRAMPLING FACTOR REL. TO STOCKING RATEAA(15.00000E05AS)R0770(W3100)100;10);(A100)100;20);(W100)100 FEED PER ANIMAL*H1D(18.40.750.82)6H1H17C&HHH1SL0720b:E0.030.6640.75vDW4(F4F3)EC3NW4W47XWWW4b690lE0.732vW4(F4F3)C3EW47W4WWW4 COMPENSATORY INTAKE/GAIN FACTORCCW4ED FOR MAINTENANCEF3F1F2B F4=MET. INTAKE FROM PASTURES]F4C1U18.40.750.82 IF PASTURE INTAKE EXCEED MAINTAINANCE REQ'D, NO HAY FEEDING RESULTSC36.280.3(F4F3)0.0188WF4F3570WW1620DF3F4 H1=HAYONSUMPTION'hC11.0(2.50000E03A);rUI0.07W0.75j| F1 =FASTING HEAT REQUIREMENTS FOR STEERSF1(0.2770.406(A11.2))W0.73F1F11.3 F2=EFFICIENCY OF UTILIZATION OF M.E. FOR MAINTENANCEF20.72 F3=MET. ENERGY REQUIR2132 WW00.75290_ "SACK THE MANAGER!!! YOUR STEERS STARVED"::"TO DEATH!!!!!!!!!"h 837 " DETERMINE ACTUAL GROWTH RATES ,W3((W23)4) 6W4W31 @RW24W33 JG1G(W3)(G(W31)G(W3))R4 TAAG1(1.10.1S)4 ^ C1=C M1W00 M1=MAXIMUM WEIGHT ATTAINED(KG.)6 ? WW0b "STOCKING RATE (#/HA) = ";S: "INITIAL PASTURE AVAILABILITY" :" (KG/HA) = ";A9 A9A I1 H0 C0 "MONTH AVAIL. WEIGHT HAY/STEER" WPLEASE TYPE 1,2 OR 3" :118+ J1M6 I18@ G(I)Q G(I)G(I)28X I_ Jj G(9)0p "INITIAL AGE OF STEERS (MNTHS) =";A1 "INITIAL WEIGHT OF STEERS (KG) =";W0 "LIVEWEIGHT TO COMMENCE FEEDING (KG) =";W10 F24:6:"Do you wish to continue(Y/N)?";:Z$A PZ$"N"1000 d PRODUCTION SYSTEMS SECTION, A.R.I. WERRIBEE, VICTORIA-CONTACT DR. DAVID WHITE i nG(9) s x"ENTER 1,2,3 FOR GOOD,MEDIUM,POOR YEAR";M }(M1)(M2)(M3)0130 ~:"d in this":"model, equations are used to represent:"U :"(1) the animal intake" :"(2) the effect of trampling on pasture" ":"(3) the weekly pasture growth rate" $:"(4) the metabolizable energy intake from pasture and hay."c " :2:15::"STEER GROWTH":(:"This program simulates the growth of":"steers on green pasture from April to":"November."5 :"A normal simulation model of agricult-":"ural enterprises consists of sets of":"mathematical equations an     CHECK YOUR INPUT DATA TO SEE"::"IF IT WAS CORRECT"iA:"INITIAL AGE AND WEIGHT OF STEERS ";A1;",";W0B:"LIVEWEIGHT TO COMMENCE FEEDING ";W1::"STOCKING RATE ";SC:"INITIAL PASTURE AVAILABILITY(KG/HA) ";A9DEH115R 35,20,20;30);(HS100)100W2" U"WEIGHT OF STEERS ";W::"HAY FED/STEER ";HSq  G=GROSS RETURN PER HA*G(WW0)S0.8H0.08S84"GROSS MARGIN/HA= $";G>837?I110::4:"***THE MODEL HAS BROKEN DOWN***":"":I4@:"PLEASE 720C0720:I1.00.35((1.00000E03C2))ICCW41.5ZAAC1US7iWM1730rM1W TRAMPLING FACTOR REL. TO STOCKING RATEAA(15.00000E05AS)R0770(W3100)100;10);(A100)100;20);(W100)100 FEED PER ANIMAL*H1D(18.40.750.82)6H1H17C&HHH1SL0720b:E0.030.6640.75vDW4(F4F3)EC3NW4W47XWWW4b690lE0.732vW4(F4F3)C3EW47W4WWW4 COMPENSATORY INTAKE/GAIN FACTORCCW4ED FOR MAINTENANCEF3F1F2B F4=MET. INTAKE FROM PASTURES]F4C1U18.40.750.82 IF PASTURE INTAKE EXCEED MAINTAINANCE REQ'D, NO HAY FEEDING RESULTSC36.280.3(F4F3)0.0188WF4F3570WW1620DF3F4 H1=HAYONSUMPTION'hC11.0(2.50000E03A);rUI0.07W0.75j| F1 =FASTING HEAT REQUIREMENTS FOR STEERSF1(0.2770.406(A11.2))W0.73F1F11.3 F2=EFFICIENCY OF UTILIZATION OF M.E. FOR MAINTENANCEF20.72 F3=MET. ENERGY REQUIR2132 WW00.75290_ "SACK THE MANAGER!!! YOUR STEERS STARVED"::"TO DEATH!!!!!!!!!"h 837 " DETERMINE ACTUAL GROWTH RATES ,W3((W23)4) 6W4W31 @RW24W33 JG1G(W3)(G(W31)G(W3))R4 TAAG1(1.10.1S)4 ^ C1=C M1W00 M1=MAXIMUM WEIGHT ATTAINED(KG.)6 ? WW0b "STOCKING RATE (#/HA) = ";S: "INITIAL PASTURE AVAILABILITY" :" (KG/HA) = ";A9 A9A I1 H0 C0 "MONTH AVAIL. WEIGHT HAY/STEER" WPLEASE TYPE 1,2 OR 3" :118+ J1M6 I18@ G(I)Q G(I)G(I)28X I_ Jj G(9)0p "INITIAL AGE OF STEERS (MNTHS) =";A1 "INITIAL WEIGHT OF STEERS (KG) =";W0 "LIVEWEIGHT TO COMMENCE FEEDING (KG) =";W10 F24:6:"Do you wish to continue(Y/N)?";:Z$A PZ$"N"1000 d PRODUCTION SYSTEMS SECTION, A.R.I. WERRIBEE, VICTORIA-CONTACT DR. DAVID WHITE i nG(9) s x"ENTER 1,2,3 FOR GOOD,MEDIUM,POOR YEAR";M }(M1)(M2)(M3)0130 ~:"d in this":"model, equations are used to represent:"U :"(1) the animal intake" :"(2) the effect of trampling on pasture" ":"(3) the weekly pasture growth rate" $:"(4) the metabolizable energy intake from pasture and hay."N " :2:15::"STEER GROWTH":(:"This program simulates the growth of":"steers on green pasture from April to":"November."5 :"A normal simulation model of agricult-":"ural enterprises consists of sets of":"mathematical equations an"GRP 1 AVE ="X ( "GRP 2 AVE ="Y. K "TOTAL GROUP AVERAGE="ZQ a " HOWZAT "g m s A15000: "AGAIN(Y/N)?";:Q$ Q$"Y"10 (13)(4);"RUN MENU"GROUP 1)?=";X1 -X10270" 2I <"2ND STEER WEIGHT (GROUP 1)?=";X2O Fv P"1ST STEER WEIGHT (GROUP 2)?=";Y1| Z d"2ND STEER WEIGHT (GROUP 2)?=";Y2 n xX(X1X2)2 Y(Y1Y2)2 Z(X1X2Y1Y2)4 :6  ) :2:14::"STEER AVERAGE"::"This short program calculates the average weight of steers in two groups, each group containing two steers.":"You are asked to enter the weights of the steers." ("1ST STEER WEIGHT (  \aZ124::9k:12:"QUARTER ";Q;" REPORT"::C$(J);":"::"PROFIT";T);"$";UI(J)C(J)B(J);T$:"MARKET SHARE";T);W(J);"%""CASH ON HAND";T);"$";C(J);T$:"NUMBER SOLD";T);T(J);T$;" UNITS"""INVENTORY";T);I(J);T$;" UNITS":"AS;" FOR $";A;"?":"TRY A LOWER PRICE.":760X%P(J)0ĺ:"YOU CAN'T GIVE IT AWAY!":760*P(J)0ĺ:"NO NEGATIVE NUMBERS, PLEASE!":760/J4A2A(1)A(2):A208459V(1)0:V(2)0:855MV(1)A(1)A2:V(2)A(2)A2WD1(K2K2(KA2))K4J)C(J)FL(J)UA(J):E(2)17604I(J)I(J)L(J)Z:"UNIT PRICE? $";A:E(1)1800kAP(J)800{P(J)0800:"YOU MAY NOT RAISE PRICES DURING A WAGE- PRICE FREEZE."::760* P(J)A:A200ĺ:5)"... WHO WOULD BUY A":(P$,((P$)2))156:"NO PRODUCTION POSSIBLE DUE TO STRIKE.":730:"PRODUCTION LEVEL? ";L(J):L(J)0ĺ:"NO NEGATIVE NUMBERS PLEASE.":715L(J)L(J).001:"ADVERTISING BUDGET? $";A(J):A(J)0ĺ:"NO NEGATIVE NUMBERS PLEASE.":730!A(J)A(J).001:C(:"DO YOU WANT TO PLAY AGAIN? ";A$:(A$,1)"N"670b(A$,1)"Y"ĺ:"YES OR NO, PLEASE.":635s::10:140:"I HOPE YOU ENJOYED PLAYING 'MARKET'! COME AGAIN ANOTHER TIME."255:(13)(4);"RUN MENU":J12:::C$(J):E(2)170:B(J)C(J)UI(J):B(J)0580++:975:<DB(J)M1620[IB(J)C(3J)UI(3J)620NP417:::255:Z140:"*";::C$(J):90S"YOU HAVE REACHED $";.001M1;" MILLION AND WON!":Z140:"*";::XJ1İ50lJ:50::P4174103{:)T(J):JEJ12:C(J)C(J)RI(J)UK3C(J)((C(J))(C(J))2)2VC(J)(C(J))fE(5)0530vW(J)0:540T(1)T(2)0520W(J)(10000T(J)(T(1)T(2)))100J!J12:I(J)(I(J)):C(J)(C(J)):B(J)(B(J)):T(J)(T(J))&900:T(J)0:B(J)UI(J)C(J):900:)650CQQ1:1060:675:865X COMPUTE DEMANDJ12:D(J)(1E(5)).5(K22V(J)D1)(P(J)50)N:1000:J12:D(J)I(J)475T(J)D(J):480T(J)I(J) T(J)(T(J)):C(J)C(J)T(J)P(J):I(J)I(J ADVERTISING AND A SELLING PRICE OF $50/ UNIT, A COMPANY WILL SELL ":K2500" UNITS.":"WAREHOUSE CHARGE FOR INVENTORY = ";R100;"%":""INTEREST CHARGE ON BORROWED MONEY = ";K3100;"%"'50,J15:E(J)0::P40:875!1J12:W(J)0:D(J) "ENTER PREVIOUS INVENTORY: ";I(J)::I(J)(I(J)1000):J: "ENTER VARIABLE PRODUCTION COST: $";U:::"ENTER QUARTER NUMBER: ";Q :"FIXED PRODUCTION COST = $";F1000;"/QUARTER": "VARIABLE PRODUCTION COST = $";U;"/ UNIT":W"WITH NOE "PLEASE ENTER THE NAME OF THE SECOND COMPANY: ";C$(2)::s "ARE YOU BEGINNING/CONTINUING THE GAME?" "(B OR C)?";A$:(A$,1)"B"270 (A$,1)"C"215 :J12:C$(J):"ENTER PREVIOUS CASH ON HAND: $";C(J):C(J)(C(J)1000.5)>."\ :"THE GAME ENDS WHEN ONE COMPANY GOES BANKRUPT OR REACHES $";.001M1;" MILLION"t "IN TOTAL ASSETS." :::6:"DO YOU WISH TO CONTINUE(Y/N)?";:Q$ Q$"N"671  "PLEASE ENTER THE NAME OF THE FIRST COMPANY: ";C$(1):::Q0 ::"THIS PROGRAM SIMULATES COMPETITION BETWEEN TWO COMPANIES, EACH SELLING ITS OWN BRAND OF AGRICULTURAL MACHINERY ON THE OPEN MARKET."  "HOW MUCH EACH COMPANY SELLS DEPENDS ON THE PRICE AND HOW MUCH IS SPENT ON ADVERTISINGBIN7 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) :2:100:15:"M A R K E T":WW1500:WW K2,N,K,K3,C(1),C(2),I(1),I(2),F,U,R,G1,G2,G3,M1,K4,T,T$ 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          ,10,10,30,90,90+\ 25,15,5,5,10,30,90,90Gf 5,5,15,10,10,30,90,90M TO SWAP DISK 15/3/80/80 SAN JUAN UNIFIED SCHOOL DISTRICT SACREMENTO USA"a ADDED TO SWAP DISK 15/3/80DEHYDRATOR":,!P$"A COMPUTERIZED YOYO":S!P$"A ROCKET-POWERED SKATEBOARD":!` THIS PROGRAMME COMES FROM KYDE TYME PROJECT SAN JUAN UNIFIED SCHOOL DISTRICT SACREMENTO USA!a ADDED TO SWAP DISK 15/3/80USA"a ADDEDRIKE SETTLED. NORMAL PRODUCTION RESUMED.":"NEW VARIABLE COST = $";U;"/ UNIT DUE"{ "TO INCREASED WAGES."::E(2)0  (4);"RUN MENU" A%4(1):A%11525,1530,1535,1540 P$"A LASER CIGARETTE LIGHTER": !P$"A SOLID-STATE WATER OKS DIM."::E(1)114500QQ121450;E(1)2e"THE WAGE-PRICE FREEZE HAS ENDED.":wE(5)11475Q2Q1475E(5)0"TRANSPORTATION STRIKE SETTLED. NORMAL DELIVERIES RESUMED.":E(2)11505Q3Q1505W "STBLE TO MOVE YOUR GOODS TO THE";vd"DISTRIBUTORS. NEGOTIATIONS HAVE BEGUN, BUT HOPE OF A SETTLEMENT LOOKS DIM."::x"THERE HAS BEEN A STRIKE, AND YOUR":"PRODUCTION HAS BEEN STOPPED." }"NEGOTIATIONS HAVE BEEN STARTED, BUT HOPEOF A SETTLEMENT LO$";C(I);T$::jFC$(J):"HAS SUFFERED FIRE DAMAGE IN ITS":"WAREHOUSE.":"ALL THE ";(P$,((P$)2));"S"K"WERE DESTROYED. YOUR INSURANCE WILL PAY $";(UI(J).75);T$;" FOR YOUR LOSS. ":_"A TRANSPORTATION STRIKE HAS OCCURED, ANDYOU ARE UNAJUST IMPOSED A WAGE- PRICE FREEZE ON THE ECONOMY AND YOU MAY""NOT RAISE THE PRICE OF YOUR PRODUCT OVERTHE NEXT 2 QUARTERS."::-C$(I):"HAS BEEN THE VICTIM OF EMBEZZLEMENT BY THE VICE PRESIDENT OF THE COMPANY":2"YOUR CASH ON HAND IS NOW E(1)11425#(1).2512801Q61280;1400FE(2)1_U(U(1.1.1(1)))hQ3Qr1425U(U(1.05.1(1)))8)"-- NEW LABOR CONTRACT --":"VARIABLE PRODUCTION COST NOW = $";U;"/UNIT"1425>"THE PRESIDENT HAS C(I)200~1325W2Q&10758J((1)1.5)JQW321080T1350mC(J)C(J)UI(J).75xI(J)0W3Q1080E(1)11230QW421230W4Q1375E(5)1Q2Q((Q1)4)4Q11425Q114251230)(1).11090).(1).11115;3(1).11165M8(1).11200W=1230hBE(1)01070rG1300~LE(1)1QQ1QV1070[I((1)1.5)`QW221075eC(I)01075jC(I)2001145oC(I).75C(I)t1150 yC(I)OU HAVE GONE BANKRUPT!":Z140:"*";::P417:J1İ50@YP(1)P(2)M1:1020aM2}G4(P(3M)P(M))P(3M)G4G11055G4G21040 G4G2G5D(3M)((G4G1)(G2G1))G3D(3M)D(3M)G5D(M)D(M)G5$Q6SETS";T);"$";UI(J)C(J);T$:::+ 503 2> .001I .095Y 5000,5000g 100,100q 250z 20 .09 .2,.4,.4 12000 1.5 16," 000"Z150:ZZ(16336)(16336):Z::Z140:"*";:-C$(J):"Y;"IRRIGATE IN ";D4%;" DAYS WITH ";W2;:"MEGAL/HECTARE":"THIS ADVICE WILL NEED UPDATING IF IT RAINS IN THE INTERIM",::"DO YOU WISH ANOTHER RUN ?".Q$/Q$"N"999177(13)(4);"RUN MENU"/N> ?".Q$ /QYOU LATER ALLIGATOR" " V:$ FRIESIAN COW5 R BRYANT HURLSTONE AG HIGHY NO COPYRIGHT - YOUR'E WELCOMEe#D$(4)k(s2:<"HOW MANY SECONDS DO YOU WISH TO VIEW THE COW ?";XFBX650PZD$"BLOAD PIC.COWFRIESAN"dI1B:In: x::"SEE  TO SPEND ";F;" RALLODS":"FOR FUNERAL EXPENSES."I M(MF):M02400 "INSUFFICIENT RESOURCES FORCED":"SALE OF LAND."$ T0((ML01)L0):LLT0:L10002390. "NOT ENOUGH LAND TO SELL !":3270V MMT0L0` D02003300j PPD0:D132200D00:E2M2P:D2(PM1100):D202240:D0D2dD2;" COUNTRYMEN DIED OF STARVATION."D3((S1100000)(.1.4(8))P)D302280D3;" COUNTRYMEN DIED FROM EXCESS POLLUTION":D0D0D3D0024001FD09:"YOU WERE FORCEDMM4):M02180E"HOW MUCH TO SPEND FOR EDUCATION ";M2:M202010UM2M2070e3250:2010}M(MM2):M02170 L200021704"HOW MUCH TO SPEND TO COMBAT POLLUTION ";M3:M302100>M3M2160H3250:2100pM(MM3)z:TRYMAN CAN ONLY PLANT 2 SQ.KM.":1950:bL3L10001920pl"ONLY GOT ";L1000;" SQ.KM. OF FARM LAND.":1950M4(L3L1):M4M19903250"YOU CAN AFFORD ";(ML1):"AND HAVE LABOUR FOR ";P2:"AND HAVE ";;L1000;" SQ.KM.":1830M((LL2):X9(44(2000L)):M20:M30:M40h"HOW MANY RALLODS TO DISTRIBUTE":"TO YOUR COUNTRYMEN ";M1wM101740M1M18103250:1740M(MM1):M02170&"HOW MANY SQ.KM. TO PLANT ";L3:L3018300L3P21890%N"EACH COUNW MANY SQ.KM. TO SELL TO INDUSTRY ";L2:L201580G6L2(L1000)1680T"YOU'VE ONLY ";L1000;" SQ.KM. OF FARM LAND":X101580h"(FOREIGN INDUSTRY NOT INTERESTED IN ":"FOREST LAND BECAUSE OF DEVELOPMENT COST."|X11:1580(M(ML2L0):LW01520%W;" FOREIGN WORKERS,""AND ";L;" SQ.KM. OF LAND.":"THIS YEAR, INDUSTRY WILL BUY LAND":"FOR ";L0;" RALLODS / SQ.KM.""PLANTING COSTS ";L1;" RALLODS/SQ.KM."S101570"POLLUTION LEVEL IS ";S1;" UNITS.""32201,"HOCONTINUE";:A$:5:dxM(70000((8)1000)((8)1000)):P(500((8)10)((8)10)):L2000W0:X20:E00:X10:E10:S90:S00:M50:S10D1(P3)L1(((8)5)10):L0((8)1095):3220:"YOU HAVE ";M;" RALLODS":P;" COUNTRYMEN,"; ND ON EDUCATION."::G"YOUR GOAL ... TO COMPLETE AN 8 YEAR TERM":}:"CAN YOU HANDLE THE JOB? ABDICATE (Y/N)?";:A$A$"Y"ĺ(13)(4);"RUN MENU" :""K I N G ";N$;", GOOD LUCK !!",10006140023:8:"PRESS ANY KEY TO 1000G "YOU CAN 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 SPENTIL INDUSTRY OWNS 26 SQ.KM.":"OF LAND.":1000t "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.":5 RALLODS PER SQ.KM."U "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 U FOREIGN INDUSTRY WHO"I "IMPORT AND SUPPORT THEIR OWN WORKERS.":1000 "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 10E":1000R Z"THE MONEY SYSTEM IS RALLODS.":"EACH COUNTRYMAN MUST HAVE AT LEAST"| 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  ::2:19::"KING":::)N58N"WHAT IS YOUR NAME PLEASE ?";N$V(:p2"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 FAT          $"N"999150:"THIS ADVICE WILL NEED UPDATING IF IT RAINS IN THE INTERIM",::"DO YOU WISH ANOTHER RUN ?".Q$/Q$"N"999150** "" ** FROM 'WHAT TO DO **A" ** AFTER YOU HIT **`" ** RETURN' **" ** ADAPTED TO APPLE-II**" ** BY R.J.HUGGETT **GGETT **06!"MADE YOU A LIFE MEMBER OF THE RED CROSS":4000p!$"CAST A STATUE OF YOU IN":"GENUINE PIG IRON.":4000!."THROWN A BANQUET IN YOUR HONOUR":"(BUT SENT YOU THE BILL)":4000!tI911500:J9(19):I9::(5):!" ** K I N G "COMMIT SUICIDE.":4000N 3700:"C O N G R A T U L A T I O N S ! ! !": "YOU HAVE SUCCESSFULLY COMPLETED":"YOUR EIGHT YEAR REIGN": "YOU HAVE ENDEARED YOURSELF SO MUCH":"TO YOUR PEOPLE THAT THEY HAVE"!T0((8)3)1:T03610,3620,363 TAKEN OVER THE COUNTRY.":3450l 3700:"MONEY WAS LEFT OVER IN THE TREASURY":"WHICH YOU DID NOT SPEND." "AS A RESULT, SOME OF YOUR COUNTRYMEN":"DIED OF STARVATION." "THE PUBLIC IS ENRAGED AND YOPU HAVE BEEN":"FORCED TO EITHER RESIGN OR" CROWNED.";\ "THE PEOPLE (REMAINING)":"HATE YOUR GUTS."Qz ((8)2)13270| "YOU HAVE BEEN ASSASINATED !!!":4000 3700:"THE NUMBER OF FOREIGN WORKERS":"HAS EXCEEDED THE NUMBER OF COUNTRYMEN." "AS A MAJORITY, THEY HAVE REVOLTED":"AND"% T0((8)3):T03340,3350,3360U "ALSO HAD YOUR LEFT EYE GOUGED OUT.":4000 "HAVE ALSO GAINED A VERY BAD REPUTATION.":4000 "HAVE ALSO BEEN DECLARED NATIONAL FINK.":4000 R "OVER ONE THIRD OF THE POPULATION":"HAS DIED SINCE YOU WERE::, "ONLY GOT ";M;" RALLODS LEFT !":q 3700:"YOU HAVE BEEN OVERTHROWN":"AND CAST INTO PRISON.":4000 D0;" COUNTRYMEN DIED IN ONE YEAR !!!":"DUE TO THIS EXTREME MISMANAGEMENT," "YOU HAVE NOT ONLY BEEN":"THROWN OUT OF OFFICE, BUT YOULING WILD LIFE"% M5(T0T1):S9S1> S2(2000L)2M3.44|& "YOU RECEIVED ";X9;" RALLODS FROM":"TAXES ON INDUSTRY."0 S203170: S1(S1S22):S1S03190D S1S0:3190b S1(S1S2):S0(S0S210)v N5N51:N501450 3570  T0262870 T026P6 T0(T0500(.52.5(8))):T1S1100000:T112910Y@ T11^ T1T1T0:"YOU MADE ";(T0T1);" RALLODS FROM ":"TOURISTS.":MM(T0T1)| (T0T1)M53080 S1S93080 " DECREASE BECAUSE " "POLLUTION IS KIL22760% " (DUE TO ";:X2027408 "INCREASED ";X "POLLUTION LEVEL)":X2X21 T1((39(8)20)(1.25(E0E1)20)) "MAKING ";(T1(L3T0));" RALLODS.":MM(T1(L3T0)):E0E1 E2102820 E210 E1E2:T02000L:T023100 "CAME TO ";:2580! "LEFT ";F "THE KINGDOM.":PPT0:PW3480\ T00:L20002680F T0((S1100000)L3):T0L32660P T0L3d T002680n "OF ";L3;" SQ.KM. PLANTED,"x "YOU HARVESTED ";L3T0;" SQ.KM. OF CROPS.":T002760 X2D1D0:D103410 t D2224600~ M5003520? L202520V T0(L2L2(8)2)d W02500v T0(T0.1W) T0;" WORKERS CAME TO THE KINGDOM AND":WWT0 T0(((500P)10D33D25).75(1(8))) (T0);" COUNTRYMEN ";:T002570쳩@Gh X{gggggg'(dgxkg~9g'7(*䮥G 0 #gMghghPcQ)Wqqqqhhq`uuTĠ 5EMҠL Šō?FِLÈϚΠ ăκ f ٢  ٦Τ ȹɀI ȄȹH h3 oLP O䯭䮡𥴳\@`` ~3`Gg壡yi壡yi` [(N>W']5Kgvq7ϠGX͠LϠ٠SGϠDĠHSĠNSĠ_oܙݙᙯ` ??<<<<<<<0UUUUUUUUWB oTMɅ"3J[NSJIfmzq# [$NYP;#o6#"#!0 9@0Ӷ:Pyإ<m7;܄iȢٚ . y$IqܤݐLM͠1FLJܹ/ݾLuc ăܪȱ L[ĨP?xO_ڹo  ʤ  Y YoܹݾЇ`TP@xL` Ιϙ $0 8 P# o ΅ڥυ e epݕ` 4LˎL$ `  rPՆϦ ` ΅υȩ ` Τ PڵxۥΑȥL`hh$ F`` ͏%ֈ`ʤZA^ܙ ݙ0  ѕxh$0 xx ԅբ H 0  $ ( x$0  xx 0$FԨֹ)U h)װ H 듥֐ι L؆l`w0P`fLPεϵxϱHȱ΅hΈ` J  P` Y $0` ` d'ʅ˅LM&ȱϰqȥȥ`FLʥM˥J̥Kͩ`Lkȱ0@hJHȱШhЄӠȱ0I@iHeШiH˰hhЈЈ͑Ј̑ЈЈ0JKЬ@iHe e8 05X~")XȔ) F*Ȇ0LJɢ  Ȉ ϴX)HЄ ȹ)eHe0hޤȄ h󰩠ɩch cɰ$0 $~q  u  mʥ` ȹ0 L uߙ`` ӎ$0LL*iS 00)ȆȘHJI@hL`ȩ)?Jжi?oiO iȱ) zȵх υ   o ` l3 ΃3` 4J G 4&(JJJJ) ` ӏ F٩ $  ΃Ȣ ii)ɰL ̥͐Eʑ˥ʥ˰ਈ$ uhڙ`ꠀЕ x ت3 Q3ؕxQεy NvNδPPPL#Q8yڅ`Sε{ϵQڵyxȔPMuHOwh(VP`΅h(OM ׁL6 T&ϐ eڅeۅ &L~ 畠(LoU [΅ڇ mdžة * * *     % 0LH΢QPHΪ0h$0 )?i h](Њ Px+L 4P 䏕xL# 48` PxL PeHxeH˰iکeۅȱbVcWdXeYfZg[h\i]j^k_ :@{ĥåꍗL L3L`) #L $  `  v mL;ʅ˅LM  936:20:2255:: APPLE ][ PLUS INTEGER BASIC IAN WEBSTER SOFT MACHINES FOR FARMmPLAN ŝ@̝< =>?BC ,6          I)Lɤ ɓՊ x= 4   &B&C= 44ݴ 4ݺ ɤ4&D ?5=ɥD 5 5 D4ɻɍЀL\ɠ` }Ɏ$ ``LXWVhY `XWYHV(` Jhh LHBC D..=D5֤4 J :3 g ɠh` T`  `ѥ΅ ΅ҥυө 0ХҠ ӕ "L 4i` F`ٚ .L 4 `$$L$Ն$L,L 8!$`L# ȱ0` 4 `YVPL6 ɏO ɏ5OPLɏ Ι_LfP0Q@PPxA@QPa`qp`HP8εxh`ɅLLHxܥyݥPQLuƵPxLhQεyϱΠ L 4) ؘ ` uHɃL` ăL:L``F`$ ܪȱ Lܤ`Ś25 a0 LJLJKH۰hЅѠȱ0@ȱHШhh0J L赟0LՓ0ܤ } ɑL赟L0ܤ } ɑL ` ` [ S oP Kʵ˕ە LkLMNܕ`LΥΥLMLʥMː ʥ˰JυKL  8Mϕڥ۰եڅʥۅ , ` :L΄<Ȅ>=?`ʕ>?>`8M˕   , OO i@ &N&O ϕLz JKLυML LMJυKLˎ qL ȩ` 6 6P`JLKMLxL L6 L[L JLKMMLILLILLLLy 2L,PQ܅x݅yLÈ آ8ЕNЕ%L"wL{ TL~&&&ڥې څΈ` l 4Ȑ,` 40L 4Ȑ-` 4(L(n ă ărLa ?&0ΰ` ΔL 4΅` ȑ` l΅υLD L4 䎴xPiڄeΕPeϕxPȵxڰL# N ONi)uQ줰䮲륥Q9O/Q) WjB`O~5'Q 䯭䮡ޜݜݞGg` ` `嶡䡯z~" `` Oڵw۴Nv L`xw8OPL# (` 40!(L 4LdF`  WATER IS NOW EXHAUSTED. YOUR FUTURE YIELD IS BEING REDUCED."T:D4%30230"IRRIGATION NOT NEEDED FOR AT LEAST A MONTH""CONSULT US AGAIN NEARER THE TIME"300D4%1240"IRRIGATE NOW WITH ";W2;" MEGAL/HECTARE"300SOIL WATER LEFT."b:"EVAPOTRANSPIRATION DEPENDS ON EVAPORATION RATE AND CROP COVER":"CURRENT EVAPOTRANSPIRATION IS ";E2;"mm PER DAY."D3ZĺD3"mm SURPLUS WATER NOW BELOW ROOT DEPTH."W1Z220B:"READILY AVAILABLE SOIL W1((S3L1)10.5)10)W1ZW107D4%W1E2DS4S2L1RW2S4100jW2((W210.5)10):::"SOIL WATER AVAILABLE TO PLANTS"::"YOU HAD ";S4;" mm OF SOIL WATER FOLLOWING YOUR LAST IRRIGATION.":"YOU HAVE ";W1;" mm OF Y AGAIN":112;x:"MEAN EVAPORATION RATE (mm/DAY) ";:E1]yE10E150ĺ"TRY AGAIN":120rE2E1.8(P1.2)E2(E210.5)10S2S1(K1%)D1100L1S2.8D2D2%S3S2(E2D2)R1D3S3S2D3(D310.5)10S3S2S3S2"Z:"FOLIAGE DENSITY (%)";:P1D_P10P1100ĺ"TRY AGAIN":90RbP1P1100|d:"DAYS SINCE LAST IRRIGATION";:D2%hD2%0D2%100ĺ"TRY AGAIN":100n:"HOW MUCH RAIN (mm) HAS FALLEN IN THE LAST ";D2%;" DAYS ";:RI rR10R1300ĺ"TRey to continue";:A$5M:2:"SOIL DEPTH (cm)";:D1\ND10D1200ĺ"TRY AGAIN!':GOTO 77yR:"NUMBER OF SOIL TYPE"ST1,"SAND"U2,"SANDY LOAM"V3,"RED CLAY LOAM"W4,"BLACK CRACKING CLAY"XK1%YK1%1K1%4ĺ"TRY AGAIN":82 which completely shades the ground is considered to have 100% density."I:"(4) Number of days since last irrigation."J:"(5) Rainfall since last irrigation."K:"(6) Evaporation rate."L24:8:"Press any k before its next irrigation. Clay yields more than sand and needs more water."G24:8:"Press any key to continue";:A$WH:3:"(3) Foliage density - crops use more water as foliage becomes denser. A thick croption">:"(1) Root depth - the deeper the roots the more soul water the crop can use and the longer the crop can wait before the next irrigation."fF:"(2) Soil type - determines the amount of water the soil can yield upion use only, is based on data from the CSIRO Division of Irrigation Research at Griffith." <:"It uses weather, soil and crop data to tell a farmer when to irrigate and how much water to apply."=:"Some factors which influence irriga W2& " DAYS LEFT D4%- # 3 $> (S1(4)\ * 100.0,300.0,500.0,700.0y +S1(1),S1(2),S1(3),S1(4) ,Z0.0 - . PROGRAM STARTS HERE.GET DATA FROM USER / 2:2:16::"IRRIGATION":f 7:"This program, for demonstrat EVAPOTRANSPIRATION E24  SOIL CAPACITY S1P  MAX SOIL WATER S2l  ACTUAL SOIL WATER S3  PLANT AVAILABLE WATER S4  SOIL LIMIT L1  DRAINAGE D3  WATER LEFT W1 ! WATER NEEDED AR CONDITIONS.% DEFINITIONS : @ ROOT DEPTH D1\ SOIL CODE K1%y  PERCENT PLANT COVER P1  DAYS SINCE IRRIG D2% INTEGER  DAYS SINCE IRRIG D2  RAIN R1  EVAP FROM A PAN E1    TEN BY R.SMITH AN D.ERSKINE NOV 1981 CSIRO DIVISION OF IRRIGATION RESEARCH , GRIFFITH 2680.  THIS PROGRAM WAS WRITTEN FOR DEMONSTRATION PURPOSES ONLY.  A PREVIOUS VERSION OF IT HAS BEEN TESTED , BUT THE PROGRAM NEEDS TO BE CALIBRATED FOR PARTICUL: CSIRO DEMONSTRATION IRRIGATION SCHEDULING PROGRAM.t ESTIMATES DATE OF NEXT IRRIGATIONBY DEAD RECKONING. ASSUMES SOIL COMPLETELY WET AFTER LAST IRRIGATION. USES CURRENT WEATHER DATA AND AN ESTIMATE OF PLANT COVER.[  PROGRAM WRIT      ,86.1,43.9,125,81.8,87.8,43.6,124.4SQ 82.5,89.1,43.5,123.9,82.8,90.1,43.2,123.5V 83.2,91.1,43,123,83.5,91.7,42.7,122.8[ 83.5,92.3,42.5,122.5,83.4,92.8,42.2,122.1` 83.3,93.4,42,121.8,83.2,93.8,41.5,121.6e 83,94.2,41,121.5joD"QUANTITY 'AS FED' ";(F61000)1000;" KG. OF FEED"::"NO. ";JK Jt*::"PRESS TO CONTINUE";X$z4>D$(4)HD$;"RUN MENU" GAIN F3M1E9C "FEED D.M. FOR GAIN (KG.) ";(F31000)1000I l  CAL. TOTAL FEED REQUIREMENTSy F4F2F3 "TOTAL FEED REQUIREMENTS (KG.) ";(F41000)1000  CAL. TOTAL QUANTITY OF FEED D10 J1F F6F4P(J)D(J) ENANCE (KG.) ";(F21000)1000) bJ1F/ gC lA8F2P(J)D(J) v"QUANTITY 'AS FED' ";(A81000)1000" KG. OF FEED"::"NO. ";J J   CAL. M.E. FOR BODY GAIN M1(L1(6.280.0188W)(1.00.3L1))(0.0438E9)  CAL. FEED D.M. FOR";E(1)  2  CAL. ENERGY CONC. OF DIET= J1FQ E9E9E(J)P(J)X J|  CAL. M.E. FOR MAINTENANCE (M) &F1(5.670.061W)1.10 0K0.550.016E9 :MF1K D CAL. FEED D.M. FOR MAINTENANCE NF2ME9 X"FEED D.M FOR MAINT100 ,"M/D FOR FEED NO. ";J) 6E(J)0 @J9 JA10D TJ1FS ^A1A1P(J)Z hJh rA11480n | "FEED PROPORTIONS MUST TOTAL 100%"  190 P(1)1  "DRY MATTER OF FEED";D(1) D(1)D(1)100  "M/D FOR FEEDLIVE WEIGHT GAIN (KG./DAY)";L1$ E "NUMBER OF FEEDS IN DIET";FK Y F10190b E90o F1420z J1F "PROPORTION OF FEED NO. ";J P(J) P(J)P(J)100 "DRY MATTER (%) OF FEED NO. ";J D(J)  "D(J)D(J)dnP(10),D(10),E(10);x3:16::"STEER FEED":C}:"PROGRAM FOR DETERMINING DIET COMPONENTS"::"FOR SPECIFIED LIVE WEIGHT GAIN OF"::"BEEF CATTLE (AS PER HUTTON ODDY)""WEIGHT OF STEER (KG.)";W "REQUIRED       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 ***         (13)(4);"RUN MENU"yyPROGRAM" :(4);"RUN HELLO" HD ";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"(Š΢)Gq.?$r[$]Ġŭ٠ԠKoPUVW-rqYqqqoUVWP%d.?(r.?)r.?$re-rYQd.?(r.?)r.?$re`ˠƠנ٠ӠŠΠŠco\h_/hoPa(٠ϠӠȡ)GM6dcUVW MHq.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r.?6?r.?6?rRYL\oPd2e?a(?bE()E@d2e_]ԠҠ)Pd.?(r.?)r.?$req[q-rq-r]ȠŠҠĠҠ@ q-rq\ı@p@q-re_]ҠdeddeM3`$qq_Mq-rq-rq\oPbE()E@cq-r-rqq\oPd2ede2deM1`$qq_Mq-rq-rq\oPa@*#rE()E@kq-r-rqq\oPd2e?a@*#rE()E@d2X`$q-r%b`$vqClq-rq\oPbE()E@_vqGq-rq\oPa@*#rE()E@q_]Ҡ,`$]`$N`$]Šנ&q-r+0`7$*:`7$D_N]ŠӠŮ)Gq.?$roPMu6od$ed.?(r.?)r.?$re`]5q.?6@r`$d6?ec`$ oPM6\h_6`$]Š-`$]]ŠǠҠϠԠP.?$rM6;q.?6@r`$d6?e]ˠҠĠP`$D`$oM6ca(ӠŠâ٠ϠΠϠ)@a(ҠŠŠҠϠŠԠĠΠŭٮ)ca(ӠŠҾϠŮ)d6?ede82#r#~`.?6@r$~d6?e_ İ@pı@Y`%[0oM6`$`$_oM6_t:o`I`.?6@r$Nobt"v`.?%r$]Ǡ>{`$ı@p()\q7;ı@r`$i|`ı@:İ@$M6o a(͠)F8-#rE(ӠԠŠ΢)a(ӠԧӠԠԮ)k}a(()d2e_Pa@E()Yde8-#r_!0]٠̠Ԡ2M6o.4a(ǠŠԠ)@:q2#Nİ@"xrCı@"xrCIJ@"xrCij@"xrCĴ@"xrCĵ@"xr?oM6DUVW%&X`2#$\`;ı@r%qot`.?%r$G\a()FE(Π)G\a(Ϡ)G\o.?%rQ&M6@p()UVWo#a()FE()FE()E@cc6`$Pa@Gd2e?aΠ)Gd2e?a(٠ϠΠϠ)Gd!e!KoPd2e?a(ŠΠϠΠϠҠ)d2eoQ]נ͠٠;M6oa(ǠӠҠנ͠)c&q\:oM6VWXoPd2e?a()d2eY?od2e?a(þҠԬξϠ)Gd2e3q.?6@r`$d6?e`$Md!e'oPd2e?a(ԠԠԠŠ)E@E()E@E()Id2ea(r8ñrdQñ8òr8ò8òrre[tz]ŠŠӠĠȠŠ̠ԠҧĠΠҠĠŬ̧Ӡ.`.?%r$UV.?%rWcYY6UǠҠΠ `7$ _]Ԡ͠ @p()q-#.?rq-KM6d!e!d"eoPa()G&UV-#.?rWq.?%r_qqt\Q\ñq.?ròq.?Š٠;v UVW;ı@r`ı@*#r:()%Yq@pı@*#r ]Š٠ q;@rM ]ɠӠĠϠРˠƠŠǠƠȠҠƠӠΠĤO _]ǠƠ͠ӠРŠϠŠ$ $S `$T _y]ĠƠT de/U UVWde22deMV Yde(deM=X M6IJ@p()ij@p()Ĵ@p()ĵ@p()]ԠĠӠϠ"b \-#]̠ĭ$l q]e oa(ŠҠҠΠĠ)Fa(ĠӠŠ΢٠)GM6R@!& q\`;@r$ 20 UVW;@rq<@*#rr` $D 4: `  $ q D Y"N `()%Y% ded.?%rde M! de/?drddeM! de.?%rdeM `.?6@r$y]A a()G`2%a()GbE()Eı@*#rGcq_ 3 UVW de /?drde/?rM Y `7$ q.?r_X  qq\(# \@5 UVW dede/?8 r rFMY8 d6?eM6a(ŠԠٺ)qc a(ĠŠž)> ı@p()\-#`;ı@r$ UVW;ı@r`ı@*#r:)0 oa(ԠŠҠ)3 UVWde/?dr2de/?rM YD o P`%a(ŠԬŠ)\,oPN N@"PrC@"rCı@"rCIJ@"rCij@"rCĴ@"rCĵ@"rC@"2r$qòqñqqqqB N@"rD4rD4rD4rD4rC@"r% @p() `$  KM6o P% a(ŠȠŠ) oP  a(٠ŠԠŠϠϪ \h oPM6dQ d.?(r.?)r.?$re`]ŠǠҠϠԠ$ `.?6@r$ oPM6d _ ]ΠΠͪ \q \X]Ԡ d6?e: qq