|LA
 
 	:*
.<	:
.: 	 
 	 	: 	 		. / 
 *  	
 

 	 
    /8.	 	  	C
ARG \I
ARG \XSEM
[0
CALL 1,FAD
ARG ]3
CALL 1,ISTO
ARG [0
/      YSEM(I)=0.0
CMA 
CALL 2,SUBSC
ARG \I
ARG \YSEM
[0
CALL 1,FAD
ARG ]3
CALL 1,ISTO
ARG [0
/5     CONTINUE
\5, ~Y~	~~#~7~H}|
{Hyzy0()znnbxo&oH?&~)\Zw ?,~)kZv ?2~)wZu7&n|)
=z~w"CDfn|)J~)Zts2o&vC&sD&Co7CoDDRJr _l)0ez~~)-{S@z|	qK$|4
op"@"D)6)C*)d*
.

n*
"(z~H/}|"&!Jk{(z("08:~+&8 
+0JUUU-%-a.b8{zXX9z88K8[q&8F.8f8.TW&qLH+'(mzHkz}UH(a(?i5"U|k\"&5X2@Sik R8&YX&_X$X8t
 @`?p
CE(8oq\w)<OMN0 T@	z
W
E;oVCzLMnXQz	(`S@UEC FV
Cz!	`IS4Nn!S`TCK
  R#R
I
3XSOMN 
IU
O1`EH`S3x;	E	`C 	QS;CUTL 	8M`
 5I3`	Q8M`
 5IN5B`D0V
C`!
#4L 1	T 	ENBP8`R5T`!`5	TR@	a8NMDK	HJ	N|>{8	z	<E
exE	y	yEy!>xH?mw'	wEw!>vH?ku"H	bG	cG	4D7HGV.N	,y	|yyS!jx0WbwVcw
.

Note: Lines longer than 256 characters were wrapped