Post Reply 
menu programming
09-03-2017, 06:46 AM (This post was last modified: 09-03-2017 06:50 AM by webmasterpdx.)
Post: #2
RE: menu programming
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
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
menu programming - webmasterpdx - 09-03-2017, 05:25 AM
RE: menu programming - webmasterpdx - 09-03-2017 06:46 AM
RE: menu programming - primer - 09-03-2017, 05:46 PM
RE: menu programming - webmasterpdx - 09-03-2017, 07:44 PM
RE: menu programming - webmasterpdx - 09-04-2017, 11:08 AM



User(s) browsing this thread: 1 Guest(s)