collapseos/blk/105

12 lines
168 B
Plaintext
Raw Normal View History

2020-04-17 07:51:59 -04:00
: _mvln+ ( ln -- move ln 1 line further )
DUP 14 > IF DROP EXIT THEN
_bpos DUP 64 + 64 MOVE
;
: U
15 EDPOS @ - 0 DO
14 I - _mvln+
LOOP
P
;