{------------------------------------------------------------------------
|
|
|------------------------------------------------------------------------}
CONST
  ParagraphMarker             = #20;
  EndOfTextMarker             = #3;
  MaxLines                    = 99;

TYPE

  TextLineType   = ARRAY [1..MaxLines] OF String[80];
  WAMMessagePointer = ^WAMMessageType;
  WAMMessageType = RECORD
    ToUser          : String[30];
    FromUser        : String[30];
    Subject         : String[60];
    Reference       : Word;
    Area            : Word;
    MsgDate         : String[10];
    MsgTime         : String[8];
    Echo            : Boolean;
    Private         : Boolean;
    Originator      : String[80];

    TextCnt         : Byte;
    TextLine        : TextLineType;
  END;