data tc10;

infile in;

input area 1-13 perim 14-26 TC1 27-32 TC2 33-38 TS 39-47 TY 48-56;

proc print;

run;