Addr function 

  DECLARATION:  Addr(X)

      PURPOSE:  Returns the address of a specified object.

         UNIT:  System

  RESULT TYPE:  Pointer

      REMARKS:  Like NIL, the result of Addr is assignment compatible
                with all pointer types.  The Argument can be a procedure,
                function, or any variable type.

                NOTE:  This will produce the same results as the @ operator.

      EXAMPLE:  Var
                   ptr : Pointer;
                   TextString   : String[25];

                Begin
                   TextString := 'This is a test of Addr';
                   ptr := Addr(TextString);
                End.