home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / database / tdb / demo / units01.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-04-07  |  1003 b   |  28 lines
  1. { ──────────────────────────────────────────────────────────────── }
  2. {                       TEST IDLE-ROUTINEN                         }
  3. { ──────────────────────────────────────────────────────────────── }
  4. { Ruft in einer verzögerten Endlosschleife so lange "DoIdle" auf,  }
  5. { bis eine Taste gedrückt wird.                                    }
  6. { ──────────────────────────────────────────────────────────────── }
  7. {       (c)  1992  by  Aurora  featuring  M.J. Schwaiger           }
  8. { ──────────────────────────────────────────────────────────────── }
  9. {     History:                                                     }
  10. {  Datum     / Bearb. / Art                                        }
  11. { 15. 3.1992    MS       Implementierung.                          }
  12. { ──────────────────────────────────────────────────────────────── }
  13.  
  14. PROGRAM IdleTest;
  15.  
  16.   USES
  17.     CRT,
  18.  
  19.     Idle;
  20.  
  21.   BEGIN
  22.     REPEAT
  23.       DoIdle;
  24.  
  25.       DELAY (100);
  26.     UNTIL KeyPressed;
  27.   END. { PROGRAM IdleTest }
  28.