.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
Nz`{	v(
e
UT`\
u\
i`F	
`F	HS
n
	,	`	iFt	x
BtkBuBvOBw+Bx
By
@Bz
AB{
9B| B}PB~
8Bp
OCLOS p
EXIT  p
CHAIN B($B%$A$Ao$AW$AU$@^$@[$@P$@M$C(
~\
}(
`F	|(
H

h`0`M\
,F`C|C}+C~DC6J