10 clear print at 2,6, underline: 'Sort, select, and report from 1383 vendors' print open structure vend: name 'tti_run:vendor' 20 extract structure vend 30 exclude vend(city) = 'FALLBROOK' 40 sort by vend(name) 50 end extract 60 for each vend print vend(name); tab(30); vend(phone); ' '; vend(city) next vend