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"!