Contributor: LUCAS NEALAN
{
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;