.ENABLE SUBSTITUTION
	.ENABLE ESCAPE
	.SETN N 0
	.SETS COMMA ","
	.SETS LB "["
	.SETS RB "]"
	.SETS TEN "10"
	.SETS UIC <UIC>
;
.; -------------------------------
.; DETERMINE IF USER IS PRIVILEGED
	.IF COMMA EQ UIC[5:5] .GOTO 10
	.IF COMMA NE UIC[4:4] .GOTO 20
	.IF TEN EQ UIC[2:3] .GOTO 20
.10:	;
	; Sorry, but you must be logged-on
	; privileged to run this command file.
	.GOTO 200
.;
.; ------------------------------
.; DETERMINE IF UCC-APT IS ACTIVE
.20:	.IFACT UNC    .GOTO 100
	.IFACT UNCMON .GOTO 100
	.IFACT UNC100 .GOTO 100
	.IFACT UNC110 .GOTO 100
	.IFACT UNC120 .GOTO 100
	.IFACT UNC122 .GOTO 100
	.IFACT UNC124 .GOTO 100
	.IFACT UNC130 .GOTO 100
	.IFACT UNCLNK .GOTO 100
	.IFACT UNCLK1 .GOTO 100
	.IFACT UNCREF .GOTO 100
	;
	.GOTO 75
.50:	;
	; Please enter the UIC from which to delete
	; the scratch files.  A carriage return
	; will default to your current UIC.
	;
.75:	.ASKS UIC UIC [G,M]
	.IFT <ESCAPE>        .GOTO 50
	.IF  UIC      EQ "?" .GOTO 50
	.TEST UIC
	.SETN N <STRLEN>
	.IF N EQ 0 .GOTO 90
	.IF LB NE UIC[1:1] .GOTO 75
	.IF RB NE UIC[N:N] .GOTO 75
.90:	PIP XX00:'UIC'*.XXX;*/DE/NM,*.XPR;*,*.XPU;*,*.XPL;*
	PIP NC00:[100,000]UNC.QUE/UN/NM,.SYS
	RUN UNCCLR
	.GOTO 200
.100:	;
	; Sorry, but UCCAPT must be aborted
	; before running this command file.
.200:	;