home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / PASCAL / DOORDR50.ZIP / UNITINTR.ARJ / ANSIMENU.INT next >
Encoding:
Text File  |  1992-02-02  |  516 b   |  22 lines
  1. unit AnsiMenu;
  2.  
  3. interface
  4.  
  5. uses crt, doordriv;
  6. type
  7.  menutype = record
  8.              header: string[80];
  9.              footer: string[80];
  10.              headercolor, footercolor, optioncolor, desccolor, arrowcolor: byte;
  11.              bracketcolor: byte;
  12.              numoptions: byte;
  13.              options: array[1..20] of string[1];
  14.              desc: array[1..20] of string[80];
  15.             end;
  16. const
  17.  midscreeny: byte = 12;
  18.  midscreenx: byte = 40;
  19.  
  20. function GetAnsiMenu(menu: menutype): char;
  21.  
  22.