home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / programming / misc_programming / AGUL / WIND_IO.ADS < prev    next >
Encoding:
Text File  |  1990-10-25  |  1.7 KB  |  43 lines
  1. --        ╔═════════════════════════════════════════════════════════════╗
  2. --        ║█▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀█║
  3. --        ║█                                                           █║
  4. --        ║█                 Meridian Software Systems                 █║
  5. --        ║█                                                           █║
  6. --        ║█                    Copyright (C)  1990                    █║
  7. --        ║█                                                           █║
  8. --        ║█                    ALL RIGHTS RESERVED                    █║
  9. --        ║█                                                           █║
  10. --        ║█▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄█║
  11. --        ╚═════════════════════════════════════════════════════════════╝
  12. --
  13. ------------------------------------------------------------------------------
  14. --
  15. --   Unit Name: Window_IO         - package specification
  16. --
  17. --   Purpose of unit:   This package is called by the window package to save
  18. --                      and load windows to and from a disk file.
  19. --
  20. ------------------------------------------------------------------------------
  21.  
  22. with SPY;
  23.  
  24. package WINDOW_IO is
  25.  
  26.   type BYTE_ARRAY is array(1..320) of SPY.byte;
  27.   type BYTE_REC is
  28.      record
  29.        BYTE_ARRAY : BYTE_ARRAY;
  30.      end record;
  31.  
  32.   function  CREATE (FILE_NAME : in  string) return boolean;
  33.   function  OPEN   (FILE_NAME : in  string) return boolean;
  34.   procedure READ   (REC  : out BYTE_REC;
  35.             OK   : out boolean);
  36.   function  WRITE  (REC  : in  BYTE_REC) return boolean;
  37.  
  38.   function  END_OF_FILE return boolean;
  39.   function  CLOSE       return boolean;
  40.  
  41. end WINDOW_IO;
  42.  
  43.