10 open structure client: name 'tti_run:client' clear print at 2,30, underline: 'Client Data Entry Screen' clear area box: 17,1, 19,80 line input at 18,2, prompt 'Enter client id number: ', & default '80542', length 5: id$ set structure client, field id: key id$ print at 3,5, bold, underline: client(first); ' '; client(last) line input area 5,5, 8,75, default client(comment): response$ print at 10,1: wrap$(response$,5,35) delay