{----------------------------------------------------------------------}
{----                         ----/ Contains the EXTERN PROCEDURE \----}
{----    O P E N F . D E F    ----| OpenFile, that enables you to |----}
{----                         ----\ open a file with flexibility. /----}
{----------------------------------------------------------------------}

TYPE
    char3 = PACKED ARRAY [1..3] OF char;
    char6 = PACKED ARRAY [1..6] OF char;

PROCEDURE openfile	(VAR filevar : text;
			     mode    : char;
			     defext  : char3;
			     prompt  : alfa);	EXTERN.
