mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-27 04:38:06 +11:00
7 lines
201 B
Plaintext
7 lines
201 B
Plaintext
: buftype ( buf ln -- )
|
|
3 OVER AT-XY KEY DUP EMIT
|
|
DUP 0x20 < IF 2DROP DROP EXIT THEN
|
|
( buf ln c ) 4 col- nspcs SWAP 4 SWAP AT-XY ( buf c )
|
|
SWAP C!+ IN( _zbuf (rdln) IN( SWAP 63 MOVE ;
|
|
|