15 lines
283 B
Text
15 lines
283 B
Text
(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)) })
|