.;
.;		THIS INDIRECT COMMAND FILE CREATES A PIP /TB
.;		LISTING OF THE DESIRED UICS THEN COMPRESSES
.;		IT INTO A SHORT LISTING.
.;
.;		A SHORT DESCRIPTION OF EACH UIC IS PRINTED IF
.;		THERE IS A UIC.TXT FILE ON THE UIC WHICH HAS
.;		BEEN CREATED BY MAKUICTXT.CMD
.;
.;		WRITTEN JUNE 1980
.;			BY MARVIN BROWN (N.C.A.R.)
	.ENABLE SUBSTITUTION
	.ENABLE QUIET
	.ASKS UIC ENTER UIC(S) TO SCAN
	.TEST UIC
	.IF <STRLEN> < 3	.SETS UIC "*,*"
	.ASKS DEV ENTER DEVICE (DDNN)
	.TEST DEV
	.IF <STRLEN> < 3	.SETS DEV "'<SYDISK>''<SYUNIT>'"
	.SETS DEV DEV[1:3]
	.ASK Q CURRENT VERSIONS ONLY
	.SETS VERS ""
	.IFT Q		.SETS VERS "*.*"
	.ASK Q SORT THE UICS ON 'DEV':
	.IFT Q		SRD 'DEV':[0,0]/WB/-LI
	INS DF:[1,54]PIP/INC=3000./TASK=...POP/PRI=45.
	.IFNINS ...POP	INS $PIP/INC=3000./TASK=...POP/PRI=45.
	POP DIR'DEV'.TMP='DEV':['UIC']'VERS'/TB
	REM ...POP
	MUNG DIRLST,DIR'DEV'.LST=DIR'DEV'.TMP
	PIP DIR'DEV'.TMP;*/DE
	PIP DIR'DEV'.LST/TR
	PIP DIR'DEV'.LST/SP
