
(DEFUN C:K () 
   (SETQ E 0)
   (WHILE E
    (SETQ A (SSGET))
    (IF (= A NIL)(SETQ E NIL)
      (PROGN 
      (SETQ P(GETPOINT"\nPICK TO THE BREAK POINT:"))
      (COMMAND "BREAK" P P))
    )
   ) 
)





