반복문 빠져나가기

안녕하세요.
리습 초보 입니다.

제가 지금 하고 있는것은 계속 좌표값을 입력받아(마우스로 클릭하면서) 파일로 저장 하는 겁니다…
근데 반복문을 빠져 나가는 방법을 모르겠습니다.
소스에 나와 있는데로 기준점을 클릭하세요 라고 계속 나오면 마우스로 클릭하다가
이젠 그만 while문을 빠져 나오고  싶을때는  Enter나 Space바등을 이용해서 While문을 빠져나오고
while문 밑에있는 End까지 화일로 저장하고 싶은데 잘 안되네요…
답변좀 부탁 드립니다.

(setq sw t);
    (while(t sn)
        (setq ptp (getpoint “r 기준점을 클릭하세요…”))
        (setq PointX(car ptp)
          PointY(cadr ptp))
        (setq PointXY (strcat “X” (rtos PointX 2 2) “” “Y” (rtos PointY 2 2)))  
        (setq re_text (write-line PointXY file_open))
    )

    (setq re_text (write-line “End” file_open))
      (close file_open)