Output from WAIT(-1)

[cahlucas]

Dear Mr. Horn,
So code as shown below should work fine. Please let me know if anything is wrong or if something needs to be inserted. I hope to hear from you soon. Sincerely, Karel.

Code:


...
LOCAL input,exit,cx,cy;
exit:=0;
...
REPEAT
input:= WAIT(-1);
CASE
  IF TYPE(input)==6 THEN
     CASE
        IF input(1)==#0h THEN 
          cx:=B->R(input(2));
          cy:=B->R(input(3));
        END;
        IF input(1)==#1h THEN 
          cx:=B->R(input(2));
          cy:=B->R(input(3));
        END;
        IF input(1)==#3h THEN 
          cx:=B->R(input(2));
          cy:=B->R(input(3));
        END;
        IF input(1)==#5h THEN 
          cx:=B->R(input(2));
          cy:=B->R(input(3));
        END;
        IF input(1)==#6h THEN 
          cx:=B->R(input(2));
          cy:=B->R(input(3));
        END;
        IF input(1)==#7h THEN 
          cx:=B->R(input(2));
          cy:=B->R(input(3));
        END;
     END;
  END;
  IF TYPE(input)==0 THEN
     CASE
        IF input==-1 THEN  END;
        IF input==19 THEN exit:=1;  END;
        ...
        IF input==50 THEN ...  END;
     END;
  END;
END;
...
UNTIL exit;
...