(defun C:Sludge()
(setq dcl_id (load_dialog "Sludge.dcl"))
(if (not (new_dialog "Sludge" dcl_id))
(progn
(alert "Sludge.dcl")(exit)
)
)
(action_tile "decade" "(doButton 1)")
(action_tile "month" "(doButton 2)")
(action_tile "quarter" "(doButton 3)")
(action_tile "cancel" "(done_dialog)")
(start_dialog)
(princ)
)
(defun doButton(a)
(cond
((= a 1)(command "_START" "EXCEL.EXE"))
((= a 2)(command "_START" "EXCEL.EXE"))
((= a 3)(command "_START" "EXCEL.EXE"))
)
)