FCL5
.PROC,FCL5*I,\
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD1 
*CALL COMPROC 
. 
  
* FCL5 - FORTRAN COMMON LIBRARY VERSION 5.
*CALL     PSRLEV
* 
  
.*
.*  START FCL5 VIA SUBPROC. 
.*
BEGIN(SUBPROC,INSTALL,FCL5,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF) 
REVERT.        FCL5.
EXIT. 
REVERT(ABORT)  FCL5.
  
  
.DATA,ZZZPROC 
.PROC,FCL5. 
*CALL     PSRLEV
BEGIN(PRDIN,INSTALL,PRDNAME=FCL5,#PN=PN,#PR=PR,DISK=0)
BEGIN(COMPCOM,INSTALL)
BEGIN(UP,INSTALL,RANDOM,PCPL=CPRD,#PC=PC,#CC=CC,PCDECK=FL5,NUMAUX=1)
COMPASS(A,I,S=IPTEXT,B=MTH5TXT,L=LIST)
REWIND(MTH5TXT) 
COPYBR(MTH5TXT,LGO) 
COMPASS(A,I,G=MTH5TXT,B=LIB,L=LIST) 
RETURN(MTH5TXT) 
COMPASS(A,I,S=IOTEXT,S=PSSTEXT,S=IPTEXT,B=FCL5TXT,L=LIST) 
REWIND(FCL5TXT) 
COPYBR(FCL5TXT,LGO,1) 
COPYBR(FCL5TXT,LIB,1) 
REWIND(FCL5TXT) 
COPYBR(FCL5TXT,FL5) 
COMPASS(A,I,S,S=IOTEXT,S=LDRTEXT,S=PSSTEXT,S=CPUTEXT,G=FL5,B=LIB,L=LIST)
COMPASS(A,I,S=IOTEXT,G=FCL5TXT,B=BIN,L=LIST)
LDSET(ERR=ALL,PRESET=ZERO)
LOAD(BIN) 
NOGO(CAPS)
REWIND(CAPS)
COPYBF(CAPS,LIB)
BEGIN(SAVELIB,INSTALL,LIB=LIB,LIBNAME=FTN5LIB)
BEGIN(PRDOUT,INSTALL,PRDNAME=FCL5,#PNO=PNO,#PRO=PRO)
BEGIN(GENDIR,INSTALL,LIB=28)
BEGIN(SAVELGO,INSTALL,PRDNAME=FCL5) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.  FCL5.
EXIT. 
REVERT(ABORT)  FCL5.
*WEOR 
