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

RESTORE dataMenu
READ menuName, numItems
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"