editor.cpp

// LoraBBS Version 2.99 Free Edition
// Copyright (C) 1987-98 Marco Maccaferri
//
// This program is free software; you can redistribute it and/or modify
// it under the terms of the GNU General Public License as published by
// the Free Software Foundation; either version 2 of the License, or
// (at your option) any later version.
//
// This program is distributed in the hope that it will be useful,
// but WITHOUT ANY WARRANTY; without even the implied warranty of
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
// GNU General Public License for more details.
//
// You should have received a copy of the GNU General Public License
// along with this program; if not, write to the Free Software
// Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.

#include "_ldefs.h"
#include "lora.h"
#include "msgbase.h"

TEditor::TEditor ()
{
   Embedded = NULL;
   Text.Clear ();
   Wrap[0] = '\0';
   StartCol = StartRow = 1;
   Width = 79;
   Height = 24;
   UseFullScreen = FALSE;
}

TEditor::~TEditor ()
{
   Clear ();
}

USHORT TEditor::AppendText ()
{
   Text.Last ();
   Embedded->Printf ("\n\x16\x01\012Continue entering text. Type '\x16\x01\x0B/OK\x16\x01\012' on a line by itself when you are\ndone. (Or, type '\x16\x01\x0B/SAVE\x16\x01\012' to save and proceed, without editing).\n\n    �\031�%c�\n", Width - 10);
   return (InputText ());
}

VOID TEditor::ChangeText ()
{
   USHORT i, usRows, usEditLine;
   CHAR szTemp[20], *szText, *szLine, *szReplace;

   usRows = 0;

   if (Text.First () != NULL)
      do {
         usRows++;
      } while (Text.Next () != NULL);

   do {
      if (Embedded->AbortSession () == TRUE)
         return;
      Embedded->Printf ("\n\x16\x01\013Change text in what line (1-%d)? ", usRows);
      Embedded->GetString (szTemp, (USHORT)(sizeof (szTemp) - 1), 0);
      if ((usEditLine = (USHORT)atoi (szTemp)) == 0)
         return;
      if (usEditLine > usRows)
         Embedded->Printf ("\n\x16\x01\x0DSorry, that line number is out of range!\n");
   } while (usEditLine > usRows);

   Text.First ();
   for (i = 1; i < usEditLine; i++)
      Text.Next ();

   Embedded->Printf ("\n\x16\x01\012The current line reads:\n\n\x16\x01\x0E%3d: \x16\x01\013%s\n", usEditLine, (PSZ)Text.Value ());

   if ((szText = (CHAR *)malloc (Width)) == NULL)
      return;
   Embedded->Printf ("\n\x16\x01\013Change what text?\n: ");
   Embedded->Input (szText, (USHORT)(Width - 10), INP_NOCOLOR);
   if (szText[0] == '\0' || Embedded->AbortSession () == TRUE) {
      free (szText);
      return;
   }

   if ((szReplace = (CHAR *)malloc (Width)) == NULL) {
      free (szText);
      return;
   }

   Embedded->Printf ("\n\x16\x01\013Enter new text now (just RETURN to delete)\n: ");
   Embedded->GetString (szReplace, (USHORT)(Width - 10), INP_NOCOLOR);
   if (szText[0] == '\0' || Embedded->AbortSession () == TRUE) {
      free (szReplace);
      free (szText);
      return;
   }

   if ((szLine = (CHAR *)malloc (Width * 2)) == NULL) {
      free (szReplace);
      free (szText);
      return;
   }

   strcpy (szLine, (PSZ)Text.Value ());
   StringReplace (szLine, szText, szReplace);

   free (szReplace);
   free (szText);

   Text.Replace (szLine, (SHORT)(strlen (szLine) + 1));
   free (szLine);

   Embedded->Printf ("\n\x16\x01\012New line now reads:\n\n\x16\x01\016%3d: \x16\x01\013%s\n", usEditLine, Text.Value ());
}

VOID TEditor::Clear ()
{
   Text.Clear ();
}

VOID TEditor::DeleteLine ()
{
   USHORT i, usRows, usEditLine;
   CHAR szTemp[10];

   usRows = 0;
   if (Text.First () != NULL)
      do {
         usRows++;
      } while (Text.Next () != NULL);

   do {
      if (Embedded->AbortSession () == TRUE)
         return;
      Embedded->Printf ("\n\x16\x01\013Delete what line (1-%d)? ", usRows);
      Embedded->Input (szTemp, (USHORT)(sizeof (szTemp) - 1), 0);
      if ((usEditLine = (USHORT)atoi (szTemp)) == 0)
         return;
      if (usEditLine > usRows)
         Embedded->Printf ("\n\x16\x01\x0DSorry, that line number is out of range!\n");
   } while (usEditLine > usRows);

   Text.First ();
   for (i = 1; i < usEditLine; i++)
      Text.Next ();

   Embedded->Printf ("\n\x16\x01\012The current line reads:\n\n\x16\x01\x0E%3d: \x16\x01\013%s\n", usEditLine, (PSZ)Text.Value ());

   do {
      Embedded->Printf ("\n\x16\x01\013Okay to delete this line (Y/N)? ");
      Embedded->GetString (szTemp, 1, INP_HOTKEY);
      szTemp[0] = (CHAR)toupper (szTemp[0]);
   } while (szTemp[0] != 'Y' && szTemp[0] != 'N');

   if (szTemp[0] == 'Y')
      Text.Remove ();
}

USHORT TEditor::ExternalEditor (PSZ EditorCmd)
{
   FILE *fp;
   USHORT RetVal = FALSE;
   CHAR Temp[128], *p;
   struct stat statbuf, statnew;

   if (stat ("msgtmp", &statbuf) != 0)
      statbuf.st_mtime = 0;
   if ((fp = fopen ("msgtmp", "wt")) != NULL) {
      if ((p = (CHAR *)Text.First ()) != NULL)
         do {
            fprintf (fp, "%s\n", p);
         } while ((p = (CHAR *)Text.Next ()) != NULL);
      fclose (fp);
   }

   Embedded->RunExternal (EditorCmd);

   if (stat ("msgtmp", &statnew) == 0) {
      if (statnew.st_mtime > statbuf.st_mtime) {
         Text.Clear ();
         if ((fp = fopen ("msgtmp", "rt")) != NULL) {
            while (fgets (Temp, sizeof (Temp) - 1, fp) != NULL) {
               Temp[strlen (Temp) - 1] = '\0';
               Text.Add (Temp);
            }
            fclose (fp);
         }
         RetVal = TRUE;
      }
   }

   unlink ("msgtmp");

   return (RetVal);
}

PSZ TEditor::GetString (CHAR *pszBuffer, USHORT usMaxlen)
{
   SHORT c, len, count, i;
   PSZ p, mp;

   p = pszBuffer;
   strcpy (p, Wrap);
   len = (SHORT)strlen (Wrap);
   p += len;
   Embedded->Printf ("%s", Wrap);
   Wrap[0] = '\0';

   c = 0;
   while (Embedded->AbortSession () == FALSE && c != '\r') {
      if (Embedded->KBHit ()) {
         if ((c = Embedded->Getch ()) == 0)
            c = (SHORT)(Embedded->Getch () << 8);

         if (c != '\r') {
            if (c == 8 || c == 127) {
               if (len > 0) {
                  Embedded->Printf ("%c %c", 8, 8);
                  p--;
                  len--;
               }
            }
            else if (c >= 32 && c < 256) {
               if (len < usMaxlen) {
                  *p++ = (char)c;
                  len++;
                  Embedded->Putch ((UCHAR)c);
                  if (len >= usMaxlen) {
                     *p = '\0';
                     if (c != ' ') {
                        mp = p;
                        p--;
                        count = 1;
                        while (p > pszBuffer && *p != ' ') {
                           p--;
                           count++;
                        }
                        if (p > pszBuffer) {
                           *p++ = '\0';
                           strcpy (Wrap, p);
                           for (i = 0; i < count; i++)
                              Embedded->Printf ("%c %c", 8, 8);
                        }
                        else
                           p = mp;
                     }
                     c = '\r';
                  }
               }
            }
         }
      }
      Embedded->Idle ();
   }

   *p = '\0';
   Embedded->Printf ("\n");

   return (pszBuffer);
}

USHORT TEditor::InputText ()
{
   USHORT RetVal = FALSE, Number;
   CHAR *Line;

   Number = 1;
   if ((Line = (CHAR *)Text.Value ()) != NULL) {
      Text.First ();
      while ((CHAR *)Text.Value () != Line && Text.Value () != NULL) {
         Number++;
         Text.Next ();
      }
      Number++;
   }

   if ((Line = (CHAR *)malloc (Width)) != NULL) {
      do {
         Embedded->Printf ("%3u: ", Number);
         GetString (Line, (USHORT)(Width - 10));
         if (!strcmp (Line, "/?"))
            Embedded->Printf ("\n\x16\x01\012Continue entering text. Type '\x16\x01\x0B/OK\x16\x01\012' on a line by itself when you are\ndone. (Or, type '\x16\x01\x0B/SAVE\x16\x01\012' to save and proceed, without editing).\n\n");
         else if (stricmp (Line, "/OK") && stricmp (Line, "/SAVE")) {
            Text.Insert (Line);
            Number++;
         }
      } while (Embedded->AbortSession () == FALSE && stricmp (Line, "/OK") && stricmp (Line, "/SAVE"));

      if (!stricmp (Line, "/OK"))
         RetVal = TRUE;

      free (Line);
   }

   return (RetVal);
}

