mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-27 17:58:06 +11:00
2d54c3243d
Instead of clearing the rest of the line on a _lf, it's simpler to just clear any new line we're entering into.
7 lines
192 B
Plaintext
7 lines
192 B
Plaintext
: (emit)
|
|
DUP 0x08 = IF DROP _bs EXIT THEN
|
|
DUP 0x0d = IF DROP _lf EXIT THEN
|
|
0x20 - DUP 0< IF DROP EXIT THEN
|
|
XYPOS @ CELL!
|
|
XYPOS @ 1+ DUP COLS MOD IF XYPOS ! ELSE _lf THEN ;
|