FUNCTION Back2BackName$ (a$)
    IF a$ = "Keyword Reference (Alphabetical)" THEN Back2BackName$ = "Alphabetical": EXIT FUNCTION
    IF a$ = "Keyword Reference (Usage)" THEN Back2BackName$ = "By Usage": EXIT FUNCTION
    IF a$ = "QB64 Help Menu" THEN Back2BackName$ = "Help": EXIT FUNCTION
    IF a$ = "QB64 FAQ" THEN Back2BackName$ = "FAQ": EXIT FUNCTION
    Back2BackName$ = a$
END FUNCTION

FUNCTION Wiki$ (PageName$)
    Help_PageLoaded$ = PageName$
    PageName2$ = PageName$

    ' FOR x = 2 TO LEN(PageName2$)
    '     ' Change all underscores to dashes, except for the first character.
    '     IF ASC(PageName2$, x) = 95 THEN
    '         ASC(PageName2$, x) = 45
    '     END IF
    ' NEXT
    ' DO WHILE INSTR(2, PageName2$, "_")
    '     ' Change all underscores to dashes, except for the first character.
    '     ASC(PageName2$, INSTR(2, PageName2$, "_")) = 45
    ' LOOP

    PageName2$ = StrReplace$(PageName2$, "_", "-")
    IF MID$(PageName2$, 1, 1) = "-" THEN
        ASC(PageName2$, 1) = 95
    END IF

    DO WHILE INSTR(PageName2$, " ")
        ASC(PageName2$, INSTR(PageName2$, " ")) = 45 '95
    LOOP
    DO WHILE INSTR(PageName2$, "&")
        i = INSTR(PageName2$, "&")
        PageName2$ = LEFT$(PageName2$, i - 1) + "%26" + RIGHT$(PageName2$, LEN(PageName2$) - i)
    LOOP
    DO WHILE INSTR(PageName2$, "/")
        i = INSTR(PageName2$, "/")
        PageName2$ = LEFT$(PageName2$, i - 1) + "%2F" + RIGHT$(PageName2$, LEN(PageName2$) - i)
    LOOP

    'Is this page in the cache?
    IF Help_IgnoreCache = 0 THEN
        IF _FILEEXISTS(Cache_Folder$ + "/" + PageName2$ + ".txt") THEN
            fh = FREEFILE
            OPEN Cache_Folder$ + "/" + PageName2$ + ".txt" FOR BINARY AS #fh
            a$ = SPACE$(LOF(fh))
            GET #fh, , a$
            CLOSE #fh
            chr13 = INSTR(a$, CHR$(13))
            removedchr13 = 0
            DO WHILE chr13 > 0
                removedchr13 = -1
                a$ = LEFT$(a$, chr13 - 1) + MID$(a$, chr13 + 1)
                chr13 = INSTR(a$, CHR$(13))
            LOOP
            IF removedchr13 THEN
                fh = FREEFILE
                OPEN Cache_Folder$ + "/" + PageName2$ + ".txt" FOR OUTPUT AS #fh: CLOSE #fh
                OPEN Cache_Folder$ + "/" + PageName2$ + ".txt" FOR BINARY AS #fh
                PUT #fh, 1, a$
                CLOSE #fh
            END IF
            Wiki$ = a$
            EXIT FUNCTION
        END IF
    END IF

    IF _SHELLHIDE("curl --version") <> 0 THEN
        PCOPY 2, 0
        result = idemessagebox("QB64", "Cannot find 'curl'.", "#Abort")
        PCOPY 3, 0: SCREEN , , 3, 0
        EXIT FUNCTION
    END IF

    IF Help_Recaching = 0 THEN
        a$ = "Downloading '" + PageName2$ + "' page..." ' Was PageName$
        IF LEN(a$) > 60 THEN a$ = LEFT$(a$, 57) + STRING$(3, 250)
        IF LEN(a$) < 60 THEN a$ = a$ + SPACE$(60 - LEN(a$))

        COLOR 0, 3: LOCATE idewy + idesubwindow, 2
        PRINT a$;

        PCOPY 3, 0
    END IF

    
    url$ = CHR$(34) + wikiBaseAddress$ + "/" + PageName2$ + ".md" + CHR$(34)
    outputFile$ = Cache_Folder$ + "/" + PageName2$ + ".txt"

    SHELL _HIDE "curl -L -o " + CHR$(34) + outputFile$ + CHR$(34) + " " + url$
    fh = FREEFILE
    OPEN outputFile$ FOR BINARY AS #fh 'get new content
    a$ = SPACE$(LOF(fh))
    GET #fh, 1, a$
    CLOSE #fh

    Wiki$ = a$
    EXIT FUNCTION
END FUNCTION

