[Back to MAIL SWAG index] [Back to Main SWAG index] [Original]

    {
    LUCAS NEALAN

    > Does anyone have any code/specs (in Pascal preferred) of how to
    > manipulate the Version 6 FidoNet NodeList??
    }

    Type
      nodeflags =  { NODELIST.DAT status flags }
        (hub,      { node is a net hub }
         host,     { node is a net host }
         region,   { node is region coord }
         zone,     { node is a zone coord }
         cm,       { runs continuous mail }
         ores1,    { reserved For Opus }
         ores2,    { reserved For Opus }
         ores3,    { reserved For Opus }
         ores4,    { reserved For Opus }
         ores5,    { reserved For Opus }
         nores1,   { reserved For non-Opus }
         nores2,   { reserved For non-Opus }
         nores3,   { reserved For non-Opus }
         nores4,   { reserved For non-Opus }
         nores5,   { reserved For non-Opus }
         nores6    { reserved For non-Opus }
        );

      modemTypes = { NODELIST.DAT modem Type flags }
        (hst,      { node Uses a USRobotics HST modem }
         pep,      { node Uses a Telebit PEP modem }
         v32,      { node Uses a V.32 modem }
         v32b,     { node Uses a V.32bis modem }
         h96       { node Uses a Hayes Express96 modem }
        );

      nodedatarec = Record { NODELIST.DAT : Version 6 nodelist data }
        net      : Integer;               { net number }
        node     : Integer;               { node number }
        cost     : Integer;               { cost per minute to call }
        name     : Array [0..33] of Byte; { node name }
        phone    : Array [0..39] of Byte; { phone number }
        city     : Array [0..29] of Byte; { city and state }
        passWord : Array [0..7] of Byte;  { passWord }
        Realcost : Integer;               { phone company's Charge }
        hubnode  : Integer;               { node # of this node's hub (0=none) }
        rate     : Byte;                  { actual bps rate divided by 300 }
        modem    : set of modemTypes;     { modem Type codes }
        flags    : set of nodeflags;      { set of flags }
        res      : Array [1..2] of Byte;  { RESERVED }
      end;

      nodeindexrec = Record { NODELIST.IDX : Version 6 nodelist index }
        node : Integer;       { node number }
        net  : Integer;        { net number }
      end;

[Back to MAIL SWAG index] [Back to Main SWAG index] [Original]