File is corrupt so listing may have errors. Lines starting with * may not be in program. C DATAPLAN-FOCAL73 1.01 C RNKPA 1.05 T !!!"DATA-PLAN PROGR. RNKPA * 1.10 E 1.20 A !!!"EINGABE "M;I (M-.1)3.1 1.34 A !!"MONAT(Z.B. 10.74)"M;I (M-12.99)1.35;T " FEHLER";G 1.34 1.35 S I=FITR(M);S I1=FITR(((M-I)*100-74)*12+I+.01) 1.55 S N=I1;D 31.3;D 31.32 2.30 D 31.1;D 31.12 * 2.30 S U(I)=U(1);S V(I)=V(1);S S(K+NK*I)=U(1);S T(K+NK*I)=V(1) 2.40 T !!!" KZ PERS.NR. STD. TAETIGK. AUFTR.NR. 2.45 S M=1;S K=1;D 31.1;D 31.12 2.50 T !%2,M;A " "AU(M) 2.52 I (AU(M)-.01)2.75;I (AU(M-4)-AU(M)-.1)2.55 2.53 A " PERS.NR. IN AUFSTEIG. REIHENFOLGE ! ZURUECK ZU KZ"M;G 2.5 2.55 A :14,AU(M+1),:22,AU(M+2),:29,AU(M+3) 2.70 I (76-M)2.75;S M=M+4;S K=K+4;G 2.5 2.75 A !!"KORR. "M;I (M-.1)2.8;A " KZ"M;D 2.5;D 2.55;G 2.75 2.80 I (AU(K)-.01)2.94 2.85 O R O 2.90 F M=1,4,K;T %3,AU(M),%6.02,AU(M+1),%2,AU(M+2),%6,AU(M+3),! 2.92 G 2.45 2.94 S K=K-4;D 2.85;D 2.9;T -1;O C;G 3.05 2.99 R * 3.01 BS(A(2*K-1))+FABS(A(2*K))-.01)10.99;T %2,K,%8.02,A(2*K V/2OEJCBBBTBHBA%^%"J;F^F$L:K7MQMDUJJS S(K+NK*I)=U(I);S T(K+NK*I)=V(I) 3.05 E 3.10 A !!"RECHNEN "K;I (K-.1)6.8 3.20 A !!"MONAT(Z.B. 10.74)"M;I (M-12.99)3.3;T " FEHLER";G 3.2 3.30 S I=FITR(M);S I1=FITR(((M-I)*100-74)*12+I+.01) 3.40 A !!"UEBERTRAG VOM VORMONAT "M1 4.10 S N=I1;D 31.4;D 31.42;S DU=FX(4095,0) 4.15 D 31.44;D 31.45 4.20 A AZ;F I=1,AZ;D 21 4.30 A AY;F I=1,AY;A M,N;S DU=FX(M,N) 4.40 I C 4.50 S N=I1;D 31.31;D 31.33;S M=501 4.60 A N;I (N)4.8 4.65 A H1,H2,H 4.70 S DU=FX(M,N);I (H1)4.72;S DU=FX(M+1,H1);S DU=FX(M+2,H1*A(N));G 4.75 4.72 S DU=FX(M+1,0);S DU=FX(M+2,-H1) 4.75 S DU=FX(M+3,H2);S DU=FX(M+4,H);S M=M+5;G 4.6 4.80 S DU=FX(500,M-5) 4.85 I C 4.90 S N=I1;D 31.34;D 31.36 5.30 S M=1;I (-.1+M1)5.75 5.40 S N=I1-1;D 31.35;D 31.37 5.50 O R O;T %3,AY,! 5.60 A AA;F M=1,AA;D 10;D 8 5.65 I (AY-AA-.1)5.7;F K=AA+1,AY;S H=FX(K);T %6,H,!,%1,-1;D 8 5.70 I C;G 5.8 5.75 O R O;T %3,AY,!;F K=1,AY;S H=FX(K);T %6,H,!,%1,-1;D 8 5.80 C 5.90 O C * 6.05 A " U"US(I)," V"VS(I)," F"D(I);S DF(I)=D(I) * 6.07 A !" IX "XS(I)," IY "YS(I)," IXY "I3(I)," E"EC(I) 6.10 C * 6.32 S RNKPA 6.40 O T 6.70 D 31.1;D 31.12 6.80 Q 7.30 C 8.10 S AZ=-2 8.20 S N=FX(500);S I=501 8.40 I (.01-FABS(FX(I+4)-H))8.56 8.50 S AZ=AZ+3;S A(AZ)=FX(I+3)+FX(I)/1000;I (FX(I+1))8.54 8.52 S A(AZ+1)=FX(I+1);S A(AZ+2)=FX(I+2);G 8.56 8.54 S A(AZ+1)=0;S A(AZ+2)=-FX(I+1) 8.56 S I=I+5;I (I-N-.1)8.4 8.70 O R O 8.76 T %3,(AZ+2)/3,!;I (AZ)8.82;F N=1,20;D 9 8.82 R 9.10 S H=1 9.20 I (.1-FABS(FITR(A(H))-N))9.4 9.30 T %3,FITR(A(H)),FITR((A(H)-FITR(A(H)))*1000+.1),%6.02,A(H+1),A(H+2),! 9.40 S H=H+3;I (H-AZ-.1)9.2;R 10.10 F K=1,40;S A(K)=0 10.15 A H 10.20 A K;I (K)10.4 10.30 A A(2*K-1),A(2*K);G 10.2 10.40 A AZ;I (AZ-.1)10.55 10.50 F H3=1,AZ;A K,N,H1,H2;S A(2*K-1)=A(2*K-1)+H1;S A(2*K)=A(2*K)+H2 10.55 T %6,H,!;I (.01-H)10.6;D 10.1;G 10.64 10.60 F K=1,20;I (FABS(A(2*K-1))+FABS(A(2*K))-.01)10.99;T %2,K,%8.02,A(2*K-1),A(2*K),! 10.64 T %1,-1 10.99 R 21.01 C STD.SATZ 21.10 A M,A(M) 21.20 S M=FIN();I (159.1-M)21.2 21.30 S M=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 C 31.30 C 31.31 CO I DTA1:RNK0(N) 31.32 O O SYS:RNK0(N) 31.33 O I SYS:RNK0(N) 31.34 CO O DTA1:RNK1(N) 31.35 CO I DTA1:RNK1(N) 31.36 O O SYS:RNK1(N) 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. RNKPA 31.1.75