DATA HISTORY (DROP=X);                                                          
 RETAIN STANUM STATE STATUS DIVISION CURRNAME COUNTY XREF BLANK;                             
INFILE 'history.txt'  MISSOVER LS=236;                                                     
INPUT @45 x $1. @;                                                              
IF X NE ' ' THEN DO;                                                            
 INPUT STANUM 1-6 STATE $ 8-9 STATUS $ 10 DIVISION 11-12 CURRNAME $ 14-43          
      COUNTY $ 45-60 XREF $ 62-86 BLANK $ 150;                                                       
END;                                                                            
ELSE                                                                            
INPUT STANUM2 1-6 MOBEG 8-9 DAYBEG 11-12 YRBEG 14-17 MOEND 19-20                
     DAYEND 22-23 YREND 25-28 SUSPLAT 30 SUSPLONG 31 SUSPLOC 32                 
     SUSPELEV 33 SUSPPO 34 SUSPNAME 35 SUSPQUAL 36 SUSPINST 37                  
     SUSPTIME 38 SUSPHTS 39 SUSPPUBS 40 SUSPBEG 41 SUSPEND 42 SUSPOBS 43        
     SUSPOTHR 44 LATNORTH $ 46-51 LONGWEST $ 53-59 DISTANCE 61-63 DISTUNIT $ 64               
     DIRECT $ 65-67 ELEV 69-73 DISTPO 75-78 POUNIT $ 79 DIRECTPO $ 80-82
     NAME $ 84-111 QUALIF $ 113-122 ADDINST 124
     COTTON 125 DBULB 126 EVAPSTA 127 FISHPORT 128 HYGRO 129
     MINTHERM 130 MAXTHERM 131 NORIVGAG 132 RAINGAGE 133
     SHELTER 134 RECRIVER 135 RECRAIN 136 SNOW 137 STORAGE 138
     STDRAIN 139 STDSHELT 140 THERMOGR 141 DIGTHERM 142
     TIPBUCK 143 OTHEVAP 144 MAXMIN 145 TELSYS 146 HYGRO 147 HY6 148
     HY8 149 SFP 150 SRRNG 151 SSG 152 SSRG 153 STB 154 AMOS 155 AUTOB 156
     PSY 157 TIMEOBS $ 161-164 PCPHT $ 166-167
     PCTHT $ 168-169 BULLETW 171 COMBBUL 172 CLIMDATA 173
     RIVSTAGE 174 HYDROBUL 175 PRECDATA 176 SNOWBULL 177
     NOTPUB 178 CWB 179 MONTHREV 180 STATEPUB 181 LCD 182 BQ 183
     SGPD 184 WWR 185 MYB 186 OBSNAME $ 188-233 NUMOBS 235-236;
RUN;