7II.()0C-ANAPCA.FCNOV-77?M6,BAC   ANAPCA, UP ZU ANAPC, DATEI AUSDRUCKEN, ENDE 1.47?MCKBBC   ING.BUERO SIEGFRIED BOSCH, -CD- , KORNTAL?MCTBJD 31.6;S DU=?MC+BMS DU=DU+1;S DY=FIN();I (DY-141)1.16,1.19?MC7BPS AV(DU)=DY;G 1.13?MC?BSS GA=DU-1?MDRBVD 31.4;A DU,D
;S DY=FIN();S DU=?MD)BYS DU=DU+1;S DY=FIN();I (DY-141)1.28,1.31?MD5B\S PR(DU)=DY;G 1.25?MEMB
S DY=FIN();S GP=DU-1;D (31.12+(2*AG/1E2))?MEXB"S BZ=;D 7.3;D 29?ME]B%D 3?ME0B(D 7.3;D 28.05;O C;D 31.1;D 31.12?ME4B+E?ME8B/R?MFKFAC   UP ZU 1.37 - POS. SCHREIBEN?MFWFJA DX;I (-DX)3.13;R?MF!FMD 15;A ST;D 12?MF3FZS DY=FIN();I (DY-160)3.27,3.26?MF=F[S DZ=FOU
(DY)?MGOF\S DY=FIN();I (DY-141)3.31,3.34?MG\F
S DZ=FOUT(DY);G 3.28?MG,F"S DY=FIN();D 7.1;D 7;G 3.1?MG5NJT !;S J=J+1?MR]NTI (60-J)7.3;R?MHEN(D 29;R?MHUXAC   UP ZU 3.13 - FORMAT ST?MH-XEI (ST-9999999.999)12.1;T %8,ST,"       ";R?MIDXJI (FITR(ST)-ST)12.13;T %8,ST,"       ";R?MI
XMI (FITR(10*ST)-10*ST)12.16;T %9.01,ST,"     ";R?MI;XPI (FITR(100*ST)-100*ST)12.19;T %10.02,ST,"    ";R?MJGXST %11.03,ST,"   "?MJ$^AC   UP ZU 3.13 - AUSGABE DX MIT FOUT() IM I3-FORMAT?MKA^JI (DX-99.5)15.30;S DU=FITR(DX/100);S DI=FOUT(DU+176)?MK]^TS DX=DX
100*DU;S DU=FITR(DX/10);S DI=FOUT(DU+176)?MK+^YS DX=DX-10*DU;G 15.60?MLJ^^T " ";I (DX-9.5)15.50;S DU=FITR(DX/10);S DI=FOUT(DU+176)?MLX^(S DX=DX-10*DU;G 15.60?ML^^2T " "?MR!^<S DI=FOUT(DX+176);T "   "?ML?:AC   UP ZU 1.34, 7.40 - TITEL?MMH:ED 28.05;S J=?MM[
TT !;F DU=1,GA;S DY=FOUT(AV(DU))?MM:YS BZ=BZ+1?MM>:^T !!"TITEL",%2,N," -",BZ;I (BZ-1.5)29.35;G 29.4?MNU:T :22,"C O - B O PROGRAMM ANAPCA V01.01?MN/:(T :63,"SEITE";I (SZ-.5)29.45;T %3,SZ;S SZ=SZ+1?MN=:-I (BZ-1.5)29.46;G 29.5?MO":.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"!?MO,:/F DU=1,61;T "=?MO5:0T !;S J=J+3?MPI:2T !!!;I (BZ-1.5)29.55;T "FORTS.: "?MPZ:7F DU=1,GP;S DY=FOUT(PR(DU))?MP*:<T !;I (BZ-1.5)29.65;G 29.7?MP5;AF DU=1,GP;T "="?MQL;FT !!!"POS        MENGE",:24,"KURZTEXT"!!?MQS;
S J=J+13?MQ[>JO I TTY:,E?MQ">LO O TTY:?MQ)>NO O LPT:?MQ5>PO O AUS:ANAPLV.LS?MRQ>(O I SYS:ANAP(N).DA?M?T !"ANAPCA.FC, 26.11.77"!?MRA><O I DSK:ABSE(NK).A?MG?N^C?MR48ET !;S J=FOUT(140);F J=1,40;T " ?MS
8JT !"BUERO F. INGENIEURBAUWESEN OTTO PAULER 7070 SCHWAEB.GMUEND T.:07171/2000"!!?MS.8TT %6,"AUFTRAG-NR.:"AU(1)?MS=8^T %6.01,:28,"POS.:"AU(2)?ML.8(T :63,"SEITE"!!;S J=6?M6?L S ANAPCA?M?M<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