E A
S I=FCLK()
S Y=I/1000
S Y=FITR(Y)
S Y=1000*Y
S Y=I-Y
F C=1,Y;S I=FRAN()
X FCHR[4]
C: BARON GAME
 
01.26 T %6;S P=95;S S=2800;S H=3000;S E=200
01.27 S Y=3;S A=1000;S I=5;S Q=1;S D=0;S T=0
 
02.20 S T=T+1;T !!"YEAR ",T;D 6;T !!"LAST YEAR"!D," STARVED,
02.25 T !I," ARRIVED,";S P=P+I;;I (-Q)2.3
02.27 S P=FITR(P/2);T !"**PLAGUE**"!
02.30 T !"POPULATION IS"P,!!"THE CITY OWNS
02.35 T A," ACRES."!!;I (H-1)2.5;T "WE HARVESTED
02.40 D 3.2
02.50 T !" RATS ATE"E," BUSHELS,YOU HAVE
02.60 T !S," BUSHELS IN STORE."!
02.70 I (250-P)9.2

03.10 D 6;S Y=FITR(8*FRAN())+17;T "LAND IS TRADING AT
03.20 T Y," BUSHELS PER ACRE;"
03.30 D 4.3;A " BUY?"Q;I (-Q)3.4,3.8;D 7.2;G 3.3
03.40 I (Y*Q-S)3.9,3.6;D 4.6;T !"YOU MAY BUY ONLY "
03.45 T S/Y-1,!;G 3.3
03.50 D 4.5;D 4.3;G 3.8
03.60 D 3.9; G 4.8
03.70 S A=A+Q;S S=S-Y*Q
03.80 A !"SELL?"Q;I (Q)3.85,3.9;S Q=-Q;I (A+Q)3.5;G 3.9
03.85 D 7.2;D 4.3;G 3.8
03.90 S A=A+Q;S S=S-Y*Q

04.10 T !"BUSHELS TO USE
04.11 A " AS FOOD?"Q;I (Q)4.12,9.1;I (Q-S)4.2,4.7;D 4.6;G 4.1
04.12 D 7.2;G 4.1
04.20 S S=S-Q
04.30 A !"ACRES TO
04.35 A " PLANT WITH SEED?"D
04.40 I (D)4.42;I (A-D)4.45;I (FITR(D/2)-S-1)4.65;D 4.6;G 4.3
04.42 D 7.2;G 4.3
04.45 D 4.5;G 4.3
04.50 D 7;T A, " ACRES."!
04.60 D 7;D 2.6
04.65 I (D-10*P-1)4.9;D 7;T P," PEOPLE."!;G 4.3
04.70 D 4.2
04.80 D 6;T "NO GRAIN LEFT AS SEED!!"!;S D=0
04.90 F C=1,300;
04.95 X FCHR[4]

05.10 S I=FSQT(Q/(20*P));S S=S-FITR(D/2);S Y=FITR(FABS(FRAN())*4.5*I)+1
05.20 S H=D*Y;D 8;S E=0;I (FITR(C/2)-C/2)5.3;S E=FABS(S/C)
05.30 S S=S-E+H;D 8;S I=FITR(C*I*(20*A+S)/(P+40)/100+1);S C=FITR(Q/20)
05.40 S D=0;I (P-C)5.5;S D=P-C;S P=C
05.50 S Q=FITR(4500*FABS(FRAN())/(20*D+E+150));G 2.2

06.10 T !!"LORD BARON:  "

07.10 D 6;T "BUT YOU HAVE ONLY";R
07.20 T "PLEASE, ";D 6;T "I AM IN NO MOOD FOR JESTING."!;R

08.10 S C=FITR(5*FABS(FRAN()))+1

09.10 T !"REVOLUTION!!!"!!!;O T;Q
09.20 I (5000-A)9.5;T !!"PROMOTED TO PRIME MINISTER OF "
09.30 I (2500-A)9.4;T "BIRTH CONTROL!"!;O T;Q
09.40 T "AGRICULTURE!"!;O T;Q
09.50 T "WOW! FRL. SCHULZ AGAIN!!"!;O T;Q
 
T "THIS PROGRAM ALLOWS YOU TO BE THE BARON OF A SMALL TOWN"!
T "WHERE EVERYONE IS DEPENDENT ON YOU.  HOW YOU MANAGE YOUR"!
T "LAND WILL DEPEND ON HOW YOU ANSWER THE QUESTIONS IN THE"!
T "PROGRAM, AND ON THOSE ANSWERS WILL DEPEND YOUR FATE AS WELL."!
T "** YOU CAN ONLY PLANT 10 ACRES PER PERSON"!
T "** YOU MUST HAVE AT LEAST ONE BUSHEL FOR FOOD."!
T "** TO PREVENT STARVATION, EACH PERSON NEEDS 20 BUSHELS."!
T "** YOU CAN ONLY PLANT 2 ACRES PER BUSHEL"!
T "** YOU ARE PROMOTED WHEN YOU GET A POPULATION GREATER THAN 250."!
L C I;G