Menu: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (→{{header|Ada|}}: Tweak irregular header markup) |
(Menu in True BASIC) |
||
Line 3,248: | Line 3,248: | ||
Lbl D |
Lbl D |
||
Disp Str3 |
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}}== |
=={{header|UNIX Shell}}== |