Click above to get retro games delivered to your door ever month!

 SEG                       Get Segment of Variable                    pp 204

 Syntax:  Seg (VarName) ;

 Type:    Integer

 Form:    Function

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


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


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

       BEGIN
          IntVar  := Seg (VarName)  ;  { Get segment of VarName }
          Segment := Seg (Pointer)  ;  { Get segment of Pointer }
       END.