home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware 1 2 the Maxx
/
sw_1.zip
/
sw_1
/
PROGRAM
/
DOORDR50.ZIP
/
UNITINTR.ARJ
/
ANSIMENU.INT
next >
Wrap
Text File
|
1992-02-02
|
516b
|
22 lines
unit AnsiMenu;
interface
uses crt, doordriv;
type
menutype = record
header: string[80];
footer: string[80];
headercolor, footercolor, optioncolor, desccolor, arrowcolor: byte;
bracketcolor: byte;
numoptions: byte;
options: array[1..20] of string[1];
desc: array[1..20] of string[80];
end;
const
midscreeny: byte = 12;
midscreenx: byte = 40;
function GetAnsiMenu(menu: menutype): char;