examp/mtest.log

   1 program mtest;
   2
   3 #include "classes/machine.inc"
   4
   5 unit Info: Machine procedure;
   6 var i:integer,t:array_of char, pom,pom1:NodeInfo;
   7 begin
   8 i:=LocalNode;
   9 writeln("Local node number: ",i);
  10 i:=NodesNum;
  11 writeln("Number of nodes: ",i);
  12 pom:=MachineInfo;
  13 if pom<>none then
  14 pom1:=pom;
  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;
  19                   fi;
  20                   writeln;
  21                   pom1:=pom1.Next;
  22                             od;
  23 else
  24 writeln("t==none");
  25 fi;
  26
  27 if NodeExists(5) then writeln("Node 5 exists");
  28 else writeln("There is no node number 5");
  29 fi;
  30 writeln;
  31 end Info;
  32
  33 begin
  34 call Info;
  35 end.\80\80