USHORT TEditor::InsertLines ()
{
   USHORT i, usRows, usEditLine;
   CHAR szTemp[20];

   usRows = 0;

   if (Text.First () != NULL)
   do {
      usRows++;
   } while (Text.Next () != NULL);

   do {
      if (Embedded->AbortSession () == TRUE)
         return (FALSE);
      Embedded->Printf ("\n\x16\x01\013Insert after which line (1-%d)? ", usRows);
      Embedded->GetString (szTemp, (USHORT)(sizeof (szTemp) - 1), 0);
      if ((usEditLine = (USHORT)atoi (szTemp)) == 0)
         return (FALSE);
      if (usEditLine > usRows)
         Embedded->Printf ("\n\x16\x01\x0DSorry, that line number is out of range!\n");
   } while (usEditLine > usRows);

   Text.First ();
   for (i = 1; i < usEditLine; i++)
      Text.Next ();

   Embedded->Printf ("\n\x16\x01\012Continue entering text. Type '\x16\x01\x0B/OK\x16\x01\012' on a line by itself when you are\ndone. (Or, type '\x16\x01\x0B/SAVE\x16\x01\012' to save and proceed, without editing).\n\n    �\031�%c�", Width - 10);

   return (InputText ());
}

VOID TEditor::ListText ()
{
   USHORT usLine, usRow;
   PSZ pszLine;

   Embedded->Printf ("\n");

   if ((pszLine = (PSZ)Text.First ()) != NULL) {
      usRow = usLine = 1;
      do {
         Embedded->Printf ("\x16\x01\x0E%3d: %s\n", usLine++, pszLine);
         usRow = Embedded->MoreQuestion (usRow);
      } while ((pszLine = (PSZ)Text.Next ()) != NULL && usRow != 0 && Embedded->AbortSession () == FALSE);
   }
}

VOID TEditor::RetypeLine ()
{
   USHORT i, usRows, usEditLine;
   CHAR szTemp[10], *szLine;

   usRows = 0;
   if (Text.First () != NULL)
      do {
         usRows++;
      } while (Text.Next () != NULL);

   do {
      if (Embedded->AbortSession () == TRUE)
         return;
      Embedded->Printf ("\n\x16\x01\013Retype what line (1-%d)? ", usRows);
      Embedded->GetString (szTemp, (USHORT)(sizeof (szTemp) - 1), 0);
      if ((usEditLine = (USHORT)atoi (szTemp)) == 0)
         return;
      if (usEditLine > usRows)
         Embedded->Printf ("\n\x16\x01\x0DSorry, that line number is out of range!\n");
   } while (usEditLine > usRows);

   Text.First ();
   for (i = 1; i < usEditLine; i++)
      Text.Next ();

   Embedded->Printf ("\n\x16\x01\012The current line reads:\n\n\x16\x01\x0E%3d: \x16\x01\013%s\n", usEditLine, (PSZ)Text.Value ());

   if ((szLine = (CHAR *)malloc (Width)) == NULL)
      return;
   Embedded->Printf ("\n\x16\x01\013Enter new line\n: ");
   Embedded->GetString (szLine, (USHORT)(Width - 10), INP_NOCOLOR);
   if (szLine[0] == '\0' || Embedded->AbortSession () == TRUE) {
      free (szLine);
      return;
   }

   Text.Replace (szLine, (SHORT)(strlen (szLine) + 1));
}

PSZ TEditor::StringReplace (PSZ str, PSZ search, PSZ replace)
{
   SHORT i, max, leninstr, st_pos;
   PSZ p, src;

   max = (SHORT)strlen (search);
   leninstr = (SHORT)strlen (replace);

   for (p = str; *p; p++) {
      if (!strncmp (search, p, max))
         break;
   }

   if (*p) {
      src = (PSZ)(p + strlen (search));
      strcpy (p, src);

      st_pos = (SHORT)(p - str);

      for (i = (SHORT)strlen (str); i >= st_pos; i--)
         *(str + leninstr + i) = *(str + i);
      for (i = 0; i < leninstr; i++)
         *(str + st_pos + i) = *(replace + i);
   }

   return (str);
}

VOID TEditor::GotoXY (USHORT x, USHORT y)
{
   Embedded->Printf ("\x16\x08%c%c", y + StartRow - 1, x + StartCol - 1);
}

VOID TEditor::UpdateLine (USHORT y, PSZ pszLine)
{
   USHORT i;

   if (strchr (pszLine, '>') != NULL)
      Embedded->BufferedPrintf ("\026\001\017");
   else
      Embedded->BufferedPrintf ("\026\001\003");

   if (cy == y) {
      for (i = 0; i < strlen (pszLine); i++) {
         if (ActualLine[i] != pszLine[i])
            break;
      }
      GotoXY (i + 1, y);
      Embedded->BufferedPrintf ("%s\x16\x07", &pszLine[i]);
      strcpy (ActualLine, pszLine);
   }
   else {
      GotoXY (1, y);
      Embedded->BufferedPrintf ("\x16\x07%s", pszLine);
   }
}

VOID TEditor::Display (USHORT start)
{
   USHORT y, nCol, curLine;
   CHAR *p = Buffer, Line[128];
   ULONG Crc;

   nCol = 0;
   curLine = 1;

   for (y = 1; y <= Height + 1; ) {
      if (*p == '\0') {
         Crc = StringCrc32 ("", 0xFFFFFFFFL);
         if (Crc != LineCrc[y] && y <= Height) {
            LineCrc[y] = Crc;
            GotoXY (1, y);
            Embedded->ClrEol ();
         }
         y++;
      }
      while (*p != '\0') {
         if (Cursor == p) {
            cx = (USHORT)(nCol + 1);
            cy = y;
         }
         if (*p == '\n') {
            p++;
            Line[nCol] = '\0';
            if (curLine >= start) {
               Crc = StringCrc32 (Line, 0xFFFFFFFFL);
               if (Crc != LineCrc[y] && y <= Height) {
                  LineCrc[y] = Crc;
                  UpdateLine (y, Line);
               }
               y++;
            }
            curLine++;
            nCol = 0;
            break;
         }
         else {
            Line[nCol++] = *p++;
            if (nCol >= Width) {
               Line[nCol] = '\0';
               while (nCol > 1 && Line[nCol] != ' ') {
                  nCol--;
                  p--;
               }
               if (nCol > 1) {
                  while (Line[nCol] == ' ') {
                     nCol++;
                     p++;
                  }
               }
               Line[nCol] = '\0';

               if (curLine >= start) {
                  Crc = StringCrc32 (Line, 0xFFFFFFFFL);
                  if (Crc != LineCrc[y] && y <= Height) {
                     LineCrc[y] = Crc;
                     UpdateLine (y, Line);
                  }
                  y++;
               }
               curLine++;

               nCol = 0;
               break;
            }
         }
      }
   }

   if (cy <= Height)
      GotoXY (cx, cy);
}

VOID TEditor::MoveCursor (USHORT start)
{
   USHORT y, nCol, curLine;
   CHAR *p = Buffer, Line[128];

   nCol = 0;
   curLine = 1;

   for (y = 1; y <= Height; ) {
      for (;;) {
         if (Cursor == p) {
            cx = (USHORT)(nCol + 1);
            cy = y;
         }
         if (*p == '\n') {
            p++;
            Line[nCol] = '\0';
            if (curLine >= start)
               y++;
            curLine++;
            nCol = 0;
            break;
         }
         else {
            Line[nCol++] = *p++;
            if (nCol >= Width) {
               Line[nCol] = '\0';
               while (nCol > 1 && Line[nCol] != ' ') {
                  nCol--;
                  p--;
               }
               if (nCol > 1) {
                  while (Line[nCol] == ' ') {
                     nCol++;
                     p++;
                  }
               }
               Line[nCol] = '\0';

               if (curLine >= start)
                  y++;
               curLine++;

               nCol = 0;
               break;
            }
         }
      }
   }

   GotoXY (cx, cy);
}

VOID TEditor::SetCursor (USHORT start)
{
   USHORT y, nCol, curLine;
   CHAR *p = Buffer, Line[128];

   nCol = 0;
   curLine = 1;

   for (y = 1; y <= Height; ) {
      for (;;) {
         if (cy == y && cx == (nCol + 1))
            Cursor = p;
         if (*p == '\n') {
            p++;
            Line[nCol] = '\0';
            if (cy == y && cx > (nCol + 1)) {
               Cursor = p - 1;
               cx = (USHORT)(nCol + 1);
            }
            if (curLine >= start)
               y++;
            curLine++;
            nCol = 0;
            break;
         }
         else {
            Line[nCol++] = *p++;
            if (nCol >= Width) {
               Line[nCol] = '\0';
               while (nCol > 1 && Line[nCol] != ' ') {
                  nCol--;
                  p--;
               }
               if (nCol > 1) {
                  while (Line[nCol] == ' ') {
                     nCol++;
                     p++;
                  }
               }
               Line[nCol] = '\0';
               if (cy == y && cx > (nCol + 1)) {
                  Cursor = p - 1;
                  cx = (USHORT)(nCol + 1);
               }
               if (curLine >= start)
                  y++;
               curLine++;
               nCol = 0;
               break;
            }
         }
      }
   }

   GotoXY (cx, cy);
}

PSZ TEditor::GetFirstChar (USHORT start, USHORT line)
{
   USHORT y, nCol, curLine;
   CHAR *p = Buffer, Line[128];
   PSZ RetVal = NULL;

   nCol = 0;
   curLine = 1;

   for (y = 1; y <= Height + 1; ) {
      for (;;) {
         if (line == y && nCol == 0)
            RetVal = p;
         if (*p == '\n') {
            p++;
            Line[nCol] = '\0';
            if (curLine >= start)
               y++;
            curLine++;
            nCol = 0;
            break;
         }
         else {
            Line[nCol++] = *p++;
            if (nCol >= Width) {
               Line[nCol] = '\0';
               while (nCol > 1 && Line[nCol] != ' ') {
                  nCol--;
                  p--;
               }
               if (nCol > 1) {
                  while (Line[nCol] == ' ') {
                     nCol++;
                     p++;
                  }
               }
               Line[nCol] = '\0';
               if (curLine >= start)
                  y++;
               curLine++;
               nCol = 0;
               break;
            }
         }
      }
   }

   if (*RetVal == '\0')
      RetVal = NULL;

   return (RetVal);
}

