Controlling program exit

[cahlucas]

Hi all,
For a new program I created a REPEAT loop with an exit option in it, see the box below. The intention is to end the program when the backspace key is pressed. But in practice, I have to press this key twice to achieve this. And that is not the intention. I have also tried a WHILE loop, but it gives the same result. How can I improve this? I also wonder if the touch screen portion is properly processed. Any comments or improvements to this program are welcome. Sincerely, Karel.

Code:


....
LOCAL input,cx,cy;
REPEAT
 input:=WAIT(-1);  //Wait for input.
 CASE
  IF TYPE(input)==0 THEN  // Key is pressed.
     CASE
        IF input==-1 THEN  END;  // Capturing a minute timeout.
        ....
     END;
  END;
  IF TYPE(input)==6 THEN  // Touch screen pressed.
    IF input(1)==#0h THEN
       cx:=B->R(input(2));  // Convert x part.
       cy:=B->R(input(3));  // Convert y part.
    END;
  END;
 END;
UNTIL input==19;  // Backspace key pressed.
.....