()0RLBTC-PS/8 FOCAL, 1971?MB3BBC DAS MANAGEMENT SPIEL PRUEFT IHRE EIGNUNG ZUR STEUERUNG?MCTBCC DES PRODUKTIONS-BUDGETS. 2 RIVALISIERENDE TEAMS VERSUCHEN?MC2BDC VIERTELJAEHRLICH MIT GROESSTEM PROFIT UND KLEINSTEM?MDRBEC VERLUST ZU ARBEITEN. BITTE EXTENDED 
UNCTIONS LOESCHEN.?MD1BFC MIT GO BEGINNT ES : TEAM 1 GIBT DANN SEINE DATEN EIN.?MEOBGC PRODUKTIONSHOEHE , REKLAMEAUSGABEN UND STUECKPREIS.?ME/BHC TEAM 2 FOLGT MIT SEINEN DATEN. FOCAL INTERPRETIERT DIE?MPABIC DATEN UND GIBT EINEN VIERTELJAHRES-BERICHT.?MF%
LS C(1)=250000;S C(2)=C(1);S H(1)=1000;S H(2)=H(1)?MF;BTS A(1)=125000;S A(2)=A(1);S TO=250000?MGXB^T !"WENN DIE MANAGER BEREIT SIND KANN ES LOS GEHEN"!?MG!B
F I=1,2;D 4?MG	B(S IQ=1?MG0B2F I=1,2;D 5?MHGB7S TA=AC(1)+AC(2);S D=A(1)*P(1)+A(2)*P(2)?MHVB<S QT=3.2*FSQT(IQ)*FRAN()?MH5CS TO=TO*(1.07*TA/D*100);F I=1,2;D 1.99;S SU=SH(1)+SH(2)?MINCAS I=1;D 3;S I=2;D 3;I (PD(1)-S(1))1.68,1.68?MI,CBI (PD(2)-S(2))1.71,1.71;
 A(1)=S(1);S A(2)=S(2);G 1.85?MI9CDI (-PD(2)+S(2))1.75?MJTCES A(1)=PD(1);S A(2)=PD(2);S TO=A(1)+A(2);G 1.85?MJ/CGS A(2)=PD(2);S RS=TO-A(2);I (PD(1)-RS)1.73,1.74?MJ:CIS A(1)=RS;G 1.85?MKGCJS A(1)=PD(1);G 1.85?MK
CKS A(1)=PD(1);S RS=TO-A(1);I (PD(2)+RS)1.77?MK,CLS A(2)=PD(2);G 1.85?MK4CMS A(2)=RS?MLCUF I=1,2;D 1.97;D 4?MLPCWS IQ=IQ+1;I (IQ-4)1.5,1.5?ML
C
T !"AUF WIEDERSEHEN !"!?ML;C!S H(I)=PD(I)-A(I);S C(I)=C(I)+A(I)*P(I)-A(I)-C(I)?MMRCS SH(I)=(AC(I)/TA)*(P(1)+P(2))/(2*P(I))?MM.FAS SH(I)=SH(I)/SU;S S(I)=TO*SH(I);S PD(I)=U(I)+H(I)?MM9FBS CI(I)=H(I)/50?MNYHAT !"BERICHT FUER TEAM ",%1,I," FUER DAS ",IQ,". QU
RTAL"?MN:HBT !"MARKT-ANTEIL       BARSCHAFT   ANZ.VERKAUFT    INVENTUR"?MO[HDT !%8.02,100*SH(I),"%   DM",C(I),"   ",%9,A(I),"   ",%7,H(I)?MO)HEI (C(I))4.06,4.06,4.08?MO<HFT !"TEAM "%1," IST BANKROTT !"?MP]HHT !!?MFIBJT !"DAS MANAGEMENT SPIEL"!"***********
********"!?MQ	JAT !"TEAM ",%1,I," WIEVIEL STUECK WOLLEN SIE PRODUZIEREN 
 ";A U(I)?MJCT !"TEAM ",I,"             WIE HOCH IST DER STUECKPREIS 
 ";A P(I)?MQBJBT !"TEAM ",%1,I,"        WAS GEBEN SIE FUER WERBUNG AUS 
 ";A AC(I)?MANL S MANAG?M?AL, 1971?M      WAS GEBEN SIE FUER WERBUNG AUS 
 ";A AC(I)?MANDARD FEATURES 2,3,4,5"!?MSVK T "RUBOUT DELETES PRECEEDING CHARACTER"!?MS1K"T "	";S D=FOUT(223);T "	 OR CTRL/U KILLS LINE"!!?MKG 1.4?M4?L D DTA3:FILE.FD

Note: Lines longer than 256 characters were wrapped