DIM menuName AS STRING, numItems AS INTEGER, itemName AS STRING, menuSeek AS STRING

' seek menu
menuSeek = "main"
RESTORE dataMenu
DO
  READ menuName, numItems
  SELECT CASE menuName
    ' menu no found!
    CASE ""
      END

    ' found
    CASE menuSeek
      EXIT DO

    ' no found yet, skip
    CASE ELSE
      FOR i% = 1 TO numItems
        READ itemName
      NEXT i%
  END SELECT
LOOP

' display
CLS
FOR i% = 1 TO numItems
  READ itemName
  LOCATE , 3: PRINT itemName
NEXT i%

END

dataMenu:
  DATA "main", 5
  DATA "new game", "save game", "load game", "settings", "exit"
  DATA "new", 4
  DATA "easy", "normal", "hard", "go back"
  DATA "save", 3
  DATA "slot 1", "slot 2", "go back"
  DATA "load", 3
  DATA "slot 1", "slot 2", "go back"
  DATA "config", 4
  DATA "continues", "sound", "music", "go back"