VOID TEditor::BuildDate (PSZ format, PSZ dest, MDATE *date)
{
   CHAR Temp[16];

   while (*format != '\0') {
      if (*format == '%') {
         format++;
         switch (*format) {
            case 'A':
               if (date->Hour >= 12)
                  strcpy (dest, "pm");
               else
                  strcpy (dest, "am");
               dest += 2;
               format++;
               break;
            case 'B':
               sprintf (Temp, "%2d", date->Month);
               strcpy (dest, Temp);
               dest += strlen (Temp);
               format++;
               break;
            case 'C':
               sprintf (Temp, "%-3.3s", Language->Months[date->Month - 1]);
               strcpy (dest, Temp);
               dest += strlen (Temp);
               format++;
               break;
            case 'D':
               sprintf (Temp, "%2d", date->Day);
               strcpy (dest, Temp);
               dest += strlen (Temp);
               format++;
               break;
            case 'E':
               if (date->Hour > 12)
                  sprintf (Temp, "%2d", date->Hour - 12);
               else
                  sprintf (Temp, "%2d", date->Hour);
               strcpy (dest, Temp);
               dest += strlen (Temp);
               format++;
               break;
            case 'H':
               sprintf (Temp, "%2d", date->Hour);
               strcpy (dest, Temp);
               dest += strlen (Temp);
               format++;
               break;
            case 'M':
               sprintf (Temp, "%02d", date->Minute);
               strcpy (dest, Temp);
               dest += strlen (Temp);
               format++;
               break;
            case 'S':
               sprintf (Temp, "%02d", date->Second);
               strcpy (dest, Temp);
               dest += strlen (Temp);
               format++;
               break;
            case 'Y':
               sprintf (Temp, "%2d", date->Year % 100);
               strcpy (dest, Temp);
               dest += strlen (Temp);
               format++;
               break;
            case 'Z':
               sprintf (Temp, "%4d", date->Year);
               strcpy (dest, Temp);
               dest += strlen (Temp);
               format++;
               break;
            default:
               *dest++ = *format++;
               break;
         }
      }
      else
         *dest++ = *format++;
   }
   *dest = '\0';
}

VOID TEditor::DisplayScreen ()
{
}

USHORT TEditor::FullScreen ()
{
   int i;
   unsigned int bytes;
   USHORT c, lineStart = 1, EndRun = FALSE, RetVal = FALSE;
   CHAR *a, *p;

   if (Text.First () == NULL)
      Text.Add ("");

   DisplayScreen ();

   bytes = 0;
   if ((p = (CHAR *)Text.First ()) != NULL)
      do {
         bytes += strlen (p) + 1;
      } while ((p = (CHAR *)Text.Next ()) != NULL);

   if (bytes > 32767)
      bytes += 10240;
   else
      bytes = 32767;
   Buffer = (CHAR *)malloc (bytes);

   strcpy (Buffer, "\n");

   a = Buffer;
   if ((p = (CHAR *)Text.First ()) != NULL)
      do {
         strcpy (a, p);
         a = strchr (a, '\0');
         strcpy (a, "\n");
         a = strchr (a, '\0');
      } while ((p = (CHAR *)Text.Next ()) != NULL);

   Text.Clear ();
   for (i = 0; i < 51; i++)
      LineCrc[i] = 0L;

   Cursor = Buffer;
   Display (1);

   while (EndRun == FALSE && Embedded->AbortSession () == FALSE) {
      if (Embedded->KBHit () == TRUE) {
         if ((c = Embedded->Getch ()) == 0)
            c = (USHORT)(Embedded->Getch () << 8);

         if (c == ESC) {
            while (Embedded->KBHit () == FALSE && Embedded->AbortSession () == FALSE)
               ;
            if (Embedded->KBHit () == TRUE) {
               if ((c = Embedded->Getch ()) == '[')
                  do {
                     while (Embedded->KBHit () == FALSE && Embedded->AbortSession () == FALSE)
                        ;
                     if (Embedded->KBHit () == TRUE)
                        c = Embedded->Getch ();
                  } while ((c == ';' || isdigit (c)) && Embedded->AbortSession () == FALSE);
                  if (c == 'A')
                     c = CTRLE;
                  else if (c == 'B')
                     c = CTRLX;
                  else if (c == 'C')
                     c = CTRLD;
                  else if (c == 'D')
                     c = CTRLS;
                  else if (c == 'H')
                     c = 0x4700;
                  else if (c == 'K')
                     c = 0x4F00;
            }
         }
         else if (c == CTRLK) {
            Embedded->PrintfAt (6, 2, "\x16\x01\x1E ^K ");
            while (Embedded->KBHit () == FALSE && Embedded->AbortSession () == FALSE)
               ;
            if (Embedded->KBHit () == TRUE) {
               c = Embedded->Getch ();
               if (c == CTRLQ || toupper (c) == 'Q') {
                  Embedded->PrintfAt (6, 2, "\x16\x01\x1E ^KQ ");
                  EndRun = TRUE;
               }
               else if (c == CTRLD || toupper (c) == 'D') {
                  Embedded->PrintfAt (6, 2, "\x16\x01\x1E ^KD ");
                  EndRun = TRUE;
                  RetVal = TRUE;
               }
               else if (c == '?') {
                  Embedded->PrintfAt (6, 2, "\x16\x01\x1E ^K? ");
                  Embedded->DisplayFile ("fshelp");
                  for (i = 0; i < 51; i++)
                     LineCrc[i] = 0L;
                  DisplayScreen ();
                  c = 0;
               }
            }
            Embedded->PrintfAt (6, 2, "\x16\x01\x13\031�\006\x16\x01\x03");
            Display (lineStart);
         }
         else if (c == CTRLN) {
            Embedded->PrintfAt (6, 2, "\x16\x01\x1E ^N ");
            Embedded->DisplayFile ("fshelp");
            for (i = 0; i < 51; i++)
               LineCrc[i] = 0L;
            DisplayScreen ();
            c = 0;
         }
         else if (c == CTRLQ) {
            Embedded->PrintfAt (6, 2, "\x16\x01\x1E ^Q ");
            while (Embedded->KBHit () == FALSE && Embedded->AbortSession () == FALSE)
               ;
            if (Embedded->KBHit () == TRUE) {
               c = Embedded->Getch ();
               if (c == CTRLS || toupper (c) == 'S') {
                  Embedded->PrintfAt (6, 2, "\x16\x01\x1E ^QS ");
                  c = 0x4700;
               }
               else if (c == CTRLD || toupper (c) == 'D') {
                  Embedded->PrintfAt (6, 2, "\x16\x01\x1E ^QD ");
                  c = 0x4F00;
               }
            }
            Embedded->PrintfAt (6, 2, "\x16\x01\x13\031�\006\x16\x01\x03");
         }
         else if (c == CTRLL) {  // ^L = Redraw
            for (i = 0; i < 51; i++)
               LineCrc[i] = 0L;
            DisplayScreen ();
            Display (lineStart);
         }
         else if (c == CTRLZ) {  // ^Z = Save
            EndRun = TRUE;
            RetVal = TRUE;
         }

         switch (c) {
            case 0x08:     // Backspace
               if (Cursor > Buffer) {
                  Cursor--;
                  memmove (Cursor, Cursor + 1, strlen (&Cursor[1]) + 1);
                  Display (lineStart);
               }
               break;

            case 0x19:     // CTRL-Y
               if ((p = GetFirstChar (lineStart, cy)) != NULL) {
                  if ((a = GetFirstChar (lineStart, (USHORT)(cy + 1))) != NULL)
                     memmove (p, a, strlen (a) + 1);
                  else
                     strcpy (p, "\n");
                  SetCursor (lineStart);
                  Display (lineStart);
               }
               break;

            case CTRLE:
            case 0x4800:   // Up Arrow
               if (cy > 1) {
                  cy--;
                  SetCursor (lineStart);
               }
               else if (lineStart > 1) {
                  lineStart--;
                  SetCursor (lineStart);
                  Display (lineStart);
               }
               break;

            case CTRLV:    // Page Down
               break;

            case CTRLX:
            case 0x5000:   // Down Arrow
               if (GetFirstChar (lineStart, (USHORT)(cy + 1)) != NULL) {
                  cy++;
                  if (cy > Height) {
                     cy--;
                     lineStart++;
                     SetCursor (lineStart);
                     Display (lineStart);
                  }
                  else
                     SetCursor (lineStart);
               }
               break;

            case CTRLD:
            case 0x4D00:   // Right Arrow
               Cursor++;
               if (*Cursor != '\0')
                  MoveCursor (lineStart);
               else
                  Cursor--;
               break;

            case CTRLS:
            case 0x4B00:   // Left Arrow
               if (Cursor > Buffer) {
                  Cursor--;
                  MoveCursor (lineStart);
               }
               break;

            case 0x7F:
            case 0x5300:   // Delete
               memmove (Cursor, Cursor + 1, strlen (&Cursor[1]) + 1);
               Display (lineStart);
               break;

            case 0x4700:   // Home
               Cursor = GetFirstChar (lineStart, cy);
               MoveCursor (lineStart);
               break;

            case 0x4F00:   // End
               if ((p = GetFirstChar (lineStart, (USHORT)(cy + 1))) == NULL)
                  p = strchr (Cursor, '\0');
               Cursor = p - 1;
               MoveCursor (lineStart);
               break;

            default:
               if (c >= 32 || c == 0x0D) {
                  if (c == 0x0D) {
                     c = '\n';
                     if (cy >= Height) {
                        cy--;
                        lineStart++;
                        SetCursor (lineStart);
                        Display (lineStart);
                     }
                     else
                        SetCursor (lineStart);
                  }
                  memmove (Cursor + 1, Cursor, strlen (Cursor) + 1);
                  *Cursor++ = (CHAR)c;
                  Display (lineStart);
               }
               break;
         }

         if (cy > 25) {
            lineStart++;
            SetCursor (lineStart);
            Display (lineStart);
         }
         else if (cy < 1 && lineStart > 1) {
            lineStart--;
            cy++;
            Display (lineStart);
         }
      }
   }

   Text.Clear ();

   if (RetVal == TRUE && Buffer != NULL) {
      a = Buffer;
      while ((p = strchr (a, '\n')) != NULL) {
         if (p > a) {
            p--;
            if (*p == '\r')
               *p = '\0';
            p++;
         }
         *p = '\0';
         Text.Add (a);
         a = p + 1;
      }
      Text.Add (a);
   }

   if (Buffer != NULL)
      free (Buffer);

   Embedded->Printf ("\x0C");

   return (RetVal);
}

