{****    FNAMES.DEF    ****}

const
    blank3	= '   ';
    blank6	= '      ';

type
    fchar3	= packed array [1..3] of char;
    fchar6	= packed array [1..6] of char;

    filename	= record
		      spec	: packed array [1..50] of char;	{ enough! }
		      device	: fchar6;
		      name	: fchar6;
		      ext	: fchar3;
		      p		: integer;
		      pn	: integer;
		  end;

procedure genspec	(var f : filename);			extern;
procedure anspec	(var f : filename);			extern;
procedure defspec	(var f : filename;
			     d : filename);			extern;
procedure forspec	(var f : filename;
			     d : filename);			extern;
procedure blankspec	(var f : filename);			extern.