collapseos/blk/109

: X ( len -- , delete len chars after curpos )
    EDPOS @ _cpos 2DUP + ( l a1 a1+l )
    SWAP _rbufsz MOVE ( l )
    ( get to next line - l )
    DUP EDPOS @ 0xffc0 AND 0x40 + -^ _cpos ( l a )
    SWAP 0 FILL
    EDPOS @ 64 / _pln ;
: E FBUF _blen X ;