12 lines
396 B
Text
12 lines
396 B
Text
main :: [sys_message]
|
|
main = [Stdout table]
|
|
|
|
table :: [char]
|
|
table = lay [concat [item n | n<-[row, (row+16)..127]] | row<-[32..47]]
|
|
|
|
item :: num->[char]
|
|
item n = num ++ " : " ++ desc
|
|
where num = reverse (take 3 (reverse (shownum n) ++ repeat ' '))
|
|
desc = "Spc ", if n = 32
|
|
= "Del ", if n = 127
|
|
= decode n : " ", otherwise
|