2020-05-08 11:36:50 -04:00
|
|
|
: _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 ;
|
2020-11-10 20:30:37 -05:00
|
|
|
: NEWLN ( ln -- )
|
|
|
|
|
DUP 1+ FNTH 1+ * _zoff!
|
|
|
|
|
FNTH 1+ * FNTH 1+ _clrrows ;
|
2020-05-08 11:36:50 -04:00
|
|
|
: LCDCLR 0 64 _clrrows ;
|
