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