mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-26 03:18:05 +11:00
17 lines
269 B
Plaintext
17 lines
269 B
Plaintext
: 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!!
|
|
;
|
|
|
|
: _mvln+ ( ln -- move ln 1 line further )
|
|
DUP 14 > IF DROP EXIT THEN
|
|
_lpos DUP 64 + 64 MOVE
|
|
;
|
|
|