Here is a simple menu:by Solitaire (Login Solitaire1)
It's unambiguous, presents a series of choices and clearly states what the user must enter. It will continuously loop until the user selects the choice to quit.
DIM choice AS STRING, E AS STRING
PRINT "Select one item from the menu:"
PRINT "1 - Red"
PRINT "2 - Blue"
PRINT "3 - Yellow"
PRINT "4 - Quit"
INPUT "Enter a number from 1 - 4: ", choice$
SELECT CASE choice$
PRINT "An apple is red."
PRINT "The sky is blue."
PRINT "The sun is yellow."
INPUT "Press Enter to return to the menu: ", E$
|Response Title||Author and Date|
|Hope Solitaire don't mind||Unseen Machine on Nov 27|
|Boy did you mess that up! Besides ending a FUNCTION with END SUB...||Clippy on Nov 27|
|Erm||Unseen Machine on Nov 27|
|* I REFUSE to clean up after your mistakes! AND it DOESN'T work as posted!||Clippy on Nov 27|
|I beg to differ,||Unseen Machine on Nov 27|
|* Galleon IS gonna FIX that pal! It presently works with EXIT too!||Clippy on Nov 28|
|The menu I presented was extremely simple.||Solitaire on Nov 27|
|Short Menu||on Nov 27|
|Looks like it could be great...||Unseen Machine on Nov 27|
|Very nice, Marine Don.||Solitaire on Nov 28|