collapseos/blk/108

: _blen ( buf -- length of str in buf )
    DUP BEGIN C@+ EOL? UNTIL -^ 1- ;
: _rbufsz ( size of linebuf to the right of curpos )
    EDPOS @ 64 MOD 63 -^ ;
: i COMPILE I ; IMMEDIATE ( save overshadowed )
: I
    IBUF _type _rbufsz IBUF _blen 2DUP > IF
        TUCK - ( ilen chars-to-move )
        SWAP EDPOS @ _cpos 2DUP + ( ctm ilen a a+ilen )
        3 PICK MOVE- ( ctm ilen )
        NIP ( ilen )
    ELSE DROP ( ilen becomes rbuffsize )
    THEN
    DUP IBUF EDPOS @ _cpos ROT MOVE ( ilen )
    BLK!! EDPOS +! EDPOS @ 64 / _pln
;