type
  netmsg = record        { netmessage record structure }
    from,
    too        : string[35];
    subject    : string[71];
    date       : string[19];
    timesread,
    destnode,
    orignode,
    cost,
    orignet,
    destnet,
    replyto,
    attr,
    nextreply  : word;
    areaname   : string[20];
  end;

  pktheader = record        { packet header of packet }
    orignode,
    destnode,
    year,
    month,
    day,
    hour,
    minute,
    second,
    baud,
    orignet,
    destnet     : word;
  end;

  pktmessage = record        { packet header of each individual message }
    orignode,
    destnode,
    orignet,
    destnet,
    attr,
    cost        : word;
    date        : string[19];
    too         : string[35];
    from        : string[35];
    subject     : string[71];
    areaname    : string[20];
  end;

  archivename = record        { internal record structure used for     }
    mynet,       { determining the name of of an echomail }
    mynode,      { archive. i.e. 00fa1fd3.mo1             }
    hisnet,
    hisnode     : word;
  end;


const                        { attribute flags }
  _private  = $0001;
  _crash    = $0002;
  _recvd    = $0004;
  _sent     = $0008;
  _file     = $0010;
  _forward  = $0020;     { also know as in-transit }
  _orphan   = $0040;
  _killsent = $0080;
  _local    = $0100;
  _hold     = $0200;
  _freq     = $0800;

  months    : array[1..12] of string[3] = (
    'Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec'
  );


var
  net    :      netmsg;
  ph     :   pktheader;
  pm     :  pktmessage;
  arcn   : archivename;