as variant:
(defun c:test (/ TIME)
;;(c:test)
(setq time (/ (car (_VL-TIMES)) 1000))
(princ "\nProgram is running - 60 seconds")
(while (< (- (/ (car (_VL-TIMES)) 1000) time) 60)
(esc_exit)
)
(princ)
)
(defun esc_exit ()
(if (not sys-keystate)(setq sys-keystate(acet-sys-keystate 27)))
(if (/= (acet-sys-keystate 27) sys-keystate)
(exit)
)
)
(vl-arx-import "acetutil.arx")