ZXTape! 2 Corn Cropper (16K Version)CCSD. Fortune M. Lloyd-Jones1983EnglishStrategy: Management6.00NoneOriginalTZXed by Guy BearmanCORN /)1 32750 #G="10":B="300":Q="6":R="7" "9900" 236099\,210 M="5E4":L="30":S=ç:R(Q):T=:W="2":CH=S:WW="80":K=T:LP="750":SP=L:CHP="6E4":TP="25E3":F="40":F(Q):P=D:A=S:V="15":J=A Z-C="9100":EE="9200":O="9300":U="8100" dF$=" FERTILISE ":I$="INSUFFICIENT ":N$="NOTHING":M$="HOW MANY ACRES DO YOU WANT TO ":Q$="QUANTITY YOU NEED TO ":W$="IRRIGATION" !:I=ç:HT=I:FT=I:PT=I:CR= "H="(*25)+2" ,CRç"800" 6/LC=L-R()-R("2")-R()-R("4")-R("5")-R(Q) JN.1}L,40(:.25~,10 :C$="" O "3000" V2R;" WORKERS : @ ` pw";C$ YxR;ٰ"4";" AGE OF CROPS BY WEEK NO. 12345RIPE  ACRES";C$ ^I" THE WEATHERMAN SAYS THERE WILL BEMM OF RAIN. IRRIGATION=0": `pR;ۼ;">>>>ENTER YOUR ";" 1ST"CR=3;" 2ND"CR=2;"LAST"CR=1;" COMMAND<<<<<" rY="22":Z="13" |ç;,R;K;"20",;H;"20", "29";I;:ڰ"2";R;"18","26";""5E5",,;ۼ;"WELL DONE YOU EARN A BONUS":"9990":켧 4M<çC$:Q;"CASH RESOUCES OVERDRAWN" 6C$:,,;ۼ;ٰ"2";"AS YOU FAILED YOU ARE SACKED !"  B:"9999"   *HT=ç"850" 4CH1=CH 9CH1>WCH1=W >T1=T CT1>W-CH1T1=W-CH1 H#HS="(*2+4)*10*CH1+(*5+10)*T1" JHS>HTHS=HT K+R(Q)=R(Q)-HS:HS=HS+F(Q):A=A+HS:F(Q)=ç R "1350" SFT=-"900" T"860":"890" \T1=T ^ T>WT1=W c M1=W-T1: zFS="T1*(*5+10)+M1*(*3)+1" |FS>FTFS=FT  F("2")=FS PT=ç"950" #"860":PS="T1*(*5+15)+M1**2" PS>PTPS=PT S=S-PS:R()=PS 3"4":ڼ:R::"5";"RESULTS FOR WEEK ";K .PTç,,"YOU PLANTED ";PS;" ACRE";"S"PSɼ 1FTç,,"YOU FERTILISED ";FS;" ACRE";"S"FSɼ 9HTç,,"YOU HARVESTED ";HS;" ACRE";"S"HSɼ;"WORTH." *TA=M+(L*LP)+(S*SP)+(A*P)+(T*TP)+(CH*CHP) TA>"5E5"K=D"700" M<ç:"755" >".1""1050" &,,"THERE WAS AN INSECT ATTACK WHICH" J>ç"1049"  "1020" "TOOK ";IA;" ACRES OF WHEAT."  "1050" IIA=(*(R("1")+R("2")+R("3")+R("4")+R("5")+R(Q))/"2"-1)+/ Z=Q:X=IA R(Z)=ç"1037" R(Z)=R(Z)-:X:F(Q): Z=Z-:"1025" !"WAS DESTROYED BY INSECTICIDE." J=J- $+J=ç,,"YOUR CROPS NEED RESPRAYING." .>".15""1100" 3 WW=WW+G 8,,"WAGES NOW = `";WW L>".08""1150" QF=F+"(*5)+5" V.,,"THE COST TO";F$;"IS NOW `";F;" PER ACRE." ~>".08""1170" V=V+"(*5)+1" 2,,"THE COST OF SPRAYING 1 ACRE HASRISEN TO `";V >".2""1190" H="(*20)+5" H=H+(*"5")-"2" Z="(*S/4)":S=S-Z /,,"RATS ATE ";Z;" ACRE";"S"Zɼ;" OF SEEDS." !,,"THERE WAS ";H;" MM OF RAIN," W$;"= ";I;"MM MAKING A TOTAL" "OF ";I+H;"MM= "; &I+HȰ"16"I+Hǰ"35"H$="CROPS LIVE" &I+HȰ"23"I+Hǰ"27"H$="PERFECTION" I+H<"16"I+H>"35""2000" H$ Mç"9998"  "9990" M="M-W*WW-50*T-100*CH"  LP=LP+"(*30)-10" TP=TP+"(*500)-175" CHP=CHP+"(*1000)-350" (SP=SP+"(*R)-2" <K=K+:P=P+"(*D)-20" A"200" FF(Q)=F(Q)+F("5") KR(Q)=R(Q)+R("5") PZ="5"̰"2"- ZR(Z)=R(Z-) dF(Z)=F(Z-):Z o F()=ç p R()=ç: I+H<"16"H$="DROUGHT" I+H>"35"H$="RUST" H$;" WHICH DESTROYED ";  "1020":IA;" ACRES.":"1270" R:R:ټ: "WEEK:   STATUSREPORT  CASH :` PRICES";C$;"LAND : ` ";C$;"SEEDS : ` ";C$ /" WHEAT : `  ";C$ P" TRACTORS: `  COMBINES: ` "  >"2":ں:R::"14";ۼ;"BUY ?":"5400":"5420":"5455" Z"4"B  "5460"  Z=E=TP Z="4"E=CHP _"16","4";Q$;"BUY ?" dY iY<çźYY"5220" n!E*Y>M,,I$;"FUNDS":B:"5000" xZ= S=S+Y zZ= "2"L=L+Y |Z= T=T+Y ~Z= "4"CH=CH+Y M=M-(E*Y):O &,,"13";"QUANTITY MARKET" ."15";"OWNED";"25";"PRICE" "/,,"1 SEEDS(Acres)";:VV=S:C:VV=SP:EE '0,,"2 LAND(Acres)";:VV=L:C:VV=LP:EE: ,+,,"3 TRACTORS";:VV=T:C:VV=TP:EE 1-,,"4 COMBINES";:VV=CH:C:VV=CHP:EE 6,,"5 ";N$: O*"16",ç;"KEY NO. OF CATEGORY":Z: T Z=E=SP UZ="2"E=LP V "2":ڰ"2":R: $,,"COST T0";F$;"= `";F;" PER ACRE" 9,,"ONE WEEK OLD CROPS =";ݼ;R();" ACRE";"S"R()ɼ R()=ç"5950" ,,M$:F$;"?" Z Z<çZ>R()ZɺZ"5610" FT=Z:M=M-FT*F:O ?,,"CROPS READY TO";F$ RB:B uQ:Q: ,,"YOU HAVE:-" j,,W;" WORKERS",,,,T;" TRACTOR";"S"Tɼ,,,,CH;" COMBINE HARVESTER";,,,"AND ";R(Q);" ACRES OF RIPE CROP." R(Q)=ç"6200" ,,M$:"HARVEST ?" Z Z<çZ>R(Q)"6080"  HT=Z:O 8,,"CROPS YET RIPE." B "5955" d0ç:ç:R::Q;"HIRE OF LABOUR ?" iAQ,ç;"ANOTHER WORKER AVAILABLE ","A COST OF `";WW;" PER WEEK" s"9800":W=W+:O l\"5":ڰ"5":ç::G;W$:,,"WEATHER FORECAST IS ";H;"MM":Q,ç;Q$;Q,"9";" OF ";W$ I I<çIɺI"7050"  M=M-L*:O "4":ڰ"4":ç::Z=LC ,,"YOU HAVE:-",,,,ݼ;S;" ACRESWORTH OF SEEDS";ç;,,,W;" WORKERS",,,,T;" TRACTOR";"S"Tɼ,,,,"AND ";ݼ;Z;" UNUSED ACRES.";ç;,,,M$:"PLANT OUT?" S=ç"7640" Y Y>SY<çY>Z"7590"  PT=Y:O ,,I$;"SEEDS" B B @+缧:ڼ:R::"14";ۼ;"SELL ?":"5400" EC,,"3 RIPE CORN";:VV=A:C:VV=P:EE:,,"4 ";N$:"5455" RZB T "5460" X Z=E=P r="16","4";Q$;"SELL":,,Q;"UNCULTIVATED LAND = ";LC-PT:Y wZ=YSS=S-Y:U |Z="2"YLC-PTL=L-Y:U Z=YAA=A-Y:U  "8050" M=M+(E*Y):O !5级::"13";"SPRAYING" !95Q,ç;"SPRAYING YOUR ";L;" ACRES WILL","COST `";L*V !>,,"Spray -";:"9800" !HJ="5":M=M-(L*V):O #X$=VV:("19"-X$+);X$;: #X$=VV:("29"-X$+);X$: $T CR=CR-:B &H6,,G;ۼ;"Yes or No ?":J$:J$="N"J$="n"B &M &[ç:ç:R::G,G;"CORN CROPPER":,,Q;"Written by D.Fortune":,,G;ۼ;"  C.C.S. ":B &Iڼ::Q,;"ENTER LEVEL OF DIFFICULTY",,,Q;"5-EASY to 1-HARD" &D &D"5""9982" 'D="45"+"5"*D 'RG:,,"YOU HAVE ";D;" WEEKS IN WHICH TO",,"ACHIEVE YOUR GOAL OF `500,000." '+ۼ;"20",;"PRESSENTERTOCONTINUE" 'J$= ' ="""9992" ' : ' g b,qr