TEXTIO
.PROC,TEXTIO*I,\
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD1 
*CALL COMPROC 
. 
  
* TEXTIO - PRODUCT SET TEXT I/O 
*CALL     PSRLEV
* 
  
.*
.*  START TEXTIO VIA SUBPROC. 
.*
BEGIN(SUBPROC,INSTALL,TEXTIO,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF) 
REVERT.        TEXTIO.
EXIT. 
REVERT(ABORT)  TEXTIO.
  
  
.DATA,ZZZPROC 
.PROC,TEXTIO. 
*CALL     PSRLEV
BEGIN(PRDIN,INSTALL,PRDNAME=TXIO,#PN=PN,#PR=PR,DISK=0)
BEGIN(UP,INSTALL,RANDOM,PCPL=CPRD,#PC=PC,#CC=CC,PCDECK=KPLB)
RFL(65000)
COMPASS(A,I,S=0,L=LIST) 
COMPASS(A,I,S=IPTEXT,S=CPUTEXT,B=LIB,L=LIST)
  
* SINCE REL/RECOVR IS CREATED BY BAM, DELETE THE
* ONE PRODUCED BY TEXTIO
  
LIBEDIT(P=LIB,B=0,C,Z,L=0);*D,REL/RECOVR
  
BEGIN(SAVELIB,INSTALL,LIB=LIB,LIBNAME=SYSLIB) 
BEGIN(PRDOUT,INSTALL,PRDNAME=TXIO,#PNO=PNO,#PRO=PRO)
REWIND(LGO) 
COPYEI(LGO,GLOBLGO) 
BEGIN(GENDIR,INSTALL,LIB=57)
BEGIN(SAVELGO,INSTALL,PRDNAME=TXIO) 
BEGIN(END,INSTALL,MFT=R1G+) 
REVERT.  TEXTIO.
EXIT. 
REVERT(ABORT)  TEXTIO.
*WEOR 
