TEXT
.PROC,TEXT*I,\
MFT     ' MAINFRAME TYPE OR 0                  '=(*N=0,0,71,72,73,
          74,76,171,172,173,174,175,176,720,730,740,750,760,810,815,
          825,830,835,840,845,850,855,860,865,870,875,960,990,994,995,
          1=810,2=835,3=172,4=760,5=875,6=810,7=835,8=172,9=760,
          10=875),
CSET    ' CHARACTER SET                        '=(*N=C64,C64,A64,C63, 
          A63,1=C64,2=C64,3=C64,4=C64,5=C64,6=A64,7=A64,8=A64,9=A64,
          10=A64),
ECS     ' IP.MECS OPTION ALLOWED     (NO/YES)  '=(*N=YES,NO,YES,*K=YES),
*CALL COMPC 
*CALL COMUSER 
*CALL COMLIST 
*CALL COMTOB
*CALL COMIA 
*CALL COMTOL
*CALL COMD1 
*CALL COMPROC 
. 
  
* TEXT - PRODUCT SET TEXT FILES 
*CALL     PSRLEV
* 
  
.*
.*  START TEXT VIA SUBPROC. 
.*
BEGIN(SUBPROC,INSTALL,TEXT,,LIST,MAPTYPE,IA,TOBLD,TOLIST,USERF) 
REVERT.        TEXT.
EXIT. 
REVERT(ABORT)  TEXT.
  
  
.DATA,ZZZPROC 
.PROC,TEXT. 
*CALL     PSRLEV
* 
* #MFT  PARAMETER VALUE IS MFT
* #CSET PARAMETER VALUE IS CSET 
* #ECS  PARAMETER VALUE IS ECS
* 
BEGIN(PRDIN,INSTALL,PRDNAME=TEXT,#PN=PN,#PR=PR,DISK=0)
RETURN(UMOD)
NOTE(UMOD,NR)+*IDENT,#MFT=MFT 
NOTE(UMOD,NR)+*I,IPARAMS.15 
.IF, ( $ECS$ .EQ. $YES$ ) ,TEXT1. 
NOTE(UMOD,NR)+ IP.MECS EQU 1
.ENDIF(TEXT1) 
.IF, ( $MFT$ .EQ. $71$ .OR. $MFT$ .EQ. $171$ ) ,TEXT2.
NOTE(UMOD,NR)+ MODEL    MICRO  1,,*MFT* 
NOTE(UMOD,NR)+ HF.#LIST  MICRO  1,,*PS* 
.ELSE(TEXT2)
.IF, ( $MFT$ .EQ. $72$ .OR. $MFT$ .EQ. $73$ .OR. $MFT$ .EQ. $172$ .OR.
      $MFT$ .EQ. $173$ .OR. $MFT$ .EQ. $174$ .OR. $MFT$ .EQ. $720$ .OR. 
      $MFT$ .EQ. $730$ ) ,TEXT2.
NOTE(UMOD,NR)+ MODEL    MICRO  1,,*MFT* 
NOTE(UMOD,NR)+ HF.#LIST  MICRO  1,,*C,PS* 
NOTE(UMOD,NR)+ IP.CMU   EQU    1
.ELSE(TEXT2)
.IF, ( $MFT$ .EQ. $74$ ) ,TEXT2.
NOTE(UMOD,NR)+ MODEL    MICRO  1,,*74*
NOTE(UMOD,NR)+ HF.#LIST  MICRO  1,,*P74,S7* 
.ELSE(TEXT2)
.IF, ( $MFT$ .EQ. $175$ .OR. $MFT$ .EQ. $740$ .OR. $MFT$ .EQ. $750$ .OR.
      $MFT$ .EQ. $760$ ) ,TEXT2.
NOTE(UMOD,NR)+ MODEL    MICRO  1,,*MFT* 
NOTE(UMOD,NR)+ HF.#LIST  MICRO  1,,*P_MFT,S10*
.ELSE(TEXT2)
.IF, ( $MFT$ .EQ. $76$ ) ,TEXT2.
NOTE(UMOD,NR)+ MODEL    MICRO  1,,*76*
NOTE(UMOD,NR)+ HF.#LIST  MICRO  1,,*P76,S10,L,ES,PSD* 
.ELSE(TEXT2)
.IF, ( $MFT$ .EQ. $176$ ) ,TEXT2. 
NOTE(UMOD,NR)+ MODEL    MICRO  1,,*176* 
NOTE(UMOD,NR)+ HF.#LIST  MICRO  1,,*P176,S10,L,PSD* 
.ELSE(TEXT2)
.IF, ( $MFT$ .EQ. $810$ .OR. $MFT$ .EQ. $815$ .OR.
       $MFT$ .EQ. $825$ .OR. $MFT$ .EQ. $830$ ) ,TEXT2. 
NOTE(UMOD,NR)+ MODEL    MICRO  1,,*MFT* 
NOTE(UMOD,NR)+ HF.#LIST  MICRO  1,,*C,PS,CRW,L* 
NOTE(UMOD,NR)+ IP.CMU   EQU    1
.ELSE(TEXT2)
.IF, ( $MFT$ .EQ. $835$ .OR. $MFT$ .EQ. $840$ .OR.
       $MFT$ .EQ. $845$ .OR. $MFT$ .EQ. $850$ .OR.
       $MFT$ .EQ. $855$ .OR. $MFT$ .EQ. $860$ .OR.
       $MFT$ .EQ. $870$ .OR. $MFT$ .EQ. $960$ ) ,TEXT2. 
NOTE(UMOD,NR)+ MODEL    MICRO  1,,*MFT* 
NOTE(UMOD,NR)+ HF.#LIST  MICRO  1,,*PS,CRW,L* 
NOTE(UMOD,NR)+ IP.CMU   EQU    0
.ELSE(TEXT2)
.IF, ( $MFT$ .EQ. $865$ .OR. $MFT$ .EQ. $875$ ) ,TEXT2. 
NOTE(UMOD,NR)+ MODEL    MICRO  1,,*MFT* 
NOTE(UMOD,NR)+ HF.#LIST  MICRO  1,,*P_MFT,S10,CRW,L*
.ELSE(TEXT2)
.IF, ( $MFT$ .EQ. $990$ .OR. $MFT$ .EQ. $994$ .OR.
       $MFT$ .EQ. $995$ ) ,TEXT2. 
NOTE(UMOD,NR)+ MODEL    MICRO  1,,*MFT* 
NOTE(UMOD,NR)+ HF.#LIST  MICRO  1,,*P_MFT,S48,CRW,L*
.ENDIF(TEXT2) 
.IF, ( $CSET$ .EQ. $C64$ ) ,TEXT3.
NOTE(UMOD,NR)+ IP.#CSET  EQU    IP.C64.1
.ELSE(TEXT3)
.IF, ( $CSET$ .EQ. $A64$ ) ,TEXT3.
NOTE(UMOD,NR)+ IP.#CSET  EQU    IP.C64.2
.ELSE(TEXT3)
.IF, ( $CSET$ .EQ. $C63$ ) ,TEXT3.
NOTE(UMOD,NR)+ IP.C63   EQU    IP.C64.1 
NOTE(UMOD,NR)+ IP.#CSET  EQU    IP.C63
.ELSE(TEXT3)
.IF, ( $CSET$ .EQ. $A63$ ) ,TEXT3.
NOTE(UMOD,NR)+ IP.C63   EQU    IP.C64.2 
NOTE(UMOD,NR)+ IP.#CSET  EQU    IP.C63
.ENDIF(TEXT3) 
PACK(UMOD)
SKIPEI(USER)
COPYEI(UMOD,USER) 
BEGIN(UP,INSTALL,RANDOM,PCPL=CPRD,#PC=PC,#CC=CC,PCDECK=KPLA)
RFL(65000)
COMPASS(A,I,S=0,L=LIST) 
NOTE(IN);*RENAME OVL/PPTEXT,SPPTEXT 
LIBEDIT(P=LGO,B=0,I=IN,L=0) 
RENAME(LGO=NEW) 
BEGIN(PRDOUT,INSTALL,PRDNAME=TEXT,#PNO=PNO,#PRO=PRO)
RETURN(LIB) 
REWIND(LGO) 
COPYEI(LGO,GLOBLGO) 
BEGIN(GENDIR,INSTALL,LIB=56)
BEGIN(SAVELGO,INSTALL,PRDNAME=TEXT) 
BEGIN(END,INSTALL,#MFT=R1G+)
REVERT.  TEXT.
EXIT. 
REVERT(ABORT)  TEXT.
*WEOR 
