*DECK TXTPUTI 
USETEXT COMCBEG 
USETEXT COMCAPR 
USETEXT COMCCAE 
USETEXT COMQDEF 
USETEXT COMQTXT 
    PROC TXTPUTI(BUFFER,TEXTFWA); 
      BEGIN    # TXTPUTI #
# 
**    TXTPUTI    OBTAIN AND INITIALIZE EMPTY TEXT BUFFER. 
* 
*     PROC TXTPUTI(BUFFER,TEXTFWA)
* 
*     ENTRY      ACN = AFT ENTRY INDEX. 
* 
*     EXIT       BUFFER = POINTER TO TEXT BUFFER
*                TEXTFWA = POINTER TO START OF TEXT AREA. 
* 
*     PROCESS    SEE ENTRY/EXIT.
# 
  
      ITEM BUFFER     U;           # POINTER TO TEXT BUFFER # 
      ITEM TEXTFWA    U;           # POINTER TO TEXT AREA # 
  
# 
****  XREF
# 
      XREF
        BEGIN 
        PROC NAME;                 # DEBUG CODE # 
        PROC TXTGBUF;              # GET EMPTY TEXT BUFFER #
        END 
  
# 
****  XREF END
# 
  
  
  
        $BEGIN
        NAME("TXTPUTI");
        $END
  
      TXTGBUF;   # GET EMPTY TEXT BUFFER #
      TXTBUF$USE = 0; 
      BUFFER = P<TXTBUF>; 
      TEXTFWA = LOC(TXTBUF$TXT);
  
      END  # TXTPUTI #
    TERM
