OPTIONS PS=66 LS=132;                                                          
DATA INVENT;                                                                   
INFILE 'invent94.asc';                                                         
INPUT STACOD 1-6 LAT 7-14 LONG 15-22 ELEV 23-28 STANAME $ 30-59                
      STATE $ 60-61 BYRSHF 63-66 EYRSHF 68-71 HCNMN 73-76                      
      HCNAVG 78-81 HCNAV2 83-86 HCNMX 88-91 HCNPCP 93-96                       
      URMN 98-101 URAVG 103-106 URAV2 108-111 URMX 113-116;                    
PROC PRINT;                                                                    
RUN;