unit ECO_fido;
interface
uses
  dos, crt,
  unit_str, unit_fil,
  ECO_str,  ECO_ext

  ;

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;


function  packetname_                      :  string;
function  packetmessage_                   :  string;
function  packetheader_                    :  string;
function  netmessage_                      :  string;
function  getpath_(var fname : string)     : boolean;
function  getnet_(gn : string)             :  string;
function  getnode_(gn : string)            :  string;
function  msgdatestamp_                    :  string;
function  lastmsgnum_( _netpath : string ) : integer;
function  hex_ (n : word)                  :  string;
function  archivename_                     :  string;
procedure expandnodenumbers_(var list : string; var totalnumber : integer );
procedure convertnetnode_(netnode : string; var net, node : word);