C 15fY6^~1)mTTnT6~7lP^A~nT^ 



1^3 irouNTs" 



60^2 IF (UNIT. JK ) 6002, 104,7003,7000 

 104 OFCOPE ( 80, 17 , IPUrTERlJ ALPHA.. 



of^odf ( 6a » iT» ~T bTJf'fer'i j r"l ank " 



lO.^.BU F_FF_R__T N___(_JK_, 0J___(_ Jjiy FJfFRjJ 1 ) ♦ I PUFFERl ( 1 5 )) 



C TESTS FOR XS AND BLANKS ALPHA AND NUMERIC 



106 IF (ALPHAM9)-5H»»«*») 107.204,107 



107 1=0 



_il£L_L*l±l . 



IF (BLANK(I)-IH ) 103.108,103 



1 08 IF ( 1-10) 5107»5108.5108 



"5108 IF (D"OLT( ALPHA! 1 ) ,1) V 103 . 1 10"t 103 



U n DFCODF (8, 35, ALPHA 111) IOCTANT 



I0CTANT=I0CTANT/I7 



lE.AHQLIJALPi±MZl.\.Z.U..l9.1t.U2.i±^. 



112 " c CODF (8, 35. ALPHM2)) ILAT 



LLAIr-LULLZlfi 



IF (DOLTt ALPHAI3 ) .2) ) 103.114.103 

 114 DFCODF (8, 35, ALPHA(3)1 I LONG 



IL0NG=IL0NG/I6 

 C *»»*#»»»***»*#♦**»#*♦»»#*»***♦**»#***** 



C TOMPUTXfTOfTTJFniONGHATIirTTf^ " 5~ d¥g" 



C ARRAYS... 



117 IDUMMY=IOCTANT+i 



GO TO (118,118,118,118,103.119.119.119,119.103). IDUMMY 



118 L4T=60-ILAT 



.QfULQ-AJDiL 



110 LAT=61+ILAT 



$10 I F (LAT-LIML ATN) 103,103,601 



6 r \ IF (LAT-LIMLATS) 122.103.103 



12? M| AT=(I AT+4W5 



*LAT=(LAT+1 ) /2 

 .„_L22_JaCLjrJLJLl25. J Ll2&.*J^.2*.m*^^ 



126 IF (ILONG-80) 127.103.125 

 . 12-T.J.UlNJirJLLO.NG.tl.oC. 



125 LONG=10-ILONG+ILONG/10»10 

 ti nMG=Ti nwr,*) 



124 ML0MG=(L0NG+4) /5 

 ja.Qfc!£=-LL.0Airvfel-)-/-2. 



GO TO 135 

 _U3_I£_l-LLflNG=anj_ lJ. n j.lH3jJ.3_L- 

 130 ILONG=ILONG+100 

 T»1 | nMr,= n-T| nMr,-T| nwr, /m*i o 



ILONG=360-ILONG 



.go— 10.-12.4. 



135 jlong=( il0ng..4 )/5 



C !L_JL_«_JLJLJI_JtJt_JLJt_Jt_A_JLJL_*_S_JLJLJS_*_ft_JLJL_±_i 



C IS CARD IN LIMITS... 



TF fMFANSFAf.il ONG. Ml ATM 103.999.999 



090 IF (LONGCHK-ILONG) 103.136.136 



. ia&^F_iiLaMrL-=iJ3N£c±tKjLir-i--inajjLP3_i-i32. 



c »»*»»♦♦»»»»♦»»#**♦»♦*»#*♦**»****»**»#** 



C ZFfiO-I.MDlCATaR— SEARCH.^..*- 



137 T=7 

 5137 1 = 1 + 3 



IF ( ALPHAf I 1-1H0) 138.139.138 



. — l3^-;F-I4-=ri64--5-1.3Jlji73.jl75- 



C »#»♦*■*■»■»»***«■***»»****»*»*»»*******»*** 



C SEA— TEMe£fiA.TURE_.SHBRQUIiME*..j. 



130 IF (DOLTt ALPHAI9) ,2) ) 175,141.175 



53 



