Bug i GETKEY (8151)

[slawek39]

The following program should complete when you press any key. However, when during the operation touches 3 times the display a program can be terminated only by pressing the On.

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)
UNTIL GETKEY≥0;
a▶AAngle
END;