32 lines
497 B
Plaintext
32 lines
497 B
Plaintext
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
|