Program tstRIP;

USES NwMisc,NwIPX,NwRIP;

Var ripInfo:TRIPinfo;
    k,n    :word;
    NetAddr:TnetworkAddress;
begin
IF NOT IPXinitialize
 then begin
      writeln('IPX must be loaded before this program can be ran.');
      halt(1);
      end;
FillChar(NetAddr,4,#$0);   { own segment }
n:=GetAllNetworks(NetAddr,ripInfo);

writeln;
writeln('MAIN: ',n,' network segment(s) found.');
writeln('Dumping the RIP tables of all found segments...');
writeln;

writeln('NetAddr  Tcks Hops');
for k:=1 to n
 do begin
    write(HexDumpStr(ripinfo[k].address,8));
    write(' ',ripinfo[k].ticks:4);
    writeln(' ',ripinfo[k].hops:4);
    end;
writeln('End of RIP table dump.');
end.