[Gm2] Failure of StrToLongInt

[rob solomon]

Consider this code:

MODULE TestLongIntConversion;
  IMPORT FpuIO,NumberIO,StrIO;
  FROM StrIO IMPORT WriteString, WriteLn, ReadString;

  VAR
    strlen : CARDINAL;
    LC      : LONGCARD;
    I         : INTEGER;
    LI       : LONGINT;
    s        : ARRAY [0..50] OF CHAR;

BEGIN

  LOOP
    WriteString(' Input line : ');
    ReadString(s);
    strlen := LENGTH(s);
    IF strlen = 0 THEN EXIT; END(*IF*);
    NumberIO.StrToInt(s,I);
    WriteString(' Int: ');
    NumberIO.WriteInt(I,0);
    WriteString(', LongInt: ');
    FpuIO.StrToLongInt(s,LI);
    IF LI = 0 THEN
      WriteString(' 0 has conversion failed.');
    ELSE
      FpuIO.WriteLongInt(LI,0);
    END;  (* LI = 0 *)
    WriteLn;

  END; (* reading loop *)
END TestLongIntConversion.

The FpuIO.StrToLongInt procedure always fails me.

Am I doing anything wrong?

--rob