Horizontal List Box as Prompts

[Bob @ MidCity Office]

Hi
 
Thought I'd pass this on. Today I used a Listbox at the bottom of a screen
for the user to select the next action after leaving the last input field on
a screen. I thought it was cool, and didn't know if it was well known use of
Listbox.
 
::end:
@wlf1::'
::cls("21") ; cursor off:
::showctr("22") "Please Select":
::dim listbox1(7):
::listbox1("1") = "Top":
::listbox1("2") = "Vend Inst":
::listbox1("3") = "Prev Vend":
::listbox1("4") = "Next Vend":
::listbox1("5") = "Total Scr":
::listbox1("6") = "Main Scr":
::listbox1("7") = "More Opts":
::List1Choice = listbox(listbox1,,,"23",,"1","80"):
:List1Choice eq "1":msgbox "Choice1" ; cursor on ; screen ,1:
:List1Choice eq "2":msgbox "Choice2" ; cursor on ; screen ,1:
:List1Choice eq "3":msgbox "Choice3" ; cursor on ; screen ,1:
:List1Choice eq "4":msgbox "Choice4" ; cursor on ; screen ,1:
:List1Choice eq "5":msgbox "Choice5" ; cursor on ; screen ,1:
:List1Choice eq "6":msgbox "Choice5" ; cursor on ; screen ,1:
:List1Choice eq "7":msgbox "Choice7" ; cursor on ; screen ,1:
:List1Choice gt "7":List1Choice = "" ; cursor on ; goto @wlf1:
::end:
::declare List1Choice:
 
Bob Simcoe
Mid-City Office Furniture, Inc.
 
 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://mailman.celestial.com/pipermail/filepro-list/attachments/20080415/90fbd81f/attachment.html