File MANAG.FC (FOCAL source file)

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

C-PS/8 FOCAL, 1971
 1.02 C DAS MANAGEMENT SPIEL PRUEFT IHRE EIGNUNG ZUR STEUERUNG
 1.03 C DES PRODUKTIONS-BUDGETS. 2 RIVALISIERENDE TEAMS VERSUCHEN
 1.04 C VIERTELJAEHRLICH MIT GROESSTEM PROFIT UND KLEINSTEM
 1.05 C VERLUST ZU ARBEITEN. BITTE EXTENDED FUNCTIONS LOESCHEN.
 1.06 C MIT GO BEGINNT ES : TEAM 1 GIBT DANN SEINE DATEN EIN.
 1.07 C PRODUKTIONSHOEHE , REKLAMEAUSGABEN UND STUECKPREIS.
 1.08 C TEAM 2 FOLGT MIT SEINEN DATEN. FOCAL INTERPRETIERT DIE
 1.09 C DATEN UND GIBT EINEN VIERTELJAHRES-BERICHT.
 1.10 T !"DAS MANAGEMENT SPIEL"!"********************"!
 1.12 S C(1)=250000;S C(2)=C(1);S H(1)=1000;S H(2)=H(1)
 1.20 S A(1)=125000;S A(2)=A(1);S TO=250000
 1.30 T !"WENN DIE MANAGER BEREIT SIND KANN ES LOS GEHEN"!
 1.31 F I=1,2;D 4
 1.40 S IQ=1
 1.50 F I=1,2;D 5
 1.55 S TA=AC(1)+AC(2);S D=A(1)*P(1)+A(2)*P(2)
 1.60 S QT=3.2*FSQT(IQ)*FRAN()
 1.64 S TO=TO*(1.07*TA/D*100);F I=1,2;D 1.99;S SU=SH(1)+SH(2)
 1.65 S I=1;D 3;S I=2;D 3;I (PD(1)-S(1))1.68,1.68
 1.66 I (PD(2)-S(2))1.71,1.71;S A(1)=S(1);S A(2)=S(2);G 1.85
 1.68 I (-PD(2)+S(2))1.75
 1.69 S A(1)=PD(1);S A(2)=PD(2);S TO=A(1)+A(2);G 1.85
 1.71 S A(2)=PD(2);S RS=TO-A(2);I (PD(1)-RS)1.73,1.74
 1.73 S A(1)=RS;G 1.85
 1.74 S A(1)=PD(1);G 1.85
 1.75 S A(1)=PD(1);S RS=TO-A(1);I (PD(2)+RS)1.77
 1.76 S A(2)=PD(2);G 1.85
 1.77 S A(2)=RS
 1.85 F I=1,2;D 1.97;D 4
 1.87 S IQ=IQ+1;I (IQ-4)1.5,1.5
 1.95 T !"AUF WIEDERSEHEN !"!
 1.97 S H(I)=PD(I)-A(I);S C(I)=C(I)+A(I)*P(I)-A(I)-C(I)
 1.99 S SH(I)=(AC(I)/TA)*(P(1)+P(2))/(2*P(I))
 3.01 S SH(I)=SH(I)/SU;S S(I)=TO*SH(I);S PD(I)=U(I)+H(I)
 3.02 S CI(I)=H(I)/50
 4.01 T !"BERICHT FUER TEAM ",%1,I," FUER DAS ",IQ,". QUARTAL"
 4.02 T !"MARKT-ANTEIL       BARSCHAFT   ANZ.VERKAUFT    INVENTUR"
 4.04 T !%8.02,100*SH(I),"%   DM",C(I),"   ",%9,A(I),"   ",%7,H(I)
 4.05 I (C(I))4.06,4.06,4.08
 4.06 T !"TEAM "%1," IST BANKROTT !"
 4.08 T !!
 5.01 T !"TEAM ",%1,I," WIEVIEL STUECK WOLLEN SIE PRODUZIEREN 
 ";A U(I)
 5.02 T !"TEAM ",%1,I,"        WAS GEBEN SIE FUER WERBUNG AUS 
 ";A AC(I)
 5.03 T !"TEAM ",I,"             WIE HOCH IST DER STUECKPREIS 
 ";A P(I)



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