Menu: Difference between revisions
Menu in True BASIC
Thundergnat (talk | contribs) m (→{{header|Ada|}}: Tweak irregular header markup) |
(Menu in True BASIC) |
||
Line 3,248:
Lbl D
Disp Str3
=={{header|True BASIC}}==
<lang qbasic>DIM menu$(4)
MAT READ menu$
DATA "fee fie", "huff and puff", "mirror mirror", "tick tock"
FUNCTION sel$(choices$())
IF UBOUND(choices$) - LBOUND(choices$) = 0 THEN LET sel$ = ""
LET ret$ = ""
DO
FOR i = LBOUND(choices$) TO UBOUND(choices$)
PRINT i; ": "; choices$(i)
NEXT i
PRINT prompt$;
INPUT index
IF index <= UBOUND(choices$) AND index >= LBOUND(choices$) THEN LET ret$ = choices$(index)
LOOP WHILE ret$ = ""
LET sel$ = ret$
END FUNCTION
PRINT sel$(menu$())
END</lang>
=={{header|UNIX Shell}}==
| |||