1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-27 01:58:05 +11:00
collapseos/blk/109
Virgil Dupras 74e211eeda Fix bugs in ed's U and VE's O/o
U didn't properly handle inserting on the last line and O's bounds
checks didn't make sense.
2020-06-28 20:34:39 -04:00

7 lines
121 B
Plaintext

: _U ( U without P, used in VE )
15 EDPOS @ 64 / - ?DUP IF
0 DO
14 I - _mvln+
LOOP THEN ;
: U _U P ;