// --------------------------------------------------------------------

TMsgEditor::TMsgEditor ()
{
   Log = NULL;
   Embedded = NULL;
   Number = 0L;
   strcpy (Origin, "Default Origin");
   strcpy (Address, "0:0/0");
   strcpy (AreaTitle, "Unknown");
   To[0] = Subject[0] = AreaKey[0] = '\0';
   Msgn = Number = 0L;
}

TMsgEditor::~TMsgEditor ()
{
}

VOID TMsgEditor::DisplayScreen ()
{
   CHAR Temp[96], *p = "Press Control-N for help";
   MDATE Written;

   Embedded->BufferedPrintf (Language->Text (LNG_MESSAGEHDR), AreaTitle, (CHAR)(80 - strlen (AreaTitle) - 3));
   sprintf (Temp, Language->Text (LNG_MESSAGENUMBER), Msgn, Number);
   Embedded->Printf (Language->Text (LNG_MESSAGEFLAGS), Temp, "");

   Written.Day = d_date.day;
   Written.Month = d_date.month;
   Written.Year = (USHORT)d_date.year;
   Written.Hour = d_time.hour;
   Written.Minute = d_time.minute;
   Written.Second = d_time.second;

   BuildDate (Language->Text (LNG_MESSAGEDATE), Temp, &Written);
   Embedded->BufferedPrintf (Language->Text (LNG_MESSAGEFROM), UserName, Address, Temp);
   Embedded->BufferedPrintf (Language->Text (LNG_MESSAGETO), To, "", "");
   Embedded->BufferedPrintf (Language->Text (LNG_MESSAGESUBJECT), Subject);
   Embedded->BufferedPrintf ("\x16\x01\x13\031�%c \x16\x01\x1E%s \x16\x01\x13�", (CHAR)(80 - strlen (p) - 3), p);
   Embedded->BufferedPrintf ("\x16\x01\x03");

   StartRow = 7;
   StartCol = 1;
   Width = 79;
   Height = 18;
}

VOID TMsgEditor::Forward ()
{
   USHORT RetVal = FALSE;
   CHAR Temp[128];
   PSZ Line;

   do {
      Embedded->Printf ("\n\x16\x01\x0AWho do you wish to send this message to?\n\x16\x01\013Enter User-Name, ? for help, or RETURN for '\x16\x01\013All\x16\x01\013': ");
      Embedded->Input (To, (USHORT)(sizeof (To) - 1), INP_FANCY);
      if (To[0] == Language->Help)
         Embedded->DisplayFile ("FORWDHLP");
      else if (To[0] != '\0')
         RetVal = TRUE;
   } while (Embedded->AbortSession () == FALSE && RetVal == FALSE && To[0] != '\0');

   if (strchr (To, '@'))
      strlwr (To);

   if (RetVal == TRUE) {
      sprintf (Subject, "%s (Fwd)", Msg->Subject);

      Text.Clear ();
      sprintf (Temp, " * Originally for %s", Msg->To);
      Text.Add (Temp, (USHORT)(strlen (Temp) + 1));
      sprintf (Temp, " * Forwarded by %s", UserName);
      Text.Add (Temp, (USHORT)(strlen (Temp) + 1));
//kj      Text.Add ("", 1);
      Text.Add ("");

      if ((Line = (PSZ)Msg->Text.First ()) != NULL)
         do {
            if (Line[0] != 0x01 && strnicmp (Line, "SEEN-BY: ", 9))
               Text.Add (Line, (USHORT)(strlen (Line) + 1));
         } while ((Line = (PSZ)Msg->Text.Next ()) != NULL);

      Save ();
   }
}

VOID TMsgEditor::InputSubject ()
{
   if (Subject[0] != '\0')
      Embedded->Printf ("\n\026\001\017Subject: \026\001\014%s\n", Subject);
   Embedded->Printf ("\026\001\003Subject: \026\001\016");
   Embedded->Input (Subject, (USHORT)(sizeof (Subject) - 1), 0);
}

USHORT TMsgEditor::InputTo ()
{
   USHORT RetVal = FALSE;

   if (To[0] != '\0')
      Embedded->Printf ("\n\026\001\017To: \026\001\014%s\n", To);
   Embedded->Printf ("\026\001\003     To: \026\001\016");
   Embedded->Input (To, (USHORT)(sizeof (To) - 1), 0);

   if (To[0] != '\0')
      RetVal = TRUE;

   return (RetVal);
}

VOID TMsgEditor::Menu ()
{
   USHORT Stop = FALSE;
   CHAR Cmd[2];

   while (Stop == FALSE && Embedded->AbortSession () == FALSE) {
      if (Embedded->DisplayFile ("editmenu") == FALSE) {
         Embedded->BufferedPrintf ("\n\026\001\016EDIT (%lu mins):\n", Embedded->TimeRemain ());
         Embedded->BufferedPrintf ("\026\001\016S\026\001\007save message       ");
         Embedded->BufferedPrintf ("\026\001\016A\026\001\007bort message       ");
         Embedded->BufferedPrintf ("\026\001\016L\026\001\007ist message        ");
         Embedded->BufferedPrintf ("\026\001\016E\026\001\007dit line           ");
         Embedded->BufferedPrintf ("\026\001\016I\026\001\007nsert line         ");
         Embedded->BufferedPrintf ("\026\001\016D\026\001\007elete line         ");
         Embedded->BufferedPrintf ("\026\001\016Q\026\001\007uote message       ");
         Embedded->BufferedPrintf ("\026\001\016C\026\001\007ontinue            ");
         Embedded->BufferedPrintf ("\026\001\016T\026\001\007o                  ");
         Embedded->BufferedPrintf ("\026\001\016J\026\001\007subject            ");
         Embedded->BufferedPrintf ("\026\001\016?\026\001\007help\n");
         Embedded->Printf ("\026\001\017Select: ");
      }
      Embedded->Input (Cmd, (USHORT)(sizeof (Cmd) - 1), INP_HOTKEY);

      if (Embedded->AbortSession () == FALSE) {
         switch (toupper (Cmd[0])) {
            case '?':
               Embedded->DisplayFile ("edithlp");
               break;
            case 'C':
               if (AppendText () == FALSE) {
                  Save ();
                  Stop = TRUE;
               }
               break;
//            case 'C':
//               ChangeText ();
//               break;
            case 'J':
               InputSubject ();
               break;
            case 'D':
               DeleteLine ();
               break;
            case 'I':
               InsertLines ();
               break;
            case 'L':
               ListText ();
               break;
//            case 'N':
//               Text.Clear ();
//               Embedded->Printf ("\n\x16\x01\012Type your message now. When done, type '\x16\x01\x0B/OK\x16\x01\012' on a line by itself.\n(Or, type '\x16\x01\x0B/SAVE\x16\x01\012' to save and proceed, without editing).\n\n");
//               if (InputText () == FALSE) {
//                  Save ();
//                  Stop = TRUE;
//               }
//               break;
            case 'Q':
               QuoteText ();
               break;
            case 'E':
               RetypeLine ();
               break;
            case 'S':
               Save ();
               Stop = TRUE;
               break;
            case 'A':
               Embedded->Printf ("\n\026\001\017Throw message away ");
               if (Embedded->GetAnswer (ASK_DEFNO) == ANSWER_YES) {
                  Embedded->Printf ("\n\026\001\014Message aborted!\n");
                  if (Log != NULL)
                     Log->Write (":Message aborted");
                  Stop = TRUE;
               }
               break;
         }
      }
   }
}

USHORT TMsgEditor::Modify ()
{
   USHORT RetVal = FALSE;
   PSZ Line;

   if ((Line = (PSZ)Msg->Text.First ()) != NULL) {
      do {
         if (Line[0] != 0x01 && strnicmp (Line, "SEEN-BY: ", 9))
            Text.Add (Line, (USHORT)(strlen (Line) + 1));
      } while ((Line = (PSZ)Msg->Text.Next ()) != NULL);

      strcpy (To, Msg->To);
      strcpy (Subject, Msg->Subject);

      Embedded->Printf ("\n\x16\x01\012Type your message now. When done, type '\x16\x01\x0B/OK\x16\x01\012' on a line by itself.\n(Or, type '\x16\x01\x0B/SAVE\x16\x01\012' to save and proceed, without editing).\n\n    �\031�%c�\n", Width - 10);
      if ((RetVal = InputText ()) == FALSE)
         Save ();
   }

   return (RetVal);
}

