_Lan2_IJL-JLOiRtirJJdS.L_J.Qil4-t.LaQijJ_on.4i. 



1003 L!MLATN=60+LIMLATN*in 

 GO TO 1QP7 



1004 IF (DIRN-1H ) 1006,1005 »1006 

 .iQi25._jj..xiJL_L._Jj-J.-__QD---_LQ_ll_'_lP_Q6_ 



1006 LIMLATN-0 

 _iQ_27-_I5__±LJL(____J_Sr__J__l±07.iJL10.7jj.0J.3. 



Lf°7 IF (0IRS-1HS) loog, 1008,10P9 



1PPR I TMI ATS-6P+I TM| ATS»1P 



GO TO 1^14 



__Li'_?__J-F__LQ_L_S.rJ___Ll.-IC_Ll__l_110_j_._0_._l 



lOl" LTMLATS = 6 r, -LIMLATS*10 

 GO TO 1014 



101] IF (0IRS-1H ) 1013.10~12.1013 



1Q12 IF (LIMLATS) 1013,1010,1013 



1013 LIMLATS=12P 



1014 IF (LIMLATS-LIMLATN) 1015, 1015,1016 



1015 LIMLATN-0 



LIMLATS=120 



1016 IF (Ll M LONGW) l n 2? 1 1 1 16 .1115 

 111^ IF (LIMLONGW-18) 1116,1116,1022 



1116 IF (DIRW-1HW) loi p, 1017,1018 

 1017 l.TMLONGW=LI^LON(_W»10 



GO TO 102 3 

 101P IF (DI RW-1HE) 1 020,1019,1020 

 1019 LI MLONGW-360-LI~MLONGW»10 



GO TO 107 3 



10?0 IF (DIRW-1H ) 1022.1021,1022 

 .iQ_____J_L__LUL-!__QN_i_-rl_il__l__22.ili___lj_LQ_L2_ 



102? LIML0MGW-70 

 .i02.3__J5_-_a±-_jQN_G___l_8_l__l__2J.j.LI2i»_LQ.2.9. 



11?^ IF (DIRF-1HF) 102^,1024,1025 

 1074 I TMI QNGF = 36 0-I 1MIOMGF-10 



GO TO 1O30 



.i___5__i.F_-__D.iJ__ir___yi_i_z__aa2-__--i2-i 



1026 LIMLONGF=LIMLONGE*10 



_____Q_„r„0_ 



1027 IF (0IRF-1M ) 1029,1028,1029 



1028 IF (LIMLONGF-18) 1029,1026,1029 



1029 LIMLONGE=180 



1030 IF (LIMLONGW-LIMLONGE) 1032,1 031,1031 



1031 LIMLONGW-70 



LJ„LjO_G_=l_0 



103 7 LONGCHK=LIMLONGW+10 

 I ATM1-I TMI flTM-H 



LATS1=LIMLATS 

 -U_I____LA__L_._L___ 



LATS2=(LATSl+l)/2 

 -LAI-i-_=_iL_I____t__L__i- 



LATS5=(LATSl+4)/5 



IF (NO) 1033,1033,2033 



2033 IF (NO-12) 1034,1034,1033 



1033 N0=1? 



1034 CONTINUE 



_ro____L=__ 



ASSIGN 6000 TO NOT 

 AOOO TF MINTT. 1.1 AQQP.ftOPI .7003.7000 



60O1 BUFFER IN t JK , ) ( I PUFFER! ( 1 ) , I BUFFER1 ( 1 5 ) ) 



C_ •_»_»._»_»....» »_» » »,* * * » * * * * * * * » .« *_.*..*. *_* *..*..* .*.*—*-- * 



r ZFRO ARRAYS... 



-_l__3i__AL____-Efii_-_L_-_.9__Q_L__-SEAT_L_'P_l 



ASSIGN 6002 TO NOT 



52 



