RosettaCodeData/Task/Show-ASCII-table/ArkScript/show-ascii-table.ark

16 lines
283 B
Plaintext

(mut i 0)
(while (< i 16) {
(mut j (+ 32 i))
(while (< j 128) {
(let k
(if (= 32 j)
"Spc"
(if (= 127 j)
"Del"
(string:chr j))))
(puts (string:format "{:3} : {:<3}" j k))
(set j (+ 16 j) )})
(print "")
(set i (+ 1 i)) })