.;	BRUGETDID.CMD	CREATED	16-SEP-81	K.BETHE
.;
.;	GET THE DISK ID INFORMATION
.;
.;	INPUTS
.;		$ODSK,$ODRV	DISK TYPE AND DRIVE
.;	OUTPUTS
.;		$DID	DECIMAL NUMERIC VARIABLE = THE DISK ID
.;		$FMTON,$BADON = "UNKNOWN" OR DATE & TIME FORMATTED + BADDED
.;
.ENABLE GLOBAL
.ENABLE SUBSTITUTION
.ASKN[0:999.] DID PLEASE ENTER PACK ID NUMBER FOR '$ODSK''$ODRV':
.SETS FMTON "UNKNOWN"
.SETS BADON FMTON
.TESTFILE '$ODSK''$ODRV':DISK.ID
.IF <FILERR> NE 1 .GOTO 5
@'$ODSK''$ODRV':DISK.ID
.IF DID = $DID .GOTO 10
.5:
.SETN $DID DID
.SETS $FMTON FMTON
.SETS $BADON BADON
.10:
.DISABLE QUIET
