7L	.()0C-ANAP1.FCNOV-77?M6,BAC ANAP1.FC,SCHLEIFE ZU 12.60 VON ANAPA,TITEL-SUMMENSPIEGEL?MCDBBC -SB- , -CD- , ENDE 15.60?MCJBED 31.2?MCVBFD 31.4;S MK=FX[4]?MC6BGD 31.1;D 31.12;S DU=N-FITR(N);I (DU-.01)1.1;I (DU-.11)1.09?MDBHD 31.16;G 1.1?MDGBID 31.14?MD]BJ
 SG(0)=;S NP=;S DI=;S DU=;S DY=;S K=?MD2BKF I=0,99;S SG(I)=;S EP(I)=;S PR(I)=?MD8BLS KI=?MD>BTO R I?ME BYA NB,N;S DU=FIN();S SZ=FX[8];S NN=FX[5];S II=FX[6];S MW=FX[7]?ME2B[S SG(99)=;F DU=1,II;S SG(DU)=?ME9B\S ZZ=57?MFPB^D 28.05;D 28.10;S J=4;S BZ=1;S KX=;
 29?MF3B(D 7.1;T "   POS",:15,"MENGE",:26,"KURZTEXT",:67,"LFD-NR";D 2.24?MGRB-D 7.1;T "NR BIETER",:28,"%",:32,"MA [DM]",:42,"LO [DM]"?MG$B/T :53,"EP [DM]",:66,"GP [DM]"?MG?DAC EINLESEN DER POS.,EP BESTIMMEN,TABELLE DRUCKEN?MHSDES NP=NP+1;I (NN-NP+.1)10.01
D 7.1?MH\DGS N3=30+2*NP?MH,DJA L,ST;D 7;D 7.1;S EP(0)=0?MH7DLT %6.03,N+L/1E3?MH<DMD 12?MINDNS DY=FIN();I (DY-160)2.17,2.14?MI[DQS DI=FOUT(DY);S DU=0?MI2DRS DY=FIN();S DU=DU+1;I (DY-141)2.2,2.22?MJGDTI (40.5-DU)2.18;S DI=FOUT(DY);G 2.18?MJUDVS DU=FIN();T :
8,%3,NP?MJDXD 7.1;F DD=1,72;T "-"?MJ.D^D 7.1;S NA=;S I=?MJ8D S IA(NA)=FX[3]?MKVD"F DU=1,IA(NA);S I=I+1;S EP(I)=FX[N3+(DU-1)*(21+2*NN)]?MK&D$I (II-I-.1)2.42;S NA=NA+1?MK9D&D (31.40+NA/100+.000001);G 2.32?MLJD*S KI=1;I (II-1.5)2.56;S KI=?ML(D-S KI=KI+1;I (.
0001-EP(KI))2.5;I (II-KI-.5)2.5;G 2.45?ML2D2F I=KI,II;D 4?MMBD7I (NA-.1)2.56;D 31.4;S NA=?MMGD8S I=?MMWD9F YZ=1,IA(NA);S I=I+1;D 3?MM3D<I (II-I-.1)2.7;S NA=NA+1;D (31.40+NA/100+.000001)?MNAES IA(NA)=FX[3];G 2.57?MNREFI (-EP(KI))2.75;S PY=0;G 2.8?MNEKS PY=
EP(0)*100)/(II*EP(KI))?MOCEPT :4,"ARITHM. MITTEL";I (999.1-PY)2.82;T :24,%3,PY;G 2.85?MOLERT :25,">999"?MO&EUT :49,%8.02,EP(0)/II,:60,%10.02,(EP(0)*ST)/II?MPEZS SG(99)=SG(99)+EP(KI)*ST;I (MK-.1)2.92;D 31.4?MPIE\D 7.1;G 2.05?MP
FAC BIETER-SCHLEIFE DRUCKEN, UP ZU 2.57?MP4FJS N2=11+(YZ-1)*(21+2*NN);S NI=FX[N2]?MQGFLI (NI-9.5)3.16;S DY=FITR(NI/10)?MQ"FNS DI=FOUT(176+DY);S DI=FOUT(176+NI-10*DY);G 3.2?MQ1FPT " ";S DI=FOUT(176+NI)?MRFFTT " ";F DY=1,20;S DI=FOUT(FX[N2+DY])?MRXFVI (-EP(
I))3.23;S PX=0;G 3.24?MR	FWS PX=(EP(I)*100)/EP(KI)?MR4FXS MA=FX[N2+20+2*NP]?MSIFYI (PX-999.4)3.26;T :25,">999";G 3.28?MSRFZT :24,%3,PX?MS F\I (-MA+.0001)3.3;G 3.4?MS1F^T :29,%7.02,MA,:39,EP(I)-MA?MS=F(T :49,%8.02,EP(I)?MTKF2T :60,%10.02,EP(I)*ST?MTXF<S EP
0)=EP(0)+EP(I)?MT(GFS SG(I)=SG(I)+EP(I)*ST;D 7?MULHAC UP ZU 2.50 - KLEINSTEN EP IN DER BETR.POS.SUCHEN,KI=NR.DES KL.EP?MU	HJI (EP(KI)-EP(I))4.4,4.4;I (EP(I)-.00001)4.4,4.4?MU-HTS KI=I?MU1H(R?MU:NJT !;S J=J+1?M/(NTI (ZZ-J)7.3;R?MVRN(D 28.05;D 28.1;D 29.2?M
,N-T "  (FORTSETZUNG)";S KX=1;D 29.25;S J=4;D 7.1?MV=N0D 1.4;D 1.45;D 1.47;D 7.5;R?MWGN2T !!;S J=J+2;R?MWRN<T !!!;S J=J+3;R?MW+PAC UP BEZEICHNUNG LESEN UND DRUCKEN, ZU 29.30?MW1PES DI=?MXPPJS DU=FIN();I (DU-141.5)8.3;S DY=FOUT(DU);S DI=DI+1;G 8.1?MXTP^R?M
.TAC AUS 2.05,TITEL-ENDSUMMENSPIEGEL:NEUES BLATT?MX;TEF DU=1,II;S EP(DU)=?MYKTJS ZZ=60;D 7.3;D 7.4;D 7.45?MY TOD 7.5;T "TITEL-SUMMENSPIEGEL";D 7.1?MY+TTF DU=1,19;T "="?MZGTVD 7.5;T :39,"NETTO",:49,%3.01,MW," %",:67,"BRUTTO"?MZ
TXD 7.1;T "NR BIETER",:28,"%",:37,"GP [DM]"?MZ5TYT :48,"MWST [DM]",:66,"GP [DM]";D 7.1?M[FTZS KI=1;I (II-1.5)10.44;S KI=?M[\T^S KI=KI+1;I (.00001-SG(KI))10.4;G 10.3?M[&T(F I=KI,II;D 20?M[7T,I (NA-.1)10.46;D 31.4;S NA=?M[<T.S I=?M\LT0F YZ=1,IA(NA);S I=I+1;
 11?M\(T2I (II-I-.1)10.6;S NA=NA+1;D (31.40+NA/100+.000001)?M\6T4S IA(NA)=FX[3];G 10.48?M]FT<D 7.1;T :4;F DU=1,69;T "-"?M]+UFD 7.1;T :4,"ARITHM. MITTEL",:24,%3;S PR(98)=(SG(0)*100)/(II*SG(KI))?M]2UGT PR(98)?M^TUPS DZ=SG(0)/II;T :30,%11.02,DZ;S DI=DZ*(MW/1
0);T :44,%10.02,DI?M^ UQT :59,%11.02,DZ+DI?M^6URD 7.1;T :4,"SU.100%-POSITIONEN",:24,%3?M
GUTS PR(99)=(SG(99)*100)/SG(KI)?M
WUVT PR(99),:30,%11.02,SG(99)?M
7UXS DI=SG(99)*(MW/100);T %10.02,:44,DI,:59,%11.02,SG(99)+DI?M IUZD 7.3;D 7.5;O C;D 31.1;D 31.12?M PU
G 15.01?M %VAC BIETER-ZEILE DRUCKEN, UP ZU 10.48?M .VJD 7.1;D 3.1?M!AVNI (NI-9.5)11.18;S DY=FITR(NI/10)?M!\VPS DI=FOUT(176+DY);S DI=FOUT(176+NI-10*DY);G 11.2?M!+VRT " ";S DI=FOUT(176+NI)?M!1VTD 3.2?M"IV^S PR(I)=(SG(I)*100)/SG(KI);T :24,%3,PR(I)?M"UV(T :30
%11.02,SG(I)?M"*V2S DI=SG(I)*(MW/100);T :44,%10.02,DI?M"8V<T :59,%11.02,SG(I)+DI?MGWFS SG(0)=SG(0)+SG(I);D 7?MWXAC   UP ZU 2.13 - FORMAT ST?M/XEI (ST-9999999.999)12.1;T %8,ST,"      ";R?M$FXJI (FITR(ST)-ST)12.13;T %8,ST,"      ";R?M$ XMI (FITR(10*ST)-10*S
)12.16;T %9.01,ST,"    ";R?M$;XPI (FITR(100*ST)-100*ST)12.19;T %10.02,ST,"   ";R?M%FXST %11.03,ST,"  "?M%
^AC TITEL-ENSUMMEN IN ANAP(N).FD FORTSCHREIBEN?M%(^JD 31.5;O R O?M%9^OD 31.4;T %2,MW,!;S NA=;S I=?M&I^TF YZ=1,IA(NA);S I=I+1;D 16?M&%^VI (II-I-.1)15.3;S NA=NA+1;D (31.40+NA/100+.000001)?M&3^XS IA(NA)=FX[3];G 15.2?M	O^^T "98 ARITHM. MITTEL      ",:30,%11.0
,SG(0)/II,!?M	&^(T "99 SU.100%-POSITIONEN  ",:30,SG(99),!?M(F^2O C;O T;D 31.1;D 31.12;F I=1,99;S PR(I)=;S SG(I)=;S EP(I)=?M(J^<R?M(
 AC BIETER-ZEILE AUSGEBEN, UP ZU 15.20?M(% JD 3.1?M(8 OI (NI-9.5)16.18;S DY=FITR(NI/10)?M)S PS DI=FOUT(176+DY);S DI=FOUT(176+NI-10*DY);G 16.2?M)" RT " ";S DI=FOUT(176+NI)?M)( TD 3.2?M)5 ^T :30,%11.02,SG(I),!?M*S(AC UP ZU 10.40 - BIETER MIT DEM KL.GES.PREI
 ERMITTELN?M*0(JI (SG(KI)-SG(I))20.4,20.4;I (SG(I)-.00001)20.4,20.4?M*6(TS KI=I?M/,((R?M/S:TT %2,"TITEL",N," -",%3,BZ;S BZ=BZ+1?M+):YT :63,%3,"SEITE";I (SZ-.5)29.3;T SZ;S SZ=SZ+1?M+8:^T !!;I (-KX)29.6;T !;D 8?M,E:T !;F DU=1,DI;T "="?M,N:2T !!;S J=J+6?M,R:
R?M,Z>JO I TTY:,E?M,!>LO O TTY:?M,(>NO O LPT:?M,4>PO O AUS:ANAP(N).LS?M->TO I SYS:ANAP(N).DA?M-L>(O A SYS:ANAP(N).D0?M-X>)O A SYS:ANAP(N).D1?M-$>*O A SYS:ANAP(N).D2?M-0>+O A SYS:ANAP(N).D3?M-<>,O A SYS:ANAP(N).D4?M.H>-O A SYS:ANAP(N).D5?M.T>.O A SYS:ANAP(
).D6?M. >/O A SYS:ANAP(N).D7?M.,>0O A SYS:ANAP(N).D8?M.8>1O A SYS:ANAP(N).D9?M/D>2O O SYS:ANAP(N).FD?M?T !"ANAP1.FC, 26.11.77"!?M+O:VT :25,"C O - B O PROGRAMM ANAP1 V1A"?MVDN^C?M/?8ET !;S J=FOUT(140);F J=1,40;T " ?M0*8JT !"BUERO F. INGENIEURBAUWESEN OTTO 
AULER 7070 SCHWAEB.GMUEND T.:07171/2000"!!?M098TT %6,"AUFTRAG-NR.:"AU(1)?M1H8^T %6.01,:28,"POS.:"AU(2)?M*:8(T :63,"SEITE"!!;S J=6?M6?L S ANAP1?M??M1 V1A"?MA"?M?M;CD 23?M18>5L D SYS:ANAP(N).D3;CD 23?M2G>6L D SYS:ANAPD9;CD 23?M3A?ZO I HELP.FD,E?M+(TT !"BITT
 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 !"AN<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