I was all set to post a lisp but I think Glen's answer might be better. Oh well, I'll post it anyway and let you choose which you find easier.
Code:
(defun c:arcb ( / arcpt arclen arcang arcrad )
(setq arcpt (getpoint "\nSpecify starting point: ")
arclen (getdist arcpt1 "\nSpecify chord length: ")
arcang (getangle "\nSpecify chord bearing: ")
arcrad (getreal "\nEnter arc radius: ")
oosmode (getvar "osmode")
);setq
(setvar "osmode" 0)
(command "arc" arcpt "e" (polar arcpt arcang arclen) "r" arcrad)
(setvar "osmode" oosmode)
(princ)
)