LCS3
.PROC,LCS3*I,\
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD3 
*CALL COMPROC 
. 
* LCS3 - LANGUAGE CONVERSION SYSTEM 3.0 
*CALL     PSRLEV
* 
  
  
.*
.*  START LCS3 VIA SUBPROC. 
.*
BEGIN(SUBPROC,INSTALL,LCS3,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF) 
REVERT.        LCS3.
EXIT. 
REVERT(ABORT)  LCS3.
  
  
.DATA,ZZZPROC 
.PROC,LCS3. 
*CALL     PSRLEV
BEGIN(PRDIN,INSTALL,PRDNAME=LCS3,#PN=PN,#PR=PR) 
SKIPEI(USER)
NOTE(USER,NR)+*IDENT NOS+*DEFINE CBLCOPY+*/      END OF MODSET. 
PACK(USER)
BEGIN(UP,INSTALL,RANDOM=NO,PCDECK=LCP,PCPL=CPRD,#PC=PC,#CC=CC)
RFL(70000)
FTN(A,I,OPT=1,B=BIN,L=LIST) 
REWIND(BIN) 
LIBGEN(F=BIN,P=LCSLIBS,NX=1)
FTN(A,I,OPT=1,B=MASK,L=LIST)
BEGIN(GETULIB,INSTALL,FORTRAN,BAMLIB,SYSLIB)
BEGIN(LOCALLD,INSTALL)
LOADLDR.
LDSET(LIB=LCSLIBS/FORTRAN/BAMLIB,ERR=ALL,PRESET=ZERO) 
LOAD(MASK)
NOGO(LCS) 
BEGIN(ATTGLOB,INSTALL)
NOTE(IN)+*C SYNTAX
UPDATE(P=NEWER,Q,C=TAPE11,8,I=IN) 
NOTE(IN)+META 
LCS(,IN)
NOTE(IN)+*C COSYUPD.WEOR4 
UPDATE(P=NEWER,Q,I=IN)
FTN(A,I,OPT=1,B=COSY,L=LIST)
BEGIN(LOCALLD,INSTALL)
LOADLDR.
LDSET(ERR=ALL,PRESET=ZERO)
LOAD(COSY)
NOGO(COUP)
BEGIN(ATTGLOB,INSTALL)
NOTE(IN)+*C COPGEN
UPDATE(P=NEWER,Q,I=IN)
FTN(A,I,OPT=1,S=CPCTEXT,S=IOTEXT,B=COPY,L=LIST) 
BEGIN(LOCALLD,INSTALL)
LOADLDR.
LDSET(ERR=ALL,PRESET=ZERO)
LOAD(COPY)
NOGO(COPYCOB) 
REWIND(HOLD,NEWPL,LCS,TAPE10,COUP,COPYCOB)
REWIND(DISK)
SKIPF(DISK,5)SKIP TO BINARY DATA FILE 
COPYBF(NEWPL,HOLD)
COPYBF(LCS,HOLD)
COPYBF(TAPE10,HOLD) 
COPYBF(COUP,HOLD) 
COPYBF(COPYCOB,HOLD)
COPYEI(DISK,HOLD) 
RENAME(NEWPL=HOLD)
BEGIN(PRDOUT,INSTALL,PRDNAME=LCS3,#PNO=PNO,#PRO=PRO)
UNLOAD(DISK)
*  LCS3 DOES NOT GO ON *PRODUCT*
REVERT.  LCS3 
EXIT. 
REVERT(ABORT)  LCS3 
*WEOR 
