8 lines
212 B
Text
8 lines
212 B
Text
char_codes: procedure options (main);
|
|
dcl ch char(1);
|
|
dcl n fixed bin;
|
|
ch = 'a';
|
|
n = 97;
|
|
put skip edit (ch,' = ',rank(ch)) (a, a, f(2));
|
|
put skip edit (n,' = ',ascii(n)) (f(2), a, a);
|
|
end char_codes;
|