Changed directory structure.

[vlp.git] / doc / examples / mtest.log

diff --git a/doc/examples/mtest.log b/doc/examples/mtest.log
new file mode 100644 (file)
index 0000000..e84c53d
--- /dev/null
+++ b/doc/examples/mtest.log
@@ -0,0 +1,35 @@
+program mtest;
+
+#include "classes/machine.inc"
+
+unit Info: Machine procedure;
+var i:integer,t:array_of char, pom,pom1:NodeInfo;
+begin
+i:=LocalNode;
+writeln("Local node number: ",i);
+i:=NodesNum;
+writeln("Number of nodes: ",i);
+pom:=MachineInfo;
+if pom<>none then
+pom1:=pom;
+while pom1<>none do write(pom1.num,":");
+                   if pom1.addr<>none then 
+                  for i:=lower(pom1.addr) to upper(pom1.addr) do
+                     write(pom1.addr(i)); od;
+                  fi;
+                  writeln;
+                  pom1:=pom1.Next;           
+                            od;
+else
+writeln("t==none");
+fi;
+
+if NodeExists(5) then writeln("Node 5 exists");
+else writeln("There is no node number 5");
+fi;
+writeln;
+end Info;
+
+begin
+call Info;
+end.\80\80