RosettaCodeData/Task/Show-ASCII-table/Lang/show-ascii-table.lang
2026-04-30 12:34:36 -04:00

19 lines
275 B
Text

$i
repeat($[i], 16) {
$j $= $i + 32
while($j < 128) {
if($j == 32) {
$val = SPC
}elif($j == 127) {
$val = DEL
}else {
$val = fn.char($j)
}
fn.printf(%4d : %-3s, $j, $val)
$j += 16
}
fn.println()
}