mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-20 17:58:06 +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
|
||
|
|
;
|