18 lines
425 B
Plaintext
18 lines
425 B
Plaintext
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.
|