C	USE.FOR
C
C	USE get's the disk to use and opens SOFTQUOTA.DAT on that disk.
C
	subroutine  use (soft_open)

	implicit integer (a-z)

	logical		read_buf

	character	device * 30, drive * (40), DataFile *(40), dummy
	logical soft_open
	common /drive_name/ drive, DataFile
	common /drive_length/ drive_len
	common /readbuf/ dummy, buffer_len

	if (read_buf(device)) then

	    if (soft_open) call close_soft
	    drive = device
	    drive_len = buffer_len
	    call open_soft (soft_open)

	endif

	return
	end