langs a-z

Task/Menu/Run-BASIC/menu.run

@@ -0,0 +1,31 @@
+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