[<<Previous Entry] [^^Up^^] [Next Entry>>] [Menu] [About The Guide]
UNITS01.PAS

 { ---------------------------------------------------------------- }
 {                       TEST IDLE-ROUTINEN                         }
 { ---------------------------------------------------------------- }
 { Ruft in einer verz.gerten Endlosschleife so lange "DoIdle" auf,  }
 { bis eine Taste gedr.ckt wird.                                    }
 { ---------------------------------------------------------------- }
 {       (c)  1992  by  Aurora  featuring  M.J. Schwaiger           }
 { ---------------------------------------------------------------- }
 {     History:                                                     }
 {  Datum     / Bearb. / Art                                        }
 { 15. 3.1992    MS       Implementierung.                          }
 { ---------------------------------------------------------------- }

 PROGRAM IdleTest;

   USES
     CRT,

     Idle;

   BEGIN
     REPEAT
       DoIdle;

       DELAY (100);
     UNTIL KEYPRESSED;
   END. { PROGRAM IdleTest }

This page created by ng2html v1.05, the Norton guide to HTML conversion utility. Written by Dave Pearson