.;	BRUWRTDID.CMD	CREATED 16-JUL-81	K.BETHE
.;
.;	COMMAND FILE TO WRITE A NEW [1,7]DISK.ID
.;
.;	INPUTS	$ODSK	DISK TYPE
.;		$ODRV	DISK DRIVE (OCTAL)
.;		$DID	DISK ID # (DECIMAL)
.;		$FMTON	WHEN AND WHERE FORMATTED
.;		$BADON	WHEN AND WHERE BADDED
.;	OUTPUT	DISK.ID - A COMMAND FILE TO SET UP
.;			VARIABLES $DID,$FMTON,$BADON
.;
.ENABLE GLOBAL
.ENABLE SUBSTITUTION
.ENABLE QUIET
PIP '$ODSK''$ODRV':DISK.ID;*/DE/NM
.DISABLE QUIET
.OPEN '$ODSK''$ODRV':DISK.ID
.ENABLE DATA
.ENABLE GLOBAL
.SETN $DID '$DID'.
.SETS $FMTON "'$FMTON'"
.SETS $BADON "'$BADON'"
.DISABLE DATA
.CLOSE