$ include "seed7_05.s7i";
  include "scanstri.s7i";

const func boolean: isNumeric (in var string: stri) is func
  result
    var boolean: isNumeric is FALSE;
  local
    var string: numberStri is "";
  begin
    numberStri := getNumber(stri);
    isNumeric := stri = "";
  end func;