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

C-ANAPB.FCMAR-75
*  1.01 C   ANAPB, ARRAY KORR., ENDE 1.33
   1.02 C   ING.BUERO SIEGFRIED BOSCH, -CD- , KORNTAL
   1.03 S NN=1234567.11-1234567;I (NN)1.04,1.04,1.05
   1.04 T !"BITTE ABAD RUFEN!";L E
   1.05 T !!"ANAP : ANGEBOTSAUSWERTUNG"!;F DU=1,6;T "=
   1.06 T !"ANAPB V1C: EINGABEDATEI KORRIGIEREN"!
   1.10 E
   1.13 A !!!"TITEL-NR."N;I (-N)1.16;G 1.3
   1.16 A !"BIETER-NR. (1), -NAME (2), PREISE (3), MWST, 1.SEITE (4) KORR."DU
   1.19 D 5.3;I (-KO)1.13
   1.22 I (DU-2)10.19,10.28;I (3-DU)11.01,10.47,1.13
   1.30 E
   1.33 R;C VON 1.13
   5.01 C   MEHRFACH VERW. STATEMENTS
   5.10 T "  UNZULAESSIG
   5.20 A !!"BIETER-NR."BA;D 29
   5.30 A !"KORR.
"KO
   5.40 T "  EXISTIERT NICHT
   5.50 S DZ=FX[N2+19+2*DY,FABS(EP)];S DZ=FX[N2+20+2*DY,FABS(MA)]
   5.60 A :7,EP,:16,MA
   6.01 C   UP ZU 10.61 - POS. SUCHEN
   6.10 D 31.5;S DY=PO
   6.13 S DZ=FX[DY];I (PO-DZ)6.16,6.22,6.16
   6.16 S DY=DY-1;I (-DY)6.13
   6.19 D 5.4;S DU=1;R
   6.22 S DU=;D (31.80+(NA/1E2))
*  6.32 S ANAPB
   8.01 C   UP ZU 10.37
   8.10 S DY=FIN();I (DY-245.5)8.2;T "\";S DU=DU-2;R
   8.20 I (DY-141)8.3,8.5
   8.30 I (DU-20.5)8.4;I (29-DU)8.7;R
   8.40 S PR(DU)=DY;R
   8.50 F DU=DU,20;S PR(DU)=160
   8.60 S DU=31;R
   8.70 T !
  10.01 C   VON 1.22 - BIETER AENDERN
  10.19 A !!"ALT"BA,"  NEU"BN
  10.22 D 29;I (DZ-.5)10.25;G 1.13
  10.25 S DZ=FX[N2,BN];G 1.13
  10.28 D 5.2
  10.31 I (DZ-.5)10.34;G 1.13
  10.34 T "  -NAME (20 Z):"
  10.37 F DU=1,30;D 8
  10.40 F DU=1,20;S DY=FX[N2+DU,PR(DU)]
  10.43 G 1.13
  10.46 C PREISE AENDERN
  10.47 C
  10.48 D 5.2
  10.50 I (DZ-.5)10.51;G 1.13
  10.51 A !"ALLE PREISE KORR.
"DZ;I (-DZ)12.01
  10.52 D 5.3;I (-KO)10.48;D 30
  10.53 T !!"POS   EP       MA";S KO=
  10.56 A !,PO;I (PO-999.5)10.59;D 5.1;G 10.56
  10.59 I (-PO)10.61;D 5.3;I (-KO)10.56;D 5.2;G 10.5
  10.61 D 6;I (DU-.5)10.64;G 10.56
  10.64 D 5.6
  10.67 D 5.5;I (KO-.5)10.56;S PO=-1;G 10.59
  11.01 C   VON 1.22 - MWST, 1. BLATT KORR.
  11.10 A !!"MWST [%]"MW,"  1.SEITE"DU
  11.20 D 31.8;S DY=FX[7,MW];S DY=FX[8,DU]
  11.30 G 1.13
  12.01 C UP ZU 10.51 - ALLE PREISE AENDERN
  12.10 A !"ALT = 100 % / NEU EP = 
 %"PE,"  NEU MA = 
 %"PM
  12.12 D 5.3;I (-KO)10.48
  12.14 F DU=1,NN;S DX=N2+19+2*DU;D 12.8;D 12.9
  12.16 G 10.48
  12.80 S DY=FX[DX];S DY=DY*PE/1E2;S DZ=FX[DX,DY]
  12.90 S DY=FX[DX+1];S DY=DY*PM/1E2;S DZ=FX[DX+1,DY]
* 22.32 30.03.78"!
  29.01 C   UP ZU 5.20, 10.22 - BIETER SUCHEN
  29.05 I (-BA)29.1;S DZ=1;R
  29.10 S DZ=;D 31.8;S NN=FX[5];S II=FX[6]
  29.13 S NA=FX[1];S IA(NA)=FX[3]
  29.16 S MK=FX[4];S I=
  29.22 S I=I+1;I (IA(NA)-I+.5)29.28;S N2=(I-1)*(21+NN*2)+11
  29.25 S DY=FX[N2];I (DY-BA)29.22,29.34,29.22
  29.28 I (-MK)29.31;D 5.4;S DZ=1;R
  29.31 D (31.80+(NA+1/1E2));G 29.13
  29.34 R
  30.01 C   UP ZU 10.47 - POS.-NR. HOLEN
  30.10 D 31.4;D 31.5;F DU=1,999;S DZ=FX[DU,0]
  30.11 S DZ=FX[2303,0];O T;D 31.5
  30.12 S DU=FIN()
  30.13 S DU=FIND(138);S DZ=;CA DU,DU;S DY=FIN();S DZ=
  30.16 S DU=FIND(138);CS DY=FIN();I (DY-141)30.16,30.19,30.16
  30.19 A DU;I (-DU)30.22;S DY=FX[0,DZ];D 31.1;R
  30.22 S DZ=DZ+1;S DY=FX[DZ,DU];A DU;G 30.16
  31.10 O I TTY:,E
  31.12 O O TTY:
  31.14 O O LPT:
  31.40 O I SYS:ANAP(N).DA
  31.50 O A ANAP00.FA
* 31.77 
  31.80 O A SYS:ANAP(N).D0
  31.81 O A SYS:ANAP(N).D1
  31.82 O A SYS:ANAP(N).D2
  31.83 O A SYS:ANAP(N).D3
  31.84 O A SYS:ANAP(N).D4
  31.85 O A SYS:ANAP(N).D5
  31.86 O A SYS:ANAP(N).D6
  31.87 O A SYS:ANAP(N).D7
  31.88 O A SYS:ANAP(N).D8
  31.89 O A SYS:ANAP(N).D9
  31.99 T !"ANAPB.FC, 30.03.78"!