home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 05 / tricks / uaufruf.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-02-22  |  134 b   |  10 lines
  1. PROGRAM UhrAufruf;
  2. USES
  3.    Crt, Uhr;
  4. BEGIN
  5.   _Uhr;
  6.   Write('Bitte Warten . . .');
  7.   REPEAT UNTIL KeyPressed;
  8.   NotAus;
  9. END.
  10.