SUB Help_AddTxt (t$, col, link)

    IF t$ = CHR$(13) THEN Help_NewLine: EXIT SUB

    FOR i = 1 TO LEN(t$)

        c = ASC(t$, i)

        IF Help_BG_Col = 0 AND Help_LockWrap = 0 THEN

            'addtxt handles all wrapping issues
            IF c = 32 THEN

                IF Help_Pos = Help_ww THEN Help_NewLine: GOTO special

                Help_Txt_Len = Help_Txt_Len + 1: ASC(Help_Txt$, Help_Txt_Len) = 32
                Help_Txt_Len = Help_Txt_Len + 1: ASC(Help_Txt$, Help_Txt_Len) = col + Help_BG_Col * 16
                Help_Txt_Len = Help_Txt_Len + 1: ASC(Help_Txt$, Help_Txt_Len) = link AND 255
                Help_Txt_Len = Help_Txt_Len + 1: ASC(Help_Txt$, Help_Txt_Len) = link \ 256

                Help_Wrap_Pos = Help_Txt_Len 'pos to backtrack to when wrapping content
                Help_Pos = Help_Pos + 1
                GOTO special
            END IF

            IF Help_Pos > Help_ww THEN
                IF Help_Wrap_Pos THEN 'attempt to wrap
                    'backtrack, insert new line, continue

                    b$ = MID$(Help_Txt$, Help_Wrap_Pos + 1, Help_Txt_Len - Help_Wrap_Pos)

                    Help_Txt_Len = Help_Wrap_Pos

                    Help_NewLine

                    MID$(Help_Txt$, Help_Txt_Len + 1, LEN(b$)) = b$: Help_Txt_Len = Help_Txt_Len + LEN(b$)

                    Help_Pos = Help_Pos + LEN(b$) \ 4
                END IF
            END IF

        END IF 'bg_col=0

        c = ASC(t$, i)
        Help_Txt_Len = Help_Txt_Len + 1: ASC(Help_Txt$, Help_Txt_Len) = c
        Help_Txt_Len = Help_Txt_Len + 1: ASC(Help_Txt$, Help_Txt_Len) = col + Help_BG_Col * 16
        Help_Txt_Len = Help_Txt_Len + 1: ASC(Help_Txt$, Help_Txt_Len) = link AND 255
        Help_Txt_Len = Help_Txt_Len + 1: ASC(Help_Txt$, Help_Txt_Len) = link \ 256

        Help_Pos = Help_Pos + 1
        special:
    NEXT

END SUB

SUB Help_NewLine
    IF Help_Pos > help_w THEN help_w = Help_Pos

    Help_Txt_Len = Help_Txt_Len + 1: ASC(Help_Txt$, Help_Txt_Len) = 13
    Help_Txt_Len = Help_Txt_Len + 1: ASC(Help_Txt$, Help_Txt_Len) = Help_BG_Col * 16
    Help_Txt_Len = Help_Txt_Len + 1: ASC(Help_Txt$, Help_Txt_Len) = 0
    Help_Txt_Len = Help_Txt_Len + 1: ASC(Help_Txt$, Help_Txt_Len) = 0

    help_h = help_h + 1
    Help_Line$ = Help_Line$ + MKL$(Help_Txt_Len + 1)
    Help_Wrap_Pos = 0

    IF Help_Underline THEN
        Help_Underline = 0
        w = Help_Pos
        Help_Pos = 1
        Help_AddTxt STRING$(w - 1, 196), Help_Col, 0
        Help_NewLine
    END IF
    Help_Pos = 1

    IF Help_NewLineIndent THEN
        Help_AddTxt SPACE$(Help_NewLineIndent), Help_Col, 0
    END IF


END SUB

SUB Help_PreView

    OPEN "help_preview.txt" FOR OUTPUT AS #1
    FOR i = 1 TO LEN(Help_Txt$) STEP 4
        c = ASC(Help_Txt$, i)
        c$ = CHR$(c)
        IF c = 13 THEN c$ = CHR$(13) + CHR$(10)
        PRINT #1, c$;
    NEXT
    CLOSE #1

    CLS
    FOR i = 1 TO LEN(Help_Txt$) STEP 4
        c = ASC(Help_Txt$, i)
        col = ASC(Help_Txt$, i + 1)
        IF c = 13 THEN
            COLOR col AND 15, col \ 16
            PRINT SPACE$(help_w - POS(0));
            COLOR 7, 0
            PRINT SPACE$(_WIDTH - POS(0) + 1);
            COLOR col AND 15, col \ 16
            SLEEP
        ELSE
            COLOR col AND 15, col \ 16
            PRINT CHR$(c);
        END IF
    NEXT
END SUB


FUNCTION Help_Col 'helps to calculate the default color
    col = Help_Col_Normal
    IF Help_Italic THEN col = Help_Col_Italic
    IF Help_Bold THEN col = Help_Col_Bold 'Note: Bold overrides italic
    Help_Col = col
END FUNCTION


