Hi Steve,

How about the following approach:

LOCAL FN buildWnd
  DIM theTime$
  WINDOW #1,"clock control",(0,0)-(200,80),_docNoGrow
  TEXT _SysFONT,12,0
  COLOR _zRed
  EDIT FIELD #-1,TIME$,(0,28)-(200,44),_statNoFramed,_centerJust
END FN

LOCAL FN doDialog
  DIM evnt%
  DIM id%
  evnt% = DIALOG(0)
  id% = DIALOG(evnt)
  SELECT evnt%
    CASE _wndClose
      END
  END SELECT
END FN

LOCAL FN doTimer
  EDIT FIELD #-1,TIME$
  'This uses the System Beep Sound, but a better sound should be used.
  SOUND %1
END FN

FN buildWnd
ON DIALOG FN doDialog
ON TIMER(1) FN doTimer
DO
  HANDLEEVENTS
UNTIL 0
END

BTW, as a tip to you others - before pasting this code into my eMail, I ran
it through FBII, which saved the indentations. Easier to read? You bet!
Hopefully, you'll receive it the way it looks to me at this moment.

Joe Wilkins