Function  GetAdr( procedure p):Word
  	;
   EXTERNAL;
{*USER*
  Returns the value of global symbol "p". "P" must be declared as
an external procedure in the calling program, as follows:
 
  Procedure P;External;   -- "P" is the global symbol in question
  begin
  i := GetAdr(p);  -- i is set to global value of symbol "p"
  end
 
}