3 #include "classes/machine.inc"
5 unit Info: Machine procedure;
6 var i:integer,t:array_of char, pom,pom1:NodeInfo;
9 writeln("Local node number: ",i);
11 writeln("Number of nodes: ",i);
15 while pom1<>none do write(pom1.num,":");
16 if pom1.addr<>none then
17 for i:=lower(pom1.addr) to upper(pom1.addr) do
18 write(pom1.addr(i)); od;
27 if NodeExists(5) then writeln("Node 5 exists");
28 else writeln("There is no node number 5");