칼라 선그리기 리습 수정 중 함수 문의

2가지 색 선 반복해서 그려주는 리습을 
 다음과 같이 수정 했습니다   
 선그리기중  a키를 입력받으면 색색상을 +1 하고 z키를 입력받으면 선색상을 -1 해서
 입력이 없으면 다음점  선택 해서 선을 연속 해서 그리고 싶은데 적색 부분으로 수정 했더니 리습을 끝내 버리네요
 어떤 함수를 써야 되나요

(defun c:LLL ()
  (defun *error* (msg)(princ “error: “)(princ msg)
  (setvar “osmode” osm)(setvar “cecolor” col)(princ)
  )
(setq col (getvar “cecolor”))
(setq osm (getvar “osmode”))
(setvar “osmode” 5  )  
 (setq fff 1)      
(setq pt1 (getpoint “n 시작점 :”))
 
   (while
     (/= nil (setq pt2 (getpoint pt1 “n 다음점 :”)))
     (setvar “cecolor” (itoa fff))  
     (command “pline” pt1 pt2 “”)
     (setq pt1 pt2)
  
    
     (setq ans (getstring “문자”))
     (cond
     ((=ans “a”)(setq fff (+ fff 1)))
     ((=ans “z”)(setq fff (- fff 1)))
     )
  

 ) ;while
  (setvar “cecolor” col)
  (setvar “osmode” osm)
(princ)
)
(princ “nt 칼라 라인 그리기. Command: LLL”)

(princ)