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

2606&"+??M?M[NZO
237FOCAL,1969?MZ^BAT !"THE MANAGEMENT GAME"?MZ>BJSET C(1)=250000;SET C(2)=C(1);SET H(1)=1000;SET H(2)=H(1)?M@[WBTSET A(1)=125000;SET A(2)=A(1);SET TO=250000?M@[9B^T !!"IF THE JUNIOR EXECUTIVES ARE READY, I AM"!!;FOR I=1,2;D 4?M\@B(SET IQ=1?M\JB2FOR I=1,2;DO 5?M\%B7SET TA=AC(1)+AC(2); SET D=A(1)*P(1) + A(2)*P(2)?M@\5B<SET QT=3.2*FSQT(IQ)*FRAN()?M]UC@S TO=TO*(1.07+QT*TA/D*100);F I=1,2;D 1.99;S SU=SH(1)+SH(2)?M]1CAS I=1; DO 3;S I=2;DO 3;IF (PD(1)-S(1)) 1.68,1.68;?M@^SCBIF (PD(2)-S(2))1.71,1.71;SET A(1)=S(1);SET A(2)=S(2);GOTO 1.85?M^!CDIF (-PD(2)+S(2))1.75;?M@
ACESET A(1)=PD(1);SET A(2)=PD(2);SET TO=A(1)+A(2); GOTO 1.85?M@
^CGSET A(2)=PD(2);SET RS=TO-A(2);IF (PD(1)-RS)1.73,1.74?M
,CISET A(1)=RS;GOTO 1.85?M@
;CJSET A(1)=PD(1);GOT 1.85?M@ WCKSET A(1)=PD(1);SET RS=TO-A(1);IF (-PD(2)+RS)1.77;?M@ &CLSET A(2)=PD(2);GOTO 1.85?M /CMSET A(2)=RS?M@&PCUFOR I=1,2; DO 1.97;DO 4?M@!QC
T !!"GOODBYE JUNIOR EXECUTIVES!"?M!0C!SET H(I)=PD(I)-A(I);SET C(I)=C(I)+A(I)*P(I)-AC(I)-CI(I)?M@"HC
SET SH(I)=(AC(I)/TA)*(P(1)+P(2))/(2*P(I))?M@"'FASET SH(I)=SH(I)/SU;SET S(I)=TO*SH(I);SET PD(I)=U(I)+H(I)?M"3FBSET CI(I)=H(I)/50?M@
QHAT !!"QUARTERLY REPORT FOR TEAM",%1,I," FOR QUARTER",IQ?M%XHBT !!"MARKET SHARE  CASH ON HAND  NUMBER SOLD  INVENTORY"?M
?HEIF (C(I))4.06,4.06,4.08?M@$[HFT !!"TEAM",%1, " IS: **********BANKRUPT**********"?M$ HHT !!?M$<JAT !!"TEAM",%1,I,"INPUT PRODUCTION LEVEL";ASK U(I)?M@%7JBT !!"TEAM",I,"INPUT ADVERTIZING BUDGET";ASK AC(I)?M@
0HDT !!%8.02,100*SH(I),"% $",C(I),"  ",%9,A(I)," ",%7,H(I)?M@
643T !!"TEAM",I,"INPUT PRICE PER UNIT";ASK P(I)?M >CWSET IQ=IQ+1;IF (IQ-4)1.5,1.5;?M@C@@A@TQQB C@@B@TY@/7H@@A
0
512@B@MQF/"A@@A@KR0
64@B@L\R <TO
13R5P^I@
1P@
593
2X@
1224@A??UL(1SH@B
1369+(U@@A@EQ@
67@A@MTT
1024@A@GZP
1344@B@M
P
67@B@NS"
1024@B@GY@
1281
14],
256
19\D8@QT
3PM;ASU
1PH BS@@A@KX<1"PD@A@KR0
201@A
0
1216@B@LYLHKPD@B@M
P
201@B
0
1171
12\R <$GF

.7.
3744X[HEX$8 O.X%X&X'8A
.$G
/6]G.V
7.
+K('.K%'.K"'.K
'.K\'.KY'.KV'.N]
2972