program testscr;
var
date,name,addr,phone:string[12];
ch:char;

{$I TESTSCR.INC}
begin
REPEAT
  date:='02/05/85';
  testscr;
  gotoXY(1,24);
  ClrEOL;
  write('Quit (Y/N) ? ');
  read(kbd,ch);
UNTIL CH in['Y','y'];
end.