File is corrupt so listing may have errors. Lines starting with * may not be in program. C-ANAPA.FCNOV-77 * 1.01 C ANAPA, -SB- , -CD- , PREISE EINGEBEN, ENDE 2.73, 9.10, 12.80, 1.02 D 20;C UND 13.60, 20.20 1.03 A !!"TITEL EINGEBEN "KO;I (KO)3.97,3.97 1.05 A " -NR."N;D 21.5;I (-KO)1.03 1.06 T !!"ES FOLGEN BIS ZU 3.5 MIN. RECHENZEIT !!!";D 31.2 1.08 S DU=FX[2,N] 1.10 E 1.20 S N=FX[2] 1.40 A BU,DY;S DI=FIN() 1.45 S DU= 1.48 S DU=DU+1;S DY=FIN();I (DY-141)1.49,1.5 1.49 S PR(DU)=DY;G 1.48 1.50 S PR(0)=DU-1 1.52 S DU=FIN();S NN= 1.60 F DY=0,99;D 10;S P(DY)=L 1.65 I (-NN)1.9 1.70 F DY=100,199;D 10;S P(DY-100)=P(DY-100)+L*1E3 1.75 I (-NN)1.9 1.80 F DY=200,299;D 10;S P(DY-200)=P(DY-200)+L*1E6 1.90 D 31.1 2.01 C UEBERSCHRIFT + BIETERBEZ ABFR. 2.20 T !!,%3 2.25 F DU=1,PR(0);S DY=FOUT(PR(DU));S PR(DU)= 2.30 T !;F DU=1,PR(0);T "-" 2.40 T !!"ES SIND",%3,NN," POSITIONEN";D 5 2.50 T !"ERF. SPEICHERBEDARF";I (AG-1.5)2.6;T " =",%2,AA 2.55 T " *",%2,GA;I (GR-.1)2.6;T " +"GR 2.60 T " =",%3,BL," OS/8 BLOECKE 2.67 I (1.5-AG)2.7;S NA=;G 2.8 2.70 A !"WOLLEN SIE DEN SPEICHERRAUM PRUEFEN "DZ 2.73 I (DZ-.5)2.76;L E 2.76 F NA=0,(AG-2);D 8 2.78 I (-GR)2.8;S GR=GA 2.80 S IA(NA)=FITR[VR/(2*NN+21)] 2.82 D (31.4+(NA/1E2)) 2.84 I (FX[10]-.1)2.88;D (31.5+(NA/1E2)) 2.86 D (31.4+(NA/1E2)) 2.88 S DU=FX[10,1];S DU=FX[(GR*64-1),0] 2.90 O T 2.95 S GA=;S BL=;S GR=;S VA=;S VG=;S VR=;S AG= 3.28 A !"MWST-SATZ [%]"MW 3.30 A " 1.SEITE"DY,!,"MIT POS.NR. "PX;D 21.5;I (-KO)2.55 3.31 S NA=-1;S I=;S II=TB 3.32 S I9=;S NA=NA+1;D (31.40+NA/100);S DU=FX[1,NA];S DU=FX[2,N] 3.33 S DU=FX[7,MW];S DU=FX[3,IA(NA)];S DU=FX[4,1];S DU=FX[5,NN] 3.34 S DU=FX[8,DY];S DU=FX[0,BU] 3.35 S I=I+1;S I9=I9+1;I (II-I+.1)3.95;I (I9-IA(NA)-.1)3.37;S I=I-1;;G 3.32 3.37 S N1=(I9-1)*(21+2*NN);S N2=N1+11 3.40 D 6;A !!"BIETER-NR."BN;I (BN)3.95,3.95;T :14," -NAME (20 Z):" 3.42 S DU= 3.44 S DU=DU+1;S DY=FIN();I (DY-141.5)3.5 3.46 I (DY-254.5)3.48;T "\";S DU=DU-2;G 3.44 3.48 S DY(DU)=DY;G 3.44 3.50 S DU=DU-1;I (19.5-DU)3.52;F DZ=DU+1,20;S DY(DZ)=160 3.52 F DU=1,20;S DI=FX[N2+DU,DY(DU)] 3.54 S DY=FX[N2,BN] 3.55 S ZZ=-33;S NP=-1 3.60 S NP=NP+1;I (NN-1-NP)3.8;I (PX-.5)3.61;D 4;G 3.62 3.61 S ZZ=1;T !,%3,NP+1;A DU;I (DU)3.64;S DV=0;G 3.65 3.62 S ZZ=ZZ+34;I (ZZ-50)3.63;T !;S ZZ=1 3.63 T :ZZ,%3,NP+1,"[",DY,"]";A DU;I (DU)3.64;S DV=0;G 3.65 3.64 A " MA"DV;I (-MA)3.65,3.65;G 3.37 3.65 S DX=N2+19+2*(NP+1);S DY=FX[DX,FABS(DU)];S DY=FX[DX+1,DV] 3.66 G 3.6 3.80 A !,:10,"KORR. "KO;I (-KO)3.85;G 3.35 3.85 A :19,"LFD.NR."NP,:35;I (NP-.5)3.98;I (NN-NP+.1)3.9;S NP=NP-1;A " EP"DU 3.86 I (DU)3.87;S DV=;G 3.88 3.87 A " MA"DV 3.88 D 3.65;G 3.8 3.90 T " UNZULAESSIG",!;G 3.85 3.95 S II=I-1;S DU=FX[3,I9-1];S DU=FX[4,0];D 21.4;D 31.1;D 31.12;O T 3.96 A !!!"WEITERE TITEL EINGEBEN "KO;I (-KO)1.05 3.97 A !"PREISSPIEGEL "KO;I (-KO)12.01;A !"ENDSUMMENSPIEGEL "KO;G 3.99 3.98 T !"DIESEN BIETER NEU EINGEBEN !";G 3.4 3.99 I (KO-.5)9.01;T !"ZU WELCHEN TITELN ";S IT=;S KE=1;G 12.52 4.01 C UP ZU 3.60 - POS-NR ERMITTELN 4.10 I (NP-99.5)4.13;G 4.19 4.13 S DY=P(NP)-FITR(P(NP)/1E3)*1E3;R 4.19 I (NP-199.5)4.22;G 4.28 4.22 S DY=P(NP)-FITR(P(NP-100)/1E6)*1E6;R 4.28 S DY=FITR(P(NP-200)/1E6);R 5.01 C UP ZU 2.4 - SPEICHERBEDARF ERMITTELN 5.10 S IA(0)=FITR(4085/(2*NN+21));S II=IA(0)*10 5.15 I (II-97.5)5.2;S II=97;I (IA(0)-97.5)5.2;S IA(0)=97 5.20 T " = BIS ZU",%2,II," BIETER MOEGL.!" 5.25 A !"WIEVIELE WOLLEN SIE EINGEBEN "TB 5.30 I (TB-II-.5)5.35;T " UNZULAESSIG";G 5.25 5.35 S VG=TB*(2*NN+21);S VA=IA(0)*(2*NN+21) 5.40 S GA=FITR[(VA+10)/256];I ((VA+10)/256-GA)5.45,5.45;S GA=GA+1 5.45 S GA=GA*4 5.50 S AA=FITR(TB/IA(0));I (-AA)5.55;S AA=;S AG=1;G 5.65 5.55 I (AA-(TB/IA(0)))5.6;S AG=AA;G 5.65 5.60 S AG=AA+1 5.65 S VR=VG-(VA*AA);I (-VR)5.7;S GR=;G 5.8 5.70 S GR=FITR[(VR+10)/256];I ((VR+10)/256-GR)5.75,5.75;S GR=GR+1 5.75 S GR=GR*4 5.80 S BL=AA*GA+GR;R 6.01 C UP ZU 3.40 - AUTOMATISCHE EINGABE FUER TESTS 6.02 C S.A. RANDOM.FC UND ANAPYY.FC 6.05 R;C IM TESTFALL "R" LOESCHEN 6.10 L G ANAPYY 6.20 D 31.9;D (31.4+(NA/1E2)) 6.30 R 6.32 S ANAPA 8.01 C UP ZU 2.76 ARRAYS EROEFFNEN 8.10 S IA(NA)=IA(0);D (31.4+(NA/1E2)) 8.15 I (FX[10]-.1)8.25;D (31.5+(NA/1E2)) 8.20 D (31.4+(NA/1E2)) 8.25 S DU=FX[10,1];S DU=FX[(GA*64-1),0] 8.30 O T 9.01 C 3.99 9.05 E 9.10 D 31.1;D 31.12;Q 10.01 C UP ZU 1.6, 1.7, 1.8 10.10 A L;I (-L)10.2;S NN=DY;S DY=301;R 10.20 A DU;CF DU=1,5;S DI=FIN() 10.25 S DI=FIND(138);CS DI=FIN();I (DI-141)10.25,10.3,10.25 10.30 CS DI=FIN() 12.01 C STEUER-PR. : TITEL-SUMM.SP. 12.10 T !"ZU WELCHEN TITELN.AUSGABE 12.15 S I= 12.20 S I=I+1;T !"[",%2,I,"]";A X(I) 12.25 I (-X(I))12.2 12.27 D 21.5;I (KO)12.4,12.4 12.30 A " NEU EINGEBEN "KO;I (-KO)12.15 12.32 D 21.6;S X(DU)=XY 12.34 G 12.27 12.40 S IT=I-1 12.42 A !"AUCH ENDSUMMENSPIEGEL "KE 12.45 I (KE)12.6,12.6 12.46 A !"FUER DIESELBEN TITEL.AUSGABE "KO;S YY=0 12.47 S EA=[KO-FITR(KO)]*10;S KO=FITR(KO);I (-KO)12.48;G 12.52 12.48 S IE=IT;F DU=1,IE;S Y(DU)=FITR(X(DU)) 12.50 G 12.6 12.52 S I=;S YY=1 12.53 S I=I+1;T !"[",%2,I,"]";A Y(I) 12.55 I (-Y(I))12.53 12.56 D 21.5;I (KO)12.59,12.59;A " NEU EINGEBEN "KO 12.57 I (-KO)12.52;D 21.6;S Y(DU)=XY 12.58 G 12.56 12.59 S IE=I-1 12.60 I (IT-.5)12.7;F KO=1,IT;S N=X(KO);L G ANAP1 12.70 I (-KE)13.01 12.75 E 12.80 R 13.01 C AUS 12.70 13.10 L G ANAPAA 13.50 E 13.60 D 31.1;D 31.12;R 20.01 C UP ZU 1.02 20.05 E 20.10 S NN=1234567.11-1234567;I (NN)20.2,20.2,20.3 20.20 T !"BITTE ABAD RUFEN !";L E 20.30 T !!"ANAP : ANGEBOTSAUSWERTUNG"! 20.33 F DU=1,6;T "=" 20.36 T !"ANAPA V1B: EINGABE- UND STEUERPROGRAMM"! 21.01 C VERSCHIEDENE UP (JE 1 ZEILE) 21.40 D 31.4;S DU=FX[6,II];O T 21.50 A !"KORR. "KO 21.60 A " LFD.NR."DU," NEUE TITEL-NR."XY 22.10 T !"31.4",%1,NA,%4,(GA*64-1),(GR*64-1) 23.10 T !"31.5",%1,NA 31.10 O I TTY:,E 31.12 O O TTY: 31.20 O I SYS:ANAP(N).DA 31.40 O A SYS:ANAP(N).D0;CD 22 31.41 O A SYS:ANAP(N).D1;CD 22 31.42 O A SYS:ANAP(N).D2;CD 22 31.43 O A SYS:ANAP(N).D3;CD 22 31.44 O A SYS:ANAP(N).D4;CD 22 31.45 O A SYS:ANAP(N).D5;CD 22 31.46 O A SYS:ANAP(N).D6;CD 22 31.47 O A SYS:ANAP(N).D7;CD 22 31.48 O A SYS:ANAP(N).D8;CD 22 31.49 O A SYS:ANAP(N).D9;CD 22 31.50 L D SYS:ANAP(N).D0;CD 23 31.51 L D SYS:ANAP(N).D1;CD 23 31.52 L D SYS:ANAP(N).D2;CD 23 31.53 L D SYS:ANAP(N).D3;CD 23 31.54 L D SYS:ANAP(N).D4;CD 23 31.55 L D SYS:ANAP(N).D5;CD 23 31.56 L D SYS:ANAP(N).D6;CD 23 31.57 L D SYS:ANAP(N).D7;CD 23 31.58 L D SYS:ANAP(N).D8;CD 23 31.59 L D SYS:ANAP(N).D9;CD 23 31.90 O I HELP.FD,E 31.99 T !"ANAPA.FC, 02.01.78"!