Выбор пункта меню осуществляется с помощью нажатия клавиши с первой заглавной буквы пункта меню — QBasic(Бейсик)

DECLARE SUB Menu ()
DIM SHARED Vib%
CLS
Menu
PRINT "Punkt:"; Vib%
SUB Menu
GOSUB Renew
DO: kb$ = INKEY$
    IF kb$ <> "" THEN
        kb$ = UCASE$(kb$)
        SELECT CASE kb$
            CASE "A": Vib% = 0: CLS 2: GOSUB Renew
            CASE "B": Vib% = 1: CLS 2: GOSUB Renew
            CASE "C": Vib% = 2: CLS 2: GOSUB Renew
            CASE "D": Vib% = 3: CLS 2: GOSUB Renew
            CASE "E": Vib% = 4: CLS 2: GOSUB Renew
            CASE ELSE:
        END SELECT
    END IF
LOOP UNTIL kb$ = CHR$(13)
EXIT SUB
Renew:
LOCATE 5 + Vib%, 5: PRINT "=>"
LOCATE 5, 10: PRINT "Alfavit"
LOCATE 6, 10: PRINT "Blablabla"
LOCATE 7, 10: PRINT "Color"
LOCATE 8, 10: PRINT "Dnevnik"
LOCATE 9, 10: PRINT "Exit"
RETURN
END SUB