home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MADTRB9.ZIP / SHOWTIME.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-12-12  |  195 b   |  11 lines
  1. Program Show_Time;
  2. {$I time.inc }
  3. begin
  4.   clrscr;
  5.   gotoxy(1,1);
  6.   write('Time: hr:min:sec      Press any key to quit');
  7.   repeat
  8.     showtime;
  9.     delay(100);
  10.   until keypressed;
  11. end.