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

C-ANAPAA.FCNOV-77
*  1.01 C ANAPAA, UP ZU ANAPA, ENDSUMMENSPIEGEL DRUCKEN, ENDE IN 13.60
*  1.32 O - PROGRAMM ANAPAA V1A
1A
   2.01 G 13.01
   4.01 C   UP ZU 13.30
   4.10 S KO=KO+1;S I=I+1;I (15.5-I)4.4
   4.20 S DU=Y(KO);D 6;T ", "
   4.30 I (KO-(IE-1.5))4.1;R
   4.40 D 7.5;T :10;S KO=KO-1;S I=;G 4.1
   6.01 C 4.2, 13.35
   6.10 S DI=FITR(DU/10);I (DU-9.5)6.25
   6.20 S DY=FOUT(DI+176);G 6.3
   6.25 T " 
   6.30 S DY=FOUT(176+DU-DI*10)
*  6.32 S ANAPAA
   7.10 T !;S J=J+1
   7.20 I (60-J)7.3;R
   7.30 C
   7.40 D 28.05;D 28.1;D 13.4;D 7.1;S J=6;R
   7.50 T !!;S J=J+2;R
  13.01 C ENDSUMMENSPIEGEL
  13.05 D 31.50
  13.10 F DU=0,299;S DY=FX[DU,0]
  13.11 S DU=FX[2300,0]
  13.15 F KO=1,IE;S N=FITR[Y(KO)];D 18
  13.16 I (YY-.5)13.17;S EA=[Y(1)-FITR(Y(1))]*10
  13.17 D (31.12+EA*2/100)
  13.20 D 7.3;S SZ=0;D 28.05;D 28.1;S J=2
  13.25 D 7.5;T "ENDSUMMENSPIEGEL",:42,"C O - B O - PROGRAMM ANAPAA V1A
  13.26 D 7;F DU=1,16;T "=
  13.30 D 7;T "(TITEL : ";S KO=;S I=;D 4
  13.35 S DU=Y(IE);D 6;T ")
  13.40 D 7.5;T :39,"NETTO",:67,"BRUTTO"
  13.41 D 7.1;T "NR BIETER",:28,"%",:37,"GP [DM]"
  13.42 T :48,"MWST [DM]",:66,"GP [DM]";D 7.1
  13.43 S KI=
  13.44 S KI=KI+1;I (.1-FX[KI])13.45;G 13.44
  13.45 F BN=KI,97;D 17
  13.47 F BN=1,99;D 16
  13.50 D 7.5;O C
  13.60 R
  16.01 C 13.47, B-ZEILE
  16.10 I (-FX[BN])16.20;R
  16.20 D 7;S DU=BN;D 6;T " ";S DI=280+BN*20
  16.25 F DU=1,20;S DY=FOUT(FX[DI+DU])
  16.30 I (FX[BN+100]+.1-FX[199])16.33;S X1=(FX[BN]*1E2)/FX[KI]
  16.31 I (X1-999.1)16.32;T :25,">999";G 16.35
  16.32 T :24,%3,X1;G 16.35
  16.33 T :25,"(";S DU=FX[BN+100];D 6;T ")
  16.35 S GP=FX[BN];S DI=FX[BN+200];T :30,%11.02,GP;T :44,%10.02,DI
  16.40 T :59,%11.02,GP+DI;D 7.1
* 16.40 -KO)3.85;G 3.35
  16.50 R
  17.01 C 13.45 : KL.GP ERMITTELN
  17.10 I (-FX[BN])17.2;R
  17.20 I (FX[KI]-FX[BN])17.6;I (FX[BN+100]+.1-FX[199])17.6
  17.30 S KI=BN
  17.60 R
  18.01 C 13.13, TITEL EINL.
  18.05 D 31.30
  18.10 O R I
  18.15 A MW
  18.20 A BN;I (-FX[BN])18.25;S DI=280+BN*20
  18.22 F DU=1,20;S DY=FIN();S DZ=FX[DI+DU,DY]
  18.24 G 18.30
  18.25 F DU=1,20;S DY=FIN()
  18.30 A GP
  18.35 S DY=FX[BN,FX[BN]+GP]
  18.40 S DY=FX[BN+100,FX[BN+100]+1];S DY=FX[BN+200,FX[BN+200]+GP*(MW/100)]
  18.45 I (BN-98.5)18.20
  18.50 R
  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
  31.10 O I TTY:,E
  31.12 O O TTY:
  31.14 O O LPT:
  31.16 O O AUS:ANAPEN.LS
  31.30 O I SYS:ANAP(N).FD
  31.50 O A DSK:ANAP00.FA
* 31.77 
  31.99 T !"ANAPAA.FC, 26.11.77"!