DATA ANOMALY;                                                                   
     INFILE IN;                                                                 
     INPUT YEAR 21-24 MONTH 29-30 #2 @2 (T1-T180)(:5.);                         
DATA PRINT;                                                                     
     SET ANOMALY;                                                               
     FILE PRINT;                                                                
     ARRAY TEMP{36,5} T1-T180;                                                  
     ARRAY LONG{36} X1-X36;                                                     
     ARRAY LAT{5} Y1-Y5;                                                        
     LONG{1}=0;                                                                 
     DO I=2 TO 19;                                                              
           LONG{I}=LONG{I-1}+10;                                                
     END;                                                                       
     LONG{20}=170;                                                              
     DO I=21 TO 36;                                                             
           LONG{I}=LONG{I-1}-10;                                                
     END;                                                                       
     LAT{1}=65;                                                                 
     DO I=2 TO 5;                                                               
           LAT{I}=LAT{I-1}+5;                                                   
     END;                                                                       
     PUT   '     TEMPERATURE ANOMALY DATA' @35 YEAR= @50 MONTH= /;              
     PUT   @2 'LONG' @26 'LAT (S)';                                             
     PUT   LAT{1} 15-16 LAT{2} 22-23 LAT{3} 29-30 LAT{4} 36-37                  
           LAT{5} 43-44 /;                                                      
     DO I=1 TO 19;                                                              
           PUT  LONG{I} 2-4 @5 'E' TEMP{I,1} 12-16 TEMP{I,2} 19-23              
                TEMP{I,3} 26-30 TEMP{I,4} 33-37 TEMP{I,5} 40-44;                
     END;                                                                       
     DO I=20 TO 36;                                                             
           PUT  LONG{I} 2-4 @5 'W' TEMP{I,1} 12-16 TEMP{I,2} 19-23              
                TEMP{I,3} 26-30 TEMP{I,4} 33-37 TEMP{I,5} 40-44;                
     END;                                                                       
     PUT //;                                                                    
RUN;