home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / spezial / 14 / uhr / stu_demo.pas < prev   
Encoding:
Pascal/Delphi Source File  |  1989-07-12  |  999 b   |  34 lines
  1. (* ------------------------------------------------------ *)
  2. (*                      STU_DEMO.PAS                      *)
  3. (*             Demoprogramm für STOPPUHR.INC              *)
  4. (* ------------------------------------------------------ *)
  5.  
  6. PROGRAM STOPPUHRDEMO;
  7. USES dos, crt;
  8. (*$I STOPPUHR.INC*)
  9.  
  10. VAR  ch : CHAR;
  11.  
  12. BEGIN
  13.   Clrscr;
  14.   WriteLn('Demoprogramm für STOPPUHR.INC');
  15.   WriteLn;
  16.   WriteLn('Drücken Sie bitte eine Taste um die Uhr zu ',
  17.           'starten!');
  18.   ch:=ReadKey;
  19.   Start;
  20.   WriteLn('Die Stoppuhr läuft ...');
  21.   REPEAT
  22.     Write('Zwischenzeit (Z) oder Endzeit (E) ?   ');
  23.     ch:=ReadKey;
  24.     Stop;
  25.     IF ch IN ['e','E'] THEN WriteLn('Endzeit: ',Stoppzeit)
  26.       ELSE WriteLn('Zwischenzeit: ',Stoppzeit);
  27.   UNTIL ch IN ['e','E'];
  28.   WriteLn;
  29.   WriteLn('Ende des Demonstrationsprogramms');
  30.   REPEAT UNTIL Keypressed;
  31. END.
  32. (* ------------------------------------------------------ *)
  33. (*                Ende von STU_DEMO.PAS                   *)
  34.