notebook code error

[DrEureka]

Hi, I'm trying to make a notebook-style application, but it gives me a syntax error and I can't find the solution.

Code:

EXPORT Notebook()

BEGIN
  // Define variables for notebook and notes
  LOCAL notebook, notes;
  notebook := {};
  notes := {};

  // Define main menu options
  LOCAL mainMenuOptions;
  mainMenuOptions := ["New note", "View notes", "Delete note"];

  // Main menu loop
  WHILE TRUE DO
    // Display main menu
    mainMenuOption := Menu("Notebook", mainMenuOptions);

    // Handle main menu option selection
    CASE mainMenuOption OF
      1:
        // Create new note
        noteTitle := Input("Enter note title: ");
        noteText := Input("Enter note text: ");
        note := {noteTitle, noteText};
        notes := {note, notes...};
        Disp("Note created successfully.");
      2:
        // View notes
        IF notes = {} THEN
          Disp("No notes to display.");
        ELSE
          noteTitles := {};
          FOR i TO LENGTH(notes) DO
            noteTitles := {noteTitles, notes[i][1]};
          END;
          noteIndex := Menu("Notes", noteTitles);
          Disp("Title: " + notes[noteIndex][1]);
          Disp("Text: " + notes[noteIndex][2]);
        END;
      3:
        // Delete note
        IF notes = {} THEN
          Disp("No notes to delete.");
        ELSE
          noteTitles := {};
          FOR i TO LENGTH(notes) DO
            noteTitles := {noteTitles, notes[i][1]};
          END;
          noteIndex := Menu("Notes", noteTitles);
          notes := {notes[1...noteIndex-1], notes[noteIndex+1...]};
          Disp("Note deleted successfully.");
        END;
    END;
  END;
END;