Hi all,
Here is a simple QB64 adjustable length (a-z) alphabetical menu.
REM
DIM Alltitles$(26)
SCREEN 12
GOSUB Makmenu
GOSUB Showmenu
DO
_LIMIT 30
IF _KEYDOWN(97) THEN GOSUB aMenu
IF _KEYDOWN(98) THEN GOSUB bMenu
IF _KEYDOWN(99) THEN GOSUB cMenu
IF _KEYDOWN(100) THEN GOSUB dMenu
IF _KEYDOWN(101) THEN GOSUB eMenu
IF _KEYDOWN(102) THEN GOSUB fMenu
IF _KEYDOWN(103) THEN GOSUB gMenu
IF _KEYDOWN(104) THEN GOSUB hMenu
IF _KEYDOWN(105) THEN GOSUB iMenu
IF _KEYDOWN(106) THEN GOSUB jMenu
IF _KEYDOWN(107) THEN GOSUB kMenu
IF _KEYDOWN(108) THEN GOSUB lMenu
IF _KEYDOWN(109) THEN GOSUB mMenu
IF _KEYDOWN(110) THEN GOSUB nMenu
IF _KEYDOWN(111) THEN GOSUB oMenu
IF _KEYDOWN(112) THEN GOSUB pMenu
IF _KEYDOWN(113) THEN GOSUB qMenu
IF _KEYDOWN(114) THEN GOSUB rMenu
IF _KEYDOWN(115) THEN GOSUB sMenu
IF _KEYDOWN(116) THEN GOSUB tMenu
IF _KEYDOWN(117) THEN GOSUB uMenu
IF _KEYDOWN(118) THEN GOSUB vMenu
IF _KEYDOWN(119) THEN GOSUB wMenu
IF _KEYDOWN(120) THEN GOSUB xMenu
IF _KEYDOWN(121) THEN GOSUB yMenu
IF _KEYDOWN(122) THEN GOSUB zMenu
GOSUB Showmenu
LOOP UNTIL _KEYDOWN(27)
SYSTEM
DATA "Title1"
DATA "Title2"
DATA "Title3"
DATA "Title4"
DATA "Title5"
DATA "Title6"
DATA "Title7"
DATA "Title8"
DATA "Title9"
DATA "Title10"
DATA "Title11"
DATA "Title12"
DATA "Title13"
DATA "Title14"
DATA "Title15"
DATA "Title16"
DATA "Title17"
DATA "Title18"
DATA "Title19"
DATA "Title20"
DATA "Title21"
DATA "Title22"
DATA "Title23"
DATA "Title24"
DATA "Title25"
DATA "Title26"
Makmenu:
FOR a = 0 TO 25
READ a$
Alltitles$(a) = a$
NEXT a
a$ = ""
RETURN
Showmenu:
FOR a = 0 TO 25
LOCATE a + 1, 10
PRINT CHR$(97 + a); " "; Alltitles$(a)
NEXT a
RETURN
aMenu:
CLS
_DELAY 1
RETURN
bMenu:
CLS
_DELAY 1
RETURN
cMenu:
CLS
_DELAY 1
RETURN
dMenu:
CLS
_DELAY 1
RETURN
eMenu:
CLS
_DELAY 1
RETURN
fMenu:
CLS
_DELAY 1
RETURN
gMenu:
CLS
_DELAY 1
RETURN
hMenu:
CLS
_DELAY 1
RETURN
iMenu:
CLS
_DELAY 1
RETURN
jMenu:
CLS
_DELAY 1
RETURN
kMenu:
CLS
_DELAY 1
RETURN
lMenu:
CLS
_DELAY 1
RETURN
mMenu:
CLS
_DELAY 1
RETURN
nMenu:
CLS
_DELAY 1
RETURN
oMenu:
CLS
_DELAY 1
RETURN
pMenu:
CLS
_DELAY 1
RETURN
qMenu:
CLS
_DELAY 1
RETURN
rMenu:
CLS
_DELAY 1
RETURN
sMenu:
CLS
_DELAY 1
RETURN
tMenu:
CLS
_DELAY 1
RETURN
uMenu:
CLS
_DELAY 1
RETURN
vMenu:
CLS
_DELAY 1
RETURN
wMenu:
CLS
_DELAY 1
RETURN
xMenu:
CLS
_DELAY 1
RETURN
yMenu:
CLS
_DELAY 1
RETURN
zMenu:
CLS
_DELAY 1
RETURN
Obviously you can edit the data statements to reflect the title you desire. You slot your code into the referenced menu gosubs.
OlDosLover.
