NAME: ADDR

     USE:  Function to return the address of a specified object;
           This will produce the same results as the @ operator.
           The Argument can be a procedure, function, or any
           variable type.

     DEPENDENCY:  None

     SYNTAX:  PointerVariable := Addr(Identifier);

     RESULT: Pointer

     EXAMPLE:       Program AddrTest;
                    Var
                       PtrValue : Pointer;
                       Answer   : String;

                    Begin
                       Answer := 'This is a test of Addr';
                       PtrValue := Addr(Answer);
                    end.