Lisp help

[johnengineer]

Please help me modify this code so that osmode is set to 19 after execution. After executing this lisp, osmode remains at 32.

;
;
(defun CLINEBRK (/ p1 p2 pt x ang sc lin)
(setvar "cmdecho" 0)
(initget 1 "H V")
(setq x (getkword "\nBreak <H> Horizontal <V> Vertical lines: "))
(if (= x "H")(setq ang 0))
(if (= x "V")(setq ang (/ pi 2)))
(setq sc (getvar "dimscale"))
(setq T 1)
(while T
(setvar "osmode" 32)
(setq pt (getpoint "\nSelect intersection point: "))
(setvar "osmode" 19)
(setq lin (entsel "\nSelect the line to break: "))(terpri)
(if lin (progn
(setq p1 (polar pt ang (* sc 0.125)))
(setq p2 (polar pt (+ pi ang) (* sc 0.125)))
(command "break" lin "f" p1 p2))
(progn (setq T nil)(princ "\nPLINE BREAK DONE!")))
)
(setvar "cmdecho" 1)
(prin1)
)


[CarlB]

(progn (setq T nil)(princ "\nPLINE BREAK DONE!")))
)
(setvar "osmode" 19);;>>ADD THIS LINE<<
(setvar "cmdecho" 1)
(prin1)
)

[johnengineer]

CarlB,

I added the line you specified, but the routine still retains 32 for the osmode.