FARMER @'@'B'<1:1:1::"":11 ,0;"":"" ES @B@(  $H 8   @R! @4%@  @ pp@ `Q  B@@(   @H 8   R @ @ A@ @ `Q@ B@@(   ?@ DH 8  Q@@ @@@@@@ PR @ B@@`@@DH 4 Q@@ @@ @R@@0 @B R  D @`@@$(@4 @@ @ @R@@ @! RA $ @ "$@4 @@K@@ @?@ r@@ !R $   D $@T! @K@ @@. *Q` @ R $   $    $@R! @E @ ! )Q O@ ChR! @@ CdR! ?>pIy5*> >@ @@b#vb0 858L0 ?<@B<|<<~ 4D  =Tx @ BBBBB@4D@  X r ~BBB@|H4 @?qTpBB|~@@p$4 '|}>BBDBB@$Q4?  _"@BSp@?<B~@~|BB<@@@@BBBb@B@BBB@(BBB@BBDbB@88D888x8Dxxx<|@|B~BRB@B~BJN>@x<(x<<<~B<~<<< <@< 8DD8D<@8888888 9888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888888iES 1H&1x3a ELEPHANT Software 1983  by S.P.Roggs.  P=100d:Y=1:SP=0:TSP=0:NP=10 :C=3000 :A=1000:H=5:L=(*5)+10 :R=A:AP=0:SC=AP (1:7: 2 6000p 1020:1030 p0,2;p;" ";0,13 ;A;" ";0,24;C;" ";13 ,26;2000+y 1,13 ;" ": $$6:17,21;h;" " .16,21;l;" " 818,21;r;" " B 7 LzGR=0:VAL=P/5:9300T$:GR=11 :VAL=A/30:9300T$:GR=22:VAL=C/400:9300T$ V&"HOW MANY ACRES TO BE SOLD ?";a$ j9200# tZ=11170 ~ASA1200  9000(#  9100#  1110V A=A-AS C=C+AS*L:1020 *val=a/30:gr=11 :9300T$ +val=c/400:gr=22:9300T$ &"HOW MANY TO BE BOUGHT ?";A$  9200# Z=11300 AS*LC13302  9400$  9100# ( 1240 2A=A+AS <C=C-AS*L:1020 FUgr=11 :val=a/30:9300T$:gr=22:val=c/400:9300T$ Z*"HOW MANY ACRES TO BE SOWN ?";A$ n 9200# xZ=11430 ASA1460  9000(#  9100#  1370Z ASC1490  9400$  1430 ASP*10 1530 119,0;"YOU ONLY HAVE ";P;" Workers"  90102#  1430 C=C-AS:1020 1,13 ;AS +gr=22:val=c/400:9300T$ AP=AS "/"HOW MANY BAGS TO FEED WORKERS ? ";A$ 6 9200# @Z=11630^ JASC1660| T 9400$ h 9100# r 1570" |C=C-AS:1020 +gr=22:val=c/400:9300T$  SP=0 P*10 =AS2050 SP=P-(AS/10 ) 0P=P-SP:gr=0:val=p/5:9300T$  TSP=TSP+SP 0SP>P*(*5+10 )/10 2200  Y=Y+1  Y=10 2400` H=1+(5*)  C=C+AP*H * R=0 4 C10000'R=C-10000' >R=R+(C*(-.5)) HC=C-R RNP=(*30) \P=P+NP fL=(*5)+10 z 1000 cQ=1621:Q,0;1,,:Q:16,0;"Farm Management Potential-POOR" b"IN YOUR SHORT PERIOD OF","MANAGEMENT YOU SUCCESSFULLY","STARVED ";TSP;" PEOPLE" 0:1:7::10 ,5;"Do you want another";12 ,9 ;"ATTEMPT at";14,7;"FARMER HORACE" "Y (yes): N (no)";x$ x$="N"x$="n"0:  9800H& ` j#0,8;"10 YEAR REPORT" ~"IN TEN YEARS OF FARMING:-" !TSP;" PEOPLE STARVED TO DEATH." ?A<1000"YOU SOLD OFF ";(1000-A);" ACRES OF LAND" <A>1000"YOU AQUIRED ";A+1000;" ACRES OF LAND" MSC=((100d*((150-TSP)/150)*(A/1500)*(P/150))) G"ON A SCALE FROM 1 TO 100 YOUR","PERFORMANCE RATES A SCORE OF",,SC,,, 4SC<20"YOU ARE AN INCREDIBLE FAILURE" <SC20SC<40("CAN'T YOU DO BETTER THAN THAT ?" /SC40(SC<60<"STRONG STUFF PAL !" 0SC60<"SO YOU THINK YOU'R GOD DO YOU ?" (TSP>150"NOW THAT'S A FARMER !" D"TYPE 'R' FOR ANOTHER RUN OF 10 YEARS OR ANY OTHER KEY TO FINISH."  2250 o7:0: p%0,568:255,0 q/i=1521:i,0;1,,:i rSi=718388X:i,175:0,-79O:72H,0:i si=12411 :10 ,i;"123456789":i:11 ,2;"Populus Acres Corn";13 ,0;"HORACE'S FARM";"in the YEAR";13 ,26;y t1:7:16,1;"Land Price/ Acre:- Bags";17,1;"Corn Yield / Acre:- Bags";18,1;"Rats Ate:- Bags" u #(719,0;"YOU ONLY HAVE ";A;" ACRES OF LAND" #2 100d #F QQ=19 #P 9100# #Z # qq=19 #QQ,0,,: #A$=""9260,$ # AS=0 #I=1̱A$ #-A$(I)<480ůA$(I)>5799260,$ $I $AS=A$ $ Z=0 $" $, Z=1 $S $Tval>70Fval=502 $U1:t=06:9 -t,GR+y;" ":t:6:W=8*(gr+y)-17+8*(gr+y):w,100d:0,val:w $^ $619,0;"YOU ONLY HAVE ";C;" BAGS OF CORN" $ 90102# &I1:1:9 : &J"Farmer HORACE has been put into","PRISON for STARVING his workers","to death.",," You now have to run the farm","for him in his abcence." &K"To ensure the same fate does","not befall you, Farmer HORACE","left you instructions to feed","the workers 10 bags of CORN per","YEAR each, to save them from","STARVATION." &L,," Of course you don't have to if","you don't want, but you won't","be allowed to run the farm for","the 10 years that you promised","to FARMER HORACE" &M;21,0;"Press any to start Farming":0: &R>   ELEPHANT Software. 1983  by S.P.Roggs.  9811>REM "" ASpecChess  ^