{$INCLUDE:'timi.pas'}

Program TimerTest (Input,Output);
Uses Tim;

{ This program really consists of three pieces:  a main program
  TIMM.PAS (this piece), a unit implementation (TIMU.PAS), and a
  unit interface (TIMI.PAS). The unit is first compiled separately;
  its compilation results in an object module called TIMU.OBJ.
  This program is then compiled and that generates object module
  called TIMM.OBJ.  The two are then linked together with the
  linker (respond TIMM.OBJ+TIMU.OBJ to the linker's object question
  if you are using linker 1.1; TIMM.OBJ,TIMU.OBJ if you use linker 1.0).
  The linker then generates executable code TIMM.EXE which will ask
  you for a delay time and then delay for that many seconds... Not
  very useful, unless you need (as I did ) to build in a delay of at least n 
  seconds into a communications or process control program }

Var DelTime: Real;
Begin
   Write ('Enter Delay (in seconds) ... ');
   Readln (DelTime);
   Writeln ('Will be delaying for ',DelTime,' Seconds');
   Delay (DelTime);
   Writeln ('Dealy completed')
End.