SUB WikiParse (a$)
    'PRINT "Parsing...": _DISPLAY

    'wiki page interpret

    'clear info
    help_h = 0: help_w = 0: Help_Line$ = "": Help_Link$ = "": Help_LinkN = 0
    Help_Txt$ = SPACE$(1000000)
    Help_Txt_Len = 0

    Help_Pos = 1: Help_Wrap_Pos = 0
    Help_Line$ = MKL$(1)
    Help_LockWrap = 0
    Help_Bold = 0: Help_Italic = 0
    Help_Underline = 0
    Help_BG_Col = 0

    link = 0: elink = 0: cb = 0

    col = Help_Col

    ' (OLD) Syntax Notes:
    ' '''=bold
    ' ''=italic
    ' {{macroname|macroparam}} or simply {{macroname}}
    '  eg. {{KW|PRINT}}=a key word, a link to a page
    '      {{Cl|PRINT}}=a key word in a code example, will be printed in bold and aqua
    '      {{Parameter|expression}}=a parameter, in italics
    '      {{PageSyntax}} {{PageParameters}} {{PageDescription}} {{PageExamples}}
    '      {{CodeStart}} {{CodeEnd}} {{OutputStart}} {{OutputEnd}}
    '      {{PageSeeAlso}} {{PageNavigation}} {{PageLegacySupport}}
    '      {{PageQBasic}} {{PageAvailability}}
    ' [[SPACE$]]=a link to wikipage called "SPACE$"
    ' [[INTEGER|integer]]=a link, link's name is on left and text to appear is on right
    ' *=a dot point
    ' **=a sub(ie. further indented) dot point
    ' &quot;=a quotation mark
    ' :=indent (if beginning a new line)
    ' CHR$(10)=new line character

    ' (NEW) Syntax Notes:
    ' **=bold
    ' *=italic
    ' {{macroname|macroparam}} or simply {{macroname}}
    '  eg. {{KW|PRINT}}=a key word, a link to a page
    '      {{Cl|PRINT}}=a key word in a code example, will be printed in bold and aqua
    '      {{Parameter|expression}}=a parameter, in italics
    '      {{PageSyntax}} {{PageParameters}} {{PageDescription}} {{PageExamples}}
    '      {{CodeStart}} {{CodeEnd}} {{OutputStart}} {{OutputEnd}}
    '      {{PageSeeAlso}} {{PageNavigation}} {{PageLegacySupport}}
    '      {{PageQBasic}} {{PageAvailability}}
    ' [SPACE$](url) = a link to wikipage called "SPACE$"
    ' [INTEGER](integer) = a link, link's name is on left and text to appear is on right
    ' * = a dot point
    ' - = a sub(ie. further indented) dot point
    ' &quot; = a quotation mark
    ' : = indent (if beginning a new line)
    ' CHR$(10) = new line character

    prefetch = 16
    DIM c$(prefetch)
    FOR ii = 1 TO prefetch
        c$(ii) = SPACE$(ii)
    NEXT

    ' c$() is a look ahead (helper) "cache"
    ' -------
    ' c$(1) is 1 character - same as c$ and c
    ' c$(2) is 2 characters
    ' ...
    ' c$(16) is 16 characters

    i = INSTR(a$, "<span ")
    DO WHILE i
        a$ = LEFT$(a$, i - 1) + MID$(a$, INSTR(i + 1, a$, ">") + 1)
        i = INSTR(a$, "<span ")
    LOOP

    n = LEN(a$)
    i = 1
    DO WHILE i <= n

        c = ASC(a$, i): c$ = CHR$(c)
        FOR i1 = 1 TO prefetch
            ii = i
            FOR i2 = 1 TO i1
                IF ii <= n THEN
                    ASC(c$(i1), i2) = ASC(a$, ii)
                ELSE
                    ASC(c$(i1), i2) = 32
                END IF
                ii = ii + 1
            NEXT
        NEXT

        IF c = 38 THEN ' "&"
            s$ = "&quot;"
            IF c$(LEN(s$)) = s$ THEN
                i = i + LEN(s$) - 1
                c$ = CHR$(34): c = ASC(c$)
                GOTO SpecialChr
            END IF

            s$ = "&amp;"
            IF c$(LEN(s$)) = s$ THEN
                i = i + LEN(s$) - 1
                c$ = "&": c = ASC(c$)
                GOTO SpecialChr
            END IF

            s$ = "&gt;"
            IF c$(LEN(s$)) = s$ THEN
                i = i + LEN(s$) - 1
                c$ = ">": c = ASC(c$)
                GOTO SpecialChr
            END IF

            IF c$(2) = CHR$(194) + CHR$(160) THEN 'some kind of white-space formatting unicode combo
                i = i + 1
                GOTO Special
            END IF

            s$ = "&lt;code>": IF c$(LEN(s$)) = s$ THEN i = i + LEN(s$) - 1: GOTO Special
            s$ = "&lt;/code>": IF c$(LEN(s$)) = s$ THEN i = i + LEN(s$) - 1: GOTO Special

            s$ = "&lt;center>"
            IF c$(LEN(s$)) = s$ THEN
                i = i + LEN(s$) - 1
                GOTO Special
            END IF

            s$ = "&lt;/center>"
            IF c$(LEN(s$)) = s$ THEN
                i = i + LEN(s$) - 1
                GOTO Special
            END IF

            s$ = "&lt;nowiki>"
            IF c$(LEN(s$)) = s$ THEN
                i = i + LEN(s$) - 1
                GOTO Special
            END IF

            s$ = "&lt;/nowiki>"
            IF c$(LEN(s$)) = s$ THEN
                i = i + LEN(s$) - 1
                GOTO Special
            END IF


            s$ = "&lt;p style="
            IF c$(LEN(s$)) = s$ THEN
                i = i + LEN(s$) - 1
                FOR ii = i TO LEN(a$) - 1
                    IF MID$(a$, ii, 1) = ">" THEN i = ii: EXIT FOR
                NEXT
                GOTO Special
            END IF

            s$ = "&lt;/p"
            IF c$(LEN(s$)) = s$ THEN
                i = i + LEN(s$) - 1
                FOR ii = i TO LEN(a$) - 1
                    IF MID$(a$, ii, 1) = ">" THEN i = ii: EXIT FOR
                NEXT
                GOTO Special
            END IF

            s$ = "&lt;div"
            IF c$(LEN(s$)) = s$ THEN
                i = i + LEN(s$) - 1
                FOR ii = i TO LEN(a$) - 1
                    IF MID$(a$, ii, 9) = "&lt;/div>" THEN i = ii + 8: EXIT FOR
                NEXT
                GOTO Special
            END IF

            s$ = "&lt;"
            IF c$(LEN(s$)) = s$ THEN
                i = i + LEN(s$) - 1
                c$ = "<": c = ASC(c$)
                GOTO SpecialChr
            END IF
            SpecialChr:
        END IF 'c=38 '"&"

    ' ******************************************
    ' * New parse code...
    ' ******************************************

    IF c = 91 THEN ' [ --- Possible Link

      lb = i: rb = -1: lp = -1: rp = -1

      p = i + 1: innerParen = 0
      DO WHILE p < n
        IF rb = -1 AND ASC(a$, p) = 93 THEN ' ]
          rb = p: p = p + 1
        END IF
        IF rb <> -1 AND lp = -1 THEN
          IF ASC(a$, p) = 40 THEN ' (
            ' We are expecting the ( to be right after the ].
            lp = p: p = p + 1 ' and now look for the closing ).
          ELSE
            ' If not, abort.
            EXIT DO
          END IF
        END IF
        IF rb <> -1 AND lp <> -1 AND rp = -1 THEN ' looking for closing )
          IF ASC(a$, p) = 41 THEN ' )
            IF innerParen = 0 THEN
              rp = p: EXIT DO
            ELSE
              innerParen = innerParen - 1
            END IF
          ELSEIF ASC(a$, p) = 40 THEN ' (
            innerParen = innerParen + 1
          END IF
        END IF
        p = p + 1
      LOOP

      IF lb > -1 AND rb > lb AND lp > rb AND rp > lp THEN
        IF rb + 1 = lp THEN

          text$ = MID$(a$, lb + 1, (rb - lb) - 1)
          link$ = MID$(a$, lp + 1, (rp - lp) - 1)

          Help_LinkN = Help_LinkN + 1
          Help_Link$ = Help_Link$ + "PAGE:" + link$ + Help_Link_Sep$

          IF Help_BG_Col = 0 THEN
            Help_AddTxt text$, Help_Col_Link, Help_LinkN
          ELSE
            Help_AddTxt text$, Help_Col_Bold, Help_LinkN
          END IF
          i = rp '+ 1
          GOTO Special

        END IF
      END IF

    END IF

    IF nl = 1 THEN ' If a new line...
      IF c$(3) = "## " THEN ' Section
        section$ = ""
        FOR ii = i + 3 TO LEN(a$)
          IF ASC(a$, ii) = 10 THEN EXIT FOR
          section$ = section$ + MID$(a$, ii, 1)
        NEXT
        Help_AddTxt section$ + ":" + CHR$(13), Help_Col_Section, 0
        i = ii - 1: GOTO Special
      END IF
      IF c$(5) = "```vb" THEN ' Code
        Help_NewLine
        Help_BG_Col = 1
        i = i + 4: GOTO Special
      END IF
      IF c$(7) = "```text" THEN ' Output
        Help_NewLine
        Help_BG_Col = 2
        i = i + 6: GOTO Special
      END IF
      IF c$(3) = "```" THEN
        Help_BG_Col = 0
        i = i + 2
        GOTO Special
      END IF
      IF c$(2) = "> " THEN ' "Quote"
        Help_AddTxt "    ", col, 0
        Help_NewLineIndent = Help_NewLineIndent + 4
        i = i + 2: GOTO special2
      END IF
      IF c$(2) = "* " OR c$(2) = "- " THEN ' Bullet
        i = i + 1
        Help_AddTxt CHR$(254) + " ", col, 0
        Help_NewLineIndent = Help_NewLineIndent + 2
        GOTO Special
      END IF
      IF c$(4) = "  * " OR c$(4) = "  - " THEN ' Sub Bullet
        i = i + 3
        Help_AddTxt "    " + CHR$(254) + " ", col, 0
        Help_NewLineIndent = Help_NewLineIndent + 6
        GOTO Special
      END IF
      IF c$(6) = "    * " OR c$(6) = "    - " THEN ' Sub Bullet
        i = i + 5
        Help_AddTxt "    " + CHR$(254) + " ", col, 0
        Help_NewLineIndent = Help_NewLineIndent + 6
        GOTO Special
      END IF
      IF c$(3) = "---" THEN ' Horizontal Line
        i = i + 2
        Help_AddTxt STRING$(100, 196), 8, 0
        GOTO Special
      END IF
    END IF

    IF c$(2) = "**" THEN ' Bold
      ' Bold is only active is asterisks are immediately followed by a character.
      IF Help_Bold = 0 AND c$(3) = "** " THEN GOTO Special
      i = i + 1
      IF Help_Bold = 0 THEN Help_Bold = 1 ELSE Help_Bold = 0
      col = Help_Col
      GOTO Special
    END IF

    IF c$ = "*" THEN ' Italic
      ' Italic is only active is asterisk is immediately followed by a character.
      IF Help_Italic = 0 AND c$(2) = "* " THEN GOTO Special
      IF Help_Italic = 0 THEN Help_Italic = 1 ELSE Help_Italic = 0
      col = Help_Col
      GOTO Special
    END IF

    ' ******************************************

        ' 'Links
        ' IF c = 91 THEN '"["
        '     IF c$(2) = "[[" AND link = 0 THEN
        '         i = i + 1
        '         link = 1
        '         link$ = ""
        '         GOTO Special
        '     END IF
        ' END IF
        ' IF link = 1 THEN
        '     IF c$(2) = "]]" OR c$(2) = "}}" THEN
        '         i = i + 1
        '         link = 0
        '         text$ = link$
        '         i2 = INSTR(link$, "|")
        '         IF i2 THEN
        '             text$ = RIGHT$(link$, LEN(link$) - i2)
        '             link$ = LEFT$(link$, i2 - 1)
        '         END IF

        '         IF INSTR(link$, "#") THEN 'local page links not supported yet
        '             Help_AddTxt text$, 8, 0
        '             GOTO Special
        '         END IF

        '         Help_LinkN = Help_LinkN + 1
        '         Help_Link$ = Help_Link$ + "PAGE:" + link$ + Help_Link_Sep$

        '         IF Help_BG_Col = 0 THEN
        '             Help_AddTxt text$, Help_Col_Link, Help_LinkN
        '         ELSE
        '             Help_AddTxt text$, Help_Col_Bold, Help_LinkN
        '         END IF
        '         GOTO Special
        '     END IF
        '     link$ = link$ + c$
        '     GOTO Special
        ' END IF


        ' 'External links
        ' IF c = 91 THEN '"["
        '     IF c$(6) = "[http:" AND elink = 0 THEN
        '         elink = 2
        '         elink$ = ""
        '         GOTO Special
        '     END IF
        ' END IF
        ' IF elink = 2 THEN
        '     IF c$ = " " THEN
        '         elink = 1
        '         GOTO Special
        '     END IF
        '     elink$ = elink$ + c$
        '     GOTO Special
        ' END IF
        ' IF elink >= 1 THEN
        '     IF c$ = "]" THEN
        '         elink = 0
        '         elink$ = " " + elink$
        '         Help_LockWrap = 1: Help_Wrap_Pos = 0
        '         Help_AddTxt elink$, 8, 0
        '         Help_LockWrap = 0
        '         elink$ = ""
        '         GOTO Special
        '     END IF
        ' END IF

        ' IF c = 123 THEN '"{"
        '     IF c$(5) = "{{KW|" THEN 'this is really a link!
        '         i = i + 4
        '         link = 1
        '         link$ = ""
        '         GOTO Special
        '     END IF
        '     IF c$(5) = "{{Cl|" THEN 'this is really a link too (in code example)
        '         i = i + 4
        '         link = 1
        '         link$ = ""
        '         GOTO Special
        '     END IF
        '     IF c$(2) = "{{" THEN
        '         i = i + 1
        '         cb = 1
        '         cb$ = ""
        '         GOTO Special
        '     END IF
        ' END IF

        ' IF cb = 1 THEN
        '     IF c$ = "|" OR c$(2) = "}}" THEN
        '         IF c$(2) = "}}" THEN i = i + 1
        '         cb = 0

        '         IF cb$ = "PageSyntax" THEN Help_AddTxt "Syntax:" + CHR$(13), Help_Col_Section, 0
        '         IF cb$ = "PageParameters" THEN Help_AddTxt "Parameters:" + CHR$(13), Help_Col_Section, 0
        '         IF cb$ = "PageDescription" THEN Help_AddTxt "Description:" + CHR$(13), Help_Col_Section, 0
        '         IF cb$ = "PageAvailability" THEN Help_AddTxt "Availability:" + CHR$(13), Help_Col_Section, 0
        '         IF cb$ = "PageExamples" THEN Help_AddTxt "Code Examples:" + CHR$(13), Help_Col_Section, 0
        '         IF cb$ = "PageSeeAlso" THEN Help_AddTxt "See also:" + CHR$(13), Help_Col_Section, 0
        '         IF cb$ = "PageLegacySupport" THEN Help_AddTxt "Legacy support" + CHR$(13), Help_Col_Section, 0
        '         IF cb$ = "PageQBasic" THEN Help_AddTxt "QBasic/QuickBASIC" + CHR$(13), Help_Col_Section, 0

        '         IF cb$ = "CodeStart" THEN
        '             Help_NewLine
        '             Help_BG_Col = 1
        '             'Skip non-meaningful content before section begins
        '             ws = 1
        '             FOR ii = i + 1 TO LEN(a$)
        '                 IF ASC(a$, ii) = 10 THEN EXIT FOR
        '                 IF ASC(a$, ii) <> 32 AND ASC(a$, ii) <> 39 THEN ws = 0
        '             NEXT
        '             IF ws THEN i = ii
        '         END IF
        '         IF cb$ = "CodeEnd" THEN Help_BG_Col = 0
        '         IF cb$ = "OutputStart" THEN
        '             Help_NewLine
        '             Help_BG_Col = 2
        '             'Skip non-meaningful content before section begins
        '             ws = 1
        '             FOR ii = i + 1 TO LEN(a$)
        '                 IF ASC(a$, ii) = 10 THEN EXIT FOR
        '                 IF ASC(a$, ii) <> 32 AND ASC(a$, ii) <> 39 THEN ws = 0
        '             NEXT
        '             IF ws THEN i = ii
        '         END IF
        '         IF cb$ = "OutputEnd" THEN Help_BG_Col = 0

        '         GOTO Special

        '     END IF

        '     cb$ = cb$ + c$ 'reading maro name
        '     GOTO Special
        ' END IF 'cb=1

        ' IF c$(2) = "}}" THEN 'probably the end of a text section of macro'd text
        '     i = i + 1
        '     GOTO Special
        ' END IF

        IF c$(4) = " == " THEN
            i = i + 3
            Help_Underline = 1
            GOTO Special
        END IF
        IF c$(3) = "== " THEN
            i = i + 2
            Help_Underline = 1
            GOTO Special
        END IF
        IF c$(3) = " ==" THEN
            i = i + 2
            GOTO Special
        END IF
        IF c$(2) = "==" THEN
            i = i + 1
            Help_Underline = 1
            GOTO Special
        END IF

        ' IF c$(3) = "'''" THEN
        '     i = i + 2
        '     IF Help_Bold = 0 THEN Help_Bold = 1 ELSE Help_Bold = 0
        '     col = Help_Col
        '     GOTO Special
        ' END IF

        ' IF c$(2) = "''" THEN
        '     i = i + 1
        '     IF Help_Italic = 0 THEN Help_Italic = 1 ELSE Help_Italic = 0
        '     col = Help_Col
        '     GOTO Special
        ' END IF

        ' IF nl = 1 THEN

        '     IF c$(3) = "** " THEN
        '         i = i + 2
        '         Help_AddTxt "    " + CHR$(254) + " ", col, 0
        '         Help_NewLineIndent = Help_NewLineIndent + 6
        '         GOTO Special
        '     END IF
        '     IF c$(2) = "* " THEN
        '         i = i + 1
        '         Help_AddTxt CHR$(254) + " ", col, 0
        '         Help_NewLineIndent = Help_NewLineIndent + 2
        '         GOTO Special
        '     END IF
        '     IF c$(2) = "**" THEN
        '         i = i + 1
        '         Help_AddTxt "    " + CHR$(254) + " ", col, 0
        '         Help_NewLineIndent = Help_NewLineIndent + 6
        '         GOTO Special
        '     END IF
        '     IF c$ = "*" THEN
        '         Help_AddTxt CHR$(254) + " ", col, 0
        '         Help_NewLineIndent = Help_NewLineIndent + 2
        '         GOTO Special
        '     END IF

        ' END IF

        s$ = "{|"
        IF c$(LEN(s$)) = s$ THEN
            IF MID$(a$, i, 20) = "{| class=" + CHR$(34) + "wikitable" + CHR$(34) THEN
                REDIM tableRow(1 TO 100) AS STRING
                REDIM tableCol(1 TO 100) AS INTEGER
                DIM totalCols AS INTEGER
                DIM totalRows AS INTEGER
                DIM thisCol AS INTEGER
                totalCols = 0: totalRows = 0
                DO
                    l$ = wikiGetLine$(a$, i)
                    IF l$ = "|}" OR i >= LEN(a$) THEN EXIT DO
                    IF l$ = "|-" THEN _CONTINUE

                    m$ = ""
                    IF LEFT$(l$, 2) = "! " THEN m$ = "!!"
                    IF LEFT$(l$, 2) = "| " THEN m$ = "||"

                    IF LEN(m$) THEN
                        'new row
                        totalRows = totalRows + 1
                        IF totalRows > UBOUND(tableRow) THEN
                            REDIM _PRESERVE tableRow(1 TO UBOUND(tableRow) + 99) AS STRING
                        END IF

                        'columns
                        j = 3
                        thisCol = 0
                        DO
                            p$ = wikiGetUntil$(l$, j, m$)
                            j = j + 1
                            IF LEN(_TRIM$(p$)) THEN
                                thisCol = thisCol + 1
                                IF totalCols < thisCol THEN totalCols = thisCol
                                IF thisCol > UBOUND(tableCol) THEN
                                    REDIM _PRESERVE tableCol(1 TO UBOUND(tableCol) + 99) AS INTEGER
                                END IF
                                IF tableCol(thisCol) < LEN(_TRIM$(p$)) + 2 THEN tableCol(thisCol) = LEN(_TRIM$(p$)) + 2
                                tableRow(totalRows) = tableRow(totalRows) + _TRIM$(p$) + CHR$(0)
                            END IF
                        LOOP WHILE j < LEN(l$)
                    END IF
                LOOP
                backupHelp_BG_Col = Help_BG_Col
                backupBold = Help_Bold
                Help_BG_Col = 2
                FOR printTable = 1 TO totalRows
                    IF printTable = 1 THEN
                        Help_Bold = 1
                    ELSE
                        Help_Bold = 0
                    END IF
                    col = Help_Col

                    j = 1
                    tableOutput$ = ""
                    FOR checkCol = 1 TO totalCols
                        p$ = wikiGetUntil$(tableRow(printTable), j, CHR$(0))
                        p$ = StrReplace$(p$, "&lt;", "<")
                        p$ = StrReplace$(p$, "&gt;", ">")
                        p$ = StrReplace$(p$, CHR$(194) + CHR$(160), "")
                        p$ = StrReplace$(p$, "&amp;", "&")
                        p$ = StrReplace$(p$, CHR$(226) + CHR$(136) + CHR$(146), "-")
                        p$ = StrReplace$(p$, "<nowiki>", "")
                        p$ = StrReplace$(p$, "</nowiki>", "")
                        p$ = StrReplace$(p$, "<center>", "")
                        p$ = StrReplace$(p$, "</center>", "")
                        p$ = StrReplace$(p$, "</span>", "")

                        thisCol$ = SPACE$(tableCol(checkCol))
                        MID$(thisCol$, 2) = p$
                        tableOutput$ = tableOutput$ + thisCol$
                    NEXT
                    Help_AddTxt tableOutput$, col, 0
                    Help_AddTxt CHR$(13), col, 0
                NEXT
                Help_BG_Col = backupHelp_BG_Col
                Help_Bold = backupBold
                Help_AddTxt CHR$(13), col, 0
            ELSE
                i = i + 1
                FOR ii = i TO LEN(a$) - 1
                    IF MID$(a$, ii, 2) = "|}" THEN i = ii + 1: EXIT FOR
                NEXT
            END IF
            GOTO Special
        END IF

        IF c$(3) = CHR$(226) + CHR$(128) + CHR$(166) THEN '...
            i = i + 2
            Help_AddTxt "...", col, 0
            GOTO Special
        END IF

        IF c$ = CHR$(226) THEN 'UNICODE UTF8 extender, it's a very good bet the following 2 characters will be 2 bytes of UNICODE
            i = i + 2
            GOTO Special
        END IF

        ' IF c$ = ":" AND nl = 1 THEN
        '     Help_AddTxt "    ", col, 0
        '     Help_NewLineIndent = Help_NewLineIndent + 4
        '     i = i + 1: GOTO special2
        ' END IF

        s$ = "__NOTOC__" + CHR$(10)
        IF c$(LEN(s$)) = s$ THEN
            i = i + LEN(s$) - 1
            GOTO Special
        END IF
        s$ = "__NOTOC__"
        IF c$(LEN(s$)) = s$ THEN
            i = i + LEN(s$) - 1
            GOTO Special
        END IF

        ' IF c$(4) = "----" THEN
        '     i = i + 3
        '     Help_AddTxt STRING$(100, 196), 8, 0
        '     GOTO Special
        ' END IF

        IF c$ = CHR$(10) THEN
            Help_NewLineIndent = 0

            IF Help_Txt_Len >= 8 THEN
                IF ASC(Help_Txt$, Help_Txt_Len - 3) = 13 AND ASC(Help_Txt$, Help_Txt_Len - 7) = 13 THEN GOTO skipdoubleblanks
            END IF

            Help_AddTxt CHR$(13), col, 0

            skipdoubleblanks:
            nl = 1
            i = i + 1: GOTO special2
        END IF

        Help_AddTxt CHR$(c), col, 0

        Special:
        i = i + 1
        nl = 0
        special2:
    LOOP

    'Trim Help_Txt$
    Help_Txt$ = LEFT$(Help_Txt$, Help_Txt_Len) + CHR$(13) 'chr13 stops reads past end of content

    'generate preview file
    'OPEN "help_preview.txt" FOR OUTPUT AS #1
    'FOR i = 1 TO LEN(Help_Txt$) STEP 4
    '    c = ASC(Help_Txt$, i)
    '    c$ = CHR$(c)
    '    IF c = 13 THEN c$ = CHR$(13) + CHR$(10)
    '    PRINT #1, c$;
    'NEXT
    'CLOSE #1

    'PRINT "Finished parsing!": _DISPLAY


    IF Help_PageLoaded$ = "Keyword Reference (Alphabetical)" THEN

        fh = FREEFILE
        OPEN "internal\help\links.bin" FOR OUTPUT AS #fh
        a$ = SPACE$(1000)
        FOR cy = 1 TO help_h
            'isolate and REVERSE select link
            l = CVL(MID$(Help_Line$, (cy - 1) * 4 + 1, 4))
            x = l
            x2 = 1
            c = ASC(Help_Txt$, x)
            oldlnk = 0
            lnkx1 = 0: lnkx2 = 0
            DO UNTIL c = 13
                ASC(a$, x2) = c
                lnk = CVI(MID$(Help_Txt$, x + 2, 2))
                IF oldlnk = 0 AND lnk <> 0 THEN lnkx1 = x2
                IF (lnk = 0 OR ASC(Help_Txt$, x + 4) = 13) AND lnkx1 <> 0 THEN
                    lnkx2 = x2: IF lnk = 0 THEN lnkx2 = lnkx2 - 1

                    IF lnkx1 <> 3 THEN GOTO ignorelink
                    IF ASC(a$, 1) <> 254 THEN GOTO ignorelink

                    'retrieve lnk info
                    lnk2 = lnk: IF lnk2 = 0 THEN lnk2 = oldlnk
                    l1 = 1
                    FOR lx = 1 TO lnk2 - 1
                        l1 = INSTR(l1, Help_Link$, Help_Link_Sep$) + 1
                    NEXT
                    l2 = INSTR(l1, Help_Link$, Help_Link_Sep$) - 1
                    l$ = MID$(Help_Link$, l1, l2 - l1 + 1)
                    'assume PAGE
                    l$ = RIGHT$(l$, LEN(l$) - 5)

                    a2$ = MID$(a$, lnkx1, lnkx2 - lnkx1 + 1)

                    IF INSTR(a2$, "(") THEN a2$ = LEFT$(a2$, INSTR(a2$, "(") - 1)
                    IF INSTR(a2$, " ") THEN a2$ = LEFT$(a2$, INSTR(a2$, " ") - 1)
                    IF INSTR(a2$, "...") THEN
                        a3$ = RIGHT$(a2$, LEN(a2$) - INSTR(a2$, "...") - 2)

                        skip = 0

                        IF UCASE$(LEFT$(a3$, 3)) <> "_GL" THEN
                            FOR ci = 1 TO LEN(a3$)
                                ca = ASC(a3$, ci)
                                IF ca >= 97 AND ca <= 122 THEN skip = 1
                                IF ca = 44 THEN skip = 1
                            NEXT
                        END IF

                        IF skip = 0 THEN PRINT #fh, a3$ + "," + l$

                        a2$ = LEFT$(a2$, INSTR(a2$, "...") - 1)
                    END IF


                    skip = 0
                    IF UCASE$(LEFT$(a2$, 3)) <> "_GL" THEN
                        FOR ci = 1 TO LEN(a2$)
                            ca = ASC(a2$, ci)
                            IF ca >= 97 AND ca <= 122 THEN skip = 1
                            IF ca = 44 THEN skip = 1
                        NEXT
                    END IF
                    IF skip = 0 THEN PRINT #fh, a2$ + "," + l$
                    oa2$ = a2$

                    a2$ = l$
                    IF INSTR(a2$, "(") THEN a2$ = LEFT$(a2$, INSTR(a2$, "(") - 1)
                    IF INSTR(a2$, " ") THEN a2$ = LEFT$(a2$, INSTR(a2$, " ") - 1)
                    IF INSTR(a2$, "...") THEN
                        a3$ = RIGHT$(a2$, LEN(a2$) - INSTR(a2$, "...") - 2)

                        skip = 0
                        IF UCASE$(LEFT$(a3$, 3)) <> "_GL" THEN
                            FOR ci = 1 TO LEN(a3$)
                                ca = ASC(a3$, ci)
                                IF ca >= 97 AND ca <= 122 THEN skip = 1
                                IF ca = 44 THEN skip = 1
                            NEXT
                        END IF
                        IF skip = 0 THEN PRINT #fh, a3$ + "," + l$

                        a2$ = LEFT$(a2$, INSTR(a2$, "...") - 1)
                    END IF

                    skip = 0
                    IF UCASE$(LEFT$(a2$, 3)) <> "_GL" THEN
                        FOR ci = 1 TO LEN(a2$)
                            ca = ASC(a2$, ci)
                            IF ca >= 97 AND ca <= 122 THEN skip = 1
                            IF ca = 44 THEN skip = 1
                        NEXT
                    END IF
                    IF skip = 0 AND a2$ <> oa2$ THEN PRINT #fh, a2$ + "," + l$

                    ignorelink:

                    lnkx1 = 0: lnkx2 = 0
                END IF
                x = x + 4: c = ASC(Help_Txt$, x)
                x2 = x2 + 1
                oldlnk = lnk
            LOOP
        NEXT
        CLOSE #fh

    END IF

END SUB

FUNCTION wikiGetLine$ (a$, i)
    wikiGetLine$ = wikiGetUntil(a$, i, CHR$(10))
END FUNCTION

FUNCTION wikiGetUntil$ (a$, i, separator$)
    IF i >= LEN(a$) THEN EXIT FUNCTION
    j = INSTR(i, a$, separator$)
    IF j = 0 THEN
        wikiGetUntil$ = MID$(a$, i)
        i = LEN(a$)
    ELSE
        wikiGetUntil$ = MID$(a$, i, j - i)
        i = j + 1
    END IF
END FUNCTION