WINAPI: GetTickCount KERNEL32.DLL
WINAPI: PlaySoundA   WINMM.DLL

: WAIT ( time )
  1000 * >R
  GetTickCount
  BEGIN
    GetTickCount OVER -
    R@ <
  WHILE
    GetTickCount OVER - 1000 MOD 0 =
    IF ." ." THEN
  REPEAT
  DROP R> DROP
  [ HEX ] 20001 [ DECIMAL ] 0 S" MSREMIND.WAV" DROP PlaySoundA DROP
;
