??2CBAPJL<%?AW,L<?DA\PH*H?D?HP$YL< D?AY)L	<?A4PH)T?D?HP$ML<?D?D?H(F"L?<??$L"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B"B3T;AT6)*JBI2 	DS	M6 KE7RKO*2256(B 3R
O3R7A6 WM+SCT3B
E+ICN7WSI3HF 2 WD3CGL7RSA3I;O")*M*IB 7DOI+MBI7EKR/OKR*6",6 KP7OKG+ACM3T?O2 	B3GZ +OCR7TKA7GSE2 GM3C	H+N	E"M2J7MOES&12 J S	S" 66*JBI6 KO+GBI7MOES61*JBI2 ?C+NBI21"02 ?C3M	P7LSAI*M*IB 3C;O.IF 20?H7NR >:IDX(%,H7YHH<8!X<YCYGMTYDID8HYD<X(/IC8H:IG8HYGIC8HYCQH(OI
9AU8F8F8FYGIC8J8J8JAUIG8!X</?9IGH<YG8DICYC(T?4DE?>(A>=?M?]?-E??AAAUYWIWH8YLJ\JM\JIWI>A=9J8H9DH9YM\JQMH>X>-X8A? B.D??:?&<??6?>=RA8GBF,H:X<ISYTYRQTMT8A>(+,H<X=H;X>IVXJMT!XMT8J8J8J!XIR< QTET!XMTAR8J8J8J!X;0G?QC*+IDYCIEGQG*1IHYGIIGQK*7ILYKIMGQO*=IPYOIQGP=*$:H
X=;0P>*$:*FYWQW<H+*78QC+TIWIEYWIDYCQG+[IWIIYWIHYGQK+"IWIMYWILYKQO+IIWIQYWIPYO+I;0/GQTMT8A<(*8A> (EIR8 YR*F AVAILABLEB EA5 6F6*7K7+8I8%99Y91:H:]:1;D;V;&;6<E<S<!<-<9=E=O=Y==,=4=<>C>J>Q>W>]>>(>->2>7>;>??B?F?I?L?O?R?U?W?Z?\?^? ?"?$?%?	?(?*?+?,?.?/???4B?7B?9C?
C?;E?<F?=H?=M"8^%&/]2J$UB?;-"/]F	ETX$KHX]+&-%H\<(I!X\/^I X(M8%(I
[4:A"8^/3O2<%	BAF-(A-^$	%	HA0??B ^?? ^.^/??B1V(W	?? W,W.??B/T	V%?? V*V,??B.R%?? [[.W,W*Y)Y3M1M/R.R,^*^,].],[.[0Y1X1???>Y1)[1*],^,],[,Z",V",X	,Z),[*]*["*Y"*X *T *V%*X	*Y)[)Y W V)^V,)R*	R)%T	$T	.H0,H0*M)1O	1Q%1R	1T)1V%1W	1T)1V1*T)*V**W,*Y.%Y/%P.%P,%O+%O	%T)
V+%W,W.O,O*M)M%R	T)V*"V,"M*"M)"K	"V	%T	R	"Q, [,*Y,)W,	??PV,%W,%??BV,%??BT,R%"T%V*%T*$V*%X,	Y) Y	 T% T	 Y) Y	 Y) [+ W, V, T	V	%W,	V,%W,	Y.)[*"[)"Y	"Y)"W*[W)[W*[W,[V.[V,ZV*[V,]V.^V. V%^V%]V$[V$XV)ZV*[T,]T,^T]T[T"ZT"VT	XT)Z*[R*[T"[V"[W W*[W)]W	^V& V/ V.ZV,ZO
[O)[O	YO)YO*XO	XO)VO*VO!XO$XO%XO	X)))") M
M"
M$
M%
	Y	"X	 V	^U	]Q!]S"]U$]V%V% O%^Q%]R[R%[O$[O"[Q!Q!^E!]E![J"YJ"YJ.J/11V(W(Y	W	Y	"[	\.%V.%W.]Y.]S[S/[V.[W,[Y+[Y4[S3[S1[T/[T1T/ T.",.T/[V,[W)YV)YW,YY.Y[/ T/ V	 W	 Q%Q%"T% V%^W%]W%	Q%%Q%R"R"M"OP%PH%H	F(F	F(%F*	F,(F*(F( F	 F%"FF%F	F(F	F("F*"K	%[\%^	^(U*	U*%T*$T*
Y*"[$\(%\(	T(%T(R("R(^W( Y("[	[	%R	R	"P [ Y/W/V% %^.\.[/Y*W,Y.[/Y3[1]/^.^,^*"^,Y.%Y/%Y.\Y,\Y+[Y	[Y) Y+"W,W.W,[W*[W)YW%YW	^W) V*"V,"V*YV)Y	WT%"V W"^Y ]W 	V)%T)R*"Q*"R.%T/%V1%W1%V(%T(%S	%O	%Q,%S.T/V/T	R	??AQ%??AM%??AO*??AQ,??AR."??AT."??AR%"??AQ%"??AO??AO.%
?AW,??APW*"??APY) ??APY)	??APM)%??APM)??D??AF*"????,?I0?I/SUBROUTINE TO MOVE TERMS FROM ONE AREA TO ANOTHER?MSEAJ,?I0?MSKEND,?I0?MSO*71?MSVMYCLS1,?I0?MS^MYCLS2,?I0?MS$C1END,?I0?MS+C2END,?I0?MS2C1POIN,?I0?MS9C2POIN,?I0?M$$$$$$$$$$?M

Note: Lines longer than 256 characters were wrapped