.Rp
MAIN  p
OPEN  p
SUBS^ @
R
OY@08MAIN  `FFFFFFFF(F~`\
}	
a 7F~`\
}	) 7F	|F{FzyFxwFvuFtsF
@sL@t@uK@vc@wR@xX@yP@zH@{@|q@}
@~H@p
IOPEN p
READ  p
IOH   A~	}F|{FzyF`\
5\
2Fx\
xx!wHvF`\
~\
@u\
uu!zH
9tw`C\
*\
)	
06`F	
!`F	
D
1
iF	ys-tw`C	r\
)	
07r(
_
g. 	ssF
J/w`\
)	

Ar`AsrAt
"Au*AwAx)AyAz
A{NA|~A}MA~AAv
A)~7}F`\
|\
U{\
{{!zH
*yz`C\
x\
)	R'`F	
`F	F`\
|\
U{\
{{!zH
Nyz`C\
w\
)	RK`F	
6`F	
Y
2	)F\
{\
{{!vHuF`\
|\
t\
tt!s
As
At*AvAwAx
Ay4AzA{)A|A}A~rAp
NAMLI p
WRITE AiAu"BH
~`\
*	`F	}`F	

1
iF`|F`\
{\
0`F	s
E
'
CLSRE O `01.0	iF`\
{\
W`F	
:`F	n
a
'N 
	E'v
@F`\
{\
`F	
=`F	oz
B{
B|\B}kB~
Bp
OOPEN p
GETSY BgBzB
'N 
	
E'v
@F`	
:	
=F`	\
5\
/F	~F}`\
}	
B|7F}	{F}zF|yx	x\
wF
	vF`
F 	x(
J
]z`\
u\
`F	
`F	F`{	v(t
dT`\
u\
`F	
`F	
BuBvOBw+Bx
By
@Bz
AB{
9B| B}PB~
8Bp
OCLOS p
EXIT  p
CHAIN BtBiBOB(3B%3A3Ao3AW3AU3@^3@[3@P3@M3CHS

	,	`	iF	~(
}|\
{(
}`F	z(
(H
(
,h`0`M\
,F`CzC{+C|DC}6C~
Ck