Directory of image this file is from
This file as a plain text file
||@PHH@D 0ND @ *i@7\!> }CH!z=(
| l,hD ; /P)RO3TI`LI!'i;
{ |{_F7(\s! l{!>Hz{ ~N "O~ .G 1N |N I_hD ~ hG 1 ly lnD @~ .\.hdjx!1~0 SUBROUTIN "nRIT COMMOb
3`epvL01$K=%L%0) L)0L116KL;1'- FL='LEIST' FK='-KURS' FM=' MIT ' FP=' PKT.' C LEISTUNGSFACH MIT 0 PKT. IW2=2 IW1= @7~G7H}GH
|.D @ /H,'SH 35'q; y,''*i !n{
&B!zbHy{d!. xCHw{v(G 78SuT@(t{kv"R)TE(3,110)dqG@@ @7S~A!}b!(o|+{Cz~!ycxx |wG@@ @7SvAuxTtsAA@ GMD DrYqcZhD D H@D @ :E'A5'0
d1 "q lHL lsB3 2 )Pk~ 8MHR FAECHER MIT 0-3 PKT IW2=10 WRITE(3,130)FK,FM,FP 130 FORMAT(///AH 'MEHR ALS 2 'A5'E'A5' 0-3 'A5/1H 32('*')) CALL FINDe(YW,IW2,IW0,IW,IW0)DK78<~9t78<}9t78<|9t78<{9t78<z9t78<y9t78<x9t78<w9t78<v9t78: $#D"!D DDN%~|}|W|E|!> {CHz{yGyEy!>xH/.w'wEw!>vH/-v"G-B.BB&7H&G*uGw|wwS! ltH?s>wCrqrG,B5B @&7H&CSpBrxT
5(Son'x!.n(?`H/`m+lwr7q*NDE(IW1,IW3C0 d55#/r.-G,9"%NG,B5B @&7H&CS~C}g}!>|H/3*{(G
0,1,&${(G0,1,($7(>7&~z78$C(;zA.yGxw'^7($C!n!(oJP*ly~w^z7$!>x!.(Yzvx2yGxw'!nyCu|uuS!wcHt{7 !>!nsG4"$-23B21 1d%~_7("C!l~!>H#zl~}7|(G-,5,&$7&< {7z+7!>{CHy{-7(C!l{!>Hy{7(, , || (
x<S > H BD @X1* -)PxCD h (D w c/254.1 "G's5+''(I)Lq 2L's5+''(I)Li0k 5 'A5/27('*')) CALL FINDE(IW0,IW1,IW1,IW,IW2) RETURN END
TO!N!(/X~b2b}3&Y2D- @5c5L#0 +4,b57j2f)
f4$&#@# nJ> n!"b|G#]#V3f{Urz xO33$HVbn?d . ny
W0%?2vA1U=i~+Q uRfuTuWBuX-uY#u`u}G| }c{z(yy yxy)w(zvu)$t)A$ kbklsA7A|I!AgVkbHzsi6Aj6 yA^d.AA&kJrisjr!f ls(?\A$AgA NA ~k-j Abeles7 |e 3dW'Yhxo)*Wt~}7} ~|b'{"zhd~yz)H?!hS*xBzxzi~}@? lw!>}S(}@?O!.vuz} Hz f} .~>zxz)OD,~<Z}C!o}b`vy J .xz)1 tC@s{ozrZJtc(S{yz)S0 eO.pEeu0-`{Pww% >NKf Lf l~~NO7})| R2v`vUvSv{6vMhW
oHMlMBLlDKJLKKj MfL<J}/K .{ z(?H,~yR zGM]Jx0 ~E\K&Y(WoKDU]*{R~w Z*8vOeu~(?}" 8)| {H/zy"xC0(wy0~C -z2b *z8$ 2lv2u2}t 8K2 /4Z.xCsr(3zq@.z/94*P`P dpPP` dP` d P` P P`-sp?JMw! @@`W @2H ~8U
~OP l}(?M@/|"O}G l}{2@zWoDPJQMlzB }GyCx(/P!.}@/ wiLlDQ }>HIz}H>}vsvgu>u}st}s}'5 ,}r0}|0 }C{H/%Qd>w PP&R dp PP`P P|pZz)ttK#h)
$ (" .)bn~6Cl4X7hqFn(hn!JDD"@~b>z*N*C*(O?D"(>z*3JDl**6D*+!Dfj }6|6{z0b{jxj }2}~|2|~{2{{sH nzyxDHE+
}D>}|s|g{>{|jP60` F}l(?~9hOwo&xzo"{__-@}E70(/l0(|y{ ?##Kz}!Yf#> O9z n y`xY2,*wZOZIznnsv'Y>J, ~W&}Y"HbnO0Ya(X
oYD],Z>uC Yfmt"xYkz) *e`8v?`2te*)t} .G =f l~vEz}|` U SWH "={K~E!7h~ziy<&x=&~7x~@5z!l~XS
*Fj@G b=d /5}"wG} .=v"uCH$zts)O bFbblW00Se|#xOv*8vONv5NF0bXn)bn4 n4bG ~C(WzU"b(;z!b@;zbHf.bf/JC .bAj@"@HzfiH/@/Rf.Xl}ye"onh rm ~nx |G
{ ~mfVbkn?n;r&s&hmf E hn8b tbcc l8Ef ~C}ck)). |`Xn)){ 0Df.bf*0@b&b&b&5N;i0zH/NC)GJE(/X$X$X$EGjh/q&fb`cz* X"DnHD{" G~'}'F>fj xp&cF6&&cF cb7#j&c7F c l68 G~68 ~G}68 }GVN4&k6{ C| ~Cb{@/kz"yiKJ./!f G~}w ([c\bdhU [<Vn\=&>(Y
:h.S N}t5N9F;h:'& c F c F"b"bbbf~&f.bfy(J P;rAn<<4 n<<4ir"&!.}"f|A&X`H/\)f.bf{AV"bbi Y9Jh lzpz* cpefnl >A~0~&J0n4"cF%&&&c' @H1~f ~bl}|y 6:&7c7BF 7c7Fc n66,{7rzy{Hf.bfl}N{V
1 xC wr xG !hC^hdh_6Y\Khdj FEOR.n bDB(|hT&K*
L-1;L<=VLVVLVVLVVLJ, hZ.C$=B"&L5 DB |
LC&+J^}g|@ ZJ(/VJ$]F"+,X,:Z9eZJ!.KJbKH.G ,EH+-S-HIbEIKJb!HnG& KBzzno7 JbJej(?V,IV C(VzBV R Q)&6ML
Hw 1~[<$6}"An8zDb6|R( ~< j rFB{ /Mz /Kf.M !,O&,MkM YKUfBtLvx]zLojl:np;rD@ |&!#%')N.~rsvvN] 0OxRC `0&
cd0cdaf>atHf666b&bC n PhbP8b(J . Jhb&.fJ(b8J~&}f}a(]z PJ|(2z{H/zy"P0"
0!c ("bbcoz n r`gK? @`?M
|bn4c)F)c $)bDnbDf)r$+ YP@/$!f)b3n**4:*c*Fc(&{@Bz!NDd@BzHf!.b f&b$czPHo@f.bDoR"S..f/! hnnDBHrH~wJ t&cF4nH?! h#D %Y'Mh h G~}w (00bH ~1d~3&2>&c|(H#[c* n/c_c)c+ c,2bcc-b3f/_J n* ?s){2.n+-'-0BH.rD.b,-'V2bqn3=@OR!W7(T(?'LXLV Y
`Y*bWb7U(zLx0'&(&[&\(0Z" b;`F6C;dEE70;c;LE{ 7ES'L1<=ajwao[2h"\LhTuRSbhBtl~vGwizCVDyoH1 \ISCH, BLOCK 1 \J, BLOCK 1 \IS1, BLOCK 1 \K1, BLOCK 1 \IA, BLOCK 1 DUMMY [0 DUMMY [1 ]6, 615 2315 124 ]3, 1116 0 0 CPAGE 6 EAP ENTRY MAIN MAIN, NOP CALL 0,OPEN PAUSE p{ <@< LI )0)
lJC&EK L01 $K=% L%0) L)0 L11 6K L;1 p7 ~G7H }G7H |G7H {G7H zG7H yGFB! lxH?w <~=6}>6v(G 9 79 8S uT HS tH7 5!b(]zs <~e6}f6v(G
9 79 : |&!- d/ 8y76543S ~H}}s!|bHYz{" }CS zH!ybxx
z O!wcv{r hG u ,xD @!n wCv{r hG { @xD @D HD HD @X1* ,,(\X [)@Jt8 z !wcv{r hG u pxD @j&d! l~7} .G H }I GD D & 1 "2v05'6NAHi77 >77 ~| 8(&{@Bz!NDd@BzHf!.b f&b$czPHo@f.bDoR"S..f/! hnnDBHrH~wJ
.&cF4nH?! hD J 'Ih h G~}w ( 00bH ~1d~3&2>&c|(H#[c* n/c_c)c+c,2bcc-b3f/_J n* ?s){2.n+-'-0BH.rD b,-'V2bqn39?JM yH@
~(?}" 8)| {H/zy" xC0(wy0 ~C -z2b *z8$ 2 lv2u2}t 8K2 /4Z. xCsr(3zq@.z/94*
| | ~ , . H Hz(G z ,n D @-sp?JM{! @`W 2 ~8Y
~OP l}(?M@/|"O}G l}{2@zS oHPJQT lz }G yCx(/P!.}@/ wiV lHQ }>HIz}H>}vsvgu>u}st}s}'5 ,}r0} |0 }C{H/%Qd>w PP&R"{{sH nzyxDHE+
}D>}|s|g|pZz)xtK#)$ (" .)bn~6C l4X7h1Fn(hn!JDD"@~b>z*N *C*(O?D"(>z*3JD l**6D*+!Dfj }6|6{z0b{jxj }2}~|2|~{2{{sH nzyxDHE+
}D>}|s|g{>{ |j#=0 F} l(?~9hw/&xOz/"{-0 }E70(/ l0(|y{ ?##Kz}!Yf#> O9z n y`xY2,*wZOZIznnsv'Y>J, ~W&}Y"HbnO0Ya(Z
oY] ,Z> uC Yfmt"xYkz) 55<*e`8z? 28(*)8 G =f l~v Ez}|`O UO SO@W "={K ~E!7h~ziy<&x=&~7x~@5z! l~XN
*j G b=d /5}" wG} .=v"u CH$zts)O bFbb lWy3u |uuS!wcHt{7 !>!n sG*0S e|#{O9*8:ON)NF]`bXn,bn4 n4b G ~C(WzU"b(;z!b@;zbHf.bf/JC .bAj@"@HzfiH/@/Rf.X l}ye"onh rm
~nx |Gn { ~mfVbkn?n;r&s&hmf Ehn8b tbcc l8Ef ~C}ck)). |`Xn)){ 0Df.bf*0@b&b&b&5N>i`zH/NC)GJE(/X$X$X$EGjh/q&fb`cz* X"DnHD{" G~'}'F>fj Nxp&cF6&&cF cb7#j&c7F c l68 G~68 ~G}68 }GVN4&k6{ C| ~Cb{@/kz"yiKJ./!f G~}w ([c\bdh
[<Vn\=&>(Q :h^Sz"j 9Mh`:Nn}tPNB7: <~;t7: <};t7: <|;t7: <{;t7: <z;t7: <y;t7: <x;t7: <w;t7^(?vH?vu;)/ao`_^]\[Z~ 5N 2N ~N ND 0ND @ *i@7\!> }CH!z=( | l,hD ; /P)RO3TI`LI!'i;
{ |{_F7(\s! l{!>Hz{ ~N "O~ .G 1N |N I_hD ~ hG 1 ly lnD @~ .\.hdjx!1~0G 1N O IxD ~ hG 1 l~ |D @D @}%:4v @.7^ || |||S!~bHVz`;&a<& h 1 lbZF&[G&~ .G @ 1N IdxU dxR b+z SbhB t|~vGwizCV yo1?n p{<@< LI )0)
lJC&EKL01$K=%L%0) L)0L116KL;1 LI )0)
lJC&EK!tLLLLLLL L LLLLLLLLLLLL@L+d4t[2M-C8:.a)-m6[:;,%[9<[*r^aM]'n[`?)-7676_7B*)j).c77cl& C_g L )&/767-6-(6B -d-_77d)b720-7)
l-&IK8-7'7B7g)&JK87y2*7d776*@ @p cN((bG*&(C[*c(]z7`K <H%abE
H NI|z&l%+ |N)mBRzb nO`bPwjEOR)@Cz NN&O&PH/&.NNC|DP.PfNU:NP~! )bE;T;JQ0C3$Wsf-JC;*SP*.f| MM7.|`SS7/;&SUJSM&SBS)tC _T&2S&/;&W>>
I)e3&Wenu:m
)QFs l
@ n |PPsRPs N( n((/("); (b.)Q @SQ(S)8TU'XW'hV'K FnY&&!&'&.&3&8&)2Z & &[&F& C GDJ;K 80
hOe``fOedL^ fGfgD]d.i|e'0'ppEb&t,('H/)"<b~*rC(2<+b ' J,&H"z)=&}~'*C(K(=&+*%S ,|{0(,{z(&y)&x*&w+&vu'tBtr} |,2sss!rgCK>qp0(J{Jn!okXp8ug]o?C #2qVqr0"1c!!bL~9!!&!J!F.(b Iw ( ,w0"iw> Pocplho6XcnobXoWn"/ Wc( nbDobXoFn">V*n!&o!..X.nlhZofn- !!b@,rnlh1.Zr . ?G+0hcKrpc+ Aw n~)pp&l@9AER0uH>@`1`RPS2 l(+2@i O AEwnX/ < ?&A9@T8U3<why I
-@9a8!V&r(ByK>]bWrmcLtEJ+M.qjU]"k!|QT+ois\idi[6mAe["u]]idM ,lr@rdJ`0*w) J n `(rHnu0MT@N DD~D5DDDD @8 *i@}DGDDDD @T'*"AEC aRgq@*!.(/|Z:}DDDDD @{: FO# G$ '@$ R D@'!H0TNIlD` G1 IYgHRi9
~L&HD xD ) ),
}|}}S! l|H?g(~Lh{B hGLz LFtD @{ .GD{D GUHD L`tD @D @+m*2v i<~LXD zH wtD @ *i@~G~E~!> }CHKz|E$E h
HD ) l,wtB@,{|{{S!zbHJzz(G
L LDD7XS7+z ,yxH
H x\bXDHD q 'B#RT`LERLa!AiJ
H NG 7` mq670A# CB{q
7 Kq770$A 7 7) p7+Jq472A!pbq6") qt|5
RT"80|b @pqqIA@1S%PASN PCNT8T(KR5@CS%RNL(hMhL%hMhL"hMhLhMhLhMh~lhDhDhDhDhD }G!NGSENDZIFFER?F/o+H HI3 `<su` AoH3HhjIi@N~F}F|F|F{F}F;FDFDFDFDFD @O/*oH<'
ruEAgm\`AIoH\2hji@(N{l{l~l}l{h}lxDhDhDhDhD z0)F(1p/o+H'H rIuE Ag AIoHP2hji@(N~|~|}|}||x{|6xDhDhDhD O /o+H'E22'uE Ag0s'uq 2r'J'i*N{|z|}|{|}x
{|xDhDhDhDhD yL, W /o+H'HI3 `<sups'uq 2r'J'i*N~|}|||{|~x
{|<xDhDhDhDhD P /o+H'HI3 `<su` AoH3HhjIi@N~GzGzGzGyG{G<GD
FDFDFDFD @ N~H}H|H|H~H{H'HDFDFDFDFD @;/*oH<'`
ruEAgs\q`=Ao9'J'i*N{{zyx{bDhDhDhDhD w/o+H'H`rIuE AgpqK`AYo9\''*i ( N~H~H}H|H{H~H#HDFDFDFD @8/*oH<'L'8uE AgpqK`AYo7\''*i NzH}H}H|HyH~HOHD @f/*oH<'E(38 A
T$NQ'q; 3,''*i xGxEx!> wCHv{u*D` GFI @H7H!~b!HoB*F G GF}I<I h
bGFI @5D D B 1 ",]t@*|k h7 <~t7 <}t
d!. |CH{{z(Gy B 7B (?x8:
I G GIwI`I~N6}O6D @DI h D q /o+H'HqqKoH l
sq+ -/o[@z"j: < Az@.~JJD @1* L)ITNSQU$zi}|GP
III~J-JD @;/*H'HT RNRE'N@.|GPIII~JQJD @a/*H'HInXS [RNRE'N@~"|GPIII~JJ{*GIJ @(D D /q+ F)HSN't@*~C!}b~|w|E|!>~H?6(
{,7(D $ :1*)`zk M,FP 150 FORMAT(///1H 'MIND. 1 '3A5' 4 'A5/1H 31('*')) CALL FINDE(1,4,4,4,2) !%>D
U`AInSS-%RN-7a3~Gb7Ha3}Gb7Ha3|Gb7Ha3{G$-#"]!^%~7Xa3}G~7Xa3|G~ ^{K0K'XL\8R' ^zK0K'XLY8R' ^yK0K'XLV8R'XLS8M9x7xEx!>wH/` .<KK'XLP8R'HZLPKM=KLPKM@Kx|xxS!jp<0&%] >)~H?}<||||S! l{H?z>|CyxrG<KIK @'7X'SSwLyxT
I8SvuG7!!>uC(7zp.|CyxrG<KIK @'7X'SSwLtgt!>sH/pT* hE<'= hE<)=U)MLMKR'Mj ED; dIGC<~~<}|}}S!|bH{{z6y6 h
< <'zC yc! n<K @) ^<KK+XU)XMF8U+XLF8R' ^<KK'XU'XL=8M=>!l}x7VIKMFK h<<'=U'MWFKL@KD(1,8I$=#]<q>M@K~<}(?| :L@KX=KM@KU%ML=KR%M{|{{S!zbHKz h
<<'= h<<)=U)MWJKX=KR'M#(y\xSXwcY n @0K_XD D98D@ > HKD @v:"]!P<=[N/q+ ,/H\'ILQET'7a3o;HHnl\hs[/H,niiJ N E ARG \JAHR / CALL KSTAT CALL 0,KSTAT / CALL EXIT CALL 0,EXIT / END CALL 0,EXIT [0, BLOCK 2 [>@000B!~bH]z h
0lKoL>NRKOF(L>hM1hL>hM4h}lhD | ,J, `5/*i Q~NN1NQ}NN1NQ|NN1N{|{{S!zbHJz!n{CyxV
:hM7 n0NNKxUKxW7hL4hM4jxC(w{O(L4hX1hM4{g{E{!>zH/v >0NNK ~0NNMz@3G1:n0UMOW;NX1NRKO8~|'xD4 n HND @G/*oH<'EATC'qk M)T R1:FYno\q 2735/:hqK 7!3i:@ (]k!|QT+ois\idi[6mHI@e["u]]idM ,l r@rdJ`0*w)a/J n `(rHn\0 WRITE(4,700)IH \80, CALL 2,WRITE ARG (4 ARG \700 CMA CALL 2,IOH ARG 22 ARG \IH CALL 1,IOH ARG 0 JMP ^X ^Y, / CALL OCLOSE CALL 0,OCLOS / CALL EXIT CALL 0,EXI Note: Lines longer than 256 characters were wrapped