mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-08 10:28:07 +11:00
15 lines
409 B
Plaintext
15 lines
409 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! ;
|