Post Reply 
User mode: black keys and alpha
08-19-2024, 02:07 PM (This post was last modified: 08-19-2024 02:38 PM by matalog.)
Post: #2
RE: User mode: black keys and alpha
Something like this will allow you to use as many deep menus as you want, with a bit of imagination.

Code:
KEY KA_Dot()
BEGIN
RECT();
LOCAL LI:={};
LOCAL ST:="";
LOCAL F:=0;
LOCAL K:=0;
TEXTOUT_P("HIDDEN MENU",70,8);
REPEAT
ST:="";
FOR F FROM 0 TO 50 DO
IF ISKEYDOWN(F) THEN
IF F<>41 AND F<>36 THEN
ST:=ST+STRING(F)+" ";
END;
IF F=41 THEN
ST:=ST+"SHIFT ";
END;
IF F=36 THEN
ST:=ST+"ALPHA ";
END;
K:=K+1;
LI(K):=F;
END;
END;
RECT_P(0,90,320,240);
TEXTOUT_P(ST,0,100);
UNTIL ISKEYDOWN(4);
RETURN 46;
END;

Alpha DOT to open the menu system.
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
RE: User mode: black keys and alpha - matalog - 08-19-2024 02:07 PM



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