; (setq wait (seconds 10))
; (> wait (seconds 0)) -> T, then nil
; (< wait (seconds 0)) -> nil, then T
(defun seconds
( delay
/ d s
) (+ delay
(* 60 60 (read (substr d
10 2))) ; extract the hours (* 60 (read (substr d
12 2))) ; extract the minutes )
)
)
)
)
; (Wait 5) ; will pause user for 5 seconds
(defun Wait
( secs
/ wt now
) )