OFS                        Get Offset of Variable                    pp 204

 Syntax:  Ofs (VarName) ;

 Type:    Integer

 Form:    Function

 Purpose: Returns the offset of VarName in its memory segment.


 ----------------------------------------------------------------------------


 Usage:
       VAR
          IntVar  : Integer         ;
          Offset  : Integer         ;
          VarName : Integer         ;
          Pointer :^Integer         ;

       BEGIN
          IntVar  := Ofs (VarName)  ;  { Get segment offset of VarName }
          Offset  := Ofs (Pointer)  ;  { Get segment offset of Pointer }
       END.