Copyright (C) 1994, Digital Equipment Corp.
MODULE ISOChar;
IMPORT ASCII, Word;
BEGIN
FOR c := '\000' TO '\377' DO Upper [c] := ASCII.Upper [c] END;
FOR c := '\340' TO '\376' DO
Upper [c] := VAL (ORD (c) - ORD ('a') + ORD ('A'), CHAR)
END;
FOR c := '\000' TO '\377' DO Lower [c] := ASCII.Lower [c] END;
FOR c := '\300' TO '\336' DO
Lower [c] := VAL (ORD (c) - ORD ('A') + ORD ('a'), CHAR);
END;
FOR c := '\000' TO '\377' DO
IF c IN Graphics THEN
Control [c] := VAL (Word.And (ORD (c), 8_37), CHAR)
ELSE
Control [c] := c
END
END
END ISOChar.