menu programming

[webmasterpdx]

Here is a simple example that I just wrote and works fine....a lot simpler than programming from scratch. This example puts a few menu selections. I've only implemented the EXIT selection.

Code:


EXPORT MENU()
BEGIN
LOCAL men,m,m1,mx,my,s;
// initialize
WHILE MOUSE(1)>=0 DO END;
men:={"","HEX","OCT","DEC","BIN","EXIT"};

PUTMENU(men); // Have to put menu twice...first time here
REPEAT // main loop

REPEAT // read mouse
m:=MOUSE; m1:=m(1);
UNTIL SIZE(m1)>0;
mx:=m1(1); my:=m1(2);

PUTMENU(men); // Have to put menu twice...second time here
s:=GETMENU(mx,my,men);

// This is where you process s for menu selections

UNTIL (s==6);

END; // BEGIN