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)0L116K
L;1
'-
	FL='LEIST'
	FK='-KURS'
	FM=' MIT '
	FP=' PKT.'
C	LEISTUNGSFACH MIT 0 PKT.
	IW2=2
	IW1=	@
7~G7H}GH
|.D	@
/H,'S
H
 35'q; y,''*i 
!n{
&B!zbHy{d!.	xCHw{v(G	
7
8SuT@(t{kv"R)TE(3,110)d
q
G@@	@7S~A!}b!(o|+{Cz
~!ycxx	|wG@@	@7SvAuxTtsAA@	GMD	DrYqcZhD	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)DK
78<~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(Son'x!.n(?`H/`m+
lwr7q*NDE(IW1,IW3C0
 d55#/r.-G,9"%NG,B5B	@&7H&CS~C
}g}!>|H/3*{(G
0,1,&${(G0,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#z
l~}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
TO!N!(/X~b2b}3&Y2D- @5c5L#0
+4,b57j
2f)
f4$&#@# nJ>
n!"b|G#]#V
3f{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
oHMlMBLlDKJLKKj MfL<J}/K .{	z(?H,~yR	zGM]Jx0 ~E\K&Y(WoKDU]*{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@zWoDPJQMlzB	}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~6Cl4X7hqFn(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,*wZOZIz
nnsv'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&
c
F
6&
&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, hZ.C$=B"&L5
 DB |
	LC&+J^}g|@ ZJ(/VJ$]F"+,X,:Z9eZJ!.KJbKH.G	,EH+-S-HIbEIKJb!HnG&	KBzzno7 JbJej
(?V,IV  
C(VzBV
R Q)&6ML
H
w 
1~[<$6}"A
n8zDb6|R( ~<
j	rFB{ /Mz /Kf.M
 !,O&,MkM

Y
KUfBtLvx]zLojl:np;rD@	|&!#%')N.~rsvvN]
0
OxRC
 `0&
cd0cdaf>atH
f666b&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 $)bDn
bD
f)r$+	YP@/$!
f)b3n**4:*c*Fc(&{@Bz!NDd@BzHf!.b f&
b$czPHo@
f.
bDoR"S..f/! hnnD
BHrH~wJ t&
c
F

4nH?! h#D %Y'Mh h	G~}w (
00bH ~1d~3&2>&c|(H#[c* n/c_c)c+
c,2bcc-b
3f/_J n* ?s){2.n+-'-0BH.rD.b,-'V2bqn3=@OR!W7(T(?'LXLV Y
`Y*bWb7U(zLx0'&(&[&\(0Z" b;`F6C;dEE70;c;
LE{ 7ES'L
1<=ajwao[2h"\LhTuRSbhBt
l~
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	L11	6K
	L;1
 p
7	~G7H	}G7H	|G7H	{G7H	zG7H	yGFB!	lxH?w	<~=6}>6v(G			9	79	8S	uT	HS	tH
7
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'6NA
Hi77	
>77	~| 8(&{@Bz!NDd@BzHf!.b f&
b$czPHo@
f.
bDoR"S..f/! hnnD
BHrH~wJ 
.&
c
F

4nH?! hD J	'Ih h	G~}w (
	00bH ~1d~3&2>&c|(H#[c* n/c_c)c+c,2bcc-b
3f/_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~6C	l4X7h1Fn(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,*wZOZIz
nnsv'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&
c
F
6&
&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}tPNB
7:	<~;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&EK
L01
$K=%
L%0)	L)0
L11
6K

L;1
 
LI	)0)
lJC&EK!t
LLLL
L

LL	L	
LLLLLLLLLLLL@L+d4t[2M-C8:.a)-m6[:;,%[9<[*r^aM]'n[`?)-7676_7B*)j).c77cl&	C_g	L	)&/767-6-(6B
-d-_77d)b720-7)
l-&IK8-7'7B
7g)&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``
fOed
L^	fGfgD]d.i
|e'0'ppEb&t,('H/)"<b~*rC(2<+b ' J,&H"z)=&}~'*C(K(=&+*

%S	,|{0(,{z(&y)&x*&w+&vu'
tBtr}	|,2sss!rg
CK>
qp0(J{Jn!okXp8ug]o?C


 #2qVqr

0"1c!!bL~9!!&!J!F.(b
Iw
(
,
w0"iw> Pocplho6XcnobXoWn"/ Wc( nbDobXoFn">V*n!&o!..X.nlhZofn- !!b@,rnlh1.Zr
 .	?G+0hcKrp
c+	A
w
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
`(r
Hnu0
MT@N 

D
D
~D
5DD
DD	@8	*i@
}D
GDD
DD	@T'*
"AEC	aRgq@*!.(/|Z:
}D
DD
DD	@{:
FO#

G$
'@$
R D
@'
!H0TN
IlD`	G1 IYgHRi9

~
L&HD	xD	)
	),

}
|}}S!	l|H?g(
~
Lh{B hG

Lz	LFtD	@{ .G
D
{D	GUHD	
	L`tD	@D	@+m*2v 
i<
~
LXD	zH
w
tD	@	*i@
~G
~E~!>	}CHKz
|E
$E h	

HD	)
	l,wtB@
,{
|{{S!zbHJzz(G


L	L
D
D7XS7+z
	,yxH

H	
x
\bXD
HD	q
'B#RT`LERLa!AiJ

H

NG
	7`

mq670A#	CB
{q

7

Kq770$A	7 
7)

p
7+
Jq472A!pbq6")	qt|5
RT"80|b	@p
qqIA@1S
%PASN PCNT8T(KR5@CS%RN
L
(hM
hL
%hM
hL
"hM
hL
hM
hL
hM
h
~
lhD
hD
hD
hD
hD	}G!NGSENDZIFFER?F/o+H
HI3 `<su` AoH3HhjIi@N

~F
}F
|F
|F
{F
}F
;FD
FD
FD
FD
FD	@O/*oH<' 
ruEAgm\`AIoH\2hji@(N
{
l{
l~
l}
l{h
}
lxD
hD
hD
hD
hD	z0)F(1p
/o+H'H rIuE	Ag AIoHP2hji@(N
~
|~
|}
|}
||x
{
|6xD
hD
hD
hD	O
/o+H'E2
2'uE	Ag0s'uq 2r'J'i*N
{
|z
|}
|{
|}x

{
|xD
hD
hD
hD
hD	yL, W

/o+H'HI3 `<sups'uq 2r'J'i*N
~
|}
||
|{
|~x

{
|<xD
hD
hD
hD
hD	P
/o+H'HI3 `<su` AoH3HhjIi@N

~G
zG
zG
zG
yG
{G
<GD

FD
FD
FD
FD	@ 

N

~H
}H
|H
|H
~H
{H
'HD
FD
FD
FD
FD	@;/*oH<'`
ruEAgs\q`=Ao9'J'i*N
{
{
z
y
x
{
bD
hD
hD
hD
hD	w/o+H'H`rIuE	AgpqK`AYo9\''*i (

N

~H
~H
}H
|H
{H
~H
#HD
FD
FD
FD	@8/*oH<'L'8uE	AgpqK`AYo7\''*i N

zH
}H
}H
|H
yH
~H
OHD	@f/*oH<'E
(38 A
T$NQ'q; 3,''*i 
xG
xEx!>	wCHv{u*D`
G
F
I	@H7H!~b!HoB*

F	G	G
F
}I
<I h	

bG
F
I	@5D	D	B
1 "
,]t@*|k 	h
7	
<~t7	
<}t
d!.	|CH{{z(G

y	B
7B
(?x8:


I	G	G
I
wI
`I~N6}O6D	@D
I h	
D	q
/o+H'HqqKoH	l
sq+ 
-/o[@z"j:
 <
Az@.
~J
JD	@1* L)ITNSQU$zi}
|GP

I
I
I
~J
-JD	@;/*H'HT RNRE'N@
.
|GP
I
I
I
~J
QJD	@a/*H'HInXS [RNRE'N@~"
|GP
I
I
I
~J
J{*G
I
J	@(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~ ^
{K
0K'XL
\8R
' ^
zK
0K'XL
Y8R
' ^
yK
0K'XL
V8R
'XL
S8M
9x7
xEx!>wH/` .
<K
K'XL
P8R
'HZL
PKM
=KL
PKM
@Kx
|xxS!jp<0
&%]
>)~H?}
<|
|||S!	l{H?z
>
|CyxrG
<K
IK	@'7X'SS
wLyxT

I8S
vuG7!!>
uC(7zp
.
|CyxrG
<K
IK	@'7X'SS
wL
tgt!>sH/pT* h
E
<'= h
E
<)=U
)ML
MKR
'Mj ED;
dIGC
<~~
<}
|}}S!|bH{{z6y6 h

<	<'
zC yc! n
<K	@) ^
<K
K+XU
)XM
F8U
+XL
F8R
' ^
<K
K'XU
'XL
=8M
=
>!
l}x7V
IKM
FK h
<
<'=U
'MW
FKL
@KD(1,8I$=#]<q>M
@K~
<}(?|
:L
@KX
=KM
@KU
%ML
=KR
%M{
|{{S!zbHKz h

<
<'= h
<
<)=U
)MW
JKX
=KR
'M#(
y
\xSXwcY n	@
0K_XD	D
98D
@ >	H
KD	@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

0
lKoL
>NR
KOF(L
>hM
1hL
>hM
4h
}
lhD	|
,J, `5/*i Q
~N
N
1NQ
}N
N
1NQ
|N
N
1N{
|{{S!zbHJz
!n
{CyxV

:hM
7 n
0N
NKxU
KxW
7hL
4hM
4j
xC(w{O(L
4hX
1hM
4{g
{E{!>zH/v >
0N
NK ~
0N
NMz@3G1:n0
U
MOW
;NX
1NR
KO8
~
|'xD
4 n	H
ND	@G/*oH<'E
ATC'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
`(r
Hn\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