FTN4 c;@$ENDF .INT.WBUF% WRIF% AWRIT% AI00 gATC00 ATK00 CLIDIDAF00DCEFGDL00 DPOOLvEE030;@EE035EE11 =EERTNEQFLGER00 FERCM ESC00FA00 FDCAL FEDP FNS00gFNS02vGNA00IC00 ;@/=ICH00vIDN00IDS00JUMP "LASTCLCHAR MOVE \MNOPS MPY .OA00 :OPSY OS00 fOW00 OZ00 ~;@APACK ;PSL00 PU200 0RBUF RP00 SCP00 'SOU00USTS00 _SWAP gT.INT TS00 TV00 WBUF ST.RF@RLWAITLPAR RPAR FPRIN ASFNMEEEX EXEC JTS00OPTBLPO100PU100PO200:`c5Zdt `l \  FTN40 Id 4T,$d 4,/d < 4t m;`[#Zd 5,d ,1dl 4\RZ,!d UdCtd,tTlCZd+ <T,8d T ;`_>,FE & S,d,K<mh,,< |D @t|m<<!`NUn],c<,Yl,g<,iDd,m,c<`_lk<k<m<l , tlXN ,|<:$,llL\ ,t:`^c|dtd6 <,t|,ntZdmdtkdt$ F`A`A`;`_@|l| 6 <,״Ztd,\ |ld d Ŭdt;`aSwբdP,hTd ,k6Dt PZ <,P ,<  @| ~;`\Z`L, ,|T DCl+<T,l ~dC CT-,1T.,=Zd ,dCD  <`aX|T ,Tlf| 4,d,"dTH%$ )*d), C$L 4 @d B;`b>N3,JLCl 4 ,!t C CFTN4H t d ,>D Bl 4 t BD @,7<`\TUd  ,pdt _ d ~tFlC|qq | _ |  | <q<F,bdt _ U<`]"VqD 4t 4qT,w;Pt >t P DZ,D,D ,D,d mv| P| >;`[Z,t5t+t*t,t JZt Yt&t It ^Zd I,t ,dD m,DR,dIt Idt-l|.l.d mvd >;`[EDŶ,A<.<-,,A6 Qt mqt I,Cd mt,T,T+,,+d <,T Y,1d >,V;`[\d mT,T,,dt Id 5,GT5,vt)T+T״Zvd P,LdF ;`] vT,,EHQd mT,TZ,d <,dIt Id mT,d Pt El5 ,#<`]M,l,\+,,d,Fd 4 ,d,T+,Cd t E,C-T ,C,FATRPdl,  ;`[5 T/,=l T0,| dKvd̢l+  t Zd I0d*lʹ.d m<`]PD@t*j,Ld 4 4 ,d*l)\+ D&l <H|*dt)d P,oLD);`[ mt),fd*,,ld I$| F| GZd IT,d Zt ,d t ;`^MZd,$+,d t d l  | t Z ,< d)Z hd ITж,d 0,<`^3Hd 0t t l) L ,l) d0 d Z,Ad+,d m$ ,Ad l ;`ZĴZt'|(t+,dt Id l t G| Hd'l(t E| F,G<*d1t/<<Ld ;`ZޢD2t < </,Ld 3Zt ,fD*t*d)D t)<| Et Fd t G<<Z<`]K,fl | Ed Fd 5,ZL!d4  6D Et E,6D Et E,T F)`R, d;t \d ]t Ev,Bd ITI,d l5 F,V<`_u0A;T ZF6l d Gt l d G| t <9@Gl d :`^1QOZ6 @| l Zd 6 | t ZL l L GZ| ` L L FZ| L L EZ| Zvd P;`^mjt|,zd|D t|,zZvd >n,rvqd P}gP.d 5;`[Zd ^D nd ]td nddt md mTt ^dv;`\ `t t t t Et Ft Gt Hڬd t Ed t Fd t Gdt Qt R;`^ѳ¶t St Tt Ut V d Q4 RZt Ed S4 Tt Fd U4 Vt Gt ,:T?,:d =,Pl .| | Z|l ,il B ,id ;`[>U,d mT,,d ,w,z4 ,sT,sȠ<`Zp,ddFt I,md̴Ȣd,sĶTdTdTĢd,t QȠ,;`[+  $%()ʶ4T ,z4 ʶl| J,s4dȴT,<`\"{T ,dF!dt dtT,<ŴZ<, @L , ,,z,st `DE, Q` `Gw@ E:`^5 l d IT TL TL l .fH| .d @Zt =d jD .d JT;`]dt J .4 J .Zt /l .Z Tf,d / , .:`^a 4 .d  /t Id t Ydt J pl . t Yt It 3<`]=)Zt Jt O t `̢t Aft [ tt /LH| 8 L 8LHL ʴP| nd J,J<``[?F d /Tf,Fl̢t At WtL t u t :t ;Pt o t p t q3`Y:fd~tl}|$,rL <<l<,jl t /,G o 9`Na PD$7@D$HLPm;`[3Kd JT,T,d ET,d FT,d GT,dtdFdt :`^'l|L PT E, ZT F, , T G,ZT I,| .;`[Z̴Z<< ,l V\,d dt J,d,d 3Tl . ;`[. dl \  ,d,Ҷ .T,,Vd 3T,ҴZdFT mdF;`^oZd Y,XdFd ,=,dl J\F d JdFd D 3<`b Pt Mt Kd d t ..FTN41 D,,88FTN44 , dȶt d D ;`aB,MH HFTN43 D gQQZFTN4A d g, dɢ,&tee<e < ;`]Oc,^\ | t T,PT ,D Z,d ,d Zt D,T P,d vl ;`\kd Lt .gd T,dl ZL , .T,,ZdF"d MD L | M:`^,d ,#Md mT,dgd :d .t d L,,@FTN45 D,;`d2|FTN46  FTN4B t dt NFTN42 l m|}l m\,\+,<`\q޶dTw,T,ZT ,,lT, \,< 4t IZ,,l m\,l;`Z| m,gl m,'dT,t\,td .\,l J ,l m,)l J\f,"\,"d `IFLTLEEQNEGEGT;`\# NO14 d! 0,\Z,=d I,2d\,9T,t\,U\ ,U\ ,T,[T;`[:Z,t,g|  l YT ,d< 0dT,tdtd I,l m\,\+,,<`]LUZd tt,Z*\Z,g}dZT m,dt m,gdt m< 4l |\ m,yT ,tl<`]qrL ,jdvF5=\w,~<,t<t |0L 2 ,,%d T-,Tx,l ;`]T L TL | \, ,| . i ,| . d D D@d ;`[UdD 2,d,4,%d mT ,T,d Tx,l \,\H,,t,<`]NǶ,d T-,TxZ,d ,dӠJF** d ,d T ,, | l i| ,< /`Xހ ,t .d d 2,d T!,T ,,dt N, `DRp 2`X9o Pt ID | t Ydt Jd  Zt Rd  t Qgd .l . `A  `Aid #<`\ ' k t 2 k t '< l jL | k\ i,d k ' 0Zt nd , \, G:`YoE Cd n4 l /, Vd JT, Xd nl 3\ pD l I\4 l J\f, El L . vZ, md .l /, ^%`R \Zd . , el CL | C d n , T0l o| _ :`NY oZ| }l | _l } v;`]X ~L  v ~Z@t U| Vd _T, MT, Zd D , d [, 'd , 3Pd D , ;`\ l L z _Z fd , 7, d T ?,  _ d t d ?t d t l 颀L z f<`\h5 Zt , t [l | L zd ^Z d sd D t D zt ]t \< d [D t [d _TЬ d \<`^KG D \l _t Y , 5@< Y, d \D Z ]0 ]< \dD \Z, <t \l zZL d U< d _<`\N T , < [d D zZt ] < d ZD , O< [< d l F< sd D , Ѷ _ f, <`^ T d V< < [, d Ut ^t sT [, d \, %D [t [D t  Z, d , 0fD&I&<`[1Jd t dt dvt dT,U4tttdthtt" Zty d|T,;`cedt,k kFTN4H ndn nZllҬn@ABLMNT<`]v! ,dT,,e l\,(\, hd\,\,\,\,\,\;``,(d,f4t,4,4,4,4,t,8Ic$:`m!Œ  FTN. FTN4--RELEASE 24170C--JUNE, 1971 :`m ** ** ERROR DETECTED AT COLU:`^  MN dhtktl"dʢl |L<d <d d ;`\=dLtttl`LDddlZlL|+dLedte dt;`b Y,nece le ,W@ dft0dJl dttt<`cP/{ttdtwtnZtttytz@<|dt*FTN41 e0g@ t < `B,;`aP d׶4t|d4Zt}d4t~ ` ,@7,|$˴d;`jjlͬdǬ dDABSdDBLEdDCOSdDMAX1 dDMIN1 dDMODdDS:`m֬IGN dDSINdDATAN dDATN2 dDEXPdDLOGdDLOGT dDSQRT dDDINT TCMPLX T:`mRCONJG TCSQRT TCCOSTCEXPTCLOGTCSIN$SIN $COS $EXP $TAN $SQRT:`mF$ALOG$TANH$ALOGT $ATAN$ABS $AINT$FLOAT $SIGN$SNGL$REAL$ER9`l#sR0$EXEC$CLRIO IOR IANDNOT ISSWIABSINT IFIXISIGN  FTN41 c<WBUF%AI00 CLIDIER00 ERCM ESC00EXEC FNS00FNS02 ICH00 IDN00 IDS00 JUMP MOVE OA00 OS00 OZ00 OW00 STS00<`[ɫd9tttttdtd@tdt,dTA,<Z,d9ld<1`WdkT,,tlkL ,tZttd8<k,<`^ P@lr |rd*,0t-t%tetdet,d.lj\/d$d:`^f,"dlkLW dT7,4T, <kPd, ,T, +t d<`[59T;,T:,T<,T=,T|,$>,7t; dT<,}T=,T:< T;L;`^T|,H%d,t ,cdcJdsl d%dTq,dst.l;,;``r t.y$yFTN4A Z"d,H%dt.+,oZ du,8%,Dtd,#`PBttt ,8,dkT,V,HlLr2I;`] d,dlȶLd-T,Ztt-t0d%,¢d,t;`],dl% d",ln|\,d,tlL,ʴJld! ln t ;`] tm t td$lm7ldlm7d1lXl,|eDk;`[_ Zt, d#t"leLK"<" <,d|,d1d ,d7d1d1`Ld 1dldnDtn,<``O# Z|ddhtktl%dkthtl+Pl6|1P|e7d;dCD;`Z%CtDtDtddl d<dd?t0lLKdlLt<`a]H d; dPtd" de01dlL7 Zddetdd"<`b)~t;@@,Z td7Plt,dDot, duP,D$%;`]!=+t du,%dKtldtdKtll\},l\,t,;`_` FTN4H lD | T,\,lZL|Ld l,lLKtt <`]BtBT,TG,P;d,t <,dTG,TK,T,d;`_ ZD6,D{;d,4t.T,D,u$FTN43 ;d,dWl,<`\ dT=,-T:<T;,ZDt,ZdT>,%Z,Zd,dkT,,;`lr4l[,  (),/=0EFUNCSUBRDIME GOTOCALLRETUCONT:`m`FORMIFF(WRITREADBACKENDFREWIEND/STOPPAUSINTE;`mxREALDOUB COMPLOGIEXTE COMM EQUI ASSIDATAPROG DDk`MiJtk dڬ|l|l`B  FTN42 c@xEEEX VJTS00OPTBLPO100PU100hPO200<.INT.AI00 ATC00DAF00EE030EE035EE11 EERTNER00 EQFLG EXEC FA00 IDN00 LASTCMNOPSMOVE OA00 SCP00OZ00  .OW00 T.INT;`^Pt{d, dt $FTN4E T,T,tdT,l<`^X{,d 7 dT^,TlTlTl4,4BFZ, d;`[!TdT^,TlTlTl45&CGd ٴT,+<`[ dT^,AT,D dT,/ deD@,4d{l>dTl?|:`^;,6[\d,l=Z, dT^lVTlWTlXTlY4,72D;`\>sY"H dT^TdT^,pTlmTlnTlo4,$3EIdzݶd{d|;`^Iuly4,8 dT,}d : ,dT^,T,;`\Hdd,dd,dT,T^,dݶd;`]vZ,},}dݠZ0T,T^,T,dT,d4;`]̶lwdݬ4l\^d\dZwl|$TDdw;`]Lnڬl\,\,ldCwP`tl|Z tPD|e;`^ |d  |ZT,"dt0d.ldtt{,dt0Zdl.dT<`^$,+T^ T  d- 9$/}" dT,@T^,@|Ŷ<`^V B 4d ,_ZdT,ZdT,Vl]dT,XdUdttD9|m;`[`l lm|eT^,nT,nT,qDdC,ul]lm,Y|ew;`]>-{tet|tT^,T,TlTlTll,$:KJPtpd;`^m7lttdT,T,{l{wt{|dt $FTN4;`\HF dTd,T,˶Ьdt,l <`\{ҢڬtZ٬޴Zt|edZTd tZ l\td;`['Zdl\,{,d^tde{dddete4e:`^B dtdntttt'ttt tittdOt0dHJlI lX\Kt \Nt <`_"\'dtdtd^\\M|Xl\O,\N,\K,\L,\J,dTP,d  d;`aF@( ڬQl\N\KЬ\J,`\LZ,Q,edg ;`^Lg5|L'|'L|\,Z| |l|lL lh d l';`_=L|'L| | ||L|L||i|lR\=+ 7`j8-  * G/ Z** ORAN NOLT}LEEQNE GEGT