RosettaCodeData/Task/Character-codes/PL-I/character-codes.pli
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

5 lines
179 B
Text

declare 1 u union,
2 c character (1),
2 i fixed binary (8) unsigned;
c = 'a'; put skip list (i); /* prints 97 */
i = 97; put skip list (c); /* prints 'a' */