collapseos/blk/105
2020-04-17 07:51:59 -04:00

12 lines
168 B
Plaintext

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