9 lines
250 B
Text
9 lines
250 B
Text
program ascii_table;
|
|
loop for i in [32..47] do
|
|
print(+/[lpad(str j, 3) + ' : ' + rpad(ascii j, 6) : j in [i, i+16..127]]);
|
|
end loop;
|
|
|
|
op ascii(n);
|
|
return {[32, 'Spc'], [127, 'Del']}(n) ? (char n);
|
|
end op;
|
|
end program;
|