XProfan

cls
createmenu
appendmenu 100,"test"
appendmenu 101,"test2"
trackmenu 0,0
case %menuitem=100 : print "test"
case %menuitem=101 : print "test2"
waitkey
end

cls
createmenu
appendmenu 100,"test"
appendmenu 101,"test2"
trackmenu 0,0
case %menuitem=100 :
print "test"
XXXXXXXXXXXXXXXXXXXXX
case %menuitem=101 :
print "test2"
waitkey
end

cls

Proc ZeigeMenü

    createmenu
    appendmenu 100,"test"
    appendmenu 101,"test2"
    appendmenu 102,"Ende"
    trackmenu 0,0

EndProc

Declare ende%

WhileNot ende%

    ZeigeMenü
    Locate 1,14

    If %menuitem=100

        print "hier Aktion für 1. Menüpunkt"

    ElseIf %menuitem=101

        print "hier Aktion für 2. Menüpunkt"

    ElseIf %menuitem=102

        ende%=1

    EndIf

Wend