possible problem INPUT dialog box

[compsystems]

Hello

within the INPUT dialog box, if you press any menu, [ESC], [OK], [EDIT] is blocked, also the input must be greater than 100

has been tested only in the emulator

PHP Code:

EXPORT p11_repeat_block()
BEGIN
  local age := 0; 
  print("Enter a valid AGE [1, ...100]"); wait;
  repeat 
    input(age); wait;
    until NOT((age < 1) or (age > 100));
  print(age); wait;
  return "Done";
END;