Continuing command

[TunzaGibbo]

I have another question regarding this routine.

This routine works perfect and ends perfect when I press "ESCAPE"

But it won't end when I press "ENTER"

Is there some code I need to the 4th last line?

 

(defun c:conlob (/ *error* Pt1 Pt2 obline)
  (defun *error* (x)
    (resetoldvar)
    (princ "\n*Cancel*")
    )
  (savevartoold) (constructionlayer)
    (setq Pt1 (getpoint "\nPick First Point:")
          Pt2 (getpoint Pt1 "\nPick Second Point:"))
    (command "_xline" Pt1 Pt2 "")
    (setq obline (entlast))
   (while 1
   (command "_copy" obline "" Pt2 pause (command)))
  (resetoldvar)
 (princ)
)