17 lines
443 B
Text
17 lines
443 B
Text
[ dup 32 = iff
|
|
[ drop say 'spc' ] done
|
|
dup 127 = iff
|
|
[ drop say 'del' ] done
|
|
emit sp sp ] is echoascii ( n --> )
|
|
|
|
[ dup echo say ': '
|
|
dup echoascii
|
|
84 < 3 + times sp ] is echoelt ( n --> )
|
|
|
|
[ sp 81 times
|
|
[ dup i^ + echoelt 16 step ]
|
|
drop cr ] is echorow ( n --> )
|
|
|
|
[ 16 times [ i^ 32 + echorow ] ] is echotable ( --> )
|
|
|
|
echotable
|