VOID TMsgEditor::QuoteText ()
{
   USHORT Line, Current;
   USHORT Start, End;
   CHAR Temp[16], *p;

   if (Msg->Text.First () != NULL) {
      while (Embedded->AbortSession () == FALSE) {
         Embedded->Printf ("\n\026\001\013Start quoting from line number (or ? displays message): ");
         Embedded->Input (Temp, (USHORT)(sizeof (Temp) - 1), 0);

         if (Embedded->AbortSession () == FALSE) {
            if (Temp[0] == '?') {
               if ((p = (PSZ)Msg->Text.First ()) != NULL) {
                  Line = 1;
                  Current = 0;
                  do {
                     Embedded->Printf ("\026\001\016%3d: %s\n", ++Current, p);
                     if ((Line = Embedded->MoreQuestion (Line)) == 0)
                        break;
                  } while ((p = (PSZ)Msg->Text.Next ()) != NULL);
               }
            }
            else if (Temp[0] == '\0')
               break;
            else {
               Start = (USHORT)atoi (Temp);

               Embedded->Printf ("\026\001\013End quoting at line number: ");
               Embedded->Input (Temp, (USHORT)(sizeof (Temp) - 1), 0);
               End = (USHORT)atoi (Temp);
               break;
            }
         }
      }

      if ((p = (PSZ)Msg->Text.First ()) != NULL) {
         Current = 0;
         do {
            Current++;
            if (Current >= Start && Current <= End)
               Text.Add (p, (USHORT)(strlen (p) + 1));
         } while ((p = (PSZ)Msg->Text.Next ()) != NULL);
      }
   }
}

USHORT TMsgEditor::Reply ()
{
   FILE *fp;
   USHORT RetVal = FALSE;
   CHAR Temp[128], Init[8], *p;

   _dos_getdate (&d_date);
   _dos_gettime (&d_time);

   strcpy (To, Msg->From);
   strcpy (Subject, Msg->Subject);

   Embedded->Printf ("\n\026\001\014You are entering a message into an \026\001\015ECHOMAIL \026\001\014conference which is to be\n");
   Embedded->Printf ("transmitted and read on other BBSes\n\n");

   Msg->Read (Msg->Current, 72);

   Embedded->Printf ("\026\001\003   From: \026\001\016%s\n", UserName);
   Embedded->Printf ("\026\001\003     To: \026\001\016%s\n", Msg->From);
   Embedded->Printf ("\026\001\003Subject: \026\001\016%s\n", Msg->Subject);

   Init[0] = ' ';
   Init[1] = (CHAR)toupper (To[0]);
   if ((p = strchr (To, ' ')) != NULL) {
      Init[2] = (CHAR)toupper (p[1]);
      Init[3] = '>';
      Init[4] = ' ';
      Init[5] = '\0';
   }
   else {
      Init[2] = '>';
      Init[3] = ' ';
      Init[4] = '\0';
   }

   if ((p = (CHAR *)Msg->Text.First ()) != NULL)
      do {
         if (!strncmp (p, "SEEN-BY: ", 9) || *p == 0x01) {
            Msg->Text.Remove ();
            p = (CHAR *)Msg->Text.Value ();
         }
         else
            p = (CHAR *)Msg->Text.Next ();
      } while (p != NULL);

   Text.Clear ();
   if ((p = (CHAR *)Msg->Text.First ()) != NULL)
      do {
         sprintf (Temp, "%s%s", Init, p);
         if (UseFullScreen == TRUE)
            Text.Add (Temp, (USHORT)(strlen (Temp) + 1));
         else
            Msg->Text.Replace (Temp, (USHORT)(strlen (Temp) + 1));
      } while ((p = (CHAR *)Msg->Text.Next ()) != NULL);

   if (UseFullScreen == TRUE) {
      Number = Msgn = Msg->Number () + 1L;
      if (Cfg->ExternalEditor == TRUE && Cfg->EditorCmd[0] != '\0') {
         // Scrive il file msginf contenente le informazioni sul mittente e destinatario
         // del messaggio che si sta scrivendo.
         if ((fp = fopen ("msginf", "wt")) != NULL) {
            fprintf (fp, "%s\n", UserName);
            fprintf (fp, "%s\n", To);
            fprintf (fp, "%s\n", Subject);
            fprintf (fp, "%s\n", "1");
            fprintf (fp, "%s\n", AreaTitle);
            fprintf (fp, "%s\n", "NO");
            fclose (fp);
         }
         if (ExternalEditor (Cfg->EditorCmd) == TRUE)
            Save ();
         else
            Embedded->Printf ("\n\026\001\014Message aborted!\n");
         unlink ("msginf");
      }
      else {
         if (FullScreen () == TRUE)
            Save ();
         else
            Embedded->Printf ("\n\026\001\014Message aborted!\n");
      }
   }
   else {
      Embedded->Printf ("\n\x16\x01\012Type your message now. When done, type '\x16\x01\x0B/OK\x16\x01\012' on a line by itself.\n(Or, type '\x16\x01\x0B/SAVE\x16\x01\012' to save and proceed, without editing).\n\n    �\031�%c�\n", Width - 10);
      if ((RetVal = InputText ()) == FALSE)
         Save ();
   }

   return (RetVal);
}

USHORT TMsgEditor::Write ()
{
   FILE *fp;
   USHORT RetVal = FALSE;

   _dos_getdate (&d_date);
   _dos_gettime (&d_time);

   Embedded->Printf ("\n\026\001\014You are entering a message into an \026\001\015ECHOMAIL \026\001\014conference which is to be\n");
   Embedded->Printf ("transmitted and read on other BBSes\n\n");

   Embedded->Printf ("\026\001\003   From: \026\001\016%s\n", UserName);

   Subject[0] = To[0] = '\0';
   if (InputTo () == TRUE) {
      if (Embedded->AbortSession () == FALSE)
         InputSubject ();

      if (Embedded->AbortSession () == FALSE) {
         Text.Clear ();
         if (UseFullScreen == TRUE) {
            Number = Msgn = Msg->Number () + 1L;
            if (Cfg->ExternalEditor == TRUE && Cfg->EditorCmd[0] != '\0') {
               // Scrive il file msginf contenente le informazioni sul mittente e destinatario
               // del messaggio che si sta scrivendo.
               if ((fp = fopen ("msginf", "wt")) != NULL) {
                  fprintf (fp, "%s\n", UserName);
                  fprintf (fp, "%s\n", To);
                  fprintf (fp, "%s\n", Subject);
                  fprintf (fp, "%s\n", "1");
                  fprintf (fp, "%s\n", AreaTitle);
                  fprintf (fp, "%s\n", "NO");
                  fclose (fp);
               }
               if (ExternalEditor (Cfg->EditorCmd) == TRUE)
                  Save ();
               else
                  Embedded->Printf ("\n\026\001\014Message aborted!\n");
               unlink ("msginf");
            }
            else {
               if (FullScreen () == TRUE)
                  Save ();
               else
                  Embedded->Printf ("\n\026\001\014Message aborted!\n");
            }
         }
         else {
            Embedded->Printf ("\n\x16\x01\012Type your message now. When done, type '\x16\x01\x0B/OK\x16\x01\012' on a line by itself.\n(Or, type '\x16\x01\x0B/SAVE\x16\x01\012' to save and proceed, without editing).\n\n    �\031�%c�\n", Width - 10);
            if ((RetVal = InputText ()) == FALSE)
               Save ();
         }
      }
   }
   else
      Embedded->Printf ("\n\026\001\014Message aborted!\n");

   return (RetVal);
}

VOID TMsgEditor::Save ()
{
   CHAR Temp[128], *p;

   if (Msg != NULL) {
      Msg->New ();

      Msg->Local = TRUE;
      strcpy (Msg->From, UserName);
      strcpy (Msg->To, To);
      strcpy (Msg->Subject, Subject);

      strcpy (Msg->FromAddress, Address);
      strcpy (Msg->ToAddress, Address);

      Msg->Arrived.Day = Msg->Written.Day = d_date.day;
      Msg->Arrived.Month = Msg->Written.Month = d_date.month;
      Msg->Arrived.Year = Msg->Written.Year = (USHORT)d_date.year;
      Msg->Arrived.Hour = Msg->Written.Hour = d_time.hour;
      Msg->Arrived.Minute = Msg->Written.Minute = d_time.minute;
      Msg->Arrived.Second = Msg->Written.Second = d_time.second;

      if (EchoMail == TRUE) {
         Cfg->MailAddress.First ();
         sprintf (Temp, "\001MSGID: %s %08lx", Cfg->MailAddress.String, time (NULL));
         p = (PSZ)Text.First ();
         Text.Insert (Temp, (USHORT)(strlen (Temp) + 1));
         if (p != NULL) {
            Text.Insert (p, (USHORT)(strlen (p) + 1));
            Text.First ();
            Text.Remove ();
         }

         sprintf (Temp, "\001PID: %s", NAME_OS);
         Text.Insert (Temp, (USHORT)(strlen (Temp) + 1));

//kj         Text.Add ("", 1);
         Text.Add ("");
         sprintf (Temp, "--- %s v%s", NAME, VERSION);
         Text.Add (Temp, (USHORT)(strlen (Temp) + 1));
         sprintf (Temp, " * Origin: %s (%s)", Origin, Address);
         Text.Add (Temp, (USHORT)(strlen (Temp) + 1));
      }

      Msg->Add (Text);
      Number = Msg->Highest ();

      Log->Write (":Written message #%lu (%lu)", Msg->UidToMsgn (Number), Number);
      Embedded->Printf ("\n\x16\x01\x0E<<< CONFIRMED: MESSAGE #%ld WRITTEN TO DISK >>>\n\006\007\006\007", Msg->UidToMsgn (Number));
   }
}

// --------------------------------------------------------------------

TCommentEditor::TCommentEditor ()
{
   Embedded = NULL;
   File = NULL;
}

TCommentEditor::~TCommentEditor ()
{
}

