1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-25 17:38:05 +11:00
collapseos/blk/109
Virgil Dupras 9d4e9ef08d VE: Add X
2020-06-05 14:01:39 -04:00

10 lines
254 B
Plaintext

: 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 ;