File BARON.FC (FOCAL source file)

Directory of image this file is from
This file as a plain text file

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



Feel free to contact me, David Gesswein djg@pdp8online.com with any questions, comments on the web site, or if you have related equipment, documentation, software etc. you are willing to part with.  I am interested in anything PDP-8 related, computers, peripherals used with them, DEC or third party, or documentation. 

PDP-8 Home Page   PDP-8 Site Map   PDP-8 Site Search