File RNKP1.FC (FOCAL source file)

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

File is corrupt so listing may have errors.  Lines starting with * may not be in program.

C DATAPLAN-FOCAL73
   1.01 C PR. RNKP1
*  1.10 E
   1.20 T !!!"DATA-PLAN PROGR. RNKP1
   2.10 A !!!"AUSWERTUNG FUER MONAT(ZB. 10.74)"MO;I (MO-12.99)2.15;T "   FEHLER";G 2.1
   2.15 S M=FITR(MO);S I1=FITR(((MO-M)*100-74)*12+M+.01);S MO=M
   2.30 A !!"AUSDRUCK MITARBEITER 
"AM
   2.35 I (AM-.1)3.1;A !!"SOLLZEIT(STD)"SO
   3.10 A !!"AUSWERTUNG FUER PROJEKTE 
"AP;I (AP-.01)4.1
   3.30 S M=1
   3.40 T !!%2,"KZ"M,;A ":  VON AUFTR.NR."AU(M);I (AU(M)-.001)3.6;A " BIS AUFTR.NR."AU(M+1)
   3.50 S M=M+2;G 3.4
   3.60 S NE=M-2
   3.65 A !!"KORR."M;I (M-.1)4.1;A "  KZ"M;D 3.4;G 3.65
   4.10 D 31.1;D 31.12;D 31.14;I (AM-.1)5.1;S N=I1;D 31.4;D 31.42
   4.12 D 31.44;D 31.45;D 5.14;D 5.16;D 5.18;I C
   4.14 S N=I1;D 31.31;D 31.33
   4.15 D 28.05;D 28.1;S J=4;;D 7.15
   4.20 D 8.2;T "MITARBEITER-TAETIGKEITEN IM MONAT ";D 12+MO/100;T %4,(I1-MO)/12+1974
   4.22 T "   SOLLZEIT:"%4.01,SO," STD
   4.25 D 7.22
   4.30 D 8.02;T "  NR.  MITARBEITER   AUFTRAG       TAETIGKEIT       STD.     IST-SOLL
   4.35 O R I;S SZ=;A H1,H2,H,H3;I (H2)4.35;D 8.02;G 4.6
   4.40 O R I
   4.42 A H1;I (H1)4.9
   4.46 A H2,H,H3;I (H2)4.4;I (FABS(H1-H4)-.01)4.6
   4.50 D 7.62;D 8.02;T :47,%8.02,SZ,"   "%5.02,SZ-SO;S SZ=;D 16
   4.60 D 16;T %3,H1,"  ";D 11;T :20,%6,H3,:30,%3,H," ";D 9;T :47,%8.02,H2
   4.62 S SZ=SZ+H2;S H4=H1;G 4.4
   4.90 D 4.5;O C
   5.10 I (AP-.01)5.6;I (.1-AM)5.2
   5.12 S N=I1;D 31.4;D 31.42;D 31.44;D 31.45
   5.14 A AZ;F M=1,AZ;D 21
   5.16 A AZ;F M=1,AZ;A H,N
   5.18 A AZ;F M=1,AZ;D 20
   5.19 I C
   5.20 S N=I1;D 31.35;D 31.37
   5.30 A N
   5.38 D 31.1;D 31.12;D 31.14
   5.40 O R I;S NZ=1;S NA=1;S N1=AU(1);S N2=AU(2);S M=1
   5.50 D 6;I (-NZ)5.55;D 7
   5.55 S M=M+1;I (N-M+.1)5.6;I (NA-NE-.1)5.5
   5.60 O C;O T
   5.90 D 31.1;D 31.12;Q
   5.99 R
   6.10 I (-NZ)6.2;I (N2-.1)6.12;I (.01-FABS(AU(1)-N2))6.2
   6.12 S NA=NA+2;S N1=AU(NA);S N2=AU(NA+1);S NZ=1
   6.20 A AU(1);I (NZ)6.4;I (.01-FABS(AU(1)-N1))6.4;S NZ=-1
   6.30 F K=1,20;S SY(K)=;S SJ(K)=
