File RNKP1.FC (FOCAL source file)

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

X0
S()0C DATAPLAN-FOCAL73?MYABJE?MCCNYD 8.2;T "TAETIGKEIT     NR.  MITARBEITER           STD     DM/STD        KOSTEN?M]:NZG 7.31?M	:OLS H1=;S H2=;F H=1,20;S H1=H1+SY(H);S H2=H2+SJ(H)?MKOOPD 8.02;T "SUMME               IM MONAT":35,H4;I (H4-.01)7.81;T :42,H5
H4,:60,H5?MD+ORD 8.02;T "SUMME               ENDE MONAT":35,H4+H1?MI0OSI (H1+H4-.01)7.84;T :42,(H2+H5)/(H1+H4),:60,H2+H5?MEPPBT !;S J=J+1?MLIPDI (60-J)8.06;R?ME$PJT !!!;S J=J+3?MXUPTT !!;S J=J+2?ME<TAT "HALLENBAD NEUKIRCHEN?MFUTBT "VERWALTUNGSGEBAEUDE MAI
R,II.BAUABSCHNITT?MF!TCT "SCHULE TALHEIM?MF/TDT "KLAERANLAGE ALTBERG?MX\TET "UNTERFUEHRUNG SCHILLERSTRASSE?MGJXAT "JANUAR?MGRXBT "FEBRUAR?MGYXCT "MAERZ?MG XDT "APRIL?MG&XET "MAI?MG-XFT "JUNI?MG4XGT "JULI?MG<XHT "AUGUST?MHEXIT "SEPTEMBER?MHMXJT "OKTOBER?MH
XKT "NOVEMBER?MN,XLT "DEZEMBER?MH>AR?MH+>JO I TTY:,E?M7>LO O TTY:?M
4> C?M
?>"C?M K>$C?MPD^A !!"AUSDRUCK MITARBEITER 
"AM?M%>F^S M=1?MJ MFF K=1,AZ;A H,H4,H5,H8?MW
N8G 7.4?MCIOIG 7.45?MEGOTD 7.3?M\!DJA !!!"AUSWERTUNG FUER MONAT(ZB. 10.74)"MO;I (MO-12.99)2.15;T "   FEHLER";G 2.1?M"LNJD 28.05;D 28.1;S J=4;S H4=;S H5=;S H=;S H8=;S H9=;S SZ=;S SK=?MW)N>D 8.02;F I=1,70;T "-?MDOOQD 8.02;F I=1,70;T "=?MBXNVD 8.02;F I=1,70;
 "=?MZUN"A AZ;S ZA=1?M 2OBD 8.2?M	^KR?MIVL<A AZ;I (.1-AZ)6.7;R?MEZPFD 28.05;D 28.1;S J=4;D 7.15;D 7.16;D 7.17;D 7.22;D 7.25;D 7.62;D 8.02;R?MK\NQT :27,"PROJEKTAUSWERTUNG FUER MONAT ";D 12+MO/100;T %4,(I1-MO)/12+1974?M$[L(A K;I (K)6.5;A SY(K),SJ(K);G 6.4?M
8KZD 31.1;D 31.12;Q?MY5GAA !!"KORR."M;I (M-.1)4.1;A "  KZ"M;D 3.4;G 3.65?MOTHYD 7.22?MQRHOD 28.05;D 28.1;S J=4;;D 7.15?MVEH(O R I?M] BT !;S J=J+1?M[=H2D 7.62;D 8.02;T :47,%8.02,SZ,"   "%5.02,SZ-SO;S SZ=;D 16?MU*H^D 8.02;T "  NR.  MITARBEITER   AUFTRAG    
  TAETIGKEIT       STD.     IST-SOLL?MY%IZD 4.5;O C?M&+J&D 31.1;D 31.12;D 31.14?M"GJTS N=I1;D 31.35;D 31.37?MP7DI (AM-.1)3.1;A !!"SOLLZEIT(STD)"SO?MIPFJA !!"AUSWERTUNG FUER PROJEKTE 
"AP;I (AP-.01)4.1?MQ<HTD 8.2;T "MITARBEITER-TAETIGKEITEN IM MONAT ";D 12+MO/100;T %4,(I1-MO)/12+1974?MNOHVT "   SOLLZEIT:"%4.01,SO," STD?MK)N
D 7.62;D 8.02;S H=0?MZ3N-I (.1-FABS(H-H2))7.6?M[KN0T %8.02,:60,H3;S H5=H5+H3;S SK=SK+H3;G 7.4?MX5(^S K=FIN()?MS(TS DU=FX(H,FIN());S H=H+1;I (159.1-FX(H-1))20.2?MS,VJS K=12*H1+288?MS;VTS DU=FOUT(FX(K));S K=K+1?MTSV^I (FX(K)-159.1)11.99;I (K-12*H1-299.1)11.
?MGBWR?MT1*TS DU=FX(H,FIN());S H=H+1;I (159.1-FX(H-1))21.2?M]>*^S K=FIN()?MUBRJS K=12*H-11?MUQRTS DU=FOUT(FX(K));S K=K+1?MU&R^I (FX(K)-159.1)9.99;I (K-12*H-.1)9.2?ME-SR?MN&HO R I;S SZ=;A H1,H2,H,H3;I (H2)4.35;D 8.02;G 4.6?MVOH*A H1;I (H1)4.9?MN5H.A H2,H,H
;I (H2)4.4;I (FABS(H1-H4)-.01)4.6?MO?H>S SZ=SZ+H2;S H4=H1;G 4.4?M$$JLS N=I1;D 31.4;D 31.42;D 31.44;D 31.45?MYIJRA AZ;F M=1,AZ;D 20?MM)J<O C;O T?MKBN<I (SK-.001)7.7?MXNOD 8.02;D 9;T :21,"ENDE MONAT"%8.02,:35,SZ;I (SZ-.01)7.65;T :42,SK/SZ?MK2OAT :60,SK?MT9R
C LEISTG?MS"VAC NAMEN?MX*(AC LEISTG?MSH(JA K;S H=12*K-11?MX<*AC NAMEN?MTW*JA K;S H=12*K+288;A K?MPUJSI C?M%MHLD 31.44;D 31.45;D 5.14;D 5.16;D 5.18;I C?MV6JJI (AP-.01)5.6;I (.1-AM)5.2?MYNHJD 31.1;D 31.12;D 31.14;I (AM-.1)5.1;S N=I1;D 31.4;D 31.42?MR[N(I (A
-.1)7.76;I (AZ-ZA+.1)7.6;A H2,H1,H8,H3;S ZA=ZA+1?MR(N.D 8;D 9;T :13,%4,H1,:21;D 11;I (.01-H8)7.5?M[^N2T %8.02,:35,H8,:42,H3/H8,:60,H3?M[,N4S H4=H4+H8;S H5=H5+H3?MI$N6S SZ=SZ+H8;S SK=SK+H3;G 7.4?MV	H<D 16;T %3,H1,"  ";D 11;T :20,%6,H3,:30,%3,H," ";D 9;T :4
,%8.02,H2?MH>DOS M=FITR(MO);S I1=FITR(((MO-M)*100-74)*12+M+.01);S MO=M?M]K DI (58-J)16.06;R?MX FD 28.05;D 28.1;S J=4;D 8.02;D 4.2;D 4.22;D 7.22;D 4.3;D 16.02;D 16.02;R?M
(>^C?M V>(C?MRNN^C?M^R8ET !;S J=FOUT(140);F J=1,400;S J=J?M^<8JT "BUERO FUER INGENIEURBAUWESEN OTTO PAULER SCHWAEBISCH GMUEND T.07171/2000"!!?M
K8TT %6,"AUFTRAG-NR."AU(1)?M
Z8^T %6.01,:30,"POS.:"AU(2)?MH
8(T :65,"SEITE"!!;S J=6?MH2>
CO I DTA1:RNK0(N)?MH6>!O I SYS:RNK0(N)?MH:>CO I DTA1:RNK1(N)?M]6>%O I SYS:RNK1(N)?M 
>*O A DSK:RNK2?M )>,CO I DTA0:RNK3?M$=>-O I DSK:RNK3?M!UOFS H=H+1;I (20.1-H)7.76;S SZ=SY(H);S SK=SJ(H);I (SJ(H)-.001)7.45?M!>OGD 8;D 9;T :21,"UEBERTRAG"%8.02,:35,SY(H);I (SY(H)-.01)7.72;T :42,SJ(H)/SY(H)?MI*OHT :60,SJ(H)?MPGJ^A N?M.NOD 8.02;T "DATA-PLAN P
OGRAMM RNKPA: NACHKALKULATION IM TECHNISCHEN BUERO?MI6BTT !!!"DATA-PLAN PROGR. RNKP1?MBTBAC PR. RNKP1?MWF2S M=M+2;G 3.4?MM4F<S NE=M-2?MMVL^F K=1,20;S SY(K)=;S SJ(K)=?ML0NPD 8.2;D 28.2?M]2>NO O LPT:?M^LTA AU(1);I (NZ)6.4;I (.01-FABS(AU(1)-N1))6.4;S NZ=-1?M
<L2I (-NZ)6.6;R?M$0JNA AZ;F M=1,AZ;D 21?MWLJPA AZ;F M=1,AZ;A H,N?M?T !!"PROGR. RNKP1  31.1.75?MNUHNS N=I1;D 31.31;D 31.33?M%(J2D 6;I (-NZ)5.55;D 7?MWXJ7S M=M+1;I (N-M+.1)5.6;I (NA-NE-.1)5.5?MMF(T !!%2,"KZ"M,;A ":  VON AUFTR.NR."AU(M);I (AU(M)-.001)3.6;A "
BIS AUFTR.NR."AU(M+1)?M%[J(O R I;S NZ=1;S NA=1;S N1=AU(1);S N2=AU(2);S M=1?M>LLS NA=NA+2;S N1=AU(NA);S N2=AU(NA+1);S NZ=1?M	FLJI (-NZ)6.2;I (N2-.1)6.12;I (.01-FABS(AU(1)-N2))6.2?MC$OND 8;T "SUMME               UEBERTRAG"%8.02,:35,H1;I (H1-.01)7.8;T :42,H2
H1,:60,H2?M+1L S RNKP1?M?           UEBERTRAG"%8.02,:35,H1;I (H1-.01)7.8;T :42,H2/H1,:60,H2?M+1)?M(NE 5.<HV8 KV8!K3< ,I
4O5K3
6O7K3
5
72IK8
:K8
;K9
<2C
=K>
?KV/2OEJCBBBTBHBA%^%"J;F^F$L:K7MQ

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