Clock


Purpose   Displays the current time

Decln.    Clock;

Remarks   This procedure is designed to be used with the Assign_Idle_Hook
          to display a clock on the screen while the program is waiting for
          keyboard input.

          The MiscTTT5 unit includes 4 global byte variables that control
          the clock display:

          ClockX, ClockY are the clock display coordinates.

          ClockF, ClockB are the foreground and background display colors.

Example

BEGIN
    CLOCKX := 68;
    CLOCKY := 1;
    CLOCKF := LIGHTCYAN;
    CLOCKB := BLACK;
    ASSIGN_IDLE_HOOK(CLOCK);
END;