[
  [
    "start",
    [
      "identifier",
      "myfilename"
    ],
    [
      "text",
      " "
    ],
    [
      "keyword.operator.asp",
      "="
    ],
    [
      "text",
      " "
    ],
    [
      "punctuation.definition.string.begin.asp",
      "\""
    ],
    [
      "string.quoted.double.asp",
      "C:\\Wikipedia - VBScript - Example - Hello World.txt\""
    ]
  ],
  [
    "start",
    [
      "identifier",
      "MakeHelloWorldFile"
    ],
    [
      "text",
      " "
    ],
    [
      "identifier",
      "myfilename"
    ]
  ],
  [
    "state_4",
    [
      "meta.leading-space",
      " "
    ]
  ],
  [
    "start",
    [
      "storage.type.function.asp",
      "Sub"
    ],
    [
      "text",
      " "
    ],
    [
      "entity.name.function.asp",
      "MakeHelloWorldFile"
    ],
    [
      "text",
      " "
    ],
    [
      "punctuation.definition.parameters.asp",
      "("
    ],
    [
      "variable.parameter.function.asp",
      "FileName"
    ],
    [
      "punctuation.definition.parameters.asp",
      ")"
    ]
  ],
  [
    "start",
    [
      "punctuation.definition.comment.asp",
      "'"
    ],
    [
      "comment.line.apostrophe.asp",
      "Create a new file in C: drive or overwrite existing file"
    ]
  ],
  [
    "start",
    [
      "meta.odd-tab.spaces",
      "  "
    ],
    [
      "meta.leading-space",
      " "
    ],
    [
      "storage.type.asp",
      "Set"
    ],
    [
      "text",
      " "
    ],
    [
      "identifier",
      "FSO"
    ],
    [
      "text",
      " "
    ],
    [
      "keyword.operator.asp",
      "="
    ],
    [
      "text",
      " "
    ],
    [
      "support.function.vb.asp",
      "CreateObject"
    ],
    [
      "text",
      "("
    ],
    [
      "punctuation.definition.string.begin.asp",
      "\""
    ],
    [
      "string.quoted.double.asp",
      "Scripting.FileSystemObject\""
    ],
    [
      "text",
      ")"
    ]
  ],
  [
    "start",
    [
      "meta.odd-tab.spaces",
      "  "
    ],
    [
      "meta.leading-space",
      " "
    ],
    [
      "keyword.control.asp",
      "If"
    ],
    [
      "text",
      " "
    ],
    [
      "identifier",
      "FSO"
    ],
    [
      "text",
      "."
    ],
    [
      "identifier",
      "FileExists"
    ],
    [
      "text",
      "("
    ],
    [
      "identifier",
      "FileName"
    ],
    [
      "text",
      ") "
    ],
    [
      "keyword.control.asp",
      "Then"
    ],
    [
      "text",
      " "
    ]
  ],
  [
    "start",
    [
      "meta.odd-tab.spaces",
      "  "
    ],
    [
      "meta.even-tab.spaces",
      "  "
    ],
    [
      "meta.odd-tab.spaces",
      "  "
    ],
    [
      "identifier",
      "Answer"
    ],
    [
      "text",
      " "
    ],
    [
      "keyword.operator.asp",
      "="
    ],
    [
      "text",
      " "
    ],
    [
      "support.function.vb.asp",
      "MsgBox"
    ],
    [
      "text",
      " ("
    ],
    [
      "punctuation.definition.string.begin.asp",
      "\""
    ],
    [
      "string.quoted.double.asp",
      "File \""
    ],
    [
      "text",
      " "
    ],
    [
      "keyword.operator.asp",
      "&"
    ],
    [
      "text",
      " "
    ],
    [
      "identifier",
      "FileName"
    ],
    [
      "text",
      " "
    ],
    [
      "keyword.operator.asp",
      "&"
    ],
    [
      "text",
      " "
    ],
    [
      "punctuation.definition.string.begin.asp",
      "\""
    ],
    [
      "string.quoted.double.asp",
      " exists ... OK to overwrite?\""
    ],
    [
      "text",
      ", "
    ],
    [
      "identifier",
      "vbOKCancel"
    ],
    [
      "text",
      ")"
    ]
  ],
  [
    "start",
    [
      "meta.odd-tab.spaces",
      "  "
    ],
    [
      "meta.even-tab.spaces",
      "  "
    ],
    [
      "meta.odd-tab.spaces",
      "  "
    ],
    [
      "punctuation.definition.comment.asp",
      "'"
    ],
    [
      "comment.line.apostrophe.asp",
      "If button selected is not OK, then quit now"
    ]
  ],
  [
    "start",
    [
      "meta.odd-tab.spaces",
      "  "
    ],
    [
      "meta.even-tab.spaces",
      "  "
    ],
    [
      "meta.odd-tab.spaces",
      "  "
    ],
    [
      "punctuation.definition.comment.asp",
      "'"
    ],
    [
      "comment.line.apostrophe.asp",
      "vbOK is a language constant"
    ]
  ],
  [
    "start",
    [
      "meta.odd-tab.spaces",
      "  "
    ],
    [
      "meta.even-tab.spaces",
      "  "
    ],
    [
      "meta.odd-tab.spaces",
      "  "
    ],
    [
      "keyword.control.asp",
      "If"
    ],
    [
      "text",
      " "
    ],
    [
      "identifier",
      "Answer"
    ],
    [
      "text",
      " "
    ],
    [
      "keyword.operator.asp",
      "<>"
    ],
    [
      "text",
      " "
    ],
    [
      "identifier",
      "vbOK"
    ],
    [
      "text",
      " "
    ],
    [
      "keyword.control.asp",
      "Then"
    ],
    [
      "text",
      " "
    ],
    [
      "keyword.control.asp",
      "Exit"
    ],
    [
      "text",
      " "
    ],
    [
      "keyword.control.asp",
      "Sub"
    ]
  ],
  [
    "start",
    [
      "meta.odd-tab.spaces",
      "  "
    ],
    [
      "meta.leading-space",
      " "
    ],
    [
      "keyword.control.asp",
      "Else"
    ]
  ],
  [
    "start",
    [
      "meta.odd-tab.spaces",
      "  "
    ],
    [
      "meta.even-tab.spaces",
      "  "
    ],
    [
      "meta.odd-tab.spaces",
      "  "
    ],
    [
      "punctuation.definition.comment.asp",
      "'"
    ],
    [
      "comment.line.apostrophe.asp",
      "Confirm OK to create"
    ]
  ],
  [
    "start",
    [
      "meta.odd-tab.spaces",
      "  "
    ],
    [
      "meta.even-tab.spaces",
      "  "
    ],
    [
      "meta.odd-tab.spaces",
      "  "
    ],
    [
      "identifier",
      "Answer"
    ],
    [
      "text",
      " "
    ],
    [
      "keyword.operator.asp",
      "="
    ],
    [
      "text",
      " "
    ],
    [
      "support.function.vb.asp",
      "MsgBox"
    ],
    [
      "text",
      " ("
    ],
    [
      "punctuation.definition.string.begin.asp",
      "\""
    ],
    [
      "string.quoted.double.asp",
      "File \""
    ],
    [
      "text",
      " "
    ],
    [
      "keyword.operator.asp",
      "&"
    ],
    [
      "text",
      " "
    ],
    [
      "identifier",
      "FileName"
    ],
    [
      "text",
      " "
    ],
    [
      "keyword.operator.asp",
      "&"
    ],
    [
      "text",
      " "
    ],
    [
      "punctuation.definition.string.begin.asp",
      "\""
    ],
    [
      "string.quoted.double.asp",
      " ... OK to create?\""
    ],
    [
      "text",
      ", "
    ],
    [
      "identifier",
      "vbOKCancel"
    ],
    [
      "text",
      ")"
    ]
  ],
  [
    "start",
    [
      "meta.odd-tab.spaces",
      "  "
    ],
    [
      "meta.even-tab.spaces",
      "  "
    ],
    [
      "meta.odd-tab.spaces",
      "  "
    ],
    [
      "keyword.control.asp",
      "If"
    ],
    [
      "text",
      " "
    ],
    [
      "identifier",
      "Answer"
    ],
    [
      "text",
      " "
    ],
    [
      "keyword.operator.asp",
      "<>"
    ],
    [
      "text",
      " "
    ],
    [
      "identifier",
      "vbOK"
    ],
    [
      "text",
      " "
    ],
    [
      "keyword.control.asp",
      "Then"
    ],
    [
      "text",
      " "
    ],
    [
      "keyword.control.asp",
      "Exit"
    ],
    [
      "text",
      " "
    ],
    [
      "keyword.control.asp",
      "Sub"
    ]
  ],
  [
    "start",
    [
      "meta.odd-tab.spaces",
      "  "
    ],
    [
      "meta.leading-space",
      " "
    ],
    [
      "keyword.control.asp",
      "End"
    ],
    [
      "text",
      " "
    ],
    [
      "keyword.control.asp",
      "If"
    ]
  ],
  [
    "start",
    [
      "meta.odd-tab.spaces",
      "  "
    ],
    [
      "meta.leading-space",
      " "
    ],
    [
      "punctuation.definition.comment.asp",
      "'"
    ],
    [
      "comment.line.apostrophe.asp",
      "Create new file (or replace an existing file)"
    ]
  ],
  [
    "start",
    [
      "meta.odd-tab.spaces",
      "  "
    ],
    [
      "meta.leading-space",
      " "
    ],
    [
      "storage.type.asp",
      "Set"
    ],
    [
      "text",
      " "
    ],
    [
      "identifier",
      "FileObject"
    ],
    [
      "text",
      " "
    ],
    [
      "keyword.operator.asp",
      "="
    ],
    [
      "text",
      " "
    ],
    [
      "identifier",
      "FSO"
    ],
    [
      "text",
      "."
    ],
    [
      "identifier",
      "CreateTextFile"
    ],
    [
      "text",
      " ("
    ],
    [
      "identifier",
      "FileName"
    ],
    [
      "text",
      ")"
    ]
  ],
  [
    "start",
    [
      "meta.odd-tab.spaces",
      "  "
    ],
    [
      "meta.leading-space",
      " "
    ],
    [
      "identifier",
      "FileObject"
    ],
    [
      "text",
      "."
    ],
    [
      "identifier",
      "WriteLine"
    ],
    [
      "text",
      " "
    ],
    [
      "punctuation.definition.string.begin.asp",
      "\""
    ],
    [
      "string.quoted.double.asp",
      "Time ... \""
    ],
    [
      "text",
      " "
    ],
    [
      "keyword.operator.asp",
      "&"
    ],
    [
      "text",
      " "
    ],
    [
      "support.function.vb.asp",
      "Now"
    ],
    [
      "text",
      "()"
    ]
  ],
  [
    "start",
    [
      "meta.odd-tab.spaces",
      "  "
    ],
    [
      "meta.leading-space",
      " "
    ],
    [
      "identifier",
      "FileObject"
    ],
    [
      "text",
      "."
    ],
    [
      "identifier",
      "WriteLine"
    ],
    [
      "text",
      " "
    ],
    [
      "punctuation.definition.string.begin.asp",
      "\""
    ],
    [
      "string.quoted.double.asp",
      "Hello World\""
    ]
  ],
  [
    "start",
    [
      "meta.odd-tab.spaces",
      "  "
    ],
    [
      "meta.leading-space",
      " "
    ],
    [
      "identifier",
      "FileObject"
    ],
    [
      "text",
      "."
    ],
    [
      "identifier",
      "Close"
    ],
    [
      "text",
      "()"
    ]
  ],
  [
    "start",
    [
      "meta.odd-tab.spaces",
      "  "
    ],
    [
      "meta.leading-space",
      " "
    ],
    [
      "support.function.vb.asp",
      "MsgBox"
    ],
    [
      "text",
      " "
    ],
    [
      "punctuation.definition.string.begin.asp",
      "\""
    ],
    [
      "string.quoted.double.asp",
      "File \""
    ],
    [
      "text",
      " "
    ],
    [
      "keyword.operator.asp",
      "&"
    ],
    [
      "text",
      " "
    ],
    [
      "identifier",
      "FileName"
    ],
    [
      "text",
      " "
    ],
    [
      "keyword.operator.asp",
      "&"
    ],
    [
      "text",
      " "
    ],
    [
      "punctuation.definition.string.begin.asp",
      "\""
    ],
    [
      "string.quoted.double.asp",
      " ... updated.\""
    ]
  ],
  [
    "start",
    [
      "keyword.control.asp",
      "End"
    ],
    [
      "text",
      " "
    ],
    [
      "keyword.control.asp",
      "Sub"
    ]
  ]
]