Trailing-Edge
-
PDP-10 Archives
-
decuslib10-12
-
43,50552/openf.def
There are no other files named openf.def in the archive.
{----------------------------------------------------------------------}
{---- ----/ 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.