The char is printed at the current location defined by CurrentX and CurrentY
*****************************************************************************************/
void DisplayPutC(char c) {

   if(!Option.DISPLAY_CONSOLE) return;
   // if it is printable and it is going to take us off the right hand end of the screen do a CRLF
   if(c >= FontTable[gui_font >> 4][2] && c < FontTable[gui_font >> 4][2] + FontTable[gui_font >> 4][3]) {
       if(CurrentX + gui_font_width > HRes) {
           DisplayPutC('\r');
           DisplayPutC('\n');
       }
   }

   // handle the standard control chars
   switch(c) {
       case '\b':  CurrentX -= gui_font_width;
           // if (CurrentX < 0) CurrentX = 0;
           if(CurrentX < 0){  //Go to end of previous line
              CurrentY -= gui_font_height ;                  //Go up one line
              if (CurrentY < 0) CurrentY = 0;
              CurrentX = (Option.Width-1) * gui_font_width;  //go to last character
           }        
           return;
       case '\r':  CurrentX = 0;
                   return;
       case '\n':  
                   if(CurrentY + 2* gui_font_height >= VRes) {
                       if(Option.NoScroll && Option.DISPLAY_CONSOLE){ClearScreen(gui_bcolour);CurrentX=0;CurrentY=0;}
                       else {                    
                        ScrollLCD( gui_font_height);
                       }
                   } else {
                      CurrentY += gui_font_height;
                   }
                   return;                    
       /*            
       case '\n':  CurrentY += gui_font_height;
                   if(CurrentY + gui_font_height >= (VRes/gui_font_height)*gui_font_height) {
                       if(Option.NoScroll && Option.DISPLAY_CONSOLE){ClearScreen(gui_bcolour);CurrentX=0;CurrentY=0;}
                       else {
                           ScrollLCD(CurrentY + gui_font_height - VRes);
                           CurrentY -= (CurrentY + gui_font_height - VRes);
                       }
                   }
                   return;
       */  

> Dim out$(4)
> out$(1) = "foo"
Error : Missing Program statement

     case '\b':  CurrentX -= gui_font_width;
          // if (CurrentX < 0) CurrentX = 0;
          if(CurrentX < 0){  //Go to end of previous line
             CurrentY -= gui_font_height ;                  //Go up one line
             if (CurrentY < 0) CurrentY = 0;
             CurrentX = (Option.Width-1) * gui_font_width;  //go to last character
          }        
          return;

void MIPS16 ListProgram(unsigned char *p, int all) {
char b[STRINGSIZE];
char *pp;
   int ListCnt = CurrentY/(FontTable[gui_font >> 4][1] * (gui_font & 0b1111)) + 2;
while(!(*p == 0 || *p == 0xff)) {                               // normally a LIST ends at the break so this is a safety precaution
       if(*p == T_NEWLINE) {
p = llist((unsigned char *)b, p);                                        // otherwise expand the line
           if(!(ListCnt==CurrentY/(FontTable[gui_font >> 4][1] * (gui_font & 0b1111)) + 2 && b[0]=='\'' && b[1]=='#')){
pp = b;
while(*pp) {
if(MMCharPos > Option.Width) ListNewLine(&ListCnt, all);
MMputchar(*pp++,0);
}
fflush(stdout);
ListNewLine(&ListCnt, all);
if(p[0] == 0 && p[1] == 0) break;                       // end of the listing ?
}
}
}
}

   tp = checkstring(cmdline, (unsigned char *)"DISPLAY");
/*
   if(tp) {
       getargs(&tp, 3, (unsigned char *)",");
       if(argc!=3)error("Syntax");
       if(Option.DISPLAY_CONSOLE) error("Cannot change LCD console");
       int Height = getint(argv[0], 5, 100);
       int Width = getint(argv[2], 37, 240);
       Option.Width=Width;
       Option.Height=Height;
       SaveOptions();
       setterminal(Option.Height,Option.Width);
       return;
   }
*/
   
   if(tp) {
       getargs(&tp, 3, (unsigned char *)",");
       if(Option.DISPLAY_CONSOLE && argc>0 ) error("Cannot change LCD console");
       if(argc >= 1) Option.Height = getint(argv[0, 5, 100);
       if(argc == 3) Option.Width = getint(argv[2, 37, 240);
       if (Option.DISPLAY_CONSOLE) {
          setterminal((Option.Height > SCREENHEIGHT)?Option.Height:SCREENHEIGHT,(Option.Width > SCREENWIDTH)?Option.Width:SCREENWIDTH);                                                    // or height is > 24
       }else{
          setterminal(Option.Height,Option.Width);
       }
       if(argc >= 1 )SaveOptions();  //Only save if necessary
       return;
   }

tp = checkstring(cmdline, (unsigned char *)"DISPLAY");