VOID TCommentEditor::Menu ()
{
   USHORT Stop = FALSE;
   CHAR Cmd[2];

   while (Stop == FALSE && Embedded->AbortSession () == FALSE) {
      Embedded->Printf ("\n\026\001\012EDITOR OPTIONS:\n\n");
      Embedded->Printf ("  \026\001\013S\026\001\016 ... Save comment    \026\001\013R\026\001\016 ... Retype a line\n");
      Embedded->Printf ("  \026\001\013A\026\001\016 ... Append text     \026\001\013D\026\001\016 ... Delete line\n");
      Embedded->Printf ("  \026\001\013L\026\001\016 ... List text       \026\001\013I\026\001\016 ... Insert line(s)\n");
      Embedded->Printf ("  \026\001\013C\026\001\016 ... Change text     \026\001\013N\026\001\016 ... New comment\n");
      Embedded->Printf ("  \026\001\013H\026\001\016 ... Help\n");
      Embedded->Printf ("\n\026\001\012Editor\n\026\001\013Make your selection (S,R,A,D,L,I,C,N,H or X to exit): \026\001\007");

      Embedded->Input (Cmd, (USHORT)(sizeof (Cmd) - 1), INP_HOTKEY);

      if (Embedded->AbortSession () == FALSE) {
         switch (toupper (Cmd[0])) {
            case 'A':
               if (AppendText () == FALSE) {
                  Save ();
                  Stop = TRUE;
               }
               break;
            case 'C':
               ChangeText ();
               break;
            case 'D':
               DeleteLine ();
               break;
            case 'I':
               InsertLines ();
               break;
            case 'L':
               ListText ();
               break;
            case 'N':
               Text.Clear ();
               Embedded->Printf ("\n\x16\x01\012Type your comment now. When done, type '\x16\x01\x0B/OK\x16\x01\012' on a line by itself.\n(Or, type '\x16\x01\x0B/SAVE\x16\x01\012' to save and proceed, without editing).\n\n    �\031�%c�\n", Width - 10);
               if (InputText () == FALSE) {
                  Save ();
                  Stop = TRUE;
               }
               break;
            case 'R':
               RetypeLine ();
               break;
            case 'S':
               Save ();
               Stop = TRUE;
               break;
            case 'X':
               Embedded->Printf ("\n\026\001\017Throw comment away ");
               if (Embedded->GetAnswer (ASK_DEFNO) == ANSWER_YES) {
                  Embedded->Printf ("\n\026\001\014Comment aborted!\n");
                  Stop = TRUE;
               }
               break;
         }
      }
   }
}

VOID TCommentEditor::Save ()
{
   if (File != NULL) {
      if (Text.First () != NULL)
         do {
            File->Description->Add (Text.Value (), (USHORT)(strlen ((PSZ)Text.Value ()) + 1));
         } while (Text.Next () != NULL);
   }
}

USHORT TCommentEditor::Write ()
{
   USHORT RetVal;

   Text.Clear ();
   Embedded->Printf ("\n\x16\x01\012Type your comment now. When done, type '\x16\x01\x0B/OK\x16\x01\012' on a line by itself.\n(Or, type '\x16\x01\x0B/SAVE\x16\x01\012' to save and proceed, without editing).\n\n    �\031�%c�\n", Width - 10);
   if ((RetVal = InputText ()) == FALSE)
      Save ();

   return (RetVal);
}

// --------------------------------------------------------------------

TMailEditor::TMailEditor ()
{
   Log = NULL;
   Embedded = NULL;
   Number = 0L;
   strcpy (Origin, "Default Origin");
   strcpy (Address, "0:0/0");
   ToAddress[0] = '\0';
   Subject[0] = To[0] = '\0';
   Msg = NULL;
   Type = MAIL_LOCAL;
   Private = FALSE;

   Storage = ST_SQUISH;
   strcpy (BasePath, "email");
   strcpy (AreaTitle, "E-Mail");
}

TMailEditor::~TMailEditor ()
{
}

VOID TMailEditor::DisplayScreen ()
{
   CHAR Temp[96];
   CHAR *p = "Press Control-N for help";
   MDATE Written;

   Embedded->BufferedPrintf (Language->Text (LNG_MESSAGEHDR), AreaTitle, (CHAR)(80 - strlen (AreaTitle) - 3));
   sprintf (Temp, Language->Text (LNG_MESSAGENUMBER), Number, Number);
   Embedded->Printf (Language->Text (LNG_MESSAGEFLAGS), Temp, "");

   Written.Day = d_date.day;
   Written.Month = d_date.month;
   Written.Year = (USHORT)d_date.year;
   Written.Hour = d_time.hour;
   Written.Minute = d_time.minute;
   Written.Second = d_time.second;

   BuildDate (Language->Text (LNG_MESSAGEDATE), Temp, &Written);
   Embedded->BufferedPrintf (Language->Text (LNG_MESSAGEFROM), UserName, Address, Temp);
   Embedded->BufferedPrintf (Language->Text (LNG_MESSAGETO), To, ToAddress, "");
   Embedded->BufferedPrintf (Language->Text (LNG_MESSAGESUBJECT), Subject);
   Embedded->BufferedPrintf ("\x16\x01\x13\031�%c \x16\x01\x1E%s \x16\x01\x13�", (CHAR)(80 - strlen (p) - 3), p);
   Embedded->BufferedPrintf ("\x16\x01\x03");

   StartRow = 7;
   StartCol = 1;
   Width = 79;
   Height = 18;
}

USHORT TMailEditor::InputSubject ()
{
   Embedded->Printf ("%s\026\001\003Subject: \026\001\016", (Subject[0] == '\0') ? "" : "\n");
   Embedded->Input (Subject, (USHORT)(sizeof (Subject) - 1), 0);

   return (TRUE);
}

USHORT TMailEditor::InputTo ()
{
   USHORT RetVal = FALSE, Loop;
   class TUser *User;

   do {
      Loop = FALSE;
      Embedded->Printf ("%s\026\001\003     To: \026\001\016", (To[0] == '\0') ? "" : "\n");
      Embedded->Input (To, (USHORT)(sizeof (To) - 1), (Type == MAIL_LOCAL) ? INP_FANCY : 0);
      if (To[0] != '\0') {
         if (Type == MAIL_INTERNET) {
            if (strchr (To, '@') == NULL) {
               Embedded->Printf ("\026\001\014Please write the destination Internet address in the form user@host.domain.");
               Loop = TRUE;
            }
         }
         else {
            if (Type == MAIL_LOCAL) {
               if ((User = new TUser (Cfg->UserFile)) != NULL) {
                  if (User->GetData (To) == FALSE) {
                     Embedded->Printf ("\026\001\014The user %s doesn't exists on this system.", To);
                     Loop = TRUE;
                  }
                  delete User;
               }
            }
            if (strchr (To, ':') != NULL || strchr (To, '/') != NULL) {
               Embedded->Printf ("\026\001\014Please write the destination user name.");
               Loop = TRUE;
            }
         }
      }
   } while (To[0] != '\0' && Loop == TRUE && Embedded->AbortSession () == FALSE);

   if (To[0] != '\0')
      RetVal = TRUE;

   return (RetVal);
}

USHORT TMailEditor::InputAddress ()
{
   USHORT RetVal = FALSE;
   CHAR Temp[64];
   class TNodes *Nodes;

   do {
      Embedded->Printf ("%s\026\001\016Enter destination address ([zone:]net/node[.point]).\n", (ToAddress[0] == '\0') ? "" : "\n");
      Embedded->Printf ("\026\001\003Address: \026\001\016");
      Embedded->Input (Temp, (USHORT)(sizeof (Temp) - 1), 0);
      if (Temp[0] != '\0') {
         if ((Nodes = new TNodes (Cfg->NodelistPath)) != NULL) {
            if (Nodes->Read (Temp) == TRUE) {
               Embedded->Printf ("\026\001\017%s, %s (%s)\nIs this correct", Nodes->Address, Nodes->SystemName, Nodes->Location);
               if (Embedded->GetAnswer (ASK_DEFYES) == ANSWER_YES)
                  RetVal = TRUE;
            }
            else {
               Embedded->Printf ("\026\001\014The node %s was not found in the nodelist on this system\nDo you want to write the message anyway", Temp);
               if (Embedded->GetAnswer (ASK_DEFNO) == ANSWER_YES)
                  RetVal = TRUE;
            }
            delete Nodes;
         }
      }
   } while (Temp[0] != '\0' && RetVal == FALSE && Embedded->AbortSession () == FALSE);

   if (RetVal == TRUE)
      strcpy (ToAddress, Temp);

   return (RetVal);
}

VOID TMailEditor::Menu ()
{
   USHORT Stop = FALSE;
   CHAR Cmd[2];

   while (Stop == FALSE && Embedded->AbortSession () == FALSE) {
      if (Embedded->DisplayFile ("editmenu") == FALSE) {
         Embedded->BufferedPrintf ("\n\026\001\016EDIT (%lu mins):\n", Embedded->TimeRemain ());
         Embedded->BufferedPrintf ("\026\001\016S\026\001\007save message       ");
         Embedded->BufferedPrintf ("\026\001\016A\026\001\007bort message       ");
         Embedded->BufferedPrintf ("\026\001\016L\026\001\007ist message        ");
         Embedded->BufferedPrintf ("\026\001\016E\026\001\007dit line           ");
         Embedded->BufferedPrintf ("\026\001\016I\026\001\007nsert line         ");
         Embedded->BufferedPrintf ("\026\001\016D\026\001\007elete line         ");
         Embedded->BufferedPrintf ("\026\001\016Q\026\001\007uote message       ");
         Embedded->BufferedPrintf ("\026\001\016C\026\001\007ontinue            ");
         Embedded->BufferedPrintf ("\026\001\016T\026\001\007o                  ");
         Embedded->BufferedPrintf ("\026\001\016J\026\001\007subject            ");
         Embedded->BufferedPrintf ("\026\001\016?\026\001\007help\n");
         Embedded->Printf ("\026\001\017Select: ");
      }
      Embedded->Input (Cmd, (USHORT)(sizeof (Cmd) - 1), INP_HOTKEY);

      if (Embedded->AbortSession () == FALSE) {
         switch (toupper (Cmd[0])) {
            case 'C':
               if (AppendText () == FALSE) {
                  Save ();
                  Stop = TRUE;
               }
               break;
//            case 'C':
//               ChangeText ();
//               break;
            case 'J':
               InputSubject ();
               break;
            case 'D':
               DeleteLine ();
               break;
            case 'I':
               InsertLines ();
               break;
            case 'L':
               ListText ();
               break;
//            case 'N':
//               Text.Clear ();
//               Embedded->Printf ("\n\x16\x01\012Type your message now. When done, type '\x16\x01\x0B/OK\x16\x01\012' on a line by itself.\n(Or, type '\x16\x01\x0B/SAVE\x16\x01\012' to save and proceed, without editing).\n\n    �\031�%c�", Width - 10);
//               if (InputText () == FALSE) {
//                  Save ();
//                  Stop = TRUE;
//               }
//               break;
            case 'E':
               RetypeLine ();
               break;
            case 'Q':
               QuoteText ();
               break;
            case 'S':
               Save ();
               Stop = TRUE;
               break;
            case 'A':
               Embedded->Printf ("\n\026\001\017Throw message away ");
               if (Embedded->GetAnswer (ASK_DEFNO) == ANSWER_YES) {
                  Embedded->Printf ("\n\026\001\014Message aborted!\n");
                  if (Log != NULL)
                     Log->Write (":Message aborted");
                  Stop = TRUE;
               }
               break;
         }
      }
   }
}

