Menu: Difference between revisions
Content added Content deleted
Line 1,337: | Line 1,337: | ||
<lang Icon> |
<lang Icon> |
||
## menu.icn : rewrite of the faulty version on Rosetta Code site 24/4/2021 |
|||
procedure main() |
procedure main() |
||
Line 1,354: | Line 1,356: | ||
# --------- subroutines below --------------------------------- |
# --------- subroutines below --------------------------------- |
||
procedure |
procedure choose_from_menu(X) |
||
displaymenu(X) |
|||
repeat { |
repeat { |
||
writes("Choose a number from the menu above: ") |
writes("Choose a number from the menu above: ") |
||
Line 1,376: | Line 1,379: | ||
procedure displaymenu(X) |
procedure displaymenu(X) |
||
every i := 1 to *X do |
every i := 1 to *X do |
||
write(i,") ",X[i]) ## |
write(i,") ",X[i]) ## dispay menu options |
||
end ## displaymenu(X) |
end ## displaymenu(X) |
||
# ------------- end subroutines ----------------- |
|||
</lang> |
</lang> |