Program DGTAPE				December  1983

	Purpose: A VAX program to read tapes written by D. General RDOS or AOS 
		 Dump command and copy ascii or binary files to disk on the 
		 VAX.  Binary files are converted from IBM format to Vax format
		 but a format file of data types byte by byte is required.

	Input files:

	Logical name	File content
        ------------    ------------

	TAPE		tape written in D.General RDOS or AOS DUMP format.
			Disk files dumped to the tape can be ascii
			or binary data files; they cannot be entire 
			directories.
			If user selects a binary disk file for
			loading then CONVERT must include a 
			template name that matches the disk file, and the 
			logical name of a format file.

	files needed if want a  binary file:

	CONVERT		free format ascii file where each line =
			template name(ie. -.ext or name.- or name.ext)
			followed by the logical name of a format file
	(logical
	name from 
	CONVERT file)	free format ascii file where each line =
			data type followed by count of that data type,
			(data type = 'BYTE','I*2','I*4','R*4','R*8',
				     'L*2','BEG','END')
			This file gives in ascending byte order the format of
			a binary file to be converted from IBM
			to VAX format.  Types 'BEG', 'END' are used to mark
			the begining and end of a group of data types that
			repeat.
			The count for the group is given after 'BEG', the 
			count after 'END' must be 0.  See sample format
			file.


	Output files:

	Disk file name	Content
	--------------  -------

	(VMS version of
	D.General name	
	from tape)	ascii data or converted binary data
			from each disk file selected for loading by the user
...............................................................................
	Dialogue:
	Computer	User

	Tape format?(1=AOS  2=RDOS  3=RDOS-SAO<cr>  4=RDOS-SAO<lf>):
			Enter number of your choice.
	Tape must have been mounted by command =
		MOUNT/FOR/DEN=density device DUM TAPE:
			If error message, do MOUNT command and restart program.

	Current tape position?(0 or last file read + 1):
			If don't know, enter 0; otherwise a file postion.
			The 1st file on tape is file 0.

	Tape file = some#
	Tape file to load?(0=1st file on tape, -1 to exit)
			Enter file number.
	Load all disk files?(1=Yes  0=No)
			Enter selection.  If enter 0, then:

		Enter names(one per line, '.' to end,
		name can be: -.ext or name.- or name.ext):
		!!Put name in single quotes!!
			Enter disk file names in capitals. Sample: '-.IM'
							           'RADIO'
								   '.'

		
			.  .  .  .  .  .	

	Program will read tape and list each disk file name on SYS$OUTPUT.
	If a file was selected, file is copied to disk. After reading
	the end-of-file, program asks again:

	Tape file = some#
	Tape file to load?(0=1st file on tape, -1 to exit)   


...............................................................................
	Errors:

	1) Parity errors while reading the tape.

	2) "Line too long" - usually caused by loading a binary file which
	   is not listed in file CONVERT.

	3) "Tape block type =  ..	but state = ..	so bad block type."
	   - usually caused by selecting RDOS instead of RDOS-SAO.

	4) Tape runs out to end of reel - tape file to load does not exist on
		the tape.