;;;Turn AutoCAD and AutoLisp into an alarm clock. Use Doslib.
;;;Cannot use AutoCAD while alarm clock is running.
;;;(the idea is to wake yourself after a little sleep during those all nighters).
;;;Be sure not to charge for the time you were sleeping.
;;;Your PC speaker or external speakers must be functional and on.
;;;
;;;	Author:
;;;		Henry C. Francis
;;;		425 N. Ashe Street
;;;		Southern Pines, NC 28387
;;;
;;;	http://www.paracadd.com
;;;	All rights reserved.
;;;
(defun c:alarm ()
  (cond
    ;if DOSLib is already loaded, return true
    ((not (null dos_about))
      T
    )
    ;if AutoCAD Release 12, 
    ((= (atoi (substr (getvar "acadver") 1 2)) 12)
      (xload "doslib12")
    )
    ;if AutoCAD Release 13, 
    ((= (atoi (substr (getvar "acadver") 1 2)) 13)
      (xload "doslib13" nil)
    )
    ;default message
    (T
      (prompt "DOSLib AutoCAD R12 or R13")
    )
  )
  (setq setime (uint 1 "" "Set Alarm Time" (if setime setime 500)))
  (while
    (and (setq curtime (getvar "cdate"))(/=(fix(*(- curtime(fix curtime))10000))(fix setime)))
    (princ (fix(*(- curtime(fix curtime))100)))
    (princ ":")
    (princ (fix(-(*(- curtime(fix curtime))10000)
                 (*(fix(*(- curtime(fix curtime))100))100)
               )))
    (princ "\010\010\010\010\010")
  )
  (setq count 1)
  (while (and curtime (< count 11))
    (dos_beep 6 1)
    (dos_beep 2 1)
    (setq count (1+ count))
  )
)