*DECK LIBFET
          IDENT  LIBFET 
          TITLE  LIBFET -  FET FOR COPY LIBRARY 
          COMMENT  FET FOR COPY LIBRARY 
  
*CALL COBIOM
  
          SPACE  4
**        LIBFET -  FET FOR COPY LIBRARY
* 
*     USAGE-
*         *CALL SYSFET
*         (USE AS PARAMETER TO OPEN, GETWA, RETRN.
  
  
          USE    /FET/
          BSS    1                 INFET
          BSS    1                 OUTFET 
          CON    OLDPL             LIBFET 
          USE    *
  
 OLDPL    RFILEB FWA,PLBFS,(RTP=U)
 FWA      EQU    0           LET CMM ALLOCATE BUFFER
          SPACE  4
          END 
