Seg                      Returns the Segment Address of a Variable

 Seg(var Item) : Integer;

    Returns the segment address of Item.

            Item    Any variable, including an array element or record
                    field; can also be a pointer if referenced--i.e.,
                    Seg(Item^).

  -------------------------------- Example ---------------------------------

           Segment := Seg(I);       { Get the segment }
           Offset  := Ofs(I);       { Get the offset within the segment }