home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / TURBOPAS / PASUTIL1.ZIP / TIMM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-12-28  |  1.1 KB  |  27 lines
  1. {$INCLUDE:'timi.pas'}
  2.  
  3. Program TimerTest (Input,Output);
  4. Uses Tim;
  5.  
  6. { This program really consists of three pieces:  a main program
  7.   TIMM.PAS (this piece), a unit implementation (TIMU.PAS), and a
  8.   unit interface (TIMI.PAS). The unit is first compiled separately;
  9.   its compilation results in an object module called TIMU.OBJ.
  10.   This program is then compiled and that generates object module
  11.   called TIMM.OBJ.  The two are then linked together with the
  12.   linker (respond TIMM.OBJ+TIMU.OBJ to the linker's object question
  13.   if you are using linker 1.1; TIMM.OBJ,TIMU.OBJ if you use linker 1.0).
  14.   The linker then generates executable code TIMM.EXE which will ask
  15.   you for a delay time and then delay for that many seconds... Not
  16.   very useful, unless you need (as I did ) to build in a delay of at least n 
  17.   seconds into a communications or process control program }
  18.  
  19. Var DelTime: Real;
  20. Begin
  21.    Write ('Enter Delay (in seconds) ... ');
  22.    Readln (DelTime);
  23.    Writeln ('Will be delaying for ',DelTime,' Seconds');
  24.    Delay (DelTime);
  25.    Writeln ('Dealy completed')
  26. End.
  27.