File: BARON.FC of Disk: Disks/PDP8-Net/multos8
(.FC,.FO Focal format converted to 'WRITE' listing)
C-PS/8 FOCAL, 1971 01.01 C BARON FROM 'PROGRAMMING LANGUAGES' COPYRIGHT 1970 01.02 C BY DIGITAL EQUIPMENT CORP. MODIFIED BY TOM KLOOS 01.03 C OMSI SOFTWARE DEVELOPMENT GROUP 01.04 C LAST CHANGE: 8/19/71 01.05 01.06 C THIS PROGRAM ALLOWS YOU TO BE THE BARON OF A SMALL TOWN 01.07 C WHERE EVERYONE IS DEPENDENT ON YOU. HOW YOU MANAGE YOUR 01.08 C LAND WILL DEPEND ON HOW YOU ANSWER THE QUESTIONS IN THE 01.09 C PROGRAM, AND ON THOSE ANSWERS WILL DEPEND YOUR FATE AS WELL. 01.10 C ** YOU CAN ONLY PLANT 10 ACRES PER PERSON 01.11 C ** YOU MUST HAVE AT LEAST ONE BUSHEL FOR FOOD. 01.12 C ** TO PREVENT STARVATION, EACH PERSON NEEDS 20 BUSHELS. 01.13 C ** YOU ARE PROMOTED WHEN YOU GET A POPULATION GREATER THAN 250. 01.14 01.19 I ((#/3)-FITR(#/3)) 1.2,1.9,1.2 01.20 T !"YOU DO NOT HAVE ENOUGH FEATURES.",! 01.30 T "RESTART FOCAL WITH FEATURE 2.",!;Q 01.40 01.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 02.01 S D=0 02.05 S ZZ=FOUT(1)+FOUT(24);F ZZ=1,100; 02.20 D 6;S O=D;D 10;T !!!"LAST YEAR"!D," STARVED, 02.25 S O=I;D 10;T !I," ARRIVED,";S P=P+I;I (250-P)9.2;I (-Q)2.3 02.27 S P=FITR(P/2);T !"**PLAGUE**"! 02.30 S O=P;D 10;T !"POPULATION IS"P,!!"THE CITY OWNS 02.35 S O=A;D 10;T A," ACRES."!!;I (H-1Z)2.5;T "WE HARVESTED 02.40 D 3.2 02.50 S O=E;D 10;T !" RATS ATE"E," BUSHELS,YOU NOW HAVE 02.60 S O=S;D 10;T !S," BUSHELS IN STORE."! 03.10 D 6;S Y=FITR(8*FRAN())+17;T "LAND IS TRADING AT 03.20 S O=Y;D 10;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;T !"YOU MAY BUY AT MOST" 03.45 D 10;T S/Y-1,!;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,9.1;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;S O=A;D 10;T A, " ACRES."! 04.60 D 7;D 2.6 04.65 I (D-10*P-1)5.1;D 7;S O=P;D 10;T P," PEOPLE."!;G 4.3 04.70 D 4.2 04.80 D 6;T "YOU HAVE NO GRAIN LEFT AS SEED !!!"!;S D=0 04.90 FOR ZZ=1,450; 05.10 S S=S-FITR(D/2);D 8;S Y=C;S H=D*Y 05.20 D 8;S E=0;I (FITR(C/2)-C/2)5.3;S E=S/C 05.30 S S=S-E+H;D 8;S I=FITR(C*(20*A+S)/P/100+1);S C=FITR(Q/20) 05.40 S Q=FITR(10*FABS(FRAN()));I (P-C)2.01;S D=P-C; S P=C 05.60 G 2.05 06.10 T !!"LORD BARON: " 07.10 D 6;T "BUT YOU HAVE ONLY";R 07.20 T "PLEASE ";D 6;T "I AM NOT IT A MOOD FOR JESTING."!;R 08.10 S C=FITR(5*FABS(FRAN()))+1 09.10 T "REVOLUTION!!!"!!!;G 9.9 09.20 T !!,:10,"YOU HAVE BEEN PROMOTED TO PRIME MINISTER OF BIRTH CONTROL!"! 09.90 Q 10.10 S ZF=1+FITR(FLOG(O+1)/FLOG(10));T %(ZF);R