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-ANAP1.FCNOV-77 * 1.01 C ANAP1.FC,SCHLEIFE ZU 12.60 VON ANAPA,TITEL-SUMMENSPIEGEL 1.02 C -SB- , -CD- , ENDE 15.60 1.05 D 31.2 1.06 D 31.4;S MK=FX[4] 1.07 D 31.1;D 31.12;S DU=N-FITR(N);I (DU-.01)1.1;I (DU-.11)1.09 1.08 D 31.16;G 1.1 1.09 D 31.14 1.10 S SG(0)=;S NP=;S DI=;S DU=;S DY=;S K= 1.11 F I=0,99;S SG(I)=;S EP(I)=;S PR(I)= 1.12 S KI= 1.20 O R I 1.25 A NB,N;S DU=FIN();S SZ=FX[8];S NN=FX[5];S II=FX[6];S MW=FX[7] 1.27 S SG(99)=;F DU=1,II;S SG(DU)= 1.28 S ZZ=57 1.30 D 28.05;D 28.10;S J=4;S BZ=1;S KX=;D 29 1.40 D 7.1;T " POS",:15,"MENGE",:26,"KURZTEXT",:67,"LFD-NR";D 2.24 1.45 D 7.1;T "NR BIETER",:28,"%",:32,"MA [DM]",:42,"LO [DM]" 1.47 T :53,"EP [DM]",:66,"GP [DM]" 2.01 C EINLESEN DER POS.,EP BESTIMMEN,TABELLE DRUCKEN 2.05 S NP=NP+1;I (NN-NP+.1)10.01;D 7.1 2.07 S N3=30+2*NP 2.10 A L,ST;D 7;D 7.1;S EP(0)=0 2.12 T %6.03,N+L/1E3 2.13 D 12 2.14 S DY=FIN();I (DY-160)2.17,2.14 2.17 S DI=FOUT(DY);S DU=0 2.18 S DY=FIN();S DU=DU+1;I (DY-141)2.2,2.22 2.20 I (40.5-DU)2.18;S DI=FOUT(DY);G 2.18 2.22 S DU=FIN();T :68,%3,NP 2.24 D 7.1;F DD=1,72;T "-" 2.30 D 7.1;S NA=;S I= 2.32 S IA(NA)=FX[3] * 2.32 23 2.34 F DU=1,IA(NA);S I=I+1;S EP(I)=FX[N3+(DU-1)*(21+2*NN)] 2.36 I (II-I-.1)2.42;S NA=NA+1 2.38 D (31.40+NA/100+.000001);G 2.32 2.42 S KI=1;I (II-1.5)2.56;S KI= 2.45 S KI=KI+1;I (.00001-EP(KI))2.5;I (II-KI-.5)2.5;G 2.45 2.50 F I=KI,II;D 4 2.55 I (NA-.1)2.56;D 31.4;S NA= 2.56 S I= 2.57 F YZ=1,IA(NA);S I=I+1;D 3 2.60 I (II-I-.1)2.7;S NA=NA+1;D (31.40+NA/100+.000001) 2.64 S IA(NA)=FX[3];G 2.57 2.70 I (-EP(KI))2.75;S PY=0;G 2.8 2.75 S PY=(EP(0)*100)/(II*EP(KI)) 2.80 T :4,"ARITHM. MITTEL";I (999.1-PY)2.82;T :24,%3,PY;G 2.85 2.82 T :25,">999" 2.85 T :49,%8.02,EP(0)/II,:60,%10.02,(EP(0)*ST)/II 2.90 S SG(99)=SG(99)+EP(KI)*ST;I (MK-.1)2.92;D 31.4 2.92 D 7.1;G 2.05 3.01 C BIETER-SCHLEIFE DRUCKEN, UP ZU 2.57 3.10 S N2=11+(YZ-1)*(21+2*NN);S NI=FX[N2] 3.12 I (NI-9.5)3.16;S DY=FITR(NI/10) 3.14 S DI=FOUT(176+DY);S DI=FOUT(176+NI-10*DY);G 3.2 3.16 T " ";S DI=FOUT(176+NI) 3.20 T " ";F DY=1,20;S DI=FOUT(FX[N2+DY]) 3.22 I (-EP(KI))3.23;S PX=0;G 3.24 3.23 S PX=(EP(I)*100)/EP(KI) 3.24 S MA=FX[N2+20+2*NP] 3.25 I (PX-999.4)3.26;T :25,">999";G 3.28 3.26 T :24,%3,PX 3.28 I (-MA+.0001)3.3;G 3.4 3.30 T :29,%7.02,MA,:39,EP(I)-MA 3.40 T :49,%8.02,EP(I) 3.50 T :60,%10.02,EP(I)*ST 3.60 S EP(0)=EP(0)+EP(I) 3.70 S SG(I)=SG(I)+EP(I)*ST;D 7 4.01 C UP ZU 2.50 - KLEINSTEN EP IN DER BETR.POS.SUCHEN,KI=NR.DES KL.EP 4.10 I (EP(KI)-EP(I))4.4,4.4;I (EP(I)-.00001)4.4,4.4 4.20 S KI=I 4.40 R * 5.70 S GR=FITR[(VR+10)/256];I ((VR+10)/256-GR)5.75,5.75;S GR=GR+1 * 6.32 S ANAP1 7.10 T !;S J=J+1 7.20 I (ZZ-J)7.3;R 7.30 C 7.40 D 28.05;D 28.1;D 29.2 7.45 T " (FORTSETZUNG)";S KX=1;D 29.25;S J=4;D 7.1 7.48 D 1.4;D 1.45;D 1.47;D 7.5;R 7.50 T !!;S J=J+2;R 7.60 T !!!;S J=J+3;R 8.01 C UP BEZEICHNUNG LESEN UND DRUCKEN, ZU 29.30 8.05 S DI= 8.10 S DU=FIN();I (DU-141.5)8.3;S DY=FOUT(DU);S DI=DI+1;G 8.1 8.30 R 10.01 C AUS 2.05,TITEL-ENDSUMMENSPIEGEL:NEUES BLATT 10.05 F DU=1,II;S EP(DU)= 10.10 S ZZ=60;D 7.3;D 7.4;D 7.45 10.15 D 7.5;T "TITEL-SUMMENSPIEGEL";D 7.1 10.20 F DU=1,19;T "=" 10.22 D 7.5;T :39,"NETTO",:49,%3.01,MW," %",:67,"BRUTTO" 10.24 D 7.1;T "NR BIETER",:28,"%",:37,"GP [DM]" 10.25 T :48,"MWST [DM]",:66,"GP [DM]";D 7.1 10.26 S KI=1;I (II-1.5)10.44;S KI= 10.30 S KI=KI+1;I (.00001-SG(KI))10.4;G 10.3 10.40 F I=KI,II;D 20 10.44 I (NA-.1)10.46;D 31.4;S NA= 10.46 S I= 10.48 F YZ=1,IA(NA);S I=I+1;D 11 10.50 I (II-I-.1)10.6;S NA=NA+1;D (31.40+NA/100+.000001) 10.52 S IA(NA)=FX[3];G 10.48 10.60 D 7.1;T :4;F DU=1,69;T "-" 10.70 D 7.1;T :4,"ARITHM. MITTEL",:24,%3;S PR(98)=(SG(0)*100)/(II*SG(KI)) 10.71 T PR(98) 10.80 S DZ=SG(0)/II;T :30,%11.02,DZ;S DI=DZ*(MW/100);T :44,%10.02,DI 10.81 T :59,%11.02,DZ+DI 10.82 D 7.1;T :4,"SU.100%-POSITIONEN",:24,%3 10.84 S PR(99)=(SG(99)*100)/SG(KI) 10.86 T PR(99),:30,%11.02,SG(99) 10.88 S DI=SG(99)*(MW/100);T %10.02,:44,DI,:59,%11.02,SG(99)+DI 10.90 D 7.3;D 7.5;O C;D 31.1;D 31.12 10.95 G 15.01 11.01 C BIETER-ZEILE DRUCKEN, UP ZU 10.48 11.10 D 7.1;D 3.1 11.14 I (NI-9.5)11.18;S DY=FITR(NI/10) 11.16 S DI=FOUT(176+DY);S DI=FOUT(176+NI-10*DY);G 11.2 11.18 T " ";S DI=FOUT(176+NI) 11.20 D 3.2 11.30 S PR(I)=(SG(I)*100)/SG(KI);T :24,%3,PR(I) 11.40 T :30,%11.02,SG(I) 11.50 S DI=SG(I)*(MW/100);T :44,%10.02,DI 11.60 T :59,%11.02,SG(I)+DI 11.70 S SG(0)=SG(0)+SG(I);D 7 12.01 C UP ZU 2.13 - FORMAT ST 12.05 I (ST-9999999.999)12.1;T %8,ST," ";R 12.10 I (FITR(ST)-ST)12.13;T %8,ST," ";R 12.13 I (FITR(10*ST)-10*ST)12.16;T %9.01,ST," ";R 12.16 I (FITR(100*ST)-100*ST)12.19;T %10.02,ST," ";R 12.19 T %11.03,ST," " 15.01 C TITEL-ENSUMMEN IN ANAP(N).FD FORTSCHREIBEN 15.10 D 31.5;O R O 15.15 D 31.4;T %2,MW,!;S NA=;S I= 15.20 F YZ=1,IA(NA);S I=I+1;D 16 15.22 I (II-I-.1)15.3;S NA=NA+1;D (31.40+NA/100+.000001) 15.24 S IA(NA)=FX[3];G 15.2 15.30 T "98 ARITHM. MITTEL ",:30,%11.02,SG(0)/II,! 15.40 T "99 SU.100%-POSITIONEN ",:30,SG(99),! 15.50 O C;O T;D 31.1;D 31.12;F I=1,99;S PR(I)=;S SG(I)=;S EP(I)= 15.60 R 16.01 C BIETER-ZEILE AUSGEBEN, UP ZU 15.20 16.10 D 3.1 16.15 I (NI-9.5)16.18;S DY=FITR(NI/10) 16.16 S DI=FOUT(176+DY);S DI=FOUT(176+NI-10*DY);G 16.2 16.18 T " ";S DI=FOUT(176+NI) 16.20 D 3.2 16.30 T :30,%11.02,SG(I),! 20.01 C UP ZU 10.40 - BIETER MIT DEM KL.GES.PREIS ERMITTELN 20.10 I (SG(KI)-SG(I))20.4,20.4;I (SG(I)-.00001)20.4,20.4 20.20 S KI=I * 20.20 T !"BITTE ABAD RUFEN !";L E 20.40 R * 24.96 V1A" 28.05 T !;S J=FOUT(140);F J=1,40;T " 28.10 T !"BUERO F. INGENIEURBAUWESEN OTTO PAULER 7070 SCHWAEB.GMUEND T.:07171/2000"!! 28.20 T %6,"AUFTRAG-NR.:"AU(1) 28.30 T %6.01,:28,"POS.:"AU(2) 28.40 T :63,"SEITE"!!;S J=6 29.20 T %2,"TITEL",N," -",%3,BZ;S BZ=BZ+1 29.22 T :25,"C O - B O PROGRAMM ANAP1 V1A" 29.25 T :63,%3,"SEITE";I (SZ-.5)29.3;T SZ;S SZ=SZ+1 29.30 T !!;I (-KX)29.6;T !;D 8 29.35 T !;F DU=1,DI;T "=" 29.50 T !!;S J=J+6 29.60 R 31.10 O I TTY:,E 31.12 O O TTY: 31.14 O O LPT: 31.16 O O AUS:ANAP(N).LS 31.20 O I SYS:ANAP(N).DA 31.40 O A SYS:ANAP(N).D0 31.41 O A SYS:ANAP(N).D1 31.42 O A SYS:ANAP(N).D2 31.43 O A SYS:ANAP(N).D3 31.44 O A SYS:ANAP(N).D4 31.45 O A SYS:ANAP(N).D5 31.46 O A SYS:ANAP(N).D6 31.47 O A SYS:ANAP(N).D7 31.48 O A SYS:ANAP(N).D8 31.49 O A SYS:ANAP(N).D9 31.50 O O SYS:ANAP(N).FD 31.53 L D SYS:ANAP(N).D3;CD 23 * 31.54 L D SYS:ANAPD9;CD 23 * 31.77 31.90 O I HELP.FD,E 31.99 T !"ANAP1.FC, 26.11.77"! 31.99 T !"ANAPA.FC, 02.01.78"!