{------------------------------------------------------------------------}
{----                           ----/  FILSTK  --  stack of files.  \----}
{----    F I L S T K . D E F    ----|  Set  of  PASCAL  procedures  |----}
{----                           ----|  and functions to  implement  |----}
{-----------------------------------\  a stack of files.            /----}
{------------------------------------------------------------------------}

TYPE
    chx3 = PACKED ARRAY [1..3] OF char;

PROCEDURE SClear;						EXTERN;

PROCEDURE SPush		(    name   : string);			EXTERN;
PROCEDURE SPop;							EXTERN;
FUNCTION  SBot : boolean;					EXTERN;

PROCEDURE SGet;							EXTERN;
FUNCTION  SBuf : char;						EXTERN;
PROCEDURE SGetLine	(VAR line   : string;
			 VAR length : integer);			EXTERN;
FUNCTION  SEof : boolean;					EXTERN.
