collapseos/blk/105

17 lines
269 B
Plaintext
Raw Normal View History

: P
EDPOS @ _cpos C<
64 0 DO ( bpos c )
DUP 0xd = IF DROP 0 THEN
2DUP SWAP I + C!
DUP IF DROP C< THEN
LOOP
2DROP
BLK!!
;
2020-04-17 07:51:59 -04:00
: _mvln+ ( ln -- move ln 1 line further )
DUP 14 > IF DROP EXIT THEN
_lpos DUP 64 + 64 MOVE
2020-04-17 07:51:59 -04:00
;