INTERFACE;

UNIT TIM (EXACTTIME,DELAY);

PROCEDURE EXACTTIME (VAR hrs, mins, secs: REAL);
PROCEDURE DELAY (wsecs: REAL);

{ This part of the program merely shows how an interface for a unit is
  constructed, and then how this interface can be included in both the
  implementation of the unit and in a program that uses that unit; this 
  is done with the $INCLUDE metacommand for IBM Pascal. }
 
BEGIN
END;