	.ENABLE SUBSTITUTION
	.SETS AC "SY:"+<UIC>
	.IF P1 = "" .GOTO ASKDR
	.SETS DR P1
	.GOTO 10
.ASKDR:
	.ASKS [2:2] DR ENTER 2 CHARACTER DRIVER NAME
.10:
	.SETS LS "SY:"+<UIC>+"'DR'DRV"
	.SETS LSTB "SY:"+<UIC>+"'DR'TAB"
	.SETS LSTK "SY:"+<UIC>+"'DR'DRV"
	.IF P2 EQ "" .GOTO ASKLP1
	.IF P2 EQ "Y" .GOTO 20
	.IF P2 NE "N" .GOTO ASKLP1
	.SETS LS ""
	.GOTO 20
.ASKLP1:
	.ASK YN LIST DRIVER
	.IFF YN .SETS LS ""
.20:
	.IF P3 EQ "" .GOTO ASKLP2
	.IF P3 EQ "Y" .GOTO 30
	.IF P3 NE "N" .GOTO ASKLP2
	.SETS LSTB ""
	.GOTO 30
.ASKLP2:
	.ASK YN LIST TABLE
	.IFF YN .SETS LSTB ""
.30:
	.OPEN D1.CMD
	.ENABLE DATA
'DR'DRV,'LS'=LB:[1,1]EXEMC/ML,LB:[200,200]RSXMC/PA:1,'AC''DR'DRV
.DISABLE DATA
	.CLOSE D1.CMD
	.OPEN D2.CMD
	.ENABLE DATA
'DR'TAB,'LSTB'=LB:[1,1]EXEMC/ML,LB:[200,200]RSXMC/PA:1,'AC''DR'TAB
.DISABLE DATA
	.CLOSE D2.CMD
	.OPEN D3.CMD
	.ENABLE DATA
'DR'DRV/-HD/-MM,'LSTK','DR'DRV='DR'DRV,'DR'TAB
LB:[1,54]RSX11M.STB/SS,[1,1]EXELIB/LB
/
STACK=0
PAR=DRVPAR:120000:14000
//
.DISABLE DATA
	.CLOSE D3.CMD
MAC @D1
MAC @D2
	.IF P4 EQ "" .GOTO ASKOK
	.IF P4 EQ "Y" .GOTO 40
	.IF P4 EQ "N" .GOTO 100
.ASKOK:
	.ASK YN DRIVER AND TABLE ASSEMBLE OK
	.IFF YN .GOTO 100
.40:
PIP 'DR'DRV.*;*/PU
TKB @D3
.100:
PIP 'DR'DRV.*/PU,'DR'TAB.*
PIP D1.CMD;*/DE,D2.CMD;*,D3.CMD;*
;PIP LB:[1,54]/NV='DR'DRV.TSK,.STB
