mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-29 00:38:05 +11:00
12 lines
168 B
Plaintext
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
|
|
;
|