SYSGEN3.CMD;2/-AU=SYSGEN3.OLD;1
.;	NAPC -- /CO TRANSFER, CLEANUP AT END, MAPS ON DISC
-199,206
	.ASKS $PRM MAP DEVICE FOR UTILITY TASKS (DDU:) [D: NL:]
	.IF $PRM EQ "" .SETS $PRM "NL:"
	.TEST $PRM
	.SETS TEMPS $PRM[<STRLEN>:<STRLEN>]
	.IF TEMPS NE ":" .SETS $PRM $PRM+":"
	ASN '$PRM'=MP:
	.IF $PRM EQ "LP:" .IFNLOA LP: .IFINS LOA LOA LP:
	.IF $PRM EQ "LP:" .OR .IF $PRM EQ "SY:" .OR .IF $PRM EQ "LB:" .GOTO 160
	.IF $PRM EQ "TI:" .OR .IF $PRM EQ "TT:" .OR .IF $PRM EQ "NL:" .GOTO 160
	.ASK $MPM IS '$PRM' MOUNTED AS A FILES-11 VOLUME WITH UFD [1,3'$S']
	.IFT $MPM .GOTO 160
;
;  WE WILL PAUSE NOW TO ALLOW YOU TO MOUNT AND/OR UFD '$PRM'
	.PAUSE
-210,211
-233,233
	.SETS DO "/CO/NV"
-524
	PIP LB:[200,200]COPYNEW.CMD;*/DE,COPYDIAG.CMD;*
	ASN =
	SET /UIC=[200,200]
/