??2CBAPEJD-HR4!P*8^D8*LM<?DD&HZDK0(LI<UH?D&T^DN8&HUXM^,UD&T^LI<?HBX^8UL?<?D?PI"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"B"B"B"B%??AW,??APW*"??APY) ??APY)	??APM)%??APM)??D??AF*"????,?I0?I/SUBROUTINE TO MOVE TERMS FROM ONE ARE
 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>:IDX(%,H7YHH<8!X<YCYGMTYDID8HYD<X(/IC8H:IG8HYGIC8HYCQH(OIG9AU8F8F8FYGIC8J8J8JAUIG8!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+"IWIMYWIL
KQO+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???>&!R Q?? !
PY
I
P%U\I&^UN&ZI&ZRW Q%!YP%!\I?? %!P$XP%YI&YI??B(
UP(
I\%
UP%
YI
UP(
YP(
IY?? !
\I
I??B$
PI%
K&
UL	M
(^NO-!-!P
!
YI??BRZ&! QZ?? !
P
\I%

P%
\I&^ZN&^ZI(\
N&^!N
GZ!
D?? WG"FV??BWG%
YI&Z
K(\
M*^!N+
P?? -!R-!P*^N*^M??D&ZRK(\IU?? &^UN&^UM&^UK&^UI??B&^UN????N(N(??BM(N&P%MN!P J(J^ "%K&M%NK!M N^H&H\^ !I%	U(*R,-O$-L,*H(	M(L	M*O(P	R%?? T$U$T%U%T$U$T"U"T U T^U^T\U\T^U^T U T"U"T$U$T%U%T^U^T(U(T	U	T%U%T$U$T"U"T U T"U"T$U$T%U%T	U	??CPY%??U??PY%Y%??LY%??U??PY%Y
??DY%?? $	???>??BMQY%?? MQY$MQY	??BORY%?? ORY$ORY	??BQTY%?? QTY$QTY	??BFR%?? RY"$RVY	??BMY%?? RY"$RVY	??BFR%RVY"MY^RVY[HTYP\R]%S]%T]%S]%T V"W?? W $W	??BMYY%?? M] $KM]	??BT

Note: Lines longer than 256 characters were wrapped