37. Tidy menus ~~~~~~~~~~ A tidy way of producing a program 'menu', without a lot of repetition, is to use DATA lists. In the example below, the GOTOs in line 130 are just for demonstration purposes. You would obviously put in the line numbers appropriate to your own program. The line number after RESTORE is the one where the DATA list is stored. You can actually put the DATA list anywhere you like in the program, even in the first line, as long as the RESTORE statement points accordingly. Don't be tempted to write this in the form of a Procedure, as the GOTOs will cause nasty things to happen! 100 CLS:PRINT'TAB(18)"MENU"'TAB(18)"----"' 110 RESTORE 2000:FOR A%=1 TO 5:READ A$:PRINT TAB(4);A%"........."A$:NEXT 120 PRINT'"Select desired option No. "; 130 ON VAL(GET$) GOTO 200,300,350,400,480 ELSE 130 2000 DATA Start Again,Exit Program,Change Details,Display Details, Action Replay