/*	fncvrt

Usage:

    char *
    fna2r (ascii_name, rad50_name)

    char	*ascii_name;	ASCII name to be converted
    char	*rad50_name;	Receives RAD50 conversion


    char *
    fnr2a (rad50_name, ascii_name)

    char	*rad50_name;	RAD50 name to be converted
    char	*ascii_name;	Receives ASCII conversion


Description:

A filename is converted between ASCII and RAD50 representation.

The ASCII filename is of the form:

    ddu:[ggg,mmm]fffffffff.eee

	dd - Device mnemonic (2 chars)
	u - Device unit number (1 digit)
	ggg - Group number of UFD (1-3 chars)
	mmm - Member number of UFD (1-3 chars)
	fffffffff - Filename (0-9 chars)
	eee - Extension (0-3 chars)

	The field separators are ignored during the converstion to RAD50.

The modified RAD50 filename is of the form:

    DU GM FFF E

	DU - Device and unit number (1 word)
	GM - Group and member numbers of UFD (2 binary bytes)
	FFF - Filename (3 words)
	E - Extension (1 word)

	The field separators are supplied during the conversion to ASCII.

The function returns a pointer to the output string; or NULL on error.

******************************************************************************/

#include	<std.h>

#include	"r50file.h"

STRING
fna2r (ascii_name, rad50_name)

STRING	ascii_name;
R50FILE	*rad50_name;
{
char	filename[32];
int	count;

/* Make sure that the ascii_name is a fully qualified filename */

full_file (filename, ascii_name);

for (count = 0; filename[character]