home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / turbopas / turbscr.lbr / TESTSCR.PQS / TESTSCR.PAS
Pascal/Delphi Source File  |  1986-06-21  |  256b  |  18 lines
  1. program testscr;
  2. var
  3. date,name,addr,phone:string[12];
  4. ch:char;
  5.  
  6. {$I TESTSCR.INC}
  7. begin
  8. REPEAT
  9.   date:='02/05/85';
  10.   testscr;
  11.   gotoXY(1,24);
  12.   ClrEOL;
  13.   write('Quit (Y/N) ? ');
  14.   read(kbd,ch);
  15. UNTIL CH in['Y','y'];
  16. end.
  17.  
  18.