USHORT TMailEditor::Modify ()
{
   USHORT RetVal = FALSE;
   PSZ Line;

   if ((Line = (PSZ)Msg->Text.First ()) != NULL) {
      do {
         if (Line[0] != 0x01 && strnicmp (Line, "SEEN-BY: ", 9))
            Text.Add (Line, (USHORT)(strlen (Line) + 1));
      } while ((Line = (PSZ)Msg->Text.Next ()) != NULL);

      strcpy (To, Msg->To);
      strcpy (Subject, Msg->Subject);

      Embedded->Printf ("\n\x16\x01\012Type your message now. When done, type '\x16\x01\x0B/OK\x16\x01\012' on a line by itself.\n(Or, type '\x16\x01\x0B/SAVE\x16\x01\012' to save and proceed, without editing).\n\n    �\031�%c�\n", Width - 10);
      if ((RetVal = InputText ()) == FALSE)
         Save ();
   }

   return (RetVal);
}

VOID TMailEditor::QuoteText ()
{
   USHORT Line, Current;
   USHORT Start, End;
   CHAR Temp[16], *p;

   if (Msg->Text.First () != NULL) {
      while (Embedded->AbortSession () == FALSE) {
         Embedded->Printf ("\n\026\001\013Start quoting from line number (or ? displays message): ");
         Embedded->Input (Temp, (USHORT)(sizeof (Temp) - 1), 0);

         if (Embedded->AbortSession () == FALSE) {
            if (Temp[0] == '?') {
               if ((p = (PSZ)Msg->Text.First ()) != NULL) {
                  Line = 1;
                  Current = 0;
                  do {
                     Embedded->Printf ("\026\001\016%3d: %s\n", ++Current, p);
                     if ((Line = Embedded->MoreQuestion (Line)) == 0)
                        break;
                  } while ((p = (PSZ)Msg->Text.Next ()) != NULL);
               }
            }
            else if (Temp[0] == '\0')
               break;
            else {
               Start = (USHORT)atoi (Temp);

               Embedded->Printf ("\026\001\013End quoting at line number: ");
               Embedded->Input (Temp, (USHORT)(sizeof (Temp) - 1), 0);
               End = (USHORT)atoi (Temp);
               break;
            }
         }
      }

      if ((p = (PSZ)Msg->Text.First ()) != NULL) {
         Current = 0;
         do {
            Current++;
            if (Current >= Start && Current <= End)
               Text.Add (p, (USHORT)(strlen (p) + 1));
         } while ((p = (PSZ)Msg->Text.Next ()) != NULL);
      }
   }
}

USHORT TMailEditor::Reply ()
{
   FILE *fp;
   USHORT RetVal = FALSE;
   CHAR Temp[128], Init[16], *p;

   _dos_getdate (&d_date);
   _dos_gettime (&d_time);
   Cfg->MailAddress.First ();

   strcpy (To, Msg->From);
   if (strchr (Msg->FromAddress, '@') != NULL) {
      strcpy (To, Msg->FromAddress);
      strcpy (ToAddress, Cfg->MailAddress.String);
      Type = MAIL_INTERNET;
   }
   else if (strchr (Msg->From, '@') != NULL) {
      strcpy (To, Msg->From);
      strcpy (ToAddress, Msg->FromAddress);
      Type = MAIL_INTERNET;
   }
   else {
      strcpy (To, Msg->From);
      strcpy (ToAddress, Msg->FromAddress);
      Type = MAIL_FIDONET;
      do {
         if (!stricmp (Cfg->MailAddress.String, ToAddress)) {
            Type = MAIL_LOCAL;
            break;
         }
      } while (Cfg->MailAddress.Next () == TRUE);
   }
   strcpy (Subject, Msg->Subject);

   if (Type == MAIL_FIDONET) {
      Embedded->Printf ("\n\026\001\014You are entering a message into an \026\001\015E-MAIL \026\001\014area to someone\n");
      Embedded->Printf ("on another \026\001\015FidoNet \026\001\014BBS.\n\n");
   }
   else if (Type == MAIL_INTERNET) {
      Embedded->Printf ("\n\026\001\014You are entering a message into an \026\001\015E-MAIL \026\001\014area to someone\n");
      Embedded->Printf ("on another \026\001\015Internet \026\001\014site.\n\n");
   }
   else if (Type == MAIL_LOCAL) {
      Embedded->Printf ("\n\026\001\014You are entering a message into an \026\001\015E-MAIL \026\001\014area to someone\n");
      Embedded->Printf ("on \026\001\015this \026\001\014system.\n\n");
   }

   Msg->Read (Msg->Current, 68);

   Embedded->Printf ("\026\001\003   From: \026\001\016%s\n", UserName);
   if (ToAddress[0] != '\0')
      Embedded->Printf ("\026\001\003     To: \026\001\016%s (%s)\n", To, ToAddress);
   else
      Embedded->Printf ("\026\001\003     To: \026\001\016%s\n", To);
   Embedded->Printf ("\026\001\003Subject: \026\001\016%s\n", Subject);

   Embedded->Printf ("\n\026\001\017Private");
   if (Embedded->GetAnswer (ASK_DEFYES) == ANSWER_YES)
      Private = TRUE;

   Init[0] = (CHAR)toupper (To[0]);
   if ((p = strchr (To, ' ')) != NULL) {
      Init[1] = (CHAR)toupper (p[1]);
      Init[2] = '>';
      Init[3] = '\0';
   }
   else {
      Init[1] = '>';
      Init[2] = '\0';
   }

   if ((p = (CHAR *)Msg->Text.First ()) != NULL)
      do {
         if (!strncmp (p, "SEEN-BY: ", 9) || *p == 0x01) {
            Msg->Text.Remove ();
            p = (CHAR *)Msg->Text.Value ();
         }
         else
            p = (CHAR *)Msg->Text.Next ();
      } while (p != NULL);

   Text.Clear ();
   if ((p = (CHAR *)Msg->Text.First ()) != NULL)
      do {
         sprintf (Temp, "%s%s", Init, p);
         if (UseFullScreen == TRUE)
            Text.Add (Temp, (USHORT)(strlen (Temp) + 1));
         else
            Msg->Text.Replace (Temp, (USHORT)(strlen (Temp) + 1));
      } while ((p = (CHAR *)Msg->Text.Next ()) != NULL);

   if (UseFullScreen == TRUE) {
      Number = Msg->Number () + 1L;
      if (Cfg->ExternalEditor == TRUE && Cfg->EditorCmd[0] != '\0') {
         // Scrive il file msginf contenente le informazioni sul mittente e destinatario
         // del messaggio che si sta scrivendo.
         if ((fp = fopen ("msginf", "wt")) != NULL) {
            fprintf (fp, "%s\n", UserName);
            fprintf (fp, "%s\n", To);
            fprintf (fp, "%s\n", Subject);
            fprintf (fp, "%s\n", "1");
            fprintf (fp, "%s\n", AreaTitle);
            fprintf (fp, "%s\n", "NO");
            fclose (fp);
         }
         if (ExternalEditor (Cfg->EditorCmd) == TRUE)
            Save ();
         else
            Embedded->Printf ("\n\026\001\014Message aborted!\n");
         unlink ("msginf");
      }
      else {
         if (FullScreen () == TRUE)
            Save ();
         else
            Embedded->Printf ("\n\026\001\014Message aborted!\n");
      }
   }
   else {
      Embedded->Printf ("\n\x16\x01\012Type your message now. When done, type '\x16\x01\x0B/OK\x16\x01\012' on a line by itself.\n(Or, type '\x16\x01\x0B/SAVE\x16\x01\012' to save and proceed, without editing).\n\n    �\031�%c�\n", Width - 10);
      if ((RetVal = InputText ()) == FALSE)
         Save ();
   }

   return (RetVal);
}

