C-PS/8 FOCAL, 1971 1.01 C BARON FROM PROGRAMMING LANGUAGES COPYRIGHT 1970 1.02 C BY DIGITAL EQUIPMENT CORP. MODIFIED BY TOM KLOOS 1.03 C OMSI SOFTWARE DEVELOPMENT GROUP 1.04 C LAST CHANGE: 8/19/71 1.05 1.06 C THIS PROGRAM ALLOWS YOU TO BE THE BARON OF A SMALL TOWN 1.07 C WHERE EVERYONE IS DEPENDENT ON YOU. HOW YOU MANAGE YOUR 1.08 C LAND WILL DEPEND ON HOW YOU ANSWER THE QUESTIONS IN THE 1.09 C PROGRAM, AND ON THOSE ANSWERS WILL DEPEND YOUR FATE AS WELL. 1.10 C ** YOU CAN ONLY PLANT 10 ACRES PER PERSON 1.11 C ** YOU MUST HAVE AT LEAST ONE BUSHEL FOR FOOD. 1.12 C ** TO PREVENT STARVATION, EACH PERSON NEEDS 20 BUSHELS. 1.13 C ** YOU ARE PROMOTED WHEN YOU GET A POPULATION GREATER THAN 250. 1.14 1.19 I ((/3)-FITR(/3)) 1.2,1.9,1.2 1.20 T !"YOU DO NOT HAVE ENOUGH FEATURES.",! 1.30 T "RESTART FOCAL WITH FEATURE 2.",!;Q 1.40 1.90 S P=95;S S=2800;S H=3000;S E=200;S Y=3;S A=1000;S I=5;S Q=1 2.01 S D=0 2.05 S ZZ=FOUT(1)+FOUT(24);F ZZ=1,100; 2.20 D 6;S O=D;D 10;T !!!"LAST YEAR"!D," STARVED, 2.25 S O=I;D 10;T !I," ARRIVED,";S P=P+I;I (250-P)9.2;I (-Q)2.3 2.27 S P=FITR(P/2);T !"**PLAGUE**"! 2.30 S O=P;D 10;T !"POPULATION IS"P,!!"THE CITY OWNS 2.35 S O=A;D 10;T A," ACRES."!!;I (H-1Z)2.5;T "WE HARVESTED 2.40 D 3.2 2.50 S O=E;D 10;T !" RATS ATE"E," BUSHELS,YOU NOW HAVE 2.60 S O=S;D 10;T !S," BUSHELS IN STORE."! 3.10 D 6;S Y=FITR(8*FRAN())+17;T "LAND IS TRADING AT 3.20 S O=Y;D 10;T Y," BUSHELS PER ACRE;";S C=1 3.30 D 4.3;A " BUY "Q;I (Q)7.2,3.8 3.40 I (Y*Q-S)3.9,3.6;D 4.6;T !"YOU MAY BUY AT MOST" 3.45 D 10;T S/Y-1,!;G 3.3 3.50 D 4.5;G 3.3 3.60 D 3.9; G 4.8 3.70 S A=A+Q;S S=S-Y*Q;S C=0 3.80 A !"TO SELL "Q;I (Q)7.2,3.9;S Q=-Q;I (A+Q)3.5 3.90 S A=A+Q;S S=S-Y*Q;S C=0 4.10 T !"BUSHELS TO USE 4.11 A " AS FOOD "Q;I (Q)7.2,9.1;I (Q-S)4.2,4.7;D 4.6;G 4.1 4.20 S S=S-Q;S C=1 4.30 A !"HOW MANY ACRES OF LAND DO YOU WISH TO 4.35 A !"PLANT WITH SEED "D 4.40 I (D)7.2;I (A-D)4.45;I (FITR(D/2)-S-1)4.65;D 4.6;G 4.3 4.45 D 4.5;G 4.3 4.50 D 7;S O=A;D 10;T A, " ACRES."! 4.60 D 7;D 2.6 4.65 I (D-10*P-1)5.1;D 7;S O=P;D 10;T P," PEOPLE."!;G 4.3 4.70 D 4.2 4.80 D 6;T "YOU HAVE NO GRAIN LEFT AS SEED !!!"!;S D=0 4.90 FOR ZZ=1,450; 5.10 S S=S-FITR(D/2);D 8;S Y=C;S H=D*Y 5.20 D 8;S E=0;I (FITR(C/2)-C/2)5.3;S E=S/C 5.30 S S=S-E+H;D 8;S I=FITR(C*(20*A+S)/P/100+1);S C=FITR(Q/20) 5.40 S Q=FITR(10*FABS(FRAN()));I (P-C)2.01;S D=P-C; S P=C 5.60 G 2.05 6.10 T !!"LORD BARON: " 7.10 D 6;T "BUT YOU HAVE ONLY";R 7.20 T "PLEASE ";D 6;T "I AM NOT IT A MOOD FOR JESTING."!;R 8.10 S C=FITR(5*FABS(FRAN()))+1 9.10 T "REVOLUTION!!!"!!!;G 9.9 9.20 T !!,:10,"YOU HAVE BEEN PROMOTED TO PRIME MINISTER OF BIRTH CONTROL!"! 9.90 Q 10.10 S ZF=1+FITR(FLOG(O+1)/FLOG(10));T %(ZF);R