240 MENU$(1) = "This is the first choice on our menu. It doesn't do much, but it serves as an example of how to use the Universal Applesoft routines to create professional-looking menus."
250 MENU$(2) = "This is the second choice."
260 MENU$(3) = "This is the third choice."
270 MENU$(4) = "This is the fourth choice."
280 MENU$(5) = "END"
290 HELP = 1:FROM$ = "APPLESOFT"
300 RETURN
310 REM
320 REM * Menu maker routines
330 REM * Enter with menu items in MENU$(x)
340 REM * and "END" in MENU$(x) at end of
350 REM * list. Returns selected menu in AN
360 REM * OA%<>0 if HELP selected and ok
370 REM * ESC%<>0 if ESCAPE pressed and ok
380 REM
390 HOME
400 I% = 0:XC% = 0
410 I% = I% +1: & U(MENU$(I%),TE$): IF TE$ = "END" THEN 430