1 unit Machine: IIUWGRAPH class;
4 var num:integer,addr:array_of char,
11 unit LocalNode:function:integer;
12 var res:array_of char;
14 res:=hfont8(501,0,0,0,"",0,0,0);
18 unit NodesNum:function:integer;
19 var res:array_of char;
21 res:=hfont8(502,0,0,0,"",0,0,0);
25 unit NodeExists:function(n:integer):boolean;
26 var res:array_of char;
28 res:=hfont8(503,n,0,0,"",0,0,0);
29 if ord(res(0))=1 then result:=TRUE;
30 else result:=FALSE;fi;
33 unit MachineInfo:function:NodeInfo;
34 var t,pomt:array_of char,c:char,i,j,k,l,m,n:integer,
37 t:=hfont8(504,0,0,0,"",0,0,0);
40 j:=upper(t);i:=lower(t);
43 while i<j and t(i)<>';' do i:=i+1;od;
44 l:=k; while t(l)<>'=' do l:=l+1; od;
45 if List=none then List:=new NodeInfo;
47 else pomi.Next:=new NodeInfo;
50 array pomi.addr dim (1:i-l-1);
51 for m:=l+1 to i-1 do pomi.addr(m-l):=t(m); od;
53 for m:=l-1 downto k do
54 pomi.num:=pomi.num+(ord(t(m))-48)*n;