home *** CD-ROM | disk | FTP | other *** search
/ EDUCORP 8 / Educorp2Compilation.sit / educorp2 / Programming (2300, 7000) / 2306 Programming v.4 / TimeUnit / Demo of Time Bomb next >
Encoding:
Text File  |  1987-04-11  |  296 b   |  17 lines
  1. Program Tester;
  2.  
  3. {$U-}                           {  Disable Units                }
  4.  
  5. { a Demo to illustrate how it works             }
  6.  
  7.  
  8. Uses MemTypes,Quickdraw,OSIntf,ToolIntf,PackIntf,TimeBomb;
  9.  
  10. Var 
  11. Flag : boolean;
  12.  
  13.  
  14. Begin
  15.     Flag := TimeTest(10000);
  16.     If Flag = true then SysBeep(255);
  17. End.