Task

Increment a numerical string.




MODULE addstr;
 
IMPORT  InOut, NumConv, Strings;
 
VAR     str1, str2      : Strings.String;
        num             : CARDINAL;
        ok              : BOOLEAN;
 
BEGIN
  str1 := "12345";
  InOut.Write ('"');    InOut.WriteString (str1);       InOut.WriteString ('" + 1 = ');
  NumConv.Str2Num (num, 10, str1, ok);
  INC (num);
  NumConv.Num2Str (num, 10, str2,  ok);
  InOut.WriteString (str2);
  InOut.WriteLn
END addstr.