FTN5
.PROC,FTN5*I,\
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD1 
*CALL COMX1 
*CALL COMPROC 
. 
  
* FTN5 - FTN 5
*CALL     PSRLEV
* 
  
.*
.*  START FTN5 VIA SUBPROC. 
.*
BEGIN(SUBPROC,INSTALL,FTN5,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF) 
REVERT.        FTN5.
EXIT. 
REVERT(ABORT)  FTN5.
  
  
.DATA,ZZZPROC 
.PROC,FTN5. 
*CALL     PSRLEV
BEGIN(PRDIN,INSTALL,PRDNAME=FTN5,#PN=PN,#PR=PR,DISK=0)
BEGIN(COMPCOM,INSTALL)
RENAME(AUXPL1=AUXPL)
BEGIN(PRDAUX,INSTALL,PRDNAME=CCG1,#PNO=PN1,#PRO=PR1)
BEGIN(UP,INSTALL,RANDOM,PCPL=CPRD,#PC=PC,#CC=CC,PCDECK=FC5,NUMAUX=2)
RENAME(RANDPL=NEWER)
NOTE(IN);*C CMPLTXT.WEOR2*,CGTM,MIO.BDT,CFA.UDT 
UPDATE(Q,C=CGII,P=AUXPL/RANDPL/AUXPL1,I=IN) 
RETURN(RANDPL,AUXPL,AUXPL1) 
COMPASS(A,I=CGII,S=IPTEXT,B=CTX,L=LIST) 
COMPASS(A,I=CGII,S=IPTEXT,B=GTX,L=LIST) 
COMPASS(A,I=CGII,S=CPUTEXT,G=GTX,B=REL,L=LIST)
RETURN(CGII,GTX)
COMPASS(A,I,S=CPUTEXT,S=IPTEXT,   B=FTX,L=LIST)   FTN5TXT - WEOR1*
COMPASS(A,I,S=PSSTEXT,S=CPUTEXT,G=FTX,B=REL,L=LIST) FTN    -WEOR2*
COMPASS(A,I,S=CPUTEXT,G=CTX,G=FTX,B=REL,L=LIST)   REC     - WEOR3*
COMPASS(A,I,S=CPUTEXT,G=FTX,G=CTX,B=REL,L=LIST)   CCGC    - WEOR4*
COMPASS(A,I,S=CPUTEXT,G=FTX,      B=FRAME,L=LIST) OVL00   - WEOR5*
RETURN(COMPILE,CTX,FTX) 
REWIND(FRAME) 
COPYLM(FRAME, REL, OVR,, R) 
BEGIN(GETULIB,INSTALL,SYSLIB) 
LDSET(ERR=ALL,PRESET=ZERO)
LDSET(PRESETA=NGINDEF)
LOAD(OVR) 
NOGO(LGO) 
BEGIN(PRDOUT,INSTALL,PRDNAME=FTN5,#PNO=PNO,#PRO=PRO)
RETURN(LIB) 
REWIND(LGO) 
COPYEI(LGO,GLOBLGO) 
BEGIN(GENDIR,INSTALL,LIB=28)
BEGIN(SAVELGO,INSTALL,PRDNAME=FTN5) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.  FTN5.
EXIT. 
REVERT(ABORT)  FTN5.
*WEOR 
