DATA STADATA;                                                                   
  INFILE IN;                                                                    
  INPUT X $ 5 Y $ 6 @;                                                          
  IF X NE ' ' AND Y NE ' ' THEN                                                 
    INPUT ID 2-7 LAT 9-12 LONG 14-18 ELEV 20-24 STATION $ 26-44                  
      NATION $ 46-57 TYPE 59 STYEAR 61-64 ENDYEAR 66-69                         
      QCCODE 71-72 FRYEAR 74-77;                                                
  ELSE IF X NE ' ' AND Y EQ ' ' THEN                                            
    INPUT YEAR 2-5 TJAN 7-10 TFEB 12-15 TMAR 17-20 TAPR 22-25                   
      TMAY 27-30 TJUN 32-35 TJUL 37-40 TAUG 42-45 TSEP 47-50                    
      TOCT 52-55 TNOV 57-60 TDEC 62-65 TMEAN 68-71;                             
  ELSE INPUT;                                                                   
  RETAIN ID;                                                               
DATA PRINT;                                                                     
  SET STADATA;                                                                  
  FILE PRINT;                                                                   
  OPTIONS MISSING=' ';                                                          
  IF ID=LAG(ID) THEN GO TO DATALINE;                                  
  PUT / ID 2-7 LAT 9-12 LONG 14-18 ELEV 20-24 STATION $ 26-44                    
        NATION $ 46-57 TYPE 59 STYEAR 61-64 ENDYEAR 66-69                       
        QCCODE 71-72 FRYEAR 74-77;                                              
  DATALINE: PUT YEAR 2-5 TJAN 7-10 TFEB 12-15 TMAR 17-20 TAPR 22-25             
            TMAY 27-30 TJUN 32-35 TJUL 37-40 TAUG 42-45 TSEP 47-50              
            TOCT 52-55 TNOV 57-60 TDEC 62-65 TMEAN 68-71;