TYPE DTABuffer = PACKED ARRAY [1..44] OF BYTE;

PROCEDURE Set_DTA ( VAR dta_buffer : DTABuffer );
   GEMDOS ( $1A );

FUNCTION SFirst ( VAR file_name : C_STRING ; attributes:INTEGER ) : INTEGER;
   GEMDOS ( $4E );


FUNCTION TOS_Get_Drive : INTEGER;
   GEMDOS ( $19 );

FUNCTION TOS_Get_Directory ( VAR path : C_STRING; drive : INTEGER ) : INTEGER;
   GEMDOS ( $47 );

FUNCTION TOS_Create ( VAR name : C_STRING ; attributes : INTEGER ) : INTEGER;
   GEMDOS ( $3C );

FUNCTION TOS_Open ( VAR name : C_STRING ; mode : INTEGER ) : INTEGER;
   GEMDOS ( $3D );

FUNCTION TOS_Close ( handle : INTEGER ) : INTEGER;
   GEMDOS ( $3E );

FUNCTION TOS_Read (     handle : INTEGER; 
                        count  : LONG_INTEGER;
                    VAR buf    : ThreeHundredBytes ) : LONG_INTEGER;
   GEMDOS ( $3F );

FUNCTION TOS_Write (     handle : INTEGER; 
                         count  : LONG_INTEGER;
                     VAR buf    : ThreeHundredBytes ) : LONG_INTEGER;
   GEMDOS ( $40 );

FUNCTION TOS_Delete ( VAR name : C_STRING ) : INTEGER;
   GEMDOS ( $41 );

FUNCTION TOS_Seek ( offset      : LONG_INTEGER;
                    handle,mode : INTEGER        ) : LONG_INTEGER;
   GEMDOS ( $42 );

FUNCTION ConIn : LONG_INTEGER;
   GEMDOS ( 1 );

FUNCTION PrtOut_Status : INTEGER;
   GEMDOS ( $11 );

FUNCTION AuxOut_Status : INTEGER;
   GEMDOS ( $13 );