File BARON.FC (FOCAL source file)

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

()0W[BTC-PS/8 FOCAL, 1971?MB3BAC     BARON FROM 	PROGRAMMING LANGUAGES	 COPYRIGHT 1970?MCRBBC     BY DIGITAL EQUIPMENT CORP.  MODIFIED BY TOM KLOOS?MC(BCC     OMSI SOFTWARE DEVELOPMENT GROUP?MC8BDC     LAST CHANGE: 8/19/71?MC;BE?MD]BFC     THIS PROGRAM AL
OWS YOU TO BE THE BARON OF A SMALL TOWN?MD=BGC WHERE EVERYONE IS DEPENDENT ON YOU.  HOW YOU MANAGE YOUR?ME]BHC LAND WILL DEPEND ON HOW YOU ANSWER THE QUESTIONS IN THE?ME?BIC PROGRAM, AND ON THOSE ANSWERS WILL DEPEND YOUR FATE AS WELL.?MFXBJC ** YOU CAN ON
Y PLANT 10 ACRES PER PERSON?MF3BKC ** YOU MUST HAVE AT LEAST ONE BUSHEL FOR FOOD.?MGSBLC ** TO PREVENT STARVATION, EACH PERSON NEEDS 20 BUSHELS.?MG7BMC ** YOU ARE PROMOTED WHEN YOU GET A POPULATION GREATER THAN 250.?MG:BN?MHMBSI ((/3)-FITR(/3)) 1.2,1.9,1.
?MH$BTT !"YOU DO NOT HAVE ENOUGH FEATURES.",!?MH:B^T "RESTART FOCAL WITH FEATURE 2.",!;Q?MH=B(?MI^CZS P=95;S S=2800;S H=3000;S E=200;S Y=3;S A=1000;S I=5;S Q=1?MI$DAS D=0?MI8DES ZZ=FOUT(1)+FOUT(24);F ZZ=1,100;?MJQDTD 6;S O=D;D 10;T !!!"LAST YEAR"!D," STAR
ED,?MJ1DYS O=I;D 10;T !I," ARRIVED,";S P=P+I;I (250-P)9.2;I (-Q)2.3?MKCD[S P=FITR(P/2);T !"**PLAGUE**"!?MK^D^S O=P;D 10;T !"POPULATION IS"P,!!"THE CITY OWNS?MK<DS O=A;D 10;T A," ACRES."!!;I (H-1Z)2.5;T "WE HARVESTED?MLBD(D 3.2?ML^D2S O=E;D 10;T !" RATS AT
"E," BUSHELS,YOU NOW HAVE?ML4D<S O=S;D 10;T !S," BUSHELS IN STORE."!?MMOFJD 6;S Y=FITR(8*FRAN())+17;T "LAND IS TRADING AT?MM	FTS O=Y;D 10;T Y," BUSHELS PER ACRE;";S C=1?MM9F^D 4.3;A " BUY
"Q;I (Q)7.2,3.8?MNTF(I (Y*Q-S)3.9,3.6;D 4.6;T !"YOU MAY BUY AT MOST"?MN!F-D 10;T S/Y-1,!;G 3.3?MN*F2D 4.5;G 3.3?MN3F<D 3.9; G 4.8?MOBGFS A=A+Q;S S=S-Y*Q;S C=0?MO\GPA !"TO SELL
"Q;I (Q)7.2,3.9;S Q=-Q;I (A+Q)3.5?MO+GZS A=A+Q;S S=S-Y*Q;S C=0?MO7HJT !"BUSHELS TO USE?MPUHKA " AS FOOD
"Q;I (Q)7.2,9.1;I (Q-S)4.2,4.7;D 4.6;G 4.1?MP
HTS S=S-Q;S C=1?MP7H^A !"HOW MANY ACRES OF LAND DO YOU WISH TO?MQFHA !"PLANT WITH SEED
  "D?MQ$H(I (D)7.2;I (A-D)4.45;I (FITR(D/2)-S-1)4.65;D 4.6;G 4.3?MQ-H-D 4.5;G 4.3?MQ?H2D 7;S O=A;D 10;T A, " ACRES."!?MRGH<D 7;D 2.6?MR$IAI (D-10*P-1)5.1;D 7;S O=P;D 10;T P," PEOPLE."!;G 4.3?MR*IFD 4.2?MSFIPD 6;T "YOU HAVE NO GRAIN LEFT AS SEED  !!!"!;S D
0?MSPIZFOR ZZ=1,450;?MS$JJS S=S-FITR(D/2);D 8;S Y=C;S H=D*Y?MS:JTD 8;S E=0;I (FITR(C/2)-C/2)5.3;S E=S/C?MTZJ^S S=S-E+H;D 8;S I=FITR(C*(20*A+S)/P/100+1);S C=FITR(Q/20)?MT7J(S Q=FITR(10*FABS(FRAN()));I (P-C)2.01;S D=P-C; S P=C?MT=J<G 2.05?MUJLJT !!"LORD BAR
N:  "?MU[NJD 6;T "BUT YOU HAVE ONLY";R?MU9NTT "PLEASE ";D 6;T "I AM NOT IT A MOOD FOR JESTING."!;R?MVIPJS C=FITR(5*FABS(FRAN()))+1?MVYRJT "REVOLUTION!!!"!!!;G 9.9?MV?RTT !!,:10,"YOU HAVE BEEN PROMOTED TO PRIME MINISTER OF BIRTH CONTROL!"!?MWCSZQ?MTJS ZF=1
FITR(FLOG(O+1)/FLOG(10));T %(ZF);R?MR?L S BARON?M? DTA2:TEMP;W?M?M?MURE 2.",!;Q? CHANGE: 8/9/71?ARTING LOCATIOON YOU.  HOW YOU MANAGE YOUR?MT/BHC LAND WILL DEPEND ON HOW YOU ANSWER THE QUESTIONS IN THE?MUQBIC PROGRAM, AND ON THOSE ANSWERS WILL DEPEND YOUR
FATE AS WELL.?MU*BJC ** YOU CAN ONLY PLANT 10 ACRES PER PERSON?MVEBKC ** YOU MUST HAVE AT LEAST ONE BUSHEL F

Note: Lines longer than 256 characters were wrapped



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