NM 
(os) 
BS) 
Bi 
DO 27 K#1ls»M2 
IF%K-lo 285928529 
ZM1#M1 
DELT#1le/%2e*ZM10 
(GO) 7O) 372 
IFSK—-M2031228928 
ZM1L#M1 
DELT#H1.e/Z2M1 
SUM1# 0 
SUM2#0.0 
SUM3 #020 
SUM4#0.0 
EM1L#¥M1 
CAY#K—-1 
DO BB) (Ls 2 OM 
EL#¥L-1 
GUT#%1-eGCOSFSPI*EL/EM1LOO*COSFSPI*CAY*EL/EMI14 
SUMI#SUMI1&EGUT*A%LO 
PF MCODEm 25533 03:5 
SUM2#SUM26GUT*B%LE 
SUM3 #SUM36GUT*E%LO 
TR No. 
SUM4#5UM46%1 ¢GCOSFSPIXEL/EM1OO*SINFSPI*CAY*EL/EM1O*F%LO 
CONTINUE 
X1L#DELT*%SUM1&EA%1500 
IF%CODED37 936937 
YI#DELT*%SUM2&B%1lqo0 
ZH¥DELT*%SUM3&6E%1u00 
WHDELT*SUM4 
R¥SQRT%%Z**2EW*X* 20/%X1*Y 100 
THATANF&W/Z40 
T#T/ 20174533 
P#Z/SQRT%X1*Y10 
Q#W/SQRTSX1*Y10 
KK#K=—1 
XLQ#M1 
XLQP#KK 
FXLP#%2e¢*XLQ*YO4H/ XLQP 
WRITE%61 26020KK sAMKOSBS¥KOSESKOsFYKGsX1l9Y1lsZeWsFXLPoReT 
WRITE%02 s602H0KK sASKOSBOKOSESKOsFYKOSX1l9Y19ZeWsFXLPoRsT 
GO 1 27 
22 
