Try this
(defun C:CR (/ *error* PNT1 P1X P1Y STDY DY COORD PTXT)
(defun *error* ( msg )
(if (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*EXIT*")) (princ (strcat "\nOops an Error : " msg " occurred")))
(princ));end_defun
(setq ts (tblsearch "Style" "Romans"))
(if (= ts nil)(command "_-style" "RomanS" "RomanS.shx" "0.000" "1" "0" "n" "n" "n"))
(setvar 'TEXTSTYLE "RomanS")
(setvar 'TEXTSIZE 3.5)
(setq PNT1 (getpoint "\nPick coordinate point: "))
(setq P1X (car pnt1)) ;x coord
(setq P1Y (cadr pnt1)) ;y coord
(setq STDX (rtos P1X 2 3))
(setq STDY (rtos P1Y 2 3))
(setq COORD (strcat "Off- " STDX)
COORD1(strcat "Elev- " STDY))
(setq PTXT (getpoint PNT1 "\nPick text location: "))
(command "LEADER" PNT1 PTXT "" COORD COORD1 "" "")
(princ)
)
(ALERT "IT WILL PRINT THE X,Y CO-ORDINATES OF A POINT..., C:Cc")