XPFj( I»2)=TRFJ(I»2) 

 774 CONTINUE 



LINE =LINE+1 

 _lLJ_N£=_iU_Nf.+] 



IF (LINE-12) 9010,9010.9007 



9007 Tfl RLEC?) = TARLF(?)+0«001 



LINP=1 



Pfffl WPTTF OUTPUT TAP.F Jl . 19. 



WITF OUTPUT TAPE JL. 42. TABLE! 2). AMONTH. IYEAR 



_W!UI-l_P_yTJ_m__lA__E___LL_____a_^^^ 



1 AHFAniLONCCHK ) 

 WRITE OUTPUT _TA_PF__J_L.__2_l_.__(_A_HE_Ap( IJ. I=M,_ L0NGCHKJ_ 

 "o ni7^"fF~7 mTrTr r~9 O 11,4011.9011 



9011 IF (JLINE-30) 4011.4011.9012 



901? JLIMF=1 



TARL F(6)=TABLF(6)+0.001 



WP f f~E "output ~f apT'Tm", 19, 



WRITE OUTPUTTAPF _JM^,__43, TABLE (_6 )_._ AMONJH. IYEAR 



WRITE OOTPUT TAPE JM» 20," HEADTLAT "NlTT HEAD ( LATS1 ) » AHEAD (M ) , 

 1 AMFAntLONr.CHK ) 



W°TTF OUTPUT TAPF JM , 21, (AHEAD(I), I=M, LONGCHK) "~ 

 fL l 2LL- WR -LJA„ - UT ? UT TAPE JL.28. HEAD! J) . J_BAR0Mm_,_I_C2 ( I ) . 1 = 1.10). 



i " t ic5 m »"i C3 m"» i ="i »T6T» fic4 1 1 ) . ic3 1 1 > . i =1,1 1 " . " 



__ 2 I : ( IWIN DVFH I,L ) , I C 6 ( I ) , 1 = 1.10). L = J . J ) __ 



"401? "tF (MARKR) ?25,226»225 



225 WRITE OUTPUT TAPE JM.27, HEAD(J), ( XREJ ( L ) . L= 1 . 20 ) 



?7f, COMTINUF 

 ._ ™_„„„.„____„__„_„_.___ 



TABLE (3 )_=J_ A R L_F _<_3 )+_ 0_._0 0_1 __ 



LINE"=0 

 7?77 M = |.QNGCHIC/7 __ 



|_ = M_4 

 401 5 WRITE OUTPUT TAPF JL» 19. 



WRITF OUTPUT TAPE JL» 44, TARLEm. AMONTH. IYEAR"" 



WRITE OUTPUT 2 A iiL.^i--!__?P-!.-Jl?A9 l Ai^J^.L_^_ H _EAp2_(_L_ATS_2j .AHEAD2 ( L) , 



1 AHFAO?"( M) 

 WRITE OUTPUT TAPE JL. 22. ( AHEAD2 ( I ) . I=L.M) 



4017 DO 229 J=LATN2. LATS? 

 J_P__5_OQ4___I=_l_,5 



" Vi 1 1 )=jsFA<r.jrr~ 



IF (ICKD ) 228,226,227 



? ? 7~ ir? ( i ) = jsf ate'mp ( i ♦ j i / 1 c if 1 1 



xir?( n = ir?(n 



xir?t n = xic?( I )/io.o 

 _5Aj2QMiJLl=.LX.L£2JJ.J_-32.»0.iyjL J Jl- 



RO TO 5^04 

 .__22J_-J_l__2__-__=-l-_- 



BAPOM( I )=0.0 

 ^0^4 rOMTTMMF 



LIME=LINF+1 



IF._U_Ji4EL-3_ril__5229_i.52.25.taQl* 



9014 TARLF(3)=TARLF(3)+O,001 

 L-I_NE__1 



9<">15 WRITF OUTPUT TAPF JL. 19. 

 WPTTF OUTPUT TAPF .11. 44. TARLFI3). AMONTH, IYFAR 



WRITF OUTPUT TAPF JL . 20, HEAD2 ( L ATN2 ) , HEAD2 ( L ATS2 ) , AHEAD2 ( L ) , 

 J ___EA__2jL__) 



WRITF OUTPUT TAPF JL. 22. (AHEAD2II). I=L.M) 



-A2-?_9--WPaT___jaLiieiii__TAj-F__jj___^^ .. 



1 1 = 1. ■>) 



59 



