WAIT, PRINT and timeout

[roadrunner]

Salvo,

This seems to do everything you need:

Code:


EXPORT eraseme()
BEGIN
 A:=−1;
 PRINT();
 PRINT(1);
 WHILE A<0 DO
  A:=WAIT();
  IF TYPE(A)==DOM_INT THEN ELSE BREAK;END;
 END;
 PRINT();
 PRINT(2);
END;

It waits for a screen tap or key hit then continues. The problem is that the screen dims after about 10 seconds. Do you know of a way to set that to a longer time?

Road