Initial data commit

Task/Menu/FreeBASIC/menu.basic

@@ -0,0 +1,19 @@
+dim as string menu(1 to 4)={ "fee fie", "huff and puff", "mirror mirror", "tick tock" }
+
+function menu_select( m() as string ) as string
+    dim as integer i, vc = 0
+    dim as string c
+    while vc<1 or vc > ubound(m)
+        cls
+        for i = 1 to ubound(m)
+            print i;"  ";m(i)
+        next i
+        print
+
+        input "Choice? ", c
+        vc = val(c)
+    wend
+    return m(vc)
+end function
+
+print menu_select( menu() )