	.ENABLE SUBSTITUTION
	.ENABLE GLOBAL
	.DISABLE LOWERCASE
	.IFNDF MPL .SETF MPL
	.IFT <IAS> .GOTO 10
	;
	; This procedure will move the desired DECnet-11M/S/M-PLUS
	; HELP files to the target system''s LB: device.
	;
	.GOTO 20
.10:	;
	; This procedure will move the desired DECnet-IAS Help Files
	; to your target system''s LB: device
	;
.20:	.SETS OLDUIC <UIC>
	.SETF CFE
	.SETF FTS
	.SETF NCP
	.SETF NDA
	.SETF NFT
	.SETF VNP
	.ASKS IN On what device is NETHLP.ULB (DDUU)
	.TEST IN
	.IF IN NE "" .IFT <ALPHAN> .SETS IN "'IN':"
	.ASKS OUT Target system''s "LB:" device (DDUU)
	.TEST OUT
	.IF OUT NE "" .IFT <ALPHAN> .SETS OUT "'OUT':"
	.SETS TMPS ""
	.IFF MPL .SETS TMPS ", VNP"
.IFF <IAS>	.ASK ALL Do you want all the HELP files (CFE, FTS, NCP, NDA, NFT'TMPS')
.IFT <IAS>	.ASK ALL Do you want all the HELP files (CFE, NCP, NDA, NFT)
	.IFF ALL .GOTO 10
	.SETT CFE
	.IFF <IAS> .SETT FTS
	.SETT NCP
	.SETT NDA
	.SETT NFT
	.IFF <IAS> .IFF MPL .SETT VNP
	.GOTO 20
.10:	; Do you want HELP for -
	.ASK CFE 	CFE
	.IFF <IAS> .ASK FTS 	FTS
	.ASK NCP 	NCP
	.ASK NDA 	NDA
	.ASK NFT 	NFT
	.IFF <IAS> .IFF MPL .ASK VNP 	VNP
.20:	;
	.IF <UIC> NE "[1,2]" SET /UIC=[1,2]
	.IFT CFE LBR 'OUT'CFE='IN'NETHLP.ULB/EX:CFE
	.IFT CFE LBR 'OUT'CFEDEF='IN'NETHLP.ULB/EX:CFEDEF
	.IFT CFE LBR 'OUT'CFELIS='IN'NETHLP.ULB/EX:CFELIS
	.IFT FTS LBR 'OUT'FTS='IN'NETHLP.ULB/EX:FTS
	.IFT NCP LBR 'OUT'NCP='IN'NETHLP.ULB/EX:NCP
	.IFT NCP LBR 'OUT'NCPCLE='IN'NETHLP.ULB/EX:NCPCLE
	.IFT NCP LBR 'OUT'NCPLOA='IN'NETHLP.ULB/EX:NCPLOA
	.IFT NCP LBR 'OUT'NCPLOO='IN'NETHLP.ULB/EX:NCPLOO
	.IFT NCP LBR 'OUT'NCPSET='IN'NETHLP.ULB/EX:NCPSET
	.IFT NCP LBR 'OUT'NCPSHO='IN'NETHLP.ULB/EX:NCPSHO
	.IFT NCP LBR 'OUT'NCPTRI='IN'NETHLP.ULB/EX:NCPTRI
	.IFT NCP LBR 'OUT'NCPZER='IN'NETHLP.ULB/EX:NCPZER
	.IFT NDA LBR 'OUT'NDA='IN'NETHLP.ULB/EX:NDA
	.IFT NFT LBR 'OUT'NFT='IN'NETHLP.ULB/EX:NFT
	.IFT VNP LBR 'OUT'VNP='IN'NETHLP.ULB/EX:VNP
	.IFT VNP LBR 'OUT'VNPCLE='IN'NETHLP.ULB/EX:VNPCLE
	.IFT VNP LBR 'OUT'VNPSET='IN'NETHLP.ULB/EX:VNPSET
	.IFT VNP LBR 'OUT'VNPSHO='IN'NETHLP.ULB/EX:VNPSHO
	.IF OLDUIC NE "[1,2]" SET /UIC='OLDUIC'
