Bug i GETKEY (8151)

[DrD]

The "WAIT(.5)" command on line 11 is missing the ending semicolon, (posted program). Adding the semi, the program seems to terminate on any keypress, which is what, I think, you intended.

Code:


EXPORT TESTGETKEY()
BEGIN

  LOCAL i,a;
  AAngle▶a;
  2▶AAngle;

  REPEAT
    RECT_P();
    ARC_P(G0,160,120,100);
    LINE_P(160,120,100*COS(i)+160,100*SIN(i)+120);
    i+5▶i;
    WAIT(.5);           //  <==  added semicolon here
  UNTIL GETKEY≥0;

  a▶AAngle

END;