
E A

C FOCAL15 V6A
01.01 E
01.05S A=0;S B=0;S C=0;S D=0
01.10 S P=92;S S=2800;S E=200;S Y=3;S A=1600;S I=8;S H=3000
01.11 S X=3
01.12 S R=P
01.13 S K=0
01.15S D=D+1
01.16IF (D-10000)1.2,1.2,2.2
01.20IF (X+22)1.3,1.3,1.4
01.30S A=A+1;GOTO 2.1
01.40IF (X-22)1.5,1.6,1.6
01.50S B=B+1;GOTO 2.1
01.60S C=C+1
02.10 S D=0
02.20 T !;D 6;S K=K+1;T "YEAR"K,!,D," STARVED
02.21 T I," ARRIVED";S P=P+I;I (R*Q+S-10*(P+A))2.3;S P=FITR(P/2)
02.22 D 5.92;S S=0;S H=-1;S Z=3
02.30 T !"POPULATION IS "P
02.31 T !"THE CITY OWNS "A," ACRES"
02.33 I (H-1)2.35;T !"WE HARVESTED";D 3.2;S Z=Y
02.35 I (H)2.51;T !"RATS ATE "E," BUSHELS,
02.51 T " YOU HAVE NOW"!
02.52 T S," BUSHELS IN STORE";I (M)5.9;T "     (",P*(17+Z)+1
02.53 S N=FITR(8*I+(4+Z+X)*(P-I));S M=0;T ")(",N,")"
03.10 D 6;D 8;S Y=FITR(Y*3+I+X);T "LAND IS TRADING AT
03.20 T Y," BUSHELS PER ACRE,";S C=1
03.30 D 4.3;A " BUY?"Q;I (Q)7.2, 3.8
03.40 I (Y*Q-S)3.9,3.6;D 4.6;G 3.3
03.50 D 4.5;G 3.3
03.60 D 3.9;G 4.8
03.70 S A=A+Q;S S=S-Y*Q;S C=0
03.80 A !"TO SELL?"Q;I (Q)7.2,3.9;S Q= -Q;I (A+Q)3.5
03.90 S A=A+Q;S S=S-Y*Q;S C=0
04.10 T !"BUSHELS TO USE
04.11 A " AS FOOD?"Q;I (Q)7.2;I (Q-S)4.2,4.7;D 4.6;G 4.1
04.20 S S=S-Q;S C=1
04.30 A !"HOW MANY ACRES OF LAND DO YOU WISH TO
04.35 A " PLANT WITH SEED? "D
04.40 I (D)7.2;I (A-D)4.45;I (FITR(D/2)-S-1)4.65;D 4.6;G 4.3
04.45 D 4.5;G 4.3
04.50 D 7;T A," ACRES"
04.60 D 7;S M=-1;D 2.52;S M=0
04.65 I (D-N-1)5.1;D 7;T P," PEOPLE";G 4.3
04.70 D 4.2
04.80 S D=0
05.10 S S=S-FITR(D/2);D 8;S Y=C;S H=D*Y
05.11 S L=-1;D 5.91;D 2.35;S L=0
05.30 S S=H+S;D 5.6;S C=FITR(Q/(17+Z))
05.31 S X=((Q-P*(17+Z))/P);I (-X)5.35;S X=0
05.35 D 5.91
05.40 S Q=FITR(10*FABS(FRAN()));I (P-C)2.1;S D=P-C;S P=C;G 2.2
05.60 S I=FITR((A+S+10000*FRAN())/1000);I (P-400)5.85
05.70 S I=FITR(FABS(400/P-6*I));R
05.85 S I=FITR(FABS((P^2/1000)/3+I*.7-Y))
05.90 R
05.91 I (R-S)9.1,9.1;S E=S;S S=0;S R=3*E+Z;R
05.92 T !"**PLAGUE**(HA! HA!)**PLAGUE***PLAGUEPLAGUEPLAGUE***"
06.10 T !"JEANNIE:    "%5
07.10 D 6;T "BUT MASTER, YOU HAVE ONLY";R
07.20 L GOODBYE
08.10 S X=FRDM()
08.12 I (X+22)8.14,8.14,8.20
08.14 S C=3;R
08.20 I (X-22)8.22; S C=5
08.22 S C=4;R
09.10 S E=R;S R=3*R+Z;S S=S-E;R

*
