ZXTape! 0Created with Ramsoft MakeTZX%CORN C˜ BB=0 "Y"^2  8999'# K=0:R=0 236099\,246 4500 "9700"  4450b  M="50000"  L=30 (S=ç -Q="6" 2R(Q) <T= FW="2" PCH=S Z WW="320" dK=T eHYS=0:RR=0:PP=0:PS=0:AP=0:DM=0 f$FL=0:FF=0:FS=0 gR(6)=0 i[LBB=0:CBB=0:APB=0:TBB=0:SBB=0:MBB=0:TAB=0 j IA=0 nCHC=0:TC=0:SPC=0:SCC=0:LSC=0:LC=0:IC=0:SC=0:WC=0:FC=0:CL=0 s[CPL=0:SPL=0:WPL=0:FPL=0:DPL=0:DML=0:IPL=0 xSP=15:LP=1000 CHP="60000" TP="20000" F=502-(D*2) L$="_____" 'B$=" " F(Q) P=80P+(D*16) O=0 A=S V=15 J=A  I=ç HT=I FT=I PT=I  CR="3" TM=(*60<)+30 3K>15TM=(*60<)+20+(D*3) "H=(*100d)+1 ':2500 ,CR=0800  - 4420D 4/0:7:1::0;23;"Month ";K:,,8;"INFORMATION MENU":,,5;"1. WEATHER FORECAST":5;"2. CROP STATUS REPORT":5;"3. FARM MAP":5;"4. CASH ACCOUNT":5;"5. INSTRUCTIONS":5;"6. HELP" 5WD4CR=1FL=04,5;1;"1. WEATHER FORECAST" 682;11 ,10 ;"COMMAND MENU" 7>,,2;5;"Buy";18;"Irrigation" 852;5;"End";18;"Nothing" 992;5;"Fertilise";18;"Plant" :62;5;"Harvest";18;"Sell" ;82;5;"HIre";18;"SPray" @KD4M100d7,5;1;"4. CASH ACCOUNT" E!BB=0236066\,6 J>19,0;">>>>ENTER YOUR REQUIREMENTS<<<<<" O+0;20,15;1;"OR" ^~2;21,0;">>>>ENTER YOUR ";" 1ST"CR=3;" 2ND"CR=2;"LAST"CR=1;" COMMAND<<<<<" sH$="" t Z=̱K vH$=H$+(""+(K)(Z)) xZ C$ C$="1"3500 C$="2"3400H C$="3"3000 C$="4"3200 0C$="5""9830" :C$="6""9900" DC$="B"C$="b""5000" NC$="F"C$="f""5500" XC$="H"C$="h""6000" bC$="HI"C$="hi""6500" lC$="I"C$="i""7000" vC$="P"C$="p""7500" C$="S"C$="s""8000" C$="SP"C$="sp""8500" #C$="N"C$="n"CR=0:"800" C$="E"C$="e""700" "400" 0:0:7: '"AFTER ";K;" WEEKS,YOUR ASSETS ARE:-"  "4005"  :849Q *HT=ç"850" 4CH1=CH 9CH1>WCH1=W >T1=T CT1>W-CH1T1=W-CH1 H#HS="(*2+4)*10*CH1+(*5+10)*T1" JHSHTHS=HT KR(5)=R(5)-HS LOF(5)HSHS=HS+F(5):FF=FF-F(5):F(5)=0:A=A+HS MZF(5)>HSHS=HS*2:FF=FF-HS/2:F(5)=F(5)-HS/2:A=A+HS P QTM42*851S R "1350" SFT=-"900" T"860" V"890" \T1=T ^ T>WT1=W c M1=W-T1 f 0:2:7: .:" RESULTS FOR MONTH ";K .PTç,,"YOU PLANTED ";PS;" ACRE";"S"PSɼ 1FTç,,"YOU FERTILISED ";FS;" ACRE";"S"FSɼ 9HTç,,"YOU HARVESTED ";HS;" ACRE";"S"HSɼ;"WORTH." K=DD"4000" (RR=0TA>250000t$4000 >".1""1050" PS=0:FS=0 &,,"THERE WAS AN INSECT ATTACK WHICH" J>ç"1049"  "1020" "TOOK ";IA;" ACRES OF WHEAT."  "1050" LIA=(*(R("1")+R("2")+R("3")+R("4")+R("5")+R("6"))/"2"-1)+/  Z=5  X=IA R(Z)=ç"1037" R(Z)=R(Z)- X IA>0FF=0  F(Q)    Z=Z-  "1025" !"WAS DESTROYED BY INSECTICIDE." J=J- J<0J=0 $'J=ç,,"YOUR CROPS NEED RESPRAYING." .>".15""1100" 3 WW=WW+"10" 8",,"YOUR WORKERS NOW DEMAND `";WW B "MONTHLY." L>".08""1150" QF=F+"(*10)-D" V6,,"THE COST OF FERTILISATION IS NOW`";F;" PER ACRE." ~>".08""1170" V=V+"(*10)-D" 2,,"THE COST OF SPRAYING 1 ACRE HASRISEN TO `";V >".2""1190" H=(*80P)+20 "H=H+(*(30))-(D*3) Z="(*S/4)" S=S-Z A,,"MILDEW AND RATS DESTROYED ":Z;" ACRE";"S"Zɼ;" OF SEEDS." 6TM42*,,"COLD WEATHER,CROPS DID NOT GROW" (,,"THERE WAS ";H;" MM OF RAIN,AND YOU" '"IRRIGATED ";I;"MM MAKING A TOTAL OF" I+H;" MM = "; -I+H65AI+H120xH$="CROPS LIVE" ,I+H80PI+H92\H$="PERFECTION" %I+H<65AI+H>120x"2000" H$ TM302000 Mç"9998"  "9990" M="M-W*WW-200*T-400*CH"  WC=W*WW !DM=(T*200)+(CH*400)  !LP=LP+(*(D*10 ))-5 #K>24TP=TP+"(*400)-175" CHP=CHP+"(*1000)-350" (SP=SP+(*7)-2 ) FL=0 ,bCR=0CPL=CPL+SCC:SPL=SPL+SC:WPL=WPL+WC:FPL=FPL+FC:DPL=DPL+SPC:DML=DML+DM:IPL=IPL+IC -K=6K=12 K=18K=24K=30K=36$K=42*K=480K=546K=60<K=66BK=72HK=78NK=84TK=90ZK=96`2800 .|CR=0CHC=0:TC=0:SPC=0:SCC=0:LSC=0:LC=0:IC=0:SC=0:FC=0 /DK>30TM>70FP>300,R(5)>12 9300T$ 0/K>35#TM>89YA>10 9200# 2K=K+ <P=P+(*(D*10 ))-5 A"200" FF(5)=F(5)+F("4") KR(5)=R(5)+R("4") PZ="4"̰"2"- ZR(Z)=R(Z-) dF(Z)=F(Z-) nZ o F()=ç p R()=ç x  I+H<65AH$="DROUGHT" I+H>120xH$="RUST" (I+H120xI+H65A2028 H$;" WHICH DESTROYED "  "1020" IA;" ACRES." BTM30,,"FROST DESTROYED ";IA;" ACRES.":1020  "1270"  BALANCE SHEET 1:7: LB=L*LP CB=CH*CHP TB=T*TP SB=S*SP AP=A*P TA=LB+AP+CB+TB+SB+M (8;"BALANCE SHEET MONTH ";K ),,18;"THIS";24;"PREVIOUS" %17;"MONTH";26;"MONTH" <"FIXED ASSETS";19;"`";28;"`" 2,,"LAND";:VV=LB:2900T :VV=LBB:2905Y 4"TRACTORS";:VV=TB:2900T :VV=TBB:2905Y @CB>0"COMBINES";:VV=CB:2900T :VV=CBB:2905Y ,,"CURRENT ASSETS" 9,,"STOCK-WHEAT";:VV=AP:2900T :VV=APB:2905Y 7"STOCK-SEEDS";:VV=SB:2900T :VV=SBB:2905Y 7"CASH AT BANK";:VV=M:2900T :VV=MBB:2905Y 17;L$;26;L$ B,,"TOTAL ASSETS";:VV=TA:2900T :VV=TAB:2905Y 17;L$;26;L$ (CARRY FORWARD )APB=AP *LBB=LB +CBB=CB ,TBB=TB -SBB=SB .MBB=M /TAB=LBB+APB+CBB+TBB+SBB+MBB 9990'  PROFIT & LOSS 7:6:1: 06;"PROFIT & LOSS ACCOUNT" *2;"For six months ended month ";K #:"REVENUE";28;"`" ),,"SALES OF WHEAT";:VV=CPL:2905Y ,,"LESS EXPENDITURE" (,,"COST OF SEEDS";:VV=SPL:2930r "WAGES";:VV=WPL:2930r $"FERTILISERS";:VV=FPL:2930r $"INSECTICIDE";:VV=DPL:2930r #"IRRIGATION";:VV=IPL:2930r '"DIESEL & MAINT";:VV=DML:2930r "<17;L$;:X=SPL+WPL+FPL+DPL+IPL+DML:VV=X:2905Y '26;L$ ,7CPL>X"PROFIT FOR PERIOD";:VV=CPL-X:2905Y 17CPL0LSC>0,,"RECEIPTS" 0SCC>0"RIPE CROPS";:VV=SCC:2930r 0LSC>0"LAND SALES";:VV=LSC:2930r @SCC>0LSC>016;L$;:VV=SCC+LSC:2905Y ,,"LESS EXPENDITURE" (LC>0"LAND";:VV=LC:2930r +TC>0"TRACTOR";:VV=TC:2930r 3CHC>0"COM.HARVESTER";:VV=CHC:2930r )WW>0"WAGES";:VV=WC:2930r )SC>0"SEEDS";:VV=SC:2930r /FC>0"FERTILISERS";:VV=FC:2930r 2SPC>0"INSECTICIDES";:VV=SPC:2930r .IC>0"IRRIGATION";:VV=IC:2930r 2DM>0"DIESEL & MAINT";:VV=DM:2930r "STC=LC+SC+CHC+TC+WC+FC+SPC+IC+DM #17;L$;:VV=STC:2905Y 26;L$ /"CASH AT BANK";:VV=M:2905Y 26;L$ 100d 9990' 300, H)CROPS STATUS REPORT I 4320 J1:7:1 : M=4;"CROPS STATUS REPORT MONTH ";K Rj,,2;4;" ";1;" = Cultivated";18;3;" ";1;" = Fertilised" T "Acres" WX=16 \;0;X*3+1,0;72H-(X*12 ) aX f=0;19,0;" 0 1st 2nd 3rd 4th Ripe" k>0;20,0;" Months Crops" p;21,142:0,-118v:206,0 uZ=15 zX=1R(Z)/4 (4;19-X,Z*5;" " X Y=1F(Z)/4 03;19-Y,Z*5+1;" " Y:Z 9990' 300, WEATHER FORECAST 4320 5:7:1: : 2;0,3;"WEATHER FORECAST - MONTH ";K &,," mm RAIN";18;"TEMPERATURE" 31,142:0,-120x:18,0:0,120x:1,0:0,-120x:-20,0:0,120x X=15 3X*2+8,1;100d-(X*20) X `4,0;"140":6,0;"120":8,0;"100":18,1;" 0" G2;5,9 ;"^^^^^^":2;6,10 ;"Rust" L1;7,9 ;"^^^^^^":1;8,7;"Crops live" %4;9 ,8;"PERFECT" N1;10 ,7;"Crops live":1;11 ,9 ;"" &4;10 ,25;"^^^^^^" 2;12 ,9 ;"Drought":4;11 ,24;"Growing":1;12 ,25;"^^^^^^":1;13 ,24;"Planting":2;13 ,9 ;"":2;14,25;"Frost":2;15,25;"" X=114 *X+4,19;98b-(X*7) X J4,19;"F":17,19;" 7":18,19;" 0" 175,142:0,-120x:10 ,0:0,120x:1,0:0,-120x:-12 ,0:0,120x X=1H/10 )5;19-X,4;"" X OO=TM/6 OO53600 #OO>5OO73610 OO>73630. O=0:FL=1 9990':300, Y=1OO )2;19-Y,22;" " Y: Y=15 )2;19-Y,22;" " #Y $X=1OO-5 ))1;14-X,22;"" -X: .Y=15 3)2;19-Y,22;" " 7Y 8X=12 ='1;14-X,22;"" AX BZ=1OO-7 G)4;12 -Z,22;" " KZ:  RR=1 _:,,"YOUR ";K;" MONTHS AS A FARMER ARE":"UP AND A SUMMARY OF THE ASSETS":"ARE AS FOLLOWS:-"  Z=32 v,,"CASH IN HAND";Z-M;M,,L;" ACRES AT `";LP;" EA.";Z-(L*LP);L*LP,,T;" TRACTORS AT `";TP;" EA.";Z-(T*TP);T*TP ,,CH;" HARVESTERS AT `";CHP;" EA";Z-(CH*CHP);CHP*CH,,A+R(Q);" ACRESWORTH OF RIPE","HARVESTED CROP AT `";P;"/ACRE";Z-((A+R(Q))*P);(A+R(Q))*P !Y=M+L*LP+T*TP+CH*CHP+(A+R(Q))*P E,,26;"------GRAND TOTAL OF --->";Z-Y;Y;26;"------" YȰ"250000""4100"  9990' 2:2:7: ^6,0;"UNFORTUNATELY,THIS IS `";"250000-Y":,,"SHORT OF YOUR TARGET OF `250000."  4600  "9999" 9990':X=07 (.4L,5*X:.2~L,3*X Y=17  X:Y:0:  27;1;1,13 ;"RESULT" 7;5,5;"CONGRATULATIONS !!!!":7;7,3;"YOU ACHIEVED YOUR GOAL IN":,,7;9 ,10 ;K;" MONTHS." gY:X h1,,5;"ASSETS CONSISTED OF :-" m,,"FARMLAND = ";L;" Acres" r,,"TRACTORS = ";T w,,"COMBINE HARVESTERS = ";CH | 4600 9990':9999'  R=1 QY=14:.1}L,-15:.1}L,10 :.1}L,-20:Y (.1}L,17:.2~L,14:  R=1 X=12 g2,-35#:5:.10}L,-10 :.5,-579:3:.1}L,-32 :X:  R=1 :.25~,3:.5,4:.25~,3:  R=1 i.05|L,557:5:.01z# =,-20:.03{u\,579:3:.01z# =,-32 :X:  R=1  J>1YS=2  5Y=13-YS:X=20-20-1  ..002xn,X:.001wn,X+5:X:Y: 0 R=1 1J>1YS=2 2.Y=1-YS:X=15-40(-2 5..002xn,X:.001wn,X+5:X:Y: D R=1 E,X=18:.03{u\,40(:X: N R=1 O&.5,5:.5,2: bSOUND ON OR OFF g6:6:0: l110 ,8;1;"SOUND ON OR OFF ? " q 100d v=16,0;"KEY Yes to turn sound ON" {;18,0;"KEY No to turn sound OFF" |019,6;"(This speeds the COMMANDS)" I$= I$=""4480 I$="N"I$="n"R=1  %USER DEFINABLE GRAPHICS #G=07:U:"A"+G,U:G #G=07:U:"B"+G,U:G #G=07:U:"M"+G,U:G #G=07:U:"T"+G,U:G #G=07:U:"C"+G,U:G #G=07:U:"H"+G,U:G #G=07:U:"R"+G,U:G #G=07:U:"O"+G,U:G #G=07:U:"P"+G,U:G #G=07:U:"Q"+G,U:G #G=07:U:"S"+G,U:G I0,170,0,170,0,170,0,170 I255,0,255,0,255,0,255,0 G0,16,16,568,84T,16,40(,0 J0,15,9 ,249,255,102f,102f,0 G0,0,0,7,15,223,252,28 K0,252,252,252,255,255,6,4 C0,8,8,8,42*,28,8,0 E480,72H,72H,480,0,0,0,0 M31,63?,112p,224,224,112p,63?,31 G0,15,15,3,1,0,127,127 O0,254,254,128,192,224,240,240   b=1  4610 8.3,0:.15~,-3:.3,5 7.15~,4:.5,2:.3,0  b=2  10 9.3,0:.15~,-3:.3,5:  9.15~,2:.3,0:.15~,-3 .3,-7 b=110  b=1 *b=246604 4.15~,-3:.3,-5:.15~,0:.15~,-1:.15~,0:.15~,2:n=012 3:.05|L,n:n:.5,12   "5002"  "5005" )4280:2:7:0: (">>>>>>>>>>>>>>>BUY<<<<<<<<<<<<<<"  2,,:2;5;"WHAT DO YOU WANT TO BUY?" ,,5;"1:LAND" ,,5;"2:SEEDS"  CR=CR- ,,5;"3:TRACTORS" #,,5;"4:COMBINE HARVESTERS" 1,,:1;">>>>>>>ENTER NUMBER ONLY<<<<<<<<" Z Z"4""5016"  "5002"  4 "5000"+Z*"100" 34;7;2,10 ;"BUYING LAND" %,,"LAND IS AT PRESENT `";LP;" PER " (,,"ACRE. YOU ALREADY HAVE ";L;" ACRES" ;10 ,2;1;"HOW MANY ACRES WILL YOU BUY?" Z Z<çźZZ"5120" 10 ,2;B$ (,,Z;" ACRES AT `";LP;" EACH WILL COST"  ),,"`";Z*LP;" LEAVING YOU WITH `";M-Z*LP  M-Z*LP<ç"5149" O,,"DO YOU WANT TO GO AHEAD WITH THE",,"DEAL? ";:1;"Yes or No ?" H$ H$="Y"ů"y""5160"  "5002"  "5100" ,,"SO YOU CANNOT BUY THEM." "500" ! "5146" (L=L+Z * LC=Z*LP - M=M-Z*LP <"300" P/3:,,3;9 ;" BUYING SEEDS" U',,"SEEDS COST `";SP;" PER ACRE WORTH" Z(,,"YOU HAVE ";S;" ACRESWORTH OF SEEDS" _;10 ,2;1;"HOW MANY ACRES WILL YOU BUY?" dZ g10 ,2;B$ iZ<çźZZ"5220" n8,,Z;" ACRE";"S"Z1;"WORTH AT `";SP;" EACH ACRE" s(,,"WILL BE `";SP*Z;". LEAVING CASH" u ,,"BALANCE OF :-- `";M-SP*Z xM-SP*Z<ç"5250" z4,,"DO YOU WANT TO DEAL? ";:1;"Yes or No?" |H$ ~H$="Y"H$="y""5260" !,,"SO THE DEAL CANNOT PROCEDE."  500  "5002"  "5200"  SC=Z*SP S=S+Z  M=M-Z*SP "300" -1:,,1;" BUYING TRACTORS." $,,"TRACTORS ARE `";TP;" EACH NOW." @,,"YOU HAVE ";T;" TRACTOR";"S"Tɼ;"CASH":"BALANCE OF `";M 41;9 ,5;"HOW MANY WILL YOU BUY?" Z Z<çZɺZ"5330" 9 ,5;B$ M-Z*TP<ç"5390" ',,Z;" AT `";TP;" EACH WILL BE `";Z*TP ,,"LEAVING YOU WITH `";M-Z*TP 3,,"DO YOU WANT TO BUY? ";:1;"Yes or No?" H$ H$="Y"H$="y""5380"  "5394"  M=M-Z*TP  TC=Z*TP  T=T+Z  "300" &,,"THAT WILL BE MORE THAN YOU HAVE." "500"  "5002"  "5300" 42:,,2;" BUYING COMBINE HARVESTERS." (,,"THESE ARE `";CHP;" AND YOU OWN ";CH ",,"YOU HAVE `";M '49 ,5;1;"HOW MANY WILL YOU BUY?" ,Z 1Z<çZɺZ"5420" 39 ,5;B$ 6#,,Z;" AT `";CHP;" EACH WILL COST" ;+,,"`";Z*CHP;" LEAVING YOU WITH `";M-Z*CHP =M-Z*CHP<ç"5470" @3,,"DO YOU WANT TO BUY? ";:1;"Yes or No?" EH$ JH$="Y"H$="y""5490" T "5475" V CHC=Z*CHP ^0,,"SO YOU CANNOT BUY ";"THEM."Zɼ;"IT."Z= `"500" c "5002" h "5400" r M=M-Z*CHP w CH=CH+Z y"300" 3:3:7: F(2)>01;10 ,1;"CROPS DID NOT GROW LAST MONTH";12 ,3;"FERTILISING NOT POSSIBLE":250:300, (">>>>>>>>>>>FERTILISE<<<<<<<<<<<<" K,,"FERTILISING AT PRESENT COSTS `";F:"PER ACRE , AND TO IMPROVE THE" F"YIELD OF YOUR CROPS IT MUST BE":"APPLIED TO TWO MONTH OLD CROPS" "OF WHICH YOU HAVE ";1;R(2);" ACRE";"S"R()ɼ R(2)=ç"5950" ,,"YOU HAVE ";T;" TRACTOR";"S"Tɼ,,,"AND ";W;" WORKERS.",,,,"HOW MANY ACRES WILL YOU TRY TOFERTILISE , BEARING IN MIND THATA MAN CAN FERTILISE 13 ACRESWHILE A TRACTOR (WHICH MUST HAVEA MAN DRIVING IT) CAN FERTILISEFROM 1520 ACRES." ;21,2;1;"KEY NO. OF ACRES YOU REQUIRE"  4360 Z !Z<çZ>R(2)ZɺZ"5610" FT=Z I CR=CR- N "5960" ?8,,"SO YOU NEED TO PLANT",,,"BEFORE YOU CAN FERTILISE" C9990':300, H 860\ IFS="T1*(*5+10)+M1*(*3)+1" JFS>FTFS=FT MM=M-FS*F:FC=FS*F N F("2")=FS P FF=FF+FS R"300" u6:6:1: z(">>>>>>>>>>>>>HARVEST<<<<<<<<<<<<" ,,"YOU HAVE:-" ,,W;" WORKERS",,,,T;" TRACTOR";"S"Tɼ,,,,CH;" COMBINE HARVESTER";"S"CHɼ,,,"AND ";1;R(5);" ACRES OF RIPE CROPS." R(5)=ç"6200" ,,"HOW MANY ACRES DO YOU WANT TOTRY TO HARVEST, BEARING IN MINDTHAT TRACTORS (WHICH NEED MEN TODRIVE THEM) CAN HARVEST BETWEEN1015 ACRES , WHILE COMBINEHARVESTERS(WHICH ALSO NEED TO BEDRIVEN)CAN HARVEST FROM 4050ACRES." ;21,2;1;"KEY NO. OF ACRES YOU REQUIRE"  4360 Z Z<çZ>R(5)"6080"  CR=CR- HT=Z  810* "300" 8D,,"BUT AS YOU HAVE NO RIPE CROPS",,,"YOU HAVE NOTHING TO HARVEST." B 9990' D 300, n x(">>>>>>>>>>>>>>HIRE<<<<<<<<<<<<<<" 7:0:7: Y=(*3@)+1 ,,"YOU ALREADY HAVE ";W;" WORKER";"S"Wɼ,,,"EARNING A WEEKLY WAGE OF `";WW;".",,,"AT PRESENT ";Y;" MORE ";"ARE"Yɼ;"IS"Y=;" AVAILABLE":9 ,1;1;"HOW MANY DO YOU WANT TO HIRE?" Z )Z<çZ>Y,,"ONLY ";Y;" ARE AVAILABLE." Z<çZ>Y"6600"  CR=CR- W=W+Z "300" 6  "FARMER"  b5:7:1: l(">>>>>>>>>>>>IRRIGATE<<<<<<<<<<<<" ,,"THE WEATHERMAN HAS SAID THERE",,"WILL BE ";H;"MM OF RAIN.",,,"HOW MUCH DO YOU WANT TO IRRIGATE",,"BEARING IN MIND THAT 80-92 MM IS",,"WHAT YOU ARE AIMING FOR."  4300 I I<çIɺI"7050"  M=M-L* IC=L*3  CR=CR- "300" V4:4:0: [hR(1)>01;10 ,3;"LAND NOT READY FOR PLANTING":150:300, `(">>>>>>>>>>>>>PLANT<<<<<<<<<<<<<<" ~STM35#,,5;1;"GROUND TOO HARD TO PLANT":200:300, )Z=L-R()-R("2")-R()-R("4")-R("5") <,,"YOU HAVE:-",,,,1;S;" ACRESWORTH OF SEEDS":W;" WORKERS ";T;" TRACTOR";"S"Tɼ:1;Z;" UNUSED ACRES.":10 ,0;"HOW MANY ACRES DO YOU WANT TOPLANT OUT; BEARING IN MIND THATMEN CAN PLANT 0-1 ACRES , WHILETRACTORS ( WHICH NEED MEN TODRIVE THEM ) CAN PLANT BETWEEN1520 ACRES." S=ç"7640" ;21,2;1;"KEY NO. OF ACRES YOU REQUIRE"  4360 Y Y>SY<çY>Z"7590" Y>68D17,3;1;"WORKERS THREATEN TO STRIKE":100d:,,3;"REINPUT YOUR REQUIREMENTS":7590  CR=CR- PT=Y  7670 7,,"BUT AS YOU HAVE NO SEEDS, YOU CANNOT PLANT YET." 9990':300, "860" PS="T1*(*5+15)+M1**2"  PS>PTPS=PT S=S-PS  R()=PS  PP=PP+PS Z"300"  "<"-"6" @ "8010" E "8030" J0:1:7: O 4280 T(">>>>>>>>>>>>>>SELL<<<<<<<<<<<<<<" Y ^~,,5;"WHAT DO YOU WANT TO SELL?",,,5;"1: HARVESTED CROP",,5;"2: LAND":,,5;"3: NOTHING" h5,,:,,:1;">>>>>>>ENTER NUMBER ONLY<<<<<<<<" m CR=CR- rZ wZ"3""8050" |"8000"+Z*"100"  "8010"  6 e,,"YOU HAVE ";A;" ACRESWORTH OF",,,"HARVESTED CROP, AND THE CURRENT",,"PRICE IS `";P;" PER ACRE." #,,"HOW MUCH DO YOU WANT TO SELL?" Z Z<çZɺZZ>A"8140" A=A-Z  M=M+Z*P  SCC=Z*P "300" 1X=L-PT-R()-R("2")-R()-R("4")-R("5")-R(Q)  "8010"  4 ,,"YOU HAVE ";X;" UNUSED ACRES AT",,,"PRESENT,AND THE CURRENT LAND ",,,"PRICE IS `";LP;" PER ACRE.",,,"HOW MANY ACRES DO YOU WANT TO",,,"SELL?" :Z DZɺZZ<çZ>X"8250" NL=L-Z S LSC=Z*LP X M=M+Z*LP l"300" !43:4:0 : !>(">>>>>>>>>>>>>>SPRAY<<<<<<<<<<<<<" !R,,"AT PRESENT IT COSTS `";V;" TO SPRAY":,,"ONE ACRE ,BUT YOU MUST SPRAY ALL":,,"OF YOUR LAND SO THIS WILL COST":,,"YOU `";V*L;"." !W 4300 !\ 9990' !pJ="5" !z M=M-V*L !| SPC=L*V ! CR=CR- !"300" #' :BB=1:"<"-"6" #SUB ROUTINES #721,5;"KEY YOUR REQUIREMENTS" # # HAZARDS # #X=18 #2:7: #0:7: #7:0: $0:2: $3:2: $2:2: $X $ X=15 $ (.3,12 :.2~L,2:X $7;0;10 ,13 ;1;"FIRE":100d:7;12 ,0;"TRACTORS IN DUTCH BARN DESTROYED" $ T=0 $ 200 $S $TDROP IN GRAIN PRICE $W1:1:7: $XX=15 $Y N=*5 $Z?.005y# =,40(:10 :N/100d,40(:10 $[ N=*5 $\8.003xD,40(:10 :N/100d,35#:X $^(1;2,0;"TELEX NEWS" $h,,,,"BAN ON AMERICAN GRAIN SHIPMENTS LIFTED. WHEAT PRICES FALL BY`100 PER ACRE. BRITISH FARMERS ARE TO LOBBY PARLIAMENT." $| 9990' $P=P-100d % % %& "9820" %: "9992" %D"300" %4:1:7: %["1","2";"    " %R4;3,2;"  " %I4,2;"    " %U5,2;"    " %["6","2";"    " %T4;8,2;"" %S9 ,2;"    " %X10 ,2;"    " &\"11","2";"    " &G,,,,11 ;"WRITTEN BY":3;" D.Fortune & M.Lloyd-Jones" & ,,1;1;18,17;"":1;0;19,7;"COPYRIGHT ";1;19,17;"";0;" 1983":4600 &%0:0:7: &*1;6,11 ;"WARNING":8,0;"Copies of this recording may be","made only for the sole use","of the purchaser unless written"," permission is obtained." &/(150:6,11 ;"WARNING" &4:17,0;">>>>DO YOU NEED INSTRUCTIONS?<<<" &9I,,5;1;"KEY";0;" Yes or No ?" &>I$= &H="""9790" &RI$="N"I$="n""9980" &\2:7:1: &fE2:7:1::"INSTRUCTIONS" &k,," IN THIS SIMULATION YOU ARE THEMANAGER OF A COMMERCIAL WHEATFARM,IT IS YOUR DUTY TO SEETHAT THE FARM IS ITSGREATEST CAPACITY." &p{,," YOUR OBJECTIVE IS INCREASEASSETS TO `250,000 IN 3555MONTHS: THE EXACT NUMBER DEPENDSON THE LEVEL OF DIFFICULTY." &u,," YOU MUST DECIDE WHEN IT IS BESTTO PLANT OUT YOUR SEEDS;SELLTHE HARVESTED CROP;BUY EXTRALAND;SPRAY AGAINST INSECTS ,ETC.ETC.(A LIST OF ALL AVAILABLECOMMANDS WILL BE SHOWN)." &w "9990" &z" YOU ARE RESTRICTED THREE COMMANDS PER MONTH, SO MAKE YOURCHOICE WISELY.":" YOUR CROPS WILL NEED WATER INORDERLIVE ,SOME OF THETIME THIS WILL BE PROVIDED BYRAINFALL,BUT OFTEN YOU WILL HAVETO SUPPLIMENT THE RAIN WITH YOUROWN IRRIGATION. THE CROPS PREFERTO HAVE FROM 8092MM OF WATERBUT WILL SURVIVE ON ANYTHINGFROM 65120MM. THE WEATHERMANGIVES YOU AN ESTIMATE AS HOWMUCH RAIN HE THINKS THERE WILLBE,BUT DO NOT TRUST HIM ALL THETIME." &|"CROPS WILL ONLY GROW WHEN TEMPERATURE IS ABOVE 42 F. SEEDS CAN ONLY BE PLANTED IF TEMPERATURE IS ABOVE 35 F." &~ "9990" &n" BEFORE YOU CAN PLANT THE WHEAT,YOU MUST FIRST OWN LANDPLANTON, SEEDSPLANT ,MEN ANDTRACTORSPLANT WITH." &I,," AS YOU ACQUIRE MORE MONEY , YOUMAY WISH PURCHASE A COMBINEHARVESTER. THESE, LIKE TRACTORS,NEED A MANDRIVE THEM, COST `400 IN UPKEEP EACH MONTH. A COMBINE HARVESTER IS ABLE TOHARVEST RIPE CROP FIVE TIMESFASTER THAN A TRACTOR CAN,BUT ISUNABLEDO ANY OTHER JOB."," TRACTORS , HOWEVER , CAN PLANT,FERTILISEHARVEST." &/"A TRACTOR COSTS `200 IN UPKEEPEACH MONTH." & "9990" &]"YOU ARE WARNED THAT LACK OFHARVESTING RESOURCES MAY RESULTIN A LOSS OF RIPE CROPS": &"BY ADDING FERTILISER CROPS,YOU DOUBLE THE AMOUNT WHICH CANBE HARVESTED FROM ONE ACRE.","IT COSTS `40-48FERTILISE ONEACRE, BUT THE FERTILISERS EFFECTIS LOST AND CROPS WILL NOT GROW IN THE MONTH THAT INSECTS ATTACKOR FROST, RUST (too much water) OR DROUGHT OCCURS." &a,," INSECTS CAN BE REPELLED BYSPRAYING YOUR CROPS AT A COST OF`15 PER ACRE OF LAND OWNED." &F,,"PROMTS ARE GIVEN IN THE MENUWHEN LEVEL OF DIFFICULTY IS 4&5." & "9990" &2:"COMMANDSAVAILABLE(I)" &G,,"BUY.............LAND",,"SEEDS",,"TRACTORS",,"COMB. HARVESTERS" &b,,"END.............ENDS THE GAME.",,,"FERTILISE.......FERTILISES ONE",,"MONTH OLD CROPS" &0,,"HARVEST.........HARVESTS RIPE",,"CROPS" &y,,"HIRE............EMPLOYS MORE",,"LABOURERS.",,,"IRRIGATE........IRRIGATES CROPS",,"`3 PER ACRE." & "9990" &"COMMANDSAVAILABLE(II)",,"NOTHING.........MOVESEND OF",,"MONTH.",,,"PLANT...........PLANTS SEEDS",,"WHICH TAKE FIVE",,"MONTHSRIPEN." &_,,"SELL............RIPE CROP",,"LAND.",,,"SPRAY...........SPRAYS AGAINST",,"INSECTS." &8,,"TO GIVE A COMMAND,ENTER ONLY THEINVERSE LETTER(S)." & 9990' &K=09980& & 300, &1:2:7: &m:1;" LEVELS OF DIFFICULTY":1;5,1;"5 EASY (E.E.C. Support Grant)":,,1;1;"4 POSSIBLE (A Dorset Farm)":,,1;1;"3 DIFFICULT(A Scottish Farm)",,1;"2 HARD(Withdrawal from E.E.C)":,,1;1;"1 IMPOSSIBLE !(No Import":1;17;" Restrictions)" &D &D"5""9982" 'DD=30+"5"*D '~7;0;16,0;"YOU HAVE ";DD;" MONTHS IN WHICH TO",,"ACHIEVE YOUR GOAL OF `250,000. " '.,,,,,,"PRESSANYKEYTOSTARTTHEGAME." 'J$= '=""9987' ': ' 4430N '621,3;"PRESSENTERTOCONTINUE" 'J$ '  '  ':,,13 ;"RESULT":,,,,,,,,"AFTER ";K;" MONTHS , THE BANK":"WILL NOT GRANT YOU AN OVERDRAFT.":1;14,4;" YOU ARE THEREFORE SACKED.":250: '15,4;1;"ENTERGOTO 5PLAY AGAIN.":200:19,4;1;"OR GOTO 200 TO CONTINUE": krub