IFERR? Interception of an input error

[EdDereDdE]

Naja, das ist wie bei einem PC-Programm:
Du bettest den Input in eine Schleife ein, die solange nicht verlasssen wird, wie die Eingabe nicht im erwarteteten Rahmen liegt.

Abstract:

PHP Code:

OK := 0;
REPEAT
   INPUT (H, ...);
   // Plausibilitätsprüfungen ...
   IF DIM(H) == 4 THEN
      // Special Test "ABCD" ...
      IF H == "ABCD" THEN
         MSGBOX("Invalid!");
      ELSE
         IF is_numeric(H) THEN
             MSGBOX("Numeric");
         ELSE
           OK := 1;
         END;
      END
   END;
UNTIL OK; 


mit Funktion ala:

PHP Code:

is_numeric(H)
BEGIN
   LOCAL c, num := 0;
   FOR c FROM 1 TO DIM(H) DO
      num := POS({47,48,49,50, ..., 57},ASC(H(c)));
      IF num THEN CONTINUE; END;
   END;
   RETURN num;
END;