.ENABLE SUBSTITUTION
.ASKS SRC SYSGEN NUMBER ( 0 - # ) ?
.IF <STRLEN> = 0 .GOTO EXIT
.SETS SRC3 "'SRC'00"
.ASKS SYS SYSTEM NUMBER (01 - ##) ?
.IF <STRLEN> = 0 .GOTO EXIT
.IF <STRLEN> = 1 .SETS SYS "0'SYS'"
.SETS SYST "'SRC''SYS'"
.SETT COP
.ASK DEL DELETE OLD RSX'SYST'.SYS?
.IFT DEL PIP RSX'SYST'.SYS;*/DE
.IFT DEL .GOTO NEW
.ASK REN RENAME RSX'SYST'.SYS TO RSX'SYST'.OLD?
.IFT REN PIP RSX'SYST'.OLD=RSX'SYST'.SYS;*/RE
.IFT REN .GOTO NEW
.ASK COP COPY NEW RSX'SYST'.SYS?
.NEW:
.IFT COP PIP RSX'SYST'.SYS/NV/CO/BL:482.=[1,54]RSX'SRC3'.TSK
.TESTFILE RSX'SYST'.STB
.IF <FILERR> NE 1 PIP RSX'SYST'.STB;1=[1,54]RSX'SRC3'.STB
.TESTFILE PAR'SYST'.VMR
.IF <FILERR> NE 1 MAK PAR'SYST'.VMR
.ASK TEC TECO PAR'SYST'.VMR?
.IFT TEC TEC PAR'SYST'.VMR
.TESTFILE INS'SYST'.VMR
.IF <FILERR> NE 1 MAK INS'SYST'.VMR
.ASK TEC TECO INS'SYST'.VMR?
.IFT TEC TEC INS'SYST'.VMR
.TESTFILE SET'SYST'.VMR
.IF <FILERR> NE 1 MAK SET'SYST'.VMR
.ASK TEC TECO SET'SYST'.VMR?
.IFT TEC TEC SET'SYST'.VMR
.ASK GO VMR RSX'SYST' NOW?
.IFF GO .GOTO EXIT
ASN SY:=LB:
VMR @PAR'SYST'.VMR
.IF <EXSTAT> = 1 .GOTO V2
.ASK CN CONTINUE
.IFF CN .GOTO EX
.V2:
VMR @INS'SYST'.VMR
.IF <EXSTAT> = 1 .GOTO V3
.ASK CN CONTINUE
.IFF CN .GOTO EX
.V3:
VMR @SET'SYST'.VMR
.EX:
.EXIT:
