dim choose$(5)
choose$(1) = "1 Fee Fie"
choose$(2) = "2 Huff Puff"
choose$(3) = "3 Mirror, Mirror"
choose$(4) = "4 Tick, Tock"
choose$(5) = "Exit"

[start]
print "Menu Selection"
listbox #lb,choose$(),5
button #sel, "Accept",[select]
wait

[select]
selected$=#lb selection$()
print " "
if selected$<>"" then
  print "You selected ";selected$
 else
  print "No selection made"
end if
 button #con, "Continue",[go2]
wait
[go2]
if selected$<>"Exit" then
  cls
  goto [start]
 else
  cls
  end
end if