Output from WAIT(-1)

[john gustaf stebbins]

This code, derived from yours, works fine.

Are you having problems with your code?

Code:


EXPORT KAREL()
BEGIN

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==29 THEN exit:=1;  END;
        IF input==50 THEN  END;
     END;
  END;
END;

ARC_P(cx,cy,40);

UNTIL exit;

END;