C	SOFTDB.FOR			2.00
C
C	SOFTDB is the soft quota data file manager utility.
C
	program	  SOFTDB

	implicit integer (a-z)

	include   'TOKDEF/NOLIST'
	include   'KEYDEF/NOLIST'
	include   'IODEF/NOLIST'

	logical		start_flag /.false./

	character	drive * (40), DataFile * (40)

	common /drive_name/ drive, DataFile
	common /drive_length/ drive_len


	call load_key (key_chAR, key_len, key_max, key_tok, MAXKEY, TNUMBER)
	call load_sym (sym_ch, sym_tok, MAXSYM,  ident_ch, MAXID)
	call SetHelp (HELP_FILE)

	call check_terminal			! check the terminal type

	DataFile = SOFT_FILE
	drive = 'SYS$DISK'			! Set default volume
	drive_len = 8

	call startup (start_flag)		! open init file if given

	call parse (start_flag)			! execute user commands

	call close_soft
	end