10 input 'definition file (define)': name$ 20 if name$ = '' then name$ = 'define' 30 open structure st: name 'tti_run:define', datafile name$+'.def', access outin 40 extract structure st 50 sort by st(first) 60 end extract 70 for each st 80 print st(first);' ';st(len);' ';st(read);st(write);' ';st(dtype);' '; print st(num);' ';st(scale);' ';st(rj);st(zf);st(zs);st(uc);st(date);' '; print st(df);' ';st(name);' ';st(desc) 90 next st