BAS: Home cursor after clearing screen

This commit is contained in:
Gregory Nutt 2014-11-11 09:07:16 -06:00
parent 4587689e0a
commit a76f057bc6
3 changed files with 3 additions and 4 deletions

View File

@ -399,6 +399,7 @@ static int cls(int chn)
{
#ifdef CONFIG_INTERPREPTER_BAS_VT100
vt100_clrscreen(chn);
vt100_cursorhome(chn);
return 0;
#else
FS_errmsg = _("Clear screen operation not implemented");

View File

@ -59,7 +59,9 @@
#if 0 /* Not used */
static const char g_cursoron[] = VT100_CURSORON;
static const char g_cursoroff[] = VT100_CURSOROFF;
#endif
static const char g_cursorhome[] = VT100_CURSORHOME;
#if 0 /* Not used */
static const char g_erasetoeol[] = VT100_CLEAREOL;
#endif
static const char g_clrscreen[] = VT100_CLEARSCREEN;
@ -213,14 +215,12 @@ void vt100_cursoroff(int chn)
*
****************************************************************************/
#if 0 /* Not used */
void vt100_cursorhome(int chn)
{
/* Send the VT100 CURSORHOME command */
vt100_write(chn, g_cursorhome, sizeof(g_cursorhome));
}
#endif
/****************************************************************************
* Name: vt100_setcursor

View File

@ -148,9 +148,7 @@ void vt100_cursoroff(int chn);
*
****************************************************************************/
#if 0 /* Not used */
void vt100_cursorhome(int chn);
#endif
/****************************************************************************
* Name: vt100_setcursor