*  6.32 S RNKP1
   6.40 A K;I (K)6.5;A SY(K),SJ(K);G 6.4
   6.50 I (-NZ)6.6;R
   6.60 A AZ;I (.1-AZ)6.7;R
   6.70 F K=1,AZ;A H,H4,H5,H8
   7.10 D 28.05;D 28.1;S J=4;S H4=;S H5=;S H=;S H8=;S H9=;S SZ=;S SK=
   7.15 D 8.02;T "DATA-PLAN PROGRAMM RNKPA: NACHKALKULATION IM TECHNISCHEN BUERO
   7.16 D 8.2;D 28.2
   7.17 T :27,"PROJEKTAUSWERTUNG FUER MONAT ";D 12+MO/100;T %4,(I1-MO)/12+1974
   7.22 D 8.02;F I=1,70;T "=
   7.25 D 8.2;T "TAETIGKEIT     NR.  MITARBEITER           STD     DM/STD        KOSTEN
   7.26 G 7.31
   7.30 C
   7.31 D 7.62;D 8.02;S H=0
   7.34 A AZ;S ZA=1
   7.40 I (AZ-.1)7.76;I (AZ-ZA+.1)7.6;A H2,H1,H8,H3;S ZA=ZA+1
   7.45 I (.1-FABS(H-H2))7.6
   7.46 D 8;D 9;T :13,%4,H1,:21;D 11;I (.01-H8)7.5
   7.48 T %8.02,:60,H3;S H5=H5+H3;S SK=SK+H3;G 7.4
   7.50 T %8.02,:35,H8,:42,H3/H8,:60,H3
   7.52 S H4=H4+H8;S H5=H5+H3
   7.54 S SZ=SZ+H8;S SK=SK+H3;G 7.4
   7.56 G 7.4
   7.60 I (SK-.001)7.7
   7.62 D 8.02;F I=1,70;T "-
   7.64 D 8.02;D 9;T :21,"ENDE MONAT"%8.02,:35,SZ;I (SZ-.01)7.65;T :42,SK/SZ
   7.65 T :60,SK
   7.66 D 8.2
   7.70 S H=H+1;I (20.1-H)7.76;S SZ=SY(H);S SK=SJ(H);I (SJ(H)-.001)7.45
   7.71 D 8;D 9;T :21,"UEBERTRAG"%8.02,:35,SY(H);I (SY(H)-.01)7.72;T :42,SJ(H)/SY(H)
   7.72 T :60,SJ(H)
   7.73 G 7.45
   7.76 S H1=;S H2=;F H=1,20;S H1=H1+SY(H);S H2=H2+SJ(H)
   7.78 D 8;T "SUMME               UEBERTRAG"%8.02,:35,H1;I (H1-.01)7.8;T :42,H2/H1,:60,H2
   7.80 D 8.02;T "SUMME               IM MONAT":35,H4;I (H4-.01)7.81;T :42,H5/H4,:60,H5
   7.81 D 8.02;F I=1,70;T "=
   7.82 D 8.02;T "SUMME               ENDE MONAT":35,H4+H1
   7.83 I (H1+H4-.01)7.84;T :42,(H2+H5)/(H1+H4),:60,H2+H5
   7.84 D 7.3
   8.02 T !;S J=J+1
   8.04 I (60-J)8.06;R
   8.06 D 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
   8.10 T !!!;S J=J+3
   8.20 T !!;S J=J+2
   9.01 C LEISTG
   9.10 S K=12*H-11
   9.20 S DU=FOUT(FX(K));S K=K+1
   9.30 I (FX(K)-159.1)9.99;I (K-12*H-.1)9.2
   9.99 R
  10.01 T "HALLENBAD NEUKIRCHEN
  10.02 T "VERWALTUNGSGEBAEUDE MAIER,II.BAUABSCHNITT
  10.03 T "SCHULE TALHEIM
  10.04 T "KLAERANLAGE ALTBERG
  10.05 T "UNTERFUEHRUNG SCHILLERSTRASSE
  11.01 C NAMEN
  11.10 S K=12*H1+288
  11.20 S DU=FOUT(FX(K));S K=K+1
  11.30 I (FX(K)-159.1)11.99;I (K-12*H1-299.1)11.2
  11.99 R
  12.01 T "JANUAR
  12.02 T "FEBRUAR
  12.03 T "MAERZ
  12.04 T "APRIL
  12.05 T "MAI
  12.06 T "JUNI
  12.07 T "JULI
  12.08 T "AUGUST
  12.09 T "SEPTEMBER
  12.10 T "OKTOBER
  12.11 T "NOVEMBER
  12.12 T "DEZEMBER
  16.02 T !;S J=J+1
  16.04 I (58-J)16.06;R
  16.06 D 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
* 16.32        UEBERTRAG"%8.02,:35,H1;I (H1-.01)7.8;T :42,H2/H1,:60,H2
  20.01 C LEISTG
  20.10 A K;S H=12*K-11
  20.20 S DU=FX(H,FIN());S H=H+1;I (159.1-FX(H-1))20.2
  20.30 S K=FIN()
  21.01 C NAMEN
  21.10 A K;S H=12*K+288;A K
  21.20 S DU=FX(H,FIN());S H=H+1;I (159.1-FX(H-1))21.2
  21.30 S K=FIN()
  28.05 T !;S J=FOUT(140);F J=1,400;S J=J
  28.10 T "BUERO FUER INGENIEURBAUWESEN OTTO PAULER SCHWAEBISCH GMUEND T.07171/2000"!!
  28.20 T %6,"AUFTRAG-NR."AU(1)
  28.30 T %6.01,:30,"POS.:"AU(2)
  28.40 T :65,"SEITE"!!;S J=6
  31.01 R
  31.10 O I TTY:,E
  31.12 O O TTY:
  31.14 O O LPT:
  31.30 C
  31.31 CO I DTA1:RNK0(N)
  31.32 C
  31.33 O I SYS:RNK0(N)
  31.34 C
  31.35 CO I DTA1:RNK1(N)
  31.36 C
  31.37 O I SYS:RNK1(N)
  31.40 C
  31.42 O A DSK:RNK2
  31.44 CO I DTA0:RNK3
  31.45 O I DSK:RNK3
  31.99 T !!"PROGR. RNKP1  31.1.75



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