::end:
@entsel:                                            'define the menu array:dim item(10):
::item("1")="  Do This":
::item("2")="  Do That":
::item("3")="  Next do This":
::item("4")="  Dont Forget This":
::item("5")="  Another Thing":
::item("6")="  Sometimes Do":
::item("7")="  Always Do":
::item("8")="  Never Do":
::item("9")="  Don't Do":
::item("10")="X-Go Do Choices":
::show "To Take or Remove A Choice Use \KZ":
menloop:n gt "0"                            'position to last choice taken:bl="          "; pushkey mid(bl,"1",n-"1"):
:                                                  'put up the menu:n(2,.0)=listbox(item,"1","10"):
:n="10"                                    'last choice-go do stuff:goto listem:
:n="0"                                          'user pressed break:end:
:                                                'get the item name:w=item(n):
on:w="*"                                              'if on turn off:mid(w,"1","1")=" ":
:not on                                          'if not on turn on:mid(w,"1","1")="*":
:                                                     'store result:item(n)=w:
:                                                  'reshow the menu:goto menloop:
listem:                                           'list the users choices:show "":
::ms="You Chose
\n":
::ix(3,.0)="1":
loop::w=item(ix):
:w="*":ms=ms&"          "&mid(w,"3","20")&"   \n":
:ix lt "9":ix=ix+"1"; goto loop:
::msgbox ms:
::'your code goes here to actually do the user's choices:
::end: