fix: CHR expects a CARDINAL parameter

This commit is contained in:
ceriel 1989-02-09 15:43:28 +00:00
parent bdfe2ec9cf
commit e3a1bdee64

View File

@ -75,7 +75,7 @@ MODULE StoreFetch;
REPEAT
INC(i);
Remove(OrdOfChar);
String[i] := CHR(OrdOfChar);
String[i] := CHR(CARDINAL(OrdOfChar));
UNTIL String[i] = eos;
WriteLn;
WriteString("After transfer: ");