Menu: Difference between revisions
Content added Content deleted
(Menu in True BASIC) |
(Menu in Yabasic) |
||
Line 3,586: | Line 3,586: | ||
huff and puff |
huff and puff |
||
</pre> |
</pre> |
||
=={{header|Yabasic}}== |
|||
<lang yabasic>// Rosetta Code problem: https://www.rosettacode.org/wiki/Menu |
|||
// by Jjuanhdez, 06/2022 |
|||
dim choose$(5) |
|||
restore menudata |
|||
for a = 0 to 5 : read choose$(a) : next a |
|||
print menu$(choose$()) |
|||
end |
|||
sub menu$(m$()) |
|||
clear screen |
|||
repeat |
|||
print color("green","black") at(0,0) "Menu selection" |
|||
vc = 0 |
|||
b = arraysize(m$(),1) |
|||
while vc < 1 or vc > b |
|||
for i = 1 to b-1 |
|||
print i, " ", choose$(i) |
|||
next i |
|||
print choose$(b) |
|||
print |
|||
input "Your choice: " c |
|||
print at(0,7) "Your choice: " |
|||
if c > 0 and c < 6 then |
|||
vc = c |
|||
print color("yellow","black") at(0,8) choose$(vc) |
|||
else |
|||
print color("red","black") at(0,8) choose$(0) |
|||
break |
|||
fi |
|||
wend |
|||
until vc = 5 |
|||
end sub |
|||
label menudata |
|||
data "Ack, not good", "fee fie ", "huff and puff" |
|||
data "mirror mirror", "tick tock ", "exit "</lang> |
|||
=={{header|zkl}}== |
=={{header|zkl}}== |