VOID TMailEditor::Save ()
{
   CHAR *p, Temp[64];
   USHORT CloseBase = FALSE, First, Mapped;
   class TMsgBase *NetMail;
   class TAddress Address;

   if (Msg == NULL) {
      CloseBase = TRUE;

      if (Cfg->MailStorage == ST_JAM)
         Msg = new JAM (Cfg->MailPath);
      else if (Cfg->MailStorage == ST_SQUISH)
         Msg = new SQUISH (Cfg->MailPath);
      else if (Cfg->MailStorage == ST_FIDO)
         Msg = new FIDOSDM (Cfg->MailPath);
      else if (Cfg->MailStorage == ST_ADEPT)
         Msg = new ADEPT (Cfg->MailPath);
      else
         Log->Write ("!Invalid e-mail storage type");
   }


   if (Msg != NULL) {
      Msg->New ();
      Msg->Local = TRUE;

      if (Type == MAIL_FIDONET) {
         Address.Parse (ToAddress);
         if (Cfg->MailAddress.First () == TRUE) {
            if (Address.Zone == 0)
               Address.Zone = Cfg->MailAddress.Zone;
            if (Address.Net == 0)
               Address.Net = Cfg->MailAddress.Net;

            Address.Add ();
            Address.First ();
            strcpy (Msg->ToAddress, Address.String);

            strcpy (Msg->FromAddress, Cfg->MailAddress.String);
            Mapped = FALSE;
            do {
               if (Address.Zone == Cfg->MailAddress.Zone) {
                  strcpy (Msg->FromAddress, Cfg->MailAddress.String);
                  Mapped = TRUE;
                  break;
               }
            } while (Cfg->MailAddress.Next () == TRUE);
            if (Mapped == FALSE)
               Cfg->MailAddress.First ();

            First = TRUE;
            if (Address.Zone != Cfg->MailAddress.Zone) {
               sprintf (Temp, "\001INTL %u:%u/%u %u:%u/%u", Address.Zone, Address.Net, Address.Node, Cfg->MailAddress.Zone, Cfg->MailAddress.Net, Cfg->MailAddress.Node);
               if (First == TRUE) {
                  p = (PSZ)Text.First ();
                  Text.Insert (Temp, (USHORT)(strlen (Temp) + 1));
                  if (p != NULL) {
                     Text.Insert (p, (USHORT)(strlen (p) + 1));
                     Text.First ();
                     Text.Remove ();
                  }
                  First = FALSE;
               }
               else
                  Text.Insert (Temp, (USHORT)(strlen (Temp) + 1));
            }
            if (Cfg->MailAddress.Point != 0) {
               sprintf (Temp, "\001FMPT %u", Cfg->MailAddress.Point);
               if (First == TRUE) {
                  p = (PSZ)Text.First ();
                  Text.Insert (Temp, (USHORT)(strlen (Temp) + 1));
                  if (p != NULL) {
                     Text.Insert (p, (USHORT)(strlen (p) + 1));
                     Text.First ();
                     Text.Remove ();
                  }
                  First = FALSE;
               }
               else
                  Text.Insert (Temp, (USHORT)(strlen (Temp) + 1));
            }
            if (Address.Point != 0) {
               sprintf (Temp, "\001TOPT %u", Address.Point);
               if (First == TRUE) {
                  p = (PSZ)Text.First ();
                  Text.Insert (Temp, (USHORT)(strlen (Temp) + 1));
                  if (p != NULL) {
                     Text.Insert (p, (USHORT)(strlen (p) + 1));
                     Text.First ();
                     Text.Remove ();
                  }
                  First = FALSE;
               }
               else
                  Text.Insert (Temp, (USHORT)(strlen (Temp) + 1));
            }
            sprintf (Temp, "\001MSGID: %s %08lx", Cfg->MailAddress.String, time (NULL));
            if (First == TRUE) {
               p = (PSZ)Text.First ();
               Text.Insert (Temp, (USHORT)(strlen (Temp) + 1));
               if (p != NULL) {
                  Text.Insert (p, (USHORT)(strlen (p) + 1));
                  Text.First ();
                  Text.Remove ();
               }
               First = FALSE;
            }
            else
               Text.Insert (Temp, (USHORT)(strlen (Temp) + 1));

            sprintf (Temp, "\001PID: %s", NAME_OS);
            Text.Insert (Temp, (USHORT)(strlen (Temp) + 1));
         }
      }

      strcpy (Msg->From, UserName);
      strcpy (Msg->To, To);
      strcpy (Msg->Subject, Subject);

      if (Type != MAIL_INTERNET) {
         strlwr (Msg->To);
         Msg->To[0] = (CHAR)toupper (Msg->To[0]);
         p = Msg->To;
         while ((p = strchr (p, ' ')) != NULL) {
            p++;
            *p = (CHAR)toupper (*p);
         }
         p = Msg->To;
         while ((p = strchr (p, '-')) != NULL) {
            p++;
            *p = (CHAR)toupper (*p);
         }
         p = Msg->To;
         while ((p = strchr (p, '.')) != NULL) {
            p++;
            *p = (CHAR)toupper (*p);
         }
      }

      Msg->Arrived.Day = Msg->Written.Day = d_date.day;
      Msg->Arrived.Month = Msg->Written.Month = d_date.month;
      Msg->Arrived.Year = Msg->Written.Year = (USHORT)d_date.year;
      Msg->Arrived.Hour = Msg->Written.Hour = d_time.hour;
      Msg->Arrived.Minute = Msg->Written.Minute = d_time.minute;
      Msg->Arrived.Second = Msg->Written.Second = d_time.second;

      Msg->Private = Private;

      Msg->Add (Text);
      Number = Msg->Highest ();

      if (Type == MAIL_FIDONET) {
         NetMail = NULL;
         if (Cfg->NetMailStorage == ST_JAM)
            NetMail = new JAM (Cfg->NetMailPath);
         else if (Cfg->NetMailStorage == ST_SQUISH)
            NetMail = new SQUISH (Cfg->NetMailPath);
         else if (Cfg->NetMailStorage == ST_FIDO)
            NetMail = new FIDOSDM (Cfg->NetMailPath);
         else if (Cfg->NetMailStorage == ST_ADEPT)
            NetMail = new ADEPT (Cfg->NetMailPath);
         if (NetMail != NULL) {
            if (Msg->Read (Number) == TRUE)
               NetMail->Add (Msg);
            delete NetMail;
         }
      }

      Log->Write (":Written e-mail message #%lu", Number);
      Embedded->Printf ("\n\x16\x01\x0E<<< CONFIRMED: E-MAIL MESSAGE #%ld WRITTEN TO DISK >>>\n\006\007\006\007", Number);
   }

   if (CloseBase == TRUE && Msg != NULL)
      delete Msg;
}

USHORT TMailEditor::Write ()
{
   FILE *fp;
   USHORT RetVal = FALSE, Continue = TRUE;

   _dos_getdate (&d_date);
   _dos_gettime (&d_time);

   if (Type == MAIL_FIDONET) {
      Embedded->Printf ("\n\026\001\014You are entering a message into an \026\001\015E-MAIL \026\001\014area to someone\n");
      Embedded->Printf ("on another \026\001\015FidoNet \026\001\014BBS.\n\n");
   }
   else if (Type == MAIL_INTERNET) {
      Embedded->Printf ("\n\026\001\014You are entering a message into an \026\001\015E-MAIL \026\001\014area to someone\n");
      Embedded->Printf ("on another \026\001\015Internet \026\001\014site.\n\n");
   }
   else if (Type == MAIL_LOCAL) {
      Embedded->Printf ("\n\026\001\014You are entering a message into an \026\001\015E-MAIL \026\001\014area to someone\n");
      Embedded->Printf ("on \026\001\015this \026\001\014system.\n\n");
   }

   Embedded->Printf ("\026\001\003   From: \026\001\016%s\n", UserName);

   if (To[0] == '\0')
      Continue = InputTo ();
   else
      Embedded->Printf ("\026\001\003     To: \026\001\016%s\n", To);

   if (Type == MAIL_FIDONET) {
      if (Continue == TRUE && Embedded->AbortSession () == FALSE)
         Continue = InputAddress ();
   }

   if (Continue == TRUE && Embedded->AbortSession () == FALSE) {
      if (Subject[0] == '\0')
         InputSubject ();
      else
         Embedded->Printf ("\026\001\003Subject: \026\001\016%s\n", Subject);
   }

   Embedded->Printf ("\n\026\001\017Private");
   if (Embedded->GetAnswer (ASK_DEFYES) == ANSWER_YES)
      Private = TRUE;

   if (Continue == TRUE && Embedded->AbortSession () == FALSE) {
      Text.Clear ();
      if (UseFullScreen == TRUE) {
         if (Cfg->MailStorage == ST_JAM)
            Msg = new JAM (Cfg->MailPath);
         else if (Cfg->MailStorage == ST_SQUISH)
            Msg = new SQUISH (Cfg->MailPath);
         else if (Cfg->MailStorage == ST_FIDO)
            Msg = new FIDOSDM (Cfg->MailPath);
         else if (Cfg->MailStorage == ST_ADEPT)
            Msg = new ADEPT (Cfg->MailPath);
         if (Msg != NULL) {
            Number = Msg->Number () + 1L;
            delete Msg;
            Msg = NULL;
         }
         if (Cfg->ExternalEditor == TRUE && Cfg->EditorCmd[0] != '\0') {
            // Scrive il file msginf contenente le informazioni sul mittente e destinatario
            // del messaggio che si sta scrivendo.
            if ((fp = fopen ("msginf", "wt")) != NULL) {
               fprintf (fp, "%s\n", UserName);
               fprintf (fp, "%s\n", To);
               fprintf (fp, "%s\n", Subject);
               fprintf (fp, "%s\n", "1");
               fprintf (fp, "%s\n", AreaTitle);
               fprintf (fp, "%s\n", "NO");
               fclose (fp);
            }
            if (ExternalEditor (Cfg->EditorCmd) == TRUE)
               Save ();
            else
               Embedded->Printf ("\n\026\001\014Message aborted!\n");
            unlink ("msginf");
         }
         else {
            if (FullScreen () == TRUE)
               Save ();
            else
               Embedded->Printf ("\n\026\001\014Message aborted!\n");
         }
      }
      else {
         Embedded->Printf ("\n\x16\x01\012Type your message now. When done, type '\x16\x01\x0B/OK\x16\x01\012' on a line by itself.\n(Or, type '\x16\x01\x0B/SAVE\x16\x01\012' to save and proceed, without editing).\n\n    �\031�%c�\n", Width - 10);
         if ((RetVal = InputText ()) == FALSE)
            Save ();
      }
   }

   if (Continue == FALSE)
      Embedded->Printf ("\n\026\001\014Message aborted!\n");

   return (RetVal);
}