13 lines
228 B
Text
13 lines
228 B
Text
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')
|
|
$)
|