1 clear open structure vend: name 'tti_run:vendor' line input 'Enter part of a name': part$ part$ = ucase$(part$) extract structure vend include scan(vend(name), part$) > 0 print vend(name); tab(30); vend(phone);' '; vend(city) end extract