DEFINITION MODULE Disk;


   PROCEDURE CheckStatus ( Drive : (* IN *) CARDINAL );

      (* See if the media has changed.  If so, the inform the system *)
      (* that the disk has been changed.  Drive specifies the drive  *)
      (* to be checked ( 1 => A:, 2 => B:, ... )                     *)


   PROCEDURE SpaceAvailable (
      Drive       : (* IN *) CARDINAL;
      BytesNeeded : (* IN *) LONGCARD ) : BOOLEAN;

      (* Return TRUE if enough free space exists on the disk to  *)
      (* satisfy the number of bytes needed, or FALSE otherwise. *) 
      (* Drive specifies the drive to be checked.                *)
     

END Disk.
ces.ResourceGetAddr ( GEMAESbase.RTree,
                                     DialogNumber,