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

C-ANAPCA.FCNOV-77
*  1.01 C   ANAPCA, UP ZU ANAPC, DATEI AUSDRUCKEN, ENDE 1.47
   1.02 C   ING.BUERO SIEGFRIED BOSCH, -CD- , KORNTAL
   1.10 D 31.6;S DU=
   1.13 S DU=DU+1;S DY=FIN();I (DY-141)1.16,1.19
   1.16 S AV(DU)=DY;G 1.13
   1.19 S GA=DU-1
   1.22 D 31.4;A DU,DU;S DY=FIN();S DU=
   1.25 S DU=DU+1;S DY=FIN();I (DY-141)1.28,1.31
   1.28 S PR(DU)=DY;G 1.25
   1.31 S DY=FIN();S GP=DU-1;D (31.12+(2*AG/1E2))
   1.34 S BZ=;D 7.3;D 29
   1.37 D 3
   1.40 D 7.3;D 28.05;O C;D 31.1;D 31.12
   1.43 E
   1.47 R
   3.01 C   UP ZU 1.37 - POS. SCHREIBEN
   3.10 A DX;I (-DX)3.13;R
   3.13 D 15;A ST;D 12
   3.26 S DY=FIN();I (DY-160)3.27,3.26
   3.27 S DZ=FOUT(DY)
   3.28 S DY=FIN();I (DY-141)3.31,3.34
   3.31 S DZ=FOUT(DY);G 3.28
   3.34 S DY=FIN();D 7.1;D 7;G 3.1
*  6.32 S ANAPCA
   7.10 T !;S J=J+1
   7.20 I (60-J)7.3;R
   7.30 C
   7.40 D 29;R
  12.01 C   UP ZU 3.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   UP ZU 3.13 - AUSGABE DX MIT FOUT() IM I3-FORMAT
  15.10 I (DX-99.5)15.30;S DU=FITR(DX/100);S DI=FOUT(DU+176)
  15.20 S DX=DX-100*DU;S DU=FITR(DX/10);S DI=FOUT(DU+176)
  15.25 S DX=DX-10*DU;G 15.60
  15.30 T " ";I (DX-9.5)15.50;S DU=FITR(DX/10);S DI=FOUT(DU+176)
  15.40 S DX=DX-10*DU;G 15.60
  15.50 T " "
  15.60 S DI=FOUT(DX+176);T "   "
  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.01 C   UP ZU 1.34, 7.40 - TITEL
  29.05 D 28.05;S J=
  29.20 T !;F DU=1,GA;S DY=FOUT(AV(DU))
  29.25 S BZ=BZ+1
  29.30 T !!"TITEL",%2,N," -",BZ;I (BZ-1.5)29.35;G 29.4
  29.35 T :22,"C O - B O PROGRAMM ANAPCA V01.01
  29.40 T :63,"SEITE";I (SZ-.5)29.45;T %3,SZ;S SZ=SZ+1
  29.45 I (BZ-1.5)29.46;G 29.5
  29.46 T !!"K U R Z T E X T   -   L E I S T U N G S V E R Z E I C H N I S"!
  29.47 F DU=1,61;T "=
  29.48 T !;S J=J+3
  29.50 T !!!;I (BZ-1.5)29.55;T "FORTS.: "
  29.55 F DU=1,GP;S DY=FOUT(PR(DU))
  29.60 T !;I (BZ-1.5)29.65;G 29.7
  29.65 F DU=1,GP;T "="
  29.70 T !!!"POS        MENGE",:24,"KURZTEXT"!!
  29.75 S J=J+13
  31.10 O I TTY:,E
  31.12 O O TTY:
  31.14 O O LPT:
  31.16 O O AUS:ANAPLV.LS
  31.40 O I SYS:ANAP(N).DA
  31.60 O I DSK:ABSE(NK).A
  31.99 T !"ANAPCA.FC, 26.11.77"!