mirror of
https://github.com/hsoft/collapseos.git
synced 2024-09-07 13:18:46 +10:00
This is the first commit I do entirely in VE. It's a habit I'm planning on taking as it helps a lot to find usability issues.
17 lines
411 B
Plaintext
17 lines
411 B
Plaintext
: _clrrows ( n u -- Clears u rows starting at n )
|
|
SWAP _row!
|
|
( u ) 0 DO
|
|
_yinc 0 _col!
|
|
11 0 DO 0 _data! LOOP
|
|
_xinc 0 _data!
|
|
LOOP ;
|
|
: _clrln ( n ) FNTH 1+ _clrrows ;
|
|
: LCDCLR 0 64 _clrrows ;
|
|
( Changes the current line and go back to leftmost column )
|
|
: _lf
|
|
LCD_CURY C@ FNTH 1+ + DUP 63 > IF DROP 0 THEN
|
|
DUP _clrln DUP FNTH 1+ + _zoff!
|
|
LCD_CURY C! 0 LCD_CURX C! ;
|
|
|
|
|