||k`PHH@		F"b"bbbf~&
f.bfy(J 		P;rAn<<4 n<<4ir"&!.}"f|A&X`H/\)f.bf{AV"bbi M	9Nh	lzpz*cpeR}F
{E
~H	@C	}F
{E
}H	@C	C	}F
{E
|H	@7(#(Nz/{"F
{E
|H
B}"F
{E
|H	@7(#


~
zCzy{
!n
zCxx
|
C
|XC	w 	|W{P

C
C      &C_R#WAHL - SORTIE@k FALSCH L01$K=%L%0)	L)0L116K
L;1MIHALB,ISTA,ISTB,ISTD,ISTE,ISTF,ISTG,ISTL,ISTM
        COMMON LANF,IANF,I,I2,IZFE,IZFA
       	
@


7 
<~!t7 
<}!t7 
<|!t7 
<{!tzAIDE	@H
*)@
!ny&B!xbHw{A	~G_7H_Cv(/u`:(Jt!
!nKsAb=!,11 
U`WtC
^]\D[NJ~AK~A!}c|{7z|zzS!ybH)zA@_7H_GA	hF_7H_G
.xG
!n	wCzGzEz!>yH/v
>!ubt|ttS!sbHr{qO6pP6s(Bo	_7_(?nH?nZ:qCfpcgsbBAA	@_7H_C1 4
 ^]D6 7 
J~B!}c!(o
4*A	hF_|C{czbBAyB	@a7HaC7_x_x78_G
lww7vku
>!lw(?tH?t@:
!n	sCrGrEr!>qH/p8	h_d7_(?oH?o\:A@_H|n7{:<"> U2A=
^]A
	~bBA	@	@c7HcC7_x_A@aHc7c8J}(K}|'7a!>|C!7h_G{k
!nzCzywyEy!>~H/xw7
!n	vCuGuEu!>tH/p(_7_!>yC!(ojn*
lww7RjwCI(

UAF
(~{H~{(}<8E	E	
E	.
/o+K
SNATFEz'
,<`L
H:'
i@}CUC||||S!{bHPzzH6yI6{ .BAA	@M8E	5
EAa/*g
1H '2v2,qb@(}<8EE	xK!)=0
	CAL\4[@
SN2,&SH	A	H0S(nFJC'3,6hI'XHE)4loi0~G
!n	}C|G|E|!>{H/z8	h_d7_(?y8:
!n	xCwGwEw!>{H/fv"BAuC	@_H	had7_<t7xaC!lt(?fd*>jA@_7H_C!j  G


<>@%!>(z<(~L)}G}E}!>|H/$|"BAA	@!HE	
E	@0	*lL1
<)@
l{{7z!>{(?<H/<>*yk~DIDE	@S/*oo;0'jgo:oo;@.x>w 8=
	DO 400 K1=1,148
400	IL1D$#


TO!N!(/X~b2b}3&O2D- @5c5L#0
+4,b57j
2f)f4$&#@# nJ>
n!"b|G#]#V
3f{Urz xO33$HVbn?d
.

nyW0%ANF=K0+1
? 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   DO 560 3dW'Yhxo)*Wt~}7} ~|b'{"zhd~yz)H?!hJ*xBzxzi~}@? lw!>}S(}@?O!.vuz}
hHz f} .~>zxz)OD,~<Z}C!o}b`vy J	.xz)1 tC@s{ozrZJtc(S{yz)S
250	CALL RTAPE(1,-I eO.pEeu0-`{Pww% >NKf Lf l~~NO7})| R2v`vUvSv{6vMhRoHSlMBUlDKJLKKj MfL<J}/K .{	z(?H,~yR	zGM]Jx0 ~E\K&Y(RoKDU]*{V~w Z*8vOeu~(?}"
8)| {H/zy"xC0(wy0~C -z2b *z8$
2lv2u2}t 8K2 /4Z.xCsr(3zq@.z/94*-sp?JMw! @@`W @2H	~8X~OP	l}(?M@/|"O}G	l}{2@zRoDPJQSlzB	}GyCx(/P!.}@/ wiUlDQ	}>HIz}H>}vsvgu>u}st}s}'5	,}r0}|0	}C{H/%Qd>w PP&R2%)(I(K3,K2),K3=1,11)
525   |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{>{|jA00`
F}l(?~9hOwo&xzo"{_
_-@}E70(/
l0(|y{ ?##Kz}!Yf#>
O9z

n
y`xY2,*wZOZIz
nnsv'Y>J, ~W&}Y"HbnO0Ya(YoYD],Z>uC Yfmt"xYkz)  RES*e`8v?`2te*)t} .G =f l~vEz}|`
U
SWH
"={K~E!7h~ziy<&x=&~7x~@5z!l~XJ*Fj@G b=d /5}"wG} .=v"uCH$zts)O bFbblW1=1,148
880	I2(K1)=IFE(K1+60Se|#xOv*8vONv5NF0bXn)bn4 n4bG	~C(WzU"b(;z!b@;zbHf.bf/JC .bAj
@"@HzfiH/@/Rf.Xl}ye"onh rm	~nx	|Gn	{ ~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\bdhX	
[<Vn\=&>(O:h.S.fj/
|NN}t5N9F;h:'&	c	F 	c	F"b"bbbf~&
f.bfy(J 		P;rAn<<4 n<<4ir"&!.}"f|A&X`H/\)f.bf{AV"bbi O9Jh	lzpz*	cpefnl >A~0~&J0n4"cF%&&&c' @H1~fn~bl}|y 6:&7c
BF 7c7Fc n66,{7rzy{Hf.bfl}N{V1	xC wr	xG hC^hdh_6O\Khdjhh	FE
bn4c)F)c )bDn
bD
f)r$+	IP@/$!
f)b3n**4:*c*Fc(&{@Bz!NDd@BzHf!.b f&
b$czPHo@
f.
bDoR"S..f/! h
nnD
BHrH~wJ FE*t&
c
F

4nH?! h!D "O'Kh 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;HrH~wJ @&
c
F

4nH?! h!D "O'Lh 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<ZP.kJ8 	I@ p{	<@<
LI	)0)lJC&EK	L01	$K=%	L%0)	L)0	L11	6K
	L;1p[@Y{Z0% 
	
`

I
Ug
@`\
~\
G`D	
\
'     6 

HEEH
R
Sg
@`\
~\
`D	}
B~
BBaB}@{]B
'     7 N
TN
N
S
C`
 A
N	i`
7
	<~t7
	<}t7
	<|t7
	<{tz!.7hQ#!yb!(ox0:

d
!.wH/v8	u	BE	M
/S)H: H  lq@(	u	\E	E	_
	i,(x{c	,|t7{s7r*kn?n;
Sb `TzSR*Q.B	
H	~H	@U	,}78U'	
H	hFU
.7U
x	~	$E	*
'1!'
ki@	~H	TH
!n|{'	{E{!>zH/Ny#FxcGzbB	
H	H	@KE	4
E	@wb:	l,`2 liq'+z'	)@	~H	IE	Hv:}'F>fj}+1TS*
/I)THE(NA!C"G?(lq@(	~	L(E	E	}!|c({{%(	~	0E	j
/g+``#  D`` `U `@` 1`'g
1H1 1hlX'
1Hl	`: '5,6FC z, gg3SHNNS!TNASQ 9hg@j	~I	BHE	HG,KN
}Iz 
	~I	\HE	HE	@}(?|:	{G	{E{!>zH/yx3&wc'vbB	H	~I	@U7(U#!	l}(?2u+	~I	AIE	HE	@L'*O
  h   I	i@	tC(2zH2zSs"!	lt(?rH?r\:q!.	tC(cz2	,xp7wo7v*bbjc : F
T
SH*I(
B	H	~J	@U7(U'	H	hFU7(U'	~J	%JE	HE	@9'*
 5 C4L!R'	l<`ES1H'@}+
	l|{7	H	hFU
.7U
x	~	,(E	z^yc_xbB	H	H	@c(E	E	wh#^hdh_6J	\Jhdj
T
S(j	
'
!H'	l<`
z:'	i@	J	JE	H '*
H'	i@	J	=JS1&T2&~(B			6
E	@E	@E'*(i ^Ii}|k} 8O

),
9eZJ!.KJbKH.G	,EH+-S-HIb	EIKJb!HnG&	KBzzno7j

7	<~t7	<}td!.|H/{8		<hn7(?z.:
!ny
&

B!xbHw{	~CD}cExbB	K	
K	@7hc(v{M	,~Y6}Z6x(B		<
	<7!>u!.(gzHgzv	<~t7}s7x*rD@	|&!
0!;!#;nB	K	
K	@	l~6}6|(B		<
	<7
>7~{>zy2	xG
!n	wC	vG	vEv!>yH/uv3!yb	wC	tGs	|ssS!xcHr{q(B		<p	<~W6}X6|(B		<p	<7	<o7xc!	lo(?hn+	mGo*
k\	K
^K0=002;n%~%X~s!}bHVz	|C{c}bB	K	K	@7hc	zG|)6{*6}(B		<	<	|C8{c9}bB	K	K	@7hc7	||M6{N6}(B		<	<	zC7z
!n	yCyx{wk	|Cj{ck}bB	K	vL	@7hc(u{t:$\
;.[>`>%~	|~~S!}cH|{{6z6y(B		<x	L7(?w+	{C*zc+ybB	K
xL	@vbB	K	xL	@7hc7	|u	|uuS!ybHt{{Q6zR6y(B		<	<7	<s{sdzceybB	K	K	@	l{r7zq7y*V2bqm[$[*
n,[>B	K	K	@7hc7	|~6}6|(B		<	<	{C7z{
!n	yCy.zxkwk	vG	vEv!>yH?L	,~E6}F6|(B		<u	\72z
!n	tC	sG	sEs!>rH/q~3d}ce|bB	K	pM
@7hc!ob!jtP
,;K?Kn(zHz3	,~6}6|(B		<{	\	~C }c!|bB	K	{M	@(zRB	K	@	@7hc7	|~?6}@6|(B		<y	\7!>z!.(MzHMzx	<~Y6}Z6|(B		<y	\	~Ch}ci|bB	K	yM	@pzRB	K	@	@j.`nz778g	~C}c|bB	K	|N	@7hc(zHz3	,~+
},6|(B		<|	l{7(gz	<~?6}@6|(B		<|	l7!>y!.(MzHMzz	<~Y6}Z6|(B		<|	l	~Ch}ci|bB	K	|N	@pybB	K	@	@7hc d`nz7~ 8		F"b"bbbf~&
f.bfy(J 		P;rAn<<4 n<<4ir"&!.}"f|A&X`H/\)f.bf{
V"bbi M	9Nh	lzpz*cpeR}lm7!s"d"6"N	<8O	p!b"
n#
%@J
bh@/z!
f3
&"h!f &&~ }v-|R
Gn|brt{]KH/Dq-n{r
C 
b  oH/I"rr|
^Fzbty]iq-|ytz]Hz hdjyXq
D
DC

BC	@	*i@~!.
}CHz|
>
}C}}s#&6#4,.D26D:>DBFDG
BG
BG
BG
BG
BG
BG
BO+KdAvM@@@vN@@(vNCvP@@HJvT@@ Jf
CPfZ@@ vZCvP@@H
w
Q]
B
 p{
<@<
LI	)0)lJC&EK
L01
$K=%
L%0)	L)0
L11
6K

L;1
LI	)0)lJC&EK[@Y{Z0%s

L	LL	L		LL
L

LLLL
LLLLL
L
L

Lkn2!O4G+
H?); [[nm<*%9-6;:<[*r^alO'?)-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;JQ C3$Wsf-JC;*SP*.f| MM7.|`SS7/;&SUJSM&SBS)tC _T&2S&/;&W>>
I)e3&Wenu:m
)QFs
l@
	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E&,('H/)"<b~*rC(2<+b ' J,&H"z)=&}~'*C(K(=&+*$C	|{0(,{z(&y)&x*&w+&vu'
tBtr}	|,0sss!rg
CK>
qp0(J{Jn okXp8ug]o?C
U

#2qVq

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[6me["u]]idM
,lr@rdJ`0*w) J
n
`(r
Hnu0PG@
WS&
GN@ JFA@ 

fO!
FO#

G$
'@$
R FS!*FPfZ@@ vZCvP@@H
w
Q*&V
@T&FQ!*AC*
C@*
C)
@!	7PC@I#Y	Tt@	7TAJ[	Tt@K	7T@DL[@|M
[
u
7\\U@@!	pHk"	hF	7@@
17L\P@@7Cj<RTR@870FOB 
7lD@2|]k	qGN870>F87p(F11/G

7e
kw
7.
{Cw7RE
7H
{d{@SE
7U
{T{7@TE17uhG17ptK17qW17pb[	7qSU[	urV5	7NW[75|J{7u}{	tTXE	APPC@`775.G77p%G77u5G775@W77uEG7qYE7rZE71[E72\E7q]E7r^E7UP"q6J
;
_u
7<
y7UA%SN
~!.I	l}
>J}c|K&}{2  `~%~
|}
|}}S!|bH\z{(B
M
lz	|H7Hx
M	lhHm7HyrB
MF
zG
BH7XHWy(B
M
lx
|H-w7(HWy(B
M
lw
|H-y7(HWy(B
M
ly
|H-
!n7Hz

zG
JF
vG
jD
zG
GE
IFu:#		w|
MLn/S)N !CB 
1 SEPIHR g
{i@
~G
]GE
NFE	@}!.|(?>(*
{G
{E{!>zH/=(
M	lhHm
7hHW*L*
yC!xg

~G
gF
wG
B
NF
B

~G	@
vG	@`
*)@H
B
yC!xgE 
0
PAGE 
BLOCK \PbgLfMN b
	

~H
gF
}H
B
~H
HE	@/*x(<mi@
,|
~{zr!	ly
<xzr
xCxxs!wbHv{
|c|urtsr!xcH9z=r"
xCtx
~
E	E	
E
OhE	
~
/qB
MF
~H
BeE	qC+ 1
\L1, B@'mQ`PM`(POPb
B
QF
~H
BE	E	.
/o+K
SNATFE`lr'L
H lIr3'KETBg	i@C/*`CL!RMR1'	l`I	`lsoi;!}!.
|G}
,||7|!>{H/z!>
!ny
|yyS!xbHw{|v3yu7t!.u(?hH/hs+
yC|!>{!.(r{
,tTMTl	Sd@R
`
Hz~
<}|7{}#zywx!.}(?JH/J*
wC!vbuusJ
tIK
tI!uc(.z%
,u8J
t
y5z
uCJ
tIy
|y}3!sb!(o@H/@E*
yC}z7J
,}z7tr'q(B
U
lt
H-7H8J
poq(B
V
lt
H-7H8J
pEY
P`XMWV`UTfbN%~}rB
UF
|I
BH7XHSJ
{Iz}rB
VF
|I
BH7XHSJ
{Iy}rB
UF
}I
BH7XHSJ
{Ix}rB
VF
}I
BH7XHSJ
{Iwx
v
PHM}(B
U
lu
J-t8K
{s7J!>
sC!7hHWI)
C	RESgFY`
^]\f[
`Zn
~J
PDH}RB
UF
|J
BJ{SK
zJy7xJS!
ly!>7Hx
|
,PHM}(B
U
l}
,J-x8K
zy'7J!>
yC!7hHW
}J
PDH}RB
VF
~J
BJwSK
zJy7xJS!
ly!>7Hx
v
,PHM}*P@or$-y*<"(xzZ]gf
[B
VF
~J
BJ}SK
|J{7xJS!
l{!>7Hx
z
,PHMy(B
V
ly
,J-x8K
|{'7J!>
{C!7hHW
wG
wEw!>zH/v8
_
lPHM7H
>
uGuV2ckV\*af*k+t!.
sGrq2!
lsr{p!.
sGro2!j4M7NOwa6``v_6^`g
\%~z}!.
~G
_F
PDH~S7H|{
{Cz!>y!.(8zH8z
.!xb
wG
wEw!>vH/8(
_
lPHMu!.7H$z

tK		@
sK	@
rgq
|qqS!ybHp{o(B
c
lt	<Hx(B
T
lt
<J-7H
<n7xJS!
ln:
|Ig`Gc6b\f
`_TWf<L'an(z
,~}7
|c||s&6;;G{2B
cF
zK	@HyRB
VF
zK
BJ7XHS
xG7J!>
xC(5zE
.
|C|~sw|sA&6A;EE;G>v8
z
<
uG
uEu!>{H/d{"B
dF
fF	@a8E	N

YF	~Gm8E	
rZhrRhrffEe6g`
bdfcn
[F	~G	HE	
]	l~|E	@
~C}!>|!.(4zH4z!(
{
L0HE
IhE	3

i,z
{L
Ly
|yyS!xbHQzx(B
e
lf	lNE	@;(
Z	l~Z|E	@
\F	~GeHE	
^	l~p|E	@E	@g*f
@TWn/*s2+,plr32,&ri

6,&s2+,plr32,&ri

~
L:}G
}E}!>|H/5(
_
lP2LE	@"(E	H
2X-32:,r`lq,,hl
K)@J
{CO&6O<RtLzk
~L
_LE	@b2*)`yk
~L
oLE	@t8*(mIi@xk\+%HUP_

jD
B	C!
l~x
}
\g
l|	\{!~g

}M
gF
zM
fEy
|yyS!xbHBz
MF	hFHwRy~7
gF
fEJ7XJS7H#zM
hF[A
CALL 2,SUBSC
ARG [A
ARG \IFE
[1
TAD I [1
DCA I [0
JMP @McK\
`g`OR.n
bDB(|hT&m*n-1]L
^=VnVVnVVnVVnJ, hZ.C$=B"&L5
 DB |	LC&+J^}g~@ ZJ(/VJ$]F"+,X,:Z9eZJ!.KJbKH.G	,EH+-S-HIb
EIKJb!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

O

MUfBtLvx]zLojl:np;rD@	|&!#%')N.~rsvvN]
P
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?`7p `@`?M|OR!W7(T(?'LX
LV #O
pY*bWb7U(zLx0'&(&[&\(0Z" b;`F6C;dEE70;c;
LE{ 7ES'L
1<=ajwao[2h \LhTuRSbhc
t
|~
vGwizCVDyo
`,~HE	@8E	
	l,1K
)L
~C~}s!~c(zHz.|8{L*HE	4
/o+o0>'g+oo+o@:zkyk 5	N11=I3(2,ITEM1)/10
	N12=I3(2,ITEM2)/10
	N21=I3(3,ITEM1)/10
	N22=I3(3,ITLA-
0A]

Note: Lines longer than 256 characters were wrapped