Directory of image this file is from
This file as a plain text file
C()0XKBTC-PS/8 FOCAL, 1971?MB3BAC BARON FROM PROGRAMMING LANGUAGES COPYRIGHT 1970?MCRBBC BY DIGITAL EQUIPMENT CORP. MODIFIED BY TOM KLOOS?MTIBCC OMSI SOFTWARE DEVELOPMENT GROUP?MC+BE?MDMBFC THIS PROGRAM ALLOWS YOU TO BE THE BARON OF A S ALL TOWN?MD-BGC WHERE EVERYONE IS DEPENDENT ON YOU. HOW YOU MANAGE YOUR?MEMBHC LAND WILL DEPEND ON HOW YOU ANSWER THE QUESTIONS IN THE?ME/BIC PROGRAM, AND ON THOSE ANSWERS WILL DEPEND YOUR FATE AS WELL.?MFHBJC ** YOU CAN ONLY PLANT 10 ACRES PER PERSON?MF KC ** YOU MUST HAVE AT LEAST ONE BUSHEL FOR FOOD.?MGCBLC ** TO PREVENT STARVATION, EACH PERSON NEEDS 20 BUSHELS.?MS,BMC ** YOU ARE PROMOTED WHEN YOU GET A POPULATION GREATER THAN 250.?MG:BSI ((/3)-FITR(/3)) 1.2,1.9,1.2?MHQBTT !"YOU DO NOT HAVE ENOUGH FEAT RES.",!?MH B^T "RESTART FOCAL WITH FEATURE 2.",!;Q?MH*B(?MIKCZS P=95;S S=2800;S H=3000;S E=200;S Y=3;S A=1000;S I=5;S Q=1?MIQDAS D=0?MI%DES ZZ=FOUT(1)+FOUT(24);F ZZ=1,100;?MI>DTD 6;S O=D;D 10;T !!!"LAST YEAR"!D," STARVED,?MJ^DYS O=I;D 10;T !I," ARRIVED,"; P=P+I;I (250-P)9.2;I (-Q)2.3?MJ0D[S P=FITR(P/2);T !"**PLAGUE**"!?MWND^S O=P;D 10;T !"POPULATION IS"P,!!"THE CITY OWNS?MKQD(D 3.2?MK-D2S O=E;D 10;T !" RATS ATE"E," BUSHELS,YOU NOW HAVE?MLCD<S O=S;D 10;T !S," BUSHELS IN STORE."!?ML^FJD 6;S Y=FITR(8*FRAN()) 17;T "LAND IS TRADING AT?MTYFTS O=Y;D 10;T Y," BUSHELS PER ACRE;";S C=1?MMQF(I (Y*Q-S)3.9,3.6;D 4.6;T !"YOU MAY BUY AT MOST"?MVJF-D 10;T S/Y-1,!;G 3.3?MM F<D 3.9; G 4.8?MU.GFS A=A+Q;S S=S-Y*Q;S C=0?MNEGZS A=A+Q;S S=S-Y*Q;S C=0?MUFHJT !"BUSHELS TO USE?MN[H S S=S-Q;S C=1?MN3H^A !"HOW MANY ACRES OF LAND DO YOU WISH TO?MV/HA !"PLANT WITH SEED "D?MOKH-D 4.5;G 4.3?MO]H2D 7;S O=A;D 10;T A, " ACRES."!?MO%H<D 7;D 2.6?MPBIAI (D-10*P-1)5.1;D 7;S O=P;D 10;T P," PEOPLE."!;G 4.3?MPHIFD 4.2?MP$IPD 6;T "YOU HAVE NO GRAIN LEFT AS SEED !!!"!;S D=0?MP.IZFOR ZZ=1,450;?MVVJJS S=S-FITR(D/2);D 8;S Y=C;S H=D*Y MQ"J^S S=S-E+H;D 8;S I=FITR(C*(20*A+S)/P/100+1);S C=FITR(Q/20)?MQ?J(S Q=FITR(10*FABS(FRAN()));I (P-C)2.01;S D=P-C; S P=C?MREJ<G 2.05?MRRLJT !!"LORD BARON: "?MW,NJD 6;T "BUT YOU HAVE ONLY";R?MS0PJS C=FITR(5*FABS(FRAN()))+1?MTJS ZF=1+FITR(FLOG(O+1)/FLOG(10 );T %(ZF);R?MS>RTT !!,:10,"YOU HAVE BEEN PROMOTED TO PRIME MINISTER OF BIRTH"?MG BNE?MSKRJT "REVOLUTION!!!"!!!;Q?MR3RYT " CONTROL!"!;Q?MC(BDC LAST CHANGE: 9/9/71?ML6F^D 4.3;A " BUY "Q;I (-Q)3.4,3.8;D 7.2;G 3.3?MM6GUD 7.2;D 4.3;G 3.8?MOBH*D 7.2;G 4.3?MU%HKA " AS FOOD "Q;I (Q)4.12,9.1;I (Q-S)4.2,4.7;D 4.6;G 4.1?MNQHLD 7.2;G 4.1?MT1GPA !"SELL "Q;I (Q)3.85,3.9;S Q=-Q;I (A+Q)3.5;G 3.9?MM^F2D 4.5;D 4.3;G 3.8?MQBJTD 8;S E=0;I (FITR(C/2)-C/2)5.3;S E=FABS(S/C)?MT=H(I (D)4.42;I (A-D)4.45;I (FITR(D/2)-S-1)4.65;D 4.6;G 4.3?MKKDS O=A;D 10;T A," ACRES."!!;I (H-1)2.5;T "WE HARVESTED?MRNTT "PLEASE, ";D 6;T "I AM NOT IN A MOOD FOR JESTING."!;R?MS/L D BARON;L S BARON?M?I AM NOT IN A MOOD FOR JESTING."!;R?G 4.3?=R(I)?MECD<S D=C(N-1)*(C(N-1)-B(2)*C(N-2))?MEYEAS D=D-C(N-2)*(T(1)-RM(1)-B(2)*C(N-1))?ME EFIF (D) 2.75,2.72,2.75?ME<EHS B(2)=B(2)+.1;S B(3)=B(3)+.1;G 2 85?MFWEKS D2 Note: Lines longer than 256 characters were wrapped