get "libhdr"

let str(n) =
    n=32  -> "%I3: Spc  ",
    n=127 -> "%I3: Del  ",
    "%I3: %C    "

let start() be
    for i=32 to 47 do
    $(  for j=i to 127 by 16 do
            writef(str(j), j, j)
        wrch('*N')
    $)