EUMEL-000181c trs WW ,,,&Yw.mw,*(WwVEUMEL Z}_fڋG.;r.;w&. TvG@GFu ൱% NΎ޾'ڋ `؎Ў.X&2 Ã>0 s&2 ?2 @t$b @r b ` .&2 +` ` )b n tAj t02 n -`%n l h Ў؎$2 2 b -r n ` l ;b rb H b .j .n . 2 @t耧&>&=u& &؎n @n l  PL X@u <u n rrn l {j n 裀 PRtpZXШPQRZYXÎ Ëb Ë t̀Q+j r l ûYj rh j n YߎLJׇދ+Htu ׇW.X _W.Xm_W.X7s_˰.XX&t sX&sW.XPSЋ b shardЋ[X_:K"u >J"t1t@ PD PH Xt<t<tPQW=r _YXP .Xr s<utL L <rtrmnet 30 (!)<rS[t*QY <rSيC/[ ÊD,s D,sDY^[<srà SVQ p6  uɠ t P* XtD< t ] <Q5YDsSVQ6 D  u2 RC%ׇڎއLLZ Y^[Ê\DDuD ؊D $NJP\|K|\ ugX<rVSPQߊD DYt SL@ [L tuD<ru?DFu>F0Up[l{p[L0_l00{0А_l`l0{0[l{[l{^l{]l^l0{0В.]l^l0{0Д1p[l{]l^l0{0Ж>p[l{>p[l{[l{^l{[L0_l00{0ИQp^l{[L0_l00{0К}]l^l0{0Мz]l^l0{0Оz]l^l0{0Рz[ L00^l0{0Т}p[l{^l{[l`l0{0Ф[l{p^l{[l{[l{^l{  ppwwIV pDpp[l\ll{[0K^l{p]l[l0{0p[03p]l_l0{0[ 00[l0{0[L0^l00{0\l{p[l{Pp[l{\l{Pp0`00U0`00|p[l{_l{[l_l0{0Ъp_l{qP Pp\l{p\l{qP2p[ K0[ 32020{0в/^l[l0{0Є2p0]00 2\l{q]l_l0{0дCp0`00 _l{q\L0\l00{0зhp]l[l0{0кWp[l{q0a060001eal{qal{q[l{np[l{tpPwp[l{wp^l{q[l`l0{0p`l{q[l{q0[0.00_0.00`0.0/060p_l{q[L0[l00{0p[L00{q[00_l00{0[l`l0{0[L0`l00{0`l{qpp`l{q_l{q^l_l0{00`00p`l{q_l{q]l^l0{0_l{q[l =yx YTG0 G4 UuG4kG0G4-G0G4#G0G4 G0_l0{0Юp_l{p_l{p_l{[0[l00{0p[K00{[ K00[l0{05p[l{Ap>p`l{_l{WpJp`l{Pp[l{Tp_l{[ L00_l0{0k[ L00_l0{0np_l{[ 0_l00{0p[L00{pp_l{p[0_l00{0p_l{[l{p_l`l0{0p[l{_l`l0{0Ўp[L00000Up_l{`l{[ K00_l0{0_l_l0{0jp_l{p  pp p(p~ppp\ [00Kppp[L0`l00{0p`l{220`060002p_l{p2pp2p2p[L000002[L000060002p`l{p2pp\L0\l00{0зMp0a060001Jal{pal{p[ a0 0_p {]p 322{p Qp0\00mp0a00pal{p\ K00000\ K00{p\ L00{p ww(p[ 3\*u&p 3">NE F. 0$2l2m+y'3UP P)p~ozpozP P)p~ozpozP3 p2 poSy P P ̀ PM P- 2p1p-p&2p1+-p.asciiampex210.germanampex220.germanampex232Wyse.WY50.asciiWyse.WY50.germanWyse.WY60.germanEWyse.WY60.germanWyse.WY60.german%Wyse.WY60.germanWyse.WY99.german!Wyse.WY99.germanWyse.WY99.german=Wyse.WY99.german1Wyse.WY99.german Wyse.WY99.german8Zpc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii Dauarenkurchrofegenleichinterinsbe g tiederichteuiste elbst atransheooronderederberheitkeitagtagsueleqeau bcklmnrstberchentirealialytanaiatogegenebeiniueinatuelenentvevoteztungdexiniioniermivafizeientstzchdtktnsionachlichmghgspschnisrafrundesunter cfgklnprtchtshstagchsstaftagltspreintranstionsftspertnereitsftrlumnsend:24.0ib:25.012ie:28.012topage:31.1 goalpage:32.1count:33.01setcount:35.1value:36.01table:38.0tableend:39.0 rpos:40.1lpos:41.1cpos:42.1dpos:43.2bpos:44.2clearpos:45.01right:47.0/ center:48.0skip:49.0skipend:50.0u:51.0d:52.0e:53.0headon:54.0headoff:55.0 bottomon:56.0bottomoff:57.0countperpage:58.0fillchar:59.1mark:60.2 markend:61.0pageblock:62.0b:63.0counter:64.12setcounter:66.2putcounter:67.01 storecounter:69.1(6ub:70.0ue:71.0fb:72.0fe:73.0region:74.0regionend:75.0A,0bildschirminitialisP{p%l1y xm {{P{p%l1y xm {{P9y%)-plBn5y<3.pz<xzPmyqpQ=poSywp5 2 бMpoSywp y m yl0 ymmy y m yl1 yl0l1zl1mzl1zwpmoySyPl1yl1 yl1yPpl{ p n@m{%$P)poo{ppoo{%{pM 1l{)4l1ly JB B{`wB pM`wB ,BB Lp`w  p p`w p$5!$$*51&)&&$&$31$l2Sy>p`wB L!>p` < !,oSy>px` 4 ` <$`%! L!Pl1y l1yl1ly,P p{pM 0B `w ~p`w  Q`w  {`w  p`w  { \p`w  ppm{B2 {x` 4pQx` 4{B ` < x` 4` p6p@p0 00 0 yL000?ypm 0y5p0 `L0?ypm 0yppm{ {x` 4pQ pppm{P$J$BPl{)!l{ ))pl{%  5)p)zp5!5*1)zlBn5y:Np4p5!{Yy4p4p4p9pmytplBn5y<45!&zplBn5y<4zl1yl10myLp1m?y4p4p5!{Yy4p4pl1ly50<p4p<l1pmyl1yp5!&0J)l{ )pl{% l{{)l1yl1z ,L )p 0Fl{ 0G+LBl{ 0I +LB l{PLplly4p4p)#p4p.plL?ypP6H_p50\pno{4H6H`L P4@4@4@P4@4@4@P5 m{OP6@5m@n{pp71p4@4@4@ P7@)06rlmm@m{l(@mlmHmPm{L{NppmPyO4p4p@npm{K3l @m{K>Fu >Fu)< r4][C>FtDu$<<,rzP<r_~<u  ud빋D *ÊD y2D& uDu"D& tsD& t<suLxm<DuD4 uD& tsKD,D-D.L=dD t>/   LD*D T s,sL D /*D  X*L ЊL <DDuÀdy Q`?Bu GuYPQB`uYXá;t  &%|2ǀtWP%"8!QYs3! t@uuF &܁*"r&܁*rb2܊ tZ؋&Et@tŀuF &܁*r%2r"܊t؋&EuZ܊t؋Wu܊*uP ? ;~@uuF &܁*<r&܁*rL2܊ tD&Ux=ފ0t2؋;&E~@tuF &܁*1srފuފtڋ_uƀފ*u변rF2r܊t2S܊t!؋Wu܊*t$;v}b@uuF &܁*r&܁*rL2܊ tD&Ux=ފ0t2؋;&Ev@tuF &܁*srފuފtڋ_uƀފ*u변rF2r܊t2S܊t!؋Wu܊*t$\@uuF &܁*r&܁*mrL2܊ tD&Ux=ފ0t2؋;&Et@tuF &܁*srފuފtڋ_uƀފ*u변rF2r܊t2S܊t!؋Wu܊*t$1;u&Ǩ@uh&Ǩ@tP$ uȊ*uŊ\ D :Dy,D ÈD  Њju`{ǀu*Šsيl C뵀x2uF &܁* ؊zIӺ<rR*@Z7 7Sp"Ǵ=s WRMZr62& p'ފsE&܁*r2r4pފsۋE&܁*܊t7p,ފs"؋GE&܁*=4‡> $t Pж u*Ê7X<rR׶r#È7d وÊD ÊD $ Ŋ      ÊDZDDT t l ʊ GЊ&uD q'CCǀu12܊tފs؋*㋟=tωl n AMf e*V f  fE&p*p%vt&܁*\;`Z|2܊ttފsߋ؋޷tόێn AMf eʊV N  fE&ppvt&܁* d L {MuDCDD2DˉCCKK׶ tÊ7*sRÉÈL ÈD D $ ˆD $Rb +M^2A|*htJ_itP]rgmH#JU|%g)4RW}'.9@GOV]lq/Vr$+3:CIPW^iry$-D!q\e z.m*mJy&m+m Jy /m+mJy*+) P@Np4pH4p@6p#pnHm{m -'bpPm Ay O7  Ep >p4GAp4I5 Mp7   -p7  3]510Knp2Bp-&ypmAym?yp1 Ay?ym ymP@Np4pH4p@6pnHm{Pm6p7@mlKyp4p4K4PP6H nHm{p4@4H4@4P@Np4pH4p@6p m p-pl4Hm{P6p 7@  7@ p5m  yPlmmmy l1ly P6 p 7 @ 7 @ 3K5 1 P kpXO `+ ipn {Wp 1MrlLSyXO `+ XO `+ XO `+   P   pXO `+  pp p-pl{p4?pXO `+ ?ylmmyXO `+   l1lyp-pl {PpQp*47@4(pQl1yOplZSy!pl14y4444l14z% P)j1j$P-|pl1yl1 y p%plml{l1lyl{)4l1y41pl1 y p%pl1y)plj/z<4lz  { zlz*<1@8plBn5y<4zp7p9yplBn5y<4zl1y;plSyp.  P{ B m{ l1y )p%{l1ly{B 1%pl{ 1 p$41 !p{{{{)9l1y{pm{l1yl1z{pQ7l1ym{l1BnyO P1E1E2 4Sp4%)SMO Pl1 yl1l 1z1v1v-vl1y 2 &l1yl1lyl1 y= P6p7pPK{0l1lyl1ly%4%l{pplSy{4)p2p1$pp)pl1ly p!l1 y= p%{pm{l1ly{4%{{L l1 y= p{l1yp{l1yl1pmyL )$4  5 l1yl1yp)pl1yl1y#p{l1yl1pmyL )pl1lyP)2p)2)l1lyl1l$zl1zl1@n-zy`pl1lyl1y=l1yXp`pl1yl1l$zF>v S_f>F>v[Y&<83tŠv͊hŠÊ7$2Ƿp!.<Ê7Qƀu=D& t6)<r/ \% ъD& tr ي*Y8M UQtPъD& tasXs=YX*ȊŊXD;ÊD& t5sH#È#^ÊD& ts*ÈD& trڈ\ |  LQD& tH؊ъYs7È7SRÉ*ÈD& tKZ[SRoRBZr1 jD&sr#< rBÊ$utNjÈ`Z[<tD0:u<r Q>EYrð 7ÊP?Ȋ r$sSˊu/#?ȊۋÈ7ÈÈ7tZSS tIrQl0ʊCYu [È7 zQÊ7Ӱ:sǀt uD0:u HDrtDYrR[>ȊZÈ7r Ê78r$Ê$7Ead׊=PSLSYD& t<u Vuz [È/=SS|YD& t<u VuzSSGY, tD& tVuw끠0 <st(eDt' uÀÀ׶ s ׶  t SÊ7S [r[Ê7tÊsǀӈ7ˈ[So RlZ[C'lH/S+Ê7SR[[kb>F>FCnK7kaKRS Š*ÊƊ7r%Jl [t' 2 SSR YÊ7[yvtLP ێIߟu Xs'XKaBÈ7[[  *ÈÊˈ^ ӊÈG <{rt=Yd  $?ÊD<s D<s .<r‹:D1u A D U[4>F0:D0u< tD<s<s<*tq߇ӈÈ7H>F$ж^seA>Fu>fGs>N[A [APAX>F1$>NɊD0 r>SR>F>F >^ >~ >V >FQa$@>^>~rSR>F>^a >F ‹>F >F>F UZ0[ׇڎIއׇڎIއ[ׇڎIއׇڎIއײ8*u>F*>F+>v0Du;Lz;d>^>~*>F&>F'>F>F>F>F>F>F?dLIsi:rUZ2 V[0R*D.D/PQRSN[ZYXr-<s‹:D1u<~rF$v0O:Y>V.>F0>F/VZ4UZ4w>F u"hZ,È70>*ò:D1t  tٲˆ[tË:tCB:QׇڎއYËAAAz‹ÊD<s‹:D1tQY5#Du"*D4D5D6D7Duز.,4Rׇޥ_ׇގǀdADu3 tF>vsZY׋v[o RS#f>F>vCӉ[Yu׋DS[ÌأË>P>PCsjԟ  uŀL ßPRSd D [ZX*ӊ| D $<u N+tÊ| ؎׋ tR,ж<u+/9/[RZ,ж/ZȋR9,ж/ZȊ 9 &ǀt x = tRZN=âghu8ýf>f ׋&t<s׋ t R:u tö!,ȊЊR<s׋sR:u sö+ Êӊ$2>~>F>F u%׋s>Fur tI>Fu+j+Ȋ۟PXrʰuutRR*>~۟P>FWXZrR2ZËV\ | d߀L@ÊيL l ىXVcdZ\D@uՊ:stu:r ËZt يȰ t܀L XVZË\ t fXRZbXZVddߞD tSVTىV[ðUL VËTǀuˉVÉ^J uýb*ŠȊƊË^ D tV ه덟PSB**ŠȵuŊ tׇڎއZX*ƊֶB0<s t7mÈÈ7ЀLSRZʇӋ*Êu*tZdq<sSbZ;uSR uʊZ[ZtfZ[y"SR*ÊǢjsӉZ[ ttr(=ݠj x0s tOuË:tt*toh<t]ЊVU74S_ˊR y8Ӌr-Y[:tUϋϰY[QS'χJ r-ISY*ŠrʊZϋ[RSlpgrJn/·$··Ӌ*ÊsӋYnuW*ÊȊNJ[rIrDt?Plێu-t uXsXXÈ7 [n uQAbcRSnKrgpub9u f-Ӌ:uuܟPFX[ZYcRSÊlÊmS*Z[YspuhPlI:r :r;C uXrDf>v%ۉtۺxۉvx4͉z1 y0l1ypz<4<$p-!pl1 yl1ly{l n5yP<4<:{<p<9<8Pz<4?Dp 6yl.5y<=<8P9ylp<1<4)S<.l1zl6zl1 z zl9zmzl>zmzll5yP9y{p<1<4<:< <9P%%%          %%%%LmNy %OOOOOOOOO L@BN )#ll{lHn5m{4D8{p`D `< p~yp%p 9ypz.P   yp}y yLEFP"POGPNpxmPy4xARy?y4x4xOpOxmyK)$pl1zy)(xmSyP  1P  oy 1P y3$P %5m{8 {Up #m{Wp##ml{#m o y 1$Py y o y 8P oy 8P~ypp>yppy 2yP%%NNXN(4(4(@(^ {p { {  Ny  5 "9 " { phm y Syt] ^      L@ LP  Lh  L`  !"#$%&'()*+,-./012345678d     #16.0Px,Forts.von letzter type:1.1linefeed:3.1limit:4.1free:5.1page:6.01pagenr:8.2pagelength:9.1 foot:10.0end:11.0head:12.0headeven:13.0headodd:14.0bottom:15.0bottomeven:16.0 bottomodd:17.0columns:18.2columnsend:19.0topage:20.1goalpage:21.1count:22.01 setcount:24.1value:25.01on:27.1off:28.1headon:29.0headoff:30.0bottomon:31.0bottomoff:32.0 countperpage:33.0footcontinued:34.0table:35.0tableend:36.0rpos:37.1lpos:38.1 cpos:39.1dpos:40.2bpos:41.2clearpos:42.01fillchar:44.1pageblock:45.0{counter:46.12storecounter:48.1putcounter:49.01setcounter:51.2u:52.0d:53.0 e:54.0region:55.0regionend:56.0ib:57.012ie:60.012janein nur einstellbar zwischen 0 und 9 existiert nicht%Name Eingabedatei = Name Ausgabedatei.p/Druckdatei kann nicht nochmal formatiert werden>C3#on("underline")##off("underline")# end fehlt bei Dateiende$Zu viele 'head' oder 'bottom' Zeilen;head, bottom oder footzeilen > Seitenlnge (end vergessen?)Zu viele Funotenzeilen.Funote > 85% der Seitenlnge (end vergessen?)#end#2Weiterfhren der Funote auf nchster Seite (j/n)?njAbbruch durch ESC#foot continued#Spalte Seite #text end# #clear pos# #table end# ,Soll die Seite beim Druck gestreckt werden ( cm) #textbegin (, "")#c#page## ----------- Ende der Seite 0 und Spalte #type("#limit()# #linefeed()# #clearpos##table# #text begin#fillchar...-/": -> @.Hpage ()I pagelengthcolumns #columnsend# columnsend#on("DEF9:;<=blockstart .0.1iAnzahl Referenzen zu grossregion end fehlt regionend:1.0@#page# bestaetigen: RETURN / loeschen: HOP RUBOUT / Abbruch: ESC #page# nachcmAbbruch mit ESC #page##---#page#-----1Bitte Originaldatei bearbeiten (keine Druckdatei)G#foot#free#endL+ber Seitenende hinaus (Stauchung): UP/DOWN#page#foot##free(#columnsSpaltenSeiten?ende verschieben: UP, DOWN / bestaetigen: RETURN / Abbruch: ESC<< DATEI ANFANG >><< DATEI ENDE >>MAUTOPAGEFORM(frZeilen):->% (in pager-Zeile >>Hf:30.0bottomon:31.0bottomoff:32.0 countperpage:33.0footcontinued:34.0table:35.0tableend:36.0rpos:37.1lpos:38.1 cpos:39.1dpos:40.2bpos:41.2clearpos:42.01fillchar:44.1pageblock:45.0counter:46.12storecounter:48.1putcounter:49.01setcounter:51.2u:52.0d:53.0 e:54.0region:55.0regionend:56.0ib:57.012ie:60.012^1u,|# $0u0u'0uH''2u9'0uIe3uJ e'0ue'0u"eBR0u&eBR0u*eBR''0u.eBR''0u f0u0u0u0u,fc'Rx2*Rx]2*'RxUY2*2*Rx\2*2*Rxc2*2*Rx_ '2*0uBQBR0uRx]c2*0ulc2*0u0u0u\2*0uvc2*0ua2*0u`2*0u^2*0u]e2*'Rxbe2*'RxTe0Rxe'Rxle '02*00uteBR2*0ue'2*0u|e2*00ue2*00ue00ue00ue2*00uQf0u0u0u0ue'0ue'BR0ue''0ue'0ue00uieren#8xxx@limitundtypeggfanfragenHinit@'` LINEFORM#h AUTOFORM/p(1.8.2)7)x(fr Zeilen):xxxtypeundlimitsetzenkeinvorhandenerschriftnameM+ȥtypetext#typeإ limittextХ#limit!kommandoendetext,&)#]5#####! typeundlimitanweisungenvorhanden_0typeundlimitfragen/ typeanfrageni2typeinneuezeile limitanfragen(limitinneuezeilea0Bitte Schrifttyp :*8dummy2"P77XFEHLER: unbekannter Schrifttyp`Schrifttyp bitte nochmal:%h ("pZeilenbreite (in cm):x FEHLER: bitte REAL-Wert angebenm$Zeilenbreite (in cm) bitte nochmal:>3 ($ startform,dateienassoziieren2fehlerbehandlung@%dateineunachaltkopierenȦzwischendateiloeschen% '.p'-Datei17.p5'.p'-Datei kann nicht mit lineform bearbeitet werdenausgabedateieinrichten& Datei nicht vorhanden&`editorbereichbearbeitenhkein markierter Bereich$(ȧfu(typename2 filelimitliner182dlimitu $ LH ^       @ P  h  ` $ H5@^   my^4 x5 *x-  ^L {NpplPyO4z Yy49ml?4 |p1z9m}m?4 |p K^ ll {A^ ll {A^$9ypz<z(p^l :l@{5@lP{  $^tlmtl{tlEzllHz(;mtl?P4mtl?l ;(p ,pep  M@0@p0p$p$^Pd 5SS%͊*Êr|[Ê7[|stuPDunStsvۊÊ7ƀtLxŠÊƊq5z* {p4y7ˈ[CI uXs낀d[XDt΀dRÈ7Z|̠ж̊ 8SKǀt ۠<t *Šr[>FtJZQR~uBu[~uBuY]S_QʋQStЃC_Wse_YtĉY[abbd>NunCŠ uSNtCfg ö>fˊ7ˊi uK$<u "uà:uà:uÉÊ/SÊÊ7[>NÊ"urRSZ>fZ<sugÊ*Šr>Fu>Ftu :r SÈÈ7[àf u*ŠrRbSdSfbhd>FuH>Ft(ӋgS2[gf>Ft\[d[bZ RZ*Šs,ӋgSNjÈRi tR@ ȊZSs$>FtQًY:u=AI:u3sËANj ڇӋÈ7ZYASsF ڋZi uËÈ/ÈÈ7Z>Nài uÊ$tðd SRC7ˋÈ7ËÈ7Z[ð*Ê tÊ< tÊÊ/SÈÈ/[ÀLdD \|D$d\|b>N>FDu\ÊÊ7"uÊDÊD$D:u_ÊD:uVÊuNÊD*CDr=L$Ѐ>FtʇӋxLdDDDDDDr&D(CCۀDDtUXPQRSUK u X&<t  pC t ؉][ZYX tC߷tu6r.x*r%x!pxpy؃+]^_ÿ]^_WVU tR3Uy؃y ۃx>EхyF+sNMuʋ؋׋]yۃ]끁u=u]]eʋظ]]V PQ6Y X SӺׇڎއ׾-QR5S]f^YñS]>FF,жr 'KuC<s*BQRZY u4S Zqu ûڈ ÊC C C C C C C uÊ,жrQRZYK*s< sKyt$ÇӰCu>F4Њ44>V2:Dt>:FuÊU[J È4>:FuR8r1GY2)"Y2Ŋ !*t< r2 u " y5 'JKu$uHu5 /JKuȻusk2:Du>:Fu>2F VZډB^2R2J>NMu͊$t2/),>F,p pquD2>:Fu:Du>2F U[VQ"sYQ Q22ЈFYu݊),Ƞ,*^i(s0s8s @sË'JK'JK'JK'JK'JK'JK'Ê$蟇 $ ňû:;r@Hѻ2+r88ѻ*r0(ѻ" r(ú:tCBuú*/JK/JK/JK/JK/JK/JK/ú" "'"Cux1=4>V$u€tÊD>:FtÊ:tVU2s>F:DtÊ:tUV[ZCB:tCBuÊLV["u 2t#C"uuLC uuV[Q''K''K''K''K''K''K''KYV['Ȉ'C'Ȉ'C'Ȉ'C'Ȉ'C'Ȉ'C'Ȉ'C'Ȉ'CV[Qٵ'KuYúB JRV[ׇڎއVZVVU[7'U['õV[Cu start 002 (!)*175+bitmap 10 (!)ׇڎއËikSٵu(sljx[ikىZSQZRs!&"t &"&  ZY[ðSRQtYZ[ûZQRSSCC?KZ;ts)WߎNjtA-init muellabfuhr_Z臨ZBBBYxSRQPz tmerZm>F>F>F>Ft>FRSQRCCUJ]Z &2 ts>Fu >Fu>F uBێI>F>FStvNJt[Y[CCU+J][Lj7LjY[C7CCZxMre ًmoˋi يȠksOxeg sz *qXYZ[Ëexىegg}Cuû妋Z&sBuێI xڰzuX&}'Cu wRQq tgu&eKe"ugȢgxX& X&\uU'> t;u2*! t<uu *6* uV@4ϊ7ϊ4u"!먵lut'uSUu'Iu[m u |tNJ7NJ<uÊ*)wp yp ^1 p (mzp ^ p ^Lp ^  pfp^  l vO  l v^4|4|t4|^5| L@ |L@5@0OpL@5@M|$H^ 7@  d1@dt0t6ddlxtlmldlll{L{N+plPyO4z4t*ml?K13Smtl?KK6DMMdl]y(CpMKy^p6ddd^tRp9mdl?l>$ЁGmdl?,YipM0tp,[ppM0tp0d060@@0mly,@ddh?y4hIml?-@40ll=,ZpM0p,\pM0p0d060@@pJm0?l@yl@< K'mtl?p p5Hd0Hdhhp5HdlHdy4@5@ (p(pmm? X,-pMHpdLH6H@HdAydHdAydUmH?q@*Hmly, @ddh?y4hKml?- @q4Hl l=q,0:pMHmYq(pMq?mYq(pMq$q(pMq\q Kp{pl vl@ l@{yW qqRlX{pXFll{(TVqqx5@d d d0@dhh1p0@hh p0mm? l@lZdl@ \d(8pZZ\dJyd@pZZ\dJyd M4d46(ddUp5mdl?,S[pMllldAyddddl QM4d46(dd{p4(#mdl@l QM4d460^^p4040p^d00dhhв^mdJyl0mdym QM4d460^^^d00dhhм^xd00dhhмp6mdl?^d00dhhвp^ddmdJyl0mdy^mdJyl0mdy4040tll{!p( p#mtl?p(p+mtl?p  dldvB(q2lptlmldlll{(2pmtl?p L5;b3w3w3wiwywnwiwrwrw{wwwwwwwwwwwwwwwwwwwwwwwDDibbwwЮppЇptlEzllHzl(Hz,p(Mmtl?pЯp CаpLtlmyl*ytlCzl*ylm$zNplPyO4z4tml?K pxmm?^ p 64ll=66lyl<^) ( p!pxs7@ !p ^(1pllS4l?y4 ^5H Hp 0H 6_plH d ]p Hp  ^$7@ 9@,p 0@0@\ L(pp,p pp0p0(pmpp0pHmm?$pp,ppplU  ppGmm?V^2H lH lH{ty4H ^5pFmm?0l{lAypM pll{Fll{0^M6@((U.(47@4**7pxmm?Upl@(*{m.,dlll{.Kp*\p*47@4(&p\(ZpmSy{ p4^  q( $lH{q0xrl y $l8: l@ll1@@0@@@p0m<>llPylP2{2 pp2lP2l`{2P2P0o"p4@P5@9@,\pllv 5H46O @plLBpM  (D(Dp`(@ AXp=mdl?`(@A `(@}A*`(@A0`(@} A`(@A}* 0`(@A@A?p`(HIH Ip H{HHYy mH?(Ip `@} A`@A ^ ]yKyp6 $$ > :mdl?p$ppmdl?p^`  {lYy50бp44^dlZ?  mdl?$^$g(  Rl@{l@ll{0ipl@{0"mm@q$vp`   `>p`0 .  `0 c'`  9@ ,p0@ /ep/ p,phLg,:pqp` `  p,p p,`7@ `     ,p 7mm?(/p(/pml@ll{0`H[?ml?pl@{Mpp`;fpc[@ml?p`<upp`?p`[Cml?`p`=p*x[Aml?*xp1[Eml?p[Bml?p`    Kmm@l@l{(2@ m @uzEwM@  Dmm? h p`    ^M4d4^^6 =plmy4^^6 Kmdl@Qplmy4^^6 aplmy4^57x17x2~p6plmmyml@dp65xlmydp57x1x7x2ml@p^ pm{p pxm{ p. `Ny0m{  ,^0 pm{],.000`0,-((p],p(,- ^,pfp^0@*p^.  `  Lmlc.  `  ^.  `   ^K  enpMHzpj(9@,p L(pzp0pep o0 (pp p,p p(,p o0 (pp ps(pp(rp(cp}$^*  fppg9@, epo~qh1ty ~q0@   pl@ld~ mlhy~p  (p 0@ 8 0@\  ],W],Np xW |p],W],|p0@ ep Wp   lkp0@ p0@ p p   lkpp0@ p0@ p p   lkp  ,p ,8  0@ 6  p0@\ $hLg(pz~p0pe(po0%~p 1p,C~,B1p~p w(?,Xp  o0U~p wh1aty ~p0@ kp spl@ld~p mlhy~ph$^) *  * 0@ ppM#1@ 4 4 ?y4 ml@) ^L`h(plP{plypMP(pllPylypllPyly(QpMP5P0Prˀ'[[RQ&$͵&66YZvƊs&7uRSNJ7NJ:tM[Zu(,4[ZێIuK(ψ7ψSS'[S'[/sÊ< $sNJ< sˀt QŠط:uNJ:uNJ:u YÉ&ێ/:u Ǡ&:tSŠط/[Y Yߊ߷'Ë8QˀYùÊ<8r؊rS:[s۷~S'[0 uS'[SRZ[2PQS<tVX t~$[YXuR$( n>NQ&z}k>n>NS[:t 0-hash!*轘$وC/Ê7B7ˈF0$ ׇڎއ׳ t  P~P:Y.>n>N1 ׇڎއË&z .|[&z|RAZRSQޱ׊Y[ZRSQޱ׊Y[ZRSQޱ׊/Y[ZÊ u <sJSRiZ[uSQRZY[SP2222s2Š؀ˀXQٹYKK7KZK7KK/Kà2222Ss2 ؊ۋڋ[;tËE;tû܋E;t*ES[Ê u u<r RZsKX u<s u <uSR0Zu۷[t[SQRKu ZY[tuCuC6DptDqtDrtDsÊ u u<r R#Zs۟PQSRӊ$Ȼ  t[u Z[YߊXsNJ$9S1]Z t"Z$ ³u &fﳃ`uK$ ud uB<sÊ؋CCRsÊV[&CC&&RÊ4[SߊQRÊZYRي&CC&&')uQRBuZYS% HuPQ蕍YX볉[à tËPwy wu*XßPwwXU.>F]Ë5URQSP^X[YZ]5ßP uBX苐PSt0PXPC,driXÇ&PSRUVWw PSRUVWHx8t+ȅu_^]Z[XPSRUVWzPQRSUVW_^][ZYXPSQRUV}^]ZY[XuG<t <tK"腋uGu=GcW_6F".D"u >t_Gui5GuW GuE-Gt(PQRSUVWU><"x_^][ZYX돿4t tWtdquGu5Gu Gu-G"u6F"uGu5Gun Gu\-GuBGu05Gu Gu -GuGu5Gu Gu-GuGu5Gu~ Gul-GPSQRUW666666U><" _]ZY[XWf><" _u >t^Gu5Gu Gu-GtGPQRSUVW><"b _^][ZYXe6H"><"PQRSUVW6D" _^][ZYXqttRWuoGu]5GuK Gu9-Gu Gu5Gu Gu-GuGu5Gu Gu-GuGun5Gu\ GuJ-Gu0Gu5Gu Gu-GPSQRUW666666><"I_]ZY[XK"uK"L":K"u>J"uus V.i}^ûˋӋÕ}[~s~~~~~~'(4?CMWes>J"tJ"B"ڋхtùQ&~ Gt+70W_&E0&E&E2&E4&E&E6 8YcxL"q   ˋӋ mÀ>J"uù9uJ"@t:"68"K">"6<"ËB":">">@"ÉF"H" ߉D"Ë>D"߁ F"H";4;06<"y+ۉ\0DA;|ȉL2y+҉T4DG;||6Ë6<"\0L2T4|6 T|@"4Ëz Ë Ë‹ Ë‹ Á ˋ ߋúË6<";\0|;\2};L4|;L6}lu\|͇<t<t&ö&òWŅu\ &5_ŀ|Á拴^V=r=wӋu0m2rⓇʋu4m6xrԓ++^8vQRF F^Á.d^t؀ .^<t.sZF͵n̊~̀fF͵n~flF͵n~~~~~~~~ZYFT8׌Ўu~̹UV܋Ft ~^~Nn~ފ^vË88Åyكyڃ;sʃP.F.GFVp5P7Px5PlPypM`,Q1lP{1lPl`{2PP^LP@  l5@n^,AYp5P 0P YlP{Yp4P{pf{,QulP{mp5@ 0@ upl@{{plP{{p4@5@^5@0@Tqprp{pppuep$zp(p6@ p6P p(Qpy$p typlH{p4Hm^0@TU, ! m c l@ly5@(p5H 0H  p5H lH y0@ 0P3@m c m c (p5H 0H  p5H 3H 4@Pl5@n^0@TU, aU,gp 0@g6Pg6Pg6Pg6Pg0g5Pg ^ 0s^0@T$pfpoU,p lvl@ll{px00@pllvl@l{p0p  plH{5H5H0HpL`ht(Iy(I 0@ p7@l@l{4p0@$pl@ll,pl@ld01p4pp Gl@m y5@   ^5H 0H ^p5H lH yLp^2@4H ^1@ 4H^(pl0{LHL0H550p50p4Hp xLHl0l0{$pN(p ,I(IpxA pnSy^(plyllHylyplyllHylyY  nSyN5H0Hp ^w| ^ym^2@4Hym^0.f*6@ .6@ 5@ .pLhH1pL`H5H )   0 Hpmm?$(O =^lH{Wpw5y0lmy4,?y4lm<ml@Wp50lmy0лplmy44, ?y4l m<ml@ypz1b6070 00вl0 {Om?px00мl0 {Pm? 70p0^I0I0@ p0Zp >pl@ 0@8840@88-l@4d4 p 10Zp;0Fp0Zpl@4d4 0@88Xl@4d401 ^ 0 q q5  _p<^(zpmm? M8ml l~0  PPp0@PPpp05H1p0HPPplHl0HPPp1HHp PlPv x0@TU,pl@llpPPl@lPdP  mPcPPP0@PP؇p1@5mml~0&1@1@L6PPS6P7PGpSpll{ll{42p1 lll8l{5PPipMp0PPpP7PPPmp5PPkp1(3q5PPP1PLH xP1@PP4Pz5PPP>Pz 6y5PY1PPP 5yP>Pl@ll{ 6y5PY1Ppp5P^!RPR^!P?Pp<5P0PPPpn 5y< < {<< 5PY1P <p5PPOP>P 6y5P0PPP3p5PPP0PPP3p<<<85PY1P><EpY!P?P< 5PY1Pdp< 6yPR" TRTR?PR 5y@((p5PP!5H0HPPplHlH1HHP1P0PP!5P0PPP{!5P0P85PlPyl8my!(p5P0P!5PPH0HPPplHm1HHP1P0PP!5P0PPP{!4lmy!( @((1M!p(!pM1!p(pz3p( pnSy!p.(P31P!p(8w(-5P0PPP0pM8w M8w([p5hP)PPPPPP0PVpml@4H$ptp5PP5P0PPPp5PPP0PPPp5P3P 4H,94H8((lznzlznzlzl8z5PlPl{lzzp^f 7@ 7@  pp6@p(pqp0 mcp4@4@Pl5@n^Nx4x}4x4x]z$$$$ MMM`MMMMM M(M0M|MtMHMPM@M    $    9yVpz(CpzozEpozozozlzzoz zmm5ylmxOX|PXxfLX`^tm{$^ll>(.6@$$6@$$({P(l{ EO1oz({P(pll{pml{l{M$)yl$o mm^z pnSypl{pLLll{EpzozxmzozpOH4H4H4H4HzozllYyM$)yl$o mm^z pnSyll]yKy6$$Ht6$5&&$pzozzoz4H4H4H4H4H($w f,L`XLh`z1pOD4l>$Dp`5ll>FpG^L(Wplmylm$zp yp5 2 mpLlSypy ylylmylm$zEFylylylmyllzpLlSy iNp M`5(plyllHylylyll@ylylyllPylPyOplm$z(}y yl yy ylyM( y(GK(pllz(z plly pzlzp( yp6plmy("lSy^ z EzApL zl yll;z$l KIpl&SyIpy^$$  ^ z wzspL zl yll;z$l K{pl&Sy{py^$   ^Kl y$$$m^Kl y$$ m^l y$$  dm^l y$   dm^MMp' Ny'    `5&df$>yp p y l ygl ygl  -#  !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJK`Unbekannter Font:   -> negativmacroend"" weiter mit "d3Fehler: Einstellbare Trennbreite zwischen 4 und 20%-/":*/*:.ub in Zeile 10i # Dateiende whrend skip-Anweisung skipend:1.0#foot#foot#end:1.0 und  cm)>< Fehlende Blanks: #*kcundoderbzwsowieAbbruch mit ESCSpeicherengpa:  --> Ntype:1.1linefeed:3.1limit:4.1free:5.1page:6.01on:8.1off:9.1pagenr:10.2 pagelength:11.1start:12.2foot:13.0end:14.0head:15.0headeven:16.0 headodd:17.0bottom:18.0bottomeven:19.0bottomodd:20.0block:21.0material:22.1columns:23.2columnsend:24.0ib:25.012ie:28.012topage:31.1 goalpage:32.1count:33.01setcount:35.1value:36.01table:38.0tableend:39.0 rpos:40.1lpos:41.1cpos:42.1dpos:43.2bpos:44.2clearpos:45.01right:47.0center:48.0skip:49.0skipend:50.0u:51.0d:52.0e:53.0headon:54.0headoff:55.0 bottomon:56.0bottomoff:57.0countperpage:58.0fillchar:59.1mark:60.2 markend:61.0pageblock:62.0b:63.0counter:64.12setcounter:66.2putcounter:67.01 storecounter:69.15ub:70.0ue:71.0fb:72.0fe:73.0region:74.0regionend:75.0xxxLINEFORMAUTOFORM(1.8.2)(frZeilen):#type#limit)######Bitte Schrifttyp :MFEHLER: unbekannter SchrifttypSchrifttyp bitte nochmal: ("Zeilenbreite (in cm):FEHLER: bitte REAL-Wert angeben#Zeilenbreite (in cm) bitte nochmal: ( '.p'-Datei.p4'.p'-Datei kann nicht mit lineform bearbeitet werdenDatei nicht vorhandenkein markierter BereichF+щVىNXRNx`PFFy)Vx;}؉FfVf;~FfVfVx;}FfVf;~FfډVfۂ̂̂ۂ F܅tf^fF܅t^sGfF܅t^sOfF܅t+f^fF܅t+^뷋F܅t+^22111111LL11ÊsV"Ŋ&"% &%sV"Ŋ&"% &%ÄÃɃσ&"& &"&&2& & &2&&"& &"ð;|;/;|;EÇ>;| ;' %;;| Uŋ]U͋]PR+؋+t+uEZX^UV"~vFFyF^ ӑ++)F)^ F^ ^FF ؉FF؉F+V V+NNF؋ʋF+ʉ^NF؋ʋF+ʉ^NFFF^F^;^u;Fuu6u ^8SPR^(SPR^_^Y;u;rƋ׋_^Y;u;rƋ׋ى^FV.Ʌ.DžF^ډF^F^U~t~vv~]Nt>"Px;/=}/;.1;=} ;&!  FXFuPyFuPy y؃.rƆqMQe=A8<d([#;O+&&FVËF@SQ^N%Y[ËFF@SQ^N Y[ËFQ3Ry؅yۃYy؃Y>P"R"PSQRW]0X"M2AZ" >P">T">V"&&M_ZY[XËu4m6ӓ;s++ȇʓ\"R >P"Z!ˇuË6\"F;>T"r;>V"wË߇>T" X"&Z"&E;wË߇>V" X"&Z"&E;rZ:=:e`=`Zknken ;>V"vJ>V"X"&Z"&E7Ãصà ;>T"s>T"X"&Z"&E޵Ƌ߯~KtM|NtH|ItC|Dt>|?t9|:t4|5t/|0t*|+t%|&t |!t|t|t|t | t|&uÃ&t ;u %& E& ËvT"6P"+ƻ 6T"V&u&u5K&t&T+PVWUvQv6`"+]_^X@^ ;6V"vPQRSUVWNj>`"EE EEEE6E2}Ȏؾī_^][ZYX""""""""UUUUUUUUUUUUUUUU""DD""DD""DD""DDDD""DD""DD""DD""UUUUUUUUUUUUUUUU~|~wcAp8|>PQRSUVWW"E"E"E"E"#X> #EE EEE6E2W>8"_%=rtEEEPPPP6`"> #"EE "EE "EE"EE_^][ZYXW狽"e_W狽"Mp_W狽"E ][_W狽"+EE +E E>_Wv狽"E E]] #_W[狽"E] _W狽"E_"#tW"Euq"Eud"Eu"Eu_"#t"#W"Eu"Eu"Eu"Eu"#_PQRSUVWPPPE ]6 #>8"_^][ZYX__^][ZYXPQRSUVWWm Ey +~ܽUmy +~ŽUU> #68"G_WEPPPE ]6 #>8"#_PPPE ]6 #>8"_^][ZYXPQRSUVWEPPPE ]6 #>8"_^][ZYX uPQRSUVWuL(;LL(Du;T*D*tV60#D*HPPP6 #> #\60#PPPL*T(> #9_^][ZYXË60#L(T*Ë60#( t,&Ë60#t,&PQRSUVW60#< r>|,ط&RL*PP6D"F+@><"[_^][ZYX<s.&5S<";E6wD*;E6wD*WTQE4]0+A+L*U2+BSRl*USU><"Z[X60#+D*M6+@6`"UU6D"L*+><"+@?6`"UU6D"V^@??><"6`"UU6D"pd(d*H2#u 2#6D"2#t 2#6D"p tñËPf=rA=w<;]0} +]0)^]0;U2|U2+~;E4} +E4)FE4;M6|M6+P;u-;Fr(u;^r!FFINAFF FFܕNF?F݊S^+[*yHFn˸ĵJʁ߱u#Ë؉F^V^ˁ.9^t0 ـ<u~#ttu'F<u Fu$<u .9Furdt3噉F䙉F䙉F䙉F䙉F䙉F䙉F䙉FF݁.qF݁0.qFUU%؉F%؊ĉFDFԋEF֌Ў~FVԅt v ^؋FVօt ~^ĊNVPFtJWV~vVNt6Fԅt^_Fu^_^؋_Fu^뺃WV~vVV#&# &Nt6Fԅt^_Fu^_^؋_Fu^멃WV~vVNt6Fԅt^+_F+u^_^؋_F+u^뺃ËNFu #N#F W~V_Nt%Fu^ËN̊Fu#N#F ȋ#V#F WV~V^_Nt%Fu^]VV#&# «^;rVV#&# «FVV#&# «+^;rVV#&# «zz/Ֆn—͗ڗTŠV;uëTŠ3VV#&# ;uëTŠ#F#V V;uëTŠ#FV#&# ;uëTŠ3VP% Ћ%UU XV#&# ;uëdƋ#F#V V;uëdƋ#FV#&# ;uË+xtëV;uëV;uëFV#&# ;uëFV#&# ‡;uË+Ë;t;t;t ;t;uȇY]aijptx|&#& &#&&3& & &3&&#& &#øËPN =r;=w6;]0}+]0Ӌ]0;U2|U2+~;E4}+E4ȋE4;M6|M6+PN Fu Fnu F8 nFܕNȁNF@Fdsbitblt:K"u>J"t ~|,~ |&F F F F F F xDu LD dF^@#|sÉF^~E+F+F}FE+F+F}FF^ x#HsËN;~ˋ^+\ ;~VQUvvv^ Vv]Y^=L L ;N}yÃsD V^]+~:|0tÀsUSPWN_Gx(t&EE6GxEE2tttX[]Eظ;XD YR+SԊW@#u_]] [X]mini 5 (!)RZtû0$ ЈCBuS0$1$ ێIߟBu0Z0$B< tێItێI[É&e$ڻX&)ۋe$C?CWB$.CGB$_zۻ#t@_y p p y l ygl yglf=y p "p  fzzp 7pmy5p$7pzflyflel:zfl#zde0dJmSyfl yfl9zflyflm$zGEF$ylyglyzfly pzflxly1xedp(pxleldl/myflxly5p5p0pp5pplyp5p0pp5pply4pglplyflyhpflyflel$z>yppzzp mSyf(0mSypzzflyylyglypGmSyfl#zeglyglply5p5ppylyglyflm$zzgly[zglplyflxly5p0p"p5pply4p5xe02p5p24p(p5xe0<4x2p1xeh4hpxlel{4hhLxflxlyflyflypflyfl/mypzf E F $f y( l(y(lyzly l(yqp f y y y(f0y0y( l(y( lyly l(yp$f y (y(f0y0y( l(y( lyply l(yp(f,y, ,y,y0y0y (fLE,F,,y,,y,y  Spalte lschencol put nur im Editor+Markierungsende mu rechts vom -anfang sein,Bitte vorher mindestens einmal col put gebencol get nur im Editor q19    K  CPU PRIO CHAN STATUSCollector-Task fehlt  (.  - *-busy-i/owait busy-blocked i/o -blocked wait-blocked--dead--Task nicht vorhanden TASK: Speicher:K CPU-Zeit: Zustand :, (prio), Kanal- K vonK sind bele NpGKyz0y0yNpGKyG f p{ f  (f0y0y( l(y(Ep,Opl ypl-{4X1X5$$Xbp4Zp4hYup$D{$m(@y4(4(4(h\$$[m(@y4(h[p] p[m(@y( 4!4(4( ly$9{X( $($:{$({5p(fLj ((m(vy1(XNpOmmy fk p]p]p]p]p]p]p]p pppppppp f '{ f 0{f{ Spznyzsyzmz -{zZmzmz D{zmzmz zzmz zmzh \?yzmz C{LpmzQp C{zzUpmSyfY < zmzkyjyzmz$fnyy$7{(%{$(){$7{n$j{pnc{p$6{n$d{y$y$n$y$y4f}zДp N<a Xm$z Xmy n@y@ n@y @.z yp Xmy<e<c4z<><<<*0 pH: 0DF00@>0 a 00(0b0 000@0 000@0 000@0 000@000,-  h 4HO Qp Vp&L` ]OnSy\$pXrp@ (((( (((($pȨ@4(jyb((cy(Hp\BHp@Hp`BHpdBhJplBhHppBt(xB00|00000000000000000000t0000t0(0 pD(($p$% h  =X u<t=SQRP9sNJ݋CCXPXZYu[Xð*몵PRQP<stLXݺy& ׇڎއ׻y&'& t &*&YZuXXYZXðPH& t}CCCCCCCCluàH& tSCCu CCCCu[û& t[&ׇڎއ*SX&[uSP<uXOu [M L..&V..&...&.t _^]ZY[X.&......6.6PSQRUVW.x ..&.&..&^dPSQRUVW.x ..&.&..&^$i.t.u..˜.&x˜}W.>\ .&_.uPSQRUVW.x ..&.&..&^h.uΜ..&..&.&z...&.t#.u.&.W.>\ _.u\<tB.u\..&..&.&v\...&Ü.t .| ..&..&.| ..&.&.;D0uVW.>_^ù.;D0uVW؎.6_^p hr t [v x \z | u~ ( .(.. Q.DYAnu".p(.&. <u.P.&@ .Tˋʁs<t<u .D˹ˋʁs<t<u@.D˃tt+t tt!<t <t <t˹ ˹˹d<t<t˹˹.D.tPd.(X.t.$texte.quelle 2 (!)-falsches setbit-kein Leitblock-HGVOLL-Archiv schreibt nichtû<)hwtest 15 (!)!ʼIAW)&)&3 ts)̰PtXPл[)< sCˤY)X?* =) `5WP@d%7@Ur8qFP PPCP PPE@sqrt: 1vp0`P@eh(s@eBvREAL-Ueberlauf}8V 1d!'(@%Af%1HE0gDE @RrwPaSv`%(1w RapxQyrzC 9cv{aBc|2Ha#}fsayyqTuuqI)hsx6!fszev AXF|IW~EQ! 9c9twaE`tIpwF68&ty @ A B C D E F G H I J K   q r W JTK[\]{|}~@qYe5 =yx YTG0 G4 UuG4kG0G4-G0G4#G0G4 G0EC.VT100.german DEC.VT220.ascii DEC.VT220.german FT10/20.germanFT10/20.asciiampex210.asciiampex210.germanampex220.germanampex232Wyse.WY50.asciiWyse.WY50.germanWyse.WY60.germanWyse.WY99.germanEWyse.WY99.germanWyse.WY99.german%Wyse.WY99.germanWyse.WY120.german!Wyse.WY120.germanWyse.WY120.german=Wyse.WY120.german1Wyse.WY120.german Wyse.WY120 01.04.90  01.04.90  01.04.90 ! 01.04.90 " 01.04.90 # 01.04.90 $ 01.04.90 % 01.04.90 }P @ A B C D E F G H I J K   q r W JTK[\]{|}~@ =yx YTG0 G4 UuG4kG0G4-G0G4#G0G4 G0.german8jpc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.ascii DEC.VT220.german FT10/20.germanFT10/20.asciiampex210.asciiampex210.germanampex220.germanampex232Wyse.WY50.asciiWyse.WY50.germanWyse.WY60.germanWyse.WY99.germanWyse.WY120.germanEWyse.WY120.germanWyse.WY120.german%Wyse.WY120.germanDEC.VT100.german.gen!DEC.VT100.german.genDEC.VT100.german.gen=DEC.VT100.german.gen1DEC.VT100.german.gen DEC.VT100.german.gen8zpc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.ascii DEC.VT220.german FT10/20.germanFT10/20.asciiampex210.asciiampex210.germanampex220.germanampex232Wyse.WY50.asciiWyse.WY50.germanWyse.WY60.germanWyse.WY99.germanWyse.WY120.geakh&`&`&`lMak%+! AD +23A5388NMI INFOSTACK!~ O/ O/ O/ O/ O/ O/ O/ O/ O/ O/ O/ O/ O/ O/ O/ O/ O/ O/ O/ O/ O/ O/ O/ O/C C H H ""22LLMMMMAA88' ' &&&&&&&&&&''4B4BBB))B)B)o)o)I)I)!!!!'!'!Z Z y y 0"0"^^^^NNUU;;^^^^^^^^^^^^^^^^^^^^^^^^^^Y!Y! -#-#^^^^pp  **qq^^^^^^^^^^^^^^^^^^^^^^^^^^!! ##))*)&*x$))))))&*&***x$x$$$$b22*&~*x&r//S/.//000f100011,1W1*111("!" )i,&B''g!G G]CqC{CCCCCHCeDnDyDEgEb2****++P+n+++,,-Q-{--22223'3^8'Z.- ..-11$$FGe47'o'x''&GG''33'3334)45w7}77//4P*D*75qy98M7!8@8888889:9]9{9999:9:X:'(@((((m::::;F;GQ;; REG *RPVRTRp hgfrei . @bmtPROZ LADER hL^END? ignore (MARK) ? PROZ ARCHNiAiENDEUMEL-000 *** RERUN *** hashxPROZ ELANr'uEtENDGw @ x !X!!!""b""""""b""""" 0`@Pp"% <======= Dumpfloppy eingelegt ? (j) 5 Harter Schreibfehler! Neue Floppy eingelegt ? (j) " NYchste Floppy eingelegt ? (j) dump 0 SP=PROZ MUELL8&MA5579  AJ <ф; ;Q41х33QBAAA=BчA!Cq=? =A===>A7777A8881  AB INT VAR i ; PER ;  ьC !-Qqэ*!1 a-ю1+a2 H ;12q:@;A?4ё.L QLMLAL !"#$%&'()DEC.VT100.german.gen.TEXT VAR name :="DEC.VT100.german"; .IF exists(name) THEN forget(name,quiet) FI;new type (name);enter x size (80);enter y size (24);N(******************** VT 100 Steuercodes *************************) .cursor logic ( 1, 1, ""27""91"",";","H");>enter outcode ( 0, 0, "") ; (* nul *)>enter outcode ( 1, 0, ""27""91"1;1H"); (* home *)>enter outcode ( 2, 0, ""27""91"C"); (* rechts *)>enter outcode ( 3, 0, ""27""91"A"); (* oben *)>enter outcode ( 4, 40, ""27""91"J"); (* clear eop *)>enter outcode ( 5, 0, ""27""91"K"); (* clear eol *)>enter outcode ( 8, 0, ""8""); (* links *) >enter outcode (10, 0, ""10""); (* unten *) >enter outcode (14, 0, ""27""91"0m "); (* end mark *)>enter outcode (15, 0, ""27""91"7m "); (* begin mark *)N(******************* Tastaturbelegung **********************************) >enter incode ( 4, ""4""); (* info auf CTRL d *) >enter incode ( 7, ""2""); (* sv auf CTRL b *)>enter incode ( 1, ""27""91"H"); (* hop auf home *)>enter incode ( 2, ""27""91"C"); (* right *)>enter incode ( 3, ""27""91"A"); (* up *)>enter incode ( 8, ""27""91"D"); (* left *)>enter incode (10, ""27""91"B"); (* down *)Nenter incode (11, ""27""91"@"); (* rubin auf Einfgen *)Nenter incode (12, ""127""); (* rubout auf Lschen *)Nenter incode (16, ""27""91"U"); (* mark auf page down *)>enter incode ( 1, ""27""91"1"126""); (* hop auf suchen *)Nenter incode (11, ""27""91"2"126""); (* rubin auf Einfgen *)Nenter incode (12, ""27""91"3"126""); (* rubout auf Lschen *)Nenter incode (16, ""27""91"4"126""); (* mark auf selektieren *)>enter incode (14, ""27""91"5"126""); (* 14 auf page up *)Nenter incode (15, ""27""91"6"126""); (* 15 auf page down *)>enter incode ( 7, ""27""79""80""); (* sv auf F1 *)>enter incode (21, ""27""79""81""); (* 21 auf F2 *)>enter incode (26, ""27""79""82""); (* 26 auf F3 *)>enter incode (22, ""27""79""83""); (* 22 auf F4 *)>enter incode (28 , ""27""91""77"") ; (* 28 auf F5 *)>enter incode (31, ""27""91"17"126""); (* 31 auf F6 *)>enter incode (29, ""27""91"18"126""); (* 29 auf F7 *)>enter incode (24, ""27""91"19"126""); (* 24 auf F8 *)>enter incode (30, ""27""91"20"126""); (* 30 auf F9 *)>enter incode (25, ""27""91"21"126""); (* 25 auf F10 *)>enter incode (14, ""27""91"23"126""); (* 14 auf F11 *)>enter incode (15, ""27""91"24"126""); (* 15 auf F12 *)>enter incode ( 0, ""27""91"26"126""); (* F14 *)N(*************************** german ****************************) FOR i FROM 127 UPTO 255 REP  enter outcode (i, "*") N(**************** umcodierung umlaute, sz, paragraph *************).enter incode (214,""91""); (* umlaute *)enter incode (215,""92"");enter incode (216,""93"");enter incode (217,""123"");enter incode (218,""124"");enter incode (219,""125"");.enter incode (251,""126""); (* sz *)>enter incode (252,""64""); (* paragraph *).enter outcode (214,91); (* umlaute *)enter outcode (215,92); enter outcode (216,93); enter outcode (217,123); enter outcode (218,124); enter outcode (219,125); .enter outcode (251,126); (* sz *)>enter outcode (252,64); (* paragraph *)N(************ ersatzdarstellungen fr ascii zeichen *******************)>enter outcode YENDmusta 000000VM_SHardSHARD VM86 ˩Q  noch ein Versuch (j) ? E N D E " Weitere Floppy eingelegt (j,n)?  ========> Fehler: #urlader 186+ #1523*  , 1 # EUMEL-- E U M E L - Vortest Terminals: 1 Speichertest: } (1) Systemstart (2) neuen Hintergrund vom Archiv laden (3) Hardwaretest (4) neuen Urlader vom Archiv laden T (1) Speichertest (2) Kanaltest (3) Hintergrundtest (4) Archivtest F (1) Lesetest (2) Lese-/Schreibtest (3) Positioniertest SchreibfehlerVergleichsfehler Softerrorharter Lesefehler$naechstes HG-Archiv eingelegt (j/n)  - Korrekturversuch (j/n) HG ungueltig falsche VersionBlock 0 unlesbarfertig, bitte RESETalten HG ueberschreiben (j/n) RAM-Groesse (gesamt): kB Hintergrund-Speicher: kB Kanal: " Terminal # Eingabezeichen: Pufferbereich: kB  noch ein Versuch (j,n)? HG:Archiv:Durchlauf: # FEHLER bei xxxxxx Soll xx Ist xx zu gro#251#! falsche Reihenfolge! itioniertest SchreibfehlerVergleichsfehler Softerrorharter Lesefehler$naechstes HG-Archiv eingelegt (j/n)  - Korrekturversuch (j/n) HG ungueltig falsche VersionBlock 0 unlesbarfertig, bitte RESETalten HG ueberschreiben (j/n) RAM-Groesse (gesamt): kB Hintergrund-Speicher: kB Kanal: " Terminal # Eingabezeichen: Pufferbereich: kB  noch ein Versuch (j,n)? HG:Archiv:Durchlauf: # FEHLER bei xxxxxx Soll xx Ist xx zu gro#251#! falsche Reihenfolge! itioniertest SchreibfehlerVergleichsfehler Softerrorharter Lesefehler$naechstes HG-Archiv eingelegt (j/n)  - Korrekturversuch (j/n) HG ungueltig falsche VersionBlock 0 unlesbarfertig, bitte RESETalten HG ueberschreiben (j/n) RAM-Groesse (gesamt): kB Hintergrund-Speicher: kB Kanal: " Terminal # Eingabezeichen: Pufferbereich: kB  noch ein Versuch (j,n)? HG:Archiv:Durchlauf: # FEHLER bei xxxxxx Soll xx Ist xx zu gro#251#! falsche Reihenfolge! itioniertest SchreibfehlerVergleichsfehler Softerrorharter Lesefehler$naechstes HG-Archiv eingelegt (j/n)  - Korrekturversuch (j/n) HG ungueltig falsche VersionBlock 0 unlesbarfertig, bitte RESETalten HG ueberschreiben (j/n) RAM-Groesse (gesamt): kB Hintergrund-Speicher: kB Kanal: " Terminal # Eingabezeichen: Pufferbereich: kB  noch ein Versuch (j,n)? HG:Archiv:Durchlauf: # FEHLER bei xxxxxx Soll xx Ist xx zu gro#251#! falsche Reihenfolge! itioniertest SchreibfehlerVergleichsfehler Softerrorharter Lesefehler$naechstes HG-Archiv eingelegt (j/n)  - Korrekturversuch (j/n) HG ungueltig falsche VersionBlock 0 unlesbarfertig, bitte RESETalten HG ueberschreiben (j/n) RAM-Groesse (gesamt): kB Hintergrund-Speicher: kB Kanal: " Terminal # Eingabezeichen: Pufferbereich: kB  noch ein Versuch (j,n)? HG:Archiv:Durchlauf: # FEHLER bei xxxxxx Soll xx Ist xx zu gro#251#! falsche Reihenfolge! itioniertest SchreibfehlerVergleichsfehler Softerrorharter Lesefehler$naechstes HG-Archiv eingelegt (j/n)  - Korrekturversuch (j/n) HG ungueltig falsche VersionBlock 0 unlesbarfertig, bitte RESETalten HG ueberschreiben (j/n) RAM-Groesse (gesamt): kB Hintergrund-Speicher: kB Kanal: " Terminal # Eingabezeichen: Pufferbereich: kB  noch ein Versuch (j,n)? HG:Archiv:Durchlauf: # FEHLER bei xxxxxx Soll xx Ist xx zu gro#251#! falsche Reihenfolge! itioniertest SchreibfehlerVergleichsfehler Softerrorharter Lesefehler$naechstes HG-Archiv eingelegt (j/n)  - Korrekturversuch (j/n) HG ungueltig falsche VersionBlock 0 unlesbarfertig, bitte RESETalten HG ueberschreiben (j/n) RAM-Groesse (gesamt): kB Hintergrund-Speicher: kB Kanal: " Terminal # Eingabezeichen: Pufferbereich: kB  noch ein Versuch (j,n)? HG:Archiv:Durchlauf: # FEHLER bei xxxxxx Soll xx Ist xx zu gro#251#! falsche Reihenfolge! itioniertest SchreibfehlerVergleichsfehler Softerrorharter Lesefehler$naechstes HG-Archiv eingelegt (j/n)  - Korrekturversuch (j/n) HG ungueltig falsche VersionBlock 0 unlesbarfertig, bitte RESETalten HG ueberschreiben (j/n) RAM-Groesse (gesamt): kB Hintergrund-Speicher: kB Kanal: " Terminal # Eingabezeichen: Pufferbereich: kB  noch ein Versuch (j,n)? HG:Archiv:Durchlauf: # FEHLER bei xxxxxx Soll xx Ist xx zu gro#251#! falsche Reihenfolge! itioniertest SchreibfehlerVergleichsfehler Softerrorharter Lesefehler$naechstes HG-Archiv eingelegt (j/n)  - Korrekturversuch (j/n) HG ungueltig falsche VersionBlock 0 unlesbarfertig, bitte RESETalten HG ueberschreiben (j/n) RAM-Groesse (gesamt): kB Hintergrund-Speicher: kB Kanal: " Terminal # Eingabezeichen: Pufferbereich: kB  noch ein Versuch (j,n)? HG:Archiv:Durchlauf: # FEHLER bei xxxxxx Soll xx Ist xx zu gro#251#! falsche Reihenfolge! itioniertest SchreibfehlerVergleichsfehler Softerrorharter Lesefehler$naechstes HG-Archiv eingelegt (j/n)  - Korrekturversuch (j/n) HG ungueltig falsche VersionBlock 0 unlesbarfertig, bitte RESETalten HG ueberschreiben (j/n) RAM-Groesse (gesamt): kB Hintergrund-Speicher: kB Kanal: " Terminal # Eingabezeichen: Pufferbereich: kB  noch ein Versuch (j,n)? HG:Archiv:Durchlauf: # FEHLER bei xxxxxx Soll xx Ist xx zu gro#251#! falsche Reihenfolge! itioniertest SchreibfehlerVergleichsfehler Softerrorharter Lesefehler$naechstes HG-Archiv eingelegt (j/n)  - Korrekturversuch (j/n) HG ungueltig falsche VersionBlock 0 unlesbarfertig, bitte RESETalten HG ueberschreiben (j/n) RAM-Groesse (gesamt): kB Hintergrund-Speicher: kB Kanal: " Terminal # Eingabezeichen: Pufferbereich: kB  noch ein Versuch (j,n)? HG:Archiv:Durchlauf: # FEHLER bei xxxxxx Soll xx Ist xx zu gro#251#! falsche Reihenfolge! itioniertest SchreibfehlerVergleichsfehler Softerrorharter Lesefehler$naechstes HG-Archiv eingelegt (j/n)  - Korrekturversuch (j/n) HG ungueltig falsche VersionBlock 0 unlesbarfertig, bitte RESETalten HG ueberschreiben (j/n) RAM-Groesse (gesamt): kB Hintergrund-Speicher: kB Kanal: " Terminal # Eingabezeichen: Pufferbereich: kB  noch ein Versuch (j,n)? HG:Archiv:Durchlauf: # FEHLER bei xxxxxx Soll xx Ist xx zu gro#251#! falsche Reihenfolge! itioniertest SchreibfehlerVergleichsfehler Softerrorharter Lesefehler$naechstes HG-Archiv eingelegt (j/n)  - Korrekturversuch (j/n) HG ungueltig falsche VersionBlock 0 unlesbarfertig, bitte RESETalten HG ueberschreiben (j/n) RAM-Groesse (gesamt): kB Hintergrund-Speicher: kB Kanal: " Terminal # Ein( 91,"("); (* [ eckige klammer auf *)>enter outcode ( 92,"/"); (* \ backslash *)>enter outcode ( 93,")"); (* ] eckige klammer zu *)Nenter outcode (123,"<"); (* geschweifte klammer auf *)>enter outcode (124,"!"); (* | senkrechter strich *)Nenter outcode (125,">"); (* geschweifte klammer zu *)>enter outcode ( 64,"A"); (* @ klammeraffe *).enter outcode (126,"^"); (* ~ tilde *)N(********** sonstige eumel zeichen **************************************) Nenter outcode (220, "k"); (* Trenn-k *)Nenter outcode (221, "-"); (* Trenn-Strich *) Nenter outcode (222, "#"); (* gesch. Nummerkreuz *)Nenter outcode (223, "_"); (* gesch. Blank *)rmanDEC.VT100.german.genEDEC.VT100.german.genDEC.VT100.german.gen%DEC.VT100.german.gen8pc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.ascii DEC.VT220.german FT10/20.germanFT10/20.asciiampex210.asciiampex210.germanampex220.germanampex232Wyse.WY50.asciiWyse.WY50.germanWyse.WY60.germanWyse.WY99.germanWyse.WY120.germanDEC.VT100.german.genpca'l'l'lM pc.2.25.gena ! 1Q q с1 a  ./LET name = "pc.2.25"; forget (name, quiet); new type (name); .cursor logic (0, ""6"", "", ""); enter incode ( 7, ""7""); enter incode ( 4, ""4""); enter incode ( 1, ""1""); enter incode (18, ""18""); enter x size (80); enter y size (25); enter outcode (14, ""14" "); enter outcode (15, ""15" "); enter outcode (252, ""21""); enter outcode (0, 0, ""); .enter incode (code ("<"), "#"); .enter incode (code (">"), "^"); .enter incode (code ("^"), ">"); .enter incode (code ("#"), "<"); .2.25.genfonttab.std-10!fonttab.std-10fonttab.std-10=fonttab.std-101fonttab.std-10 fonttab.std-10)fonttab.std-12.ascii8pc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.ascii DEC.VT220.german FT10/20.germanFT10/20.asciiampex210.asciiampex210.germanampex220.germanampex232Wyse.WY54 10%/)(!)p6"  "$5  "$7wgabezeichen: Pufferbereich: kB  noch ein Versuch (j,n)? HG:Archiv:Durchlauf: # FEHLER bei xxxxxx Soll xx Ist xx zu gro#251#! falsche Reihenfolge! itioniertest SchreibfehlerVergleichsfehler Softerrorharter Lesefehler$naechstes HG-Archiv eingelegt (j/n)  - Korrekturversuch (j/n) HG ungueltig falsche VersionBlock 0 unlesbarfertig, bitte RESETalten HG ueberschreiben (j/n) RAM-Groesse (gesamt): kB Hintergrund-Speicher: kB Kanal: " Terminal # Eingabezeichen: Pufferbereich: kB  noch ein Versuch (j,n)? HG:Archiv:Durchlauf: # FEHLER bei xxxxxx Soll xx Ist xx zu gro#251#! falsche Reihenfolge! itioniertest SchreibfehlerVergleichsfehler Softerrorharter Lesefehler$naechstes HG-Archiv eingelegt (j/n)  - Korrekturversuch (j/n) HG ungueltig falsche VersionBlock 0 unlesbarfertig, bitte RESETalten HG ueberschreiben (j/n) RAM-Groesse (gesamt): kB Hintergrund-Speicher: kB Kanal: " Terminal # Eingabezeichen: Pufferbereich: kB  noch ein Versuch (j,n)? HG:Archiv:Durchlauf: # FEHLER bei xxxxxx Soll xx Ist xx zu gro#251#! falsche Reihenfolge! itioniertest SchreibfehlerVergleichsfehler Softerrorharter Lesefehler$naechstes HG-Archiv eingelegt (j/n)  - Korrekturversuch (j/n) HG ungueltig falsche VersionBlock 0 unlesbarfertig, bitte RESETalten HG ueberschreiben (j/n) RAM-Groesse (gesamt): kB Hintergrund-Speicher: kB Kanal: " Terminal # Ein  rߓ ߸Sߜq߃Tߌ߷ߵ߸߹ߺߛߝߞbcefnߌ_v~߉߈ߒߘߙߚߛߜߝߞߟߠߡߦߥ߶ FGRSVdehglr@;SUPERVISOR>SUPERVISORURSYSURshutup manPUBLICARCHIVE---wP!"#@AB `WCg/WCg\WhX \WzlB+|D+C+Ҝ=l>{Š<$kB+{,=,n=6s<<Ly <DO^n<kB+{+D+L$\=L%W\V]mhjV8@x.=jk=J v= Q(==(==N (==YSURWCS  TRVYSURr! S+q߃_߷ߵ߸߹ߺbcefnߔ_v~_ߒߘߙߚߛߜߝߞߟߠߡߦߥ߶ 'wv|߃߂߆߇ߘߕߙߖ_8.(/)(!)[\]{|}k-# ~@0.asciiWyse.WY50.germanWyse.WY60.germanWyse.WY99.germanWyse.WY120.germanDEC.VT100.german.genpc.2.25.genfonttab.std-10Efonttab.std-10fonttab.std-10%fonttab.std-10fonttab.std-12!fonttab.std-12fonttab.std-12=fonttab.std-121fonttab.std-12 fonttab.std-128pc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tand4 12%/)(!)rD 6"  "$>  "$@wA.(/)(!)[\]{|}k-# ~@berg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.ascii DEC.VT220.german FT10/20.germanFT10/20.asciiampex210.asciiampex210.germanampex220.germanampex232Wyse.WY50.asciiWyse.WY50.germanWyse.WY60.germanWyse.WY99.germanWyse.WY120.germanDEC.VT100.german.genpc.2.25.genfonttab.std-10fonttab.std-12Efonttab.std-12fonttab.std-12%fonttab.std-12fonttab.std-10.ascii!fonttab.std-10.ascii$ 10AOUaoup6" wP"()$%i{@AB k X   6ޜ=lB? @mm<$R0=>=<<@i=>N,Tn=^=`T-\=dhp(==x|==(DTk.0@*7@WCS -UR h 8XBDT wv|߃߂߆߇ߘߕߙߛ_PMSUPERVISORNSUPERVISORURSYSURshutup manPUBLICARCHIVEOPERATORconf lllnllllx\K*p 01y &ppx 01y +p& 1px3&&&)"& Hp,& ji_p _, Z01<01101x_8 jfx_k&l&mHG(IJ*xpx}pT Sxb _&V}},*pV V  V  V }V  ,*pV  V  5p 5,*pV5 5/-)!*%xsquv LxK L} 5  },*}} x*} }.p.p ,**p)*|pnlxn&k*'plx[plVn2/nnyn'pk*Pk lVBp *P /nnynBpTn[/mnnynPp(*`pl xqpG*epl xqpH*jpm xqp"*opm xqpl xm xk&l&m nny xp*p=.p Z$ `'pZ `'(  ij.p 8S OON U0 1K&N MQ&#$%'&.J*p 0&&J8U8YU8 QM8K  j8xU8 U8Y QM8K  j8xp U8Yp$& QM8K8 jx 8U8>pU8( QM8K  j8x pU8;p U8> QM8K  j8x3p U8 MKN@~Q00*Ip,x0  No@~00Ep8p#&  QM8K  j8kxdVqp8_8.{p8 j{xt MKN@~Q00*p,xp0  N@~00p0.oqI*p/l-xII&1 0x0.0.p0p0.0.p0p0.0.p0p0.p0p0.p0p0.p0p0l-xI8. p  j8x8.pH&.xH8 jهx 0&&8.oq8 jox8D;/x8.p8 j x8Bp QMK;/x8. p QM K8 j'x 8. 0p QM8K3p8.:p8 j:x38?p/xp9l-xpJ&p8.pG&*}p  j8QxJ8.qp  j8[xT8.q8wpn0x8.npUl 8qp8&qpOl-xwp QM8KHp QMKp l-x1x8.p8 jxG;%& MKN@~Q00*p,xp0  N@~00pKVoPl-x8.8.8.8.8.8.8.p8 0&&8 jox8.pH&.xp8.pH&2x8.*l-x1xH8 jxw8 F QM8K  j8xF.8.8. 08.p8 jx &&'&F.p8.=8.p'=pF.(p8.=8.=F..p8.=F.4p8.=F.Jp8.=8.Jp QM8K8 jTxBTp8.Tp8 jTxM MKN@~Q00*_p,x0  No@~00[pKh& i3x 0.px$*p0 <xpl-x<ml4xp<&x.pVG~. pcncnNl=xC~cXX.ff*F~fAeeX f.*p.nen?xFceeV!peV!)"m@x).plenAxFceeT!peV!)"m@x)..)nn?xnnnnBxFc.)Dc55&).#pCc.$pncnCx).ncnCxcnDx.p%mExp&mExnExB~cnEx_ cnnFx* p _lEx)p@)p.')p@~c@~nlncnGxF~FcD~Dcc)f*4F~fAe *( x+& >E~>*Hx0.I0._pHx0 =HxF~=>@~>F~>  )z Wxa xap*m@x0.ppE~=  +=E D~  gpD~=IxA~>  +nJxKx&{nLx'ooo{nooooMx0.0.0.0.SlNxHxpoooooooOx.noPxnloQxnRxSx=p+*p*p R)zpR.dG~R    /p /p@~R;F~RyD~RIxnJx&;nlyn oonRnOxlRxRpTxx& >Hx =IxxlxnAx +G IwJAOUaouk-# Bfonttab.std-10.ascii=fonttab.std-10.ascii1fonttab.std-10.ascii fonttab.std-10.ascii8pc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.ascii DEC.VT220.german FT10/20.germanFT10/20.asciiampex210.asciiampex210.germanampex220.germanampex232Wyse.WY50.asciiWyse.WY50.germanWyse.WY60.germanWyse.WY99.germanWyse.WY120.germanDEC.VT100.german.genpc.2.25.genfonttab.std-10fonttab.std-12fonttab.std-10.asciiEfonttab.std-10.asciifonttab.std-10.ascii%fonttab.std-10.asciifonttab.std-12.ascii!fonttab.std-12.asciifonttab.std-12.ascii=fonttab.std-12.ascii1fonttab.std-12.ascii fonttab.std-12.ascii8pc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.asci$ 12AOUaourD 6" Q SwTAOUaouk-# B} 6nJxoLxovloTx+oUx'0.&pHx0.0.pHxF~0B~Hx p0.60.2pHx0.,pHx pVx ,m@xWx  RR.dɀG~R/zF~RD~RB~R/p@~R;;.p+*&nXx& -(+Uqpxp*x.U_p*k;.7+*&nXx&&&&/ & *.-.p&p.-% '. .p#p*-*pTpb':a'p`* pV`p& *  .. p *p.  *   -( 0U"pV1"p.  p&&&&/ "pb*kpp;.Up+*pnXx@~Tp@~Gp;.p+*p.dpppR 0QlNxpE~R+RngloYxp//p//pR A~UpG~//p//pRnoZxpRnl[xpF~R B p//pB~R""+E~R!!+/Rngl!oYxR;nRxSx*p-*A cG~c$$#$/#/#/pcnDxcn\xF~c&@~&''o%m]x'o^x_x#/@~c%%/p%cnDx%o%m]x%o^x_x#/%#/2%#/ %B~c)3U)%pSV)%A~c(U(!A)(%pA~((pcdVc@_4Q&@~QPSVP=p@~PPSVP4@QPQQV5.x*Sx0.Ipx0.S3*Pp6n`x)*rr3*Wp6 1xK[  ax oil xobp  ny/ nnyny\lRx\V 6m@x Jx \  *l*oAxw*\ bx\w7 cxw8 \5 5 \y dx8  \ 9p9m ex8 :  fx \;m wngx\ Ex \ - 6}@_41x\ 7nhx\:  w  kx\8 U E?m lx&\*Pp=m jx kx\mx nx\ nx\ 4Kx \ jK&N MQ&  j8}p QM8Krp MKN@~Q00*p,xp0  N$!%@~00p0 A~0+_ A0_+oEx \ 7x3x 7V" " \ 77nn?xnn Bx\nn lBx\lnAxnn lBx\",T, p ,Vp+,,+p,' nn Bx,+ \ -- \8 w \w  kx \w  kxkx \w  kxkxkx\ jx \ jxkx@~QL@OL@QOO 0A0M OON@UNfp m@x*np0n [xl [x*p2x8.8. p  j8x|8.8.p.xsp8.A8.sp  j8x8.8.Ap8.Al-x1x8p QM8K8 jxp8.p8 jx 8p-8(  8 8 jxp* x x x3*plx+*p"....oaxlxnaxlxp3naxlx x/+ x/oaxlx x x lx x x3*p-*pL5  }O T_ bK6nx8 j)x"U87pU8E  j8"x/"pU8Ep U8E  j8"x="pVOnnnoxSpnnnox7(&!*qp#*k0.k0. k0. npnpxx!&^p k lm Y Z[\A~YWUWV&qxW :W VA~VWUWZ.Z.Z.pC~VXX.=pV :G~:]]^p*MYnlnYxMG~:]]^].]*].A~:::VMp^.Bp[.BN[.p] Zp[.$p].pYn=l[xrxF~:0F:D:0]*prxC:=].Z.pl-xZ.[.[.'[.$ pYn=l[xZ^*prxqxZ.pqxZ.pX.=&Kp^.#^.&p^.[KZ.-pYnpYnl[xKp^.D^.HpYnl[xKpYnl[xqxqxCmEx Ex 1171oEx sx0.gpxl-xm 4x0.ppx&*p0.|ptxt0.^0n Rp  >@Zp" @*@??(?>> ?VInHm@xG~ p x >x?xD ( ?xp2p E~ >x ?xF 88p8 p A ApA8 pA D~p ?xp$p;m x@~ g xgn Gxp;p ;l=x p p  >xE  p :l=x $pg gF  CA~CBUBAC_BoExB Cp@_ __VJKm@x _  x @ DD GDVh;Lm@xp~00VMNNU0N0"4*Lp=4Kx5p\O P   &8 p 3U ~ QFF8  w EE7RmEolxSm@x**p4Gp.p&wG +HH+H+ V $ ( *V00. 0.0.0.p !%lx r0.D 2; T .,!(20x0.p.!x,4 .,4(20xp0.).!x,.(Hx468:.!4xl:nvn>xl.l:xuvl:>l!gx,Uxuv!!Ux!0pVm.:fxpVm:.fxmxmx!nxp0p!!Ux!,Ux0.>:<>4x<8:x0*p<,bxp*",nx>'>Ux>07p>!bxp*2mx!nx<7!@x!:xll@]lx820.pBBUxK'HxMoNoOoxp@~OLL/pM/pEOPoOoxPWQalNxpPQQW2p22Qp4PRpRBp4PTp~TSS+blNxp4PUpUBHxK0.pHxp0.clNxpK+p_lNx0.pHx 8(.x8!x0.0.p0.0 0Hx0.pHx6Ux 8(.x8!x p0  ; dlNxlllelx]p2*p`lNx:Ux8 XmxpX+np .zp2t2wp .zp@~>.2pF~>,(U,VlNx2pB~>YB~=ZY/ZWlNx2HxpUlNx .20.pHx0468:!0p2.0xp00.x42 s~,u~,t~,@4xr,@04@68:!dIxd+plRxpF~dee+p&d 0l'gohoioiojokolofoxD~ddp +q Mxn Qx\ xA i DEC.VT220.german FT10/20.germanFT10/20.asciiampex210.asciiampex210.germanampex220.germanampex232Wyse.WY50.asciiWyse.WY50.germanWyse.WY60.germanWyse.WY99.germanWyse.WY120.germanDEC.VT100.german.genpc.2.25.genfonttab.std-10fonttab.std-12fonttab.std-10.asciifonttab.std-12.asciiEfonttab.std-12.asciifonttab.std-12.ascii%fonttab.std-12.ascii@@Xoe)(gL\8NL7&p?Rfw_wbwTUߞVߠ߬߻߿ZoOWCg\zxT< -W7gw[w]wTUwv|߃߂߆߇\_Rߚ-  ^wowP`j!"#@ABa_v|߃߂߆߇ߘߕߙ RX   6-Xk!llmm|^{Šk<$R6<<^ z%W<<Ly <D{^n\^n=L%W\BXCg xkUV8@x>B=xf]Cm<xZh<\lDBTB=DBT<WCS  ((WCBSR 'cwPd!"#@ABp8 0VMV0SlNxHx8 w?   ,*:lxlxm xl x x x x x xIpppUXp@~G~\pxUip@~G~mpxppzPxpxxZxppPxps*ppnlxxxDpU  U  ,*p  y.*nx x xx E~ @~ G~ 77pYm]xpp^m]xp'mExl]x \xlExD~ p UpA~mmW_m#_ ExG~2p2 ExE~plEx@~l]xD~ p2p ExE~xEx@~l]x EG~ oo/2@o/Epno CxnoExD~cppoExL& xo& ]p-m xo qqox p jp  OrA r x@~ @ @AV`am@x jxkxynkxy   w  kxkx x8 : Ux pp.pxsps'.p kxp =m jx*ppbmnlxpwcwpnm@x@:\Z[G:Z(&!*_p0. Y0. YT0\npxx!&Npx$*px0.jp&0 {1 0A~0:U:xllluxml=xE/' @~G~77 /p/p ox po 3l=xo 1l=xo 2l=x  G x?x 6pEx ;U <U S _D~77*P8mExlExExoEx @~ G~ 77p_ $ x(x@~G~/e8mExExEx x Ex"Fx"p$_pD$" 2pE~ @~ xD~p$p x$ , . !%x0VMV00.0. 0.U0pG~0//#p@~088)Ӂ 00 :B~0>Hxp0.pqlNxp0.pTlNxHxphlx 88 !x;p,p*mxnx;Ux;p82p & !x;p,p*,nx;Ux;p ;p !x<x246p0.vpHxp Up0.lxp0.lx2p pBDxp26BDwnx:& 2460.x 26x 2 2PxqT88p>>q8Bp p>>pp p>>pp8 pp8p T88 q8qT8+V)Uyp6+V6p)U66yp plynxplynx8;p>,p 'pom6dx8ppm6dx8p 4pqm6dx8prm6dxy 8B{p>gp bpu*Np.Npom66dxxpv*Xp.Xpomdxxpsm6ynxy  xp!m6dxxp tptm6ynxy  xpum6dxy 8e p>pVm6fxmx`>pVm6fx`>pv*p*px`vm6fx`>pv*p*pxpvm6fxmx`xVm6fx>`mx` p>pwm6fxmx`>pwm6fx`>p9m6ex8 : `>p9m6ex8 : mx`xwm6fx>`mx` `>v**!Ux`pv*p.p!U6vm6fx`pxm6fx`p>:pv*%p*%p!U%x8pv*4p.4p!U46vm6fx8pxm6fxmx`p>Gpym6ex8 : mx`p>Spym6ex8 : `pxym6ex8 : >`pmx p8p p>pv*zp.zpWmjx8 pzm6x8 pv*p.pljx8 p{m6x8 p0.lxp2p26BDwnxp2pBbxDbx p !x2p26BD!x 246:l!0.xy  !%1xp*!nxll1Xlxp )-x 1  bx p* xp& ;p  $ Px$,*p ^y"p4nx0nx^lx xlx xx  T,p  2p 4  b b%E ]pnxx b bp Vp !-x !x!)x,*lp  y4nx x lx xlx xx 0. 0. pHxpxpxx 0. 0. pHxbx!  p pp p! 7n7nx! U00 rC~/pr*G~  #p0 r&-=/=pG~..p A~UŇr*p0    BlNx  xx  "$lxU .p x : :\l Qx  cp Ipx XpD~ cpB~.cpT rp++r+ V|  $ Hx "lx$ xZlQxD~  -(   +p!*,2.0(Mx *x ,x***, 2.0(xp .bx0bxp&2%x\ cxw:8   !%xp p !xnxx !" !/( x( xV-  4 9pxoWx>UxU Fp {nx L pp YpB~!.Wpxx bp xp*fnxkUxxUxx !{ !/ |m x8 xn x  & &nLxnLx xx  } @~ + Y  @~ 'p x + Y Yp p ^p  2p} G~  xA~o x/x@~ Px plx plx plx  plx "p m x B(plxU lpG~ 2Lplx m xE~ I@~xxD~Im x:pm x\plxE~ x@~ x ip@~ lxl xx x  Y xplxA~xxx2plx m x _A~ %pC~x m xlx$ (%x p(p Up@~% F~%((p+p)Hx0.pHxrE%r {q *,0 . 0Hx0. <&`h31h11Tn=^ThT9H`h`3h3BUJtWCS ?@LPARCHIVECBSBV8LBDT  TARCHIVEL 01.04.90 BU8 8LWCBS BV+,-12346:;<=?CDEFHMNOPRqrߓ ߸Sk_q߃2ߌߪ߷ߵ߸߹ߺߛߝߞbcefnh_v~3߈ߒߘߙߚߛߜߝߞߟߠߡߦߥ߶ߝ FGRSVdehglrrߓ ߸Sl_q߃i_߷ߵ߸߹ߺߋߌ߉bcefn<v~߉߈ߒߘߙߚߛߜߝߞߟߠߡߦߥ߶ FGRSVdehglr&&sTonfigurator fgdkjnfgbd](=BDT configuratorSYSUR BDBT  j configuratorGkjnfgbdBDTBDT   Tj(confICfgbd04 D(b|D`.0@ak4 hd-<Y[w='d[2s*:[$4Z`q-y-~  H|r&4|(b|.0@ @ @}sN31RCHIVE  u 'hd`(7 ( v01.04.9001.04.90 @ @}sN configurator u 'hd`noB?$B@sT<7ߜIJKLMNOPQp("") / continue ("") / storage info / task info configurator00314'o4xp440nZxp244oox%%pA~44U44;p24ooox;p4G~4/4p@~42mpF~4@~2mp4R44o0nZxNp244ooxbbp@~44;p24oooxip4@~7%U7[p2noxmplNx 264oox*22oPx8l2Qx 2Hxp246x2468x,0.p6:p(op:  p*,lNxplx p .G~ /2_/p@~ UpG~/2p .E~.,0.jp,lNxp,vp * |lNx |p@~,*D~,,*!x0.pHxjp0.elNxp@~ * 2.0!,x*.2x0.pHxp8lxp#lxplNxHx Hx !x0.Hx 0.0. 0. *(!!Ux!U pG~ ,,p@~ p, p@~ (x(xp0.3Hx0 U mlNx U p,2nlNxklNx (pG~/pC~/ p@~ F~%pA~UllNx '(oxHx0.LJ0. LJ0.LJpU :p,pDp Yoo x/pHx>x@:48>@.x@V@Ux@6 xU cpD~ 0@~ up } noxox@~0*060:p<8xTnxC>=F=>> AECD> C im9x0. 0.p0n =xx0.70.70.7.l-x0.=px"&)*Bp x x 0. pxxx0.S0._pxxllxEfpxlxFAB wp  }p@  0.pxIpx ppT pT p pp pB p pp pp pp@ 0.p x0.p xl-x .& '*p~xp$*pA~0:U:lllux:nw  kx p~ p~ p~p~& Hx !$lx0.pHx& 0.p&p8lNx&p8lNx 8 m x !    "x x x xUxnvn"x x  Px,*  !y4nxx lx xlx llxx p  +U $+U-*p)U -)U- m jx ix8 !  Cp FlNx @~  +Y.Wp Jp.2bp x@~ 77*Zp  oxU0x0.{0.{0.|pT0|0.0.p  |x0.px l-xm8x U pG~ 2pE~ @~xpD~p p@~ xp p Lx Lx x LxLxlx8 |m x|mxw!ix! !Ux x8  !m jxoix !m jxoixljxmjxcxw:U!p@~G~%poox , oPxbpoxPp+bUAp@~G~EpooxLoPxbpoxRp+bp o!%xapol!%x xlxx xl xl xx xVp~.pm x.VMNUup.unxl x. pmx. up U pG~ p@~ xp2pE~ @~xD~pA~ D~ Y xpxxp  _D~ p  nx nx!!D~ ( PVD0we*c38E(s196W"%$88xxxx ||8*c39E(s29W" 0x~ 0`*c40E(s114W$1L0`<<||xxxx||<<`0*c41E(s114W$1L`0xx|||||||||||xx0`*c42E(s52W"dcy<ppy<c*c43E(s124W*c44E(s30W0x~ 0`*c45E(s24W @*c46E(s22W0xx*c47E(s166W%2d08ppp888pp888ppp`*c48E(s124W"$d<<|xxxx||||||||||||||xxxx|<<*c49E(s121W"#d `q*c50E(s121W"#d<0`@ 8p` ?*c51E(s124W"$d0`@ xxxpppp*c52E(s121W"#d77gǀǀ 0``*c53E(s127W#%d ??ppppp``p*c54E(s124W"$dx>>|~}|xx|<<*c55E(s124W"$d??p8`8@8ppp888ppp*c56E(s124W"$d<88xx||>?À?8xxxxxxxpx<*c57E(s124W"$d<8xx||>?8x*c58E(s41W8xxxx*c59E(s49W!8xxx~ 0`*c60E(s94W ~~~~*c61E(s64W  *c62E(s94W ~~??~~*c63E(s124W"$d0pxx800``@*c64E(s274W#*+<`p 8xG@8/@x?@p@p@p@@@<@<<xxx`pp pp0 808?  p`8*c65E(s191W"'#88|| 80p`~???*c66E(s156W"#~~~~~*c67E(s160W" $~~?>~~|~~~?? 8?*c68E(s191W"%#??~*c69E(s191W"!#<     ``   ~*c70E(s156W"#|8*c71E(s196W"&$??>~~~~~~???*c72E(s191W"'#??*c73E(s86W"#H*c74E(s124W"$X??????????????????????????p>>><~x?*c75E(s191W"%#8p?*c76E(s156W" #|*c77E(s226W",#?|>~>>>?>?> >>>8>0>p>`>>>>>>>>>>>>>>*c78E(s191W"$#????~>*c79E(s196W"$$||>??~~~~~~??>||*c80E(s156W"#x?*c81E(s216W"$(||>??~~~~~~??>||?*c82E(s191W"$#???*c83E(s124W"$l>x<8|||~~???~~>`>`>p?7 *c84E(s156W" #*c85E(s196W"'$ x %_U % xA~xx(  x @~ 77*87.'*p x x*p Qp F F UQpNplxlxB~  @~ x  x@~""8pA~$B~ o&x o(x#  $p@~$$&(*x* pA~4(4$*B~6,&.(02$x,.64x,.402x&(*x* p" ** "&x "(xl&(x" jp j 2lxlxlxlxlxlxlxlxlx lx lx lx lx lxlxlrߓ ߸Sߜq߃_߷ߵ߸߹ߺߛߝߞbcefn_v~߉߈ߒߘߙߚߛߜߝߞߟߠߡߦߥ߶_ FGRSVdehglr qYe5 pY _ j r z ~   $ 7 G S Z ` g   ! . = D M g r ! F Z r z O \ a q _%o'4O`O_%;3FMUbqf?J`:Wdv& %!5!c!y!!!"";"d"}"""""#.#q######$$)*&*;*F*Z*m*t******++*+8+C++++c,},,,,,------r........////0000G0e0{01_111111292I2c2j2}2222223c3t3333 4)494R4c447-7wPwwST  edit sT  halt   break 3TST!"#@AB, w;WCgBh ^hX zlB+|B<^hl=>{Š<$kB+{,=,n=6s( B<<<DO^n<kB+{+D+L$\=L%W\V]mhjV8@x.=jk=J v= Q(==(==N (==YSURWCS  TRVYSUR ?*c86E(s196W"%$?? 8~0~p?p?Àxpp *c87E(s232W"0$?|<8800p``~>~?~?>??  @*c88E(s191W"%#80p~???80p~?*c89E(s191W"$#? 8p?`?*c90E(s191W""#?8800  ????@@???*c91E(s108W" .@*c92E(s166W%2d`ppp888pp888ppp80*c93E(s108W" .@*c94E(s58W%d8|ǀp800` *c95E(s28Wd*c96E(s29W" 0 0``~<*c97E(s91Wd><|||8?<|x~?p*c98E(s164W#%l~?8p*c99E(s91WX~<xxx~ ~`?@*c100E(s127W#%lxxxxxxxxxx<x|xxxxxxxxxxxxx|x~x~x?x|`*c101E(s91Wd 88p|~0`?*c102E(s124W#$@|*c103E(s124W$`<<<<<>> <??<0 p p?*c104E(s160W#$l|<<<<<<<<<<<<<<<<<~*c105E(s88W# $8*c106E(s112W# 04pp0p>*c107E(s160W#$h 0x|>?*c108E(s88W# $8*c109E(s136W(~<<<<<<<<<<<<<<<<<~*c110E(s112Wl|<<<<<<<<<<<<<<<<<~*c111E(s91Wl<<x||x|x>>>>>>>><|<||<x>xǀ*c112E(s160W$l?q~??<x*c113E(s160W$lx<x|xxxxxxxxxxxxx|x|x~x??xxxxxxxxxxxx*c114E(s88WL?o*c115E(s66WL8p8`?> 8*c116E(s78W@*c117E(s112Wl|<<<<<<<<<<<<<<<<<|>0*c118E(s88W\?>00p``{~~><*c119E(s136W#?>xx|   0||x80*c120E(s85WX|~~ <*c121E(s121W#X?8>800p``~~><<00``8<*c122E(s85WXp``@@>||>0|0|*c123E(s154W".d||*c124E(s66W %2d*c125E(s154W".dxx*c126E(s40W0p~*c127E(s373W%33???????????????????????????????????????????????????*c161E(s246W-'.x88|| 80p`~???*c162E(s246W-'.<~~À`88|| 80p`~???*c163E(s246W-!.0x|>0<     ``   ~*c164E(s246W-!.p80 `<     ``   ~*c165E(s236W+!,8|>|>|>8<     ``   ~*c166E(s108W-.Hp80 `*c167E(s104W+,H8|>|>|>8*c168E(s34W" d8p*c169E(s34W" d`|>`*c170E(s34W" d8p00` *c171E(s26W dp8|||p8*c172E(s24WYSURSYSURTISOR    W ߿   Ljn߅߶do߀ߓHf} 2: 'v'LPT ":}&Q Q O O O pv  3i0i v* v's p |^^^|k|^{Šk|^{Šk|^{Šk|k'x'+z^s^^|^^|^,Z @j|#eS P 3[Pv'|l <0ZȒ kh0010 1\zpp}K>Q>h>n>>>>>>>>>>@?E?j??M@r@@@@@@ABBBBBBBBBCC"C'Ck!)@!<0=@=0?pA0*pABEp= C0EpD08pCDEp-=Ep%@Ep<0E=+?E)C hp ;+ wp ;+ k9LAAAmmcy5 k mcyk;%H4k9ypEF"Y Y  TL %{sT-SpUlzm{"Y  M %{sT-Rp"  Y G mSypG$k %_l m m m m m m m m m m myd *c173E(s251W-'/<?*c174E(s251W-'/ ??s`0?*c175E(s124W"$dx88x<p<<<????|*c176E(s28W(d*c179E(s44W#@?xx` `xx?*c180E(s200W" .~~?>~~|~~~?? 8?``~*c181E(s121W#X~<xxx~ ~`?@``~*c182E(s231W*$+<????~>*c183E(s144W l`|<<<<<<<<<<<<<<<<<~*c184E(s52W"$@xx0000000x0xxxxxxxxx*c185E(s124W"$d```@><|xx|>*c186E(s116W!x`x<ǀ<<<ǀx`*c187E(s124W"$dx88x<p<<<??|*c188E(s191W"## 80`|>*c189E(s142W#*d8?p|~?~?>>><*c190E(s154W".d<><<<<<<<8xxxxxpppp`>*c191E(s115W!d@<8x x 00| ~`~`0?@`?*c192E(s124W"$d0x ><|||8?<|x~?p*c193E(s124W"$d`  88p|~0`?*c194E(s124W"$l<~~À`<<x||x|x>>>>>>>><|<||<x>xǀ*c195E(s160W"$l ??s`0|<<<<<<<<<<<<<<<<<|>0*c196E(s124W"$d>x><|||8?<|x~?p*c197E(s124W"$d>x 88p|~0`?*c198E(s124W"$l<p<<x||x|x>>>>>>>><|<||<x>xǀ*c199E(s160W"$l8p|<<<<<<<<<<<<<<<<<|>0*c200E(s124W"$d8><|||8?<|x~?p*c201E(s124W"$d8 88p|~0`?*c202E(s124W"$lx<<x||x|x>>>>>>>><|<||<x>xǀ*c203E(s160W"$l<|<<<<<<<<<<<<<<<<<|>0*c204E(s118W "d><|||8?<|x~?p*c205E(s118W "d 88p|~0`?*c206E(s118W "l<<x||x|x>>>>>>>><|<||<x>xǀ*c207E(s152W "l|<<<<<<<<<<<<<<<<<|>0*c208E(s256W/'08888|| 80p`~???*c209E(s86W"#88p00` ??*c210E(s226W%$*||~߀??~~~ 80p~~~??8>|8*c211E(s261W"1#?<; 3 sc   ` `? ? ` ~?*c212E(s133W%'dpp><|||8?<|x~?p*c213E(s86W" #80x0*c214E(s115W!l00``@<<x||x|x> > >>>>0>0>`<|`<||<||8?<|x `~??*c216E(s236W+',88|| 80p`~???*c217E(s86W" #8`|>`*c218E(s241W+$-||>??~~~~~~??>||*c219E(s241W+'-?*c220E(s246W-!.<|<     ``   ~*c221E(s82W !8p8|||p8 BWCguWhX uW>MC]?Mޜh{Š<$kB+{$B? @.6s@B=><DO^n<kB+{PiB=>=L%W\V]mdnB=nB=pV8@x.=j(B===v=B==(==N (==YSURWCS  TRVYSURwv|߃߂߆߇ߘߕߙ_URURPERVISORq ^|^ -dio.5<n 2V]e  !&!!6&&&&&'X'''"(+*Q****++++02&3D3s3334}4445566666666777j7r777777777777778E=y=1?E?b?t????(@;@@@@@@@@A2A`AvAAAAA(B@BHCMCRCcCCCCDDDXEEEEEEF?FlFqF{FwHHHH(IuIIJ?JKJUJzJJJJKKKKKKK_LmLLM9M?MMMMMM8NQNXN`NhNpNwNNNNNMOpOzOOOOP+PkPPPPPQ2QQQQQRR2RRRkRsRSrTTTTUOUXUkUU!VkVV%WCW\WuWWYXXX[0\\\\.]b]]]] $%&'()*+,-./0123456789:;<=>?@ABCDEUXYZ[\]^_`abcijkmnopqstxyz{~ LnSyO41p`a{ ({ p1/p`<a{ ({ pLLlwyglylyAp$jCpj '{"{ llh(j^p '{"{ llh '{ llyCnysp '{ l<>><*c223E(s251W-$/` ||>??~~~~~~??>||*c224E(s246W-'.<p88|| 80p`~???*c225E(s231W*'+`88|| 80p`~???*c226E(s115W!d ><|||8?<|x~?p*c227E(s191W"&#~??*c228E(s164W#%lxxxx??xxxx<x|xxxxxxxxxxxxx|x~x~x?x|`*c229E(s108W-.H>|*c230E(s108W-.H p8 *c231E(s251W-$/>x||>??~~~~~~??>||*c232E(s251W-$/ p8 ||>??~~~~~~??>||*c233E(s236W*$,<||>??~~~~~~??>||*c234E(s115W!l`<<x||x|x>>>>>>>><|<||<x>xǀ*c235E(s157W-/l`À~~<>x<8|||~~???~~>`>`>p?7 *c236E(s88W"$L`0 8p8p8`?> 8*c237E(s251W-'/8p?*c238E(s236W+$,? 8p?`?*c239E(s151W -X?8>800p``~~><<00``8<*c240E(s156W"#x*c241E(s208W#0l~?<x*c246E(s28W *c247E(s196W"$$80`>` 0p` #cC 00`*c248E(s196W"$$80`>` 0?p` 0 0`0`*c249E(s58W"H0pppp`pppppp`pppp|<8*c250E(s58W"H80p`pp8 *c251E(s73Wd`0p<x>x<p0`*c252E(s73Wd*c253E(s73Wd0`p88p`0*c254E(s124Wj!1AQ aq $(,049=!A1EAIQMaQqUY]aeih2i2)s257W@.7?4\` TmsRmn (C) Copyright Hewlett-Packard Company, 1986. All rights reserved. Reproduction, adaptation or distribution of copies of this font is prohibited, except as allowed under the copyright laws. *c33E(s51W!#@<~~~~~<<<<<~~<*c34E(s48W! @pppppp @p @ @*c35E(s201W!#%><<|xx<<<xx><<|xx*c36E(s142W$*dpppsxHITUVWXYZ[\]^_rstuvw >command dialogue (FALSE) ; task ("UR"), 0, proca (PROC ur)) ;ROCA CONST start) :or nak = 2 , password code = 9 , link task code = 4711; BOUND STRUCT (TEXT tname, tpass, TASK task, PROCA start proc) VAR sv msg; BOUND TEXT VAR error msg; TEXT VAR error; DATASPACE VAR ds; INT VAR reply; TEXT VAR task password; PROC link (TEXT CONST task name): IF online THEN do link cmd; analyze reply; FI; . analyze reply: IF reply = error nak THEN error msg := ds; error := error frandomfinitializerandomf sysgenoffmode(b0c8dKHfPgXh`ihjpkx^03 beginprocessA priv(start8urHdummyXPUBLICJ` publicmanagerp urmanagerArchiv 'help' eingelegthelpЉds؉orderphase ordertask begincode4I( falscher Auftrag fuer Task "UR"@XUR^`0rscheckoffalogueETerandom81.732050807568877293527Psqr3xH0.577350269189625764509`sqr3p2X3.732050807568877*[ kLkkRkkЉakȒkG\kP]]77  ,pp}l${&a0u@@88@aЈ p `_m<1Za0 DOWNTOWHILELEAVEWITHTRUEFALSE::ZSBLb:=q[INCRv[DECRe+e-ZY*ge/DIV[MODf**YANDCAND\ORCORNOTb=<>>>=b<<=MAIN ENDOFFILEabitsZXORYbitY lowestresetY lowestset#Yresetbit(Yrotate-Ysetbit[text5Y maxtextlength8YSUB^subtextHYlengthLYLENGTHYCATYreplace^change` changeallrYcompress^posYcodeeBR0uuh0u"~f'0u f2*0uh"~00u00u00ua'00u'00uf'00u,f00u1f''0u:f'0u#f'00u'f2*00uh0uh'2u\''2u'2u'2u'2u'2u2u2u'2u'2u'2u'2u'2u'2u'2u'2uZf''2uk''1u'0uf2uf'0ukG\'0uvkvk ",4GQ^_w ,?FWew *=HNZejt9FXi'8LT_w    9 D I W ` s * @ Z g q   - M T _ f m   4 U b o    " ' - / 4 9  '-18=DHMSZ^chmry "&*/47:=@DHLPUY]adhkorv{ _"*>|.(e-+);,[]{#:=</  @k 0u1u 0  .$plX} g25h -0 '143 NY/xxL$4}!|f8 <)*D,HP%\1'&``0"(Xd#Y5 run again impossible recursive run  Compiler Error :  % | Fehler entdeckt Keine Fehler gefunden,  . ******* ENDE DER UEBERSETZUNG *******FEHLER bei >>  << weiter bei ,TEXTende (Anfuehrungszeichen) fehlt irgendwoKommentarende fehlt irgendwo-nach dem Hauptprogramm darf kein Paket folgen(ungueltiger Name fuer ein DEFINES-Objekt ':' fehlt(nach ENDPACKET folgt nicht der PaketnameENDPACKET fehltCONST oder VAR fehltungueltiger Name ',' in Deklarationsliste fehltist nicht der PROC Name$fehlerhaftes Ende des Hauptprogramms ENDPROC fehlt PROC/OP Schachtelung unzulaessigOP darf kein Parameter sein"steht mehrfach im PACKET Interface ist mehrfach deklariert$ist schon als Datenobjekt deklariert ist schon als PROC/OP deklariert ')' nach Parameterliste erwartet5Standard-Schluesselwort kann nicht redefiniert werdenungueltig als BOLD '(' fehlt'CONST bzw VAR nicht bei Strukturfeldern '=' fehlt7Schluesselwort wird im Paket schon andersartig verwandtDatentyp fehltungueltiger OP Name$OP muss monadisch oder dyadisch seinist nicht der OP Name ENDOP fehltName nach ENDPROC fehltName nach ENDOP fehlt ';' fehltEND END ist UnsinnDieses END... kenne ich nichtROW Groesse ist kein INTROW Groesse ist kein Denoter)Ein ROW muss mindestens ein Element habenROW Groesse fehlt'Parameter kann man nicht initialisieren'Konstanten muessen initialisiert werden'::' verwenden ')' fehltExponent fehltUndefinierter TypRekursiv definierter TypMehrfach definierter Selektor3Variable bzw. LET-Objekt in der Paket-Schnittstelleundefinierte ROW Groesse#Typ Deklarationen nur im Paketrumpf CONST bzw. VAR ohne Zusammenhang;ist nicht deklariert, steht aber in der Paket-Schnittstelleist nicht deklariertunbekanntes Kommando#THIS IS NO CORRECT EXTERNAL NUMBER.Schluesselwort unzulaessig Name erwartetDenoter erwartetENDPROC ohne ZusammenhangENDOP ohne ZusammenhangRefinement ohne Zusammenhang9Delimiter zwischen Pak2l2m2n2o2p2q2r2s2t2u2v2w2x2y2z2{2|2}2~22222222222222222222222222222222222< >~~0?? `?|*c39E(s50W! 48@*c40E(s102W! +L8p><||||||||<>p8*c41E(s102W! +Lp88p*c42E(s82W!dqO~O__~OOq*c43E(s132W*c44E(s50W 0<~? 0*c45E(s28W @*c46E(s25W 0<~~<*c47E(s166W%2d>>||x>>||>><||p*c48E(s121W!#d|ǀ??????ǀ|*c49E(s118W!"dx*c50E(s118W!"d~0``<xp ?*c51E(s121W!#d0 @?|xxxxppÀ*c52E(s118W!"d7g 0p*c53E(s121W!#d ?????xxpxp`À*c54E(s121W!#d<~????*c55E(s121W!#d????p`><<|xx*c56E(s121W!#d>>~~???>~|~~?*c57E(s121W!#d????~|*c58E(s40W8<~~<<~~<*c59E(s82W !8<~~<<~? 0*c60E(s100W >????>*c61E(s80W*c62E(s100W ~~*c63E(s121W!#`<x?x|x??|p*c64E(s274W#++>8x <|7`<`x`x`x```?`?@>~~~xx| x<8<?<8<*c65E(s186W!""90p``??U_ >*c66E(s152W!"????*c67E(s156W!#~~>????x*c68E(s186W!!"???*c69E(s152W!"?pp00888 <|?*c70E(s152W!"x?p008x8?*c71E(s191W!## ~|<??  ???~*c72E(s186W!%"??*c73E(s84W!"P??*c74E(s133W!'d?8||?*c79E(s191W!##~???????????????~*c80E(s152W!"|????*c81E(s231W!#+~??????????????????~?*c82E(s186W!#"???*c83E(s121W!#t >|<<|| | ~  ?????>>|*c84E(s152W!"||<<   ?*c85E(s191W!$#  8*c86E(s1ket-Refinement und Deklaration fehlt)unzulaessiges Selektor-Symbol (kein Name) BOUND Schachtelungen unzulaessig'BOUND-Objekte unzulaessig als ParameterTextende fehltTEXT-Denoter zu lang.Denoter-Wert wird fuer diese Maschine zu gross8Compiler-Fehler, wenden Sie sich an Ihren Systemberater!(ist ein zusammenhangloses Schluesselwort+'::' nur fuer Initialisierungen, sonst ':='%welches Objekt soll verlassen werden?;LEAVE-Anweisung nicht innerhalb des angegebenen Refinements.nur die eigene PROC / OP kann verlassen werden THEN fehltFI fehltBOOL-Ausdruck erwartet3ELSE-Teil ist notwendig, da ein Wert geliefert wirdINT-Ausdruck erwartetOF fehltKeine Typanpassung moeglichCASE-Label fehlt$mindestens eine CASE-Anweisung geben!CASE-Label ist zu gross (skipped)mehrfach definiertes CASE-Label#ungueltiges Zeichen nach CASE-LabelOTHERWISE-Teil fehltEND SELECT fehlt#rekursiver Aufruf eines Refinements wird nicht benutzt%';' oder Operator ('+','-',...) fehlt"undefinierter monadischer Operator!undefinierter dyadischer Operator;Auf die Feinstruktur des Typs kann man nicht mehr zugreifen*fuer diesen Typ nicht definierter Selektor2INT,REAL,BOOL,TEXT koennen nicht selektiert werdenbei ROWs nur Subscriptionnicht selektierbar%unzulaessiger Index fuer Subscription'[' ohne Zusammenhang']' ohne Zusammenhang']' nach Subscription fehltungueltig zwischen AnweisungenAnur die letzte Anweisung eines Abschnitts darf einen Wert liefern#Paketrumpf kann keinen Wert liefern7anstelle des letzten Symbols wurde ein Operand erwartet'Schleifenrumpf darf keinen Wert liefern#Laufvariable muss eine INT VAR sein?wird schon in einer aeusseren Schleife als Laufvariable benutzt FROM erwartetUPTO bzw DOWNTO fehlt REPEAT fehlt END REP fehlt*die Konstante darf nicht veraendert werdenCin einer FOR-Schleife darf die Laufvariable nicht veraendert werdenfalscher Typ des Resultats2ist CONST, es wird aber ein VAR Parameter verlangtunbekannte Prozedur,Parameter-Prozedur liefert falsches Resultat+Anzahl bzw. Typen der Parameter sind falschunbekannte Parameter-ProzedurAaktuelle Parameter-Prozedur hat CONST-, formale hat VAR-ParameterAKein Konstruktor moeglich, da die Feinstruktur hier unbekannt istzu wenig Felder angegebenzu viele Felder angegeben&unzulaessiger Trenner zwischen FeldernFeld hat falschen Typ)falsche Element-Anzahl im ROW-Konstruktor4Dieser Typ kann nicht noch mehr konkretisiert werdenBOUND-Objekt zu grossWarnung in Zeile Zeile in Zeile <----+--->  TYPE undefiniert  MODE undefiniert Parameter spezifiziert: Parameter Typ(en) sind: B Code,  B Paketdaten generiert Operand: Operanden: , erwartet gefunden  g!xJA&"Q]qlK/>0FzhfZ6,^A>|y 2pFdvKJX0wWQ8pa covertracks advertisingaeumelmustadvertisetasksaTASKaPROCAbniltaskb isniltaskb existstaskb supervisor!bmyself$bpublic'bproca -b collectorN0baccess ctask?<?8800  ??   88?x?*c91E(s102W! +T*c92E(s166W%2dp||<>>||>>x||>>*c93E(s102W! +T*c94E(s58W&dxxπ<8pp8*c95E(s32Wd*c96E(s50W! 480``*c97E(s91Wh<|~~~~<?~~*c98E(s156W!#l????????????~|*c99E(s91WX~>>~~?0?*c100E(s156W!#p??~~??*c101E(s91WX>>~~ ?p?*c102E(s118W!"@~?*c103E(s121W#`????>??<>x|8>*c104E(s152W!"p??*c105E(s84W! "<?????*c106E(s104W!,@<~~<x~~x? *c107E(s152W!"l?|xp߀?*c108E(s84W! "~~~~>?*c112E(s152W"p?~?????????????*c113E(s152W"l ü?~~~??*c114E(s88WT??*c115E(s66WT<>xx??<*c116E(s80W D????????????????????*c117E(s112Wp?*c118E(s88W\*c121E(s118W"X?*c122E(s85WX|p`?`?`00?p*c123E(s102W!+d*c124E(s66W %2d*c125E(s102W!+d*c126E(s48Wp~*c127E(s373W%33???????????????????????????????????????????????????*c161E(s241W,"-p~?p90p``??U_ >*c162E(s241W,"-<890p``??U_ >*c163E(s196W,-~??pp00888 <|?*c164E(s200W-.x<<8p?pp00888 <|?*c165E(s192W+,x<~~~~x<?pp00888 <|?*c166E(s108W-.Px<<8p??*c167E(s104W+,Px????x??*c168E(s34W! d>x*c169E(s34W! dp~?p*c170E(s34W" d????x|< <x|?*c181E(s121W#X~>>~~?0?``~*c182E(s241W+$-|???~>*c183E(s152W!"p``??*c184E(s51W!#@<~~<<<<<~~~~~~<*c185E(s121W!#````?~?*c186E(s124W"x p|?>>>>|?p *c187E(s121W!#d?*c188E(s186W!!"?~<880p`??*c189E(s139W!)d>>8?p~??>>>><*c190E(s188W"+d|????~~~||xpp>*c191E(s124W$d?~~~ 00 ``@?` *c192E(s124W"$hx<|~~~~<?~~*c193E(s124W"$Xx>>~~ ?p?*c194E(s124W"$dx?>~~~~>?*c195E(s160W"$p<~~?*c196E(s121W!#h?~<|~~~~<?~~*c197E(s121W!#X?|>>~~ ?p?*c198E(s121W!#d?|?>~~~~>?*c199E(s156W!#p?|?*c200E(s121W!#h<<|~~~~<?~~*c201E(s121W!#X|>>~~ ?p?*c202E(s121W!#d|?>~~~~>?*c203E(s156W!#p|?*c204E(s118W "h<|~~~~<?~~*c205E(s118W "X>>~~ ?p?*c206E(s118W "d?>~~~~>?*c207E(s152W "p?*c208E(s251W."/8890p``??U_>*c209E(s86W"#<91qa80p???*c212E(s130W$&hpp<|~~~~<?~~*c213E(s84W!"<8|8??*c214E(s115W!d00`?>~~ 1qa>?0p`*c215E(s116W |x<||<~>~>~?~?<??~~*c216E(s231W*"+<~?~?~?~?<90p``??U_ >*c217E(s84W!" @ @ @x helpa,?A= #0# help  G mchten:   &)Aa, &!Eq @&FaD KDQAF 317 q H9!8a:C! !Bq;7 41-aC  #7  1K 23456789A?>ѩ1 >@ B>AC& %!!!Q!6E0Q , $%8Q:=эD!Iq.N! !$Q61я) +1*a#! 3;AKGH1N$ (L 1H  .7 1 12q?9IQN$ ѕH!;a'( G8Q- <L 3QB AK A;&F !EqH=.1JMћM!N  qN  7 CQ q2411E7 >AQLKF  A2.C !Iq24MAJ:ѢB!@qFAI  a2(ѤC! A,q@ :L QE  :C1FCѧ:Da; 2-Ca;<=>?@ABCDEFGHIJKLMNOP???~*c224E(s241W,"-?~90p``??U_ >*c225E(s236W+",??a`90p``??U_ >*c226E(s121W!#h|<|~~~~<?~~*c227E(s186W!#"?_???????P????????*c228E(s156W!#pU@??~~??*c229E(s106W,-P?~??*c230E(s106W,-Pp~?p??*c231E(s246W,#.?~~???????????????~*c232E(s246W,#.>?x~???????????????~*c233E(s241W+#-00~???????????????~*c234E(s121W!#d > ?>~~~~>?*c235E(s154W,.t`~~< >|<<|| | ~  ?????>>|*c236E(s88W"$T`8<<x<>xx??<*c237E(s246W,$.?~  8*c238E(s236W+",<~~~~<??8p`??*c239E(s148W ,X?*c240E(s152W!"|??*c241E(s192W!,p?~????????????~|ǀ?*c246E(s36W*c247E(s191W!$#80p8pp 3cC 88p`*c248E(s191W!$#80p8?pp 88 p`00*c249E(s60W!H8pxx|x|x|0|||x|x|||><*c250E(s60W!H8<|>|>p8`*c252E(s73Wd*c253E(s73Wh08px<<xp80*c254E(s132Wp!1AQ aq $(,049=!A1EAIQMaQqUY]aeim22)s257W@/;?4\Z TmsRmn (C) Copyright Hewlett-Packard Company, 1986. All rights reserved. Reproduction, adaptation or distribution of copies of this font is prohibited, except as allowed under the copyright laws. *c33E(s86W"#<8|| xx*c34E(s42W" D00xxxxxxpppp``@@*c35E(s196W!!$p8xxp<<8xxpp*c36E(s142W$*d``x?100 x`x@`x@`x@x@p`}*c37E(s211W#('|>><|0x` ` pp?00`<`|x  0p0`*222222222222222222222222222222222222222222222222222222222.NBitte tippen Sie die Nummer des Bereichs, ber den Sie Nheres erfahren. 1. Informations-Kommandos . 2. Verbindung zum Supervisor  3. Editor . 4. ELAN-Compiler und -Programme . 5. Datei-Kommandos . 6. Archiv-Kommandos . 7. Druck und Textkosmetik N##Wenn Sie den Hilfe-Modus beenden wollen, tippen Sie die Taste 'q'. #1# 1. Informations-Kommandos N storage info physisch belegten Hintergrundplatz melden . task info Taskbaum zeigen N task status Zustand, Name und Gre der eigenen Task melden N list Katalog der eigenen Dateien zeigen (siehe 5.) N help ("name") alle Kommandos dieses Namens (mit Parametern) zeigen N help ("xxx*") die mit 'xxx' beginnen N help ("*xxx") alle Kommandos zeigen, die mit 'xxx' enden N help ("*xxx*") die 'xxx' im Namen haben >Nheres: Benutzerhandbuch "Textverarbeitung": > Teil 3, Kap. 1.1 "Informations-Kommandos" Fr den ELAN-Programmierer: N help ("...") (s.o) liefert auch alle Prozeduren und Operatoren > packets alle insertierten Pakete auflisten > bulletin ("paket") alle Prozeduren des Pakets zeigen > bulletin alle Prozeduren aller Pakete zeigen N##q --> Hilfe-Modus beenden, 0 --> zurck zum Hauptverteiler .#2# 2. Verbindung zum Supervisor N end Task mit allen Dateien (!) lschen > break Task vom Terminal abkoppeln > task password ("geheim") Task-Pawort einstellen >Nheres: Benutzerhandbuch "Textverarbeitung": . Teil 3, Kap. 1, "Der Monitor" N##q --> Hilfe-Modus beenden, 0 --> zurck zum Hauptverteiler #3# 3. Editor . edit ("datei") Datei editieren > edit zuletzt bearbeitete Datei editieren NWenn Sie Nheres ber die Bedienung des Editors wissen wollen, whlen Sie:  a) Steuertasten  b) Sondertasten  c) Kommandodialog  d) Editor-Kommandos >weitere Informationen: Benutzerhandbuch eil 4 N##q --> Hilfe-Modus beenden, 0 --> zurck zum Hauptverteiler .#a# 3. a) Steuertasten beim Editieren . LINKS Schreibmarke bewegen . RECHTS " " . OBEN " " . UNTEN " " > RETURN zum Beginn einer neuen Zeile (Absatz) N TAB tabulieren, (evtl. zum Anfang oder Ende einer Zeile) > RUBIN Einfgezustand ein-/ausschalten . RUBOUT Zeichen lschen . MARK Markierung ein-/ausschalten . HOP LINKS zum linken Bildrand . HOP RECHTS zum rechten Bildrand > HOP OBEN zum oberen Bildrand, nach oben blttern > HOP UNTEN zum unteren Bildrand, nach unten blttern > HOP RETURN aktuelle Zeile zur obersten Bildzeile machen N HOP RUBIN Zeilen einfgen ein-/ausschalten, Zeilen aufbrechen N HOP RUBOUT Zeilen lschen, Zeilenrest lschen, Zeilen rekombinieren . HOP TAB Tabulator setzen/zurcksetzen N##q -> Hilfe-Modus beenden, 0 -> zum Hauptverteiler, 3 -> zum Editorverteiler .#b# 3. b) Sondertasten im Editor . ESC q Editor verlassen > ESC e neues Editor-Fenster einschachteln > ESC w zum nchsten Fenster wechseln . ESC n Notizbuch aufschlagen . ESC RECHTS zum nchsten Wortanfang . ESC LINKS zum vorigen Wortanfang . ESC 1 zum Dateianfang . ESC 9 zum Dateiende > ESC RUBOUT Markiertes "vorsichtig lschen" > ESC RUBIN "vorsichtig Gelschtes" wieder einfgen N ESC p Markiertes in Scratch-Datei kopieren, in Quelle lschen N ESC d Markiertes in Scratch-Datei kopieren, (Duplizieren) N ESC g Scratch-Datei kopierend an aktueller Stelle einfgen N##q -> Hilfe-Modus beenden, 0 -> zum Hauptverteiler, 3 -> zum Editorverteiler .#c# 3. c) Lernen und Kommandodialog . ESC HOP "Lernen" einschalten N ESC HOP taste "Lernen" beenden und Gelerntes auf angegeben Taste legen N ESC taste Gelerntes bzw. auf Taste gelegtes Kommando ausfhren . ESC ESC Kommandodialog einschalten > ESC f letztes Editor-Kommando wiederholen > Funktionen im eingeschalteten Kommandodialog : > ESC k letztes Kommando anzeigen N ESC ! taste geschriebenes Kommando auf Taste legen > (sptere Ausfhrung: ESC taste) N ESC ? taste Auf Taste gelegtes Kommando zum Editieren zeigen N##q -> Hilfe-Modus beenden, 0 -> zum Hauptverteiler, 3 -> zum Editorverteiler .#d# 3. d) einfache Editor-Kommandos N n auf Zeile n positionieren (nur als Einzelkommando) > T n auf Zeile n positionieren (allgemein) . D n n Zeilen vorwrts . U n n Zeilen rckwrts N "muster" Muster (vorwrts) suchen (nur als Einzelkommando) > D "muster" Muster vorwrts suchen (allgemein) . U "muster" Muster rckwrts suchen > "alt" C "neu" suchen und ersetzen (vorwrts, einmal) N "alt" CA "neu" von aktueller Stelle an wiederholt suchen und ersetzen > PUT "datei" Markiertes in Datei schreiben N GET "datei" Datei kopierend an aktueller Stelle einfgen N limit (n) Dateibreite auf n einstellen (Standard: 77) N margin (n) linken Bildrand auf Spalte n einstellen (Standard: 1) > word wrap (true) automatischen Wortumbruch einschalten . word wrap (false) kein Wortumbruch N##q -> Hilfe-Modus beenden, 0 -> Hauptverteiler, 3 -> Editorverteiler #4# 4. ELAN-Compiler N run ("datei") Datei (ELAN-Programm) bersetzen und ausfhren N run zuletzt behandelte Datei bersetzen und ausfhren > run again zuletzt bersetztes nochmals ausfhren . (ohne neue bersetzung) N insert ("datei") Datei (ELAN-Programm) bersetzen und fest eintragen N insert zuletzt behandelte Datei bersetzen und fest eintragen N check on Laufzeit-Fehlermeldungen mit Zeilennummern (mehr Code) N check off keine Zeilennummern bei Laufzeit-Fehlern (weniger Code) NHinweis: ESC w zum Fensterwechsel Quelldatei und Fehlerdatei verwenden >Nheres: Benutzerhandbuch "Programmierung": Teil 5 N##q --> Hilfe-Modus beenden, 0 --> zurck zum Hauptverteiler #5# 5. Datei-Kommandos > copy ("datei", "duplikat") Datei kopieren > rename ("alt", "neu") Datei umbenennen > forget ("datc38E(s196W""$s?><80<p|`x}>>~?~o@?*c39E(s29W" 0>?? 0`*c40E(s108W".L 8p><<||xxpppp008 *c41E(s108W".L` 0 >><<xxp0`*c42E(s73W!dpÀ~߀~߀pÀ*c43E(s124W*c44E(s31W0>??? 0`*c45E(s24W D*c46E(s22W0xx*c47E(s266W%#2d<8p8xp<8pp88p*c48E(s124W"$d<p88>>>>><>|>||||x||ppp88x*c49E(s121W"#d0?><<<|xx*c50E(s121W"#d?><xp8p ?*c51E(s124W"$d?p><pxxxxxxpp?*c52E(s121W"#d>~<x xx0` 0p<<*c53E(s160W"$d??``@?xxxxxppp*c54E(s124W"$d8>|?x>x|<|<|<<<<<<xxxpp88*c55E(s160W"$d?0`@88p88pp<8p*c56E(s124W"$dx>x>x>x|x|x|<<>|8*c58E(s62W 8xx*c59E(s80W 8 0*c60E(s94W ~~~~*c61E(s64W  *c62E(s94W ~~??~~*c63E(s121W"#\<>>>>| xx*c64E(s274W#*+<`p 8xG@8/@x?@p@p@p@@@<@<<xxx`pp pp0 808?  p`8*c65E(s191W"%#@7wǀ8p` 8p*c66E(s191W"!#~?>>>>||~~~~~~|*c67E(s196W"!$?>|?>~~~|~~?0?`?*c68E(s191W"&#?>>><|||x>|*c69E(s191W"##@@@ > >@><|| |*c70E(s191W""#| ?`>@>>||*c71E(s196W"$$?p>@@@??~~~???>>>||~|~|>|*c72E(s226W",#>>>||||>>>>||??*c73E(s121W"#L>>>~|||*c74E(s160W"$L??>>~|p|xy?*c75E(s191W"(#8p>>>>8~}|~??*c76E(s191W"!#?>>>~|||*c77E(s261W"1#3wg1110a`` `0>0>x`>>x|}|||~>|880 *c78E(s232W"*$?>88800p`9`1`00p|`|`>`>?xx80*c79E(s196W"#$?|<x??>~~~?><||||<>|*c80E(s191W"!#x~??>?>?>~>||*c81E(s241W"#-?|<x??>~~~?><||||<>| 8?*c82E(s191W""#?>>>?>~|||~*c83E(s160W"$l|? |`|`|p|pxpx*c84E(s156W"#|??<>>>||||*c85E(s196Wei") Datei lschen N forget zuletzt bearbeitete Datei lschen > list Dateikatalog zeigen > fetch ("datei") Datei von Vater-Task holen N save ("datei") Datei zur Vater-Task schicken N save zuletzt bearbeitete Datei zur Vater-Task N erase ("datei") Datei in Vater-Task (nur dort!) lschen N list (father) Dateikatalog der Vater-Task zeigen >Nheres: Benutzerhandbuch "Textverarbeitung": . Teil 3, Kap. 3 "Dateibearbeitung" N##q --> Hilfe-Modus beenden, 0 --> zurck zum Hauptverteiler #6# 6. Archiv-Kommandos N archive ("name") Archiv reservieren und mit angegebenem> Namen anmelden > release (archive) Archiv freigeben N clear (archive) Archivdiskette initialisieren und lschen N list (archive) Dateikatalog der Archivdiskette zeigen > fetch ("datei", archive) Datei vom Archiv holen N save ("datei", archive) Datei auf das Archiv schreiben N erase ("datei", archive) Datei auf dem Archiv lschen N check ("datei", archive) Prflesen der Datei auf dem Archiv N fetch all (archive) alle Dateien vom Archiv holen N save all (archive) alle Dateien auf das Archiv schreiben >Nheres: Benutzerhandbuch "Textverarbeitung": . Teil 3, Kap. 4 "Das Archiv" N##q --> Hilfe-Modus beenden, 0 --> zurck zum Hauptverteiler #7# 7. Druck und Textkosmetik . print ("datei") Datei drucken N print zuletzt bearbeitete Datei drucken > list (printer) Druckerwarteschlange zeigen N erase ("datei", printer) eigene Datei aus Druckerwarteschlange lschen NHinweis: 'print' setzt voraus, da ein Drucker generiert wurde! > lineform ("datei") Datei zeilenweise formatieren N lineform zuletzt eingestellte Datei formatieren N autoform ("datei") lineform mit automatischer Silbentrennung N autoform zuletzt eingestellte Datei formatieren > pageform ("datei") Datei seitenweise formatieren N pageform zuletzt eingestellete Datei formatieren > index ("datei") Stichwortverzeichnis erstellen >Nheres: Benutzerhandbuch "Textverarbeitung": . Teil 5 "Textkosmetik und Druck" N##q --> Hilfe-Modus beenden, 0 --> zurck zum Hauptverteiler "Textverarbeitung": Nweitere Informationen: Benutzerhandbuch "Textverarbeitung": eil 4 > Teil 4 "Der Editor" ---ee `QSUPERVISOR ^SUPERVISORURSYSURshutup manPUBLICARCHIVEOPERATORconf - fgdkjnfgbd Wok_lI{w{kzclypol ol d{ v{kK s*p x{,pslSyk{ly %{l0{"{_ ly{kl { k.%15 11kp...1[.0 1..+.1 Qp5t...).t/.u$$Q mp5%kt0 + 20 2-p0 p2-pt022)p0 ppkt020221p6%p6kt022-p0 2p022 2%p+2 2 p0! 2-p2p2-p2k\l4Hl4Hl4Hl4Hl4Hl4H"$$   8000p>`>`>`~|||||>8*c86E(s196W"#$8p` 8p 8p*c87E(s232W"/$ 70wpg`ǀ 80` *c88E(s226W"+#?>8p||~>8>p???8p*c89E(s191W"##|?88p||~8>p>>>>>||||*c90E(s191W"##??~? ?<*c91E(s154W".T><<|xxx<<<<xxx*c92E(s116W% 2d``ppp0x0888<  *c93E(s154W".T><<<xxxx*c94E(s58W%d8|ǀp800` *c95E(s28Wd*c96E(s29W" 0 0``|8*c97E(s88Whx>>><<<>|<x<xxx 3<*c98E(s124W"$hpp@x|<<<<<<<<8<x<xxpxxxpx8*c99E(s88WX?<<xxxx|?*c100E(s160W"$h?<~<<<<8xx<x<xxx 3c*c101E(s88WXq<8x>yxx>*c102E(s204W"/<9q<<<<<xxxxpA|*c103E(s156W#Tx?<<<<|xx8ppppppx<*c104E(s160W"$l<xx<0<`<<8xxx>p><<|xxx*c105E(s88W" $4><<<xxxx@x*c106E(s157W"/8<<<<8xxxxpcx*c107E(s160W"$d<xxx>8p |<<<xxxx*c108E(s88W" $4x<<<8xxppp*c109E(s136W&>? x8x x@p`=?>>||x><<|xxx*c110E(s112Wl>?>`><<|xxx><<|xx*c111E(s88Whx8<<|xx><<|xpx8<*c112E(s152W"h8`|<<<<<><<|<x<x|xxxx*c113E(s152W"dǀ<p?>><><|||x| 9?*c114E(s85W@À? `><<<xxxp*c115E(s88WH|@|<>@@@``<x*c116E(s76W 8 `?<<<<xxxpp*c117E(s88Wl<<<xxx<<<<xxxx 3cx*c118E(s88WXp>x800`` 0`*c119E(s112W` `>  00```sv|x p `@*c120E(s88WTp?xfx8=?>>>>~ fp*c121E(s118W"Pxx xx<x0< <`<@<?0``sp*c122E(s88WP  ?0` `?>*c123E(s154W".d<<8x8xp<<*c124E(s66W %2d*c125E(s154W".d<<8xpxp*c126E(s40W0p~*c127E(s373W%33???????????????????????????????????????????????????*c161E(s246W-%. `0@7wǀ8p` 8p*c162E(s246W-'.8 0`@7wǀ8p` 8p*c163E(s246W-#. `0@@@ > >@><|| |*c164E(s246W-#.8 0`@@@ > >@><|| |*c165E(s231W*#+8|>|>|>8@@@ > >@><|| |*c166E(s154W-.L`0>>>~|||i bfeqvw19dpgn Jcomp.0comp.1ur startcomp.2180indexer.eumel help.J180indexer.eumel help.comp.2180indexer.eumel help. bfeqvw19dpgn *180indexer.eumel help.*elp180indexer.eumel help.8*help180indexer.eumel help.u bfeqvw19dpgn *elp180indexer.eumel help.}"elp" gibt es nichtf*elp180indexer.eume  eumel help.Eelp\]^_`abcdefghijklmnopqrstuvwxyz{|}~>#180indexer#(* ------------------- VERSION 65 vom 04.01.88 -------------------- *) PACKET index program DEFINES outline, index, index merge: (* Programm zur Behandlung von Indizes aus Druckdateien (index) " (normalen) Dateien (outline) Autor: Rainer Hahn *) LET escape = ""27"", blank = " ", trenn k = ""220"", trennzeichen = ""221"", minuszeichen = ""45"", kommando zeichen = "#", trenner = " ...", ziffernanfang = "... ", ib0 = 1, ib1 = 2, ib2 = 3, ie0 = 4, ie1 = 5, ie2 = 6, max indizes = 10, (* !!Anzahl mglicher Indizes *) punkt grenze = 50, leer = 0, fuellend = 1, nicht angekoppelt = 2; INT VAR seiten nr, zeilen nr, erste fehler zeilennr, zeilen seit index begin, von, komm anf, komm ende, kommando index, index nr, inhalt nr, anz params, anz zwischenspeicher, y richtung; BOOL VAR outline modus, inhaltsverzeichnis offen; TEXT VAR dummy, fehlerdummy, einrueckung, akt zeile, zweite zeile, akt index, zweiter index, zeile, kommando, datei name, kommando liste :: "ib:1.012ie:4.012", par1, par2; FILE VAR eingabe file, ausgabe file; ROW max indizes FILE VAR f; ROW max indizes TEXT VAR zwischenspeicher; LET SAMMLER = STRUCT (TEXT index text, TEXT seitennummer zusatz, INT zustand); ROW max indizes SAMMLER VAR sammler; (******************************* outline-Routine **********************) PROC outline: outline (last param) END PROC outline; PROC outline (TEXT CONST eingabe datei): outline modus := TRUE; disable stop; do outline (eingabe datei); IF is error THEN fehlerdummy := error message; clear error ELSE fehlerdummy := ""; FI; enable stop; IF anything noted THEN to line (eingabe file, erste fehler zeilennr); note edit (eingabe file) ELSE to line (eingabe file, 1); last param (eingabe datei + ".outline") FI; line; IF fehlerdummy <> "" THEN errorstop (fehlerdummy) FI END PROC outline; PROC do outline (TEXT CONST eingabe datei): enable stop; IF exists (eingabe datei) THEN initialisiere bildschirm; deaktiviere sammler; anfrage auf inhaltsverzeichnis; einrichten fuer zeilennummer ausgabe; richte dateien ein; verarbeite datei; ELSE errorstop ("Datei nicht vorhanden") FI; cursor (1, y richtung + 1). initialisiere bildschirm: eingabe file := sequential file (modify, eingabe datei); page; put ("OUTLINE"); put ("( fr"); put (lines (eingabe file)); put ("Zeilen):"); put (eingabe datei); put ("->"); out (eingabe datei); out (".outline"); cursor (1, 3). anfrage auf inhaltsverzeichnis: put ("Bitte Index-Nr. fr Inhaltsverzeichnis:"); dummy := "9"; REP editget (dummy); inhalt nr := int (dummy); IF last conversion ok AND inhalt nr > 0 AND inhalt nr < 10 THEN LEAVE anfrage auf inhaltsverzeichnis ELSE line; put ("Nr. zwischen 0 und 9, bitte nochmal:") FI END REP. einrichten fuer zeilennummer ausgabe: line (2); INT VAR x; get cursor (x, y richtung). richte dateien ein: inhaltsverzeichnis offen := FALSE; anz zwischenspeicher := 0; einrueckung := ""; erste fehler zeilennr := 0; ggf ueberschreibe anfrage (eingabe datei + ".outline"); ausgabe file := sequential file (output, eingabe datei + ".outline"); to line (eingabe file, 1); col (eingabe file, 1). verarbeite datei: REP suche naechste zeile mit kommandozeichen; IF pattern found THEN verarbeite ggf index kommandos FI; IF line no (eingabe file) = lines (eingabe file) THEN LEAVE verarbeite datei ELSE down (eingabe file); col (eingabe file, 1) FI END REP. verarbeite ggf index kommandos: komm anf := col (eingabe file); von := komm anf; REP WHILE komm anf <> 0 REP komplettiere alle fuellenden sammler (von, komm anf - 1); entschluessele kommando; von := komm ende + 1; IF kommando index > 0 THEN setze kommando um FI END REP; IF alle sammler leer THEN LEAVE verarbeite ggf index kommandos ELSE fuelle sammler mit restzeile und lese naechste zeile FI UNTIL line no (eingabe file) = lines (eingabe file) END REP. setze kommando um: IF anz params = 0 THEN index nr := 1 ELSE index nr := int (par1) FI; SELECT kommando index OF CASE ib0, ib1, ib2: zeilen seit index begin := 0; index anfang; CASE ie0, ie1, ie2: index ende; OTHERWISE END SELECT. index anfang: IF gueltiger index THEN fange neuen index an ELSE fehler (18, par1) FI. fange neuen index an: IF sammler fuellend (index nr) THEN fehler (20, text (index nr)) ELIF index ist inhaltsverzeichnis THEN stelle einrueckung fest; sammler [index nr] . index text := einrueckung; einrueckung CAT " "; inhaltsverzeichnis offen := TRUE ELIF index ist hauptindex THEN sammler [index nr] . index text := einrueckung; ELSE sammler [index nr] . index text := einrueckung; sammler [index nr] . index text CAT text (index nr); sammler [index nr] . index text CAT " --> " FI; sammler [index nr] . zustand := fuellend. stelle einrueckung fest: einrueckung := ""; INT VAR punkt pos :: pos (zeile, "."); WHILE punkt pos <> 0 REP einrueckung CAT " "; punkt pos := pos (zeile, ".", punkt pos + 1) END REP. index ende: IF gueltiger index THEN IF sammler fuellend (index nr) THEN IF kommando index = ie2 THEN sammler [index nr] . index text CAT par2; FI; leere sammler in outline datei (index nr) ELSE fehler (21, text (index nr)) FI ELSE fehler (18, text (index nr)) FI; sammler [index nr] . zustand := leer. index ist inhaltsverzeichnis: index nr = inhalt nr. index ist hauptindex: index nr = 1. END PROC do outline; PROC leere sammler in outline datei (INT CONST nr): IF index ist inhaltsverzeichnis THEN line (ausgabe file); putline (ausgabe file, sammler [nr] . index text); inhaltsverzeichnis offen := FALSE; leere zwischenspeicher ELIF inhaltsverzeichnis offen THEN fuelle zwischenspeicher ELSE putline (ausgabe file, sammler [nr] . index text) FI; sammler [nr] . zustand := leer. index ist inhaltsverzeichnis: nr = inhalt nr. leere zwischenspeicher: INT VAR i; FOR i FROM 1 UPTO anz zwischenspeicher REP putline (ausgabe file, zwischenspeicher [i]) END REP; anz zwischenspeic*c167E(s145W*+L>>>>>>~|||*c168E(s34W " d8p*c169E(s34W " d`x<*c170E(s34W" dp88` *c171E(s26Wdp8|||p8*c172E(s26W d> *c173E(s251W-$/x<    8000p>`>`>`~|||||>8*c174E(s251W-$/ ?s``   8000p>`>`>`~|||||>8*c175E(s160W"$d?><<||xpc?~*c176E(s28W(d*c179E(s44W#@?xx` `xx?*c180E(s246W"!.?>|?>~~~|~~?0?`?*c181E(s118W"X?<<xxxx|?x88px?*c182E(s286W+*-<?>88800p`9`1`00p|`|`>`>?xx80*c183E(s152W "l? x>?>`><<|xxx><<|xx*c184E(s88W"$<xx@@><||p*c185E(s124W"$\ x>~|||?*c186E(s116W!x`x<ǀ<<<ǀx`*c187E(s160W"$d?>>><||xxxpc?~*c188E(s191W"%#x8x0|`<<?? 0<<~*c189E(s139W")d<8pp>p>pxx<>xxxpx|<pxp<<<<<<<<8xxxxxppppag<*c191E(s124W$d<<0x0x```{~> 0*c192E(s124W"$hp88` x>>><<<>|<x<xxx 3<*c193E(s124W"$X8pp0q<8x>yxx>*c194E(s124W"$hp88` x8<<|xx><<|xpx8<*c195E(s124W"$lp88` <<<xxx<<<<xxxx 3cx*c196E(s124W"$h<|x>>><<<>|<x<xxx 3<*c197E(s124W"$X0x0q<8x>yxx>*c198E(s124W"$h<|x8<<|xx><<|xpx8<*c199E(s124W"$l<|<<<xxx<<<<xxxx 3cx*c200E(s124W"$h<<`x>>><<<>|<x<xxx 3<*c201E(s124W"$X0xx<q<8x>yxx>*c202E(s124W"$h<<`x8<<|xx><<|xpx8<*c203E(s124W"$l<<`<<<xxx<<<<xxxx 3cx*c204E(s115W!hp8|||p8x>>><<<>|<x<xxx 3<*c205E(s115W!Xppq<8x>yxx>*c206E(s115W!hp8|||p8x8<<|xx><<|xpx8<*c207E(s115W!lp8|||p8<<<xxx<<<<xxxx 3cx*c208E(s256W/(0    @7wǀ8p` 8p*c209E(s88W"$4`0><<<xxxx@x*c210E(s231W%#+ ?|<xπ ?0?p>`~~~ ?><|0||p|`<?|  00*c211E(s261W"5#0;030g0  08p>>>@@@|x8p@??*c212E(s130W$&h  x>>><<<>|<x<xxx 3<*c213E(s88W"$4>x><<<xxxx@x*c214E(s121W#h00`x< | xx>0<0<`|@xs{>< 0 `*c215E(s136W"?|>|>8@7wǀ8p` 8p*c217E(s88W" $4`0><<<xxxx@x*c218E(s236W*#,p8|||p8?|<x??>~~~?><||||<>|*c219E(s236W*$,her := 0. fuelle zwischenspeicher: anz zwischenspeicher INCR 1; IF anz zwischenspeicher <= max indizes THEN zwischenspeicher [anz zwischenspeicher] := sammler [nr] . index text FI. END PROC leere sammler in outline datei; (********************* Utility Routinen *****************************) PROC ggf ueberschreibe anfrage (TEXT CONST d): IF online THEN anfrage FI. anfrage: yrichtung INCR 1; cursor (1, yrichtung); IF exists (d) THEN IF yes (d + " berschreiben") THEN forget (d, quiet) ELSE put ("wird angefgt") FI FI; IF outline modus THEN line ELSE cursor (7, 3) FI END PROC ggf ueberschreibe anfrage; BOOL PROC gueltiger index: last conversion ok AND index nr > 0 AND index nr <= max indizes END PROC gueltiger index; PROC suche naechste zeile mit kommandozeichen: TEXT VAR steuerzeichen :: incharety; IF steuerzeichen = escape THEN errorstop ("Abbruch durch ESC") FI; downety (eingabe file, "#", lines (eingabe file)); read record (eingabe file, zeile); zeilen nr := line no (eingabe file); cout (zeilen nr); END PROC suche naechste zeile mit kommandozeichen; PROC entschluessele kommando: komm ende := pos (zeile, kommando zeichen, komm anf + 1); IF komm ende <> 0 THEN hole kommando text; TEXT CONST kommando anfangs zeichen :: kommando SUB 1; IF pos ("-/"":*", kommando anfangs zeichen) = 0 THEN analysiere kommando ELSE kommando index := 0 FI; komm anf := pos (zeile, kommando zeichen, komm ende + 1); ELSE fehler (2, ""); komm anf := 0; END IF. hole kommando text: kommando := between (zeile, komm anf, komm ende). analysiere kommando: kommando index := 0; analyze command (kommando liste, kommando, 3, kommando index, anz params, par1, par2); disable stop; command error; IF is error THEN dummy := error message; clear error; dummy CAT " -> "; dummy CAT kommando; fehler (22, dummy); enable stop; komm anf := 0; kommando index := 0; LEAVE entschluessele kommando END IF; enable stop END PROC entschluessele kommando; PROC fuelle sammler mit restzeile und lese naechste zeile: restzeile auffuellen; naechste zeile und zaehlen; zeilen seit index begin INCR 1; von := any char pos (zeile); komm anf := pos (zeile, kommando zeichen, von); IF zeilen seit index begin > 10 (* !!Anzahl Zeilen!! *) THEN index aufnahme stoppen; fehler (17, ""); LEAVE fuelle sammler mit restzeile und lese naechste zeile ELIF seitenbegrenzung THEN index aufnahme stoppen; fehler (7, ""); END IF. restzeile auffuellen: IF silbentrennung THEN IF durch silbentrennung gewandeltes k THEN replace (zeile, length (zeile) - 1, "c") FI; komplettiere alle fuellenden sammler (von, length (zeile) - 1) ELIF bindestrich THEN komplettiere alle fuellenden sammler (von, length (zeile)); ELSE komplettiere alle fuellenden sammler (von, length (zeile)); zeile := " "; komplettiere alle fuellenden sammler (1, 1) END IF. silbentrennung: (zeile SUB length (zeile)) = trennzeichen. durch silbentrennung gewandeltes k: (zeile SUB length (zeile) - 1) = trenn k. bindestrich: (zeile SUB length (zeile)) = minuszeichen AND (zeile SUB length (zeile) - 1) <> blank. END PROC fuelle sammler mit restzeile und lese naechste zeile; (**************************** index routine *************************) PROC index: index (last param) END PROC index; PROC index (TEXT CONST eingabe datei): outline modus := FALSE; last param (eingabe datei); disable stop; suche indizes (eingabe datei); IF is error THEN fehlerdummy := error message; clear error ELSE fehlerdummy := "" FI; enable stop; IF anything noted THEN to line (eingabe file, erste fehler zeilennr); note edit (eingabe file) ELSE to line (eingabe file, 1) FI; line; IF fehlerdummy <> "" THEN errorstop (fehlerdummy) FI END PROC index; (************************** eigentliche index routine *****************) PROC suche indizes (TEXT CONST eingabe datei): enable stop; IF exists (eingabe datei) THEN IF pos (eingabe datei, ".p") = 0 THEN errorstop ("Datei ist keine Druckdatei") FI; eingabe file := sequential file (modify, eingabe datei); datei name := eingabe datei; erste fehler zeilennr := 0; IF online THEN initialisiere bildschirm FI; deaktiviere sammler; verarbeite datei; sortiere die index dateien; ELSE errorstop ("Datei nicht vorhanden") END IF. initialisiere bildschirm: page; put ("INDEX"); put ("(fr"); put (lines (eingabe file)); put ("Zeilen):"); put (eingabe datei); cursor (1, 3); out ("Zeile: "); out ("Seite:"); y richtung := 4; cursor (7, 3). verarbeite datei: lese bis erste seitenbegrenzung; WHILE NOT eof (eingabe file) REP lese bis naechste seitenbegrenzung; setze seiten nr; gehe auf erste textzeile zurueck; verarbeite indizes dieser seite END REP. lese bis erste seitenbegrenzung: to line (eingabe file, 1); col (eingabe file, 1); read record (eingabe file, zeile); zeilen nr := 1; cout (1); REP IF eof (eingabe file) THEN errorstop ("Datei ist keine Druckdatei") ELIF seitenbegrenzung THEN LEAVE lese bis erste seitenbegrenzung ELSE naechste zeile und zaehlen END IF END REP. lese bis naechste seitenbegrenzung: IF line no (eingabe file) >= lines (eingabe file) THEN LEAVE verarbeite datei ELSE down (eingabe file) FI; INT VAR erste textzeile := line no (eingabe file); down (eingabe file, "#page##----", lines (eingabe file)); IF pattern found THEN read record (eingabe file, zeile) ELSE LEAVE verarbeite datei FI. gehe auf erste textzeile zurueck: to line (eingabe file, erste textzeile); read record (eingabe file, zeile); zeilennr := line no (eingabe file); cout (zeilennr). verarbeite indizes dieser seite: REP suche naechste zeile mit kommandozeichen; IF seitenbegrenzung THEN LEAVE verarbeite indizes dieser seite FI; verarbeite index kommandos der naechsten zeilen; IF seitenbegrenzung THEN LEAVE verarbeite indizes dieser seite FI; down (eingabe file); col (eingabe file, 1) END REP. verarbeite index kommandos der naechsten zeilen: komm anf := col (eingabe file); von := komm anf; REP WHILE komm anf <> 0 REP komplettiere alle fuellenden sammler (von, komm anf - 1); entschluessele kommando; von := komm ende + 1; IF kommando index > 0 THEN setze kommando um FI END REP; IF alle sammler leer THEN LEAVE verarbeite index kommandos der naechsten zeilen ELSE fuelle sammler mit restzeile und lese naechste zeile END IF UNTIL seitenbegrenzung ENDREP; fehler (7, ""). setze kommando um: IF anz params = 0 THEN index nr := 1 ELSE index nr := int (par1) FI; SELECT kommando index OF CASE ib0, ib1, ib2: zeilen seit index begin := 0; index anfang; CASE ie0, ie1, ie2: index ende; OTHERWISE ENDSELECT. index anfang: IF gueltiger index THEN fange neuen index an ELSE fehler (18, par1) END IF. fange neuen index an: IF sammler fuellend (index nr) THEN fehler (20, text (index nr)) ELSE fuelle sammler mit (index nr, ""); IF anz params = 2 THEN zusatz an seitennummer (index nr, par2) ELSE zusatz an seitennummer (index nr, "") END IF END IF. index ende: IF gueltiger index THEN schreibe fuellenden sammler ELSE fehler (18, text (index nr)) END IF. schreibe fuellenden sammler: IF sammler fuellend (index nr) THEN IF anz params = 2 THEN fuelle sammler mit (index nr, par2) ENDIF; schreibe sammler (index nr); ELSE fehler (21, text (index nr)) END IF. END PROC suche indizes; (********************* Service Routinen ************************) BOOL PROC seitenbegrenzung: subtext (zeile, 2, 5) = "page" AND subtext (zeile, 8, 12) = "-----" END PROC seitenbegrenzung; PROC setze seiten nr: seiten nr := int (subtext (zeile, ziffern anfang, ziffernende)); IF online THEN schreibe FI. schreibe: cursor (20, 3); put (seiten nr); cursor (7, 3). ziffern anfang: pos (zeile, "0", "9", 10). ziffern ende: pos (zeile, " ", ziffern anfang) - 1 END PROC setze seiten nr; PROC naechste zeile und zaehlen   8000p>`>`>`~|||||>8*c220E(s246W-#. >| @@@ > >@><|| |*c221E(s82W!4>>>><<<xxxx@x*c222E(s200W".l8px8<<<<<xxp><<<<xxxxxÀc|*c223E(s251W-#/p88` ?|<x??>~~~?><||||<>|*c224E(s246W-'. >| @7wǀ8p` 8p*c225E(s236W+(,? x@7wǀ8p` 8p*c226E(s118W "h?@x>>><<<>|<x<xxx 3<*c227E(s191W"&#?>>><|x>|*c228E(s160W"$h?<~<<<<8xx<x<xxx 3c?*c229E(s154W-.L>x>>>~|||*c230E(s154W-.L`0>>>~|||*c231E(s251W-#/<|?|<x??>~~~?><||||<>|*c232E(s251W-#/<<`?|<x??>~~~?><||||<>|*c233E(s241W+#-?@?|<x??>~~~?><||||<>|*c234E(s118W "h?@x8<<|xx><<|xpx8<*c235E(s204W-/l0`À~<|? |`|`|p|pxpx*c236E(s124W"$H `pp9|@|<>@@@``<x*c237E(s251W-$/8p   8000p>`>`>`~|||||>8*c238E(s231W*#+|?88p||~8>p>>>>>||||*c239E(s188W+Pxx xx<x0< <`<@<?0``sp*c240E(s156W"#t||>>>>>>~>|>|~||*c241E(s200W".dp0`x<<<<<><><<x<x|xxxxx*c246E(s28W *c247E(s196W"!$00`` 00`&N  00`800pp`*c248E(s196W"!$00`` 080a 0 0@`*c249E(s76W"P=88pppp.p\@x܀?*c250E(s76W"P|88xppppp088*c251E(s70WT `0`<|xx<8 *c252E(s73Wd*c253E(s70WT  80`0`@*c254E(s124Wk!1AQ aq $(,049=!A1EAIQMaQqUY]aei22)s257W@/6?4\^ TmsRmn (C) Copyright Hewlett-Packard Company, 1986. All rights reserved. Reproduction, adaptation or distribution of copies of this font is prohibited, except as allowed under the copyright laws. *c33E(s46W $@@@*c34E(s40W @}}}}*c35E(s181W"$! ??: zeilen nr INCR 1; cout (zeilen nr); naechste zeile END PROC naechste zeile und zaehlen; PROC naechste zeile: down (eingabe file); read record (eingabe file, zeile); col (eingabe file, 1) END PROC naechste zeile; (**************************** Fehler - Routine *********************) PROC fehler (INT CONST nr, TEXT CONST addition): IF erste fehler zeilennr = 0 THEN erste fehler zeilennr := zeilen nr FI; fehler melden; IF online THEN fehlermeldung auf terminal ausgeben FI. fehler melden: report text processing error (nr, zeilen nr, fehlerdummy, addition). fehlermeldung auf terminal ausgeben: yrichtung INCR 1; IF yrichtung > 23 THEN yrichtung := 23; FI; cursor (1, yrichtung); out (fehlerdummy); IF outline modus THEN line ELSE cursor (7, 3) FI. END PROC fehler; PROC warnung (INT CONST nr, TEXT CONST addition): IF erste fehler zeilennr = 0 THEN erste fehler zeilennr := zeilen nr FI; warnung melden; IF online THEN meldung auf terminal ausgeben FI. warnung melden: report text processing warning (nr, zeilen nr, fehlerdummy, addition). meldung auf terminal ausgeben: yrichtung INCR 1; IF yrichtung > 23 THEN yrichtung := 23; FI; cursor (1, yrichtung); out (fehlerdummy); IF outline modus THEN line ELSE cursor (7, 3) FI. END PROC warnung; (************************** Sammler-Dienste **************************) PROC index aufnahme stoppen: zeile := "INDEX FEHLER"; komplettiere alle fuellenden sammler (1, length (zeile)); schreibe alle sammler; read record (eingabe file, zeile) END PROC index aufnahme stoppen; PROC deaktiviere sammler: INT VAR i; FOR i FROM 1 UPTO max indizes REP sammler [i] . zustand := nicht angekoppelt END REP END PROC deaktiviere sammler; BOOL PROC sammler fuellend (INT CONST nr): sammler [nr] . zustand = fuellend END PROC sammler fuellend; BOOL PROC sammler angekoppelt (INT CONST nr): NOT (sammler [nr] . zustand = nicht angekoppelt) END PROC sammler angekoppelt; BOOL PROC alle sammler leer: INT VAR i; FOR i FROM 1 UPTO max indizes REP IF sammler [i] . zustand = fuellend THEN LEAVE alle sammler leer WITH FALSE END IF END REP; TRUE END PROC alle sammler leer; PROC komplettiere alle fuellenden sammler (INT CONST von pos, bis pos): INT VAR i; IF von pos > bis pos THEN LEAVE komplettiere alle fuellenden sammler FI; dummy := subtext (zeile, von pos, bis pos); ,FOR i FROM 1 UPTO max indizes REP IF sammler [i] . zustand = fuellend THEN sammler [i] . index text CAT dummy; FI END REP; END PROC komplettiere alle fuellenden sammler; PROC fuelle sammler mit (INT CONST nr, TEXT CONST dazu): IF sammler [nr] . zustand = nicht angekoppelt THEN ankoppeln; sammler [nr] . index text := dazu ELIF sammler [nr] . zustand = leer THEN sammler [nr] . index text := dazu ELIF sammler fuellend (nr) THEN sammler [nr] . index text CAT dazu END IF; sammler [nr] . zustand := fuellend. ankoppeln: IF online THEN ausgabe sammler nummer FI; f [nr] := sequential file (output, dummy); copy attributes (eingabe file, f[nr]). ausgabe sammler nummer: yrichtung INCR 1; cursor (1, yrichtung); put ("Indizes"); put (nr); put ("gehen in Datei:"); dummy := datei name; IF subtext (dummy, length (dummy) - 1) = ".p" THEN replace (dummy, length (dummy) - 1, ".i") ELSE dummy CAT ".i"; END IF; dummy CAT text (nr); out (dummy); ggf ueberschreibe anfrage (dummy); cursor (7, 3). END PROC fuelle sammler mit; PROC zusatz an seitennummer (INT CONST nr, TEXT CONST zus text): sammler [nr] . seitennummer zusatz := zus text END PROC zusatz an seitennummer; PROC schreibe sammler (INT CONST nr): entferne leading blanks; IF outline modus THEN leere sammler in outline datei (nr) ELSE fuege punkte an; fuege seiten nr an; fuege zusatz an seitennummer an; fuege absatzzeichen an; leere sammler FI. entferne leading blanks: WHILE (aufgesammelter text SUB 1) = blank REP delete char (aufgesammelter text, 1) END REP. fuege punkte an: aufgesammelter text CAT trenner; IF length (aufgesammelter text) < punkt grenze THEN dummy := (punkt grenze - length (aufgesammelter text)) * "."; aufgesammelter text CAT dummy END IF; aufgesammelter text CAT " ". fuege seiten nr an: aufgesammelter text CAT text (seiten nr). fuege zusatz an seitennummer an: aufgesammelter text CAT sammler [nr]. seitennummer zusatz. fuege absatzzeichen an: aufgesammelter text CAT blank. leere sammler: putline (f [nr], aufgesammelter text); sammler [nr] . zustand := leer. aufgesammelter text: sammler [nr] . index text END PROC schreibe sammler; PROC schreibe alle sammler: INT VAR i; FOR i FROM 1 UPTO max indizes REP IF sammler fuellend (i) THEN schreibe sammler (i) END IF END REP END PROC schreibe alle sammler; (**************** Sortieren und Indizes zusammenfuehren ***************) PROC sortiere die index dateien: INT VAR i; FOR i FROM 1 UPTO max indizes REP IF index datei erstellt AND online THEN sortiere diese datei END IF END REP. index datei erstellt: sammler angekoppelt (i). sortiere diese datei: y richtung INCR 1; cursor (1, yrichtung); dummy := datei name; IF subtext (dummy, length (dummy) - 1) = ".p" THEN replace (dummy, length (dummy) - 1, ".i") ELSE dummy CAT ".i"; END IF; dummy CAT text (i); put (dummy); IF yes ("sortieren") THEN lex sort (dummy); eintraege zusammenziehen (dummy) END IF; END PROC sortiere die index dateien; PROC eintraege zusammenziehen (TEXT CONST fname): FILE VAR sorted file :: sequential file (modify, fname); INT VAR i :: 1; to line (sorted file, 1); read record (sorted file, akt zeile); akt index := before (akt zeile, trenner); down (sorted file); WHILE NOT eof (sorted file) REP read record (sorted file, zweite zeile); zweiter index := before (zweitezeile, trenner); i INCR 1; cout (i); IF (akt index LEXEQUAL zweiter index) AND mindestens ein buchstabe THEN fuege seitennummern von zweite in akt zeile ein ELSE akt zeile := zweite zeile; akt index := zweiter index FI; down (sorted file) END REP; to line (sorted file, 1). mindestens ein buchstabe: INT VAR char nr :: 1; WHILE char nr <= length (akt index) REP INT CONST char code :: code (akt index SUB char nr) OR 32; IF (65 <= char code AND char code <= 90) OR (97 <= char code AND char code <= 122) OR char code >= 128 THEN LEAVE mindestens ein buchstabe WITH TRUE FI; char nr INCR 1 END REP; FALSE. fuege seitennummern von zweite in akt zeile ein: hole seitennummer der zweiten zeile; fuege in akt zeile ein; delete record (sorted file); up (sorted file); write record (sorted file, akt zeile). hole seitennummer der zweiten zeile: INT VAR von2 := pos (zweite zeile, ziffernanfang) + length (ziffernanfang), bis := von2; WHILE digit (zweite zeile SUB bis) REP bis INCR 1 END REP; bis DECR 1; INT VAR zweite nummer := int (subtext (zweite zeile, von2, bis)); TEXT VAR zweiter nummern text := subtext (zweite zeile, von2, length (zweite zeile) - 1). fuege in akt zeile ein: suche einfuege position in akt zeile; fuege ein. suche einfuege position in akt zeile: INT VAR einfuege pos := pos (akt zeile, ziffernanfang) + length (ziffernanfang); von := einfuege pos; REP hole neue nummer; UNTIL am ende der zeile END REP. am ende der zeile: von >= length (akt zeile). hole neue nummer: bis := von; WHILE digit (akt zeile SUB bis) REP bis INCR 1 END REP; bis DECR 1; IF bis < von THEN bis := von FI; INT VAR neue nummer := int (subtext (akt zeile, von, bis)); IF zweite nummer = neue nummer THEN fuege ggf zweiten nummern text mit textanhang ein ELIF zweite nummer > neue nummer THEN einfuege pos := von; von := pos (akt zeile, ", ", bis) + 2; IF von <= 2 THEN von := length (akt zeile) FI ELSE einfuege pos := von; LEAVE suche einfuege position in akt zeile FI. fuege ggf zweiten nummern text mit textanhang ein: bis := pos (akt zeile, ", ", von); IF b?0*c36E(s130W*dx ? ~ <x*c37E(s221W,')0<``00ppx<> 8 p8?x x0p```0`pp88 <    *c38E(s201W&$% 2222222222222222222222222222333333333 3 3 3 3 3333333333333 <?p0?က ````?pp`p<*c39E(s30W 0>`0p*c40E(s114W1L@`8x*c41E(s114W1Lx8`@*c42E(s61Wd <0xǀxǀ0< *c43E(s116W *c44E(s30W0?0x*c45E(s28W  @*c46E(s22W0xx*c47E(s163W2d@??????*c48E(s126W$d?x``0000``x?*c49E(s101W#d `??`   *c50E(s131W#d?|p8ap1p8 8`*c51E(s121W$d??~@` 00p@pp@p88*c52E(s126W#d?p;*c53E(s121W%dpx?xxxx`x x0xxxxx?8?8xx>`*c54E(s121W$d?@@``000000*c55E(s131W$d?0<*c56E(s121W$d??p?`~ 000`px?*c57E(s121W$d?~p >``> x ?0*c58E(s40W 8xx*c59E(s51W !8xx*c60E(s112W pp8888pp`as3?*c61E(s66W! ppppppppppppppppppppppppp*c62E(s112W ?3sa`pp8888pp*c63E(s111W$d?x>ag?*c64E(s268W-+*p0 0 `@@@@À@@  0        @``@`@0@0?x~?*c65E(s211W&#' `?`  ? >?   ~`` *c66E(s171W#????~|x````````` *c67E(s176W!$  ?>80p`````00000000p`ppx8>?*c68E(s201W%#%??>|xp`````````` *c69E(s181W!#!0`````````````` *c70E(s161W#| `` *c71E(s206W'$&@@@`?><8`p@`@``@`@00000000ppppx<>?*c72E(s211W'#' `` `` *c73E(s96W#H `` *c74E(s121W$Xp00p*c75E(s201W%#% ``?`   ?p8   `` *c76E(s176W # 0`````````````` *c77E(s236W-#, `~` ? ~???  `` *c78E(s196W$#$?? ?  `` *c79E(s196W%$$??<8p````00000000````p8<??*c80E(s156W#x?|`` ` ` ```` *c81E(s196W%($??<8p`n`~><<<8880`p``p8<??*c82E(s196W$#$ ``??|is <= 0 THEN bis := length (akt zeile); FI; IF die beiden nummern sind mit textanhang gleich THEN LEAVE fuege in akt zeile ein ELSE einfuege pos := von; LEAVE suche einfuege position in akt zeile FI. die beiden nummern sind mit textanhang gleich: zweiter nummern text = subtext (akt zeile, von, bis - 1). fuege ein: IF am ende der zeile THEN change (akt zeile, length (akt zeile), length (akt zeile), ", "); akt zeile CAT (zweiter nummern text + " ") ELSE zweiter nummern text CAT ", "; change (akt zeile, einfuege pos, einfuege pos -1, zweiter nummern text); FI. END PROC eintraege zusammenziehen; (*********************** merge routine *********************) PROC index merge (TEXT CONST i1, i2): disable stop; indizes zusammenziehen (i1, i2); IF NOT is error THEN last param (i2) FI; enable stop; line. END PROC index merge; PROC indizes zusammenziehen (TEXT CONST i1, i2): enable stop; IF online THEN ueberschrift schreiben; FI; dateien assoziieren; i1 vor i2 einfuegen; IF online THEN sortieren; FI; forget (i1). dateien assoziieren: IF exists (i1) THEN eingabe file := sequential file (modify, i1) ELSE errorstop (i1 + "existiert nicht") END IF; IF exists (i2) THEN f[2] := sequential file (modify, i2) ELSE errorstop (i2 + "existiert nicht") END IF. ueberschrift schreiben: page; put ("INDEX MERGE:"); put (i1); put ("-->"); put (i2); cursor (1, 3); yrichtung := 3. i1 vor i2 einfuegen: to first record (eingabe file); to first record (f [2]); zeilen nr := 0; WHILE NOT eof (eingabe file) REP zeilennr INCR 1; cout (zeilennr); read record (eingabe file, zeile); insert record (f [2]); write record (f[2], zeile); down (f[2]); down (eingabe file); END REP. sortieren: y richtung INCR 1; cursor (1, yrichtung); put (i2); IF yes ("sortieren") THEN lex sort (i2); eintraege zusammenziehen (i2) END IF END PROC indizes zusammenziehen; END PACKET index program; (* PACKET columns DEFINES col put, col get, col lineform, col autoform: INT VAR ende pos, anfangs pos; FILE VAR file, spaltenfile; TEXT VAR dummy, spalte, zeile; LET geschuetztes blank = ""223"", blank = " "; BOOL VAR spalte loeschen, spaltenfile eingerichtet := FALSE; DATASPACE VAR local space := nilspace; PROC col lineform: spalte loeschen := TRUE; columns put (false); spaltenfile := sequential file (modify, local space); lineform (spaltenfile); col get END PROC col lineform; PROC col autoform: spalte loeschen := TRUE; columns put (false); spaltenfile := sequential file (modify, local space); autoform (spaltenfile); col get END PROC col autoform; PROC col put: columns put (true) END PROC col put; PROC columns put (BOOL CONST spalte loeschen anfragen) : IF aktueller editor > 0 AND mark THEN IF spalte loeschen anfragen THEN spalte loeschen := yes ("Spalte lschen") FI; editor bereich bearbeiten ELSE errorstop ("col put nur im Editor") FI. editor bereich bearbeiten: file := editfile; anfangs pos einholen; ende pos einholen; INT VAR letzte zeile := line no (file), erste zeile := mark line no (file); to line (file, erste zeile); col (file, 1); spalten put; to line (file, erste zeile); col (file, anfangs pos); mark (false); ueberschrift neu. anfangs pos einholen: anfangs pos := mark col (file). ende pos einholen: ende pos := col (file) - 1; IF ende pos < anfangs pos THEN errorstop ("Markierungsende mu rechts vom -anfang sein") FI. spalten put: spaltendatei einrichten; satznr neu; WHILE line no (file) <= letzte zeile REP satznr zeigen; read record (file, zeile); spalte herausholen; spalte schreiben; down (file) END REP. spaltendatei einrichten: forget (local space); local space := nilspace; spaltenfile eingerichtet := TRUE; spaltenfile := sequential file (output, local space). spalte herausholen: spalte := subtext (zeile, anfangs pos, ende pos); IF spalte loeschen THEN change (zeile, anfangs pos, ende pos, ""); write record (file, zeile) FI; WHILE length (spalte) > 1 AND (spalte SUB length (spalte)) = blank REP delete char (spalte, length (spalte)) END REP; IF spaltenende ist geschuetztes blank THEN delete char (spalte, length (spalte)); spalte CAT " " FI. spalte schreiben: putline (spaltenfile, spalte). spaltenende ist geschuetztes blank: (spalte SUB length (spalte)) = geschuetztes blank. END PROC columns put; PROC col get: IF NOT spaltenfile eingerichtet THEN errorstop ("Bitte vorher mindestens einmal col put geben") ELIF aktueller editor > 0 THEN editor bereich bearbeiten ELSE errorstop ("col get nur im Editor") FI; columns get; alles neu. editor bereich bearbeiten: file := editfile; spaltenfile := sequential file (input, local space). columns get: anfangs pos := col (file) - 1; spaltenbreite feststellen; col (file, 1); satznr neu; WHILE NOT eof (spaltenfile) REP satznr zeigen; getline (spaltenfile, spalte); read record (file, zeile); spalte ggf verbreitern; zeile ggf verbreitern; spalte in zeile einfuegen; zeile schreiben; down (file); IF eof (file) THEN insert record (file); write record (file, "") FI END REP. zeile ggf verbreitern: WHILE length (zeile) < anfangs pos REP zeile CAT blank END REP. spaltenbreite feststellen: INT VAR anz spaltenzeichen :: 0; WHILE NOT eof (spaltenfile) REP getline (spaltenfile, spalte); IF length (spalte) > anz spaltenzeichen THEN anz spaltenzeichen := length (spalte) FI END REP; spaltenfile := sequential file (input, local space). spalte ggf verbreitern: IF (spalte SUB length (spalte)) = blank THEN delete char (spalte, length (spalte)); spalte CAT geschuetztes blank FI; IF anzufuegende spalte soll nicht ans zeilenende THEN spalte verbreitern FI. anzufuegende spalte soll nicht ans zeilenende: anfangs pos <= length (zeile). spalte verbreitern: WHILE length (spalte) < anz spaltenzeichen REP spalte CAT blank END REP. spalte in zeile einfuegen: dummy := subtext (zeile, 1, anfangs pos); dummy CAT spalte; dummy CAT after (zeile, anfangs pos); zeile := dummy. zeile schreiben: write record (file, zeile). END PROC col get; END PACKET columns; *) (* REP index ("index fehler.p"); edit("index fehler.i1"); forget("index fehler.i1") UNTIL yes ("ENDE") ENDREP; *) >#eumel help#PACKET eumel help (* Autor: U. Bartling *) DEFINES help, bulletin, packets : (**************************************************************************) (* *) (* E U M E L - C O D E R *) (* *) (* *) (* Zur Beschreibung des Coders siehe *) (* U.Bartling, J. Liedtke: EUMEL-Coder-Interface *) (* *) (* Stand der Dokumentation : 07.01.1987 *) (* Stand der Implementation : 15.01.1987 *) (* |x` ` ` ```` *c83E(s131W$l<?8p`pp00000pp`x??`*c84E(s176W # `` *c85E(s211W'$'?``p000000ppp*c86E(s201W%$%~??*c87E(s256W0$0Ā???*c88E(s201W%#% ``?`  x?  ? 8  ` *c89E(s196W$#$ |  `` *c90E(s186W"#"p`````````````?`````??` *c91E(s76W . @ *c92E(s163W2d??????@*c93E(s76W . @ *c94E(s62Wd p>||>p8 *c95E(s41W d*c96E(s30W 0p`0*c97E(s108Wd?`  0  ~??x*c98E(s141W%lp080 *c99E(s92WX`?8 `p8?*c100E(s136W%l 00@ ` 0 0888 8 x?*c101E(s100Wd`8?x``?8*c102E(s101W$@8||0`0?0*c103E(s126W$````g|``ppppppp?pπ??q?*c104E(s141W$l00000   *c105E(s76W $ 8x0x0*c106E(s94W 0 4xx *c107E(s141W$h0p?`~0000   *c108E(s76W $ 80p0   *c109E(s136W((``00``00p   *c110E(s94Wl``00`   *c111E(s108Wl?>x`p>?*c112E(s141W$l?~``00p0   *c113E(s141W$l0p 0`p>?*c114E(s67WLp`p8 p   *c115E(s76WLp`??~|?*c116E(s72W@0 ?*c117E(s94Wl *c118E(s88W\>|?*c119E(s121W!#|?>|?*c120E(s85WX>~~*c121E(s131W#X~<*c122E(s76WX>?~>*c123E(s118W.d <??< *c124E(s37W 2d*c125E(s118W.d <??< *c126E(s44W"p8888ppppp8<*c127E(s373W233???????????????????????????????????????????????????*c161E(s250W&.' <?``````<`x`?````|``>< *c162E(s250W&.' <?`<`x```x`<``?```|``>< *c163E(s214W!.!|<~<           < x ` *c164E(s214W!.!|<~<      < x   x <   *c165E(s214W!,!~xppp`p`0``0p``0``0``0``0p``0``0``0``0``0p``0``0p`pppp`0@@@*c166E(s112W.H <xx< *c167E(s112W,H@p@@`0pp *) (* *) (**************************************************************************) (***** Globale Variable *****) TEXT VAR object name; FILE VAR bulletin file; INT VAR hash table pointer, nt link, permanent pointer, param link, index, mode, word, packet link; BOOL VAR found, end of params; (**************************************************************************) (* *) (* 1. Interface zum ELAN-Compiler 04.08.1986 *) (* 1.8.0 *) (* *) (* Beschreibung der Tabellen (-groessen), *) (* internen Vercodung von Typen *) (* und Kennungen . *) (* Initialisieren und Beenden des Compilers, *) (* Lesen aus und Schreiben in Namens- bzw. Permanent-Tabelle *) (* *) (**************************************************************************) LET begin of hash table = 0 , end of hash table = 1023 , begin of permanent table = 22784 , before first pt entry = 22784 , first permanent entry = 22785 , end of permanent table = 32767 , wordlength = 1 , (* compile u n d run time *) two word length = 2 , three word length = 3 , permanent param const = 10000 , permanent param var = 20000 , permanent proc op = 30000 , permanent type = 30000 , permanent row = 10 , permanent struct = 11 , permanent param proc = 12 , (* permanent param proc end marker = 0 , *) permanent type field = 0 , ptt limit = 10000 , begin of pt minus ptt limit = 12784 , void = 0 , int = 1 , real = 2 , string = 3 , bool = 5 , bool result = 6 , dataspace = 7 , row = 10 , struct = 11 , const = 1 , var = 2 , (* proc = 3 , *) (* denoter = 5 , *) bold = 2 , ins = TRUE , no ins = FALSE , no lst = FALSE , sermon = TRUE , no sermon = FALSE , run again mode = 0 , compile file mode = 1 , warning message = 2 , error message = 4 , point line = "..............." ; INT CONST permanent packet := -2 , permanent end := -3 ; INT VAR run again mod nr := 0 ; (***** Start/Ende *****) PROC elan (INT CONST mode, FILE VAR source, TEXT CONST line, INT VAR start module number, BOOL CONST ins, lst, rtc, ser) : EXTERNAL 256 ENDPROC elan ; (***** Hash/Namenstabelle *****) . next hash entry : hash table pointer INCR wordlength . end of hash table reached : hash table pointer > end of hash table . yet another nt entry : nt link := cdb int (nt link) ; nt link <> 0 . ; PROC to object (TEXT CONST searched object) : hash ; search nt entry . hash : hash code := 0 ; FOR index FROM 1 UPTO LENGTH searched object REP addmult cyclic ENDREP . addmult cyclic : hash code INCR hash code ; IF hash code > end of hash table THEN wrap around FI ; hash code := (hash code + code (searched object SUB index)) MOD 1024 . wrap around : hash code DECR end of hash table . hash code : nt link . search nt entry : found := FALSE ; WHILE yet another nt entry REP read current entry ; IF object name = searched object THEN found := TRUE ; LEAVE to object FI PER . read current entry : permanent pointer := cdb int (nt link + wordlength) ; object name := cdb text (nt link + two word length) ENDPROC to object ; (***** Permanent Tabelle *****) . next procedure : permanent pointer := cdb int (permanent pointer) . ; PROC next pt param : mode := cdb int (param link) MOD ptt limit ; param link INCR wordlength ; IF mode = permanent row THEN skip over permanent row ELIF mode = permanent struct THEN skip over permanent struct ; FI ; set end marker if end of list . skip over permanent row : param link INCR wordlength ; next pt param . skip over permanent struct : REP mode := cdb int (param link) ; IF mode = permanent type field THEN param link INCR wordlength ; LEAVE skip over permanent struct FI ; next pt param PER ENDPROC next pt param ; PROC set end marker if end of list : mode := cdb int (param link) ; end of params := mode >= permanent proc op OR mode <= 0 ENDPROC set end marker if end of list ; PROC get type and mode (INT VAR type) : mode := cdb int (param link) ; IF mode = permanent param proc THEN type of param proc ELSE type of object FI . type of param proc : param link INCR wordlength ; get type and mode (type) ; mode := permanent param proc . type of object : IF mode < 0 THEN type := 2769 + (32767 + mode) ; mode := 0 ELSE type := mode MOD ptt limit ; mode DECR type ; translate type if necessary ; translate mode if necessary FI . translate type if necessary : IF permanent row or struct THEN translate type FI . translate type : type := param link - begin of pt minus ptt limit . translate mode if necessary : IF mode = permanent param const THEN mode := const ELIF mode = permanent param var THEN mode := var FI . permanent row or struct : type = permanent row OR type = permanent struct ENDPROC get type and mode ; (***** Allgemeine Zugriffsprozeduren *****) INT PROC cdb int (INT CONST index) : EXTERNAL 116 ENDPROC cdb int ; TEXT PROC cdb text (INT CONST index) : EXTERNAL 117 ENDPROC cdb text ; #page# (**************************************************************************) (* *) (* 10. Inspector 15.01.1987 *) (* *) (**************************************************************************) INT VAR line number, pattern length, begin of packet, last packet entry, indentation; TEXT VAR bulletin name, type and mode, pattern, buffer; DATASPACE VAR bulletin ds :: nilspace ; .packet name : cdb text (cdb int(packet link + wordlength) + two word length) . .packet entry : cdbint (permanent pointer) = permanent packet OR cdbint (permanent pointer + wordlength) = permanent packet . .within editor : aktueller editor > 0 . ; PROC unsigned arithmetic : EXTERNAL 92 ENDPROC unsigned arithmetic ; PROC name of type (INT CONST type) : SELECT type OF CASE void : CASE int : type and mode CAT "INT" CASE real : type and mode CAT "REAL" CASE string : type and mode CAT "TEXT" CASE bool, bool result : type and mode CAT "BOOL" CASE dataspace : type and mode CAT "DATASPACE" CASE row pppp`0@p@@*c168E(s38W d`x<*c169E(s38W d<x`*c170E(s44W d<xx<*c171E(s30Wdpppp*c172E(s30Wd`pppp`p*c173E(s250W'/'x8 <x`<|*c174E(s250W'/'x8  <xx<<|*c175E(s136W$d     p ? ` 0   *c176E(s41Wd*c179E(s44W@?xx` `xx?*c180E(s208W!.  ?>80p````a333 3 ? ? 0 0p`ppx8>?*c181E(s111W#X`?8 ``````p@8?*c182E(s232W$+$?`pppp?`p ?  `` *c183E(s120W l`pppp``00`p`   *c184E(s46W $@x/_??_x/*c185E(s106W$d>|8`x 080?00xp|?|*c186E(s124Wx@x><x8888888x<x>@*c187E(s136W$d`````p~?```0```*c188E(s191W!##0`0`0`0`0`0`0```` 8` ` ``?``` ` ` ``0`0`0`0`0`0`0`0`*c189E(s136W*d?>0?@~?@~@????|*c190E(s160W.d8|`x?8 tx*c191E(s121W!d p pxx>x  *c192E(s131W$d`p< x`x`<pp?*c193E(s121W$d8 <xx<  ??*c194E(s131W$l`<0x0x<00 p*c195E(s146W$l@@@` <@x``pxp<p *c196E(s131W$d`p`x <``pp?*c197E(s121W$d8 `x<??*c198E(s131W$l``x0<000p*c199E(s146W$l@@@`` x@<``ppp *c200E(s131W$d`p ``<pxp`?*c201E(s121W$d8 <x  `??*c202E(s131W$l`00<0x0 p`*c203E(s146W$l@@@` @``pp<px` *c204E(s131W"dp??pp0`@@@p@ `p?p?<*c205E(s121W"d`0p?<`pp`p```````p``0`0``?p`?*c206E(s131W"lp?<pp``@@@@@@p``08p??*c207E(s146W"l??p??0 p  p?p???0 *c208E(s250W&0'???p?``373``p>?|~?*c209E(s86W #8   `<xx`<   *c210E(s232W%*$?=?x8x   x> x  ?ǀ?@*c211E(s261W0#10```````````` ` π <  |  x`` *c212E(s131W'd  ??p぀0`c22 2@ `b`p0?À0>8*c213E(s81W # 8` x <``   *c214E(s131W!l??p0 <  ?*c215E(s156W$#`8?x``?8?`  0  |~>> x*c216E(s250W&,'0?0pp??pp}?0p0*c217E(s76W # 8  `<x`  ` *c218E(s232W%-$p8p0000`p`````p``0000p8p*c219E(s250W'-'@@@`pp`@@p@p008pp88@8p@p@`p : type and mode CAT "ROW " CASE struct : type and mode CAT "STRUCT" OTHERWISE : complex type ENDSELECT . complex type : unsigned arithmetic ; IF type > ptt limit THEN perhaps permanent struct or row ELSE get complex type FI . perhaps permanent struct or row : index := type + begin of pt minus ptt limit ; mode := cdb int (index) MOD ptt limit ; IF mode = permanent row THEN get permanent row ELIF mode = permanent struct THEN get permanent struct ELSE type and mode CAT "-" FI . get complex type : index := type + begin of permanent table ; IF is complex type THEN get name ELSE type and mode CAT "-" FI . is complex type : permanent type definition mode = permanent type . get name : type and mode CAT cdb text (link to type name + two word length) . link to type name : cdb int (index + three word length) . permanent type definition mode : cdb int (index + wordlength) . get permanent row : INT VAR t; type and mode CAT "ROW " ; type and mode CAT text (cdb int (index + wordlength)) ; type and mode CAT " " ; param link := index + two wordlength ; get type and mode (t) ; name of type (t) . get permanent struct : type and mode CAT "STRUCT ( ... )" ENDPROC name of type ; PROC help (TEXT CONST proc name) : prep bulletin ; prep help ; scan (object name) ; next symbol (pattern) ; packet link := end of permanent table ; IF function = 0 THEN standard help ELSE asterisk help FI . prep help : object name := compress (proc name) ; INT VAR function :: 0 ; INT CONST l :: LENGTH object name ; IF l > 1 AND object name <> "**" THEN IF (object name SUB l) = "*" THEN function INCR 2 ; delete char (object name, l) FI ; IF (object name SUB 1) = "*" THEN function INCR 1 ; delete char (object name, 1) FI ; IF another asterisk THEN wrong function FI FI. another asterisk : pos (object name, "*") <> 0 . wrong function : errorstop ("unzulaessige Sternfunktion") . standard help : to object (pattern) ; IF found THEN display ELSE error stop ("unbekannt: " + proc name) FI . display : IF NOT packet entry THEN WHILE permanent pointer <> 0 REP put name of packet if necessary ; put specifications (pattern) ; next procedure ENDREP ; show bulletin file FI . put name of packet if necessary : IF new packet THEN packet link := permanent pointer ; find begin of packet ; writeline (2) ; write packet name FI . find begin of packet : REP packet link DECR wordlength UNTIL begin of packet found PER . begin of packet found : cdb int (packet link) = permanent packet . new packet : permanent pointer < packet link . asterisk help : hash table pointer := begin of hash table ; pattern length := LENGTH pattern - 1 ; REP list all objects in current hash table chain ; next hash entry UNTIL end of hash table reached ENDREP ; show bulletin file . list all objects in current hash table chain : nt link := hash table pointer ; WHILE yet another nt entry REP permanent pointer := cdb int (nt link + wordlength) ; object name := cdb text (nt link + two word length) ; IF matching THEN into bulletin FI PER . matching : INT CONST p :: pos (object name, pattern) ; SELECT function OF CASE 1 : p <> 0 AND p = LENGTH object name - pattern length CASE 2 : p = 1 CASE 3 : p <> 0 OTHERWISE FALSE ENDSELECT . into bulletin : object names into bulletin (BOOL PROC not end of chain) ENDPROC help ; BOOL PROC not end of chain : permanent pointer <> 0 ENDPROC not end of chain ; PROC write packet name : indentation := 0 ; write line ; write bulletin line ("PACKET ") ; indentation := 7 ; object name := packet name ; write bulletin line (object name) ; write bulletin line (":") ; writeline (2) ENDPROC write packet name ; PROC put specifications (TEXT CONST proc name) : put obj name (proc name) ; to first param ; IF NOT end of params THEN put param list FI ; put result ; writeline . to first param : param link := permanent pointer + word length ; set end marker if end of list . put result : INT VAR type; get type and mode (type) ; IF type <> void THEN type and mode := " --> " ; name of type (type) ; write bulletin line (type and mode) FI ENDPROC put specifications ; PROC put param list : write bulletin line (" (") ; REP INT VAR type, param mode; get type and mode (type) ; param mode := mode ; put type and mode ; maybe param proc ; next pt param ; IF end of params THEN write bulletin line (")") ; LEAVE put param list FI ; write bulletin line (", ") ; PER . put type and mode : type and mode := "" ; name of type (type) ; type and mode CAT name of mode ; write bulletin line (type and mode) . name of mode : IF param mode = const THEN " CONST" ELIF param mode = var THEN " VAR" ELSE " PROC" FI . maybe param proc : IF mode = permanent param proc THEN put virtual params FI . put virtual params : skip over result type if complex type ; IF NOT end of virtual params THEN put param list FI. skip over result type if complex type : next pt param . end of virtual params : end of params ENDPROC put param list ; PROC to packet (TEXT CONST packet name) : to object ( packet name) ; IF found THEN find start of packet objects FI . find start of packet objects : last packet entry := 0 ; packet link := before first pt entry ; REP packet link INCR wordlength ; word := cdb int (packet link) ; IF word < 0 THEN IF word = permanent packet THEN packet found ELIF word = permanent end THEN return FI FI ENDREP . packet found : IF cdb int (packet link + wordlength) = nt link THEN last packet entry := packet link FI . return : IF last packet entry <> 0 THEN found := TRUE ; packet link := last packet entry ELSE found := FALSE FI ; LEAVE to packet ENDPROC to packet ; PROC next packet : REP packet link INCR wordlength ; word := cdb int (packet link) ; IF word = permanent packet THEN true return ELIF end of permanents THEN false return FI ; ENDREP . true return : found := TRUE ; LEAVE next packet . false return : found := FALSE ; LEAVE next packet . end of permanents : word = permanent end OR packet link > end of permanent table ENDPROC next packet ; PROC prep bulletin : forget (bulletin ds) ; bulletin ds := nilspace ; bulletin file := sequential file (output, bulletin ds) ; line number := 0 ; buffer := "" ENDPROC prep bulletin ; PROC show bulletin file : IF within editor THEN ueberschrift neu FI ; disable stop; DATASPACE VAR local ds :: bulletin ds ; FILE VAR local file :: sequential file (modify, local ds) ; show (local file) ; forget (local ds) ENDPROC show bulletin file ; PROC write bulletin line (TEXT CONST line) : IF LENGTH buffer + LENGTH line > 75 THEN writeline FI ; buffer CAT line ENDPROC write bulletin line ; PROC writeline : write (bulletin file, buffer) ; line (bulletin file) ; line number INCR 1 ; cout (line number) ; buffer := indentation * " " ENDPROC writeline ; PROC writeline (INT CONST times) : IF LENGTH compress(buffer) <> 0 THEN index := times - 1 ; writeline ELSE index := times FI ; line (bulletin file, index) ; line number INCR index; indentation := 0 ; cout (line number) ENDPROC writeline ; PROC bulletin (TEXT CONST packet name) : prep bulletin ; scan (packet name) ; next symbol (pattern) ; to packet (pattern) ; IF found THEN list packet ; show bulletin file ELSE error stop (packet name + " ist kein Paketname") FI . ENDPROC bulletin ; PROC list packet : begin of packet := packet link + word length ; write packet name ; find end of packet ; run through nametab and list all packet objects . n find end of packet : last packet entry := begin of packet ; REP last packet entry INCR wordlength ; word := cdb int (last packet entry) ; UNTIL end of packet entries PER . end of packet entries : word = permanent packet OR word = permanent end . run tp`@@@*c220E(s214W!.!|<~<   `   x <       *c221E(s86W !8pp??p8p*c222E(s141W%l??>x0xp`x?0*c223E(s232W%/$??x8  <xx<  8x??*c224E(s250W&.' <?``x`<``````?```|``>< *c225E(s250W&+' `?`  `? pppp`p>?   ~`` *c226E(s131W!d?`pp` p p 0 ` p~??x*c227E(s206W%#&??>|xp`````````` *c228E(s141W%l  01@!`!0!0888 8 x?*c229E(s112W.H`x < *c230E(s112W.H <x` *c231E(s232W%/$??x8` x< 8x??*c232E(s232W%/$??x8 <x `8x??*c233E(s232W%,$??<8p`````p0p0p0p00000```p``p8<??*c234E(s131W!l?>`xpppp``pp>?*c235E(s154W/l?|p8 ?~8p <x~ *c236E(s91W$L?p8` 008?0p`*c237E(s250W'/'x8` x<<|*c238E(s232W$,$@@`px|GA@x>p0ppp?p@0ACpo~xp`@@@*c239E(s154W-X 8p??! ?pp ? 7pp?p?x?>8 p *c240E(s156W#x??|x `` *c241E(s166W0lp000p   *c246E(s41W!*c247E(s196W%$$  0   < lp<xx p?? *c248E(s196W%$$x`0 <`` p<xx p?? *c249E(s61WH?pØx8*c250E(s64WH?|`@p?*c251E(s79Wd p8@ p8@*c252E(s73Wd*c253E(s79Wd@8p@ 8p *c254E(s116W j!1AQ aq $(,049=!A1EAIQMaQqUY]aei33)s257W@.7?4\` TmsRmn (C) Copyright Hewlett-Packard Company, 1986. All rights reserved. Reproduction, adaptation or distribution of copies of this font is prohibited, except as allowed under the copyright laws. *c33E(s56W #@??????*c34E(s40W  @}}}}*c35E(s191W#%#??8@*c36E(s148W*d?? p8 8p~*c37E(s201W%#%|~??3||>?p|>`p p?~*c38E(s196W%#$ hrough nametab and list all packet objects : hashtable pointer := begin of hashtable ; REP nt link := hashtable pointer ; list objects of current packet in this chain ; next hash entry UNTIL end of hashtable reached ENDREP . list objects of current packet in this chain : WHILE yet another nt entry REP permanent pointer := cdb int (nt link + wordlength) ; put objects of this name PER . put objects of this name : IF there is an entry THEN into bulletin FI . there is an entry : NOT packet entry AND there is at least one object of this name in the current packet . there is at least one object of this name in the current packet : REP IF permanent pointer >= begin of packet AND permanent pointer < last packet entry THEN LEAVE there is at least one object of this name in the current packet WITH TRUE FI ; next procedure UNTIL permanent pointer = 0 PER ; FALSE . into bulletin : object name := cdb text (nt link + two word length) ; object names into bulletin (BOOL PROC within packet) ENDPROC list packet ; BOOL PROC within packet : permanent pointer >= begin of packet AND permanent pointer < last packet entry ENDPROC within packet ; PROC object names into bulletin (BOOL PROC link ok) : scan (object name) ; next symbol (object name, mode) ; IF type definition THEN put type definition ELSE put object definitions FI . type definition : mode = bold AND no params . no params : cdb int (permanent pointer + word length) >= permanent type . put type definition : put obj name (object name) ; write bulletin line ("TYPE ") ; writeline (1) . put object definitions : WHILE link ok REP put specifications (object name) ; next procedure ENDREP ENDPROC object names into bulletin ; PROC bulletin : prep bulletin ; packet link := first permanent entry ; REP list packet ; write line (4) ; next packet UNTIL NOT found PER ; show bulletin file ENDPROC bulletin ; PROC put obj name (TEXT CONST name) : buffer := " " ; bulletin name := point line ; change (bulletin name, 1, end of line or name, name) ; buffer CAT bulletin name ; indentation := LENGTH buffer + 1 . end of line or name : min (LENGTH name, LENGTH bulletin name) ENDPROC put obj name ; PROC packets : prep bulletin ; packet link := first permanent entry ; REP object name := packet name ; put obj name (object name) ; write line ; next packet UNTIL NOT found PER ; show bulletin file ENDPROC packets ; ENDPACKET eumel help; eck off; ;52;: 0u'H@'LPPT ":}&Q Q O XO O 8Zp0i0iXXp[ '. v'[ s p ^?-|^|^{Šk|^{Šk|^{Šk|^{Šk{Šk'x'+z^s^|^ ^|^ ^,Z @j|#eS     W ߿   Ljn߅߶do߀ߓHf}߼IJKLMNOPQ >FI; FI; . ask for password: send (order task, password code, ds) . continue or send continue request: IF autonom flag (task index) THEN send continue request to user task; ELSE continue (user task, kanal); FI; . send continue request to user task : INT VAR request count, quit; FOR request count FROM 1 UPTO 10 REP send (user task, continue code low + kanal, ds, quit) ; IF quit = ack THEN forget (ds); ds := nilspace; LEAVE send continue request to user task FI; pause (3) ENDREP; errorstop ("Task antwortet nicht"); ENDPROC link new task; PROC continue cmd by canal : access task name and password; check password if necessary; continue or send continue request; channel (order task, nilchannel). access task name and password : msg := ds ; TASK CONST user task := task (CONCR (msg).tname) ; INT CONST task index := index (user task) ; actual password := task password (task index) ; supply password := CONCR (msg).tpass . check password if necessary : IF actual password <> "" THEN IF supply password = "" THEN ask for password ; LEAVE continue cmd by canal ELIF actual password <> supply password OR actual password = "-" THEN errorstop ("Passwort falsch") FI FI . ask for password : send (order task, password code, ds) . continue or send continue request : IF autonom flag (task index) THEN send continue request to user task ELSE continue (user task, order code - continue code low) FI . send continue request to user task : INT VAR request count , quit ; FOR request count FROM 1 UPTO 10 REP send (user task, ordefrandomfinitializerandomf sysgenoffmode(b0c8dKHfPgXh`ihjpkx^03 beginprocessA priv(start8urHdummyXPUBLICJ` publicmanagerp urmanagerArchiv 'help' eingelegthelpЉds؉orderphase ordertask begincode4I( falscher Auftrag fuer Task "UR"@XUR^`0f stdanalysator eumelprintergwithelanlistingsf iselansource,gbottomlabelforelanlistingsfxposfyposP 3[Pv'|l <0ZȒ kh0010 1\szpp}3?3@3A3B3C3D3E3F3G3H3I3J3K3L3M3N3O3P3Q3R3S3T3<??8Àa???*c39E(s43W  4~~*c40E(s94W+ L`p8*c41E(s94W+ L8p`*c42E(s73WdπxHx11xHxπ*c43E(s124W"*c44E(s43W  0?~<*c45E(s28W  @*c46E(s32W 0>>*c47E(s177W2d0|???*c48E(s131W#d??x```x??*c49E(s111W"d@@@@???@@ @@*c50E(s131W"d??|xx8<?*c51E(s126W#d?@@``pp08 *c52E(s131W"d?p8w?*c53E(s126W#d??*c54E(s126W#d?`pp8<```?*c55E(s126W#d `*c56E(s126W#d???```?`?p??*c57E(s126W#d??|?~8??```*c58E(s40W 8>|>|*c59E(s61W ! 8>?~><*c60E(s108W||>>>>||??*c61E(s66W *c62E(s108W ??||>>>>||*c63E(s111W#`???|??g??*c64E(s274W-++xp  00```@ ``8` `````````p08x~??*c65E(s186W ""@@??@@@~@@@?@@*c66E(s166W"???@@*c67E(s171W #?<80p````````pp|>?*c68E(s181W""!??~x@@*c69E(s171W"@@*c70E(s156W"x@@@@@*c71E(s191W$## ?<80p` ``````px>??*c72E(s201W%"%@@@@@@@@*c73E(s96W"P@@@@*c74E(s136W'd*c75E(s201W&"%@@?@@s@?@@@@*c76E(s166W"@@*c77E(s241W-"-@@?@@~|?@@@@@@*c78E(s196W$#$???@@@@@@*c79E(s191W$##???|p``````px>??*c80E(s161W"|?``@`@``@@*c81E(s226W$+#`?@`@```??~x?????~|p|??*c82E(s191W#"#@@??@@@@*c83E(s136W#t?><xp````````?x???*c84E(s166W"|@@@@@@*c85E(s196W$#$eBR0uuh0u"~f'0u f2*0uh"~00u00u00ua'00u'00uf'00u,f00u1f''0u:f'0u#f'00u'f2*00uh0uh'2u\''2u'2u'2u'2u'2u2u2u'2u'2u'2u'2u'2u'2u'2u'2uZf''2uk''1u'0uf2uf'0ukG\'0uvkvkk'#N!N!N!N!N!N!N!N0ukfBR '!N!N '' ''''0u'0uBR6u'0u1u1u1u p^1u!3u"1u#y/  [k:&7=^u;# KF *K F&^8v!!_( #@LHa8,&q2rdk:?5-boxf( =m-gvzZincharZ incharetyZcatinputZpauseZcursorZ getcursor'bchannelZonlineZwaitforchannelhZcontrolboolZtrueZfalseintegerS[int[sign[SIGN{[abs[ABSV[min[max[MIN[MAX[minint[maxint[lastconversionok[ setconversionh errorhandling([ enablestop+[ disablestop.[iserrora1[ clearerror+4[ errormessage7[ errorcode:[ errorline=[puterrorG[ errorstopD[stop[real[[round`[floord[fra߃g! xJA&"]_lK/>0Fz ZhfZ6,p^>|y 2pFdvKJX0RwWQ8p'DOWNTOWHILELEAVEWITHTRUEFALSE::ZSBLb:=q[INCRv[DECRe+e-ZY*ge/DIV[MODf**YANDCAND\ORCORNOTb=<>>>=b<<=MAIN ENDOFFILEahbitsZXORYbitY lowestresetY lowestset#Yresetbit(Yrotate-Ysetbit[text5Y maxtextlength8YSUB^subtextHYlengthLYLENGTHYCATYreplace^change` changeallrYcompress^posYcodef yoffsetindexfmaterialf pagesprintedg oldlinefeedspoolcmdgspoolcontrolpasswordh killspoolh firstspoolQg startspoolg stopspoolh haltspoolg waitforhaltg spoolmanagerg serverchannelg spooldutyg stationonlygautostopAgenterspoolcontrolpasswordgspoolentrylinegnumberspoolentriesQg spoolstatusg servertaskg clearspool h listspool basicarchivebh archiveblocks h blocknumberh checkreadh formatarchive+h readblock1Rp1I=i8{9 @ 1`; | 0 (m1r*YB.rr7Mi`I}kZt5;'@Yf ^ -dio.5<n 2V]e  !&!!6&&&&&'X'''"(+*Q****++++02&3D3s3334}4445566666666777j7r777777777777778E=y=1?E?b?t????(@;@@@@@@@@A2A`AvAAAAA(B@BHCMCRCcCCCCDDDXEEEEEEF?FlFqF{FwHHHH(IuIIJ?JKJUJzJJJJKKKKKKK_LmLLM9M?MMMMMM8NQNXN`NhNpNwNNNNNMOpOzOOOOP+PkPPPPPQ2QQQQQRR2RRRkRsRSrTTTTUOUXUkUU!VkVV%WCW\WuWWYXXX[0\\\\.]b]]]] $%&'()*+,-./0123456789:;<=>?@ABCDEUXYZ[\]^_`abcijkmnopqstxyz{~k_lI{w{kzclypol ol d{ v{kK s*p x{,pslSy,kVp!7 !00!%01 !0$^pQpL 4 $^pL ^p^p  ^p^p0pGpUpkL$k ,k,)npkHplClGlIJylDlHlJJyp,)pGH IJ pGIHJplGlIlIJylHlJlJJylElIlIJylFlJlJJyk$qLtL|Lylyylyk$$LLLLLk0)- 1 )- 1 )- 1 )-BDT  BDTR   $4 (b|(%G@a Ght0$4 D(b|D`.0@ak4 hd-<Y[w='d[2s*:[$4Z`q-y-~  H|r&4|(b|.0@ |--.0@$4($40,$4@0 ,-@$4T(b|Tp.0@tu3_ 0 !`aKx-YZ[^tu3_K|D$4Z_H o{'4-H>*c86E(s186W #"~~*c87E(s266W/#2??~*c88E(s186W"""@@??p=@@?@@@@=@@*c89E(s186W ""@x@@@@@*c90E(s166W"????@*c91E(s88W+ T``````*c92E(s177W2d???|0*c93E(s82W + T`````*c94E(s60Wd <x??x< *c95E(s41W d*c96E(s43W  4@ ?`?p8*c97E(s108Wh?0 0?<*c98E(s141W#l??><88`` `*c99E(s96WX? `?x?*c100E(s141W#p88<<??*c101E(s96WX8?0000000?*c102E(s111W"@?@@@??@@*c103E(s131W#`p|ps@````````????*c104E(s146W"p@@???><@@@@*c105E(s81W " <@@8||8@@*c106E(s112W ,@8||8p00 *c107E(s151W"l@?@@?@@@*c108E(s81W " <@@@@*c109E(s133W''?pp08?pp08`@@*c110E(s94Wp?pp8`@@*c111E(s104Wd??xx??*c112E(s141W"p??`@p@0@ `@@@@*c113E(s141W"l@@??p@@@~???*c114E(s76WT<~xp8`@@*c115E(s80WT|xp?`?À??*c116E(s72W Dp?*c117E(s94Wp  *c118E(s85W\>?*c119E(s118W "߀|*c120E(s88W`>~>*c121E(s131W"X|???*c122E(s76WX>>*c123E(s112W+d```? *c124E(s44W2d*c125E(s112W+d ?```*c126E(s44W"||>>>~||||>>*c127E(s373W233???????????????????????????????????????????????????*c161E(s220W -"x?8080>~8|08~0`8*c162E(s220W -"x?~808~0~808~08*c163E(s202W-xx88<<>8|`8*c164E(s202W. |<<   ~    ~   *c165E(s202W,0????<<x8p8p0?00000x0x00x0000000x00080p???x?????8p00  *c166E(s112W.P ~~ *c167E(s112W,Px  008p?x?????x??8p00 x *c168E(s40W d`|>*c169E(s40W d>|`*c170E(s44W d~~*c171E(s31Wdxxxx*c172E(s30Wd8<<<||xxx8*c173E(s232W$.$p08><|<|`Y`DX{%g}XT4BCBQ7S@ vhdwW!xF3$9g2te`V333333 0.0 ** 0.0() ** 0.0 ** 0 qe5 g Passwort:PUBLICArchiv 'help' eingelegthelpfalscher Auftrag fuer Task "UR"UR#"unbekannte Anweisung (ignoriert): T5`P !#$/"-.ubir channel nr THEN check whether not linked to another channel; channel (id, channel nr); connected task (channel nr) := id; prio (id, 0); activate (id); FI; . check whether not linked to another channel: INT VAR i; FOR i FROM 1 UPTO number of channels REP IF connected task (i) = id THEN errorstop ("bereits an Kanal " + text (i)); LEAVE continue; FI; ENDREP; ENDPROC continue ; PROC task info cmd : forget (ds) ; ds := sys cat ; send (order task, ack, ds) . ENDPROC task info cmd ; PROC delete task (TASK CONST superfluous) : delete all sons of superfluous ; delete superfluous itself . delete superfluous itself : update cpu time of father ; erase process (superfluous) ; delete (superfluous) ; erase terminal connection remark . update cpu time of father : TASK CONST father task := father (superfluous) ; IF NOT is niltask (father task) THEN disable stop ; REAL CONST father time := clock (father task) + clock (superfluous); IF is error THEN clear error ELSE set clock (father task, father time) FI ; enable stop FI . erase terminal connection remark : INT VAR i ; FOR i FROM 1 UPTO number of channels REP IF connected task (i) = superfluous THEN connected task (i) := niltask ; LEAVE erase terminal connection remark FI PER ; FOR i FROM 1 UPTO highest terminal channel REP IF canal (i) = superfluous THEN canal (i) := niltask ; LEAVE erase terminal connection remark FI PER . delete all sons of superfluous : TASK VAR son task ; REP son task := son (superfluous) ; IF is niltask (son task) THEN LEAVE delete all sons of superfluous FI ; delete task (son task) PER . ENDPROC delete task ; PROC create son (TASK CONST father, TEXT CONST task name, TASK VAR new task, PROCA CONST start) : entry (father, task name, new task) ; autonom flag (index (new task)) := FALSE ; automatic startup flag (index (new task)) := TRUE ; task password (index (new task)) := "" ; create (father, new task, privilege, start) . privilege : IF new task < myself THEN 1 ELSE 0 FI . ENDPROC create son ; PROC system start interrupt : IF exists task ("configurator") THEN send system start message FI . send system start message : ds := nilspace ; INT VAR request count, quit ; FOR request count FROM 1 UPTO 10 REP send (task ("configurator"), system start code, ds, quit) ; IF quit = ack THEN LEAVE send system start message FI ; pause (3) PER ; forget (ds) . ENDPROC system start interrupt ; PROC define new station : INT CONST station := order code - define station code ; INT VAR i ; FOR i FROM 1 UPTO highest terminal channel REP IF NOT is niltask (canal (i)) THEN delete task (canal (i)) FI PER ; define station (station) ; FOR i FROM 1 UPTO number of channels REP update (connected task (i)) PER ; forget (ds) . ENDPROC define new station ; PROC change pw of all sons where necessary (TASK CONST first son) : TASK VAR actual task := first son ; WHILE NOT is niltask (actual task) REP change pw ; change pw of all sons where necessary (son (actual task)); actual task := brother (actual task) PER. change pw : IF task password (index (actual task)) = supply password OR task password (index (actual task)) = "" THEN task password (index (actual task)) := actual password FI. END PROC change pw of all sons where necessary ; (******************* basic supervisor operations **********************) PROC channel (TASK CONST id, INT CONST channel nr) : pcb (id, channel field, channel nr) ENDPROC channel ; INT PROC channel type (INT CONST channel nr) : disable stop ; channel (myself, channel nr) ; INT VAR type ; control (1, 0, 0, type) ; channel (myself, nilchannel) ; type ENDPROC channel type ; PROC erase last bootstrap source dataspace : disable stop ; errorstop ("") ; clear error ENDPROC erase last bootstrap source dataspace ; PROC set clock (TASK CONST id, REAL CONST clock value) : EXTERNAL 82 ENDPROC set clock ; PROC sys op (INT CONST code) : EXTERNAL 90 END PROC sys op ; PROC create (TASK CONST father, son, INT CONST priv, PROCA CONST start) : EXTERNAL 95 ENDPROC create ; PROC pcb (TASK CONST id, INT CONST field, value) : EXTERNAL 105 ENDPROC pcb ; PROC activate (TASK CONST id) : EXTERNAL 108 ENDPROC activate ; PROC deactivate (TASK CONST id) : EXTERNAL 109 ENDPROC deactivate ; PROC halt process (TASK CONST id) : EXTERNAL 110 ENDPROC halt process ; PROC erase process (TASK CONST id) : EXTERNAL 112 ENDPROC erase process ; ENDPACKET supervisor; . is command analyzer task : channel index <> nilchannel CAND channel index <= highest terminal channel CAND order task = canal (channel index) . send back error message : forget (ds) ; ds := nilspace ; error msg := ds ; CONCR (error msg) := error message ; clear error ; send (order task, error nak, ds) . ENDPROC supervisor ; PROC supervisor interrupt (TASK VAR command analyzer, INT CONST channel nr, TASK VAR terminal task) : IF NOT is niltask (terminal task) THEN channel (terminal task, nilchannel) FI ; create command analyzer if necessary ; IF already at terminal THEN halt process (command analyzer) ELSE send acknowledge FI ; channel (command analyzer, channel nr) ; activate (command analyzer) . create command analyzer if necessary : IF is niltask (command analyzer) THEN create son (myself, "-", command analyzer, proca (PROC analyze supervisor command)) FI . send acknowledge : forget (ds) ; ds := nilspace ; send (command analyzer, ack, ds) . already at terminal : channel (command analyzer) = channel nr . ENDPROC supervisor interrupt ; PROC order from command analyzer (TASK VAR terminal task) : enable stop ; IF is continue THEN sv cmd continue ELIF order code = system catalogue code THEN task info cmd ELIF order code = task of channel code THEN sv cmd task of channel ELSE SELECT order code OF CASE ack : CASE end code : sv cmd end CASE break code : sv cmd break CASE halt code : sv cmd halt OTHERWISE errorstop ("falscher Auftrag fuer Task ""SUPERVISOR""") END SELECT ; channel (command analyzer, nilchannel) FI ; forget (ds) ; IF NOT is niltask (terminal task) AND order code <> system catalogue code THEN channel (order task, nilchannel) ; channel (terminal task, channel index) ; activate (terminal task) FI . sv cmd task of channel : msg := ds ; msg.task := terminal task ; send (order task,ack, ds) ; LEAVE order from command analyzer . sv cmd end : IF NOT is niltask (terminal task) THEN delete task (terminal task) ; terminal task := niltask FI . sv cmd break : terminal task := niltask . sv cmd continue : sv cmd break ; continue cmd by canal . sv cmd halt : IF is niltask (terminal task) THEN errorstop ("keine Task angekoppelt") ELSE halt process (terminal task) FI . is continue : order code > continue code low AND order code <= continue code high . command analyzer : canal (channel index) ENDPROC order from command analyzer ; PROC order from user task : enable stop ; SELECT order code OF CASE nak, error nak *c174E(s232W$/$  p8  ~~> *c175E(s131W#dx~?ppppp`??80`p0`p0`p0`pp*c176E(s41Wd*c179E(s46W@?||pp||?*c180E(s202W -?<80p``acggg8fpp0|0>p? *c181E(s116W#X? ````?`x?*c182E(s232W$-$ 08??80   ?8<<<||?xxx8???0?p??<p800  *c183E(s146W"p@@??8?<><<@<||@xxx8@@*c184E(s56W #@>>*c185E(s111W#`<>|0````?>*c186E(s124Wx p|?>>>>|?p *c187E(s131W#dx~?`??80`0`0`0`*c188E(s181W "!      @|@@?@@@     *c189E(s136W)dp>c7????~~=>|*c190E(s166W+d~~x?```*c191E(s111W$dxp?088<<||?*c192E(s131W$h@``~``~`?*c193E(s116W$X>~~*c194E(s126W$d~p0000~p*c195E(s146W$p@@ ~~ *c196E(s131W#h`?|?>8 0 00?*c197E(s116W#X|`|>< 8 0 0    ?*c198E(s126W#d?`|>80`0`0``?*c199E(s146W#p`|>*c200E(s131W#h 0 00>0|09`?*c201E(s116W#X| 8 0 0 >0 |8 < `?*c202E(s126W#d?0`0`0`>0`|8`?*c203E(s146W#p>|`*c204E(s131W"hx??xp`` ` x``s??x*c205E(s116W"Xx??xxp```xpx???x*c206E(s126W"dx?<xp````xp<?x*c207E(s146W"p???x????0x  x????x???0 *c208E(s220W /"~??psw sp ? ?~*c209E(s86W#<  `~~` *c210E(s226W$)#?=x8  x <    <8x?*c211E(s261W."1?```@`@`@`|``>@@@@*c212E(s131W&h??q`0qx@@*c214E(s126W!d?y<8    <8?*c215E(s144W! 08?000000???00?<*c216E(s220W +" `?x` x ? ?x?x~   ~`` *c217E(s86W "<@@>|@@`*c218E(s226W$-#??xp8088x0000x0888px?*c219E(s232W$-$ 08??80 x ` p008x888 8x x x08?x???????80  *c220E(s202W-xx8`8|<><88*c221E(s91W! 6 . system catalogue contains entry : actual taskid in catalogue (to be erased) . user rename cmd : IF last rename was long ago THEN msg := ds ; suche kanal der task; name (order task, CONCR (msg).tname) ; update entry in connected task array ; send (order task, ack, ds) ; remember rename time ELSE send (order task, nak, ds) FI . suche kanal der task: FOR i FROM 1 UPTO highest terminal channel REP IF connected task (i) = order task THEN LEAVE suche kanal der task; FI; ENDREP. update entry in connected task array : IF kanal ist da THEN connected task (i) := order task FI. kanal ist da: i <= highest terminal channel. remember rename time: last rename time := clock (1) . last rename was long ago : abs (clock (1) - last rename time) > 20.0 . user break cmd : break order task ; send (order task, ack, ds) . break order task : IF task direct connected to channel THEN channel (order task, nilchannel) ; terminal task := niltask ELSE disconnect if at terminal but overloaded by canal FI . task direct connected to channel : channel index <> nilchannel . terminal task : connected task (channel index) . disconnect if at terminal but overloaded by canal : INT VAR i ; FOR i FROM 1 UPTO highest terminal channel REP IF connected task (i) = order task THEN connected task (i) := niltask ; LEAVE disconnect if at terminal but overloaded by canal FI PER . user continue cmd : INT CONST dest channel := order code - continue code low ; IF dest channel <= highest user channel OR order task < myself THEN IF NOT channel really existing THEN errorstop ("kein Kanal") ELIF dest channel is free OR task is already at dest channel THEN break order task ; continue (order task, dest channel) ; autonom flag (index (order task)) := FALSE ; send (order task, ack, ds) ELSE errorstop ("Kanal belegt") FI ELSE errorstop ("ungueltiger Kanal") FI . channel really existing : channel type (dest channel) <> 0 OR dest channel = configurator channel . dest channel is free : (is niltask (connected task (dest channel)) OR channel (connected task (dest channel)) = nilchannel) AND no canal active . no canal active : dest channel > highest terminal channel COR is niltask (canal (dest channel)) COR channel (canal (dest channel)) = nilchannel . task is already at dest channel : channel index = dest channel . password cmd : msg := ds ; task password (index (order task)) := new task password ; forget (ds) ; ds := nilspace ; send (order task, ack, ds) . family password cmd : msg := ds ; actual password := new task password ; supply password := task password (index (order task)) ; change pw of all sons where necessary (son (order task)) ; task password (index (order task)) := actual password ; forget (ds) ; ds := nilspace ; send (order task, ack, ds) . set autonom cmd : autonom flag (index (order task)) := TRUE ; send (order task, ack, ds) . reset autonom cmd : autonom flag (index (order task)) := FALSE ; send (order task, ack, ds) . define new canal : IF order task < myself AND channel index > 0 AND channel index <= highest terminal channel CAND is niltask (canal (channel index)) THEN canal (channel index) := order task ; connected task (channel index) := niltask ; send (order task, ack, ds) ELSE errorstop ("falscher Auftrag fuer Task ""SUPERVISOR""") FI . go back to old canal : IF order task < myself AND channel index > 0 AND channel index <= highest terminal channel THEN IF NOT is niltask (canal (channel index)) THEN delete task (canal (channel index)) FI ; send (order task, ack, ds) ELSE errorstop ("falscher Auftrag fuer Task ""SUPERVISOR""") FI . task of channel : msg := ds ; channel nr := int (msg.tname) ; msg.task := channel task ; send (order task, ack, ds). channel task : IF channel nr <= highest terminal channel THEN IF no command analyzer active THEN connected task (channel nr) ELSE canal (channel nr) FI ELSE connected task (channel nr) FI . no command analyzer active : channel (canal (channel nr)) = nilchannel . canal of channel : msg := ds ; channel nr := int (msg.tname) ; msg.task := canal (channel nr) ; send (order task, ack, ds). set automatic startup cmd : automatic startup flag (index (order task)) := TRUE ; send (order task, ack, ds) . reset automatic startup cmd : automatic startup flag (index (order task)) := FALSE ; send (order task, ack, ds) . is continue : order code > continue code low AND order code <= continue code high . new task name : CONCR (msg).tname . new task : CONCR (msg).task . new task password : subtext (CONCR (msg).tpass, 1, 100) . new start proc : CONCR (msg).start proc . is define station : order code >= define station code AND order task < myself AND order code <= define station code + max station no ENDPROC order from user task; PROC link new task: INT VAR kanal := channel (order task); IF kanal = nilchannel THEN errorstop ("link nur ""online"" zulssig"); FI; access task name and password; check password if necessary; continue or send continue request; channel (order task, nilchannel); send (order task, ack, ds); . access task name and password: msg := ds ; TASK CONST user task := task (CONCR (msg).tname); INT CONST task index := index (user task); actual password := task password (task index); supply password := CONCR (msg).tpass; . check password if necessary: IF actual password <> "" THEN IF supply password = "" THEN ask for password; LEAVE link new task; ELIF actual password <> supply password OR actual password = "-" THEN errorstop ("Passwort falsch"); ile number) nder name; (*sh*) QForts.von letzter (WJtype:1.1linefeed:3.1limit:4.1free:5.1page:6.01pagenr:8.2pagelength:9.1 foot:10.0end:11.0head:12.0headeven:13.0headodd:14.0bottom:15.0bottomeven:16.0 bottomodd:17.0columns:18.2columnsend:19.0topage:20.1goalpage:21.1count:22.01 setcount:24.1value:25.01on:27.1off:28.1headon:29.0headof|?*c224E(s220W -"x`?|>8080~808~08*c225E(s220W ,"0?8?0<<<p|?`|px`xpx`8p`?p?0p0*c226E(s131W#h8?8*c230E(s112W-P8>|8`*c231E(s226W$.#?`x8|>     8?*c232E(s226W$.#?x8    > | 8`?*c233E(s226W$-#??p880<88<0<0|0|0x0x88x88p?*c234E(s126W#d?8<<8<0`|0`|0`x0`x8x8?*c235E(s160W.t?xp?8| ?     ? |p 88??*c236E(s96W$T~p|? p0000??0|`p*c237E(s232W$.$p`08|><<|*c238E(s220W ," 08>??0 xx  0p?x x !?p?0?x?????>80 *c239E(s154W,X 08x?? ?x  x#???`?px??>8  *c240E(s161W"|@@@@@*c241E(s166W,p???<88 00*c246E(s41W *c247E(s196W%#$<<< <<x <<|xxx>`    *c248E(s196W%#$ sx0@xxx>`    *c249E(s64WHÜ~~?@`x>@*c252E(s73Wd*c253E(s79Wh@>x@`>x`*c254E(s124W"o!1AQ aq $(,049=!A1EAIQMaQqUY]aeimW3X3)s257W@/;?4\Z TmsRmn (C) Copyright Hewlett-Packard Company, 1986. All rights reserved. Reproduction, adaptation or distribution of copies of this font is prohibited, except as allowed under the copyright laws. *c33E(s86W#C@@3p?8@ ?x?@`` 000@0`p0p~*c39E(s32W 0<`p0*c40E(s112W.L@`8?8?*c41E(s112W .L>?|p*c42E(s70Wd pp *c43E(s116W *c44E(s32W0>`0x *c45E(s28W  D0*c46E(s22W0xx*c47E(s261W2#d>>>>||@*c48E(s131W$d?p``x0>00?*c49E(s116W#d  ? 0 0 0`0?`` *c50E(s136W#d ?|xpp08a 1 ` *c51E(s136W$d?x `@``0 000 0pp*c52E(s136W#d?`0`a1*c53E(s141W$d>>@|`<| 00x0pp*c54E(s131W$d@@`00  ` 0000?`*c55E(s141W$d|>?xp*c56E(s136W$d?x<` ?`00`x?` 000p~*c57E(s131W$d?x`|<@pp<` 0*c58E(s49W  8xx<~~~~<*c59E(s68W 8xx?~0~< *c60E(s112W pp8888pp`as3?*c61E(s66W! ppppppppppppppppppppppppp*c62E(s112W ?3sa`pp8888pp*c63E(s111W#\?>x?*c64E(s268W-+*p0 0 `@@@@À@@  0        @``@`@0@0?x~?*c65E(s201W#% `?W` p 8  s?p8   ` *c66E(s181W#!??>`````````` *c67E(s181W"$!?<p` `````0`0p00080<0pp??*c68E(s206W"#&???<xp>```````````?` *c69E(s191W##`80```````````?` *c70E(s186W#"|0 ` *c71E(s196W%$$ > ? 0<8?0?`?`?@?   `p00`0`0p08080p`?*c72E(s236W)#, ``    ` *c73E(s131W#L `` *c74E(s146W$L0*c75E(s216W$#( `?`0  ?   `?` *c76E(s181W#!`8`````````````?` *c77E(s261W-#1  `x` p < p<~_/   ?` *c78E(s226W'$*????   `` *c79E(s191W$$#??|p`>````0p00080000p`*c80E(s181W#!x?? ?`??` *c81E(s226W$-#??|p```>0088xxx`x```0p00181119}o`0*c82E(s186W#"  ? `? ?`??`  *c83E(s141W$l<p``?`p`0x?0?0?00p`?*c84E(s171W!#| `?`   *c85E(s196WtartmessageD&8firstsonH actualtask2Pchangepw clockvalueؔprivfieldvalue}& deactivateuell supervisorsXmaxnumbertoken8P3000h maxnumberyposG#`1000TOKENbreitevmodifikationenmodifikationenfuerxmove offsetindexnaechstertokenindex blocktokenYPOS5#ؔvorherigeryposindex"naechsteryposindexerstertokenindexletztertokenindex( TOKENLISTE tokenliste yposliste0ds#@ tokenspeicherH offsettokenbendcbreakbcontinueb renamemyselfb taskpasswordb setautonomb resetautonombsetautomaticstartupbresetautomaticstartupbsyscatc globalmanagerPeALLc beginpassword%ccontinuechanneleerase1efetch5cfreeglobalmanager8c freemanagercmanagermessagecmanagerquestionQesaveQc stdmanager fontstored fonttableclistfonttablesod listfontsdxstepconversionWdystepconversionconstringc offstringdfontc fontexistscnPersteryposindexaXletzteryposindexag$`ersteryposindexdhletzteryposindexd$p yposindexx yposindexf# yposindexa yposindexd tokenindexttf(yyf8yayd#ȕloeschedruckspeicherdЕdruckspeicheristnichtleer:)ؕloescheanalysespeicheranalysespeicheristnichtleer&anweisungszaehleranweisungsindizesX params1zeiger params2zeigerparams1params2loescheanweisungsspeicher0hoechsterindexzaehler(8letzteindexbreite"@ xch[decimalexponentl[setexp[maxreal[ smallreal datehandling[date[time[ timeofday[month[day[year[hour[minute[second\commanddialogue[say\yes\no \ paramposition\ lastparam\std[QUIET\quietthesaurushandling"\ THESAURUS-\emptythesauruseinsertpbdelete\renameB\CONTAINShlinkbnameQ\decodeinvalidchars~aget\\ highestentry= localmanagers\createw\new\old,cexistsposvorindexHzeilenposnachindex(P grossefonts'Xindexverschiebung`loescheindexspeicher(ploeschehoehereindexlevelmaxtabs`)TABELLENEINTRAG\(tabtyp$ tabposition$tabparamYtablisteF$fillcharu)Ȗdstrings_%ؖ tabspeichertabindex anzahltabsloeschetabellenspeicher( markindexl0 markindexrr8altermarkindexl'@altermarkindexr"P marktokenXmarkierunglinks`markierungrechts;"hloeschemarkierungxloeschealtemarkierunginitialisieremarkierung durchschuss1& durchschuss2anzahldurchschuss1hanzahldurchschuss zeilenzaehlerwechsel_&ȗ durchschussA*neuerdurchschussanzahlrestl$+loeschedurchschuss_" initialisierungHelanlistingserlaubt,'PeingabeX elanboldshPACKETpPROCxOPxLETROW STRUCTTYPEmBOUNDINTREALBOOLTEXTȘIFИREPؘFORWHILESELECTflag(file0openpexecutea( lesezeilea covertracks advertisingaeumelmustadvertisetasksaTASKaPROCAbniltaskb isniltaskb existstaskb supervisor!bmyself$bpublic'bproca -b collectorN0baccess ctask``0000000pp*c86E(s191W%$#p8xp8W*c87E(s251W1$/p<p<T8pUW<8p8**c88E(s231W%#+ `p8?`? p 8  ``` *c89E(s191W###|x< ~  `` *c90E(s191W!##`8``?```````?`````|` *c91E(s148W.T???| *c92E(s93W2 d/_@*c93E(s142W.T??| *c94E(s62Wd p>||>p8 *c95E(s41W d*c96E(s32W 0`p0*c97E(s88Wh 0 ?>`0`p 8 *c98E(s126Wlength:29.1start:30.2table:31.0tableend:32.0clearpos:33.01lpos:35.1rpos:36.1cpos:37.1dpos:38.2bpos:39.2textbegin:40.02textend:42.0z --> begin ("")ESC c --> continue ("")ESC q --> break2ESC h --> halt2ESC s --> storage info2ESC t --> task infogib supervisor kommando :.01pagelength:29.1start:30.2table:31.0tableend:32.0clearpos:33.01lpos:35.1rpos:36.1cpos:37.1dpos:38.2bpos:39.2textbegin:40.02textend:42.0indentation:43$h   ` 0C@?@0??*c99E(s76WX8| 0 `p8<>*c100E(s146W$hA@`@ 9 ``p~p??*c101E(s76WX<~ 0 `0`0`0<?*c102E(s178W/*c103E(s141W#TpppÀ@`p`~>`?```{*c104E(s141W$l``@0 g@@? *c105E(s76W $ 4x x@`*c106E(s130W /8x||0>>*c107E(s146W$d@`p`0G@@ *c108E(s81W $ 4o@@`@`*c109E(s130W$&0| ``0> p``0> p@@@>*c110E(s91Wl0| ``0 pg@@@>*c111E(s85Wh?p<`p8<*c112E(s166W"h?<``0@g@@@@@@@*c113E(s141W"d?@`@@c0?@` p @8@@@*c114E(s70W@pp0`g@@~*c115E(s70WH~p@??*c116E(s68W  8q?`0*c117E(s88Wl`0 >`0 g@@@~*c118E(s79WXx`p`0x`@@*c119E(s109W~p8 `0?8`@@*c120E(s88WT`0` 0`@0@@@*c121E(s136W"P|p``8 /p8 p`@@*c122E(s82WP`p`x8|vsp ``0|< *c123E(s148W.dx?_x>  *c124E(s37W 2d*c125E(s148W.d@F`x>??x *c126E(s44W"p8888ppppp8<*c127E(s373W233???????????????????????????????????????????????????*c161E(s238W.%T |`8` `````p`8```p<|< *c162E(s250W .'<xT x<8` `````p`8```p<|< *c163E(s226W.# |<<|80 0 `0 0 0 0 0    ? ?| *c164E(s226W.# <|x<<x<80 0 0 0 0 0 0    ? ?| *c165E(s226W+#`p8p0p````p```````h restaufzeilepbestimmeeinrueckung/xzeilenochnichtganzgedruckt teillayout(bestimmezeilenteil.bestimmelaenge# zeilenteilBlaengeا+#elantextcatblanksU.keinezeilenmehr@'param0.0 typ%8sucheneueneintrag@sortiereneuetabpositioneinHneuetabposition,Peventuellerparameter0 PROCEDURE' OPERATOR/pre>postgenerierestrukturierteslayout0behandlefuehrendeblanks8pruefeobmarkierunglinks+@analysieretabellenzeileHanalysierezeilenachabsatzzeilexPanalysierezeilenachblockzeileXpruefecenterundrightmodus/`pruefeobtabulationvorliegthwerteindexspeicheraus*pzeileistkeineanweisungszeile/xberechnezeilenvorschubpruefeobmarkierungrechtsbehandleanweisungszeiletestaufaufzaehlung#analysiereblockzeilenachabsatzzeile$analysiereabsatzzeilenachabsatzzeile"analysiereblockzeilenachblockzeile+)#analysiereabsatzzeilenachblockzeile'neueeinrueckungbehandleleerzeilegȩinitialisiereanalyse)Щlaengederzeile"ةlinkesmarkierungstokenQlegemarkierungstokenanlegefuelltokenanwennnoetig&linksbuendigespalte=rechtsbuendigespalteK"zentriertespaltekdezimalespaltegeblocktespalteberechnefuelltokenwennnoetig tabulation(analysiererestderzeile0 stringbreite18 legetokenan@berechnefuelltoken&Hloescheletztetoken.PanzahlfuellzeichenX fuellbreite` fuelltexthloescheletztestokenp(bestimmetokenbisterminatoroderzeilenende'schreibezeilerechtsbuendigpzentrierezeileЫzeichenistdezimalzeichen-xblockespaltewennnoetigdehnbaresblankgefunden1&letzteszeichenistkeingeschuetztesblank blockezeile{*8aufzaehlungmoeglich|%@bestimmeletzteszeichenHanzahlzeichenbeiaufzaehlungPletzteszeichenX.);`tabulatorpositiongefunden&htokenisttexttoken"*analysiereblankinblockzeilenachabsatzzeileverschiebetokenyposw1Ȯ rechterrandخschmalerschrittW,breiterschrittranzahlbreitesqa]]]M eumel help.a>f chritteblocketokenxpos/( zentrierposverschiebetokenxpos rechteposanalysiereblankQ+anweisunggefunden,analysieredstring)erweiterunggefundenF+ terminatoroderzeilenendegefundengegebenfallsneuestokengefundenanalysiereanweisung4pbestimmeanweisungxanweisungistkommando'anweisungistkeinkommentar]werteanweisungausanweisungsende ersteszeichen,anweisungsanfang1 typeanweisung!Ȱ onanweisung%а offanweisung3ذ ubfbanweisung4 uefeanweisung:centeranweisungrightanweisungKindexanweisungh)endindexanweisung  bspanweisung markanweisungmarkendanweisung speichereanweisung(rufeanalysator8nichtinnerhalbeinesindexes4Pu91Xb#` grosserfont)hgrossefonthoehepgrossefonttiefe4x kleinerfontverschiebungfuerkleinenfonth+verschiebungfuergrossenfont5merkeindexwertePROZENT"506neuesindexlevel'altesindexlevelf-doppelindexgefundenȱschalteaufalteindexwertezurueckбberechnedoppelindex0"ر breitedavor%breitedahinter# zeichendavor7zeichendahinter+ #vertauschezeichenlegetokenfuerzeichendahinteran.(neuemarkierung28altexpos"@alteypos5HanalysatorbreiteKPanalysatorhoehe&Xanalysatortiefex`analysatorfonthanalysatormodifikationenp a1-> ,xholetokenderanalysetokennr" tokenfont- tokenxpos" tokenypos3tokentypW! fontchanged tokentext;& a2-> Ȳfontnrز neuerfont7prozent,wert99+100u7 markindex+(string!8summexP tokenanfangX tokenendepanfangxneuertokenindex6uebertragetoken$ legeoffsetsan*$гmarkfontoffsetsf*س markoffsetsoffsetsl. anzahloffsets ersteyposneuestokenbeigleicherypos .fuegeneueyposeinV# erstestokenbeineuerypos(richtigeyposistoberhalb.0richtigeyposistunterhalb08fuegeyposvorerstemyposindexeinm*@neuestokenbeineuerypos`3HfuegeyposnachyposindexeinP fuegeyposnachletztemyposindexeinXfuegeyposvoryposindexein1 loescheypos-kettevorgaengerum_.kettenachfolgerumbestimmeletztenyposindexdehnung1dehnung2anzahldehnungenfuerdehnung1ȴdehnungдanzahldehnungenشerhoehetokenxposbeiblocktoken verschiebungl"$sortiereneuetokeninsortiertelisteein7sortiertelisteistleer gehezumerstenneuentoken3(bestimmeersteeinsortierpositionY90esgibtnochneuetoken8(haengeneuetokenansendedersortiertenlistey@naechsteyposdersortiertenliste.HneuestokenaufgleicheryposPneuetokenvorypos5Xersteneuetokenvorlistenanfang>$`verketteletztesyamityd8hverketteyamitydpverkettevorherigesyamitydxverketteyamitvorherigemydmaxypos+gehezurerstenyposdrucketokenbeiypos 8ȵgehezurnaechstenyposеloeschegedrucktetokenصdruckdurchgangboldpass fettdurchgang underlinepassunterstreichdurchgang4ymove8gehezumerstentokendieserypos@ drucketokenHkeintokenmehrvorhanden#Ptokenpasstinzeile)Xberechnetokenteil@`fontwechselwennnoetigh"xmovemitmodifikationsueberpruefungpgibtexttokenaus28tokenistlinientokengiblinientokenausa gibkommandotokenaus,8ziehehorizontalelinie6 fuenfpunkte/tokenpos tokenbreiten; anzahlpunkteB% zeichenlaenge7 zeichenbreite\!berechnetokenteilvonlinksc7 berechnetokenteilnachrechts7( berechnetokenteilbreitevonhinten(0naechsteszeichenpasstnochdavoro18berechnetokenteilbreitevonvorneR@!naechsteszeichenpasstnochdahinterHgibcraus&PgibtokennochmalausX"schaltemodifikationenauswennnoetig`minverschiebungpschalteitalicseinwennnoetig7xxmovewennnoetig"schaltemodifikationeneinwennnoetig:lxposunterstreichetoken7tokenmussunterstrichenwerdenR;ȷberechnexmovelaenge>+зberechneunterstreichlaenge fontwechsela88schaltemodifikationenein/-hschaltemodifikationenaus;xmove" ziehehorizontalelinienachcr0fuehrexmovenachcraus\7ȹgibcrbeixmoveausmodifikationsbit0#modifikationmusseingeschaltetwerdenغ#modifikationmussausgeschaltetwerdenfontwechselnachcrf( tokenlaenge altetokenpos*ȻgibtokenrestausG*лgibtokenteilausػgibersatzdarstellungaus1 ersatzdarstellung18geberestlichetokenaus@seitenendekommandoxxwantedlz,ywantedl; eroeffnedruckseitenanfangkommando+initialisiereneueseiteȼ difleftmarginNм diftopmarginIؼ fussoderkopf:HelanfussPelankopfXymovezurfusszeile&`druckeelanfuss4h closepagecmdseitennrȽ openpagecmdsнymovezurkopfzeileY)ؽdruckeelankopflinkerrandwennnoetig giblfausxtau eumelprintern?` *c166E(s160W.L<xx<??< *c167E(s160W+Lppp p`` *c168E(s38W d`x<*c169E(s34W d|`*c170E(s44W d<xx<*c171E(s30Wdpppp*c172E(s30Wdp08888ppppp0*c173E(s232W'/$??p8| `|?*c174E(s232W'/$?<?xpx8<  |?*c175E(s146W$d8|`x? ` 0 0`*c176E(s41Wd*c179E(s44W@?xx` `xx?*c180E(s214W".!?<p` `````0`1p3038; <? s p ??*c181E(s116W"X8| 0 ?`9p8<0>*c182E(s268W'-*@@@``|@@p@0@8888ppp?pp0s`?@@?00*c183E(s141W"l p?0?8?8?888pp ppp00`>0???*c184E(s86W $x008<00*c186E(s124Wx@x><x8888888x<x>@*c187E(s146W$d8|`x?? ` 0 0`*c188E(s201W$#%000000x080 000 p   `000`0 0 0 0 00000*c189E(s154W)d~~?p0?17a??? =x~8*c190E(s160W.dp@p?x 4|x0*c191E(s116W$dp`>0>  > |>?*c192E(s136W$h `<`x x3<  ``p?*c193E(s121W$X<x <x@<`  0000pp?*c194E(s131W$h<x ? x< ` 0000?*c195E(s136W$l`<`x?xs< ``p*c196E(s136W$h ``x`< 3``p?*c197E(s121W$X`x< <@` 0000pp?*c198E(s131W$h`x< ? `0000?*c199E(s136W$l``x`<?s  ``p*c200E(s136W$h ``3|  ```p?*c201E(s116W$X <@|`  0`000pp?*c202E(s131W$h? | ` 0`000?*c203E(s136W$l``?s| ` ``p*c204E(s136W!h`|p ??p`@@@@p`0`0 8p*c205E(s121W!Xp?pa @@p@0p`00p *c206E(s131W!hp?8p``|@@@p``08p?*c207E(s136W!l0pp~ p?p`0 p`~??À3 ?  ?*c208E(s256W!0(?p``007U3`ap?8*8x8q?*c209E(s96W$4<x x<@`*c210E(s226W$+#???p<p8p < 8?||`*c211E(s281W.#5`80```````````?` p 8 `   < p <`` *c212E(s136W&h?`p0`a1322?`b p?`00x~?<*c213E(s96W$4`x< @`*c214E(s131W#h?;xp0p~<? *c215E(s118W!"< 0 ``@0`08?0`p <*c216E(s250W +'p p `?pW` pp 8  s?p8   ` *c217E(s81W $ 4 |@``*c218E(s226W$,#? 2 )- 1 kLLyly<0<-p`< < pk$=$>k$?$@k=0=mp`=D  `=D  `=D  `=D  =@p k 0zp\ p0p\ p\ k$  (p*  By Dy+  p*  By Dy+$pk$$$$$kGTEFT"TU$j$m$    %E%H%\%d%g%`  pk k( p,kl yly(plp!pl z  0kl yly(DplDp Fp l(z  (kl yklydpk ykp my:)zp ykp ymEzml Hz, p6p, plmymGzQQm)6!p6#p-pmGzQ$pk  kL 4kL% !%$Np(Py8Ry:QyO))pLOllO:(Ty kN  kM  k= k'=e $4"2 t'  /~~@ -o.=|C  {')4!1'4 0  { '$)ȋ2^_P"2 fi{gh'd >Ad p_l ' 0"2 7t' &b-eib << x-<eiwЋo.=|(b  kM  k 0kK!i%L=$j %limjm $o4{l4OmJyOmml{OmYm{Om4{Om6{464Om8{48@ $ $$ *jlj!l44lo*i4l6{464Iy*4Y4)4Yki!k4*k6464*4YDo,{i1,pkk4i!44*4Y440p)HY6kk8,8868pkk4,44*4Y440pkk4i!44*4Y4Ho44Iy401*4n4lIy 44  4444ll y 44ll(y4(**o@44424p,3,oSylN \m 6H44)@4o!444lN6L44(6plll0@y40 6S44mEz(mGz-T3p ))p6R44Bp6S44EmEzml Hzml HzQp)@4o!444d( _p1dlNVomXo* $ $6S44mEz(mGz-Tp )vpQpVoml*$ m)p, pQTm)pMml Hz, p)@404plNp)@4o!444lPVoml*$ $6S44mEz(mGz-Tp )p0 644mEzLMmGzQQTp'440p\01 |.0@e.0@ab  P< $4$   &wЋ4o.=|P(b|&\.0@Vh.0@ aJ40>TU?p$410||$4:?|7.0@1./ 4&-o'y@.0@-(b|$4(8W&4 r&4|8(b|(D&MO(b|1`.0@+*\o.=|\$4.p4|.0@@-|-qrsvyzxt$$|Фo$4rx4'V4$s*:4-<-8$BYO$4(b(wl.0@ ! $|8.0@$-  ! <$(Hr&4|ly1AA|\ x.0@|}g$$ 4)4&-oc'yc$yu'y2-|w -$44;|pQ]p )lll0@y40 p, ;p-T;p)@404'plN6p)@4o!4446L(0OYoml*plll0@y40 p0 ylll0@y40 644mEzLMmGzQqpQTlp'440np\01 vpQ]vp )\pp644mEzLMmGzQpQT MmGzQpQTp'440p\01 pQ]p )p)plll0@y40 plll0@y40 40*5S504 44S14p40IQ:Q44V504 4444V14V%S!Q44.504 44.4504 4.Q.4440488м..p.p504 4.Q.4441Q440.QQ1SIpO 44ll0y40b40 40*V44+O)@404 lN'44Nlll,ysE4FT4%  %lkm{llm{lpm{lom{4Lq%~mNytmNyumNyr%s%s I'FG%yxl2  큘m ,(h>)kmlmMIJ44tpIJ44ux1ypIJ44tl]0p\01(Lkm(Mp( L GKm2 ,>CpCx1ypImD*q4*4,t*6%x-,|*66,|*6l68y80p\01&q,*66',*6l68y80)p\01%qlmxmJymwm{qxyk!m66qrq,|*66Q,|*6l68y80Sp\01%qm6{6Iq,|*66n,|*6l68y80pp\01%qmpm{q,|*66,|*6l68y80p\01%q5@LPl@8ky8P88L8888lGjy8P886jy6GHq,|*66,|*6l68y80p\01̸q)px1y(qLumNyqs IumNyq,|*66,|*6l68y80p\01%qmom{q,|*66,|*6l68y80p\01%pmkm{,*66 ,*6l68y80"p\01%mlm{%  ,|*66B,|*6l68y80Dp\01%mm{<56*6-60<6,<8`80101vp,<8`801ll<(y <Sp,|*66,|*6l68y80p\01%,t*6,*88,*8l88y80p\061',*66,*6l68y80p\01%,|*66,|*6l68y80p\01%,*66,*6l68y80p\018]y8Ȕ,*66,*6l68y80p\0n1'p,|*66,|*6l68y80 p\01p[ Z?=@>p[ Z?=@>,|*66H,|*6l68y80Jp\016Ay,*88_,*8l88y80ap\018]y88{68pZ [=?>@ p,|*66,|*6l68y80p\01%pmm{!q66r qp,|*66,|*6l68y80p\01%pmm{1tp Ip 6-ppppppppppp pppppppppp4w?w\wwwwwwww)+.0yyyy#p-pkpvpp* ))pLllk m]yKydKpk mAyKyp0pk`p!ppm{<5*-0<Zp,<`Ap,<`Wll<'yep <-pl&y5*-<,<` ,<`,<`pl yp ]y { p\p  (pppppppppppppppppppppppppppppppppppppppppks I\%pw ry  k  g  lp$k1  lll0@y40 40 4050 p40 pk lmy40$k$hQ:QQ )1pY ZQ)pG\IH\5I%Kp0=x`=D`=D r! l=8`aD!rbc% yp 0>`>Drpl>850мp%p)p)%p`)p5p5SQ!VV T)TZrDH%F KG LX%GIHJ@CAD$E$F)paD!rbc% 0 0=`=D`=D r!p?|p`p>p```p`0p00080000p`*c219E(s232W',$pp>p``00p00000pp*c220E(s226W.# `x|<<<80 0 0 0 0 0 0    ? ?| *c221E(s96W!4pp`| p?7 p  *c222E(s196W.l?|`0`x>?? <<*c223E(s226W$/#?< ?xxp<8   ?|*c224E(s250W .'`x<T 8` `````p`8```p<|< *c225E(s256W!,(p08888P0p?pppp00p8q98p0*c226E(s136W"h0> p?0?8880?8 p p πp pp0p0 0?*c227E(s206W"#&???<xp>```````````?` *c228E(s161W$hAA`A9 ``p~p??*c229E(s160W.L`x<??< *c230E(s154W.L|`??< *c231E(s226W$/#?`x ?<p8  ?|*c232E(s226W$/#??p|8`  ?|*c233E(s226W$-#p0>88808p8`p`p`p`p``p`p0`0000880p??*c234E(s131W"hp0888080>p p p p0p00@@@?*c235E(s184W/l`0<?8x?  ~ 8*c236E(s126W$H`0<8 p?000`p*c237E(s232W'/$`?x?<p8 |?*c238E(s226W#+#|ppx<p ~  p`` *c239E(s166W+Pp>px800pp8@80 *c240E(s171W#t??  `` *c241E(s196W.d?   `00A@?0@ ? *c246E(s41W!*c247E(s181W"$!gp<pX8ppx~??00< *c248E(s181W"$!8`` `p`<```@`p ` ppx~??00< *c249E(s70WP0700@0`00080~00*c250E(s67WP0000000@`0<0000*c251E(s76WT`8`8*c252E(s73Wd*c253E(s76WTx<8px<8p*c254E(s116W 80RPN.R8PHV100RPN.R8PHV100BPN.R8PHV100IPN.R8PHV080RPN.R8L HV100RPN.R8L!HV100BPN.R8L"HV100IPN.R8L#TR080RPN.R8P$TR100RPN.R8P%TR100BPN.R8P&TR100IPN.R8P'TR080RPN.R8L(TR100RPN.R8L)TR100BPN.R8L*TR100IPN.R8L+HV120RPN.R8P,HV120BPN.R8P-HV120IPN.R8P.HV120RPN.R8L/HV120BPN.R8L0HV120IPN.R8L1TR120RPN.R8P2TR120BPN.R8P3TR120IPN.R8P4TR120RPN.R8L5TR120BPN.R8L6TR120IPN.R8L7"1"FRANK8*TR300BPN.R8PTR140BPN.R8LTR180BPN.R8LTR240BPN.R8LLP120R12.PLLHV140RPN.R8PHV140IPN.R8PHV140RPN.R8L HV140IPN.R8L TR140RPN.R8P TR140IPN.R8P TR140RPN.R8L TR140IPN.R8LHV140BPN.R8PHV180BPN.R8PHV240BPN.R8PHV300BPN.R8PHV140BPN.R8LHV180BPN.R8LHV240BPN.R8LTR060BPN.R8LTR060IPN.R8LTR080BPN.R8LTR080IPN.R8LHV080RPN.R8PHV100RPN.R8PHV100BPN.R8PHV100IPN.R8PHV080RPN.R8LHV100RPN.R8L HV100BPN.R8L!HV100IPN.R8L"TR080RPN.R8P#TR100RPN.R8P$TR100BPN.R8P%TR100IPN.R8P&TR080RPN.R8L'TR100RPN.R8L(TR100BPN.R8La !&YqYq&&&Yq,M&"1"FRANK%&a (2.0,2 !ype ("helv1  AWALTSBRO F U2 - pe ("helv8  apos (0.0)## #table# 11ORIAN FRANK$ elassen be%'Fottom# elv6q+linie (201)! pe ("helv8" nheim und  l=8`aD!rbc% p )bq))#p\+p()p]]+p^]Q Rr D<5*-0<\q,[Lmfm5Q _gQ!m_ml6hG HaD!rbc% ,<`,<`rD,<`b 0 0,<`/ 0,<`.,<`lmy0 . d`de`d4  0`de d%,<`/7QQ,<`D!r  ),<`rD,<`b 0p],<`rD,<`b 0Q1S^pQQ8yQ!0 оv,<`-]pT Q WDG H)Kc %Kp (ppppppppppppppppppppppppppppppppppppo,pg)Fh-:g pXU` pb! r * fXU` pb! r + f|Emmy)fg ph 0pEXU` pMXU` p g-`7XU` p*| XU` p XU` p  ph pg pEp?p>pg%Q R:QQQ)TpSQQ!RT <:w]%R Q 0))h)lp\tp(rp]]tp^] 0Q1S|p`1ppXU` p 0pXU` pXU` p50pppLT!V0-T!V2-TT!V06qpQQ8Q R:QQQ)pSQ`1Q _Q!m_ml6Q!RT)TZrDG H)paD!rbc% p)pT Q WDG H)c %)tp 0Q1S%pm-pQQ8iQ R:QQQ)ApSQp`1NQ _Q!m_ml6Q!RT)TZrDG H)paD!rbc% pT Q WDG H)c %p] 0Q1S|pQ R:QQQ)pSQvp`1Q _Q!m_ml6Q!RT)TZrDG H)vpaD!rbc% vp)p))p\p(p]]p^] 0Q1Spm-pT Q WDG H)c %p))p\p(p]]p^] 0)p*p.)ppm/(h#XU` XU`   D1 #G HQ _Q!m_ml60W0Qp,I,O,,D!,IyD*p,2X-S}I\zJ\zIzmB0>`>Drpl>8p `-p$hp p`!0ppXU` pLXU` pXU` p  ppkD!r ||1c1*|c +|c)p @ pc! @%)c!) Dka1 bD!rb*zzmAzDzb ka1#pD!r zzmAzDzb $kQ _9E5QSUQ U-2^p]-J]-ZpQQ8ZU-0NpSQ1_YQ!m_ml6WEQ *pU-3upQ1_lQ!m_ml6 1Q1SrQ _*pU-4p7QQpU-0pSQ1_Q!m_ml6Nye-p0QQ 0 Fm {EQ*p0eNy'yeEQ*peEQ *pU-1p0QQ 0 Fm {EQ*pU-0pSQ1_Q!m_ml64kQ 8 SQQ)p Q3Q 8X-8pQ XQ Q!81 80-*pmEzml Hzml Hz, )p, 1-9pmly1p8Nyml8l65r-5<><<ml>45$>5 51Z qltm&y)Blmyl8yl|8&yFpl|l&y)Ulmyl8yl8&y5ll&y5D I F $G & QLlmQm$& "l NpmPy4x8Ry88?y48OmSyK( 2LLlm(*GmEm,.0 NpmPy4|8Ry88?y48OmSyK(p2p'Fp*F*FFmm{588%p2,D.I8Nyml806pDI&G lElEJy"lFlFJy$F$2,)p@A8CD::8 @CAD l@lClCJylAlDlDJy(5p5plElIlIJylFlJlJJy5p **Evvvvvv ww(vvvvk Fl FmJyFmYmlBl@lAl{ W2 3 #Fmm{5-\%^p*B+B@*BA@AlLky@LPl@kyPLlGjy8PjyGHd)`d e`d 4 k) *k` D ` D  5` D F ` D G (kNy95 UU-1 0 (0 ((Fm({U-2pWU-3pFml{#p\ (k , I J:XU`  70Sp)Gpm9 Ny9T UEDE%H% $k1  D  E  F  G  H    k` D {,IJ:XU `  ` D }` D {5-` D {9k5 *- XU` X}` glclyldly !, IJ:XU` LX}`XU`   k(hOp mmhmiXU`m  䀻  XU`m  䀻  ;*qXU`n  䀻 J_p=*q>XU`n  䀻 JLXU`n  䀻  n(np mXU`m  䀻  XU`m  䀻 h mhXU`m  䀻  nXU`n  䀻 m ;*qXU`n  䀻 Jp<*qXU`n  䀻J1 n mXU`m  䀻 n XU`m  䀻 XU `n 䀻  XU`n  䀻 m XU`m  䀻  nXU`n  䀻 m ;*XU`n  䀻  n(np mXU`m  䀻  XU`m  䀻 i miXU`m  䀻  nXU`n  䀻 m ;*XU`n  䀻 Jp<*XU`n  䀻 JL mXU`m  䀻 n XU`m  䀻 XU `n 䀻  XU`n  䀻 m XU`m  䀻  nXU`n  䀻 m ;*pk mnXU`n  䀻  XU`n  䀻J k XU`n  䀻J XU`n  䀻  pXU` p    kXU`    kXU`    XU`n  䀻   kXU`n  䀻 , }XU`n  䀻  l(lpXU`n  䀻  h XU`l  䀻 XU `legt von 360 K)m (43 K belegt von 360 K)M"T 40" ueberschreibenMArchiv ""0"" loeschen"dbein" gibt es nicht"adma" gibt es nicht"bwa" gibt es nicht"lisb" gibt es nicht"umenue" gibt es nicht"frist" gibt es nichtw*TR300BPN.R8PTR140BPN.R8LTR180BPN.R8LTR240BPN.R8LLP120R12.PLLHV140RPN.R8PHV140IPN.R8PHV140RPN.R8L HV140IPN.R8L TR140RPN.R8P TR140IPN.R8P TR140RPN.R8L TR140IPN.R8LHV140BPN.R8PHV180BPN.R8PHV240BPN.R8PHV300BPN.R8PHV140BPN.R8LHV180BPN.R8LHV240BPN.R8LR060RPN.R8LTR060BPN.R8LTR060IPN.R8LTR080BPN.R8LTR080IPN.R8LHV080RPN.R8PHV100RPN.R8PHV100BPN.R8PHV100IPN.R8PHV080RPN.R8L HV100RPN.R8L!HV100BPN.R8L"HV100IPN.R8L#TR080RPN.R8P$TR100RPN.R8P%TR100BPN.R8P&TR100IPN.R8P'TR080RPN.R8L(TR100RPN.R8L)TR100BPN.R8L*TR100IPN.R8L+HV120RPN.R8P,HV120BPN.R8P-HV120IPN.R8P.HV120RPN.R8L/HV120BPN.R8L0HV120IPN.R8L1TR120RPN.Yz&o ZAwS 'Df =_ :iG7s)h 01.06.8901.06.8901.06.8901.06.8901.06.8901.06.8901.06.89 @ @}N"FRANKK0"(3[RANKW u 6277906890990 62779068909.9 'hd`'yX'y@12.05.8912.05.89+ bei dem O1$ n Mann-Gro a% 18 (Zrich 0 Mannheim" efon (0621 efax (0621  h beim LG  #table end# !1i allen Sch  фYhelv14")#RE!1Uype ("helv8"! #text begin# '$Q #text end#ank$# #clear pos# e$nd# %&"+L((?))Q?**9++,33333#start (2.0,2.0)##pageleng^#start (2.5,0.8)##pagelength ("28.0")##limit(16.0)##linefeed(1.0)##type("helv18.b")# >#/,helv10,helv8,helv12,helv14.b,helv18.b,fertig,# #type ("helv18.b")# ANWALTSBRO FRANK & KAST #type ("helv14")# #lpos (12.5)# FLORIAN FRANK #type ("helv14")# . #type ("helv14")#FLORIAN FRANK#type("hel(" . #type ("helv8")#VEREIDIGTER BUCHPRFER .#type ("helv6")#type ("helv14")#REINHARD KAST .#/linie (9,1)# CLAUDIA MANN-GROSS#type (. #type ("helv8")#Rechtsanwlte . zugelassen bei den Landgerichten  Mannheim und Heidelberg . und bei dem Oberlandesgericht Karlsruhe . RAin Mann-Gross nur Landgerichte . P7,18 (Zrichhaus in den Planken)  6800 Mannheim 1 . Telefon (0621) 13055 und 13056  Telefax (0621) 154614  Fach beim LG Mannheim: 119 >Bei allen Schreiben und Zahlungen bitte angeben: #lpos (0.0)##lpos (12.0)# N#page##--------------------------------- Ende der Seite 1 -----------#REINHARD^#type ("helv6")#Rechtsanwlte Frank,Kast u. Mann-Gross #type("helv14")#REINHARD KAST > #type ("helv14")#FLORIAN FRANK#type("helv8")# > CLAUDIA MANN-GROSS#type ("helv8")# N#type ("helv8")#Konten: Postgiroamt Ludwigshafen 99 699-676 (BLZ 545 10067) NCommerzbank AG Mannheim, Konto-Nr. 3089000/80 (BLZ 670 400 31) NDeutsche Bank AG Mannheim, Konto-Nr. 0156 000 (BLZ 670 700 10) >Parkmglichkeiten: Q6, R5, N7, Parkhaus "Am Rosengarten" N#page##--------------------------------- Ende der Seite 0 -----------#^#type("helv18.b")##limit(16.0)##linefeed(1.0)##start (2.5,0.8)##pagelength ("28.0")# #free(17.33197)#N#type ("helv8")#Konten: Postgiroamt Ludwigshafen 99 699-676 (BLZ 545 10067) NCommerzbank AG Mannheim, Konto-Nr. 3089000/80 (BLZ 670 400 31) NDeutsche Bank AG Mannheim, Konto-Nr. 0156 000 (BLZ 670 700 10) >Parkmglichkeiten: Q6, R5, N7, Parkhaus "Am Rosengarten" .#type("helv8")##limit(16.0)##linefeed(1.0)# length:29.1start:30.2table:31.0tableend:32.0clearpos:33.01lpos:35.1rpos:36.1cpos:37.1dpos:38.2bpos:39.2textbegin:40.02textend:42.0zDiskette Nr.: 2 eingelegt --> begin ("")ESC c --> continue ("")ESC q --> break2ESC h --> halt2ESC s --> storage info2ESC t --> task infogib supervisor kommando :.01pagelength:29.1start:30.2table:31.0tableend:32.0clearpos:33.01lpos:35.1rpos:36.1cpos:37.1dpos:38.2bpos:39.2textbegin:40.02textend:42.0indentation:43dcjqptu߃߀߄ߞ3_*n 䀻  XU`n  䀻  l(l/pXU`n  䀻  iMpXU`l  䀻 XU `n 䀻  ,nmSpmin(nXU`n  䀻  XU`n  䀻  nXpka p0ppXU` pp p XU` p pp ka p0ppXU ` p  pp khl(lXU `l 䀻 XU `l 䀻  lpk(h(jhn(o)XU `n 䀻 XU`o䀻 )XU `o 䀻  o(ojohjXU `n 䀻  n(nmpinXU `o 䀻  n XU `n 䀻  o $nrXU `n 䀻 XU`o䀻 -nXU `n 䀻  nXU `o 䀻  n XU `n 䀻  o nXU `o 䀻  pXU ` p  XU`n䀻 XU `o 䀻  XU`n䀻 XU `n 䀻  nXU `o 䀻  o(opkopXU `n 䀻 XU`o䀻 2nXU `n 䀻  nXU `o 䀻  n XU `n 䀻  o nXU `o 䀻  op(n(opkoXU `o 䀻  n XU `n 䀻  o ikio$npXU `n 䀻 XU`o䀻 XU `o 䀻  opXU `n 䀻 XU`o䀻 upXU `o 䀻  pXU ` p  XU`n䀻 XU `o 䀻  XU`n䀻 XU `n 䀻  nXU `o 䀻  o(okooXU `o 䀻  oXU `o 䀻  n XU `n 䀻  o oXU `n 䀻  n(npinXU `o 䀻  n XU `n 䀻  o $nqXU `n 䀻 XU`o䀻 nXU `n 䀻  nXU `o 䀻  n XU `n 䀻  o nXU `o 䀻  pXU ` p  XU`n䀻 XU `o 䀻  XU`n䀻 XU `n 䀻  nXU `o 䀻  o(owkowXU `n 䀻 XU`o䀻 nXU `n 䀻  nXU `o 䀻  n XU `n 䀻  o nXU `o 䀻  o(hhjikio(k(jjoXU `o! !䀻 ! qXU `o! !䀻 'n((!qXU `o! !䀻 !Mz FXU `o! !䀻 ! !pXU ` p! !0!,}-8'm$$8yp89$$vN0=l:l${)$'m$$889$'m&$&89$$m$im$|mIy'm8|1pl:l${*|$ll0yl:l${)$9N50$$$&10$&(l:({$|1$p$ll(yl0l$(y9Nv1889$$vv!8||1pl:l${*|$ll0yl:l${)$9Np$&10$&(l:({$|1$;p$50&ll(yl0$&(y9Np,:OT J 8Nzz)d<}P-}b H G;}P-}l H0=rp Kp0=6|p9{ Ep50$ll0l$ >p(pppXU ` p! !0!,}-8lmly0mlyN)llNml N%XU `o! !䀻 ! !pXU ` p! !0!,}-8l:{8l;ly'm$$889$$v0= 8Nz,:O Jl;ly$`$8 !}P-} H pP) Iz) G K8>p(pp,pXU ` p! !0!,}-8P)0 ImlypmlyN)AllNml N%P)E IXU `o! !䀻 ! !pXU ` p! !0!,}-8l;lyol<lyp'm$$8p89$$vp0=p,:O Jl<lypNzp 8Nzz) Gl;lyp89$$N{p 8N{'= E89>p(pppXU ` p! !0!,}-8ep,okp$j$m$XU `o! !䀻 ! !owojXU `o! !䀻 ! !k{1%L{Nll{ml N$pO{NN zN)llNml N% G{Nll{ml N$pO{NKkz)CN)3llNml N%LzMlllzm NBpOzMz%KkLzNllzml NrpOP }P)X IN!zlll N)mllNml NmpON%P-}r HkLP)z I} P p Pmyp ~myp` 8lll NpO ~my myp my ~pkL p Pmyp ~myp` 8lll NpO pP%kL:OOmml{llOml NON zN)llNml N%llOml N I GK(k50  |90 UU)-p )pll0  9N7pll0 NyU-\p00(00((l:(m{5lml p0UfMyyUUU0U . Ulm pkK(jNy Du!M|\%N)llNml N% s Iyl|m k)plimjm 'OP% m nlmmnm % mrq nsaADrBIsN%M%t1upsotputj!nui!mv$k allNmlN% @zF(pL pL4m ?y4 M040V5 *50+405 50+40V4050O100OllNmlN%u!Ml 0 pk ml nlmmnm vpllOml %l!nsk!mro j!nuM%N%s zFz)psN0 ny40 404050100OlPkl Pr1Lr Nllrml NpON%K50)Y9 KkllNml N%) @z Fzk,%.%/mNy. *///)p. -0mMy1mNy Ny 2 Ny 3 Ny 4 Ny 5'68lnyny!nyDny]nypnynyn  a2-> cd'0ug6uf6ufBR '!N!N '' '''' '#N!N!N!N!N!N!N!N0uf3u g #N  '!N!N '' '''' '#N!N!N!N!N!N!N!N''0u!s'0uQ00u\00u]00uS00uU00uW00uYhg0'0uTlg0'0uVpg0'0uXtg0'0uZbs 0uh'0u^'0ud'0u`'0ub'0uf\g'0ugxg0uw}g'0uyg'0u{`g0u}dg0u'3u1u1u"~0u0ug1u_g6uag6ucg3ueg '0uig 'N''0 '0ujg'N''00ukg'0uxg0uzp@@-.TR300BPN.R8PTR140BPN.R8LTR180BPN.R8LTR240BPN.R8LLP120R12.PLLHV140RPN.R8PHV140IPN.R8PHV140RPN.R8L HV140IPN.R8L TR140RPN.R8P TR140IPN.R8P TR140RPN.R8L TR140IPN.R8LHV140BPN.R8PHV180BPN.R8PHV240BPN.R8PHV300BPN.R8PHV140BPN.R8LHV180BPN.R8LHV240BPN.R8LwnwlwPw`rwxlwnUB'e(  LN 8%G8@UB'd( &A@{0$4 D(b|D`.0@a`T$4 hd-<Y[w='d[2s*:[$4Z`q-y-~ r H|r&4|(b|.0@@@'u @@'u J@@ TR300BPN.R8P01.06.89@@ TR140BPN.R8L01.06.89@@ TR180BPN.R8L01.06.89@@ TR240BPN.R8L01.06.89@@ LP120R12.PLL01.06.89f:30.0bottomon:31.0bottomoff:32.0 countperpage:33.0footcontinued:34.0table:35.0tableend:36.0rpos:37.1lpos:38.1 cpos:39.1dpos:40.2bpos:41.2clearpos:42.01fillchar:44.1pageblock:45.0counter:46.12storecounter:48.1putcounter:49.01setcounter:51.2u:52.0d:53.0 e:54.0region:55.0regionend:56.0ib:57.012ie:60.012jtype:1.1on:2.1off:3.1center:4.0right:5.0u:6.0d:7.0e:8.0b:9.0fillchar:10.1mark:11.2markend:12.09jtype:1.1on:2.1off:3.1center:4.0right:5.0u:6.0d:7.0e:8.0b:9.0fillchar:10.1mark:11.2markend:12.0ztype:1.1on:2.1off:3.1center:4.0right:5.0u:6.0d:7.0e:8.0b:9.0fillchar:10.1mark:11.2markend:12.0ub:13.0ue:14.0fb:15.0fe:16.09ztype:1.1on:2.1off:3.1center:4.0right:5.0u:6.0d:7.0e:8.0b:9.0fillchar:10.1mark:11.2markend:12.0ub:13.0ue:14.0fb:15.0fe:16.0type:1.1on:2.1off:3.1center:4.0right:5.0u:6.0d:7.0e:8.0b:9.0fillchar:10.1mark:11.2markend:12.0ub:13.0ue:14.0fb:15.0fe:16.0block:20.0columns:21.2columnsend:22.0free:23.1limit:24.1linefeed:25.19type:1.1on:2.1off:3.1center:4.0right:5.0u:6.0d:7.0e:8.0b:9.0fillchar:10.1mark:11.2markend:12.0ub:13.0ue:14.0fb:15.0fe:16.0block:20.0columns:21.2columnsend:22.0free:23.1limit:24.1linefeed:25.1type:1.1on:2.1off:3.1center:4.0right:5.0u:6.0d:7.0e:8.0b:9.0fillchar:10.1mark:11.2markend:12.0ub:13.0ue:14.0fb:15.0fe:16.0block:20.0columns:21.2columnsend:22.0free:23.1limit:24.1linefeed:25.1material:26.1page:27.01pagelength:29.1start:30.29type:1.1on:2.1off:3.1center:4.0right:5.0u:6.0d:7.0e:8.0b:9.0fillchar:10.1mark:11.2markend:12.0ub:13.0ue:14.0fb:15.0fe:16.0block:20.0columns:21.2columnsend:22.0free:23.1limit:24.1linefeed:25.1material:26.1page:27.01pagelength:29.1start:30.2type:1.1on:2.1off:3.1center:4.0right:5.0u:6.0d:7.0e:8.0b:9.0fillchar:10.1mark:11.2markend:12.0ub:13.0ue:14.0fb:15.0fe:16.0block:20.0columns:21.2columnsend:22.0free:23.1limit:24.1linefeed:25.1material:26.1page:27.01pagelength:29.1start:30.2table:31.0tableend:32.0clearpos:33.019type:1.1on:2.1off:3.1center:4.0right:5.0u:6.0d:7.0e:8.0b:9.0fillchar:10.1mark:11.2markend:12.0ub:13.0ue:14.0fb:15.0fe:16.0block:20.0columns:21.2columnsend:22.0free:23.1limit:24.1linefeed:25.1material:26.1page:27.01pagelength:29.1start:30.2table:31.0tableend:32.0clearpos:33.01Jtype:1.1on:2.1off:3.1center:4.0right:5.0u:6.0d:7.0e:8.0b:9.0fillchar:10.1mark:11.2markend:12.0ub:13.0ue:14.0fb:15.0fe:16.0block:20.0columns:21.2columnsend:22.0free:23.1limit:24.1linefeed:25.1material:26.1page:27.01pagelength:29.1start:30.2table:31.0tableend:32.0clearpos:33.01lpos:35.1rpos:36.1cpos:37.1dpos:38.2bpos:39.29Jtype:1.1on:2.1off:3.1center:4.0right:5.0u:6.0d:7.0e:8.0b:9.0fillchar:10.1mark:11.2markend:12.0ub:13.0ue:14.0fb:15.0fe:16.0block:20.0columns:21.2columnsend:22.0free:23.1limit:24.1linefeed:25.1material:26.1page:27.01pagelength:29.1start:30.2table:31.0tableend:32.0clearpos:33.01lpos:35.1rpos:36.1cpos:37.1dpos:38.2bpos:39.2jtype:1.1on:2.1off:3.1center:4.0right:5.0u:6.0d:7.0e:8.0b:9.0fillchar:10.1mark:11.2markend:12.0ub:13.0ue:14.0fb:15.0fe:16.0block:20.0columns:21.2columnsend:22.0free:23.1limit:24.1linefeed:25.1material:26.1page:27.01pagelength:29.1start:30.2table:31.0tableend:32.0clearpos:33.01lpos:35.1rpos:36.1cpos:37.1dpos:38.2bpos:39.2textbegin:40.02textend:42.09jtype:1.1on:2.1off:3.1center:4.0right:5.0u:6.0d:7.0e:8.0b:9.0fillchar:10.1mark:11.2markend:12.0ub:13.0ue:14.0fb:15.0fe:16.0block:20.0columns:21.2columnsend:22.0free:23.1limit:24.1linefeed:25.1material:26.1page:27.01pagelength:29.1start:30.2table:31.0tableend:32.0clearpos:33.01lpos:35.1rpos:36.1cpos:37.1dpos:38.2bpos:39.2textbegin:40.02textend:42.0zESC ? --> helpESC b --> begin ("")ESC c --> continue ("")ESC q --> break2ESC h --> halt2ESC s --> storage info2ESC t --> task infogib supervisor kommando :.01pagelength:29.1start:30.2table:31.0tableend:32.0clearpos:33.01lpos:35.1rpos:36.1cpos:37.1dpos:38.2bpos:39.2textbegin:40.02textend:42.0indentation:43.1ytab:44.1p(Dhpq01\X,`$m y m y }{'DG E F 1m F{D DpplM({DG E F 1m F{DnG E F 1m F{DF1 p %{ ){p F O{L(%l$Sy9ypxmyQmzQmzm{RmnlXlYl\ld{ z 1zpOpwpl\ Ay xpzp|pp}p{p XppppppppNpl$PyOpQM$Qmy }y M{T{D 3D '{ 4{ ?ym y m y0'{00-{ 0 y m y SyDp  23vvvwgvKwrwww sG02. ` F qK1(xp02.23Q Dl4sy44ny44$s(pnSy0q0242350.`F X50.,`LLLL X50.,`5X50.,`1284 pX50.,`4l;mlyX50.,`$X50 . ,` Mp^gpX50 . ,` n@yX50.,`$4X50.,`$4X50.,`$4X50.,`$X50 . ,`4X50.,`$4X50.,`$ -y?y4X50.,`$4G EF  1m F{(D0pls(Dl Dy/ l2my$s(al Dy/ 4l Dy` G $sq lKH{'{l4{Q FQMs{K}plKL{pQmr a{lK ({Q DQ E{MpGE F lM1mlF{ a{lM ({s'{4{,lK*{={'{9{ ({ *{ 3{lK3{p -{ip L{ pqp :{ ({ps21 p5 p sX0.,`P 'X0.,` ,'p Q&X0.,` 'ps,=j1pnSy:p(=:P< :/nSy slz2 7N (Zplz52QM plz2 7O (wplz52QM plz2 2"1 " sK _ 1 _k1 p7n1y|$FsK ^wsL Q Fq019ypX ,` $ m ymyypnposQmysK $EQ F{Kp(DpzsQm{sKmy2 5 0 X0.,`  $ Mnyypl~ s s1p0 .` G 0 4l y sKmy2 5 0 _pX0.,`  $ Snyy\pl ypt$pt o   pt(pYG E"F " mSy~"m,"mSyL nlllNp"Qy"pOKl pxKsX ' sX ` mando: am Spool ist voll..." : "" ( K) "Kontrolle des Spools nicht erlaubtPasswort falsch+ WARNUNG : Serverkanal nicht eingestellt loeschen als erstes Aufgabe: In Bearbeitung seit :8Spool ist deaktiviert, da Stationsnummer geaendert wurde3Spool ist deaktiviert, da der Server gelscht wurde,Spool wird nach diesem Auftrag neu aktiviert*Spool wird nach diesem Auftrag deaktiviertkein Auftrag in Bearbeitung, da Spool deaktiviert,Spool wird nach Verlassen der Task aktiviert, da Warteschlange leerWarteschlange ist leerWarteschlange ( Auftrag): Auftraege):g0u|g'0u~g'0ugBR0ux1u1u0u'0u'N''!N0u'N0u0u!N0u'0u'1u0u''''!N0uOa'0u&h'N''0u/x0uQh'0uTh'N''00u900um'3u0u00u0u01u0ub00''N!N0u'0ug0u0u00ulth0'0u0u0u'0u'''0u''0u'''0u''''0u0u''0u''0u''0u''0uf''0u0u'0u'0u'0u0_''!N0u3_''!N0uh''0uh'''0u@@ HV240BPN.R8L01.06.89@@8LTR240BPN.R8LLP120R12.PLLHV140RPN.R8PHV140IPN.R8PHV140RPN.R8L HV140IPN.R8L TR140RPN.R8P TR140IPN.R8P TR140RPN.R8L TR140IPN.R8LHV140BPN.R8PHV180BPN.R8PHV240BPN.R8PHV300BPN.R8PHV140BPN.R8LHV180BPN.R8LHV240BPN.R8L*GeneratorstartHP LASERJET+ INTERFACEPG2006FormulareDRESHV060RPN.R8PHV060BPN.R8P HV060IPN.R8P HV080BPN.R8P HV080IPN.R8P HV060RPN.R8L HV060BPN.R8LHV060IPN.R8LHV080BPN.R8LHV080IPN.R8LTR060RPN.R8PTR060BPN.R8PTR060IPN.R8PTR080BPN.R8PTR080IPN.R8PTR060RPN.R8LTR060BPN.R8LTR060IPN.R8LTR080BPN.R8LTR080IPN.R8LHV080RPN.R8PHV100RPN.R8PHV100BPN.R8PHV100IPN.R8PHV080RPN.R8L HV100RPN.R8L!HV100BPN.R8L"HV100IPN.R8L#TR080RPN.R8P$TR100RPN.R8P%TR100BPN.R8P&TR100IPN.R8P'TR080RPN.R8L(TR100RPN.R8L)TR100BPN.R8L*TR100IPN.R8L+HV120RPN.R8P,HV120BPN.R8P-HV120IPN.R8P.HV120RPN.R8L/HV120BPN.R8L0HV120IPN.R8L1TR120RPN.R8P2TR120BPN.R8P3TR120IPN.R8P4TR120RPN.R8L5TR120BPN.R8L6TR120IPN.R8L7"1"FRANK8*GeneratorstartHP LASERJET+ INTERFACEPG2006FormulareDRESHV060RPN.R8PHV060BPN.R8P HV060IPN.R8P HV080BPN.R8P HV080IPN.R8P HV060RPN.R8L HV060BPN.R8LHV060IPN.R8LHV080BPN.R8LHV080IPN.R8LTR060RPN.R8PTR060BPN.R8PTR060IPN.R8PTR080BPN.R8PTR080IPN.R8PTR060RPN.R8LTR060BPN.R8LTR060IPN.R8LTR080BPN.R8LTR080IPN.R8LHV080RPN.R8PHV100RPN.R8PHV100BPN.R8PHV100IPN.R8PHV080RPN.R8L HV100RPN.R8L!HV100BPN.R8L"HV100IPN.R8L#TR080RPN.R8P$TR100RPN.R8P%TR100BPN.R8P&TR100IPN.R8P'TR080RPN.R8L(TR100RPN.R8L)TR100BPN.R8L*TR100IPN.R8L+HV120RPN.R8P,HV120BPN.R8P-HV120IPN.R8P.HV120RPN.R8L/HV120BPN.R8L0HV120IPN.R8L1TR120RPN.R8P2TR120BPN.R8P3TR120IPN.R8P4TR120RPN.R8L5TR120BPN.R8L6TR120IPN.R8L7"1"FRANK8*GeneratorstartHP LASERJET+ INTERFACEPG2006FormulareDRESHV060RPN.R8PHV060BPN.R8P HV060IPN.R8P HV080BPN.R8P HV080IPN.R8P HV060RPN.R8L HV060BPN.R8LHV060IPN.R8LHV080BPN.R8LHV080IPN.R8LTR060RPN.R8PTR060BPN.R8PTR060IPN.R8PTR080BPN.R8PTR080IPN.R8PTR060RPN.R8LTR060BPN.R8LTR060IPN.R8LTR080BPN.R8LTR080IPN.R8LHV080RPN.R8PHV100RPN.R8PHV100BPN.R8PHV100IPN.R8PHV080RPN.R8L HV100RPN.R8L!HV100BPN.R8L"HV100IPN.R8L#TR080RPN.R8P$TR100RPN.R8P%TR100BPN.R8P&TR100IPN.R8P'TR080RPN.R8L(TR100RPN.R8L)TR100BPN.R8L*TR100IPN.R8L+HV120RPN.R8P,HV120BPN.R8P-HV120IPN.R8P.HV120RPN.R8L/HV120BPN.R8L0HV120IPN.R8L1TR120RPN.R8P2TR120BPN.R8P3TR120IPN.R8P4TR120RPN.R8L5TR120BPN.R8L6TR120IPN.R8L7"1"FRANK88GeneratorstartHP LASERJET+ INTERFACEPG2006FormulareDRESHV060RPN.R8PHV060BPN.R8P HV060IPN.R8P HV080BPN.R8P HV080IPN.R8P HV060RPN.R8L HV060BPN.R8LHV060IPN.R8LHV080BPN.R8LHV080IPN.R8LTR060RPN.R8PTR060BPN.R8PTR060IPN.R8PTR080BPN.R8PTR080IPN.R8PTR060RPN.R8LTR060BPN.R8LTR060IPN.R8LT ^V240BPN.R8LPUBLICICatorTI BLIC.)TR100IPN.R8L*HV120RPN.R8P+HV120BPN.R8P,HV120IPN.R8P-HV120RPN.R8L.HV120BPN.R8L/HV120IPN.R8L0TR120RPN.R8P1TR120BPN.R8P2TR120IPN.R8P3TR120RPN.R8L4TR120BPN.R8L5TR120IPN.R8L6"1"FRANK77"1"FRANK8bHP LASERJET+ INTERFACEHP LASERJET+ INTERFACETR300BPN.R8PTR140BPN.R8LTR180BPN.R8LTR240BPN.R8LLP120R12.PLLHV140RPN.R8PHV140IPN.R8PHV140RPN.R8L HV140IPN.R8L TR140RPN.R8P TR140IPN.R8P TR140RPN.R8L TR140IPN.R8LHV140BPN.R8PHV180BPN.R8PHV240BPN.R8PHV300BPN.R8PHV140BPN.R8LHV180BPN.R8LHV240BPN.R8LTR060BPN.R8LTR060IPN.R8LTR080BPN.R8LTR080IPN.R8LHV080RPN.R8PHV100RPN.R8PHV100BPN.R8PHV100IPN.R8PHV080RPN.R8LHV100RPN.R8L HV100BPN.R8L!HV100IPN.R8L"TR080RPN.R8P#TR100RPN.R8P$TR100BPN.R8P%TR100IPN.R8P&TR080RPN.R8L'TR100RPN.R8L(TR100BPN.R8L)TR100IPN.R8L*HV120RPN.R8P+HV120BPN.R8P,HV120IPN.R8P-HV120RPN.R8L.HV120BPN.R8L/HV120IPN.R8L0TR120RPN.R8P1TR120BPN.R8P2TR120IP!1AQ aq $(,049=!A1EAIQMaQqUY]aeimquz~!1AQaqѮ!1AQaq"2B Rbr $(,048=A"E2IBMRQbUrY]aeimquy3333-   psX   prlmlll p xK~m,$mSyl l sXsXsX LpsX`q;p'  .yp~m,^mSyW  llsX*  ` +  ysXl Tprlm xKrlmlll sX  psX psX ' psXpsX`pmmTyxsX sX `o qpo 1op=ypt$ptsX `o ysX `o yo )nWpsX o` -po !*op=y*pt$,ptsX o` ysX o` yo )nx vpp$~p*mSy~pp H1plpHmSy~pmZmTy~p7mSy~p@mSy~p sp`pbpeppp x mppdmSypsmSyp7mSyp@mSyp ppppp xV  pppV V p$x)$U $ pppLE$F$VGK)$U $pxT  xm xL' l>llN!pQyQy;pO;p>y&pt$(pt ot(0+psX;p l N pxT my[pT  UpmSy]p ]smSy]pmSyxl$m$'n op$'qxvlx vmS{w{$xKyl({ pZ" uZquX6' pL mNp Qy pllly4'lly5 02 lllyKp m vqpuX0ml y 0n y yl}{vqylm F{vql G E F vquX0 vqylm F{vquXZ\0uSpeicherengpassRERUN beim Archiv-ZugriffArchiv inkonsistent@Lesen unmoeglich (Archiv)Archiv-Ueberlauf ??? (Archiv)#30 unlesbare Bloecke hintereinanderLesefehler (Archiv)Schreiben unmoeglich (Archiv)Schreibfehler (Archiv) %'format' ist hier nicht implementiertFormatieren unmoeglich \"- : unbekannter AuftragArchiv nicht angemeldetungueltiger Format-CodeArchiv " " loeschen " formatierenArchiv in0pml y m y yl}{v vml y 9n y yl|{v v" lymy>pmly1p vylwl){HmSyvp [puX Ay'"" [mSyXоXmy wpXm y m y yl}{vXm y m y yl}{v pmyl}{vnyl}{v$ uX Ay lf mm \y|l m vylwl){f < ^y $p a{wl ){{wwl 4{"'{""4{ "pvl{L$wlyl({uX| vwl -{n y n y Syvylwl){f < ^y $ a{wl ){{wwl 4{"'{""4{ "p a{wl ({ }y M{ vpmyl|{vpuX0K`$$LNplL N(pl:pllly`  ` ny>pnnxKnylm xLlmmm$xGEF"X1 0X Xlx0GE F lmm"pnSyxGEF"X XNX XMxlGEFlmm"LpX 5 1pX 5 0pNpX M O(xG EF y yymy ll y W` zly ( `` 2p`  *$$m@yznz,GpmzPpmzlzmzyll yp,]pny|lny(*((((?y(yny*(((?y(ynyzxmlyny ySyx v a{wl ({M|5E F M$h  i  mmm~ypz(Km\{ ({ *{GEFz ' -{mymym(?y(itialisierenArchiv formatierenArchiv wird von Task " " benutzt mit Lesefehlerd" ueberschreiben" gibt es nicht fehlerhaft" ohne Fehler gelesen gibt es nicht?????Archiv heisst "????? Name unzulaessig0ugibt es nicht (oder Lesefehler)('save'/'erase' wegen Lesefehler verboten********+kann nicht geschrieben werden (Archiv voll)Lesen unmoeglich (Archiv)??.??.??"Lesefehler: Evtl. fehlen Eintraege K  ( K belegt von  K)" y mySy myRpm\{ ({ *{?GEFz ?'? -{mymym(?y(y mySymGEFz ~yRpzGEFz Y  jpZ lp&mSy  pL/m0{ ({O *{/m3yGEFz  1 qp8$L85 <p(p44?4@4A4B4C4D4E4F4G4H4I4J4K4L4M4N4O4P4Q4R4S4T4U4????????????????????*c36E(s744W[6h??????????888<<<>>?????????????*c37E(s1084WV]Y??????~???>>?~?|~??????~??xxxxxxxxx??~>?~?~??*c38E(s973WUXW?????????????~?~????>???*c39E(s142WU*|????~?~p`*c40E(s551W U!k????????????*c41E(s440WT j`x~?~????????????????????????????????????????????*c42E(s328WU04??????Ã???????  Leere Floppy eingelegtTask " " gibt Kanal nicht freiSpeicherengpass configurator- Bitte geben Sie das heutige Datum ein : und die aktuelle Uhrzeit :Falsche Zeitangabe.:  logbuchSYSURshutup}}psi transparentunbekanntes Terminalkommando&Nummer der Terminal-Typ-Tabelle falschfalsche Terminalnummerblockout: unzulaessiger Kanal  P ~Anzahl Terminaltypen > Unbekannter Termi  pU  5p" ,,X,XU  U  W 5pU  HpPpmSyPpmSyPpmSyPpmSyPp  Ep;pm,{pm 0{ Np0mPyO }y M{0mSyp }y M{        $K C p%{+{4p0 .p .p.p" YLYL y{Cp'{ -{>n y Mn y Sy~'NLO~'T{N{w{ m,{dpm0{L'%L%{Hl({EFJ2n]z3nyN<V {pGJEFJY <3@l{zPzp8lOmMlNlPlXl{zpK?nXl 8y \{ -{FnyJnyyp {sHRJOO$ {sHSJOsHPJOPlsHTJOO$Pm {sHPJOsHPJO {sHPJO{M(pPnSyN(Kanal : kein Kanal unbekannter TypTyp: Baud Bits parity Stopbits normaler Puffergrosser Puffer-kein Zugriffsrecht auf Task "" d'begin:1.12end:3.0break:4.0continue:5.01-halt:7.0taskinfo:8.0storageinfo:9.0help:10.0 ESC ? --> helpESC b --> begin ("")ESC c --> continue ("")ESC q --> break2ESC h --> halt2ESC s --> storage info2ESC t --> task infogib supervisor kommando :b begin ("") cQTS]nSypenSyp M O,Q p"JLLX SyQ,r(prnSyPl,{5pznPly{nySy"JKKX PL KX  N 0{sOJOO,Ufpnz`l{"JKKX  `L 0{sOJOO(jpPl"JKKX KX  N 8yVsHJOO,Upnz`l{"JKKX  `L 8yVsHJO,<nn yn y n ynn0y 0 y n y znznz<<<<<$<><X<w<<zzДpzz еp=ypp<pWmkm8lymmymymy????*c43E(s691WKAK*c44E(s139W)|?????~?p*c45E(s76W$*c46E(s79W|??*c47E(s1008W^9|?????????????????0*c48E(s625WU8W??????????????????*c49E(s618WU1V??|`?*c50E(s618WU8V???<8???????????????>|????*c51E(s625WU7W???????*c52E(s618WU8V???}>~|>~>~*c53E(s611WS7U>>>~||?????~~??*c54E(s625WU7W~???????????????*c55E(s611WS7U?????~|xxp?????????*c56E(s625WU6W???????????????mymymym@lymmVzmnVz n nVznnVznnVz"n#nVz+n,nVzL\zllhI{llhI{mlhI{nlhI{LznyGp n d{ {On{Lzny`p n d{ {On{z'nyxp3n 5nyp helpESC b --> begin ("")ESC c --> continue ("")ESC q --> break2ESC h --> halt2ESC s --> storage info2ESC t --> task info@ESC ? --> helpESC b --> begin ("")ESC c --> continue ("")ESC q --> break2ESC h --> halt2ESC s --> storage info2ESC t --> task infogib supervisor kommando :/ begin ST  edit  halt   break 3TST("") / continue ("") / storage info / task info []{}  help  <a{({ ~``<mm4{'{4{mmC{)A1Ap`m){Ap`<BpNGEF"YPyOmlmF{*{al *{op'{"{l  C{ xpn pGEF lmF{ l K11pa{ ({p-pp-p"Y  ({mlmF{p *{ a{ ({pa{ ({p *{pcnSypn pOnSyp  pppppppppp` lG *{-ml ml  KG"YYYmmlmF{q"Y({k..{1{Fpm){Cm+{C'{m+{Fpm+{FHponSy{PpmlmF{qGq)cml`<a{({~p ~p` <m){|p` <a{({~p epmlmF{qf^y|" p` <m){pp pYmA{ p` <m({mlmF{fqmlmF{q"m3{`|Y1GEFmlmF{q"Y1 m3{`|m9{m3{`| MGEFmlmF{m3{`||mlmF{m3{`||< mlmF{'{m+{^p1^1^p`*{^p`m({`<a{({mlmF{OnSy'{m+{p11p`*{|`mlmF{OnSy"YmAyY1p`C{p`<p`p`<({mlmF{"YmAyY`({mlmF{m3{`|mlmF{m3{`|< mlmF{-p11!'{m+{|ppnSyp`<*{$`<C{9p{3{`||< 3{`|3{`|N'{+{Zp\\p\_ %*c62E(s568WH:E*c63E(s538WU0W????????*c64E(s1500WXjj?~??xx<<???y;;?????????><|x?????>~???????????*c65E(s962WUTVD????>>~|?????~?????*c66E(s856WSKTH?????????????????????*c67E(s886WUMWX????????????@?? LnSyO41p`a{ ({ p1/p`<a{ ({ pLLlwyglylyAp$jCpj '{"{ llh(j^p '{"{ llh '{ llyCnysp '{ l%l>4 t u $$mllk /06)H  RLH Hmkl2 LH fp\ np lp\ np\ 4H Hm2-zp6)z6)pllXpk 5)p=%44 t43033-7p4t.p4 =p3-8p=)5%= 4p5k4 t433-7p5%3-8415kG`E F` y `m y,m y:%LXkzzLF`yy y zGk5X5 4X k,mXmz,my: =:>mlXmykXmy5$ 1&p 1,m1my1:>%=:k EzPmGzPm5)=pCp nySyk4< < == t=33-7V3-8Lp-%- .t...). t /t/ 7Y/ t 7Y<1/zp=1/zpt///)spYp. u $Yp- -1Wk<1/p=1/k$mEz$m2mHz2-p/t0p$m nlp p$m t//pk4l5)k NXL@5 5@Iy@ml y4X@5X>k44 t u $$m5)o?*c68E(s940WSTTp??????????*c69E(s856WSNTH?????<<<<|||?|||<<<<<<<xx???*c70E(s772WSFT,?????|||<8<8<88xxx??xxxx88888???*c71E(s973WUXWxp????p?p??????????*c72E(s1024WS[T???????*c73E(s520WS*T????*c74E(s784WS;`?????*c75E(s1024WS]Tx?????????????*c76E(s856WSLT<??7'B? ><cH< *ߤww&* -!./01:7[&r_ ߥ__S_q߃ߺ__߷ߵ߸߹_߻__߼_bcQ߽__n߲_v~S߈ߒߘߙߚߛߜߝߞߟߠߡߦߥ߶Z ߪ____e5break onsome)4 : =0u%v%ܔ :JcȔff v* &N!&   ppN]qprqr=\npoqqDXk!llmm=\npoqq]qprqr$&#&+2-,cP|#e%U \!&mLkn->6m~m]p`Ȓ pf p&]]':   pp'},M$N{"N#&Q@@XX`c  x ` \ <XYcwwPwwwwwwww    ABi=>11n= = r&4|(((==|4.0@&==\no/o4~D45 Pv4X_4Pw4X4425X<,tv4}4XYGRk+{|(-<Gw='dGs*: Gr&4$4DaH Y`DX{%g}XT4BCBQ7S@ vhdwW!xF3$9g2te`V333333 0.0 ** 0.0() ** 0.0 ** 0 qe5 g Passwort:PUBLICArchiv 'help' eingelegthelpfalscher Auftrag fuer Task "UR"UR eumel help.YY' N0u 1............... INTREALTEXTBOOL DATASPACEROW STRUCT- STRUCT ( ... )***unzulaessige Sternfunktion unbekannt: PACKET : -->  (),  CONST VAR PROCK ist kein PaketnameTYPE  180indexer. -# ......  2ib:1.012ie:4.012.outlineDatei nicht vorhandenOUTLINE( frZeilen):->'Bitte Index-Nr. fr Inhaltsverzeichnis:9$Nr. zwischen 0 und 9, bitte nochmal:  --> . berschreiben wird angefgtAbbruch durch ESC-/":* -> c.pDatei ist keine DruckdateiINDEX(fr Zeile: Seite: #page##----page -----0 INDEX FEHLERIndizesgehen in Datei:.i sortieren AZaz, X lm {lyln$L NpxlPyOp6MxKz%plclylz.pl$my 7myyzy(3xlSy lK yly ylyzGmzKmzlzzNmz zSmz< <7$m&m5y0UmziMpplazpljlAyKympj0,m*1jmqpzjmz_p%mz ml6y~ ol$6Mc$ 7my!y 7myylyl$myl$m$z#y\lfl#zfef(Of $el4$g$eh0,k(p$ iDlilAyDd$"il1pil?ym- i,jp6M64$7p` iPL4o$ i,$p` iPL ` iPL` iPil?y4additionalcommandscolumnsAecolputDecolgetGe collineformoJe colautoformnameset&eSOMEeFILLBYye remainderefetchallesaveall systeminfoetaskinfoe taskstatuse storageinfofhelpprintcmdfprint fprinter?farchive`fclearLfreleaseACfformat6freservemultiusermonitorGPfmonitormathlibVfsqrtl_fexpcflnpgflog2kflog10oferfpiufsinyfcos}ftanfsindfcosdEftand-farctanfarctand` rubinmode_ iseditget_editgetcommand_getchar_ nichtsneu_ getcharety_ satznrneu_ isgetcharety_ueberschriftneu_ getwindow_zeileneu_ geteditcursorw_ abschnittneu_ geteditline_bildabschnittneun_ puteditline `bildneu_aktuellereditorh_allesneu_groesstereditor_ satznrzeigen5` openeditor_ueberschriftzeigen_editfile_ bildzeigenU_covereditorscmdtexteditorfunctions`showD`#covertracksofstdkommandointerpreter4G`p????*c77E(s1192WSoT???>~|???>?~||???>?>~|?????*c78E(s962WSVVl???????????????*c79E(s973WUWW??????????????*c80E(s856WSIT4????????????*c81E(s1193WUWk???????????????<?*c82E(s940WSVT`??????????*c83E(s712WU:W <|??????||<<???????????*c84E(s856WSJT8??H "180indexer."umel help.1.04.90 Bbreak on"180iCbreak onsome)      ߱߰!'-38߷Ljn߅߶do߀ߓqF ENDREPEATnord Fba0uF --> INTTindexF CH k  ?2hokB?@ok ϡB?&@@@ ,  >1<@?Li=<sB??  @O!dB=>l==d=rtiB=> )l=)**nB=B=X  6=\npo(B==!llmmR6^ E#Zp+ A=>1<\< 180indexer. 180indexer. eumel help.CE$helpPMM break r." MB kMM'GsA>...........AZeile *PY8 bfeqvw19dpgn l=reserve (archive); list (at=help ("indexer"))help ("indexer")8:unbekanntes Kommandor Parameter sind falscharchive); list (archive)l=*insert ("180indexer.")e))))))) ; hive)t=*insert ("180indexer.")e)chive) ;chive))*insert ("180indexer.")e)chive) ;chive)*s (889 K belegt von 1200 K);* s (889 K belegt von 1200 K) *some, archive)t von 1200 K) CCbreak onsome)indexindex??*c85E(s962WSUVl??????????????????????????????????????????????????????????~?*c86E(s951WSTU8??????????~~????>~~?????|x8*c87E(s1291WSvU?????????~~~?????~?~?~???????~~|x<x*c88E(s940WSTT\??~???~????????????????*c89E(s940WSTT<??????~????~????~?*c90E(s856WSKTH?????????????*c91E(s428WSg*c92E(s1008W^9| ???????? >FOR i FROM 1 UPTO max indizes REP IF sammler [i] . zustand = fuellend THEN sammler [i] . index text CAT dummy; FI END REP; END PROC komplettiere alle fuellenden sammler; PROC fuelle sammler mit (INT CONST nr, TEXT CONST dazu): IF sammler [nr] . zustand = nicht angekoppelt THEN ankoppeln; sammler [nr] . index text := dazu ELIF sammler [nr] . zustand = leer THEN sammler [nr] . index text := dazu ELIF sammler fuellend (nr) THEN sammler [nr] . index text CAT dazu END IF; sammler [nr] . zustand := fuellen Im"=T/D4uN$/Oo~u Xfsa>Ma+ @ @}cG 01.04.90 Clistxve))))))B u 'hd`(( v01.04.9001.04.90l help.*180indexer.eumel help.help.i bfeqvw19dpgn *180indexer.eumel help.$l*groesstereditorhtionguenssparameters@lindex..........Xl: (TASK CONST) --> INTy bfeqvw19dpgn 01.04.90 "help"*01.04.90 "eumel help."*01.04.90 "eumel help."U bfeqvw19dpgn ;*01.04.90 "180indexer. index.......... (TASK CONST) --> INTf:30.0bottomon:31.0bottomoff:32.0 countperpage:33.0footcontinued:34.0table:35.0tableend:36.0rpos:37.1lpos:38.1 cpos:39.1dpos:40.2bpos:41.2clearpos:42.01fillchar:44.1pageblock:45.0counter:46.12storecounter:48.1putcounter:49.01setcounter:51.2u:52.0d:53.0 e:54.0region:55.0regionend:56.0ib:57.012ie:60.01201.04.90 "help" 01.04.90 "help"H8J............................ list ............................P8 Zeile 1   U bfeqvw19dpgn $4O ؾ *C'-C {OO$!1O$ 0{p O@"2VY{WXT |l(T-NO\ UVY{WXT Dxr&4|-UVY{WXTp  ؔ r&4 |(b|T ($4C list qG."=*01.04.90 "180indexer."lib:1.012ie:4.012  edit "180indexer."  break   01.04.90  01.04.90  01.04.90 aTTTM 180indexer.a>,d. ankoppeln: IF online THEN ausgabe sammler nummer FI; f [nr] := sequential file (output, dummy); copy attributes (eingabe file, f[nr]). ausgabe sammler nummer: yrichtung INCR 1; cursor (1, yrichtung); put ("Indizes"); put (nr); put ("gehen in Datei:"); dummy := datei name; IF subtext (dummy, length (dummy) - 1) = ".p" THEN replace (dummy, length (dummy) - 1, ".i") ELSE dummy CAT ".i"; END IF; dummy CAT text (nr); out (dummy); ggf ueberschreibe anfrage (dummy); cursor (7, 3). END PROC fuelle sammler mit;???????*c93E(s428WSg*c94E(s296W^;#???????~*c95E(s80W>*c96E(s145WU+|8????~*c97E(s436W:8<??????????*c98E(s696WS>U ???????*c99E(s376W:0<???????>?*c100E(s696WS=U??????????*c101E(s376W:0<??????>?*c102E(s532WU.V????????*c103E(s611W:8U???????????????????????????????*c104E(s688WS@T?????*c105E(s352WST??*c106E(s561WS(m?????*c107E(s772WSCT ???? PROC zusatz an seitennummer (INT CONST nr, TEXT CONST zus text): sammler [nr] . seitennummer zusatz := zus text END PROC zusatz an seitennummer; PROC schreibe sammler (INT CONST nr): entferne leading blanks; IF outline modus THEN leere sammler in outline datei (nr) ELSE fuege punkte an; fuege seiten nr an; fuege zusatz an seitennummer an; fuege absatzzeichen an; leere sammler FI. entferne leading blanks: WHILE (aufgesammelter text SUB 1) = blank REP delete char (aufgesammelter text, 1) END REP. fuege punkte an: aufgesammelter text CAT trenner; IF length (aufgesammelter text) < punkt grenze THEN dummy := (punkt grenze - length (aufgesammelter text)) * "."; aufgesammelter text CAT dummy END IF; aufgesammelter text CAT " ". fuege seiten nr an: aufgesammelter text CAT text (seiten nr). fuege zusatz an seitennummer an: aufgesammelter text CAT sammler [nr]. seitennummer zusatz. fuege absatzzeichen an: aufgesammelter text CAT blank. leere sammler: putline (f [nr], aufgesammelter text); sammler [nr] . zustand := leer. aufgesammelter text: sammler [nr] . index text END PROC schreibe sammler; PROC schreibe alle sammler: INT VAR i; FOR i FROM 1 UPTO max indizes REP IF sammler fuellend (i) THEN schreibe sammler (i) END IF END REP END PROC schreibe alle sammler; (**************** Sortieren und Indizes zusammenfuehren ***************) PROC sortiere die index dateien: INT VAR i; FOR i FROM 1 UPTO max indizes REP IF index datei erstellt AND online THEN sortiere diese datei END IF END REP. index datei erstellt: sammler angekoppelt (i). sortiere diese datei: y richtung INCR 1; cursor (1, yrichtung); dummy := datei name; IF subtext (dummy, length (dummy) - 1) = ".p" THEN replace (dummy, length (dummy) - 1, ".i") ELSE dummy CAT ".i"; END IF; dummy CAT text (i); put (dummy); IF yes ("sortieren") THEN lex sort (dummy); eintraege zusammenziehen (dummy) END IF; END PROC sortiere die index dateien; PROC eintraege zusammenziehen (TEXT CONST fname): FILE VAR sorted file :: sequential file (modify, fname); INT VAR i :: 1; to line (sorted file, 1); read record (sorted file, akt zeile); akt index := before (akt zeile, trenner); down (sorted file); WHILE NOT eof (sorted file) REP read record (sorted file, zweite zeile); zweiter index := before (zweitezeile, trenner); i INCR 1; cout (i); IF (akt index LEXEQUAL zweiter index) AND mindestens ein buchstabe THEN fuege seitennummern von zweite in akt zeile ein ELSE akt zeile := zweite zeile; akt index := zweiter index FI; down (sorted file) END REP; to line (sorted file, 1). mindestens ein buchstabe: INT VAR char nr :: 1; WHILE char nr <= length (akt index) REP INT CONST char code :: code (akt index SUB char nr) OR 32; IF (65 <= char code AND char code <= 90) OR (97 <= char code AND char code <= 122) OR char code >= 128 THEN LEAVE mindestens ein buchstabe WITH TRUE FI; char nr INCR 1 END REP; FALSE. fuege seitennummern von zweite in akt zeile ein: hole seitennummer der zweiten zeile; fuege in akt zeile ein; delete record (sorted file); up (sorted file); write record (sorted file, akt zeile). hole seitennummer der zweiten zeile: INT VAR von2 := pos (zweite zeile, ziffernanfang) + length (ziffernanfang), bis := von2; WHILE digit (zweite zeile SUB bis) REP bis INCR 1 END REP; bis DECR 1; INT VAR zweite nummer := int (subtext (zweite zeile, von2, bis)); TEXT VAR zweiter nummern text := subtext (zweite zeile, von2, length (zweite zeile) - 1). fuege in akt zeile ein: suche einfuege position in akt zeile; fuege ein. suche einfuege position in akt zeile: INT VAR einfuege pos := pos (akt zeile, ziffernanfang) + length (ziffernanfang); von := einfuege pos; REP hole neue nummer; UNTIL am ende der zeile END REP. am ende der zeile: von >= length (akt zeile). hole neue nummer: bis := von; WHILE digit (akt zeile SUB bis) REP bis INCR 1 END REP; bis DECR 1; IF bis < von THEN bis := von FI; INT VAR neue nummer := int (subtext (akt zeile, von, bis)); IF zweite nummer = neue nummer THEN fuege ggf zweiten nummern text mit textanhang ein ELIF zweite nummer > neue nummer THEN einfuege pos := von; von := pos (akt zeile, ", ", bis) + 2; IF von <= 2 THEN von := length (akt zeile) FI ELSE einfuege pos := von; LEAVE suche einfuege position in akt zeile FI. fuege ggf zweiten nummern text mit textanhang ein: bis := pos (akt zeile, ", ", von); IF bis <= 0 THEN bis := length (akt zeile); FI; IF die beiden nummern sind mit textanhang gleich THEN LEAVE fuege in akt zeile ein ELSE einfuege pos := von; LEAVE suche einfuege position in akt zeile FI. die beiden nummern sind mit textanhang gleich: zweiter nummern text = subtext (akt zeile, von, bis - 1). fuege ein: IF am ende der zeile THEN change (akt zeile, length (akt zeile), length (akt zeile), ", "); akt zeile CAT (zweiter nummern text + " ") ELSE zweiter nummern text CAT ", "; change (akt zeile, einfuege pos, einfuege pos -1, zweiter nummern text); FI. END PROC eintraege zusammenziehen; (*********************** merge routine *********************) PROC index merge (TEXT CONST i1, i2): disable stop; indizes zusammenziehen (i1, i2); IF NOT is error THEN last param (i2) FI; enable stop; line. END PROC index merge; PROC indizes zusammenziehen (TEXT CONST i1, i2): enable stop; IF online THEN ueberschrift schreiben; FI; dateien assoziieren; i1 vor i2 einfuegen; IF online THEN sortieren; FI; forget (i1). dateien assoziieren: IF exists (i1) THEN eingabe file := sequential file (modify, i1) ELSE errorstop (i1 + "existiert nicht") END IF; IF exists (i2) THEN f[2] := sequential file (modify, i2) ELSE errorstop (i2 + "existiert nicht") END IF. ueberschrift schreiben: page; put ("INDEX MERGE:"); put (i1); put ("-->"); put (i2); cursor (1, 3); yrichtung := 3. i1 vor i2 einfuegen: to first record (eingabe file); to first record (f [2]); zeilen nr := 0; WHILE NOT eof (eingabe file) REP zeilennr INCR 1; cout (zeilennr); read record (eingabe file, zeile); insert record (f [2]); write record (f[2], zeile); down (f[2]); down (eingabe file); END REP. sortieren: y richtung INCR 1; cursor (1, yrichtung); put (i2); IF yes ("sortieren") THEN lex sort (i2); eintraege zusammenziehen (i2) END IF END PROC indizes zusammenziehen; END PACKET index program; (* PACKET columns DEFINES col put, col get, col lineform, col autoform: INT VAR ende pos, anfangs pos; FILE VAR file, spaltenfile; TEXT VAR dummy, spalte, zeile; LET geschuetztes blank = ""223"", blank = " "; BOOL VAR spalte loeschen, spaltenfile eingerichtet := FALSE; DATASPACE VAR local space := nilspace; PROC col lineform: spalte loeschen := TRUE; columns put (false); spaltenfile := sequential file (modify, local space); lineform (spaltenfile); col get END PROC col lineform; PROC col autoform: spalte loeschen := TRUE; columns put (false); spaltenfile := sequential file (modify, local space); autoform (spaltenfile); col get END PROC col autoform; PROC col put: columns put (true) END PROC col put; PROC columns put (BOOL CONST spalte loeschen anfragen) : IF aktueller editor > 0 AND mark THEN IF spalte loeschen anfragen THEN spalte loeschen := yes ("Spalte lschen") FI; editor bereich bearbeiten ELSE errorstop ("col put nur im Editor") FI. editor bereich bearbeiten: file := editfile; anfangs pos einholen; ende pos einholen; INT VAR letzte zeile := line no (file), erste zeile := mark line no (file); to line (file, erste zeile); col (file, 1); spalten put; to line (file, erste zeile); col (file, anfangs pos); mark (false); ueberschrift neu. anfangs pos einholen: anfangs pos := mark col (file). ende pos einholen: ende pos := col (file) - 1; IF ende pos < anfangs pos THEN errorstop ("Markierungsende mu rechts vom -anfang ????*c108E(s352WST*c109E(s724W:`;???|*c110E(s488W:@;?????*c111E(s436W:7<?????????????*c112E(s688W:>T?~x?????*c113E(s688W:=T ?>~?????????*c114E(s429W:3;??*c115E(s376W:)<??~>>?????*c116E(s411WM%O>>~?? xx?*c117E(s480W8@:?*c118E(s480W89:??>?>?|||π???~>>*c119E(s654W8T:@~~||???>>~|>>~|??????*c120E(s472W8:9?????~??~???~|???~?*c121E(s680W89S??>>~||??sein") FI. spalten put: spaltendatei einrichten; satznr neu; WHILE line no (file) <= letzte zeile REP satznr zeigen; read record (file, zeile); spalte herausholen; spalte schreiben; down (file) END REP. spaltendatei einrichten: forget (local space); local space := nilspace; spaltenfile eingerichtet := TRUE; spaltenfile := sequential file (output, local space). spalte herausholen: spalte := subtext (zeile, anfangs pos, ende pos); IF spalte loeschen THEN change (zeile, anfangs pos, ende pos, ""); write record (file, zeile) FI; WHILE length (spalte) > 1 AND (spalte SUB length (spalte)) = blank REP delete char (spalte, length (spalte)) END REP; IF spaltenende ist geschuetztes blank THEN delete char (spalte, length (spalte)); spalte CAT " " FI. spalte schreiben: putline (spaltenfile, spalte). spaltenende ist geschuetztes blank: (spalte SUB length (spalte)) = geschuetztes blank. END PROC columns put; PROC col get: IF NOT spaltenfile eingerichtet THEN errorstop ("Bitte vorher mindestens einmal col put geben") ELIF aktueller editor > 0 THEN editor bereich bearbeiten ELSE errorstop ("col get nur im Editor") FI; columns get; alles neu. editor bereich bearbeiten: file := editfile; spaltenfile := sequential file (input, local space). columns get: anfangs pos := col (file) - 1; spaltenbreite feststellen; col (file, 1); satznr neu; WHILE NOT eof (spaltenfile) REP satznr zeigen; getline (spaltenfile, spalte); read record (file, zeile); spalte ggf verbreitern; zeile ggf verbreitern; spalte in zeile einfuegen; zeile schreiben; down (file); IF eof (file) THEN insert record (file); write record (file, "") FI END REP. zeile ggf verbreitern: WHILE length (zeile) < anfangs pos REP zeile CAT blank END REP. spaltenbreite feststellen: INT VAR anz spaltenzeichen :: 0; WHILE NOT eof (spaltenfile) REP getline (spaltenfile, spalte); IF length (spalte) > anz spaltenzeichen THEN anz spaltenzeichen := length (spalte) FI END REP; spaltenfile := sequential file (input, local space). spalte ggf verbreitern: IF (spalte SUB length (spalte)) = blank THEN delete char (spalte, length (spalte)); spalte CAT geschuetztes blank FI; IF anzufuegende spalte soll nicht ans zeilenende THEN spalte verbreitern FI. anzufuegende spalte soll nicht ans zeilenende: anfangs pos <= length (zeile). spalte verbreitern: WHILE length (spalte) < anz spaltenzeichen REP spalte CAT blank END REP. spalte in zeile einfuegen: dummy := subtext (zeile, 1, anfangs pos); dummy CAT spalte; dummy CAT after (zeile, anfangs pos); zeile := dummy. zeile schreiben: write record (file, zeile). END PROC col get; END PACKET columns; *) (* REP index ("index fehler.p"); edit("index fehler.i1"); forget("index fehler.i1") UNTIL yes ("ENDE") ENDREP; *) gabe file, zeile); zeilennr := line no (eingabe file); cout (zeilennr). verarbeite indizes dieser seite: REP suche naechste zeile mit kommandozeichen; IF seitenbegrenzung THEN LEAVE verarbeite indizes dieser seite FI; verarbeite index kommandos der naechsten zeilen; IF seitenbegrenzung THEN LEAVE verarbeite indizes dieser seite FI; down (eingabe file); col (eingabe file, 1) END REP. verarbeite index kommandos der naechsten zeilen: komm anf := col (eingabe file); von := komm anf; REP WHILE komm anf <> 0 REP komplettiere alle fuellenden sammler (von, komm anf - 1); entschluessele kommando; von := komm ende + 1; IF kommando index > 0 THEN setze kommando um FI END REP; IF alle sammler leer THEN LEAVE verarbeite index kommandos der naechsten zeilen ELSE fuelle sammler mit restzeile und lese naechste zeile END IF UNTIL seitenbegrenzung ENDREP; fehler (7, ""). setze kommando um: IF anz params = 0 THEN index nr := 1 ELSE index nr := int (par1) FI; SELECT kommando index OF CASE ib0, ib1, ib2: zeilen seit index begin := 0; index anfang; CASE ie0, ie1, ie2: index ende; OTHERWISE ENDSELECT. index anfang: IF gueltiger index THEN fange neuen index an ELSE fehler (18, par1) END IF. fange neuen index an: IF sammler fuellend (index nr) THEN fehler (20, text (index nr)) ELSE fuelle sammler mit (index nr, ""); IF anz params = 2 THEN zusatz an seitennummer (index nr, par2) ELSE zusatz an seitennummer (index nr, "") END IF END IF. index ende: IF gueltiger index THEN schreibe fuellenden sammler ELSE fehler (18, text (index nr)) END IF. schreibe fuellenden sammler: IF sammler fuellend (index nr) THEN IF anz params = 2 THEN fuelle sammler mit (index nr, par2) ENDIF; schreibe sammler (index nr); ELSE fehler (21, text (index nr)) END IF. END PROC suche indizes; (********************* Service Routinen ************************) BOOL PROC seitenbegrenzung: subtext (zeile, 2, 5) = "page" AND subtext (zeile, 8, 12) = "-----" END PROC seitenbegrenzung; PROC setze seiten nr: seiten nr := int (subtext (zeile, ziffern anfang, ziffernende)); IF online THEN schreibe FI. schreibe: cursor (20, 3); put (seiten nr); cursor (7, 3). ziffern anfang: pos (zeile, "0", "9", 10). ziffern ende: pos (zeile, " ", ziffern anfang) - 1 END PROC setze seiten nr; PROC naechste zeile und zaehlen: zeilen nr INCR 1; cout (zeilen nr); naechste zeile END PROC naechste zeile und zaehlen; PROC naechste zeile: down (eingabe file); read record (eingabe file, zeile); col (eingabe file, 1) END PROC naechste zeile; (**************************** Fehler - Routine *********************) PROC fehler (INT CONST nr, TEXT CONST addition): IF erste fehler zeilennr = 0 THEN erste fehler zeilennr := zeilen nr FI; fehler melden; IF online THEN fehlermeldung auf terminal ausgeben FI. fehler melden: report text processing error (nr, zeilen nr, fehlerdummy, addition). fehlermeldung auf terminal ausgeben: yrichtung INCR 1; IF yrichtung > 23 THEN yrichtung := 23; FI; cursor (1, yrichtung); out (fehlerdummy); IF outline modus THEN line ELSE cursor (7, 3) FI. END PROC fehler; PROC warnung (INT CONST nr, TEXT CONST addition): IF erste fehler zeilennr = 0 THEN erste fehler zeilennr := zeilen nr FI; warnung melden; IF online THEN meldung auf terminal ausgeben FI. warnung melden: report text processing warning (nr, zeilen nr, fehlerdummy, addition). meldung auf terminal ausgeben: yrichtung INCR 1; IF yrichtung > 23 THEN yrichtung := 23; FI; cursor (1, yrichtung); out (fehlerdummy); IF outline modus THEN line ELSE cursor (7, 3) FI. END PROC warnung; (************************** Sammler-Dienste **************************) PROC index aufnahme stoppen: zeile := "INDEX FEHLER"; komplettiere alle fuellenden sammler (1, length (zeile)); schreibe alle sammler; read record (eingabe file, zeile) END PROC index aufnahme stoppen; PROC deaktiviere sammler: INT VAR i; FOR i FROM 1 UPTO max indizes REP sammler [i] . zustand := nicht angekoppelt END REP END PROC deaktiviere sammler; BOOL PROC sammler fuellend (INT CONST nr): sammler [nr] . zustand = fuellend END PROC sammler fuellend; BOOL PROC sammler angekoppelt (INT CONST nr): NOT (sammler [nr] . zustand = nicht angekoppelt) END PROC sammler angekoppelt; BOOL PROC alle sammler leer: INT VAR i; FOR i FROM 1 UPTO max indizes REP IF sammler [i] . zustand = fuellend THEN LEAVE alle sammler leer WITH FALSE END IF END REP; TRUE END PROC alle sammler leer; PROC komplettiere alle fuellenden sammler (INT CONST von pos, bis pos): INT VAR i; IF von pos > bis pos THEN LEAVE komplettiere alle fuellenden sammler FI; dummy := subtext (zeile, von pos, bis pos); ); (*sh*) QForts.von letzter (WJtype:1.1linefeed:3.1limit:4.1free:5.1page:6.01pagenr:8.2pagelength:9.1 foot:10.0end:11.0head:12.0headeven:13.0headodd:14.0bottom:15.0bottomeven:16.0 bottomodd:17.0columns:18.2columnsend:19.0topage:20.1goalpage:21.1count:22.01 setcount:24.1value:25.01on:27.1off:28.1headon:29.0headof???>><||??*c122E(s358W809??????>><<<8??????~??*c123E(s634W S*g?????????*c124E(s264W^ |*c125E(s634W S*g????????????????????????????????????????????????????*c126E(s205W/D0p???*c127E(s1984W^{{???????????????????????????????????????????????????????????????*c161E(s1281WrTsD???????>>~|?????~?????*c162E(s1270WqTrD????~????>>~|?W4w4wX4Y4Z4[4\4]4^4_4`4a4b4c4d4e4f4g4h4i4j4k4l4m4n4o4p4q4r4s4t4u4v4w4x4y4z4{4|4}4~444444444444444444444444444444444444444444444444444444444444444444444444444444444444444444frandomfinitializerandomf sysgenoffmode(b0c8dKHfPgXh`ihjpkx^03 beginprocessA priv(start8urHdummyXPUBLICJ` publicmanagerp urmanagerArchiv 'help' eingelegthelpЉds؉orderphase ordertask begincode4I( falscher Auftrag fuer Task "UR"@XUR^`0& eumelhelpfbulletin@fpackets indexprogramfoutlinef indexmerge(escape 8blank0 Hg!xJA&"Q]qlK/>0FzhfZ6,^A>|y 2pFdvKJX0wWQ8peBR0uuh0u"~f'0u f2*0uh"~00u00u00ua'00u'00uf'00u,f00u1f''0u:f'0u#f'00u'f2*00uh0uh'2u\''2u'2u'2u'2u'2u2u2u'2u'2u'2u'2u'2u'2u'2u'2uZf''2uk''1u'0uf2uf'0ukG\'0uvkvkkf'0u '0u0uf0ul0uDb0u&''0u;f'0uf'0u'ua{`'DefN D  NB)h{{f^yMQH-0Y%X8 u}PSa covertracks advertisingaeumelmustadvertisetasksaTASKaPROCAbniltaskb isniltaskb existstaskb supervisor!bmyself$bpublic'bproca -b collectorN0baccess ctask>>=b<<=MAIN ENDOFFILEabitsZXORYbitY lowestresetY lowestset#Yresetbit(Yrotate-Ysetbit[text5Y maxtextlength8YSUB^subtextHYlengthLYLENGTHYCATYreplace^change` changeallrYcompress^posYcodech[decimalexponentl[setexp[maxreal[ smallreal datehandling[date[time[ timeofday[month[day[year[hour[minute[second\commanddialogue[say\yes\no \ paramposition\ lastparam\std[QUIET\quietthesaurushandling"\ THESAURUS-\emptythesauruseinsertpbdelete\renameB\CONTAINSflinkbnameQ\decodeinvalidchars~aget\\ highestentry= localmanagers\createw\new\old,cexistsZincharZ incharetyZcatinputZpauseZcursorZ getcursor'bchannelZonlineZwaitforchannelhZcontrolboolZtrueZfalseintegerS[int[sign[SIGN{[abs[ABSV[min[max[MIN[MAX[minint[maxint[lastconversionok[ setconversionh errorhandling([ enablestop+[ disablestop.[iserrora1[ clearerror+4[ errormessage7[ errorcode:[ errorline=[puterrorG[ errorstopD[stop[real[[round`[floord[frastdkommandointerpreter aU`Dc`Tk`Po`PUTs`Gw`GETcaC`changeto`CA`limit/anote`noteline3anoteedit` anythingnoted`notefile stdtransput_asysoutbasysinLapage[a getsecretlinelocalmanagerpart2[{clistelanruninterfacearunarunagainaprotaprotoffHfcheckacheckonacheckoffawarningsa warningsonDa warningsoffcommandhandler4a getcommandaanalyzecommanda docommandta commanderrorund] tofirstrecordg`toline]toeof] insertrecord] deleterecord] readrecord] writerecord] isfirstrecord`eof`lineno']FRANGE^setrange] resetrange]remove] clearremoved]reinsert^ maxlinelength^editinfop^linetype]copyattributes^headline]puttabsm]gettabs`col+aword`at] freelines] removedlines%^execl`len`lines^segments#amark'^ marklineno+^markcol/^setmarkedrange^ splitline}bstatus\copy\ enterpassword\ writepassword\ readpassword_writepermission\readpermission \ beginlist\ getlistentry\all patternmatch]any]notion\bound\match\matchpos\matchend\somefix]joker\UNLIKEXeLIKE filehandling"]FILEK^sequentialfileQe reorganizeU^inputY^output]^modifyG]closeEaputlineWagetlineiaput=OawritemalineP^resetadownaupadownetyauppety] patternfo????~?????*c163E(s1166WrNsH??????<<<<|||?|||<<<<<<<xx???*c164E(s1156WqNrH???~??????<<<<|||?|||<<<<<<<xx???*c165E(s1116WmNnH?????????<<<<|||?|||<<<<<<<xx???*c166E(s700Wq*r???~?????*c167E(s676Wm*n????????*c168E(s104WW???*c169E(s104W W???*c170E(s126W V$????~*c171E(s91W R%??*c172E(s106W T#???~|x*c173E(s1303WrUul???????????????????????????????????????????????????????????~?*c174E(s1292WqUtl???~?rhanfrageaufinhaltsverzeichnisp!einrichtenfuerzeilennummerausgabexrichtedateienein8verarbeitedatei^Datei nicht vorhanden[OUTLINE( frЌ Zeilen):،->(Bitte Index-Nr. fr Inhaltsverzeichnis:9(%Nr. zwischen 0 und 9, bitte nochmal:0xHggfueberschreibeanfrage`$suchenaechstezeilemitkommandozeichenpverarbeiteggfindexkommandos!komplettiereallefuellendensammlerXentschluesselekommandosetzekommandoumallesammlerleer-fuellYISUBYRSUBY deletecharY insertcharY deleteintY insertint?ZheapsizeYcollectheapgarbageDY stranalyzeYLEXEQUALY LEXGREATERYLEXGREATEREQUALpcbandinitcontrolZsessionxbpcb Z setlinenrbclockYINITFLAGZ initializedbstorageZid#Zke dataspace3Znilspaceeforget_typeGZdspagesKZ nextdspage|ZblockoutZblockin)ZALIGN basictransputgZoutZ outsubtextpZouttextvZTIMESOUT{ZcoutZdisplayv^concatenateline^sort^lexsortelandointerfaceedo_ nodoagainscanner_scan_ continuescan'_ nextsymbolscreendescription0_xsize3_ysize<_marksize@_markrefreshlinemodetastenverwaltungG_lernsequenzauftastelegenaL_lernsequenzauftasteVP_kommandoauftastelegenU_kommandoauftasteY_tasteenthaeltkommando]_stdtastenbelegung editorpaketeedit`editgetu_quitx_quitlast{_push`wordwrap`margin_setbusyindicatoresammlermitrestzeileundlesenaechstezeile indexanfangȍ indexendeЍgueltigerindex؍fangeneuenindexanfehler18sammlerfuellend20\indexistinhaltsverzeichnis0stelleeinrueckungfest  (indexisthauptindex0 --> 8punktposH.`!PleeresammlerinoutlinedateiX21`nrxleerezwischenspeicherfuellezwischenspeicheridanfrageЎ berschreibenwird angefgt7 steuerzeichenAbbruch durch ESC@holekommandotextHkommandoanfangszeichenX-/":*`analysierekommando -> !22restzeileauffuellennaechstezeileundzaehlen indexaufnahmestoppen_17DseitenbegrenzungЏdurchsilbentrennunggewandeltesk5c bindestrich! sucheindizesm0.p8Datei ist keine Druckdatei@sortieredieindexdateienZPINDEX X(frd` Zeile: hSeite:xlesebisersteseitenbegrenzunglesebisnaechsteseitenbegrenzung setzeseitennrgeheauferstetextzeileextlargerfontexistscnextsmallerfontexistscfontleadc fontheightc fontdepthcindentationpitchc charpitchcextendedcharpitch:c replacementYcextendedreplacementc fontstringcyoffsetsc boldoffsetcgetfontdgetreplacementsadditionaltextfunctions%d smallletter)d capitalletter-dletter1ddigit5donlycommandlinebdrposhd anycharposldanycharHdbetweenXdbefore]daftertextererrorsandcommon182sd skipinputvdbeginofthischar{ddisplayandpausePdreporttextprocessingerrordreporttextprocessingwarningQ macrostore182d$macrocommandandthenprocessparameters[d getmacrolinednumbermacrolinesd loadmacrosd listmacrossilbentrennungdtrennAdistausnahmewortd ladeausnahmendentladeausnahmenHpager182gdpageformd autopageformRdnumberemptylinesbeforefootdfootcontinueremarkd firstheadd lastbottomliner1822elineform8eautoformehyphenationwidthetextincmezurueckverarbeiteindizesdieserseiteerstetextzeile #page##----mȐ*verarbeiteindexkommandosdernaechstenzeilen\ fuellesammlermitzusatzanseitennummerschreibefuellendensammlerschreibesammler` page(8L!01288-----;H ziffernendePschreibe`0p naechstezeileaddition2 fehlermelden fehlermeldungaufterminalausgeben23warnungؑ warnungmeldenmeldungaufterminalausgeben INDEX FEHLERqschreibeallesammler(sammlerangekoppelt!PvonposXbisposxxdazu ankoppelnausgabesammlernummerIndizesgehen in Datei:.izustextentferneleadingblanks fuegepunkteanfuegeseitennranfuegezusatzanseitennummeran^fuegeabsatzzeichenan] leeresammleraufgesammeltertext( PindexdateierstelltXsortierediesedateif` sortierenpeintraegezusammenziehen*"xfname* sortedfilemindestenseinbuchstabeq#(fuegeseitennummernvonzweiteinaktzeileeincharnrcharcodeؓ32%"6590a97l122128holeseitennummerderzweitenzeile}fuegeinaktzeileein0von28bis P zweitenummerXzweiternummerntext`sucheeinfuegepositioninaktzeilehfuegeeinp einfuegeposxholeneuenummeramendederzeile| neuenummer*fuegeggfzweitennummerntextmittextanhangein, 'diebeidennummernsindmittextanhanggleichi1i2Ȕindizeszusammenziehenueberschriftschreibendateienassoziiereni1vori2einfuegen sortierenexistiert nicht INDEX MERGE:J--> mod indexprogramenziehenen modposition in Zeile fuelleggfzeilevorfootauf indzeichen1N#Зherkunftsreferenzenspeichernؗ!zeilenbreiteumblankbreiteerhoehen"zielreferenzenspeichernohnewarnungzielreferenzenspeichern+*neuezeileauffuellenundausgabebeizeilenende !schreibeundinitialisiereneuezeileverarbeitetabelle0tabulatorpositioneintragentabulatorpositionloeschengskipzei- ,$4 C {#%0!1#00H &'{()#* TYdT-&'{()#* X|xr&4|(b|*.0@&# $7|-#@a$4#1A$4 YY40  -%&')#$#@0o.=|L(b|)X.0@#&'*@AT$4&h,3Xd h$4&|+4.3R S &KY-]aT p0$4-<aw= 'a V Њr&4 |y1AA|.0@V  $4- ,$4@-xOOX'xO ds*:Ol.0@X-MNORUVT0 8UV|r&4|y1AA|T.0@M $7 3-q'y33-(b|%$43 u{-3u{@$4TZ;<Pr&4|t(b|dijkno 9 i1-ijkno; i;r&4|(b|%@i ; ??????????????????????????????????????????????????????????~?*c175E(s625WU8W???????~|?|??*c176E(s80Wf>*c179E(s206WX&&????????*c180E(s1146WUMqX????????????@???0>*c181E(s532W:0V???????>?????*c182E(s1270WoVrl???~|x???????????????*c183E(s696WT@U>|??????*c184E(s277W UW????????*c185E(s538WU0W???????????*c186E(s628WWCD,>??????????????>*c187E(s625WU8W?????+(-$4AA|-W ST$4F@$4T[d'y#`   {EFd-YZ[^ab`-  $4Z`D00x-< w=H'f %s*: $4{2w` iP4` iP$ ml-"3pil1,ph,))p` iP4il 9pil?ym-9pil?ym-` iP hCpCpppp3Rp\p%lylzlylzfpnplyl$m$zzpl:p0l8y8 8y 8y$  $my lylml{ y yb lylml{=ll y[$ 588[08.88}81p1p1ppp6 85 :8:088{pp188Ay588$818 6 85 :8:00ee088{ppe0e1e882Ay27e,5$81e88 8pSpe0/p2&e0788%ee0%)p5e)pe0/p588e588eHp585:l8:my m8y48Sp4 0$8l08 y y y ly_pLL yq $mylL z : y pN{existiert nicht INDEX MERGE:-->o7<Vf4NLCV<$ $  9wwwTUwv|_߆߇ߊߕߏߚQTS confICfgbdw#wP"!"#@AB??~|?|??*c188E(s940WSRT@??~???~?|???????~?|??????*c189E(s737WU3g??????????~?????*c190E(s872WW=k???????????????????*c191E(s556WH0Z|xπ??>>>|||???>><*c192E(s632WV8X????~??????????*c193E(s544WV0X????~??????>?*c194E(s632WV7X????~?????????????*c195E(s720WV@X???~??*c196E(s639WW8Y?????????????*c197E(s550WW0Y?????????>?*c198E(s639WW7Y?????????, UCe8OMNPXB<@l= B=^UeP ehB<8l=OM4~Vf<%)#=$<10 kPi8BHMM@B<N\11tB<|==hQB45x bf8B<|==I{hB)w* B4|MhB)w LIuB4O:BJ=9BI 4m#V)vB4uB4B4Nrߓ ߸S&_q߃_߷ߵ߸߹%__ߌ߉ _bc,!_0_n_v~߉߈ߒߘߙߚߛߜߝߞߟߠߡߦߥ߶'_ FGRSVdehglrsTPUBLICmanr)-onfATORanUntinue ("coUsk infoonfinuebdcontinue continue:   PMMTgdbreak  M  kbfq19MM'fGT>...........CUZeile = 0/o4~D4 4i  v4 _4l=5 4 u4l=4455 <qI<Rk+{DDf&D[B)k(T  Re*d\ B4d8pB)e(@q4~D4dd2V:BJv4_4$4Z`q-y-~  H|r&4|(b|.0@IJKLMNOPQ$1("") / continue ("") / storage info / task info configurator task info 44 continue ("") f shutup manH8J.............................. ..............................P8 Zeile 1    begin ("")  l=continue ("conf")"))t=continue ("conf")")))continue ("conf")")) task info "")  Usk infoconfinuebd @ @}sN1 ile ") u 'hd` PUBLIC manT PUBLICnf)o7D@B<(RPsT7???????*c199E(s728WW@Y|???*c200E(s639WW8Y?????????????*c201E(s550WW0Y?????????>?*c202E(s639WW7Y????????????????*c203E(s728WW@Y??*c204E(s604WR8T????????????*c205E(s520WR0T>??>??????>?*c206E(s604WR7T???????????????*c207E(s688WR@T?????*c208E(s1314WuSvD????????>>~|????>~|????~~??*c209E(s451WV$W????~+oB? ><t;5I7w4wߜ>?߆-oD@B<" sT7ߋu/oB?203A<ߓߍ q task info  continue ("") X.2.25.geniiX ARCHIVEgen2Y.2.25.geniispc.1.255wBwP6=!"#@AB pFxVvxCglFhzFxV{FҜ=l> => ϡB?&@@@><H|:JN;<HxV&Lzxxx9*`}HxXyxy&y, ti=>qIY xCxS & n==DxT# _ECxU&nx(==t2._ExUirxylx_ExU.BDT  t.2.25.geniilx xU_ExUrxyrߓ S;_q߃@_߷ߵ߸߹ߛߝbcen:_v~8_ߒߘߙߚߛߜߝߞߟߠߡߦߥ߶ FGRSVdeh9_lrA_F_???*c210E(s1149W]Wg???????????~?~?~?????????*c211E(s1276WStT??????~~~~>>><<<?<?|~|~|????|||<<<?<?<p~?????????*c212E(s667W[8]??????????????????*c213E(s456WW#X??*c214E(s569WC7O?>~????????>~|π߀???????>~*c215E(s676W:Q<`??????????????????? ???????????~???*c216E(s1226WmTnD>??>????>>~|?????~?????*c217E(s456WW!X??????*c218E(s1237WmWo?????????-  devp'fyQp824.1(T`  t.2.25.geniirpc.1.25   @ @}sNc.2.25.geniT u 'hd`(g@( v01.04.9001.04.90lx92J00*SUB)e(  9H  9%G9@TB)d( &Aht0$4 D(b|D`.0@ak4 hd-<Y[w='d[2s*:[$4Z`q-y-~  H|r&4|(b|.0@sUc.2.25.genU.2.25.genii &,28>DJPV\bhntz21.12.8821.12.8821.12.8821.12.8821.12.8821.12.8821.12.88IJKLMNODQCEGJKMNOR`abcdefy("") / continue ("") / storage info / task info 4/ xcomp.0comp.1Archiv heisst "s"8Archiv heisst "s"xJpc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25m*s (889 K belegt von 1200 K) fonttab.std-12.asciitandberg.2244standberg.2244sfonttab.std-12.asciitandberg.2ableend:32.0clearpos:33.01lpos:35.1rpos:36.1cpos:37.1dpos:38.2bpos:39.2textbegin:40.02textend:42.0zfonttab.std-12.ascii200 K)C b --> begin ("")ESC c --> continue ("")ESC q --> break2ESC h --> halt2ESC s --> storage info2ESC t --> task infogib supervisor kommando :.01pagelength:29.1start:30.2table:31.0tableend:32.0clearpos:33.01lpos:35.1rpos:36.1cpos:37.1dpos:38.2bpos:39.2textbegin:40.02textend:42.0indentation:43.1ytab:44.1X????????*c223E(s1281WqWs????~??????????????*c224E(s1281WrTsD???????>>~|?????~?????*c225E(s1248WoTpD???~|x????>>~|msg; forget (ds); errorstop (error); ELSE forget (ds); FI; . do link cmd: ds := nilspace; sv msg := ds; CONCR (sv msg). tname := task name; CONCR (sv msg). tpass := ""; call (supervisor, link task code, ds, reply); IF reply = password code THEN get password; sv msg := ds; CONCR (sv msg). tpass := task password; call (supervisor, link task code, ds, reply); FI; . get password : put (" Passwort:"); get secret line (task password); ENDPROC link; ENDPACKET link; AR high := 1, low := 0 ; PROC initialize random (INT CONST start) : low := start MOD 4096 ; IF start < 0 THEN high := 256 + 16 + start DIV 4096 ; IF low <> 0 THEN high DECR 1 FI ELSE high := 256 + start DIV 4096 FI ENDPROC initialize random ; INT PROC random (INT CONST lower bound, upper bound) : compute new random value ; normalize high ; normalize low ; map into interval . compute new random value : (* (high,low) := (low-high , 3*high-low) *) high := low - high ; low INCR low - 3 * high . normalize high : IF high < 0 THEN high INCR 4096 ; low germanDEC.VT220.germanxpc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.ascii DEC.VT220.german FT10/20.germanFT10/20.germanFT10/20.germanFT10/20.germanxpc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.ascii DEC.VT220.german FT10/20.germanFT10/20.asciiampex210.asciiampex210.asciiampex210.asciiampex210.asciixpc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.ascii DEC.VT220.german FT10/20.germanFT10/20.asciiampex210.asciiampex210.germanampex210.germanampex210.germanampex210.g''1u|''1u}''1uy''6u'1u'1u!N'0u!N'0uS!N'0u1u)''3u0'''3u1''3u'1u5'1u5#N'0u4''3u''3u#N''0u-#N'''0u#N''0u'3u''1u6'1u.''1u,''2ud#N'0u#N''0u#N'0u(#N''0u'1u]0u^'!N''!N'!N0u9''6u ''6u!''6u"=Y''3u2{Y'3u/_Y#N''0ueY#N''0u3CY'''3uvY'''1u7Y''''1u8Y''''1u:eY#N''0uPY#N'0u&[0uermanxpc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.ascii DEC.VT220.german FT10/20.germanFT10/20.asciiampex210.asciiampex210.germanampex220.germanampex220.germanampex220.germanampex220.germanx pc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.ascii DEC.VT220.german FT10/20.germanFT10/20.asciiampex210.asciiampex210.germanampex220.germanampex232Wyse.WY50.asciiWyse.WY50.asciiWyse.WY50.asciiWyse.WY50.asciixpc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.ascii DEC.VT220.german FT10/20.germanFT10/20.asciiampex210.asciiampex210.germanampex220.germanampex232Wyse.WY50.asciiWyse.WY50.germanWyse.WY50.germanWyse.WY50.germanWyse.WY50.germanx*pc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.ascii DEC.VT220.german FT10/20.germanFT10/20.asciiampex210.asciiampex210.germanampex220.germanampex232Wyse.WY50.asciiWyse.WY50.germanWyse.WY60.germanߟߠߡߢߣߤߥߦߧߨߩߪ߲߫߬߭߮߯߰߱߳ߴߵ߶߷߸߹ߺ߻߼߽߾߿Q_g_h_k_l_m_p_z_|_}_~_________________=>?CDEFGHIJKLMNOPQR p<  p< `| ! `}   `| y  ^p`| \cpHp' p`| ~ppjp'     " $&(*,'...}$5  1  p 5  p4pM$2  y  4 ML p4 pM Wyse.WY60.germanWyse.WY60.germanWyse.WY60.germanx:pc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.ascii DEC.VT220.german FT10/20.germanFT10/20.asciiampex210.asciiampex210.germanampex220.germanampex232Wyse.WY50.asciiWyse.WY50.germanWyse.WY60.germanWyse.WY99.germanWyse.WY99.germanWyse.WY99.german  @ @} seazAZ Aou   @  @-32768- 0  *+09 d  FEHLER : 'halt' vom TerminalStack-UeberlaufHeap-Ueberlauf INT-Ueberlauf DIV durch 0REAL-UeberlaufTEXT-Ueberlaufzu viele DATASPACEs Ueberlauf bei Subskription Unterlauf bei Subskription falscher DATASPACE-Zugriff DECR 3 FI . normalize low : (* high INCR low DIV 4096 ; low := low MOD 4096 *) IF low >= 4096 THEN low overflow ELIF low < 0 THEN low underflow FI . low overflow : IF low >= 8192 THEN low DECR 8192 ; high INCR 2 ELSE low DECR 4096 ; high INCR 1 ; post normalization FI . post normalization : (* IF (high,low) >= (4095,4093) THEN (high,low) DECR (4095,4093) FI *) IF high >= 4095 THEN IF low >= 4093 THEN high DECR 4095 ; low DECR 4093 ELIF high = 4096 THEN high := 0 ; low INCR 3 FI FI . low underflow : low INCR 4096 ; high DECR 1 . map into interval : INT VAR number := high MOD 16 - 8 ; number INCR 4095 * number + low ; IF lower bound <= upper bound THEN lower bound + number MOD (upper bound - lower bound + 1) ELSE upper bound + number MOD (lower bound - upper bound + 1) FI ENDPROC random ; (******* REAL random: ***********) REAL VAR rdg := 0.4711; LET pii = 3.141592653589793238462; REAL PROC random: rdg := rdg + pii; rdg := rdg * rdg; rdg := rdg * rdg; rdg := rdg * rdg; rdg := frac (rdg); rdg ENDPROC random; PROC initializerandom (REAL CONST z): rdg := frac (z); ENDPROC initializerandom; ENDPACKET random; sqrt; REAL PROC exp (REAL CONST z): REAL VAR x :: z, a :: 1.0; BOOL VAR negativ :: x < 0.0; IF negativ THEN x := -x FI; IF x > 292.42830676 THEN IF NOT negativ THEN errorstop ("REAL-Ueberlauf"); FI; 0.0 ELIF x <= 0.0001 THEN (0.5 * z + 1.0) * z + 1.0 ELSE approx FI . approx: IF x > ln10 THEN x := lge*x; a := 1.0; set exp (int(x), a); x := frac(x)*ln10 FI?????~?????*c226E(s618WT8V??><|x??????????*c227E(s940WSWTp????*c228E(s781WSAU??????????*c229E(s706Wr*s|??????*c230E(s706Wr*s?????*c231E(s1292WrWt?????????????????*c232E(s1292WrWt?????????????????*c233E(s1259WoWq??><|x????; IF x >= 2.0 THEN a := 7.389056098930650227230*a; x := x-2.0 FI; IF x >= 1.0 THEN a := 2.718281828459045235360*a; x := x-1.0 FI; IF x >= 0.5 THEN a := 1.648721270700128146848*a; x := x-0.5 FI; IF x >= 0.25 THEN a := 1.284025416687741484073*a; x := x-0.25 FI; IF x >= 0.125 THEN a := 1.133148453066826316829*a; x := x-0.125 FI; IF x >= 0.0625THEN a := 1.064494458917859429563*a; x := x-0.0625FI; a:=a/50.4*(((((((0.01*x+0.07)*x+0.42)*x+2.1)*x+8.4)*x+25.2)*x+50.4)*x+50.4); IF negativ THEN 1.0/a ELSE a FI . ENDPROC exp ; REAL PROC tan (REAL CONST x): (*IF x < 0.0 THEN - tg( -x * pi4) ELSE tg( x * pi4) FI *)tand (x * 5.729577951307e+001) ENDPROC tan; REAL PROC tand (REAL CONST x): IF x < 0.0 THEN - tg( -x / 45.0) ELSE tg( x / 45.0) FI ENDPROC tand; REAL PROC tg (REAL CONST x ): REAL VAR q::floor(x), s::x-q; INT VAR n; q := q - floor(0.25*q) * 4.0 ; IF q < 2.0 THEN IF q < 1.0 THEN n:=0; ELSE n:=1; s := 1.0 - s FI ELSE IF q < 3.0 THEN n:=2; ELSE n:=3; s := 1.0 - s FI FI; q := s * s; q := (((((((((-5.116186989653120e-11*q-5.608325022830701e-10)*q- 9.526170109403018e-9)*q-1.517906721393745e-7)*q-2.430939946375515e-6)*q- 3.901461426385464e-5)*q-6.324811612385572e-4)*q-1.076606829172646e-2)*q- 0.2617993877991508)*q+pi4); SELECT n OF CASE 0 : s/q CASE 1 : q/s CASE 2 : -q/s OTHERWISE : -s/q ENDSELECT . ENDPROC tg; REAL PROC sin ( REAL CONST x): (*REAL VAR y, r, q; IF x < 0.0 THEN y := -x; q := 4.0 ELSE y := x; q := 0.0 FI; y := y * pi4; r := floor(y); sincos( q+r , y-r ) *)sind (x * 5.729577951307e+001) ENDPROC sin; REAL PROC sind ( REAL CONST x): REAL VAR y, r, q; IF x < 0.0 THEN y := -x; q := 4.0 ELSE y := x; q := 0.0 FI; y := y / 45.0; r := floor(y); sincos( q+r , y-r ) ENDPROC sind; REAL PROC cos ( REAL CONST x ): (*REAL VAR y, q; IF x < 0.0 THEN y := -x ELSE y := x FI; y := y * pi4; q := floor(y); sincos( q+2.0, y-q )*) cosd (x * 5.729577951307e+001) ENDPROC cos; REAL PROC cosd ( REAL CONST x ): REAL VAR y, q; IF x < 0.0 THEN y := -x ELSE y := x FI; y := y / 45.0; q := floor(y); sincos( q+2.0, y-q ) ENDPROC cosd; REAL PROC sincos ( REAL CONST q, y ): REAL VAR r :: q - floor( 0.125*q + 0.1 ) * 8.0; IF r >= 4.0 THEN IF r >= 6.0 THEN IF r >= 7.0 THEN - sin approx(1.0-y) ELSE - cos approx(y) FI ELSE IF r >= 5.0 THEN - cos approx(1.0-y) ELSE - sin approx(y) FI FI ELSE IF r >= 2.0 THEN IF r >= 3.0 THEN sin approx(1.0-y) ELSE cos approx(y) FI ELSE IF r >= 1.0 THEN cos approx(1.0-y) ELSE sin approx(y) FI FI FI ENDPROC sincos; REAL PROC sin approx ( REAL CONST x ): REAL VAR z::x*x; x*((((((0.6877101540593035e-11*z-0.1757149296873372e-8)*z+0.3133616216672568 e-6)*z-0.3657620415845891e-4)*z+0.2490394570188737e-2)*z-0.807455121882e-1)* z+0.7853981633974483) ENDPROC sin approx; REAL PROC cos approx ( REAL CONST x ): REAL VAR z::x*x; ((((((-0.3857761864560276e-12*z+0.115004970178141e-9)*z-0.246113638267419e-7 )*z+0.3590860445885748e-5)*z-0.3259918869266875e-3)*z+0.1585434424381541e-1) *z-0.3084251375340425)*z+1.0 ENDPROC cos approx; REAL PROC arctan ( REAL CONST y ): REAL VAR f, z, x; BOOL VAR neg :: y < 0.0; IF neg THEN x := -y ELSE x := y FI; IF x>1.0 THEN f := a ELSE f := -b; neg := NOT neg FI; z := x * x; x := x/(((((((0.0107090276046822*z-0.01647757182108040)*z +0.02177846332482151)*z-0.03019339673273880)*z+0.04656083561183398)*z -0.0888888888888888)*z+0.3333333333333333)*z+1.0); IF neg THEN x - f ELSE f - x FI. a:IF x>sqr3p2 THEN x := 1.0/x; pi2 ELSE x := 4.0/(sqrt3+x+x+x)-sqr3; pi3 FI. b:IF x 0 REP m := n DIV 2 ; IF m + m = n THEN n := m; r := r * r; ELSE n DECR 1; p := p * r; FI; ENDREP; IF b > 0 THEN p ELSE 1.0 / p FI FI ENDOP ** ; (* REAL PROC random: rdg := rdg + pii; rdg := rdg * rdg; rdg := rdg * rdg; rdg := rdg * rdg; rdg := frac (rdg); rdg ENDPROC random; PROC initializerandom (REAL CONST z): rdg := frac (z); ENDPROC initializerandom; *) ENDPACKET mathlib; E VAR help file) : initialize help command ; REP out (page) ; to paragraph ; show paragraph ; get show command UNTIL is quit command PER . inWyse.WY99.germanxZpc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.ascii DEC.VT220.german FT10/20.germanFT10/20.asciiampex210.asciiampex210.germanampex220.germanampex232Wyse.WY50.asciiWyse.WY50.germanWyse.WY60.germanWyse.WY99.germanWyse.WY120.germanWyse.WY120.germanWyse.WY120.germanWyse.WY120.germanxjpc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.ascii DEC.VT220.german FT10/20.germanFT10/20.asciiampex210.asciiampex210.germanampex220.germanampex232Wyse.WY50.asciiWyse.WY50.germanWyse.WY60.germanWyse.WY99.germanWyse.WY120.germanDEC.VT100.german.genDEC.VT100.german.genDEC.VT100.german.genDEC.VT100.german.genxpc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.ascii DEC.VT220.german FT10/20.germanFT10/20.asciiampex210.asciiampex210.germanampex220.germanampex232Wyse.WY50.asciiWyse.WY50.germanWyse.WY60.germanWyse.WY99.germanWyse.WY120.germanDEC.VT100.german.genpc.2.25.genfonttab.std-10fonttab.std-10fonttab.std-10fonttab.std-10xpc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.ascii DEC.VT220.german FT10/20.germanFT10/20.asciiampex210.asciiampex210.germanampex220.germanampex232Wyse.WY50.asciiWyse.WY50.germanWyse.WY60.germanWyse.WY99.germanWyse.WY120.germanDEC.VT100.german.genpc.2.25.genfonttab.std-10fonttab.std-12fonttab.std-12fonttab.std-12fonttab.std-12xpc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.ascii DEC.VT220.german FT10/20.germanFT10/20.asciiampex210.asciiampex210.germanampex220.germanampex232Wyse.WY50.asciiWyse.WY50.germanWyse.WY60.germanWyse.WY99.germanWyse.WY120.germanDEC.VT100.german.genpc.2.25.genfonttab.std-10fonttab.std-12fonttab.std-10.asciifonttab.std-10.asciifonttab.std-10.asciifonttab.std-10.asciixpc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.ascii DEC.VT220.german FT10/20.germanFT10/20.asciiampex210.asciiampex210.germanampex220.germanampex232Wyse.WY50.asciiWyse.WY50.germanWyse.WY60.germanWyse.WY99.germanWyse.WY120.germanDEC.VT100.german.genpc.2.25.genfonttab.std-10fonttab.std-12fo??????????*c234E(s618WT7V??><|x?????????????*c235E(s936Wq:s >|???<|??????||<<???????????*c236E(s544WV)X>???~>>?????*c237E(s1303WrUul|????????????????????????????????????????????????????????????~?*c238E(s1226WmTn<||??????~????~????~?*c239E(s888WR9m?????????>>~||?????>><||??*c240E(s856WSIT4?????????????*c241E(s888WS>m??nttab.std-10.asciifonttab.std-12.asciifonttab.std-12.asciifonttab.std-12.asciifonttab.std-12.asciixpc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.ascii DEC.VT220.german FT10/20.germanFT10/20.asciiampex210.asciiampex210.germanampex220.germanampex232Wyse.WY50.asciiWyse.WY50.germanWyse.WY60.germanWyse.WY99.germanWyse.WY120.ge0  pp5 0 pp1  $5 9p5 9p3 Tp 1 42 4M LL6 l5  y6 5  y57 sp   2  1  4  5 p2 1  4 4  #y$-%p #y$1% #y%1$p $m$ypp %m$yppp$-%$0 ' DDp : "# @0 . )p@p00p0p09p 9p!%yp' 'Ep  %N &Qp ip 'W (Zp) ip *` +cp, ip -jp ip-L(-( 4 (  -ly-   ly P2i1  pP2|4 p P2|4 ppP2|4 p .y9*: P7X  ? 5  5 {$4(b|.0@a| (.0@=,-={;<80-,-:={WYZT$4h09:{;<WTY02"2:{W aX1A-v {W@؉ *~ -zs*:-|1u~'1uP'0u*'2ufO'0u+O6u,!N!N0uY'1u0u0uZ'N'0uF7uE'N0uG''0uHY'1uJZ'1u-'1u.''1uW''''!N0uU''''!N0uV:Z'1uI'0u<''0u>'''0u/''0u0'0u='0u1#N0u@3uA#N#N0uD'0u3''0u5!N!N0u61u86u90u7'''!N0uTPZ'''!N0u:XZ*N''!N0u;kZ'''0u?Z'3u2Z0u4AY''6u<6u=6u>PY'3u?'1uA''1u+''1uF'1uB'1uC'1uD'1uE p` aal0y a)pc !<;cp ?;`4p` 4p< -p9y;p< B A $B A@<c `/< `/<7yC P; wp`l3yopP; P; 2m,yEF1"100Y! U1^  2m,yEF1"10V1^ 0Y! 2m_l+y  p p p3)p4)p3%f4( 5ph\!m0 ' ?ymly! o p p/!p* q?y+ q((p(/(((y , ?y5( (= (00ql0y00y0,Ip( G rl0y0,Ip,-$h0  qYpPp5 dt7m\p0  moptzp0  typzp: vwp)q0  . p'{p0  qpp5 7%p7p5'pMym\p m0 'hp mh\pm\  By m p'   Dy  h   Mzh\,pm0 *h ,p{0&p+{ hp))*{p)  7 9p  D Fp  Gy Hy7)\p 75 6 'g h5g67% QypL8pL8pL8pL8pL8pL8pL8pL8pL8pL8pL8pN8p N8pN8p)N8p4N8p=N8pDN8p  pp}pppppppppppppppppp Oy8M P NpP~ pI^ l TyIn TyN 8M NOy''1uI''1uJ''1uG''1uH1uM1uN6uK'0uLZ''3u@0uK0uL6uN0uO3uP1uQ1uR0uU'0uS0uV@[''0uT ['3uYZ'1uj'2u]''2uX'2uc'2uc'1ua'"N0ub"N'0uh"N'0uiZ'2u^Z'2u_Z'1u`Z'1uaZ''2ubZ''2ue [''2uf[''2ud[''2ug2ul2umO[''3u[['''3u\W['2uk3un'3uu3us'3uq2uy'3ur2uz2u{2u|['3uo['3up['3ut[''3uv['2uw['2uxW0u6u~'}bstatus\copy\ enterpassword\ writepassword\ readpassword_writepermission\readpermission \ beginlist\ getlistentry\all patternmatch]any]notion\bound\match\matchpos\matchend\somefix]joker\UNLIKEXeLIKE filehandling"]FILEK^sequentialfileQe reorganizeU^inputY^output]^modifyG]closeEaputlineWagetlineiaput=OawritemalineP^resetadownaupadownetyauppety] patternfo9)<<8 Ry I<I Ry ?y<<{OnSyL8\5b    $ Xba $$ $S1$ba$$ $b$XIOpl(c(Upl(c($Xba$$ $b$8a 8'8888Wy 888qm8Xya @@@Wy8@XIqMT&prMTZyap 00L088sp00Tp1LT0 pp5 88p880LT84T84Tt1Lvp84T8Tlvm8yH?y8H8y84$x1Tlxm8y'HHTHHsmHy8H8y8 8y84$T81 T884T8T85 :8:88smINT nicht initialisiert REAL nicht initialisiertTEXT nicht initialisiertnicht implementiertBlock unlesbar Codefehler0 ** 0 bei Zeile stop   u'h-0.e0.0* +e+e-/REAL-UeberlaufW8d`inkorrekte Datumsangabe  0<d1O [y.lMittwoch DonnerstagFreitagSamstagSonntagMontagDienstagitialize help command : TEXT VAR help command := getcharety ; IF help command = "" THEN help command := "0" FI . to paragraph : col (help file, 1) ; to line (help file, 1) ; downety (help file, "#" + help command + "#") ; IF eof (help file) THEN to line (help file, 1) ; out (bell) FI . show paragraph : show headline ; WHILE NOT end of help subfile REP show help line PER ; show bottom line . show headline : out (begin mark) ; INT CONST dots := (x size - len (help file) - 5) DIV 2 ; dots TIMESOUT "." ; exec (PROC show line, help file, 4) ; dots TIMESOUT "." ; out (end mark) ; down (help file) . show help line : out (cr lf) ; exec (PROC show line, help file, 1) ; down (help file) . show bottom line : cursor (5, y size) ; exec (PROC show line, help file, 3) ; out (cr) . get show command : TEXT VAR char ; get char (char) ; IF char = esc THEN get char (char) FI ; IF char >= " " THEN help command := char ELSE out (bell) FI . end of help subfile : pos (help file,"##",1) <> 0 OR eof (help file) . is quit command : help command = "q" (* OR help command = "Q" . *) ENDPROC help ; PROC show line (TEXT CONST line, INT CONST from) : outsubtext (line, from, x size - from) ENDPROC show line ; ENDPACKET system info ; after (puffer, wortende); get cursor (trennwort endepos, ywort1); IF length (trennwort) >= 70 THEN ELIF length (dummy) > 75 - trennwort ende pos THEN outsubtext (dummy, 1, 75 - trennwort endepos); ELSE out (dummy); IF (dummy SUB length (dummy)) = blank THEN cursor (78, ywort1); out (begin mark); out???*c246E(s104W+> *c247E(s973WUVWx?0~??????~9qq??88p???~*c248E(s973WUVWx?0~??????~????><x 8x???~*c249E(s316WS)2??????????*c250E(s266WS&2?????????????????????????*c251E(s392W39/>~???????????~>*c252E(s298W2//*c253E(s392W39/8>????444??????????>8*c254E(s560WG?D??????????????????????????????????????R080BPN.R8LTR080IPN.R8LHV080RPN.R8PHV100RPN.R8PHV100BPN.R8PHV100IPN.R8PHV080RPN.R8L HV100RPN.R8L!HV100BPN.R8L"HV100IPN.R8L#TR080RPN.R8P$TR100RPN.R8P%TR100BPN.R8P&TR100IPN.R8P'TR080RPN.R8L(TR100RPN.R8L)TR100BPN.R8L*TR100IPN.R8L+HV120RPN.R8P,HV120BPN.R8P-HV120IPN.R8P.HV120RPN.R8L/HV120BPN.R8L0HV120IPN.R8L1TR120RPN.R8P2TR120BPN.R8P3TR120IPN.R8P4TR120RPN.R8L5TR120BPN.R8L6TR120IPN.R8L7"1"FRANK8TR300BPN.R8P9TR140BPN.R8L:TR180BPN.R8L;TR240BP 33333V4G4444k'5(5)5,5ߔ555556J6K6N6G\6]6^6a6Lߥ6666F66661"!1AQ aq $(,049=!A1EAIQMaQqUY]aeimqu (end mark) FI FI. trennwort endepos: xwort1. interaktive worttrennung: REP out (return); schreibe erstes wort; get cursor (xwort1, ywort1); schreibe trennung; schreibe zweites wort; schreibe rest bei zu langem trennwort; cursor (xwort1, ywort1); hole steuerzeichen und veraendere worte END REP. schreibe erstes wort: out (begin mark); IF length (trennwort) < 70 THEN out (wort1) ELSE outsubtext (wort1, length (wort1) - 60) FI. schreibe trennung: IF ck vorhanden THEN out (links); out ("k"); FI; out (trennsymbol). schreibe zweites wort: IF length (trennwort) < 70 THEN out (wort2) ELSE outsubtext (wort2, 1, 70 - xwort1); FI; out (end mark). schreibe rest bei zu langem trennwort: IF length (trennwort) >= 70 THEN INT VAR xakt pos; out (cl eol); get cursor (xakt pos, ywort1); outsubtext (trennwort, max trennlaenge + 1, max trennlaenge + 1 + (78 - xakt pos)) FI. ck vorhanden: (wort1 SUB length (wort1)) = "c" AND (trennwort SUB (length (wort1) + 1)) = "k". hole steuerzeichen und veraendere worte: TEXT VAR steuerzeichen; inchar (steuerzeichen); IF steuerzeichen = links THEN nach links ELIF steuerzeichen = rechts THEN nach rechts ELIF steuerzeichen = hop THEN sprung ELIF steuerzeichen = return THEN line ; LEAVE interaktive worttrennung ELIF steuerzeichen = escape THEN errorstop ("Abbruch mit ESC") ELIF code (steuerzeichen) < 32 THEN ELSE trennsymbol := steuerzeichen; LEAVE hole steuerzeichen und veraendere worte FI; IF wort1 = "" OR (wort1 SUB length (wort1)) = bindestrich THEN trennsymbol := blank ELSE trennsymbolund] tofirstrecordg`toline]toeof] insertrecord] deleterecord] readrecord] writerecord] isfirstrecord`eof`lineno']FRANGE^setrange] resetrange]remove] clearremoved]reinsert^ maxlinelength^editinfop^linetype]copyattributes^headline]puttabsm]gettabs`col+aword`at] freelines] removedlines%^execl`len`lines^segments#amark'^ marklineno+^markcol/^setmarkedrange^ splitlinermanDEC.VT100.german.genpc.2.25.genfonttab.std-10fonttab.std-12fonttab.std-10.asciifonttab.std-12.asciixfonttab.std-12.asciifonttab.std-12.asciifonttab.std-12.ascii8y4T84Ttv82 884T85 8v::8"Tlsm8y84$pT\45   rMLT SAp`x{ / 4L /p( p$$SmIyxa $'$$$(Wy ((T0(0(Xya 000Wy(0XIpqMTrp}MTZy0LT(4T(4Tt1Lv(4T(a$x1$p4T~p4Ta$$$Ey$m(@y4T(Tl|msmyp {mTly5T  $$|m(y(Tl(y( pT\ !, Xya $Xp T" ,,T$XI$"$ {m0y0(oTm",Hy$,,,|mTlyXI4Tq&Zy1LT$4-<-W$4$4-r++4'y)]^bef4-)*+.1208-r_ccl'X$4*l0RPh-l-abcfijh1A]^_bef$4bhX7+-8-r_'y_M--"04T05L,",5L,",,,sm0y4T0px1 4Ts4Ttx1 L'",,sm0y4T05T,,",, = {mTlyZp5T, ,,1LT,04T0Zp"T,".1L,.04T05T, ,m5T, ,,,sm0y4T0T\(),T 0 00|pvp0 00qpp0 00}p p  0 0.0,,""Hp 0 0.0,,"T1"p"Up` "\()pmLyX](85 ,,p0 0.0,,"T1"p"Up0` "\(0)p"Hp p p x $p$0 00vLT,2 ,00,Ay,$NpOmSyK(p0 00|pp5 ,,&mLy(pmLy$0Wy06p&00(8p() XI Cp Hp&   ^yXI \'Tep$ Xcpx]epT]  `y  (c((( ( (XI (^y((( p !c    gy fy p  p    $ p$My$ p a $$p`x)U&&pXI '$$ p ! My p\=px1 ' ky&=pU1  T` \=p* U)U kyT ` \ @4 D4  'THX5T 0Ubp` \4 8\ Sp`5@d5D&hfHxpfHpfDclloyL $ Ĕ jy m by m by Ĝ jy1p+p+pp+        v^concatenateline^sort^lexsortelandointerfaceedo_ nodoagainscanner_scan_ continuescan'_ nextsymbolscreendescription0_xsize3_ysize<_marksize@_markrefreshlinemodetastenverwaltungG_lernsequenzauftastelegenaL_lernsequenzauftasteVP_kommandoauftastelegenU_kommandoauftasteY_tasteenthaeltkommando]_stdtastenbelegung editorpaketeedit`editgetu_quitx_quitlast{_push`wordwrap`margin_setbusyindicatorp p p p m @y mlym @y m y4 1=p1=m @y Cpm @y 4lmmyL TMM(M8MHMXMhMx mbyĜjy` NN(N8 NHNXNhNxNNN#N(NȀ oy1؀؀Ay` ؀ ( (oy2(5$$p-n(y( p ! fty   mbyuy1   mvy  /N  Ġjy l@y40 Ĥmbyjym@y440 mbymm\y4lmmyLT6  1  AyKy:m_n y y Sy 7   "1 " AyKyXp1Xpbmdn y y Sy 2 Ay5 """"xp]zp] Kymjn y y Sy+ p+ pp+ pp1pp]pp^ppq^pr^p  ppppppppppppppm_n y y Sy ky  5(460868<6@@6HD6PH6XL6`P6hT6pX6x\6` (  p]]  kyĜc ,6 0((01 0000]y0 Ky6mrn0y0 0y0Sy(07 00**Qp(05 21 02000]y0,ap(0*21 02000]y0,-Kypmxn0y0 0y0Sy*up],p*02 0000]y0,-Kym~n0y0 0y0SyI pI IpIIpI0p00Ly 00 4 4 4 4 555555  )p $)< A((Ўp<@6$$<<6$$JanuarFebruarMrzAprilMaiJuniJuliAugust SeptemberOktoberNovemberDezember19:g vw`h0F@V8@ 5 be`W`(Tag) : (Monat) : (Jahr) :  (Stunde) : (Minute) : (Sekunde) :   ("") (j/n) ?  jnyJNYjyJYP"Name unzulaessig?THESAURUS-Ueberlaufexistiert bereitszu viele Dateien gibt es nichtDatenraum hat falschen Typ"" existiert nicht " loeschenz~!44)s257W@6>I<ho UTmsRmn (C) Copyright Hewlett-Packard Company, 1986. All rights reserved. Reproduction, adaptation or distribution of copies of this font is prohibited, except as allowed under the copyright laws. *c33E(s76W) L<<*c34E(s58WL}}}}*c35E(s268W*** p|||||||||?|?|||?}||||@|||*c36E(s191W1t ` ?` ` `?*c37E(s280W,),8x8<<>?4444444444444444444444444444555555555 5 5 5 5 5555555555555555555 5!5"5#5$5%5&5~?3> ~?p?px8~ ~?*c38E(s268W+)*@p<??q;??p??8*c39E(s46W  <?>@*c40E(s121W2X``0<*c41E(s114W2X??<0``*c42E(s82Wtpf<@*c45E(s30WL*c46E(s36W 8*c47E(s232W:t |???*c48E(s172W)t??||??*c49E(s131W(t??  *c50E(s146W(t?x<||<>?`*c51E(s172W)t??<pxpx x ?8 ~<*c52E(s146W(t~~~?~~p~8~~~~~x~~~*c53E(s141W(t?p8 ???8p*c54E(s172W)t?`?`px8<@?*c55E(s146W(t?*c56E(s166W)t????x???*c57E(s172W)t?~|>???*c58E(s56W  @????*c59E(s66W & @`0*c60E(s124W$ ?|>~~>|??|>~~>|?*c61E(s103W%*c62E(s124W% ?>|~~|>??>|~~|>?*c63E(s154W)p??<|c<??*c64E(s366W522>>p00  00```p  ``p088?<x?*c65E(s211W%('??888888~8888?*c66E(s186W#("??߀?xx00000*c67E(s232W%)$?x8<80p`px?~???*c68E(s211W(('??~~xp<5 $$$$l0y ypp y)!p<   199y9p< ml0y<<<M   M L% % L 4  mly4 )k5 8 o6 1}!0 .~p%(!1 / ((l(y(p 7 1  p/ ly6 1 7 1  p%L L   $ mly)5lSy ly1 mmy 5 0  . 4 5 0u'6u'6u'0u3u3u&x}['0u\'0u0u.ZBQ2*0uRxBQ'!N0uBQ'!N0uBQ''0u2*'6u2*'1u2*'3u#N'0u2*#N!N0u2*1u0\BQ'0u6\BQ'0u<\BQ''0u'0u'7u'7u6Z'0u'6u''0uj\''0u''0u'0u3u3u''6u''6u0u#N#N0uRx{\''7u\'*0u\0u\'3u\''0u\'''0uN#'3u Y''3uZ''3u3u'3u3u'3u'1u'1u'3u3u@@4 / l y4  p, ,1 ,2 00 y: > ly: /p y yOpNOlSy y  y  y17 5 p!!1 Цpqp!1  %%p5  mly Т5 p y1 y ymly)5lSyp y) )5  my y   y5 1   p% p y7 1+  7 1  0p%%L 5 Т  5 0 . %4m,yaL$L,y8myE F5 " 56 ylp ly %pL8m my ) `  EF Np `  G 8m my ly `    pNlSy y ) ` pE y8m my )p lyEp `  y8m my )p lyEp ` I lSyEp ` y8m yp4|$4$4'y (% -  7/0$4DM<$4P(q%ds*:P-1236LM7V/T(((t$4274|(b|T.0@M/(s%t%( 0 THEN position := length (wort1); IF (wort1 SUB position) = kommando zeichen THEN ueberspringe das kommando (wort1, position, rueckwaerts); FI; position DECR 1; wort1 := subtext (trennwort, 1, position); wort2 := subtext (trennwort, position + 1, max trennlaenge); IF rechtes teilwort mit bindestrich THEN ein zeichen := (wort1 SUB length (wort1)); delete char (wort1, length (wort1)); insert char (wort2, ein zeichen, 1) FI FI. nach rechts: IF length (wort1) < max trennlaenge THEN position := length (wort1) + 1; IF (trennwort SUB position) = kommando zeichen THEN ueberspringe das kommando (trennwort, position, +1); FI; wort1 := subtext (trennwort, 1, position); wort2 := subtext (trennwort, position + 1, max trennlaenge); IF rechtes teilwort mit bindestrich THEN wort1 CAT bindestrich; delete char (wort2, 1) FI FI. rechtes teilwort mit bindestrich: (wort2 SUB 1) = bindestrich AND letter (wort1 SUB length (wort1)). sprung: inchar(steuerzeichen); IF steuerzeichen = rechts THEN wort1 := subtext (trennwort, 1, max trennlaenge); wort2 := "" ELIF steuerzeichen = links THEN wort1 := ""; wort2 := subtext (trennwort, 1, max trennlaenge) FI. neue zeile mit trennwort versehen: IF wort1 = "" THEN keine trennung ELSE zeichenpos := wortanfang + length (wort1); mit trennsymbol trennen; von := zeichenpos FI. keine trennung: IF wort ist zu lang fuer limit THEN warnung (7, trennwort); neue zeile CAT trennwort; zeichenpos := wortende + 1; zeichenpos bereits verarbeitet := 0; von := zeichenpos ELSE loesche nachfolgende blanks; zeichenpos := wortanfang FI. wort ist zu lang fuer limit: length (alte blanks) * einrueckbreite + breite davor + trennbreite >= aktuelle pitch zeilenlaenge. mit trennsymbol trennen: IF (wort1 SUB length (wort1)) = "c" AND (trennwort SUB (length (wort1) + 1)) = "k" THEN replace (wort1, length (wort1), trenn k) FI; neue zeile CAT wort1; IF trennsymbol <> blank THEN neue zeile CAT trennsymbol FI. END PROC trennung eventuell vornehmen; PROC naechste zeile ggf heranziehen: IF puffer hat absatz OR puffer hat noch mindestens zwei woerter OR zeile hat eine foot anweisung OR in foot uebertrag THEN LEAVE naechste zeile ggf heranziehen ELIF trennung vorhanden THEN IF zeichenpos < pufferlaenge THEN zeilenbreite INCR breite (trennzeichen) FI; getrennte zeilen zusammenziehen; LEAVE naechste zeile ggf heranziehen FI; puffer CAT blank; puffer CAT zeile; zeile lesen; pufferlaenge := length (puffer); ggf absatz an puffer anfuegen. puffer hat noch mindestens zwei woerter: INT VAR anz :: 0, i :: zeichenpos; WHILE pos (puffer, " ", i) > 0 REP anz INCR 1; i := pos (puffer, " ", i) + 1 END REP; anz > 1. zeile hat eine foot anweisung: pos (puffer, "#foot") <> 0. END PROC naechste zeile ggf heranziehen; (******************** initialisierungs routine *******************) PROC form initialisieren (TEXT CONST datei): kommando liste := "type:1.1linefeed:3.1limit:4.1free:5.1page:6.01on:8.1off:9.1pagenr:10.2 pagelength:11.1start:12.2foot:13.*c69E(s191W$(#?xx0000*c70E(s176W!( xx0000*c71E(s262W*))?><8p``px~???*c72E(s231W+(+888888888888888*c73E(s121W(\*c74E(s184W.t<  ?????*c75E(s231W,(+??ǀx<~8*c76E(s191W$(#8??*c77E(s281W5(5܀?~?*c78E(s256W))(???*c79E(s262W*))???~?|ppx~????*c80E(s186W"("?|<     *c81E(s303W*2)???~?|?ppx~????*c82E(s211W(('???*c83E(s184W)??<?x?pp`px???>*c84E(s191W#(#*c85E(s256W()(<*c86E(s250W%)'??*c87E(s352W6)8Ԁ??*c88E(s211W'('?x>x>*c89E(s211W%('>x???*c90E(s191W$(#<??x*c91E(s107W1 d*c92E(s232W:t???| *c93E(s107W1 d*c94E(s70Wt|??|*c95E(s45Wt*c96E(s46W  <@`?0?8??~*c97E(s124Wx?? ??*c98E(s184W)|*c99E(s104Wd?p|??*c100E(s184W)*c101E(s108Wh???*c102E(s126W(H??*c103E(s146W'ppp?qw8  ?*c104E(s166W(?p*c105E(s86W(D>>*c106E(s149W 4H>>`000 ????*c107E(s171W (|0end:14.0head:15.0headeven:16.0 headodd:17.0bottom:18.0bottomeven:19.0bottomodd:20.0block:21.0"; kommando liste CAT "material:22.1columns:23.2columnsend:24.0ib:25.012ie:28.012topage:31.1 goalpage:32.1count:33.01setcount:35.1value:36.01table:38.0tableend:39.0 rpos:40.1lpos:41.1cpos:42.1dpos:43.2bpos:44.2clearpos:45.01right:47.0"; kommando liste CAT "center:48.0skip:49.0skipend:50.0u:51.0d:52.0e:53.0headon:54.0headoff:55.0 bottomon:56.0bottomoff:57.0countperpage:58.0fillchar:59.1mark:60.2 markend:61.0pageblock:62.0b:63.0counter:64.12setcounter:66.2putcounter:67.01 storecounter:69.1"; kommando liste CAT "ub:70.0ue:71.0fb:72.0fe:73.0region:74.0regionend:75.0"; line ; erste fehlerzeilennr := 0; anz tabs := 0; zeilennr := 0; zeilenbreite := 0; anz blanks freihalten := 3; herkunftsreferenzen := "#"; zielreferenzen := "#"; aktuelle blanks := ""; font nr speicher := ""; modifikationsspeicher := ""; mod zeilennr speicher := ""; index speicher := ""; ind zeilennr speicher := ""; counter numbering store := ""; counter reference store := ""; command store := ""; kommando := ""; neue zeile := ""; zeile := ""; puffer := " "; interaktiv eingestellter schriftname := ""; fehler gewesen := FALSE; macro works := FALSE; in tabelle := FALSE; in d und e verarbeitung := FALSE; kommandos speichern := TRUE; in foot := FALSE; in foot uebertrag := FALSE; macro hat neue zeile ausgeloest := FALSE; zeile unmittelbar nach macro := FALSE; test ob font table vorhanden; bildschirm initialisieren; zeile lesen; zeile in puffer und zeile lesen; einrueckung zweite zeile := "xxx"; limit und type ggf anfragen; einrueckbreite := eingestellte indentation pitch; initialisiere neue zeile; IF einrueckung zweite zeile <> "xxx" THEN aktuelle blanks := einrueckung zweite zeile FI. bildschirm initialisieren: IF online THEN init FI. init: page; IF lineform mode THEN put ("LINEFORM") ELSE put ("AUTOFORM") FI; put ("(1.8.2)"); put ("(fr"); put (lines (eingabe)); put ("Zeilen):"); be); ine (zf); rt SUB 1); (*sh*) QForts.von letzter (WJtype:1.1linefeed:3.1limit:4.1free:5.1page:6.01pagenr:8.2pagelength:9.1 foot:10.0end:11.0head:12.0headeven:13.0headodd:14.0bottom:15.0bottomeven:16.0 bottomodd:17.0columns:18.2columnsend:19.0topage:20.1goalpage:21.1count:22.01 setcount:24.1value:25.01on:27.1off:28.1headon:29.0headof` rubinmode_ iseditget_editgetcommand_getchar_ nichtsneu_ getcharety_ satznrneu_ isgetcharety_ueberschriftneu_ getwindow_zeileneu_ geteditcursorw_ abschnittneu_ geteditline_bildabschnittneun_ puteditline `bildneu_aktuellereditorh_allesneu_groesstereditor_ satznrzeigen5` openeditor_ueberschriftzeigen_editfile_ bildzeigenU_covereditorscmdtexteditorfunctions`showD`#covertracksofstdkommandointerpreter4G`IJKLMNOQ"&+09:p*09BKLU("") / continue ("") / storage info / task info 1pc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.ascii DEC.VT220.german FT10/20.germanFT10/20.asciiampex210.asciiampex210.germanampex220.germanampex232Wyse.WY50.asciiWyse.WY50.germanWyse.WY60.germanWyse.WY99.germanWyse.WY120.germanDEC.VT100.german.genpc.2.25.genfonttab.std-10fonttab.std-12fonttab.std-10.asciifonttab.std-12.asciipc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.ascii DEC.VT220.german FT10/20.germanFT10/20.asciiampex210.asciiampex210.germanampex220.germanampex232Wyse.WY50.asciiWyse.WY50.germanWyse.WY60.germanWyse.WY99.germanWyse.WY120.germanDEC.VT100.german.genpc.2.25.genfonttab.std-10fonttab.std-12fonttab.std-10.asciifonttab.std-12.ascii8Jpc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25Mfonttab.std-12.asciifonttab.std-12.ascii fonttab.std-12.asciitandberg.2244s!tandberg.2244standberg.2244s=tandberg.2244s1tandberg.2244sQfonttab.std-12.asciifonttab.std-12.ascii tandberg.2244s)FT10/20.germanan T`sS.SDBTi8L4BDBT  2.|n2. WCBSi   BDBT.ST.$  4Y.2.25.genii,BDBT8  BIZ.2.25.genii`90@00k4 hd-<`9BHltl9=9'd[2s*:[$4Z`q-y-~  H|r&4|(b|.0@ }P ??p*c108E(s86W(D*c109E(s192W-, `?`p pp8  `??` p p08 ```@ @ *c110E(s136W `?` pp8  ```@ @ *c111E(s116Wt???|p00000p|???*c112E(s156W'?pp``p`8`@@*c113E(s156W'|??p``pp???*c114E(s108Wd<~xx 8  ```@ @ *c115E(s92Wd|xp`?p?0000``???*c116E(s101W%P888p8p8x8?x8*c117E(s136W*c118E(s124Wh*c119E(s176W&(??*c120E(s128Wp@?@@@x@@@*c121E(s151W&h?πx8<*c122E(s104Wd?*c123E(s156W2t???*c124E(s48W:t*c125E(s156W2t???*c126E(s80W' |~>?>>~||||>?*c127E(s472W899???????????????????????????*c161E(s289W%4'0?0@0?>~?pÀ0pp0*c162E(s289W%4'0@?00?~~?À@0pp0*c163E(s261W$4#pp p 0L00000 0 0>p~pp 0*c164E(s261W$4#pNpp00 0~ 0 0 0 0 0p~Op 0*c165E(s261W$2#???><<888|0000?|0800 0 0 88 |????|?8????80 @ @ @*c166E(s163W4\H00p~~p00H*c167E(s163W2\ @ @8 @| 08?|?8????8?|??80| 8 @ @ @*c168E(s42W tp~>@*c169E(s42W t@>~p*c170E(s50W t@~~@*c171E(s33Wt8||88||8*c172E(s32Wt|<>>>||x|<>*c173E(s296W(5(  `@p008888>8~xx p *c174E(s296W(5(  H`p0~088888~xxO *c175E(s178W)t?燀燀?LJ??p???À<*c176E(s45Wt*c179E(s70WL?~xx~?*c180E(s268W%5$?x8<80p`x88888pppx?~?`??*c181E(s126W(d?xp|? ?*c182E(s296W)4(?|<>?>>||x|<>   ``   *c183E(s166W'|<>>>||x|<>*c184E(s76W) L*c185E(s154W)p??*c186E(s144W 8|>??yx  9/my (y(ymy(#9M $Dy-9$m(y(m(y(  #m ymy ,#9M ,Ey-9,m0y0m0y0 0y0m0y0 # y!mymy # 6rp]tp   ##m ymy  # y y1p #+ <9` #+ <9`9  #L # $# p9 5p9 1p ?m y, 9 :?J?J?J? 7p ?JEJ@J? 7p 9( p97p(  pplmy5p7p0p 779 1p OpJp  ̇6]  #91 ?my,9pjp?Upsp sp?Up?Up?Up?7 ?UpEUp@Up97 9(1U  ppgpgpnpyp}ppvppypypyp# y,#$&$5 9  ply6ph (1pIJ hp1p9H m y2pK0 0ply5p A9 1p h 9 1p9 m y mply5p 99 $6M $$$%$$ 9m9my+p-p p2pT#%2L 8HJL"$(%QpHhSp(]hi?9l1plpp?mpy,p9ls??&s(l 9ml.0ypp.p0p.>)p?&s?(s(s&s5lll0plppp7pll9 *5l*lp0*p.pn9n,`,$h9 i`,$hi*p7p**9l1pl*9 *5l*lp0*p.pn9n,`,$hi`,$h9 i*pL $&9l1plp,p9E ?l0plppp5lll0plpp1p7pll9 *5l*lRp0*p.pn9n,`,$h9 i`,$hi*6p7p**9l1pl*9 *5l*lp0*p.pn9n,`,$hi`,$h9 i*fpL $>)p?($p0H((%p&pHHy&&(&(%p9ln lnyH9 P l9$P9 lR R9p 9lll llypp  llpp(%HHy$$&H$$((&($p(% pL %&r(&r&r(%p(%'p0 p6pll(Hp(%H9 P l9$P9 lR R9@pHp ll,pp(%UHHyL $9l1plpp?mpy,p9lp?l@n1plnpp?mpy,p9lpFlGn1plnpp?mpy,p9llDppp l ppppppppp}ppppp@lEn1plnpp?mpy,p9llDppp l ppgpppppppppppL %&r lly\hp\hi$$&r(&rH$$(r(&r0pX.XT (A|.0@w%&&Љr&4| y1AA|,.0@01/(w%4-01/XQNSijX$4l@|}l-hQNSijTP Z })4NSN!1&"2Z$47-l 9ml.0yEpp.p0p.>)Ep?(%,p`Thi`Thi&/p/ppy/ppypXpy4 p&?((&H*(l 9ml.0ypdp.^p0dp.>)p ykp&2npp*,,?l7pl, @l,lp,9l0plp6 pll(qp*l*Hy*2%(%pHhp(]hiJllH8 ?Lp*Hp?(*&((p2%H(%pHhp(]hiJ8 L"$**?(l 9ml.0ypp.p0p.>)p yp&?(  01.04.90  01.04.90  01.04.90  01.04.90  01.04.90  01.04.90  01.04.90  01.04.90  01.04.90  01.04.90  01.04.90  01.04.90  01.04.90  01.04.90  01.04.90  01.04.90  01.04.90  01.04.90  01.04.90  01.04.90  01.04.90 *$*&0"c(&cpL &&(9 ,9l"9n*lnll9l,l^p2%H(%2pHh4p(]hiJ8 L"$, (m.0y\pWp.Qp0Wp.>)\p$&&q,%p$&L)cp&q2%H(%mpHhop(]hiJ8 L"$(q(q&q(l 9ml.0y(qp.p0p.>)(q?(%p,p&q($ llyp9my&q*&((p,p2%H(%pHhp(]hiJ8 L"$**?(n 9mn.0ypp.p0p.>)p,p }P*$*&0(V(&VpL &&(9 ,l,lQp2%H(%%pHh'p(]hiJ8 L"$, (m.0yOpJp.Dp0Jp.>)Op$&,p$&L)Vp&2%H(%`pHhbp(]hiJ8 L"$((&??&?l7pl(pp7pNN(NpplNNmy5pl9lN 9l1plp7 p(%p,Hp ll&H(&0(0( 9l1plp97 pp0(($ 9l HlyHHy ll(b|h$4.0@L o.=| $4 |4.0@|(-0'4  @T1A  fL4Ȋh&-o'ylt'-`  $4 xw -W-=&pH(p(p&pH(pHHy&p(p&p l zziuiuouuuuvvJwr *p 9l1plpp?mpy,p9l)l lq !q q? p*2%H(%SpHhUp(]hiJ8 L"$(l 9ml.0ypzp.tp0zp.>)p+?ll9pnpn*pppnp)pplLmyll9*? qLmSy!q!q q""ll9*$?(l 9ml.0y!q.p0. <#>^^>#<??|>8*c187E(s178W)t?>?<?>?<><><><*c188E(s206W%'&??*c189E(s160W0t?????p???*c190E(s219W1tx??W?<*c191E(s148W*t ???*c192E(s178W)xA~ ``p~8<>?A<*c193E(s154W)h 8@~~@?*c194E(s166W)t?@~~@?*c195E(s196W)C ~~C*c196E(s178W)xp~> ``p8F<>?<*c197E(s154W)h 8p~>G?*c198E(s166W)t?p~>C?*c199E(s196W)p~ >C*c200E(s178W)xC ``>p~8<>?p<*c201E(s154W)h 8C>~p?*c202E(s166W)t?C>~p?*c203E(s196W)C >~p*c204E(s151W'x88||8`08|~|8?*c205E(s131W'h8p|88|8>>8~||8?*c206E(s141W't?8|||88|||8?*c207E(s166W'8| p0|88>||8 *c208E(s289W%7'~???|<pppp<p|pp??pppp>*c209E(s101W(D@~~@*c210E(s262W*0)?}`p0|00000x0>pp?x>?*c211E(s291W5(7??~<<|~|??*c212E(s178W+x??xy09099yx?Ϗ?>*c213E(s96W(Dp~>C*c214E(s141W%t}><   x>8*c215E(s168W'& ?x?? ` ``??*c216E(s289W%2'@@8?|@|@8@??8||?8@@@@@*c217E(s86W(D@>~p*c218E(s303W*3)??8|88|0`80`0`0`0`80`|0`88|8?*c219E(s296W(3( 08???8|08 |  |88|   0|8?8?????????80 *c220E(s261W$4#ppp p 0 0~ 0> 0 0 000pOp 0*c221E(s101W&D8| |88| |8*c222E(s190W)?``??*c223E(s303W*5)?Gp08~      ~ 88pǀG?*c224E(s289W%4'0>)! , (l 9ml.0y&p$p.p0$p.>) &(*(p,5pp2%H(%?pHhAp(]hiJ8 L"$** (m.0y-pep._p0ep.>)-p(l 9ml.0y-pp.yp0p.>)-p*$* 0"(p&(9 ,9l"9n*lnll9l,lp2%H(%pHhp(]hiJ8 L"$, (m.0ypp.p0p.>)p(p 9mp.0ypp.p0p.>)p$ ,p2%H(%Hh(]hiJ8 L"$!p!p ppl>my!p!p p l@w@w@wCw #?(%[p,[0 6(([p 90 6(([p0 %Pp 90 %P 9 90 6((p0 6((p0 %P 90 %Pp$#5 (0  . 90  . @0  . ?0  . `  lGy` pp  l Gy p` $$pE1 9 p$$$%$$#9 yx   9$9  p # y y#`L #hL #M`%Mh6M?@^_` * patternZ''6u''6u\'3u ]'3u ]''3u\'0u\''3u)0u0uK1u;(\GR7+0u<+'Ry0u\y\y\yBR0uBR'0uBR#N0uBR'0uV\BR#N'0uBR'0uBR0uBR0uBR0uBR0uBR'0u.BR'0u26uBR0uBR'0uBR0uBR0uBR0u2+#N0uBR'0u2+6u2+6u2+1uBR''GR0uBR0uBR'0uBR0uBR0u2+1u2+1uBR'0u2+BR0u2+3uBR'0u2+#N0u2+1u#2+3u%2+'6u(2+1u 2+1u! #N' * }P ^<><^yx  extlargerfontexistscnextsmallerfontexistscfontleadc fontheightc fontdepthcindentationpitchc charpitchcextendedcharpitch:c replacementYcextendedreplacementc fontstringcyoffsetsc boldoffsetcgetfontdgetreplacementsadditionaltextfunctions%d smallletter)d capitalletter-dletter1ddigit5donlycommandlinebdrposhd anycharposldanycharHdbetweenXdbefore]daftertextererrorsandcommon182sd skipinputvdbeginofthischar{dd }Pp?00~?>?@À0pp0*c225E(s289W%3' `??`|`< >  >>||x|<> ? `?` *c226E(s151W(x ?|<>0>> | | x p| x?<|>??x*c227E(s221W(()??~~x88888888888888*c228E(s196W)ǀ*c229E(s163W4\p0 0p~>Op 00*c230E(s163W4\0 0Np>~p 0p0*c231E(s303W*5)?pp0~8>   N88p?*c232E(s303W*5)?pN08  > ~ 88pp?*c233E(s303W*4)?|`<p>00>0>0|0|0x0|p<p>??*c234E(s141W(t|<>> > > | | x|><>*c235E(s212W5p0|8>??8>0|p*c236E(s130W)d??|>>|?*c237E(s296W(5(  p`p~0>088888xHx  *c238E(s289W%2' 08<???0 > @ @8 @|||8?  8 ?|0???@|?@8?@?????<80 *c239E(s205W2h8||88|>|8? ?*c240E(s186W"("?88*c241E(s212W4?0 p0*c246E(s45W%*c247E(s244W()&?x>a1 >>>>??*c248E(s244W()&p??~|xx>8o8?>>>>??*c249E(s92WX`?Àcs`~?~<*c250E(s88WX?À3333?À*c251E(s91Wx <|>x0<|>x0*c252E(s82Wp*c253E(s91Wx0x>|<0x>|< *c254E(s132W& ||||||||||||||||||||||||Q4!1AQ aq $(,049=!A1EAIQMaQqUY]aeimquz~!1AQaqѮ!1A*5+5isplayandpausePdreporttextprocessingerrordreporttextprocessingwarningQ macrostore182d$macrocommandandthenprocessparameters[d getmacrolinednumbermacrolinesd loadmacrosd listmacrossilbentrennungdtrennAdistausnahmewortd ladeausnahmendentladeausnahmenHpager182gdpageformd autopageformRdnumberemptylinesbeforefootdfootcontinueremarkd firstheadd lastbottomliner1822elineform8eautoformehyphenationwidthetextincme yx  }P <#>^^>#<yx  }P ^<><^yx  }P ~~yxableend:32.0clearpos:33.01lpos:35.1rpos:36.1cpos:37.1dpos:38.2bpos:39.2textbegin:40.02textend:42.0zfonttab.std-12.asciipESC b --> begin ("")ESC c --> continue ("")ESC q --> break2ESC h --> halt2ESC s --> storage info2ESC t --> task infogib supervisor kommando :.01pagelength:29.1start:30.2table:31.0tableend:32.0clearpos:33.01lpos:35.1rpos:36.1cpos:37.1dpos:38.2bpos:39.2textbegin:40.02textend:42.0indentation:43.1ytab:44.1;<<\=_>|?=/'_?-/YZZYyzzy#^}`~PQRS?17~18~19~20~21~23~24~25~~31~@32~\33~|34~)s257W@FQ^L,h TmsRmn (C) Copyright Hewlett-Packard Company, 1986. All rights reserved. Reproduction, adaptation or distribution of copies of this font is prohibited, except as allowed under the copyright laws. *c33E(s100W4 `??*c34E(s73Wd?@?@?@?@*c35E(s394W766??| ?| <*c36E(s272W"? ?< -5.5/505152535455565758595:5;5<5=5>5?5@5A5B5C5D5E5F5G5H5I5J5K5L5M5N5O5P5Q5R5S5T5U5V5W5X5Y5Z5[5\5]5^5_5`5a5b5c5d5e5f5g5h5i5j5k5l5m5n5o5p5q5r5s5t5u5v5w5x5y5z5{5|5}5~5555555555555555555555   ?<|*c37E(s408W858?<xp>pxxx??????>~<xxx|p~88?88?<?<<|*c38E(s387W845 0 < ?  ???p????*c39E(s72WL?8?*c40E(s168W@t`088x??*c41E(s168W@t???88p`*c42E(s128W ????>|x<`<@<`<p>|~?????*c43E(s250W2)'*c44E(s72WH?<?*c45E(s52W `*c46E(s40W H??*c47E(s356W#K"0<??????*c48E(s247W"4!???p0000pp????*c49E(s219W!3`````??`````*c50E(s254W"3"??|>???>*c51E(s247W 4!?`??|||<<??0?*c52E(s247W"3!?x<|<*c53E(s240W!4 ?>?????@*c54E(s240W"4 `ppx8<>pp000p???*c55E(s247W"4!??*c56E(s240W"4 ???pp?00000px???*c57E(s240W!4 ????|??ppp000*c58E(s81W$ T??*c59E(s114W2T??<?*c60E(s226W0*#????????*c61E(s130W1&*c62E(s226W0*#????????*c63E(s219W4??a??*c64E(s528WD@@(293527psqr3m2h0.267949192431122706473sqr2x0.707106781186547524400xzȊtЊsumme؊0.01.0normallog2: (2080.5@normalisedownwardsHnormaliseupwards`0.75htrans8p0.25fxtrans2reihenentwicklung8.00.06254.016.02.00.5946035575013605ȋ0.8408964152537145Ћ0.06405572387119384648؋3.465&4.095J5.0056.4359.00915.015#45.045 y0(y18pP2X64y;xH1;1HCA(JK27m 7m 8Zpc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s Etandberg.2244sefonttab.std-12.asciitandberg.2244s%tandberg.2244sDEC.VT100.ascii!DEC.VT100.asciiDEC.VT100.ascii=DEC.VT100.ascii1DEC.VT100.ascii DEC.VT100.ascii8jpc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC #$%()*,./124567;<S߁ }P ***************************************************************************************AOUaouk-#_***************************BS***  [@ [1~ [2~ [3~[4~[5~[6~OPOQOROS[17~[18~[19~[20~[21~[23~[24~[26~hsqrt: p nontrivial10.0  5.3176703 40.76090578.40806516.815951288.973-84.08065،negativ6 292.42830676REAL-Ueberlauf0.0001approx7.389056098930650227230 1.648721270700128146848(1.284025416687741484073300.12581.133148453066826316829@1.064494458917859429563H50.4P0.01X0.07`0.42h2.1p8.4x25.25.729577951307e001tg45.0&ȍq؍sn^013.035.1161869;xH(   .VT100.ascii EDEC.VT100.asciiDEC.VT100.ascii%DEC.VT100.asciiDEC.VT100.german!DEC.VT100.germanDEC.VT100.german=DEC.VT100.german1DEC.VT100.german DEC.VT100.german8pc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german EDEC.VT100.germanDEC.VT100.german }P A(/)^***************************************************************************************[\]{|}k-#_***************************~@***  [@ [1~ [2~ [3~[4~[5~[6~OPOQOROS[17~[18~[19~[20~[21~[23~[24~[26~[\]{|}~@;xH(   %DEC.VT100.germanDEC.VT220.ascii!DEC.VT220.asciiDEC.VT220.ascii=DEC.VT220.ascii1DEC.VT220.ascii DEC.VT220.ascii8pc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.ascii EDEC.VT220.asciiDEC.VT220.ascii%DEC.VT220.asciiDEC.VT220.german }P ***************************************************************************************k-# *******************************1~CAD B 2~ 3~ 1~23~28~29~5~6~<p8p 0@8|80p p```<pp<x~``?p?pp88<?8xx????*c65E(s373W133``???``p`pppppppppp?ppp```?``*c66E(s324W-3,8??????```*c67E(s345W14/x?<><xpp`px|??????*c68E(s366W332?????~|x```*c69E(s345W/3/?````*c70E(s310W+3*?```````*c71E(s387W745??><xpp``ppppppppx|??????*c72E(s394W736``````````````*c73E(s198W3t````````*c74E(s296W";#*c75E(s408W938```??|?`>````?```````*c76E(s338W/3.0??```*c77E(s485WD3C```?````???```````*c78E(s380W544???````````*c79E(s387W745????~|xpp0000000ppppx|???*c80E(s324W-3,???p`p`p`p`ppp```*c81E(s440W7@5  ??????~|x???????ppx|???*c82E(s380W534``???????``~`|`ppp```*c83E(s268W(4$?><8xppppp?p?p?pppx|??????*c84E(s324W,3,y;xH1;1HCA(JK27m 7m !DEC.VT220.germanDEC.VT220.german=DEC.VT220.german1DEC.VT220.german DEC.VT220.german8pc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.ascii DEC.VT220.german EDEC.VT220.germanDEC.VT220.german%DEC.VT220.germanFT10/20.german!FT10/20.germanFT10/20.ge89653120e-115.608325022830701e-109.526170109403018e-9 1.517906721393745e-7(2.430939946375515e-6N03.901461426385464e-586.324811612385572e-4@1.076606829172646e-2H0.2617993877991508pyxrsincos0.16.07.0 sinapprox cosapprox5.0(0.6877101540593035e-1100.1757149296873372e-880.3133616216672568e-6@0.3657620415845891e-4H0.2490394570188737e-2P0.807455121882e-1X0.7853981633974483x0.3857761864560276e-12  }P)L      `    `  )L       `    `   )L     `  `  `  `   `  `  `  )L `  p `  `  ` p `  p y  `  `   ) ` ! ! ` ! y  !  ` $%$%!  ! )  ` ! ! y y  !  ` $%$%!  !)  pL  p yp pmSy$)  ( (Gy   $$$$ ypL  ) L  p yp pmSy )  m Jy   $$$$ ypL  ()  !  $%,!,@lGy(lym8ly (lyA(Xp  !7p9p $$0ly(y40(408(y40( ` ! !0ly  @0! y  (lyA(Xp  !spup $$0ly(y40(408(y40( ` ! !0lyXpp ` ! 5!$$ AA$my$) A ` 7p ` 5""" @0" yp "    @ !( (((Gy ` 6pppL  $$ K"p @p"p y'A$5p ` 5  )7 Fp: !fp: !mHyGyfp lp]lp1 lp [pUpXp ()  !(m(@lJy(lym8ly  ! (lyA(p $$0ly(y40(408(y40( ` ! !0lyp  !pm$y$pm$y$p$$0ly(y40(408(y40( ` ! !0lyp  !tm$y$t  !@po y ` ! 5! (lyA( $$0ly(y40(408(y40( ` ! !0lyBp  !;pm$y$Bpm$y$p$$0ly(y40(408(y40( ` ! !0ly  !tpm$y$tp  AA$my$) App ` ! (7!(  !@ yp ` ! 5!$$A$   $%@, ,,!,Jy ` ! (7!(pppppL  ((! K  !@ y A$ p )A(p )L  Gp  *p y y  : y my myIp"mSy )L y  _p y   $$ y y my my `Mpp `(*,}( `M myp-mSy)   ! yp pp     `p y y ` $)I  !Iy$ $y y  !$ $y  ! y y yL y  ! y$ $y )  )  ) )I 6fp"( BypI 1v"( BH 6BlyypK8mSyBl yB ) yp 6my"(Bp  y"(BN yH6BlypFm yGmySyK  myBl zBl yB)  py yp  y) p    p  y 8  my   p p  )y y)y y)y y )  )  Dp NpOmSyup YpTmSyup _pgmSyup jpzmSyup ppmSyup upmSy )    $yp1  $'  y) my y) my)   y) z 8 ) my  $ y) my   $ y) my $ y) my $ y) y  y) y  y) my  Vp   `( XpmSy) my   `(  )  zpzmSyp  p $ y   yp   p  p  7p  8 p   $ my)  p yp ) my   `( 2  "p      `(53p  $y  ) my Bp)  Syp  xp    `(5yxp)   )   `' )   `' $) my 5      $ yp   `(4   `(4    `]] ^^^x^?______]````aa.b:bQbpbbbbbbbbc ccc*c4cgcqc~cccccc dd%dGdNdodvddddddd e2eTexeeeeeee fg,g6g>gIgOg~jjjjkk$kFkZknkskxk~kkkkkl2lHllln(n*c86E(s373W043????*c87E(s520WE4H???*c88E(s373W333``??>?`````~`?````*c89E(s373W033?````?````*c90E(s331W.3-|????`*c91E(s152W> *c92E(s356W#K"????<0*c93E(s152W> *c94E(s118W#"x????x*c95E(s53W$%*c96E(s72WL@|`p8?*c97E(s186W$$"??|q{?????~*c98E(s275W%4%??pppppp8`8*c99E(s166W$???x???*c100E(s268W&4$88pp??*c101E(s166W$?0x<??x?|?*c102E(s205W3`?xx`x`x`xx??xxx`x`*c103E(s254W#3"xx?xxy?????8*c104E(s282W'3&``?`x`x8````*c105E(s149W3X``p`````*c106E(s232WC`xp```*c107E(s296W)3(`````ppxx|~?a`````?````*c108E(s149W3X````*c109E(s306W;#:``?`x`x8``?`x`x8``p`````*c110E(s206W'#&``?`x`x8``p`````*c111E(s181W#$!??p00000p??*c112E(s275W&3%???xx`8`<p`````*c113E(s275W'3%``(5) ?y z) Yy z$) my 5  Q    $ y`p   `(4    `(5$) my5   `(  ! !(((1( p p   `!(5  2   `( 71   `( 1     `!(5  > y>p   `( 2 y>p y y:pM >p z ) my    `(5|p   `(  y p   `( 2 y) mz) DlzDl Ay) DlzDl ]y) m z$)p   `(:T1Tp Tp TpT$   `(1 7L y y T  `!(4   `(4L y   `(  `!( $1$   `(5 1\p   `(4Hp ) y   `(L ~p:L~2LL y y   `(4L) m z)yz )K yI  y6 y y yLE F y  y y z  p y= XlyXlyYmSyNpGp ! ! yp8mSy z }y yH6 yG ) my  $y$ 3p $y $p $#z$p $#z$@ $#z $m zS y y m z$ $y ! ! $% $%!pp  ! vp !  $#z$p  ! $z &y$&$$p ! $z &y$&L ! ! ! ! ! ((! ! !pmSy) my     1p1mSy-L       p y y m z y +p y z y m z y Ny)   z) my    $ y) my  $  y) my  $  y)   ( ( 4 4    )   )  7p  ) (  ) (  ) 4  ) 4 )    )   )  ) ! )  )  $y   $y  $y )   ) }   ) m&z $) #z +zp 4z #z  5z  ) #z #z  5z) 0ly40 y40   `(0lyp)   `( )   `( )   `(7 ) m-z$) my   $ y ) m/z$) my   $ y ) m1z$) my   $ y ) m3z$) my   $ y )   `(5 $)   `(1  ) my   `( y ) ! ) % !   "1p ! ") !>p]Qp ! mJy ) !`p]up ! pp]up " ) 7zp 9z :z  zp      y) m=z)c$ a @z) m?z) c a @z ) ypy y y "z zy y y zb y"(`blAzpFm yGmySy) Bz Az Az$)   * `X `(2ad Fp`X `(2atc(>p%tdFpDpdltl"yFpDpFp&p fp`X `(2a|c(^p%d|fpdp|ldl"yfpdpfpFp`X `(l`X `(`X `! !( !`X `(lL&`X `(l`X `(`X `! !( !`X `(lL`X `(l`X `(`X `! !( !`X `(lL))K5 mSy+p( Ј pmlmlmmmmy+p ̈ml lmmmmy)$)$M)$ Fz) ̔$ 0) Hz()( M (\p ap 0(gp$ },p 0,{p4 0p.$1$}.$$}$0$(($0$(.($1$}$0$(.($$}$0$(($0$(.($1$}$0$(.($$}$0$((}mmKzl$Ay/$(4 ( 0p}p}mmKz4 ,a4 0ap M'down' nach Dateiende'up' am Dateianfang*'delete' am DateiendeFILE-Ueberlauf>>Datenraum hat falschen Typ"" gibt es nicht Datei zu!%unzulaessiger Zugriff auf modify-FILE%Zugriff nur auf modify-FILE zulaessigLeseversuch nach DateiendeLeseversuch auf output-FILESchreibversuch auf input-FILE'write' nach Dateiende!'SpeicherengpassFRANGE ungueltigKommando zu lang 09AZaz.e-+#":=:=***BR'0u)Y2+''1u+2+1u4Y2+''3u5YBR'''0u62+1u2+1u"2+6u72+1u92+1u:BRGR0u;BR'0u BR'0u '0u<'0u>1]BR2+0u6]<+'Ryi]BR<+0u>]BR0uA]BR0uD]BR0um]BR'0uq]BR'0ue]BR'0u]2+1uU]BR'0ut^BR'0uZ]BR#N'0u~^BR#N0u^BR!N0u^BR"N0u 4^BR''0u 9^BR0u ;]'0u]BRGR0u]BR'0u]BR'0u]BR'0u]BR'0u$]2+'3u&^2+'3u'] #N'BR'0u*a^BR'0u,^BR''0u-u]BR''0u/f^BR'0u0^BR''0u1z]BR''0u3#^BR''0u8>^''0u=B^''0u?)'0uC0uD*)'0uE'0uF#N0uG_#N!N0uH _BR0uM_BR#N0uN"_BR#N!N0uOF+1uP1uQ1uR6uT6_'0uS9_'0uUn+''0uV'3uX''0uY'3uZ'6u[0u\4'' '0u#N''''#N0u^0u0u'0ul`Z'0um'0u1u\6uk0u6u6ue'0u]#N0uz0u3u}0u'6u|0u!N!N!N!N0u0u!N!N0u~''0u#N!N!N0uf''0u'''0ug0u1u0u1u0u2+'0u0uRy0u0ul_#N'#N0u__#N''#N0u`Jz,,p$0$((p0p Iz}q0$ Iz}q,p M (0p 5p 0(;p$ }q,p 0,Op4 0p.$1$}q.$$}q$0$(($0$(.($1$}q$0$(.($$}q$0$(($0$(.($1$}q$0$(.($$}q$0$((}qmmKzl$Ay/$(4 ( 0p}qp}qmmKz4 ,54 05p.$1$p.$$6$$6 mmKzL Jz.$1$p.$$6$$mmKz.$1$p.$$,-p4 0-p.$1$}.$$}mmKz-p4 0.$1$Bp.$$I6$$ mmKzL .$1$\p.$$c6$$}mmKz.$1${p.$${p4 0{p4 Pp.$1$%.$$% mmKzL ,}$0$(.($1$}$0$(.($$}4 0mmKz4 ,}$0$(.($1$p$0$(.($$$0$(($0$((}$0$(.($1$}$0???|p```~?*c114E(s166W#?~>```p`````*c115E(s141W$?~xp`pppp?p`?*c116E(s148W0dx<??*c117E(s211W'#'*c118E(s186W!#"??*c119E(s271W1#3??*c120E(s196W#"$???*c121E(s254W!2"??>|*c122E(s166W"??*c123E(s216W@|>?????*c124E(s76WK*c125E(s216W@?????|>*c126E(s100W4 *??????*c127E(s766WJKK,???????????????????????????????????????*c161E(s475W1D300p??pp80x00?888?88?8?888888x80?00p?ppp00*c162E(s475W1D300p?8?xpp0?00?888?888??8888x88880?00p?ppp00*c163E(s439W/D/?~||xxxppppppp8ppxppppppppppppp?xx|pppp`0`0`00*c164E(s439W/D/?~||xxx8pxpppppppp?pppppppppppppx?x8|pppp`0`0`00*c165E(s439W/B/8??*c166E(s250WDt`0`0`08`0xpppp|??|xpp8pp`0`0`0`0*c167E(s250WBt*c168E(s50W x?p8*c169E(s50W 8x?x*c170E(s58W 8x??x8*c171E(s60W *c172E(s58W ????????`*c173E(s475W4E3``ppx||xpp```8pxpxxxxxx?````ppxx|pp```*c174E(s475W4E3``ppx||xpp`8`x`p?pxxxxxx`?```pxp8x$(.($$}p4 0,,p4 0mmKz4 }p6$$6 L 0}p(=p M }p L 0 Zp,O,WpM 0}p }p lyg g pp4 0}p }p,}pM 0)Lz(p Hzp50p Izp M ):(p5 0$) /:(p5 /:0 10$) , ,p L 0, , 0  p pLz( 0Jz) lylEz) Oz) Hz1;p y; lylFzlHz4 )p)MMM$+7y8yT8yT +7y8yT8yT  + + +)}p+ ++. $` Wz$+ l y6 %$0  p&0  p$ lyl y7 p%& 6 p ly+ [zp\p. $` +. $()[].,;<><=>={(! })    ([)]<{>}AOUaouk-#Bs`L. $`4  + [z-p. $`2&/p\  +. $`0$Gp+'l(lVz)l*lVz+l,lVz-l.lVz/l0lVz1l2lVz3l4lVz5l6lVz7l8lVz9l:lVz;llVz?l@lVz&lAlVzBlClVzDlClVz +$ 0 #p` L  p\z4 md4l,ypq(pp,p pp0p` pMp pp$ qp,pq$*mSyp q1mSy M,4,h$(M 4 Lf$M`l_l6y }0LH  `     M }pz ap czN \M4[]{}  edit   break 0.115004970178141e-90.246113638267419e-70.3590860445885748e-50.3259918869266875e-30.1585434424381541e-10.3084251375340425Kf؏negb0.01070902760468220.016477571821080400.021778463324821510.030193396732738800.046560835611833980.0888888888888888 0.3333333333333333P 0.0 ** 0.0KX(`) ** m 0.0 ** 0mathlibET|!51 dcommand!520ecommand!(53@headon!854Pheadoff!H55H!`bottomon!X56fp bottomoff!h57r countperpagex58fillchar59 markcommand!60kmarkend!61^ pageblock!62Аbsp!Ȑ63counter1"ؐ64counter2 "65 setcounter"66 putcounter0$"67  putcounter1@680 storecounter(691 @ubE"870PueM"H71`fbX"X72pfec"h73regiono"x74 regionend{"75 limitincm16.0 fehlerwert1.0eingabeyausgabeȑfile Б alterbereich|pp```*c175E(s261W$4#?x?x?x?x?xx?x?x?x?xp??`p0?0x0x0xpxx*c176E(s53W$%*c179E(s85Wd?~||~>>>>>~||~?*c180E(s439W1D/x?<><xpp`px|??????*c181E(s226W4???x???*c182E(s484W5D4???????????`````````*c183E(s282W'3&``??`x`x?8?`?`????`p`````*c184E(s100W4 `>?????*c185E(s219W 4?`pppp???*c186E(s221W*')88||????||88*c187E(s261W$4#?????????p??`p0?000p*c188E(s366W132pppppppppp>p````??````ppppppppppp*c189E(s256W!>???x?8      x??????*c190E(s340W#A$?π~??UU}|*c191E(s219W 7?p````p8?>???*c192E(s254W$5"8x????|xppppppx?p>8?=?x8?*c193E(s226W5<8x???<p`````p?x?>??x?8?*c194E(s247W#5!8x???|?p8`````p8|????x8*c195E(s289W'5'``????????8?x??<0?00??????x?8?????<800*c196E(s254W$5"x????|xpppppppx8p>8?=??*c197E(s226W5<x??<?p`````pp8x?>????*c198E(s247W#5!x???|p8?`````p8p|8???*c199E(s289W'5'``???????x????<00?0p?8??????????<800*c200E(s254W$5"??8?x|xppppp?pxp>8?=?x?*c201E(s226W5<?8?x<p`````?px?>???x?*c202E(s247W#5!???8|xp8`````p8?|???x*c203E(s289W'5'``???????????<80x00????????x????<800*c204E(s254W$3"??ؑds256 pitchtable tabzeichen tabs fontname( textmeasured8testobfonttablevorhanden H holedenfontPberechnediebreite`Unbekannter Font: "p0.0xxbreitentabelleQzposzuberechnendebreite LINERSTATEВpositionؒfrominmacro bufferlinenextline oldblanks actualblanks+newline"beforemacrostate beforefootstate( getlinerstate0lI@ putlinerstate`resultatYh deletepos2Azahl Г conversionؓcmpitches#i# -> (fehler_8negativHnrPaddition2` fehlermeldengh2meldungaufterminalausgebenundggfzeilennummermerkenxwarnung warnungmelden0ؔ!fuehreinitialisierungfuermacroausmacroendcommand( macroend8absatzP stellefontein`""h" weiter mit "pholefontundstelletrennbreiteeinxholefonttrennbreitesetzenberechnetetrennbreiteeingestelltetrennbreite100ЕzweimalblankbreiteؕprozenteX4Fehler: Einstellbare Trennbreite zwischen 4 und 20%k(hinterdemkommandostehtnix0kommende@absatzhinterdemkommandoHpufferhatabsatz!P(verarbeitekommandoundneuezeileauffuellen`neuezeileauffuellenhverarbeitekommandopspeicherekommando"executestoredcommandsexecutecommandsQ" anzparams kommandoende{ realparamЖ(kommandooderkommentarkommandoverarbeitenersteskommandozeichenI"-/":*scannekommandoundfuehreesausrestlichekommandoso/^# scantype2*:(linenobeforedo`setzekommandoumx. modzeichenu#b modposition in Zeile fuelleggfzeilevorfootauf indzeichen1N#Зherkunftsreferenzenspeichernؗ!zeilenbreiteumblankbreiteerhoehen"zielreferenzenspeichernohnewarnungzielreferenzenspeichern+*neuezeileauffuellenundausgabebeizeilenende !schreibeundinitialisiereneuezeileverarbeitetabelle0tabulatorpositioneintragentabulatorpositionloeschengskipzeilenverarbeiten nextsmallerfont(speicherefontnr 8verarbeiteindexundexponenten@entspeicherefontnrP diesebreiteXbreite`naechstebreitep0xbeginposi frombittomodNbitmodsbitvaluemodcharȘanz#Иkende"blankbreitemalanzLendeeinerneuenzeile5 indexoderexponentanfangsuchewortanfanginneuerzeilewanfDwbreite aufdasletztezeichenstellen(wortanfangvorformel50 #@alteszeichenposYH$verarbeiteindexoderexponentenzeichen4&PverarbeitezeichenvorkommandoXzeileinpufferundzeilelesenK` schreibeneuezeilevorformelanfanghschreibeneuezeilevorwortanfangloeschenachfolgendeblanks suchenranfangQ! entspeichereD&skipendekommando dateiendeș!Dateiende whrend skip-Anweisung!Йklisteؙ skipend:1.0kanflkindexnocheinkommandovorhandenanalysieredaskommando comende0footamzeilenendeohneabsatz(8 textvorfoot@zeilehatrichtigelaenge,'H footzeilennrPx1Xformatierediesezeile`(bringegezogenentextvorfootineingabedateip#footxanffootzeileinneuerzeile#foot#footanweisungentfernen leseeingabedateibisendkommandozeilenachendinzeile formatiere+%"schreibedieveraendertezeilenachend4!Țueberspringedaskommando &Кfootstandnichtamzeilenanfang$end:1.0pfootendekommandoJ zeilenachendendkommandostehtamzeilenende8textanf@zeilenachendistleerzeileH!verarbeiteletzteszeichenvonpufferPendederneuenzeile"X zposdavor<&`behandlungderzeilevorfoot)tabtype akttabpostabincmumwandeln-tabposinpitchesbistab und zentrierzeichen)țtabssortierteintragen؛typetab vertauschenueberschneidendebpos)naechsteanfangposliegtindiesembposbereich%hilf1thilftextwert>!fbreitel*0 umwandelnI(8cmangabederdruckpositionindummy##P cm(hversuchezuloeschenxverschiebeeintraegenachunten$suchausganggesetztpitchtableaufblankausgangsetzenverarbeitetabellenzeilenpitchtableaufblanksetzenG*suchausgangggfzuruecksetzenpostabzeicheninpitchtablebreiteerstesdezimalzeichenȜueberpruefetabellenzeileМausgabebeizeilenende؜tabzeilenbreitetabnonochtabpositionenpositioniereaufnaechstespalteerrechnespaltenbreiteueberpruefeobespasst(tabellenzeilebreiteralslimitnochmehrspaltentexte leerzeileoderrestderzeileistleerv(diesepositionistdezimalpos'0!setzedezimalzeichenaufsuchausgang8behandelediesesblank,#@verarbeitedaskommando+H)verarbeiteerstenteilderdezimalzentrierung*PtabellenzeileohneabsatzXbreiteexcldezimalzeichen` doppelblankhzeilenendeeinesmacros^ x-vorherigespalteueberschreibttabulatorpositionueberpruefenachartdestabulatorsPnachlinksschreibendnachrechtsschreibendnachrechtsblockendschreibend zentrierendzentrierendumzeichenaktuellereferenzerstelleny*؝referenzenueberpruefen_&ueberpruefezielreferenzen+'ueberprueferestlicheherkunftsreferenzenholenaechstezielreferenzanfpos(z[& b8eintext+X zeichenbreite0 zeilenformp&dateiforminitialisierenformiereabsatzweiseletzteneuezeileausgebeneinfacherabsatznachabsatz2-gebeeinfachenabsatzausverarbeiteabschnittnachabsatzȞberechneerstezeilenachabsatzОformiere؞letztezeilennrneuezeileausgeloest&anzeinrueckungszeichen,#anzzeichenfuereinzeiligeeinrueckung anzzeichenschlepperzeichenpos ***************************************************************************************k-# ******************************1~CAD B 2~ 3~ 1~23~28~29~5~6~pufferhatteanfangsabsatz|( nochkeinblankgewesen(berechneerstezeile0verarbeitetext8verarbeitedieseskommando@behandelezukurzezeileHbehandelezulangezeilePtextzeichenmitzaehlenX anweisungerlaubtkeineaufzaehlunghggfaufzaehlungaufnehmenpmehrfachesblankxpositionierungmitdoppelblankpruefeaufueberschreibungF),zeilenendebeierstemzeicheneinrueckunggemaesspufferanfangn!aufzaehlungsbreiteanzaufzaehlungszeichenueberschreibung$fy;xH1;1HCA(JK27m 7m }P??*c205E(s226W3~`x<???*c206E(s247W#3!??`````??*c207E(s289W'3'*c208E(s466W0G2>??||??>*c209E(s163W4X80x0p?????????????80px00800*c210E(s440W7>5?~?~~???|< ?*c211E(s506WD3F?pppp`p`p`p`?ppppp~?```?``*c212E(s254W$8"8?|08p8|>??*c213E(s156W4Xx00p?????????p?8??80p0000*c214E(s220W#0"~?>??|?*c215E(s261W2$10x<???~????q{????~*c216E(s475W1B3?????*c217E(s156W4X00p8?x???????????80p0000x*c218E(s493W7C5???```````????*c219E(s475W4C3|>?*c220E(s439W/D/?~||xxxxppppppppppp?ppppppppppppx8|pppp`0`0`00*c221E(s170W2X*c222E(s275W%4%x?????pppp`x??``*c223E(s493W7E5????8>x<pxxp8p8?```````p8?p88x8<x>8????*c224E(s475W1D300p?x?pp00?0?888?88p88?88888880?00p?ppp00*c225E(s475W1C3``????``p`p?p?p?p?p?p?p?ppp?pp`p```?``*c226E(s254W S SS SSSSSSSSSS??EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE??????????????????????????????????????????????????????[\]{|}kEEEEEEEEEEEEEEEE???????????~@???HCAD > B K E JNVI'//'\/[\]{|}~@ H(JKd@ dP Fyx 0@ 0[ 0\ 0] 0{ 0| 0} 0~ 3M 4E 2nehlendeblankserrechnenȟaufzaehlungsendeП>؟< Fehlende Blanks: anzfehlendeblanks!anzzeichenmaleinrueckbreiteminzwischenraum zeilelesenz holezeilebehandeleeinrueckunglesen +ggfueberfluessigeleerzeichenamendeentfernen( einrueckung8ggfabsatzanpufferanfuegena#HpufferistnurabsatzPzeileistnurabsatz`trennungvorhandenhgetrenntezeilenzusammenziehenpneuezeileggfweiterfuehrenEx"macroendindieserodernaechsterzeile&inneuerzeilestehtetwasrman=FT10/20.german1FT10/20.german FT10/20.german8pc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.ascii DEC.VT220.german FT10/20.germanEFT10/20.germanFT10/20.german%FT10/20.german8pc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii D }P S SS SSSSSSSSSS??EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE??????????????????????????????????????????????????????kEEEEEEEEEEEEEEEE??????????????HCAD > B K E JNVI\/ H(JKd@ dP Fyx 1" 1. 14 1B 1N 1T 3M 4E 2n 1> 1?##*k+c%wortmitbindestrichindernaechstenzeilestehtnochwas/keinleerzeichendavor#ȠnaechsteswortistkonjunktionK)Рkeinlosergedankenstrich%ؠund.oderbzwsowienaechsteszeichenistabsatz!!nachzeichenposbeginnteinneueswortH-letzterpufferpasstegenau trennungeventuellvornehmen(1ersteswortaufderabsatzzeilelaesstsichnichttrennena0?zeilenbreiteundzeichenposaufdasbereitsverarbeitetezeichensetzen8bis@ einfuegepos*H4zeilenbreiteumdiebeEC.VT100.german DEC.VT220.ascii DEC.VT220.german FT10/20.germanFT10/20.asciiampex210.ascii!ampex210.asciiampex210.ascii=ampex210.ascii1ampex210.ascii ampex210.ascii)ampex220.german8pc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.ascii DEC.VT220.german FT10/20.germanFT10/20. }P ***************************************************************************************AOUaouk-#_***************************BS***?   Q  WTRYE@ A B C D E F G H I J ` a b =yx YTG0G4asciiampex210.asciiEampex210.asciiampex210.ascii%ampex210.asciiampex210.german!ampex210.germanampex210.german=ampex210.german1ampex210.german ampex210.german8pc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.ascii DEC.VT220.german FT10/20.germanFT10/20.reitsverarbeitetenzeichenerhoehenxtoschreibeneuezeile.alteneuezeileeinschliesslichmacroistauszugeben($schreibetextteileinschliesslichmacro schreibe/pruefeaufabbruch alteneuezeile alterpuffer,Сmacrohatteabsatzdanach'Abbruch mit ESCspeicherueberlaufsizeused.Speicherengpa initialisiereneuezeile@einrueckungindieneuezeileHzeilennummermitzaehlenmPfootohneabsatzamzeilenendehoffenemodifikationenausgeben#poffeneindizesau }P$4"?????????|?q{?????`~*c227E(s387W435?????~|x```*c228E(s296W)4(ppppppppp8p8ppppppp??*c229E(s250WDt`0`0x`0`0pppp|?p8|pppp`0`0`0`0*c230E(s250WDt`0`0`0`0pppp|8x?|ppppx`0`0`0`0*c231E(s493W7E5???x?><pxxp8p8`?``````pp88p88x8<>????*c232E(s493W7E5????><pxxp88p8x```````?p8p88x8<>?x???*c233E(s493W7D5????~|x?pp000?0?0?0?0?p?p?ppx|`???*c234E(s247W#4!???p00?0?0?0?p????`?*c235E(s340W(D$?><8|xp?pppp?p?p?ppp?x~||??????*c236E(s191W4?~|xp?`pppp?p`?~|?*c237E(s475W4E3``ppx||xppx```pp?xxxxxxp`8```ppx|pp```*c238E(s475W0B3~?~??*c239E(s322W!B"??>|*c240E(s324W-3,???>|<<<<8<`8`8`8`88<````*c241E(s349W&C%?p`p`8``*c246E(s54W1&*c247E(s366W442`~8? 1?~?~??0??*c248E(s373W543`?~>~?w??p`~?~??0??*c249E(s116Wl??0  ??8*c250E(s112Wl??xx??*c251E(s148W#!p|~???~???*c252E(s132W!*c253E(s148W#!????~@ ???>|p*c254E(s250W2+' A(/)^***************************************************************************************[\]{|}k-#_***************************~@***?   Q  WTRYE@ A B C D E F G H I J ` a b [\]{|}~@ =yx YTG0G4asciiampex210.asciiampex210.germanEampex210.germanampex210.german%ampex210.germanampex220.german!ampex220.germanampex220.german=ampex220.german1ampex220.german ampex220.german8pc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.ascii DEC.VT220.german FT10/20.g }Psgeben=+offenecounterreferenzenausgebenkendpos positionvon suchzeichen}-richtung+2anzzeich2/ breitederzAТaktz0"آnureinkommandozeichengefundengehenurbisersteskommandozeichen&txwort1ywort1! anzzeichendavor%( breitedavor80 bereiteneuezeilebiswortanfangauf 8trennungsinnvoll?@versuchezutrennen1H*eliminierezeicheninneuerzeilebiswortanfangPy"`naechstezeileggfheranziehen"hwortteileholenxwort1mitkommermitteln"displayvorherigez ***************************************************************************************k-# ******************************1~CAD B 2~ 3~ 4~5~6~PQRS?17~18~19~20~21~23~24~ 25~26~28~29~31~@32~\33~|34~y;xH1;1HCA(JK 27m 7m ermanFT10/20.asciiampex210.asciiampex210.germanampex220.germanEampex220.germanampex220.german%ampex220.german8 pc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.ascii DEC.VT220.german FT10/20.germanFT10/20.asciiampex210.asciiampex210.germanampex220.germanampex232Wyse.WY50.ascii!Wyse.WY50.ascii }P k-#  QK WYJ  @ A B C D E F G H I T U eilebiswortanfang[')schreibenichttrennbarenteildestrennwortes? schreibezeilenachtrennwortinteraktiveworttrennungl2neuezeilemittrennwortversehen:  --> "У,zeichenposdurchtrennzeichenbreiteverschieben,أwortendeermittelntrennwortohnekommermittelnkommanf! indexohneindexmitx2 788trennwortendepos@schreibeersteswortHschreibetrennung"PschreibezweiteswortX schreiberestbeizulangemtrennwort0`#holesteuerzeichenundveraendereworte(h =yx YTG0 G4 Uu }P ***************************************************************************************AOUaou***************************BS***@ A B C D E F G H I J K   q r Q W JTK =yx YTG0G4G4kG0G4-G0G4#G0G4 G0bUU!1AQ aq $(,049=!A1EAIQMaQqUY]aeimquz~!1AQaqѮ!1AQaq"2B Rbr $(,048=A"E2IBMRQ55)s257W@]k}d TmsRmn (C) Copyright Hewlett-Packard Company, 1986. All rights reserved. Reproduction, adaptation or distribution of copies of this font is prohibited, except as allowed under the copyright laws. *c33E(s169WG???*c34E(s141W!*c35E(s726WIIG4??55555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555555666666666 6 6 6 6 66666666666666??? *c36E(s489W.T+????~????|????*c37E(s700WLHL<?>|x|<??????????>?~||~?~x<<??????*c38E(s664WKGH< x>??????x|????????*c39E(s106W#d?|>?*c40E(s291W!Vp8x8<p????*c41E(s291WV???~<8pxp8<*c42E(s250W,*'??q?3;q??*c43E(s424WB93L ckvorhandenpxaktposXx steuerzeichen#2 nachlinks nachrechtssprung einzeichen)rechtesteilwortmitbindestrich keinetrennungoȤmittrennsymboltrennenФwortistzulangfuerlimit"pufferhatnochmindestenszweiwoerter)zeilehateinefootanweisungtype:1.1linefeed:3.1limit:4.1free:5.1page:6.01on:8.1off:9.1pagenr:10.2 pagelength:11.1start:12.2foot:13.0end:14.0head:15.0headeven:16.0 headodd:17.0bottom:18.0bottomeven:19.0bottomodd:20.0block:21.0material:22.1columns:23.2coWyse.WY50.ascii=Wyse.WY50.ascii1Wyse.WY50.ascii Wyse.WY50.ascii)DEC.VT100.german.gen8pc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.ascii DEC.VT220.german FT10/20.germanFT10/20.asciiampex210.asciiampex210.germanampex220.germanampex232Wyse.WY50.asciiEWyse.WY50.asciiWyse.WY50.ascii%Wyse.WY50.asciiWyse.WY50.german!Wyse.WY50.germanWyse.WY50.german=Wyse.WY50.german1Wyse.WY50.german Wyse.WY50.german8*pc.1.25pc.2.25pc.3.25pc.1.24pc.2.24pc.3.24psi25tandberg.2244s DEC.VT100.ascii DEC.VT100.german DEC.VT220.ascii DEC.VT220.german FT10/20.germanFT10/20.asciiampex210.asciiampex210.germanampex220.germanampex232Wyse.WY50.asciiWyse.W }P A(/)^***************************************************************************************[\]{|}***************************~@***@ A B C D E F G H I J K   q r Q W JTK[\]{|}~@phzz6,h hphp lszhzzh p ah "p Mphhzz6h3mhyph Np 0 1 T  lmy  $pzph mp 1 X4XT2 L4XL5TMTX pm(p6=hphZzkxpz_|,Lh` p } L` p ̕k$hZzCzp,zp|_,hxk` p } ` p ` pMMpM }0HM M, hxkpz?mSy 0 f$pz ap 0p($ msz 5 Iy_l5y }0HpzM, h 4Pz`l_l6y` mm^z 4)yPz`l_l6y`  ^z$4$)y&Pz`l_l6y&`& $&mm^z(4 mm^zP4KQM4 5 d0 dhhnpj$ppj nzp 00 llm$luzp 0 l l$lmuzp 0p<DpTzp lszlqzp<dRzdm0y<D<$dRzdm0yp 0p lqz ddddd ldizp llm$luz dddddfRzfffdfd ldizb0`l_l6y d`0dp<bpb$p lszpmvzp aptppppplqza$Dlzz( %D p<MDr5  h(0p6,Ddd0j(-(0 hh(pp1  Dllz|%DS0C mwz4 D5  aUp(Op Dlly5  aUp3 D a\p Qdp ddQ(Q(up  yz dxzdzp(OO(L ] dyzdJy]m ldJydd0 dhhpp,pE,p mlzra$SMD2 L4DLp ddddmdJyddDlmdy4DDllzrE,p] dyzdJy]m ldJydd0 dhhpddp1A -  - $4  $o.=|@y1AA|L.0@FHD)4H$4\ T   {EFH2 80&X x-  2(D00x-< w=H'f %s*: $4{2w-   {2 4 |)4 { ,-$4004s*:0&-oKKT'yP200hT-IJKNQRkP.0@x$4JP04x{-mnorks(4{$4nskwZ[^$4rk2w[^-mnork2 ^[ )4o0 ro(pa$SMD2 L4DL#p ddddmdJyddDlmdy4DDllzrwMD2 L4DLmmhy4Dh] ^d1 d qzmvz aDllzrw mlzrw rw rw6_Ddhr zz4D 6g d l ldJydj(~y0 hhypmp1  Dllz|r ddddd lfCyhRz)fhfdf0,0p ldCyfRz)dfdddd dd 0hdhddp0 pl llIy  p$rw dxzldl$Iyrw 2,2p ldCyfRz)dfdddd dddp2m ldJydllJy  p$rw dxzldl$Iyrw5d0d lmwz4p0hhp]`p]`3aj(2-0 hh-p!p1  Dllz|(Opj(LG0 hhGp;p1  Dllz|<r(W<r0rj(oj0 hhjp^p1  Dllz|,pM j(0 hhp{p1  Dllz| lmy arj(0 hhpp1  Dllz|<r d ppbppp5pRpp zz4D 6 ddj(0 hhpp1  Dllz|6Q dg( g8zz868dd<8zzp5<ddd1<d<8 pp8?*c45E(s66W *c46E(s67Wd????*c47E(s614W/d.?????????*c48E(s421W.G-?????|>>~????*c49E(s367W-E'8888x??x888`8pp08*c50E(s430W.E.?????~??~?0x8*c51E(s412W+G,??xxx?||???x<?*c52E(s421W.E-?>|?~??*c53E(s412W-E,Ȁ??????`>*c54E(s412W.G,??pxx|<>>?|>>??*c55E(s421W/E-???8?*c56E(s412W.G,?????|>??x>~~?????*c57E(s412W.G,?????|???|<<<??*c58E(s135W1l????*c59E(s169WBl???|>??*c60E(s345W@8/L??????????*c61E(s216WA2L*c62E(s345W@8/L??????????*c63E(s367W*G'????pp??x??*c64E(s962W\UV><xpxx8<<<888xpppppppppx88?8888|88888p8p8x8xxxx<p<?p<?p>?hhp1  5 d0d!(!p5 d0 dhh!4 Dllz|p 01 $dRzdddRzde DH6y   D  Rz  m0yFH6y<$<MBH5y<LLP$LP$i(5i$7piDH5y )y Dl mm`^zmmz`UpmlZz7p`_ppzzplZz7p`~ppzz6 p wzmpymy<7pplYzM~pLP$LP$i(i$piKFH5y<$sldl*z@H5yz f(pmlYzm z(mmymymylz(zmnl Jy0 Ɓzldly5 mmylzld yldz Ɓzldly (0mmylz $ 0p]p l?ym0y50 W! my0y3H mmzql zq(/<q(qldzld y np  1 L  l l my(^p/+ 0mmzvpld z kpMmmzqldlymmzldyldLlyldmz  $n$o$ ldmm8zpzq05 0 pldnlyo0ld 4zo0 pldlyn/+ 0ld z ld y n 5 0 0M l xzl Iy p4p0pp2L4L  1 ldlyldyldyldyldypldyld y  ld yldlyo05 0 rpM l xzl Iy Ep4=p0PpGp2L4L  1 ldlyldyldyldyldyspld y ld ypld y  ld yldlyld y  &ldz $n$o$ ldmm8zpz ldly0&pldly &mmzmmzMmmz(<ld !z  ldzldyldyL  1 lmwz42L4Lldly5 mmzpld !z 2,$pldzldlyp5 0 6ldyldzldlyp0Ap8p5 1 L 0UpLp1ldlyldyldzldlyl xz my4Lldyldyldyldy5 m lJyldly 2 & zl& l&Iy & ,lnzpl2nzmmzpl zp  ppv*wv%w Jmnl Jy0 Jzldlylxz(,pll$JyJull$IyJu(pld z ld yldz zldlylxz(,pll$JyJll$IyJld z JMmmzJ(2p]4p]3HZ mmzJ(]pnlll/Jy0n$o$ ldmm8z,/0YpmmzJmmzJn o$ldnlol8zmmzJ(vpld z pld yldz ldlylxzzldm$zldyp5 p$ppldlyllxz(,p$lmwz$Jld z JMmmzJ(Jldlylxz 8 06 p+pX +pp+  ppppppp, =yx YTG0G4G4kG0G4-G0G4#G0G4 G0ppldyld4zld5zppldy+p : +-p1p5 9 zldm$zldyEpMp74 \V 04 XpZpuld 4z mld 4z rp  0 pldyM+ 0pldly0 04  p 04  4l y 04  p 34  Npm ny 4l y/mmzp(,p(,llxzldyldzpldyldyldylxz74\B 04 B4ly \ 14\Ѐ:Ѐ>:Ѐ0p ]^$$J(Npld z Ypld yldz ]z Jld z JMmmzJ  JJ-wmw~??????*c65E(s619WAEC88xx???xx888ǀ8??ǀ8888xx??xx88*c66E(s556W=C<????????*c67E(s583WBG?~>><|xx|x|p>>>>>>>~~~||~??????*c68E(s628WECD(?????~|*c69E(s574W?C>???*c70E(s520W9C8*c71E(s655WJGG0??>><|x<|||~????*c72E(s682WKCJ8*c73E(s331W$C#*c74E(s486W.M/xxxxx??*c75E(s691WLCK0??~??~??*c76E(s574W?C>?*c77E(s826W[CZ|  z,& Vp  Qz  ,, Rp Pz   ,) Rp<,+pmmz[p5(/p4l{z04\=04\ Np(Jld yldz Nmmz[pmmz[pmmz[pmmz &(apmmz$454\5  p {z44 up\14\ p40%0%% zz 40%OL%lz(4 4ldlyld(zld(yld(z(ldypldyld(zld(ypldlyld(z0(ld(z (((&ldlzzldl$zldl`zld(z0(ld(z (((&ldlzz0Ilz,)(0p,,+I, (()+,z (*Qz(*z1 Iz%4l- l-Jyl. l.Jy4mmz4mmz4mmz4ldyz4 pl/ l/Iyl0 l0Jymmzp z4 p l/l/Iy l0l0Jy1 mmzpmmzp z4mmz4 zDy*  p %pzpT` h 4mmz  T` h   T` h    4pz -$pz -$pz -$p -$p$p$pppp4Kp*&_ld yldz ;mlszTpsldl*zTpzTp / 0zTp .JpJpJp(pBpDp /$0 .$4ld 9z hp(hpjp   ldy /  m Jy 0  l+Iy0)pl,Iy$ld 9z ld 9z""""   p  p $  *" "5y Qz   p Qz  ,, p Pz   ,) p<<  <({z44(5(!,&mznzmnl"Jy0"p,&+!pmzp"Qz"""+pnz!pld"z"!p,(p(+p)0+,1"3p""vz:< ldyldz  pp({z44(5(,&opmzfnzopmnl"Jy0"op,&+pmz~p"Qz"""+pnzpld"z"p,p(p)*_prldm*zpld"9z"pld l:zp sldl*z$ $psldm*zld"9z"p  2p 5ldyOpldy   4zzzzz2 5MX  1z04 *$/$(m((y8z 888W8/88(8l8y *$/$(m((y/ 8(8(y8Rz8m8Jy88By!888m8yl88y(8l@yMH $z$Kp4HCp$Rz$m$Jy$$By!$$$m(y$l((ym((y(n(y8Rz8m8Jy88By!888m8yl88y(8lPy$Rz$m$Jy$$By!$$$m(y$l((ym((y(m(y4P(ldlz$z$"$1$lmmy45H$5&$&$$$*$$3H$(p] p] 3HZ! 0p] p l(?ym(y5$W!$$$m(y((y( 3H!$z$$(4] p] 3H$!$z$$g(p^ p] 3H$!4 Rz "Z]$p]ldy?ymy3P <@<H<P1,H Rz D]Fp]< ldlz6 s<@  z ?   z  l*5y<$4<8ld y ?ymy<4z<@<" z  ? <<  z  l*5y<$4  l*5y4L$. /$0&1n3zk k  k0%p fpz(.pzNplPy(mmzOpMz,%ldl2yld l$z(pldl1z'1ldzzmmzz4(p(3pnllzpz+p, +z+p03+ll2 Jyl3 zpz,2Zmmz1 2&1&Kp z0& Kp(]pl2lz]pmmz z*  m l&Jy]p1&l&l Iyz l&Iy &  21  , }z4(%p lp (pldz1p(ldzldz'ldzmmz4(%pl\ p\ p 4  (4 , (2 mmz 0p] p l(?ym(y5$W!$$$m(y((y( 3H!p(2 1 (nSy4k(p\ l%zpp p41 p  @BfDF HJLMP }8Pf8f:!@ B DFH JLN P RMXMhMxMM( }8(X8h@xHPXl`yldy $zzzz %0%[%41 dp g&ungueltige Anfangsposition (1 - 16000)Editor nicht eroeffnet* WARNUNG: Lernmodus nicht ausgeschaltet Einschrnkung nicht mglichzu viele Editor-FensterFenster ungueltig_#N0ua`#N''0ub_BR0u_6u_'0u_'6uc_'''' '0u_2+'''0u$`'2+'''''0u+`'0u;`BR0uBR0u0u'0u'0u^'0u^'0u'0u^'0u^'0u'0u]'0u'0u'0u'0u'0u''0u''0u''0ulY''0u^'0u'0u^6u]6u^1u ^1u]1u]'6u^3u'0u0uBR0u6uRy<`BR''0u`BR''''0u`BR' '0u`0u`'0u`'''0u`'''''0u`'0u@`'0u`0u`1u`1u[`'0uW`??????*c78E(s628WFED$???*c79E(s646WIGF8?????~|||<p>x|||~?????*c80E(s547W<C;???xxxxxxxx*c81E(s786WIVF8pppxxx?xx||????~|x???????px|~?????*c82E(s637WFCE??????~xppp*c83E(s439W4G/?????>||xpmSy>p8mSy(;K n yS7m (y(@m(y(ykpL y$y$ $y$y z z yppmSypp8mSy; mz;K mzz mz; ypL yy y y z z ypy y y;yz;Ll zlzlmzlmzlzlzppl zlzp;Kz y y  zp ny nyzp(;z~0zl0y GE0F00y0n0yl0yL/p y"p0y0 0yl0yzpQmSy yz0y0 0yl0yLl;zl09z0lyl#zl09zl2:zl02 zl0zl2 z02SpllzUpImSylyl zlyl$z yl(ylyl(yl04z00l0$zlzlzN|pzzpz; z,;kz,zl,y p,y,n,yl,yLp y7m 0y0qm0y0Sy,y, ,yl,yzpQmSylyl#zLl;zl,z.z.. z,.p,z,l#zl,yl.#zl,. z,z,plyllzlyl,zl,yl$zl z,.z,.zImSy lylzlyl$zzpamSy; z;z 4z;zzlyl $z;z #z;zzlyl z;z z;z z;z y;zzlyz tzlyzl$zwpl y; z;zzlyl y; z;zzlyl y; z;zzlyz+!l -zypzlyp; z;zzlyl -z;zzlyz+l 1zypzlyp; z;zzlyl 1z;z z z;zzlyl /z;z z! z;zzlyl 3z; z;kz_pzlyzmyl(zapmymyl 6zl#z5 l$zzapamSy;kzpzlyzzlyz+!l /zypmymyl 6zl#z5 l$zzzzlppamSy; z;z zp;zyp;z7zp;zzly plyl#zl8zplmm8z;z (zp;z%z  ;z &z  ;z 'z ;mz%n z;mz%n z;mz%ny;mz$.$p;mz%  ;mz $z9p mz zezz*%nm zzzz mz;mz $%nz;L&n,y{EF'$& $G'EF'y'ny%ny%nymz $;M&nm+y< < Ћp8%py y:my8 <C<???????`*c91E(s280W%R*c92E(s614W/d.???????*c93E(s280WR*c94E(s200W/.0????0*c95E(s66W12*c96E(s106W#d px<????????*c97E(s338W01.8<????x<<?px?|???*c98E(s466W2E2??xxxxxp|*c99E(s296W*1(?x?||>>?????x~?????*c100E(s457W3E1|>??*c101E(s289W)1' ??~?~~|~????*c102E(s349W&E%??p888??88*c103E(s430W/D.>>>>>>??>??????????????x*c104E(s475W5C3``?````|>``*c105E(s223WCt``??``*c106E(s368WX |???*c107E(s493W7C5``??```?```~``*c108E(s232WCx``Ld< lm{(p?nSyAp {mQ{= Q{=GEF"X mR{=GEF R{=%{s pKn3y%{s sp p"Sy=9ypKnyGEF"X  mR{{=mQ{=mQ{=mQ{=mQ{$=P(|(((p X$% y p(%{) ,,,i(, (<{) ,, ,i(,p('{,%{(,+{1  GE(F((%{ ,q(,""ppMnSyp_nSy= '{ 4{ 'p 0{ \pKGE F " s Ep"\pVp"LSyG\\pGsnSy\} = -{ Y{= l){sp]p l){zp~^pKGEF" ({s" =1 p nSyGEF"X ?ymR{"X} =1 p nSyGEF"X ?ymR{"X} =9ypKnyGEF"X  mR{{= p 3{X1p p ='{ _{=} =} =l({'l({lm+ylm+yE F "Xy yX myX myX   X  ?7{ d{ ?K y yl q{ply ylypl q{}y yp)pLm yGpG -{lylySy?Ll q{F G?yg{?7{ h{? y yl  r{G?l r{G?'{ ){p yl q{Gt es nicht-Taskname unzulaessigPUBLIC" existiert bereitsVatertask existiert nichtzu viele Taskstask " " loeschenzu viele DATASPACEs #ungueltige Stationsnummer (0 - 127)'falscher Auftrag fuer Task "SUPERVISOR"Collector-Task fehlt** collector ** ungueltige Kanalnummer d  FEHLER :  Task "" antwortet nicht mit ackeigene Datei "" ueberschreiben / "" 'myself' nicht erlaubtTask nicht vorhandenkein Zugriffsrecht auf Task "!006u)006u+'"~2"~a06u*\06u{'6u,"~%"~'"~6 '~""~b00u/L\03u-'"~0'"~]01u_01u301u4W0u5"~70"~90"~:W0u;0u='0u^06u.0'W0u>e\00u@'0uXZ0'1uh\01ukZ01uC Z02ujCZ01uD0"~E0''N!N0uq'N!NW0ur0''N!N0us0''N!N0uz"~G W0uH0uK*0uM'0uO'0uP'0uS0uT0uU0uV0uW7u&aW00u(Pb0"~84bW'0uAb0''N0uFb' W0uIb'N !N0uJb00uLb0uN b''"~Yc'0"~Z8b'"~\@b1u`Q?0Rxp'0ub''00uq'0u0ukb'06uj'0uc0uv'N''00uy0uua00un'0uz'0u{0uf'N''00ux1c'00udXc'N'00ueNc'0ugcc'00uhgc''00ui)c'0ulrc'00umBcBR00uoc'''00ur?c 'N''00uwFc'00u|Jc'00u}@'0u0u'0u'1u'1u'3u'3u'1u'6u'!N6u'!N6u'1u'1u'1u'1u''1u'''1u''3u'''3u'3u'3u'1u'!N }P @ A B C D E F G H I J K   q r W JTK[\]{|}~@``*c109E(s478WO/ML??|||<>>?|||<>x>p```*c110E(s322W5/3>??>|||>x>p```*c111E(s324W.1,???||?????*c112E(s457W3D1?????x0|0|0<>p<pxpxpp`p`0`0*c113E(s457W3D100pp??|xxpx<p>000????*c114E(s256W*/(????>xp```*c115E(s247W%1!????>|xp?p?|>?>?*c116E(s286W A|||||||~||||?|<*c117E(s328W50488xxx|<>>>*c118E(s292W-0.?*c119E(s424WA0D??*c120E(s292W... <???  ?    |<< *c121E(s430W,C.???~?*c122E(s250W(.'|||<<<<<<<<??|*c123E(s379W(S!??*c124E(s120Wd*c125E(s379W*S!??*c126E(s181WD7L????????*c127E(s1303Wbcc??????????????????????????????????????????????????????????????????????????????????????????????????)p?yl{?7{ m{?l q{G(?'{ ){&p{kpll q{L)ipF Gy y my mzЬdp 4{P 4{?yRp\ly (-{(yly mz mzG kpG(?'{ ){wp {pll q{L)pFGyy my m z mzЬp 4{ 4{?yp\ly (-{(yly mz my mmy mypGpG$?$'{ $){p(y(ypll q{)p"Y !yGp(y(y ? r{?K s{- pl3y s{-p"Yy t{$p-$p t{-9pl3y s{-3-$p t{$p-Gp"YylyRp-Rp"YSy ?GEF'{){dplSy"Y YyYys 0lSy? pGFspl s{?xw{?yw{?EF N{T{Lly]a{ m({G r -  mm({ mmm pm m){p   mmm pG EF ml F{NpG EF " YPyOml F{]^]$?'{+{ %{){"p y{1p'{ -{l y l y Sy(?K z$%{$){zpL$%{s$ G )xp)T<<<L)nylzlzYb<0)n{$z$kzdpO{9yTlyN{T{NxpmPyOK p"  ! (Q!p)- ~mJ{m F{ ! !Ьpl F{nSy0 " Y ! Y ! m!ypG m$yF $l F{nSyY ! m!y M0Y ! !8Y ! !@ mypl m(y(l(y(}{l F{pnSyp$}y0m$y 0my0m8m@myG E$F $l F{58$$'n(y38(5@$$'n(y3@(p my:pl F{pl F{p" Y !  myVl m(y(n(y(|{pepl m(y(!n(y(}{pY ! m!yxp$}y m$yl F{pnSypG E$F $$y$ $y m$y m{l F{p" (y !(yl F{p$'{$(-{n((y(l(y(Syp  pppppppppppp2p?p{ppp?GEF"Y mlmF{?GEF"Y mlmF{?GEF"Y  lmF{?GEF"Y  lmF{?DnCz?5('ny3( (Hny{(? \{ ({8y w *{uGEFz )u'-u -{lyJny (?y(yQnySy O{?E F LL(@Ll,yEF {G{fIeppl+y@K hhlhmfmyhlypGhlyFpXm,{Xm0{hlj{Xm0{lhle{pIeLl,yEFGF"hLPX xl yX  `X p JX  5falscher Auftrag fuer Task "-Passwort falsch" existiert nicht " loeschen maintenance :&Speicher Engpass! Dateien loeschen! monitor  " gibt Kanal nicht frei configurator2x  Fonttabelle "" gibt es nichtFONTTABELLE : ""; x einheit = ; y einheit = FONT :  einrueckbreite =  durchschuss =  fonthoehe =  fonttiefe =  groesserer font = " kleinerer font = "", "unzul L pimhlypmySy @PL $@K ypl yI$ y hlIlyi(%p5phlyIepplhlKly=KpXm,{cpXm0{ p{ yI$hlIlyi(IpcpXm0{lhle{Ie`pplhly`plhlKly=KGBpfmzI$plhlIlyi(mpqphlzzfpz@{LXl{ {{Xl{ @K{zmz{zmzzmzX h YyzmzzmzX l Yyzmzz` HJH0=HzmzmzX 8b1H t  , `xlyzmzX X 8b1H t  5 *XmzX 8b1H t  , xlyzmzmzzmzX 8b1H t 0 ?yzmzzmzX 8b1H t 1 ?yzmzzmzX 8b1H t 2 ?yzmzzmzX 8b1H t 3 ?yzmzzmzX 8b1H t 4 xl yzmzzmzX 8b1H t 5 xl yzmzzH z@{I pXh jypXh jy @{ kyXh @{I pXl jypXl jy @{ kyXl @{-pX(:pX0:pX8:pX@:pmSyf]:p  (p(ppp(pp(p(p(p"p @{^pXHkpXPkpXXkpX`kpmSyf]kp  YpYpApGpYpMpYpYpYpSp @{ hhlhmfmyxlhlKlyK(,`Kpz]  @{`1 p JpX8b1 t,`xlypf] @ { @{`1 p JpX8b1 t4 ,` pp ?y ny nySyp @{`1  JX8b1 t5 ,` pp ?y ny nySyp @{`1 5p J5pX8b1 t1Dp ?y ny nySyz]  @{`1 ^p J^pX8b1 t2mp ?y ny nySyz]  @{`1 p JpX8b1 t3p ?y ny nySyz]  @{`1 p JpX8b1 t0p ?y ny nySyz] ,@{`1  JX8b1 t0 ` . ` ` 0Nyp0 ` 0 X0 0{"z1Ny'`y"p"p ?y n y n y Syz](@{`1 yp JypXX 8b1 ! !t ! 6! Qpm (y((y(n(y(SyX 8b1 ! !t ! ,!$ bw$dp.$$`$`$p ?y n y n y Syz](@{`1 p JpX8b1 t0 ` . ``0KNyK,p0 `0 X( ({ z1KNy'`yKKK(p  K0LLKX8b1 t{ X{ ?y ny nySyf]$@{`1  JX8b1 t6 X6 aXX 8b1 ! !t ! ,!$ bw$dp.$$`$`$KpXX ! ,!$ bw$dp.$$`$`$Kpm y  y n y SyK(p"pz]pXX ! ,!$ bw$dp5 K0pz]pXX ! ,!$ bw$dp5 KXX 8b1 ! !t ! ,!$ bw$dp { "XX ! ,!$ bw$dp { "p ?y n y n y Syf] @K`0 K.K1 hhL  @{`1 Pp JPpX8b1 t_p ?y ny nySyf]  @{`1 yp JypX8b1 t(p ?y ny nySyf]  @{`1 p JpX8b1 t6p ?y ny nySyz] (@{`1 J X 8b1 ! !t !0 ! X 8b1 ! !t !0 !!X 8b1 ! !t !1 !X 8b1 ! !t !2 !X 8b1 ! !t !3 !p (?y n((y( n(y(Sy @{`1 Kp JKpX X8b1 t4 X8b1 t0!Xp ?y ny nySy@l,ym{fiplhm+y nSymp{{@fMPlhm+ylhm+ylhm+y B6 24p7 256447 2p47 247 26p65 5 4p5 0 7p B6 41 4 B 41 4 B6 6 5 2 ?*c161E(s820WA[C??@????>??*c162E(s820WAZC??????<<<<<<<<?<<<<<??<<<?<<?*c163E(s760W?[>???@??>*c164E(s760W?Z>???????*c165E(s698W?W>8??~~~?>>>>?????>>?~?~>*c166E(s436W$Z#????*c167E(s401W$W#?>~??~>?*c168E(s88W'>???@*c169E(s85W @??>*c170E(s103W'????*c171E(s76W' ????*c172E(s72W&?????? *c173E(s832WE]D$??@??>*c174E(s832WE\D$~??????*c175E(s421W/G-?????????px~??|<<?*c176E(s66W12*c179E(s136W???aessige ModifikationFont  gibt es nicht" hat keine Erweiterung"Fonttabelle noch nicht eingestellt# ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz 1234567890!Abbruch durch ESC LINER ERROR FEHLER Zeile :   >>> JI#Unbekannte Schrifttype (ignoriert):#-Zeichen fehltfoot in Funote (ignoriert)#cm-Angabe fehlt (REAL) (ignoriert):#INT-Parameter erwartet (ignoriert):"(versuchte) Trennung in Macro-Text!ie-Anweisung fehlt bei Seitenende!N!N!N*N0u'#N*N0uc3uc0uc'2uc'2uc'3uB'6u'6u'6u'6u'6u''1u''1u''6u'''3u''3u''3uNd''3uSd''3u9d'''1u>d'1uCd'6uB0u'!N0u'0u''#N'0u''#N'0u&M#N'6u#N0u1u'0u0ud0uhN'#N#N'0u''!N6u0u'0ud'0uP''0u20u6'0u'0u'0u'0ud0ud0ud1ud3ud'0u3d0u4d''''0u5d'0u7d''0u8p8\ B 42 $B 441   B0 4693 B0 46HAB {J {Kp B0 46XYB5  {,B5 00q5 00tp6\,p0 45 00004((60 (00p5 0047 (00(p(,p(p6\,- B: ^_ B: ^_4  B: ^_ B: ^_4B BA`palSyjpBl0 p5  ml{Bzmlz z4ydBsL ?y4 4z 0 L L0L@LPL`LpLNN!N:NONЀgN}NNNN N0N@NPO` OpO0OEOYOhOwOЁOOOOO L0L@L5PL@`L_pLtLLLLLЂLLL L!L5 L=0LO@LcPLr`LpLLLLLLЃL LLL.LC LW0Ll@LPL`LpLLL`H pj\44|4zz}Lx\\%\.\D\O\a\t\\\\p\p\p\p\p\p\1p\Rp\cp\wp\p\p\p\p\p\p\p\p\ p\ p\" p\2 p\C p\X p\h p\ p\ p\ p\ p\ p  Itptptptptpppp ppptptptppp p$p(ptp,p0p4ptptp8ptptptp _p  IpIpIpIp1pIpIpIp5p9p=pIpIpApEp4mzzBM{ 4M4$4PmSyMm,yE F " {M%% M{z yy ymyGEF" -%{myL0p]l{my=m$my%)plL$6$mM6$m 7$  Jl{pI$m{pl{I1$ mEz mmHz-I- QlzY`!Unbekannte Anweisung (ignoriert):Nicht kompilierbares Programm:0Einrckung (Leerzeichen am Zeilenanfang) zu gro)Anweisung hier nicht erlaubt (ignoriert):.Tabellen-Position liegt innerhalb eines b pos:*free-Wert > Textteil der Seite (ignoriert)(Mehr als 1 Zeichen in pagenr (ignoriert)3Macro innerhalb eines Macros definiert (ignoriert):Mehr als drei SeitenzeichenMehr als zehn Zeilen im Index'Index Parameter inkorrekt (ignoriert): 5Hinter Anweisung darf nichts mehr stehen (ignoriert):Doppelter Index ignoriert: ib(..) fehlt:Inkorrekte Anweisung:/Makro bei Fu-bertrag angetroffen (ignoriert):)free-Wert grer Seitenlnge (ignoriert):'Seitenende in head oder bottom plaziertAnzahl columns < 2 ignoriertINT-Parameter <= 0 ignoriert:"Kein Textzeichen vor oder hinter b0Nochmaliges columns ohne columns end (ignoriert)*set count-Parameter inkorrekt (ignoriert):-end ohne vorangehendes head, bottom oder foot1Max. Anzahl von Tabellen-Positionen berschritten9Macro-Aufruf oder -Definition in einem Macro (ignoriert):(counter nicht initialisiert (ignoriert):4store counter Kennung bereits vorhanden (ignoriert):Spaltenbreite > limit= Seitenlnge (free ignoriert):(Zentimeter-Angabe inkorrekt (ignoriert):*Zentimeter-Angabe > als limit (ignoriert):Makro-Definition (ignoriert):,Nochmaliges table ohne table end (ignoriert)%pos bereits hier gesetzt (ignoriert):$Druckposition (pos) nicht vorhanden:Text breiter als Spalte bei:'rpos berschreibt vorherige Spalte bei:'cpos berschreibt vorherige Spalte bei:'dpos berschreibt vorherige Spalte bei:'Geblockter Text breiter als Spalte bei:table end fehlt#Zentrierzeichen fr dpos fehlt bei:'e-Anweisung ohne vorangehendes d oder ufehlendes e auf dieser Zeile$Wort mit Exponent oder Index zu lang)Modifikation bereits angeschaltet bei on:(Modifikation nicht angeschaltet bei off:"Index bereits angeschaltet bei ib: Index nicht angeschaltet bei ie:4Inkorrekte direkte Drucker-Anweisung (TEXT-Denoter):!tableend ohne vorangehendes tableput counter fehlt fr:store counter fehlt fr: end fehltMakro-Parameter inkorrekt bei:(Falsche Anz. Parameter (Anw. ignoriert):&bpos: Anfang >= Ende (Anw. ignoriert):(Indexnummer unzulssig (Anw. ignoriert):6head, bottom, foot in region nicht erlaubt (ignoriert)6region in head, bottom, foot nicht erlaubt (ignoriert)9region (end) mu alleine auf der Zeile stehen (ignoriert).Nochmaliges region ohne region end (ignoriert)(region >= Textteil der Seite (ignoriert).Anweisung in region nicht erlaubt (ignoriert):cm-Angabe zu gro (ignoriert):type-Anweisung korrigierenBitte Einfgen)Geschachtelte Funoten sind nicht mglichBeispiel: ...(16.0)!Beispiele: page(4), pagenr("%",4)%Trennung erscheint nicht im Ausdruck!)Index in Indexdatei ggf. vervollstndigen /fr Zeilenbreite (limit): Leerzeichen entfernen (In head, bottom und foot) Wert verkleinernBeispiel: pagenr("$",5)'Macros kontrollieren und ggf. neu ladensind z.Z. nicht zugelassenie(..) vergessen?B<1.Parameter gibt die Index-Nummer (1-10) an. Beispiel: ie(9)/Anweisung mu alleine oder am Zeilenende stehen>Mit Makros ber Funoten hinweg formatieren z.Zt nicht mglichin einem head, bottom oder foot%Vor oder hinter den Bereich plazieren"1.Parameter in columns korrigierenBeispiel: page(20)#page und columnsend vorher einfgen$Beispiele: setcount(0); setcount(27)end ggf. entfernen"Bitte set counter einfuegen&Beispiel: limit(16.0)((Makro-Def. nur bei 'load macros' erlaubt)tableend vergessen?* Bitte pos-Anweisungen berprfen+in clear pos-Anweisung0Ggf. lineform ber die Spalte1Bitte vor Dateiende einfgen34'Bitte u und d-Anweisungen kontrollieren5e-Anweisung vergessen?67890Anweisung in angegebener Zeilennummer berprfen<*Bitte store counter Anweisungen berprfenFregion end vergessen?GFSeitenlnge mit pagelength vergrern oder Zeilen aus region entfernenHBitte aus dem Bereich entfernenBitte KorrigierenWARNUNG Zeile !Hierauf wird kein Bezug genommen:/Modifikation bei Dateiende nicht ausgeschaltet:(Index bei Dateiende nicht ausgeschaltet:/Nicht getrenntes Wort zu lang fr Zeilenbreite:$Umschaltung auf gleichen Schrifttyp: 1Kennzeichen schon vorhanden (Duplikat ignoriert):Tabellenzeile breiter als limit)Mehr Spalten als Tabellen-Positionen bei: berschreibung nachLeerzeichen vor:'Weniger Spalten als Tabellen-Positionen1counter mit dieser Kennung bereits initialisiert:&goalpage/topage oder count/value fehltBitte nachtrglich trennen!'Schrifttyp wurd???*c180E(s772WB\?~>><|xx|x|p<p<>>>>>>>>~||~??????*c181E(s376W*F(?x?|?|>>?????|||||x|~?x???@?*c182E(s832WF[D$?????????? ??*c183E(s475W5D300pppp000?0?|p?>p??? pp00*c184E(s169WG???*c185E(s367W,G'???<? ?>?~???*c186E(s394W856 ???????? *c187E(s421W/G-?????????px~??|<<?*c188E(s610W@CB???*c189E(s467W-S)~??>?????y>??x|??????????*c190E(s555W0W1??p~?@?@ ?m<????*c191E(s416W,I(@`|>??????*c192E(s430W0G.@px????8<xxx?|8????*c193E(s367W)G'0?x|????xxxxxxxxxx?xxx??*c194E(s412W.G,????|>?>|?????*c195E(s484W5G4000pp?e darum nicht verndert!count und goalpage berprfen#Bitte fehlende Leerzeichen einfgen"erzeugt ggf. zustzliche LeerzeileBitte berprfen in ><Datei existiert nichtZu viele Zeilen (max.2000) #*(* Keine Macro-Anweisung (#* fehlt)Macros geleertmacroend fehlt#Vor Macro-Anweisung steht wasNach Macro-Anweisung steht wasKein Macroname nach #*(Keine ( nach Macro-NamemacroendmitParameter(n) geladenmacro end fehlt$ Anzahl Parameter > 9zlz-%p-) l{/pH- Y`} MY`PIz mz/pl{ mmHzK0ApY`䀻p -pI mmHz -p mmHz-Jkp mAykp]l{Y`䀻qpn my{ mmHz -xpp -p mmHzIpn my{Ipn my{pl{-)p$m{6$o6$mpql{ Y`>$M Y`>$M Y`>lL)plzp-)l{pRlSyMy{M{klzIp=Y ` > zzpzMI qpY`} opY`䀻 Y`PI4p!DpYI$`$P IpH,np,%I lpY`Y ((I(`(! !> !NpIp(M (?yl(yI !I( (pY$` %$% y pM{ Ez mmHz-Ip m{pM mmHz -pI mmHz m{ mmHz -p mmHz -pK0p+n m m{+n m m{ mmHzK0ppp M,)p1+N Y ` 1+N Y ` >   M MmHl+y%N2l,y0$NG.EF." .T3 /8p=TX ` 3M (p0$Ny{ N yp{001S?myOp{TpFmyTp{Kmzy y/ly/ly/l4lz4lLm{Lyp/ly_64N_p/l4lzlpz0 0lz4L<3MD6<Z16<Z p"1"_p"\p{Kp2 "Cp06p00XXCp >p Ul { 003ZZ0L1 3Y0300{p030.0000/003303m{Z 300{0K0.00L0.0Kmm0{0Kmm0{0Kmm0{0pm{q03060q3m{pLm{qpLm0m0{0pKm{0m{qLmm0{0pm{qKm{qqLm0m0{0Km{q0L000L00ipKm{Lmm0{0Km{m{KmLm0{0Lm{$p++KmLm0{0.pLm{Kmm0{08pm{Km0m0{0Lm{0m{WpWWLmm0{0 WKm{]pKm{jpjp000 pLm{Km0m0{0 ~p0m{Km n0{0p0m{p n{ n{pm{ n{3m{Km{KmLm0{0KmLm0{0Lm{Lm0m0{0p0m{l n0{0pLm{Km{KmLm0{0Z00ȀLm{Kmm0{0p2Zp0000 m{Km n0{0!p n{Km0m0{0$p0m{KmLm0{0' pLm{m{p n{pKm0m0{0)pKm{ppm{pm{pKm{pKm n0{0.p n{m{pKmLm0{025pLm{pKm0m0{04?p0m{pKmm0{07pm{pOpKm{ppXpLm{pKm{Lm0m0{0p0m{pKmLm0{0;yKmLm0{0=yKmLm0{0pLm{pppLm{ppLm0m0{0@p0m{pLm n0{0Bp n{pKmm0{0Fpm{ppKm{Lm{p0m{p ppwwDstpp+pIpdp|ppp0Z00 pZ L00Zl0{0IpZ 00000pZ L0Z 32020{0LZ 00{Z K00Zl0{0NZ L00{pZ L00Zl0{0PpZ 00{&2 Z\0\060001($*p$\03\[$}$^p0[6001Z.OpPPP[03W[3p2 $3p[ 2 $3p[03Z0\[3_[K`K0[0600_0.0psp[K00000Up_l{s[0K[K00{s[K00000 [K00000s[ 300{s[l{sp0`00Up_l{ss[l{s[l{spsp_l{s[l{s[ 300000Vps_l{[l{[l{[l{  p p} ppKs[l`l0{0W[L0_l00{0W\ [03202;p_l{0[0.0_MMUp0_00UUp00.0eepp300000Upp{[l`l0{0S[l{0[600p,p3 p,p3pK p,pKpp[03[p$p[ $$~p[03Z0\[ K][ 3^[3_[K`\ 3a0[06Y0q^l`l0{0_p]l{[l{p^l{[l{[l{^l{0_00p_l{[L0[l00{0b0_00^l{r_l{r]l^l0{0ep[l{p[l{r^l{r[ L00_l0{0g$p_l{r^l_l0{0j.p^l{r]l^l0{0lC]l^l0{0nC]l^l0{0pFp[l{r^l{r]l^l0{0rSp[l{r^l{r[ 00^l0{0tj[ 00^l0{0wrp[ L00{[l{r^l_l0{0zzpr[l{0^00U0^00|p[l{_l`l0{0p[l{r]l_l0{0}p[l{r^l{r]l^l0{0Ѐp_l`l0{0Ђ_l`l0{0Єp[L0^l00{0І^l{r[l{r]l^l0{0Ј]l^l0{0Њp[l{r]l^l0{0Ќp_l{_l_l0{0i[ L00]l0{0Ў[l{r^l{r0^0?x|||??*c196E(s430W0H. px8<~?>???xx?<<<>~@????*c197E(s367W)H'<>>????<<<<<<<?<<<<?<<@??*c198E(s412W.H,?>?????>?>@?*c199E(s484W5H488x>??xx|<>>?>@*c200E(s430W0H. px8<~??@?xx<<<>~???>??*c201E(s367W)H'<>??@<<<<?<<<<<<<?<?<?>?*c202E(s412W.H,???@?>?>??>*c203E(s484W5H488x@xx|?<>>>?>*c204E(s430W0D.??<pxx?<>?????*c205E(s367W)D'?|~>??????*c206E(s412W.D,???pppppp???*c207E(s484W5D4?<?   ?? *c208E(s820WA^C<<|??||<