home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / programming / misc_programming / AGUL / SCREEN.ADS < prev    next >
Encoding:
Text File  |  1990-10-25  |  1.7 KB  |  36 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:  Screens - package specification
  16. --
  17. --  Purpose of unit :  Package Screens performs selection of the active
  18. --                     graphics page, swapping of graphics pages, and copying
  19. --                     of one graphics page to another graphics page.  Package
  20. --                     Screens also performs the save and load operations of
  21. --                     graphics screens to and from disk files.
  22. --
  23. ------------------------------------------------------------------------------
  24.  
  25. with COMMON_GRAPHIC_TYPES;
  26.  
  27. package SCREEN is
  28.  
  29.   procedure SELECT_SCREEN (New_page : COMMON_GRAPHIC_TYPES.DISPLAY_PAGE);
  30.   procedure COPY_SCREEN;
  31.   procedure SWAP_SCREEN;
  32.   procedure SAVE_SCREEN (FILENAME : string);
  33.   procedure LOAD_SCREEN (FILENAME : string);
  34.  
  35. end SCREEN;
  36.