Oh, ok. Sorry it must be the diff time zones or 'cause we are in a diff. country. ...Hold on, ill convert it now.
(defun c:cr ()
(command "_circle")
(princ "\nGood day to you sir or madam. (I've asked the computer your name, but I couldnt understand the darn thing.) Please draw your circle now.")
(while (eq (getvar "cmdactive") 1)
(command PAUSE)
)
(princ "\nAhe, Thank you sir or madam. Have a wonderfull day.")
(princ)
)
And i Thank You for your buisness i appreciate it very much. Now please send me a check for 5000.