.;---------------------------------------------------------------------;
.;                                                                     ;
.;      S R D . C M D                                                  ;
.;                                                                     ;
.;---------------------------------------------------------------------;
.;      PROCEDURE FILE TO SORT AN ENTIRE DISK BY UFD                   ;
.;---------------------------------------------------------------------;
	.ENABLE QUIET
	.ENABLE SUBSTITUTION
	.SETS UIC <UIC>
	.ASKS DISK ENTER NAME OF DISK TO SORT (SY:)
	.IF DISK EQ "" .SETS DISK "SY:"
	PIP SRD.TMP='DISK'[0,0]/LI
	.OPENR SRD.TMP

.START: .READ UFD
	.IF <FILERR> NE 1 .GOTO EXIT
	.SETS S UFD[11:14]
	.IF S NE ".DIR" .GOTO START
	.SETS GRP UFD[3:5]
	.SETS MEM UFD[6:10]
	SET /UIC=['GRP','MEM']
	SRD 'DISK' /-LI/WB/NA
	.GOTO START

.EXIT:  SET /UIC='UIC'