(defun C:BK (/ omode a b c pt1)
(defun *error* ()
  (setvar "orthomode" omode)
  (setvar "osmode" osmod)
  (princ "\nError detected...aborting")
  (terpri)
)
;;  (if (= SCL nil) (setq SCL (getvar "LTSCALE")))
  (SETQ SCL 2.50)
  (setq omode (getvar "orthomode"))
  (setq osmod (getvar "osmode"))
  (setvar "orthomode" 1)
  (setvar "osmode" 32)
  (setq a (getpoint "\nSelect INTERSECTION :"))
  (setvar "osmode" 512)
  (INITGET "X")
  (setq pt1 (getpoint a (strcat "\nSCL=" (RTOS SCL 2 2) "-Show Direction of break or eXit:Nea ")))
  (if (= PT1 "X")
      (progn
         (*error*)
         (exit)
      )
  )
  (setvar "osmode" 0)
  (setq b (angle a pt1))
  (setq c (* SCL 1.00))
  (COMMAND "_BREAK" PT1 "_F" (POLAR A B (- C)) (POLAR A B C))
  (setvar "orthomode" omode)
  (setvar "osmode" osmod)   
)