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
INC(i);
Remove(OrdOfChar);
String[i] := CHR(OrdOfChar);
String[i] := CHR(CARDINAL(OrdOfChar));
UNTIL String[i] = eos;
WriteLn;
WriteString("After transfer: ");