7O).()0C-ANAPA.FCNOV-77?M6,BAC ANAPA, -SB- , -CD- , PREISE EINGEBEN, ENDE 2.73, 9.10, 12.80,?MCVBBD 20;C                                  UND 13.60, 20.20?MC-BCA !!"TITEL EINGEBEN 
"KO;I (KO)3.97,3.97?MC?BEA "  -NR."N;D 21.5;I (-KO)1.03?MD]BFT !!"ES FOLGEN BIS ZU 3.5 MIN. RECHENZEIT !!!";D 31.2?MD&BHS DU=FX[2,N]?MD*BJE?MD2BTS N=FX[2]?MD>B(A BU,DY;S DI=FIN()?MEDB-S DU=?ME[B0S DU=DU+1;S DY=FIN();I (DY-141)1.49,1.5?ME	B1S PR(DU)=DY;G 1
48?ME0B2S PR(0)=DU-1?ME;B4S DU=FIN();S NN=?MFJB<F DY=0,99;D 10;S P(DY)=L?MFRCAI (-NN)1.9?MF,CFF DY=100,199;D 10;S P(DY-100)=P(DY-100)+L*1E3?MF4CKI (-NN)1.9?MGNCPF DY=200,299;D 10;S P(DY-200)=P(DY-200)+L*1E6?MGTCZD 31.1?MG	DAC UEBERSCHRIFT + BIETERBEZ ABFR
?MG.DTT !!,%3?MHEDYF DU=1,PR(0);S DY=FOUT(PR(DU));S PR(DU)=?MHSD^T !;F DU=1,PR(0);T "-"?MH)D(T !!"ES SIND",%3,NN," POSITIONEN";D 5?MIFD2T !"ERF. SPEICHERBEDARF";I (AG-1.5)2.6;T "  =",%2,AA?MI[D7T "  *",%2,GA;I (GR-.1)2.6;T "  +"GR?MI-D<T "  =",%3,BL,"  OS
8 BLOECKE?MI=ECI (1.5-AG)2.7;S NA=;G 2.8?MJVEFA !"WOLLEN SIE DEN SPEICHERRAUM PRUEFEN
"DZ?MJ"EII (DZ-.5)2.76;L E?MJ.ELF NA=0,(AG-2);D 8?MJ:ENI (-GR)2.8;S GR=GA?MKKEPS IA(NA)=FITR[VR/(2*NN+21)]?MKWERD (31.4+(NA/1E2))?MK,ETI (FX[10]-.1)2.88;D (31.5+(NA/1E2))?MK8EVD (31.4+(NA/1E2))?MLLEXS DU=FX[10,1];S DU=FX[(GR*64-1),0]?MLQEZO T?ML)E
S GA=;S BL=;S GR=;S VA=;S VG=;S VR=;S AG=?ML6F\A !"MWST-SATZ [%]"MW?MMTF^A "  1.SEITE"DY,!,"MIT POS.NR.
"PX;D 21.5;I (-KO)2.55?MM!F
S NA=-1;S I=;S II=TB?MNBF S I9=;S NA=NA+1;D (31.40+NA/100);S DU=FX[1,NA];S DU=FX[2,N]?MN"F!S DU=FX[7,MW];S DU=FX[3,IA(NA)];S DU=FX[4,1];S DU=FX[5,NN]?MN3F"S DU=FX[8,DY];S DU=FX[0,BU]?MOYFS 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.
2?MO,F%S N1=(I9-1)*(21+2*NN);S N2=N1+11?MPNF(D 6;A !!"BIETER-NR."BN;I (BN)3.95,3.95;T :14," -NAME (20 Z):"?MPTF*S DU=?MP)F,S DU=DU+1;S DY=FIN();I (DY-141.5)3.5?MQF.I (DY-254.5)3.48;T "\";S DU=DU-2;G 3.44?MQLF0S DY(DU)=DY;G 3.44?MQ)F2S DU=DU-1;I (19.5-DU)3
52;F DZ=DU+1,20;S DY(DZ)=160?MQ<F4F DU=1,20;S DI=FX[N2+DU,DY(DU)]?MRFF6S DY=FX[N2,BN]?MRQF7S ZZ=-33;S NP=-1?MR-F<S NP=NP+1;I (NN-1-NP)3.8;I (PX-.5)3.61;D 4;G 3.62?MSHF=S ZZ=1;T !,%3,NP+1;A DU;I (DU)3.64;S DV=0;G 3.65?MS]F>S ZZ=ZZ+34;I (ZZ-50)3.63;T !;S ZZ
1?MS;F?T :ZZ,%3,NP+1,"[",DY,"]";A DU;I (DU)3.64;S DV=0;G 3.65?MTOGA " MA"DV;I (-MA)3.65,3.65;G 3.37?MT/GAS DX=N2+19+2*(NP+1);S DY=FX[DX,FABS(DU)];S DY=FX[DX+1,DV]?MT5GBG 3.6?MUKGPA !,:10,"KORR.
"KO;I (-KO)3.85;G 3.35?MU2GUA :19,"LFD.NR."NP,:35;I (NP-.5)3.98;I (NN-NP+.1)3.9;S NP=NP-1;A " EP"DU?MVAGVI (DU)3.87;S DV=;G 3.88?MVIGWA " MA"DV?MVRGXD 3.65;G 3.8?MV"GZT "  UNZULAESSIG",!;G 3.85?MWEG
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?MW
G A !!!"WEITERE TITEL EINGEBEN 
"KO;I (-KO)1.05?MXDG!A !"PREISSPIEGEL 
"KO;I (-KO)12.01;A !"ENDSUMMENSPIEGEL 
"KO;G 3.99?MX[G"T !"DIESEN BIETER NEU EINGEBEN !";G 3.4?MX<GI (KO-.5)9.01;T !"ZU WELCHEN TITELN 
";S IT=;S KE=1;G 12.52?MYPHAC   UP ZU 3.60 - POS-NR ERMITTELN?MY^HJI (NP-99.5)4.13;G 4.19?MY1HMS DY=P(NP)-FITR(P(NP)/1E3)*1E3;R?MZHSI (NP-199.5)4.22;G 4.28?MZUHVS DY=P(NP)-FITR(P(NP-100)/1E6)*1E6;R?MZ%H\S DY=FITR(P(NP-200)/1E6);R?MZ;JAC UP ZU 2.4 - SPEICH
RBEDARF ERMITTELN?M[SJJS IA(0)=FITR(4085/(2*NN+21));S II=IA(0)*10?M[0JOI (II-97.5)5.2;S II=97;I (IA(0)-97.5)5.2;S IA(0)=97?M\GJTT "  =  BIS ZU",%2,II," BIETER MOEGL.!"?M\]JYA !"WIEVIELE WOLLEN SIE EINGEBEN 
"TB?M\5J^I (TB-II-.5)5.35;T "  UNZULAESSIG";G 5.25?M]KJS VG=TB*(2*NN+21);S VA=IA(0)*(2*NN+21)?M],J(S GA=FITR[(VA+10)/256];I ((VA+10)/256-GA)5.45,5.45;S GA=GA+1?M]4J-S GA=GA*4?M^QJ2S AA=FITR(TB/IA(0));I (-AA)5.55;S AA=;S AG=1;G 5.65?M^&J7I (AA-(TB/IA(0)))5
6;S AG=AA;G 5.65?M^.J<S AG=AA+1?M2 KAS VR=VG-(VA*AA);I (-VR)5.7;S GR=;G 5.8?M
LKKS GR=GR*4?M
WKPS BL=AA*GA+GR;R?M
1LAC UP ZU 3.40 - AUTOMATISCHE EINGABE FUER TESTS?M CLBC S.A. RANDOM.FC UND ANAPYY.FC?M TLER;C IM TESTFALL "R" LOESCHEN?M \LJL G ANAPYY?M +LTD 31.9;D (31.4+(NA/1E2))?M /L^R?M!APAC UP ZU 2.76 ARRAYS EROEFFNEN?M!TPJS IA(NA)=IA(0);D (31.4+(NA/1E2))?M!)POI (F
[10]-.1)8.25;D (31.5+(NA/1E2))?M!5PTD (31.4+(NA/1E2))?M"IPYS DU=FX[10,1];S DU=FX[(GA*64-1),0]?M"NP^O T?M"TRAC 3.99?M"XREE?M"RJD 31.1;D 31.12;Q?M"1TAC UP ZU 1.6, 1.7, 1.8?METJA L;I (-L)10.2;S NN=DY;S DY=301;R?MUTTA DU;CF DU=1,5;S DI=FIN()?M3TYS DI=FIND(138
;CS DI=FIN();I (DI-141)10.25,10.3,10.25?M<T^CS DI=FIN()?M$NXAC STEUER-PR. : TITEL-SUMM.SP.?M$ XJT !"ZU WELCHEN TITELN.AUSGABE?M$%XOS I=?M$7XTS I=I+1;T !"[",%2,I,"]";A X(I)?M%AXYI (-X(I))12.2?M%OX[D 21.5;I (KO)12.4,12.4?M%$X^A "  NEU EINGEBEN 
"KO;I (-KO)12.15?M%0X D 21.6;S X(DU)=XY?M%7X"G 12.27?M%>X(S IT=I-1?M&PX*A !"AUCH ENDSUMMENSPIEGEL 
"KE?M&[X-I (KE)12.6,12.6?M&4X.A !"FUER DIESELBEN TITEL.AUSGABE 
"KO;S YY=0?M	SX/S EA=[KO-FITR(KO)]*10;S KO=FITR(KO);I (-KO)12.48;G 12.52?M	)X0S IE=IT;F DU=1,IE;S Y(DU)=FITR(X(DU))?M	/X2G 12.6?M	8X4S I=;S YY=1?M(JX5S I=I+1;T !"[",%2,I,"]";A Y(I)?M(TX7I (-Y(I))12.53?M(/X8D 21.5;I (KO)12.59,12.59;A "  NEU EINGEBEN 
"KO?M)AX9I (-KO)12.52;D 21.6;S Y(DU)=XY?M)HX:G 12.56?M)OX;S IE=I-1?M)(X<I (IT-.5)12.7;F KO=1,IT;S N=X(KO);L G ANAP1?M)1YFI (-KE)13.01?M)5YKE?M)9YPR?M*BZAC AUS 12.70?M*JZJL G ANAPAA?M*NZ2E?M*YZ<D 31.1;D 31.12;R?M*(AC   UP ZU 1.02?M*	(EE?M2O(JS NN=1234567.1
-1234567;I (NN)20.2,20.2,20.3?M+S(^T !!"ANAP : ANGEBOTSAUSWERTUNG"!?M3P(!F DU=1,6;T "="?M+/*AC VERSCHIEDENE UP (JE 1 ZEILE)?M+>*(D 31.4;S DU=FX[6,II];O T?M,H*2A !"KORR.
"KO?M,]*<A "  LFD.NR."DU,"  NEUE TITEL-NR."XY?M,3,JT !"31.4",%1,NA,%4,(GA*64-1),(GR*64-1)?M,>.JT !"31.5",%1,NA?M-F>JO I TTY:,E?M-M>LO O TTY:?M-Y>TO I SYS:ANAP(N).DA?M-(>(O A SYS:ANAP(N).D0;CD 22?M-7>)O A SYS:ANAP(N).D1;CD 22?M.F>*O A SYS:ANAP(N).D2;CD 22?
.U>+O A SYS:ANAP(N).D3;CD 22?M.$>,O A SYS:ANAP(N).D4;CD 22?M.3>-O A SYS:ANAP(N).D5;CD 22?M/B>.O A SYS:ANAP(N).D6;CD 22?M/Q>/O A SYS:ANAP(N).D7;CD 22?M/ >0O A SYS:ANAP(N).D8;CD 22?M//>1O A SYS:ANAP(N).D9;CD 22?M/>>2L D SYS:ANAP(N).D0;CD 23?M0M>3L D SYS:ANA
(N).D1;CD 23?M0\>4L D SYS:ANAP(N).D2;CD 23?M0+>5L D SYS:ANAP(N).D3;CD 23?M0:>6L D SYS:ANAP(N).D4;CD 23?M1I>7L D SYS:ANAP(N).D5;CD 23?M1X>8L D SYS:ANAP(N).D6;CD 23?M1	>9L D SYS:ANAP(N).D7;CD 23?M16>:L D SYS:ANAP(N).D8;CD 23?M2E>;L D SYS:ANAP(N).D9;CD 23?M3
?ZO I HELP.FD,E?M+(TT !"BITTE ABAD RUFEN !";L E?M
DKFS GR=FITR[(VR+10)/256];I ((VR+10)/256-GR)5.75,5.75;S GR=GR+1?M?T !"ANAPA.FC, 02.01.78"!?M+]($T !"ANAPA V1B: EINGABE- UND STEUERPROGRAMM"!?ML S ANAPA?M?V1B: EINGABE- UND STEUERPROGRAMM<HV8 KV8!K3< ,I
4O5K3
6O7K3
5
72IK8
:K8
;K9
<2C
=K>
?KV/2OEK(BBBTBHBA%^%"J;F^F$L:K7MQ

Note: Lines longer than 256 characters were wrapped