mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-23 21:38:05 +11:00
e0bcf3473e
Rename ROWS to LINES (it's what VE uses). Also, don't use COLS and LINES as immediates in the Grid subsystem: we expect those words to be available at runtime.
11 lines
294 B
Plaintext
11 lines
294 B
Plaintext
: XYPOS [ GRID_MEM LITN ] ;
|
|
: _cl* COLS LINES * ;
|
|
: AT-XY ( x y -- ) LINES * + _cl* MOD XYPOS ! ;
|
|
: _lf
|
|
XYPOS @ BEGIN ( pos )
|
|
0 ( blank ) SWAP TUCK CELL!
|
|
1+ DUP COLS MOD NOT UNTIL
|
|
_cl* MOD XYPOS ! ;
|
|
: _bs 0 ( blank ) XYPOS @ TUCK CELL! ( pos ) 1-
|
|
_cl* MOD XYPOS ! ;
|