home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / programming / misc_programming / AGUL / AGULMENU.ADS < prev    next >
Encoding:
Text File  |  1990-10-25  |  1.6 KB  |  40 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 :  AGULMENU  -  package specification
  16. --
  17. --  Purpose of unit:  This procedure performs the menu operations for the 
  18. --                    AGUL demonstration and test program
  19. --
  20. --────────────────────────────────────────────────────────────────────────────
  21.  
  22. with BOX;
  23. use  BOX;
  24.  
  25. package AGULMENU is
  26.  
  27.   type MENU_DISPLAY_ARRAY is array (1..11) of string (1..36);
  28.  
  29.   MENU_LINE,
  30.   MENU_CLEAR   : MENU_DISPLAY_ARRAY;
  31.   DOUBLE       : BOX.SIMPLE_KIND := DOUBLE_SIDED;
  32.   LINE_CLEAR   : constant string := "                                    ";
  33.   MENU_SELECT  : integer;
  34.  
  35.   procedure PRINT_MENU (MENU_TYPE : integer);
  36.  
  37.   procedure DISPLAY_MENU (MENU : integer);
  38.  
  39. end AGULMENU;
  40.