*DECK TXTGET
USETEXT COMCBEG 
USETEXT COMCAPR 
USETEXT COMCCAE 
USETEXT COMQDEF 
USETEXT COMQTXT 
    PROC TXTGET( (BUFFER),TEXTFWA,TEXTLENGTH);
      BEGIN    # TXTGET # 
# 
**    TXTGET     GET TEXT FROM TEXT BUFFER. 
* 
*     PROC TXTGET( (BUFFER),TEXTFWA,TEXTLENGTH) 
* 
*     ENTRY      BUFFER = POINTER TO TEXT BUFFER. 
* 
*     EXIT       TEXTFWA = POINTER TO TEXT. 
*                TEXTLENGTH = LENGTH OF TEXT IN CHARACTERS. 
* 
*     PROCESS    SEE ENTRY/EXIT.
# 
  
      ITEM BUFFER     U;           # POINTER TO BUFFER #
      ITEM TEXTFWA    U;           # POINTER TO TEXT #
      ITEM TEXTLENGTH U;           # LENGTH OF TEXT # 
  
# 
****  XREF
# 
      XREF
        BEGIN 
        PROC NAME;                 # DEBUG CODE # 
        END 
  
# 
****  XREF END
# 
  
  
  
        $BEGIN
        NAME("TXTGET"); 
        $END
  
      P<TXTBUF> = BUFFER;          # POINT TO BUFFER #
      TEXTFWA = LOC(TXTBUF$TXT);
      TEXTLENGTH = TXTBUF$USE;
  
      END  # TXTGET # 
    TERM
