home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 09 / titel / timer.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1990-08-03  |  621 b   |  24 lines
  1. (* ------------------------------------------------------ *)
  2. (*                       TIMER.PAS                        *)
  3. (*     Zeitanzeige zur Verwendung als Hintergrundtask     *)
  4. (* ------------------------------------------------------ *)
  5. {$A+,B-,D-,E-,F-,I-,L-,N-,O-,R-,S-,V-}
  6.  
  7. PROGRAM Timer;
  8.  
  9. USES Crt, Dos;
  10.  
  11. VAR
  12.   h, m, s, s100: WORD;
  13.  
  14. BEGIN
  15.   ClrScr;
  16.   REPEAT
  17.     GetTime(h, m, s, s100);
  18.     GotoXY(1,1);
  19.     Write(h:2, ':', m:2, ':', s:2);
  20.   UNTIL KeyPressed;
  21. END.
  22. (* ------------------------------------------------------ *)
  23. (*                  Ende von TIMER.PAS                    *)
  24.