5 lines
186 B
Text
5 lines
186 B
Text
(let ((spcdel (relate " \x7f" #("Spc" "Del"))))
|
|
(each ((r 32..48))
|
|
(each ((c (take 6 (range r : 16))))
|
|
(put-string (pic "###: <<<" c [spcdel (chr-num c)])))
|
|
(put-line)))
|