libname exercise 'c:\temp';
data exercise.geol;
   infile 'c:\temp\exercise.dat';
   input state $ 1-3 county $ 5-12 sqmile 14-19
         region 22-24 tract 27-29 code $ 32-33
         rainfall 37-40 temp 43-46 temptype $ 49;
         if temptype="F" then tempc=(temp-32)/9*5;
         else if temptype="C" then tempc=temp;
         if temptype="C" then tempf=temp*(9/5)+32;
         else if temptype="F" then tempf=temp;
proc print data=exercise.geol;
run;