fix: CHR expects a CARDINAL parameter

This commit is contained in:
ceriel 1989-02-09 15:43:28 +00:00
parent 62d8930080
commit 3b922f1292

View file

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