mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-17 00:28:05 +11:00
74e211eeda
U didn't properly handle inserting on the last line and O's bounds checks didn't make sense.
7 lines
121 B
Plaintext
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 ;
|