home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / TURBSC.ZIP / TESTSCR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-12-28  |  256 b   |  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.