# INSERT SUBROUTINES AT START OF LIBRARY
CE !
IF EXI(%A), GO 1EXISTS  
CE %A(*DA,KWOR1,BUCK1)  
IN !,T****  
      CDF      SUBGROUPSRB1,0,0,0   
      IDF      SUBROUTINES,0
      ISG      0,SUBR,1,ED  
      F 
****
GO 1DO  

1EXISTS 
IN !, T**** 
      UDF      SUBGROUPSRB1,0,0,0   
      IDF      SUBROUTINES,0

      ISG      0,SUBR,1,ED  
      F 
****
1DO 
DISCSUB *CR !, EDLIB %A, *ED %B 
ER !

