Author Topic: Working on the WP "Find" feature, or Fun with Parsing... (Read 2944 times)

Pete · « **on:** January 26, 2021, 06:02:09 pm »

Code: QB64: [Select]

DIM SHARED mx%, my%, margin.t AS INTEGER, margin.l AS INTEGER
DIM SHARED action$
DIM SHARED mb AS my_mb
DIM scrb AS my_scrb
 
TYPE my_mb
    l AS INTEGER
    r AS INTEGER
    m AS INTEGER
    w AS INTEGER
    drag AS INTEGER
    dragon AS INTEGER
END TYPE
 
TYPE my_scrb
    t AS INTEGER
    b AS INTEGER
    l AS INTEGER
    x AS INTEGER
    i AS INTEGER
    d AS INTEGER
    h AS INTEGER
    s AS INTEGER
    opt AS INTEGER
    adjust AS INTEGER
END TYPE
 
DIM SHARED SMODE, passrightmargin%
REDIM SHARED formbuttony%(3), formbuttonx%(3), formbutton$(3)
REDIM button$(8)
CLS
REDIM x$(10)
margin.t = 7
margin.l = 3
dwidth = 72
page.h = 1
scr = 0
 
x$(1) = "This is a String Test. A way to string test the F3 find string function." + CHR$(10)
 
LOCATE margin.t + 1, margin.l + 1: PRINT x$(1);
 
msg$ = " Find:                                                  "
button% = 4: button_index% = 4
W1% = 0: W2% = 0: W3% = 0: W4% = 0
 
CALL popup(msg$, msg%, button$(), button%, button_index%, find$) ' Pass by ref text$ to find$
 
SELECT CASE action$
    CASE "Whole Word"
        whole_word% = 1
        case_sensitive% = 0
    CASE "Whole/Case"
        whole_word% = 1
        case_sensitive% = 1
    CASE "Any Part"
        whole_word% = 0
        case_sensitive% = 0
    CASE "Any/Case"
        whole_word% = 0
        case_sensitive% = 1
END SELECT
action$ = ""
 
IF LEN(find$) THEN
    i% = 1
    FOR j% = 1 TO page.h
        LOCATE margin.t + i%, margin.l + 1
        a1$ = SPACE$(dwidth + 1)
        x$ = RTRIM$(MID$(x$(scr + i%), 1, INSTR(x$(scr + i%), CHR$(10)) - 1))
        MID$(a1$, 1, LEN(MID$(x$(scr + i%), 1, dwidth))) = x$
 
        SELECT CASE case_sensitive%
            CASE 0
                SELECT CASE whole_word%
                    CASE 0
                        IF INSTR(LCASE$(a1$), find$) THEN
                            seed% = 1
                            PRINT MID$(a1$, 1, INSTR(LCASE$(a1$), find$) - 1);
                            DO UNTIL INSTR(seed%, LCASE$(a1$), find$) = 0
                                COLOR 14, 4
                                PRINT MID$(a1$, INSTR(seed%, LCASE$(a1$), find$), LEN(find$));
                                seed% = INSTR(seed%, LCASE$(a1$), find$) + LEN(find$)
                                COLOR 7, 0
                                PRINT MID$(a1$, seed%, INSTR(seed%, LCASE$(a1$), find$) - seed%);
                            LOOP
                            PRINT MID$(x$(i%), seed%);
                        ELSE
                            PRINT a1$;
                        END IF
 
                    CASE 1
                        seed% = 0
                        WHILE INSTR(seed%, LCASE$(a1$), LCASE$(find$))
                            flag% = 0
                            seed% = INSTR(seed%, LCASE$(a1$), LCASE$(find$))
                            IF seed% - 1 = 0 OR MID$(LCASE$(a1$), seed% - 1, 1) = " " THEN flag% = 1
 
                            IF flag% THEN
                                IF INSTR(".,;:?!}]) ", MID$(LCASE$(a1$), seed% + LEN(find$), 1)) THEN flag% = 2
                            END IF
 
                            IF flag% = 2 THEN
                                LOCATE , margin.l + seed%
                                COLOR 14, 4
                                PRINT MID$(a1$, seed%, LEN(find$));
                            END IF
                            seed% = seed% + LEN(find$)
                        WEND
                END SELECT
 
            CASE 1
                SELECT CASE whole_word%
                    CASE 0
                        IF INSTR(a1$, find$) THEN
                            seed% = 1
                            PRINT MID$(a1$, 1, INSTR(a1$, find$) - 1);
                            DO UNTIL INSTR(seed%, a1$, find$) = 0
                                COLOR 14, 4
                                PRINT MID$(a1$, INSTR(seed%, a1$, find$), LEN(find$));
                                seed% = INSTR(seed%, a1$, find$) + LEN(find$)
                                COLOR 7, 0
                                PRINT MID$(a1$, seed%, INSTR(seed%, a1$, find$) - seed%);
                            LOOP
                            PRINT MID$(x$(i%), seed%);
                        ELSE
                            PRINT a1$;
                        END IF
 
                    CASE 1
                        seed% = 0
                        WHILE INSTR(seed%, a1$, find$)
                            flag% = 0
                            seed% = INSTR(seed%, a1$, find$)
                            IF seed% - 1 = 0 OR MID$(a1$, seed% - 1, 1) = " " THEN flag% = 1
 
                            IF flag% THEN
                                IF INSTR(".,;:?!}]) ", MID$(a1$, seed% + LEN(find$), 1)) THEN flag% = 2
                            END IF
 
                            IF flag% = 2 THEN
                                LOCATE , margin.l + seed%
                                COLOR 14, 4
                                PRINT MID$(a1$, seed%, LEN(find$));
                            END IF
                            seed% = seed% + LEN(find$)
                        WEND
                END SELECT
        END SELECT
    NEXT
END IF
 
SLEEP
_KEYCLEAR
RUN
 
SUB popup (msg$, msg%, button$(), button%, button_index%, text$)
    DIM scrb AS my_scrb
    STATIC doctype%
    REDIM button$(8)
    button$(1) = "Yes": button$(2) = "No!"
    button$(3) = "Retry": button$(4) = "Cancel"
    button$(5) = "Whole Word": button$(6) = "Whole/Case": button$(7) = "Any Part": button$(8) = "Any/Case"
    iyy% = CSRLIN: ixx% = POS(0)
    IF W3% = 0 THEN W3% = 5 ' Min.
    IF W4% = 0 THEN W4% = LEN(msg$) + 4 ' Min
 
    IF W1% = 0 THEN
        ' Auto-Center
        W1% = _HEIGHT \ 2 - W3% \ 2 + .5
        W2% = _WIDTH \ 2 - W4% \ 2 + .5
    END IF
 
    SELECT CASE SMODE
        CASE 0
            oldsmode = SMODE: PCOPY 0, 1: SCREEN 0, 0, 1, 1: SMODE = 1
        CASE 1
            oldsmode = SMODE: PCOPY 1, 2: SCREEN 0, 0, 2, 2: SMODE = 2
    END SELECT
 
    LOCATE W1%, W2%, 0 ' Cursor hide
    FOR I = 1 TO W3%
        A$ = ""
        COLOR 15, 1
        LOCATE , W2%
        A$ = A$ + SPACE$(W4% - LEN(A$))
        PRINT A$;
        IF I <> 1 THEN
            COLOR 1, 0: PRINT CHR$(176)
        ELSE PRINT
        END IF
    NEXT I
    LOCATE , W2% + 1
    COLOR 1, 0: PRINT STRING$(W4%, CHR$(176));
    COLOR 14, 1
    LOCATE W1%, W2%
    PRINT CHR$(218); STRING$(W4% - 2, CHR$(196)); CHR$(191);
    LOCATE W1% + W3% - 1, W2%
    PRINT CHR$(192); STRING$(W4% - 2, CHR$(196)); CHR$(217);
    FOR I = 1 TO W3% - 2
        LOCATE W1% + I, W2%: PRINT CHR$(179);: LOCATE W1% + I, W2% + W4% - 1: PRINT CHR$(179);
    NEXT I
    LOCATE W1%, W2% + W4% - 2: COLOR 15, 1: PRINT "x";
 
    IF LEN(msg$) THEN
        SELECT CASE msg%
            CASE -1
                LOCATE W1% + 1, W2% + W4% \ 2 - LEN(msg$) \ 2
                PRINT msg$;
            CASE 0
                COLOR 15, 1
                IF button% THEN
                    LOCATE W1% + W3% \ 2 - 1, W2% + W4% \ 2 - LEN(msg$) \ 2
                    PRINT msg$;
                    j% = 0
                    FOR i% = 1 TO button%
                        j% = j% + LEN(button$(button_index% + i%)) + 2
                    NEXT
                    LOCATE W1% + W3% \ 2 + 1, W2% + W4% \ 2 - j% \ 2 - 1
                    COLOR 0, 7
                    mouselocator$ = STRING$(_WIDTH, "0"): mouselocator% = W1% + W3% \ 2 + 1
                    k% = 0
                    FOR i% = button_index% + 1 TO button_index% + button%
                        IF k% THEN LOCATE , POS(0) + 2
                        k% = k% + 1
                        MID$(mouselocator$, POS(0)) = STRING$(LEN(button$(i%)) + 2, LTRIM$(STR$(k%)))
                        PRINT SPACE$(LEN(button$(i%)) + 2);
                    NEXT
                    LOCATE W1% + W3% \ 2 + 1, W2% + W4% \ 2 - j% \ 2
                    COLOR 0, 7
                    k% = 0
                    FOR i% = button_index% + 1 TO button_index% + button%
                        IF k% THEN LOCATE , POS(0) + 4
                        PRINT button$(i%);
                        k% = k% + 1
                    NEXT
 
                    LOCATE 11, 18
                    COLOR 8, 1: PRINT CHR$(222);
                    COLOR c2%, c1%: PRINT SPACE$(48);
                    passrightmargin% = POS(0) - 1: LOCATE 11, 19
 
 
 
 
                    tabx% = 0: action$ = ""
                    DO
                        IF pete = 0 THEN
                            IF xx1 THEN IF my% = 11 THEN LOCATE 11, xx1, 1 ELSE LOCATE 11, xx1, 0
                            CALL textinput(text$, passrightmargin%, mykey%, doctype$, doctype$(), doctype%, doctypey%(), doctypex%(), x$(), xfull$(), scrb, noe, row, scr, config%, b$)
                            xx1 = POS(0)
                        ELSE
                            CALL user(b$, mx%, my%, alt%, shift%, ctrl%, ctrlshift%, con_panel%, doc_status_saved%)
                        END IF
                        IF LEN(b$) THEN
                            SELECT CASE b$
                                CASE CHR$(13)
                                    IF pete = 0 THEN
                                        SELECT CASE tabx%
                                            CASE 1
                                                IF button_index% = 0 THEN action$ = "yes"
                                                IF button_index% = 2 THEN action$ = "retry"
                                                IF button_index% = 4 THEN action$ = "Whole Word" ' F3 Find option.
                                            CASE 2
                                                IF button_index% = 0 THEN action$ = "no"
                                                IF button_index% = 2 THEN action$ = "abort"
                                                IF button_index% = 4 THEN action$ = "Whole/Case" ' F3 Find option.
                                                ' Find Function only.
                                            CASE 0, 3
                                                IF button_index% = 4 THEN action$ = "Any Part" ' F3 Find option.
                                            CASE 4
                                                IF button_index% = 4 THEN action$ = "Any/Case" ' F3 Find option.
                                        END SELECT
                                    ELSE
                                        SELECT CASE tabx%
                                            CASE 1
                                                IF button_index% = 0 THEN action$ = "yes"
                                                IF button_index% = 2 THEN action$ = "retry"
                                            CASE 2
                                                IF button_index% = 0 THEN action$ = "no"
                                                IF button_index% = 2 THEN action$ = "abort"
                                        END SELECT
                                    END IF
                                CASE CHR$(27)
                                    action$ = "close"
                            END SELECT
                        END IF
 
                        IF my% = W1% AND mx% = W2% + W4% - 2 THEN
                            IF closex% = 0 THEN closex% = -1: LOCATE my%, mx%: COLOR 15, 4: PRINT "x";
                        ELSE
                            IF closex% THEN closex% = 0: LOCATE W1%, W2% + W4% - 2: COLOR 7, 1: PRINT "x";
                        END IF
 
                        IF bhl% THEN IF bhl% = 1 AND my% <> mouselocator% OR bhl% = 1 AND MID$(mouselocator$, mx%, 1) = "0" THEN tabx% = 0: bhl% = 0
                        IF b$ = CHR$(9) THEN tabx% = tabx% + 1: IF tabx% > button% THEN tabx% = 1
                        IF oldmx% = mx% AND oldmy% = my% THEN i% = 0 ELSE i% = -1
                        IF b$ = CHR$(9) OR my% = mouselocator% AND MID$(mouselocator$, mx%, 1) <> "0" AND i% THEN
                            IF b$ = CHR$(9) THEN k% = tabx%: bhl% = 9 ELSE k% = VAL(MID$(mouselocator$, mx%, 1)): tabx% = k%: bhl% = 1
 
                            IF h% AND h% <> tabx% THEN
                                COLOR 0, 7
                                LOCATE W1% + W3% \ 2 + 1, INSTR(mouselocator$, LTRIM$(STR$(h%)))
                                PRINT SPACE$(1) + button$(h% + button_index%) + SPACE$(1);
                            END IF
 
                            h% = k%: tabx% = h%
 
                            COLOR 0, 3
                            LOCATE W1% + W3% \ 2 + 1, INSTR(mouselocator$, LTRIM$(STR$(h%)))
                            PRINT SPACE$(1) + button$(h% + button_index%) + SPACE$(1);
                            _DELAY .15
                        ELSE
                            IF h% AND tabx% = 0 THEN
                                COLOR 0, 7
                                LOCATE W1% + W3% \ 2 + 1, INSTR(mouselocator$, LTRIM$(STR$(h%)))
                                PRINT SPACE$(1) + button$(h% + button_index%) + SPACE$(1);
                                h% = 0: tabx% = 0
                            END IF
                        END IF
 
                        IF mb.l THEN
                            IF closex% THEN SOUND 1000, .1: closex% = 0: action$ = "close"
                            IF my% = mouselocator% AND MID$(mouselocator$, mx%, 1) <> "0" THEN
                                SOUND 1000, .1
                                SELECT CASE VAL(MID$(mouselocator$, mx%, 1))
                                    CASE 1
                                        IF button_index% = 0 THEN action$ = "yes"
                                        IF button_index% = 2 THEN action$ = "retry"
                                        IF button_index% = 4 THEN action$ = "Whole Word" ' F3 Find option.
                                    CASE 2
                                        IF button_index% = 0 THEN action$ = "no"
                                        IF button_index% = 2 THEN action$ = "abort"
                                        IF button_index% = 4 THEN action$ = "Whole/Case" ' F3 Find option.
                                        ' Find Function only.
                                    CASE 3
                                        IF button_index% = 4 THEN action$ = "Any Part" ' F3 Find option.
                                    CASE 4
                                        IF button_index% = 4 THEN action$ = "Any/Case" ' F3 Find option.
                                END SELECT
                            END IF
                        END IF
 
                        IF b$ = CHR$(9) THEN b$ = ""
                        oldmy% = my%: oldmx% = mx%
                    LOOP UNTIL LEN(action$)
                    SMODE = oldsmode: SCREEN 0, 0, SMODE, SMODE
                ELSE
                    LOCATE W1% + W3% \ 2, W2% + W4% \ 2 - LEN(msg$) \ 2
                    PRINT msg$;
                END IF
 
        END SELECT
    END IF
    LOCATE iyy%, ixx%
END SUB
 
SUB user (b$, mx%, my%, alt%, shift%, ctrl%, ctrlshift%, con_panel%, doc_status_saved%)
 
    '''IF _EXIT THEN CALL exit_warning(doc_status_saved%)
 
    DEF SEG = 0
    IF PEEK(1047) MOD 16 = 1 OR PEEK(1047) MOD 16 = 2 THEN shift% = -1 ELSE shift% = 0
    IF PEEK(1047) MOD 16 = 3 OR PEEK(1047) MOD 16 = 4 THEN ctrl% = -1 ELSE ctrl% = 0
    IF PEEK(1047) MOD 16 = 5 OR PEEK(1047) MOD 16 = 6 THEN ctrlshift% = -1 ELSE ctrlshift% = 0
 
    IF PEEK(1047) MOD 16 = 7 OR PEEK(1047) MOD 16 = 8 THEN
        alt% = -1: con_panel% = -1
    ELSE
        IF alt% THEN alt% = 0: con_panel% = 1
    END IF
    DEF SEG
 
    b$ = INKEY$
 
    mb.w = 0
    WHILE _MOUSEINPUT
        mb.w = mb.w + _MOUSEWHEEL
    WEND
 
    mb.l% = _MOUSEBUTTON(1)
    mb.r% = _MOUSEBUTTON(2)
    mx% = _MOUSEX
    my% = _MOUSEY
END SUB
 
SUB textinput (text$, passrightmargin%, mykey%, doctype$, doctype$(), doctype%, doctypey%(), doctypex%(), x$(), xfull$(), scrb AS my_scrb, noe AS INTEGER, row, scr, config%, b$)
    STATIC initiate%
    STATIC hscrollon%, hscroll%, textfg%, textbk%, highlightfg%, highlightbk%, leftmargin%, rightmargin%, noleadingspace%, textmaxlength%, linecharacter%, click_l%, drag%, shiftclick%, tabx%
    STATIC starthighlight%, highlight%, overwrite%, CurAdvance%
    STATIC xx1
    '''vartable% = 2: CALL setvariables(scrb, c1%, c2%, c1alt%, h1%, h2%, row, ins%, dwidth, dwidth2, menubar%)
 
    row = 1: tabx% = 2: thumb% = 0
 
    DO
        IF NOT initiate% THEN ' Initiate textinput variables.
            initiate% = -1
            GOSUB initiate_variables
        END IF
 
        ' --------------------POLL MOUSE--->
        mb.w = 0
        WHILE _MOUSEINPUT
            mb.w = mb.w + _MOUSEWHEEL
        WEND
 
        IF mb.w = 0 THEN
            mx% = _MOUSEX ' Mouse column.
            my% = _MOUSEY ' Mouse row.
            mb.l = _MOUSEBUTTON(1)
            mb.r = _MOUSEBUTTON(2)
            mb.m = _MOUSEBUTTON(3)
        END IF
        '<----------------------------------
 
        IF noleadingspace% THEN ' Remove leading spaces of any text entry in form.
            IF LEFT$(text$, 1) = " " THEN
                DO UNTIL LEFT$(text$, 1) <> " " OR text$ = ""
                    text$ = MID$(text$, 2)
                    LOCATE , leftmargin%
                    GOSUB wash
                LOOP
            END IF
        END IF
 
        '-------------------------------------------------------------------------
        mykey% = _KEYHIT
 
        '''IF _EXIT THEN CALL exit_warning(doc_status_saved%)
 
        IF mykey% = 0 THEN
            IF my% <> oldmy% OR mx% <> oldmx% OR mb.l OR mb.w THEN
                GOSUB mouseroutine
                IF LEN(action$) THEN EXIT DO
            END IF
        END IF
 
        ''''''IF mykey% = 0 THEN GOSUB file_display_keys
 
        IF mykey% > 0 THEN
            GOSUB form_input_keyroutine
            IF LEN(action$) THEN EXIT DO
        END IF
        '-------------------------------------------------------------------------
        oldmy% = my%: oldmx% = mx%
        IF pete = 0 THEN EXIT DO
    LOOP
    EXIT SUB
 
    '---------------------------GOSUB STATEMENTS-----------------------------
    initiate_variables:
    PageWidth1% = 80
    PageWidth2% = 25
    Topmargin% = 3
    BottomMargin% = PageWidth2% - UpFromBottom%
    UpFromBottom% = 2
    BlockSize% = 0: REM -1 = variable.
    Headers% = 0: REM On -1 or Off 0
    TabElements% = 1: REM Number of input fields horizontally arranged. - 1 indicates variable.
    ColorPrompt% = 0: REM 0 = COLOR 7, 0. Set all foreground/background by background * 16 + background.
    ColorResponse% = 0: REM 0 will use textfg% and textbk% as defaults; otherwise set all foreground/background by background * 16 + background.
    RestrictInput% = -1: REM On -1 or Off 0. (Uses 3 data fields)
    InputFieldLength% = 0: REM Set to a number to allow variable length fields; otherwise filed input length will be determined by rightmargin% - (leftmargin% - 1).
    PromptColumn% = 1: REM Column where prompt starts. Use 0 if no prompts. Use -1 for  multiple prompts on same row.
    ResponseColumn% = 0: REM Set to a number if using Spacer%; otherwise 0 = input field follows response.
 
    TableStyle% = 0: REM 0 = Prompt/Space/Input, 1 = Prompt/Colon+Space/Response, 2 = Prompt/Spacers/Response
    Spacer$ = ".": REM Type of spacer character if spacers are used (Table Style 2).
 
    textfg% = 7
    textbk% = 0
    highlightfg% = 0
    highlightbk% = 7
    leftmargin% = POS(0): iyy% = CSRLIN
    rightmargin% = passrightmargin%
    textmaxlength% = 250
    noleadingspace% = -1
    linecharacter% = 255: REM Blank space
 
    IF textmaxlength% > rightmargin% - (leftmargin% - 1) THEN hscrollon% = -1
    IF rightmargin% < leftmargin% THEN CLS: PRINT "Rightmargin% cannot be smaller than leftmargin%. Redo.": END
    IF leftmargin% < 1 OR leftmargin% > 80 THEN CLS: PRINT "Leftmargin% is not within 1 - 80 range. Redo.": END
    REM no longer valid with hscroll.IF textmaxlength% > rightmargin% - leftmargin% + 1 THEN CLS: PRINT "textmaxlength% cannot exceed rightmargin% - leftmargin% + 1. Redo.:end"
    IF LEN(text$) > textmaxlength% THEN CLS: PRINT "Text length cannot start out larger than textmaxlength%. Redo.": END
 
    IF rightmargin% = leftmargin% AND textmaxlength% = 1 THEN
        CurAdvance% = 0
    ELSE
        CurAdvance% = 1
    END IF
 
    COLOR textfg%, textbk%
    LOCATE iyy%, leftmargin%, 1, 7, 7
    RETURN '-----------------------------------------------------------------
 
    form_input_keyroutine:
    DO ' Falk loop.
        IF SMODE = 3 THEN ' Doctype dropdown is open.
            SELECT CASE mykey%
                CASE 9, 27 ' Close doctype dropdown.
                    GOSUB close_doctype_dropdown
                CASE 18432 ' Arrow up.
                    IF CSRLIN = W1% + 17 THEN
                        LOCATE W1% + 17, W2% + 15
                        COLOR 7, 0: PRINT doctype$(2);
                        LOCATE W1% + 16, W2% + 15
                        COLOR 1, 3: PRINT doctype$(1);
                    END IF
                CASE 20480 ' Arrow Down
                    IF CSRLIN = W1% + 16 THEN
                        LOCATE W1% + 16, W2% + 15
                        COLOR 7, 0: PRINT doctype$(1);
                        LOCATE W1% + 17, W2% + 15
                        COLOR 1, 3: PRINT doctype$(2);
                    END IF
                CASE 13 ' Enter
                    IF pete = 0 THEN END: BEEP: b$ = CHR$(13): EXIT DO
                    IF CSRLIN = W1% + 16 THEN i% = 1 ELSE i% = 2
                    GOSUB close_doctype_dropdown
                    GOSUB doctype_selected ' (Gosub parameter i%)
            END SELECT
            mykey% = 0
            EXIT DO ' To REturn
        END IF
 
        ' Process text if cursor is on form field text input line.
        IF pete = 0 OR CSRLIN = W1% + W3% - 4 - 3 OR mykey% = 27 OR mykey% = 13 OR mykey% = 9 THEN ELSE EXIT DO
 
        IF _KEYDOWN(100303) = -1 OR _KEYDOWN(100304) = -1 THEN
            SELECT CASE mykey%
                CASE 18176, 20224, 19200, 19712, 21248, 20992
                    shift% = -1
            END SELECT
        ELSE
            IF NOT drag% AND shift% THEN shift% = 0
        END IF
 
        IF _KEYDOWN(100305) = -1 OR _KEYDOWN(100306) = -1 THEN
            SELECT CASE mykey%
                CASE 86, 118
                    control% = -2
                CASE ELSE
                    control% = -1
            END SELECT
        ELSE
            control% = 0
        END IF
 
        REM Evaluate changes to highlighted text, excluding cut/copy/paste
        IF highlight% AND shift% = 0 AND control% <> -1 AND mykey% <> 8 AND mykey% < 21248 THEN
            IF mykey% > 31 AND mykey% < 256 THEN
                GOSUB cutcopy
            ELSE
                GOSUB wash
            END IF
        END IF
 
        IF shift% = -1 AND control% = 0 THEN
            SELECT CASE mykey%
                CASE 19200
                    GOSUB HighlightLeft
 
                CASE 19712
                    IF control% THEN
                        GOSUB ctrlrt
                    ELSE
                        GOSUB HighlightRight
                    END IF
 
                CASE 18176
                    GOSUB SelectToHome
 
                CASE 20224
                    GOSUB SelectToEnd
 
                CASE 21248
                    mykey% = 88: REM Convert Delete to Cut
                    GOSUB cutcopy
 
                CASE 20992
                    GOSUB PasteClipboard
            END SELECT
 
        ELSE
 
            SELECT CASE control%
                CASE 0
                    SELECT CASE mykey%
                        CASE 18176
                            IF shift% THEN GOSUB SelectToHome ELSE GOSUB CursorHome
 
                        CASE 20224
                            IF shift% THEN GOSUB SelectToEnd ELSE GOSUB CursorEnd
 
                        CASE 8, 21248: REM Backspace and Delete
                            GOSUB BackspaceDelete
 
                        CASE 9: REM Tab
                            IF pete = 0 THEN b$ = CHR$(9): BEEP: EXIT DO ELSE GOSUB tabkey: mykey% = 0
 
                        CASE 13
                            IF pete = 0 THEN b$ = CHR$(13): EXIT DO
                            DO ' Single falks do/loop.
                                FOR i% = 1 TO UBOUND(formbutton$)
                                    IF formbuttonx%(i%) < 0 THEN
                                        SELECT CASE i%
                                            CASE 1
                                                formbuttonx%(1) = ABS(formbuttonx%(1))
                                                GOSUB popfiletypes
                                                EXIT DO
                                            CASE 2
                                                SELECT CASE config%
                                                    CASE 1
                                                        action$ = "open file"
                                                    CASE 2
                                                        action$ = "save as"
                                                END SELECT
                                                '''myfile$ = text$
                                                EXIT DO
                                            CASE 3
                                                action$ = "cancel"
                                                EXIT DO
                                        END SELECT
                                    END IF
                                NEXT
 
                                SELECT CASE tabx%
                                    CASE 1 ' File selected from display window.
                                        IF hlf% THEN
                                            GOSUB fileselected
                                            IF action$ = "change dir" THEN tabx% = 0: EXIT DO
                                            tabx% = 2
                                        ELSE
                                            BEEP
                                        END IF
                                    CASE 2 ' Save or Open selected file.
                                        IF LEN(text$) THEN
                                            SELECT CASE config%
                                                CASE 1
                                                    action$ = "open file"
                                                CASE 2
                                                    action$ = "save as"
                                            END SELECT
                                            tabx% = 2
                                            '''myfile$ = text$
                                            EXIT DO
                                        ELSE
                                            BEEP
                                        END IF
                                    CASE 3 ' Open doctype dropdown menu.
                                        GOSUB popfiletypes
                                    CASE 4 ' Save or Open selected file. Only occurs when tab selected then mouse goes on another button and then goes to a neutral position. In this case the variable is no longer negative and the loop above misses it.
                                        SELECT CASE config%
                                            CASE 1
                                                action$ = "open file"
                                            CASE 2
                                                action$ = "save as"
                                        END SELECT
                                        tabx% = 2
                                        EXIT DO
                                    CASE 5 ' Cancel
                                        action$ = "cancel": tabx% = 2
                                        EXIT DO
                                END SELECT
                                EXIT DO
                            LOOP
                            IF LEN(action$) THEN EXIT DO ' To Return
 
                        CASE 19200
                            GOSUB CursorLeft
 
                        CASE 19712
                            GOSUB CursorRight
 
                        CASE 18432
                            GOSUB CursorUp
 
                        CASE 20480
                            GOSUB CursorDown
 
                        CASE 18688
                            GOSUB PageUp
 
                        CASE 20736
                            GOSUB PageDown
 
                        CASE 27
                            IF pete = 0 THEN b$ = CHR$(27): EXIT DO
                            GOSUB wash
                            EXIT DO
 
                        CASE 20992: REM Insert
                            GOSUB InsertOverwrite
 
                        CASE ELSE
                            GOSUB DisplayText
                            IF flagtext% = -1 THEN flagtext% = 0: mykey% = 0
                    END SELECT
 
                    REM Control% = -1 or -2
                CASE -1, -2
 
                    SELECT CASE mykey%
 
                        CASE 65, 97 ' A a
                            GOSUB SelectAll
 
                        CASE 67, 99, 88, 120 ' C c X x
                            GOSUB cutcopy
 
                        CASE 86, 118 ' V v
                            REM Paste
                            GOSUB PasteClipboard
 
                        CASE 19712
                            REM Cursor and arrow right
                            GOSUB ctrlrt
 
                        CASE 19200
                            REM Cursor and arrow left
                            GOSUB ctrllt
 
                        CASE 18176
                            GOSUB CursorHome ' Ctrl + Home
 
                        CASE 20224
                            GOSUB CursorEnd ' Ctrl + End
 
                        CASE ELSE
                            ' Do nothing.
 
                    END SELECT
            END SELECT
        END IF
        EXIT DO
    LOOP
    RETURN '-----------------------------------------------------------------
 
    ' Key Actions.
    tabkey:
    tabx% = tabx% + 1
    IF tabx% > 5 THEN tabx% = 1: GOSUB clearbuttons
 
    SELECT CASE tabx%
        CASE 1
            IF hlf% THEN j% = -999: GOSUB highlightfile
            i% = 0: GOSUB displaybutton
            LOCATE , , 0: row = 1: j% = 0: GOSUB highlightfile
        CASE 2
            IF hlf% THEN j% = -999: GOSUB highlightfile
            LOCATE W1% + W3% - 4 - 3, W2% + 15, 1
        CASE 3
            i% = -1: GOSUB displaybutton
        CASE 4
            i% = -2: GOSUB displaybutton
        CASE 5
            i% = -3: GOSUB displaybutton
    END SELECT
    b$ = "": mykey% = 0: null$ = INKEY$: k% = _KEYHIT ' Clear keyboard buffers
    RETURN '------------------------------------------------------------------
 
    CursorLeft:
    IF POS(0) > leftmargin% THEN
        LOCATE , POS(0) - CurAdvance%
    ELSE
        IF hscroll% THEN hscroll% = hscroll% - 1: GOSUB wash
    END IF
    RETURN '------------------------------------------------------------------
 
    CursorRight:
    IF POS(0) < rightmargin% THEN
        IF POS(0) + CurAdvance% <= leftmargin% - 1 + LEN(text$) + 1 THEN
            IF POS(0) < rightmargin% THEN LOCATE , POS(0) + CurAdvance%
        END IF
    ELSE
        IF hscrollon% THEN
            IF hscroll% + rightmargin% - (leftmargin% - 1) <= LEN(text$) THEN
                hscroll% = hscroll% + 1
                GOSUB wash
            END IF
        END IF
    END IF
 
    RETURN '------------------------------------------------------------------
 
    ctrllt:
    IF highlight% <> 0 AND NOT shift% THEN GOSUB wash
    texttemp$ = MID$(text$, 1, POS(0) - leftmargin% + 1 + hscroll%)
    IF INSTR(texttemp$, " ") <> 0 THEN
        FOR ictrllt% = POS(0) - leftmargin% + 1 + hscroll% TO 1 STEP -1
            IF exitctrl% AND MID$(text$, ictrllt% - 1, 1) = " " THEN EXIT FOR
            IF MID$(text$, ictrllt%, 1) <> " " THEN exitctrl% = -1
            IF shift% THEN GOSUB HighlightLeft ELSE GOSUB CursorLeft
        NEXT
        exitctrl% = 0
    ELSE
        IF shift% THEN GOSUB SelectToHome ELSE GOSUB CursorHome
    END IF
    RETURN '---------------------------------------------------------------------
 
    ctrlrt:
    IF highlight% <> 0 AND NOT shift% THEN GOSUB wash
    texttemp$ = MID$(text$, POS(0) - leftmargin% + 1 + hscroll%)
    IF INSTR(texttemp$, " ") <> 0 THEN
        FOR ictrlrt% = POS(0) - leftmargin% + 1 + hscroll% TO LEN(text$)
            IF MID$(text$, ictrlrt%, 1) <> " " THEN
                IF exitctrl% THEN EXIT FOR
                jctrlrt% = -1
            END IF
            IF MID$(text$, ictrlrt%, 1) = " " AND jctrlrt% THEN exitctrl% = -1
            IF shift% THEN GOSUB HighlightRight ELSE GOSUB CursorRight
        NEXT
        exitctrl% = 0: ictrlrt% = 0: jctrlrt% = 0
    ELSE
        IF shift% THEN GOSUB SelectToEnd ELSE GOSUB CursorEnd
    END IF
    RETURN '---------------------------------------------------------------------
 
    CursorHome:
    IF hscroll% <> 0 THEN hscroll% = 0: GOSUB wash
    LOCATE , leftmargin%
    RETURN '---------------------------------------------------------------------
 
    CursorEnd:
    IF hscrollon% THEN
        IF LEN(text$) > rightmargin% - (leftmargin% - 1) THEN
            hscroll% = LEN(text$) - (rightmargin% - (leftmargin% - 1)) + 1: REM + 1 allows for adding to end of text.
            GOSUB wash
        END IF
    END IF
    IF LEN(text$) + leftmargin% - 1 >= rightmargin% THEN
        LOCATE , rightmargin%
    ELSE
        LOCATE , leftmargin% - 1 + LEN(text$) + CurAdvance%
    END IF
    RETURN '---------------------------------------------------------------------
 
    CursorUp:
    REM PRINT "Cursor Up"
    RETURN
 
    CursorDown:
    REM PRINT "Cursor Down"
    IF formbuttonx%(1) < 0 OR tabx% = 3 THEN ' Opens the doctype dropdown menu.
        formbuttonx%(1) = ABS(formbuttonx%(1))
        GOSUB popfiletypes
    END IF
    RETURN '---------------------------------------------------------------------
 
    PageUp:
    REM PRINT "Page Up"
    RETURN
 
    PageDown:
    REM PRINT "Page Down"
    RETURN
 
    REM Highlighting -----------------------------------------------------------
    HighlightLeft:
    iyy% = CSRLIN: ixx% = POS(0)
    IF POS(0) > leftmargin% OR hscroll% THEN
 
        IF highlight% AND POS(0) >= highlight% - hscroll% THEN ' Unhighlighting left to right.
            ' Move back first and then calculate POS(0) - 1, below.
            IF highlight% = starthighlight% THEN
                starthighlight% = 0: highlight% = 0
            ELSE
                highlight% = POS(0) - 1 + hscroll% ' Diminishing.
            END IF
        ELSE ' Highlighting left to right.
            ' Calculate first and then move back. POS(0).
            IF highlight% = 0 THEN highlight% = POS(0) + hscroll%
            starthighlight% = POS(0) + hscroll%
        END IF
 
        IF POS(0) = leftmargin% AND hscroll% THEN hscroll% = hscroll% - 1 ' hscroll% is reduced after the calculations above.
        c1% = textfg%: c2% = textbk%: c3% = highlightfg%: c4% = highlightbk%
        texttemp$ = MID$(text$, 1 + hscroll%, rightmargin% - leftmargin% + 1)
 
        LOCATE iyy%, leftmargin%
        COLOR c1%, c2%: PRINT MID$(texttemp$, 1, starthighlight% - hscroll% - leftmargin% - 1);
        COLOR c3%, c4%: PRINT MID$(texttemp$, starthighlight% - hscroll% - leftmargin% + 0, ABS(highlight% - starthighlight%) + 1);
        COLOR c1%, c2%: PRINT MID$(texttemp$, highlight% - hscroll% - leftmargin% + 1);
 
        IF ixx% - leftmargin% > 0 THEN ixx% = ixx% - 1 ' No moving cursor back when it is at left amrgin and scrolling text back.
        LOCATE iyy%, ixx%
        COLOR textfg%, textbk%
    END IF
    RETURN '---------------------------------------------------------------------
 
    HighlightRight:
    iyy% = CSRLIN: ixx% = POS(0)
    IF hscroll% + ixx% + 1 - leftmargin% <= LEN(text$) THEN
        c1% = textfg%: c2% = textbk%: c3% = highlightfg%: c4% = highlightbk%
 
        IF POS(0) >= starthighlight% - hscroll% THEN
            IF starthighlight% = 0 THEN starthighlight% = POS(0) + 1 + hscroll%
            highlight% = POS(0) + 1 + hscroll%
        ELSE
            IF starthighlight% = highlight% THEN
                starthighlight% = 0: highlight% = 0
            ELSE
                starthighlight% = POS(0) + 2 + hscroll%
            END IF
        END IF
 
        IF POS(0) = rightmargin% AND LEN(text$) - hscroll% > rightmargin% - leftmargin% THEN hscroll% = hscroll% + 1
        texttemp$ = MID$(text$, 1 + hscroll%, rightmargin% - leftmargin% + 1)
 
        LOCATE iyy%, leftmargin%
        COLOR c1%, c2%: PRINT MID$(texttemp$, 1, starthighlight% - hscroll% - leftmargin% - 1);
        COLOR c3%, c4%: PRINT MID$(texttemp$, starthighlight% - hscroll% - leftmargin% + 0, ABS(highlight% - starthighlight%) + 1);
        COLOR c1%, c2%: PRINT MID$(texttemp$, highlight% - hscroll% - leftmargin% + 1);
        IF POS(0) = rightmargin% THEN PRINT SPACE$(1); ' Only used when highlighting past last character to include one blank space.
        IF ixx% < rightmargin% THEN ixx% = ixx% + 1
        LOCATE iyy%, ixx%
        COLOR textfg%, textbk%
    END IF
    RETURN '---------------------------------------------------------------------
 
    ClickhighLight:
    j% = 0
    texttemp$ = MID$(text$, 1, POS(0) - leftmargin% + 1 + hscroll%)
    FOR i% = LEN(texttemp$) TO 1 STEP -1
        IF MID$(texttemp$, i%, 1) = " " AND j% THEN EXIT FOR ELSE j% = -1
    NEXT
    jClickhighLight% = LEN(texttemp$) - i% - 1
    invokestarthighlight% = POS(0) + hscroll% - (LEN(texttemp$) - i%) + 1
    FOR iClickhighLight% = 1 TO jClickhighLight%
        IF POS(0) = leftmargin% THEN EXIT FOR
        GOSUB CursorLeft
    NEXT
    shift% = -1
    GOSUB ctrlrt
    shift% = 0
    invokestarthighlight% = 0: iClickhighLight% = 0: jClickhighLight% = 0
    RETURN '---------------------------------------------------------------------
 
    SelectAll:
    highlight% = 0: starthighlight% = 0: REM These are not zeroed as a ctrl keys bypass remove highlighting
    GOSUB CursorHome
    GOSUB SelectToEnd
    RETURN '---------------------------------------------------------------------
 
    SelectToEnd:
    IF mspan% = 0 THEN mspan% = POS(0) - leftmargin% + 1 + LEN(text$)
    FOR iSelectToEnd% = 1 TO mspan%
        GOSUB HighlightRight
    NEXT
    mspan% = 0: iSelectToEnd% = 0
    RETURN '---------------------------------------------------------------------
 
    SelectToHome:
    IF mspan% = 0 THEN
        IF POS(0) = rightmargin% THEN
            mspan% = rightmargin% - (leftmargin% - 1) + hscroll%
        ELSE
            mspan% = POS(0) - leftmargin% + 1 + hscroll%
        END IF
    END IF
 
    FOR iSelectToHome% = 1 TO mspan%
        GOSUB HighlightLeft
    NEXT
    mspan% = 0: iSelectToHome% = 0
    RETURN '---------------------------------------------------------------------
 
    DisplayText:
    DO ' Falk loop.
        IF mykey% > 31 AND mykey% < 256 THEN
            COLOR 7, 0: LOCATE , , 1
            IF overwrite% = -1 OR CurAdvance% = 0 THEN
                texttemp$ = MID$(text$, 1, POS(0) - leftmargin%) + CHR$(mykey%) + MID$(text$, POS(0) - leftmargin% + 2)
            ELSE
                texttemp$ = MID$(text$, 1, POS(0) - leftmargin%) + CHR$(mykey%) + MID$(text$, POS(0) - leftmargin% + 1)
            END IF
 
            positioncursor% = POS(0)
 
            IF overwrite% = -1 OR CurAdvance% = 0 THEN
 
                IF POS(0) - leftmargin% + hscroll% < textmaxlength% THEN
                    text$ = MID$(text$, 1, POS(0) + (hscroll%) - leftmargin%) + CHR$(mykey%) + MID$(text$, POS(0) + hscroll% - leftmargin% + 2)
                ELSE
                    flagtext% = -1: EXIT DO 'To Return
                END IF
 
                REM Evaluate Horizontal Scroll
                IF POS(0) = rightmargin% THEN
                    hscroll% = hscroll% + 1
                END IF
            ELSE
                IF LEN(text$) < textmaxlength% THEN
                    text$ = MID$(text$, 1, POS(0) + hscroll% - leftmargin%) + CHR$(mykey%) + MID$(text$, POS(0) + hscroll% - leftmargin% + 1)
                    flagtext% = 0
                ELSE
                    flagtext% = -1
                END IF
 
                IF flagtext% = -1 THEN EXIT DO ' To Return REM flagtext% is set to zero upon return and exit.
 
                REM Evaluate Horizontal Scroll
                IF hscrollon% AND POS(0) = rightmargin% THEN
                    hscroll% = hscroll% + 1
                END IF
            END IF
 
            ' Print to form input line.
            LOCATE , leftmargin%: PRINT STRING$(rightmargin% - (leftmargin% - 1), linecharacter%);
            LOCATE , leftmargin%: PRINT MID$(text$, (hscroll% + 1), rightmargin% - (leftmargin% - 1));
 
            IF CurAdvance% = 1 AND positioncursor% - leftmargin% + 1 < rightmargin% - leftmargin% + 1 THEN
                LOCATE , positioncursor% + CurAdvance%
            ELSE
                LOCATE , positioncursor%
            END IF
        END IF
        EXIT DO
    LOOP
    RETURN '---------------------------------------------------------------------
 
    BackspaceDelete:
    IF highlight% THEN GOSUB cutcopy
    IF POS(0) > leftmargin% OR mykey% = 21248 OR hscroll% > 0 THEN
        IF POS(0) <= leftmargin% + LEN(text$) THEN
            IF mykey% = 8 THEN
                IF POS(0) <= leftmargin% + 2 AND hscroll% > 0 THEN
                    REM Adjust for horizontal scroll
                    holdcursor% = POS(0)
                    LOCATE , leftmargin%
                    countcolumnsmoved% = hscroll%
                    jBackspaceDelete% = (rightmargin% - (leftmargin% - 1)) * .33
                    IF jBackspaceDelete% < 3 AND rightmargin% - (leftmargin% - 1) > 3 THEN jBackspaceDelete% = 3: REM Set minimum scroll back.
                    FOR iBackspaceDelete% = 1 TO jBackspaceDelete%
                        GOSUB CursorLeft
                    NEXT
                    LOCATE , holdcursor% + countcolumnsmoved% - hscroll% - 1
                    countcolumnsmoved% = 0: iBackspaceDelete% = 0: jBackspaceDelete% = 0
                ELSE
                    LOCATE , POS(0) - 1
                END IF
            END IF
            iyy% = CSRLIN: ixx% = POS(0)
            text$ = MID$(text$, 1, POS(0) - leftmargin% + hscroll%) + MID$(text$, POS(0) - leftmargin% + hscroll% + 2)
            texttemp$ = MID$(text$, hscroll% + 1, rightmargin% - (leftmargin% - 1))
            LOCATE iyy%, leftmargin%: PRINT texttemp$ + STRING$((rightmargin% - (leftmargin% - 1)) - LEN(texttemp$), linecharacter%);
            LOCATE iyy%, ixx%
        END IF
    END IF
    RETURN '---------------------------------------------------------------------
 
    cutcopy:
    IF highlight% THEN
        IF mykey% = 99 OR mykey% = 120 THEN
            _CLIPBOARD$ = MID$(text$, starthighlight% - leftmargin%, highlight% - starthighlight% + 1)
        END IF
 
        IF mykey% = 88 OR mykey% = 120 OR mykey% = 8 OR mykey% = 21248 THEN ' ctrl + x (cut), delete, backspace.
            positioncursor% = starthighlight% - 1 - hscroll%
            texttemp$ = MID$(text$, 1, starthighlight% - leftmargin% - 1) + MID$(text$, highlight% - leftmargin% + 1)
            text$ = texttemp$
            hscroll% = hscroll% - ABS(highlight% - starthighlight%)
            IF hscroll% < 0 THEN hscroll% = 0
            LOCATE , positioncursor%
            GOSUB wash
        END IF
    END IF
    RETURN '---------------------------------------------------------------------
 
    PasteClipboard:
    IF LEN(text$) + LEN(_CLIPBOARD$) <= textmaxlength% THEN
        text$ = MID$(text$, 1, POS(0) - leftmargin% + hscroll%) + _CLIPBOARD$ + MID$(text$, POS(0) - leftmargin% + 1 + hscroll%)
        i% = LEN(_CLIPBOARD$) - (rightmargin% - POS(0))
        positioncursor% = POS(0) + LEN(_CLIPBOARD$) - 1 + CurAdvance%
        IF positioncursor% > rightmargin% THEN
            hscroll% = hscroll% + positioncursor% - rightmargin%
            positioncursor% = rightmargin%
        END IF
        LOCATE , positioncursor%
        GOSUB wash
    ELSE
        BEEP
    END IF
    RETURN '---------------------------------------------------------------------
 
    InsertOverwrite:
    IF overwrite% = 0 THEN
        overwrite% = -1
        LOCATE , , 1, 7, 30
    ELSE
        overwrite% = 0
        LOCATE , , 1, 7, 7
    END IF
    RETURN
    ' End Key Controls-------------------------------------------------------
 
    mouseroutine:
    DO ' Falk loop
        IF shiftclick% THEN
            IF shiftclick% > 0 THEN mykey% = 19712: shiftclick% = shiftclick% - 1 ELSE mykey% = 19200: shiftclick% = shiftclick% + 1
            EXIT DO ' To Return
        END IF
 
        IF _KEYDOWN(100303) OR _KEYDOWN(100304) THEN shift% = -1 ELSE shift% = 0
 
        IF my% > margin.t + page.h OR my% <= margin.t THEN
            IF my% > margin.t + page.h + 2 AND hlf% THEN ' Unhighlight file in display window.
                j% = -999: GOSUB highlightfile ' hlf% is in statement above
                tabx% = 2
                LOCATE W1% + W3% - 4 - 3, W2% + 15, 1 ' Move to text input field.
            END IF
 
            GOTO 102
            IF NOT drag% THEN
                IF my% = W1% AND mx% = W2% + W4% - 2 THEN
                    IF closepop% = 0 THEN
                        LOCATE , , 0
                        IF hlf% THEN j% = -999: GOSUB highlightfile
                        IF oldsmode2 THEN ' doctype dropdown menu is open.
                        ELSE
                            GOSUB clearbuttons: tabx% = 2
                        END IF
                        LOCATE W1% + W3% - 4 - 3, W2% + 15
                        GOSUB wash
                        COLOR 15, 4
                        LOCATE W1%, W2% + W4% - 2
                        PRINT "x";
                        closepop% = -1
                        LOCATE W1% + W3% - 4 - 3, W2% + 15, 1
                        COLOR textfg%, textbk%
                    END IF
                ELSE
                    IF closepop% THEN
                        iyy% = CSRLIN: ixx% = POS(0)
                        closepop% = 0
                        COLOR 15, 1
                        LOCATE W1%, W2% + W4% - 2, 0
                        PRINT "x";
                        LOCATE iyy%, ixx%, 1
                        COLOR textfg%, textbk%
                    END IF
                END IF
 
                SELECT CASE SMODE
                    CASE 3 ' doctypedropdown menu open.
                        FOR i% = 1 TO UBOUND(doctype$)
                            IF my% = doctypey%(i%) AND mx% >= ABS(doctypex%(i%)) AND mx% < ABS(doctypex%(i%)) + LEN(doctype$(i%)) THEN
                                IF doctypex%(i%) > 0 THEN
                                    COLOR 0, 3: LOCATE doctypey%(i%), doctypex%(i%), 0
                                    PRINT doctype$(i%);
                                    doctypex%(i%) = -doctypex%(i%)
                                    COLOR textfg%, textbk%
                                END IF
                            ELSE
                                IF doctypex%(i%) < 0 THEN
                                    doctypex%(i%) = ABS(doctypex%(i%))
                                    iyy% = CSRLIN: ixx% = POS(0)
                                    COLOR 7, 0: LOCATE doctypey%(i%), doctypex%(i%), 0
                                    PRINT doctype$(i%);
                                    LOCATE iyy%, ixx%, 0
                                    COLOR textfg%, textbk%
                                END IF
                            END IF
                        NEXT
                    CASE ELSE
                        j% = 0
                        FOR i% = 1 TO UBOUND(formbutton$)
                            IF my% = formbuttony%(i%) AND mx% >= ABS(formbuttonx%(i%)) AND mx% < ABS(formbuttonx%(i%)) + LEN(formbutton$(i%)) THEN
                                IF formbuttonx%(i%) > 0 THEN
                                    iyy% = CSRLIN: ixx% = POS(0)
                                    COLOR 0, 3: LOCATE formbuttony%(i%), formbuttonx%(i%), 0
                                    PRINT formbutton$(i%);
                                    formbuttonx%(i%) = -formbuttonx%(i%)
                                    j% = -1
                                    IF iyy% = W1% + W3% - 4 - 3 THEN LOCATE iyy%, ixx%, 1 ELSE LOCATE iyy%, ixx%, 0
                                    COLOR textfg%, textbk%
                                END IF
                            ELSE
                                formbuttonx%(i%) = ABS(formbuttonx%(i%))
                                iyy% = CSRLIN: ixx% = POS(0)
                                COLOR 1, 7: LOCATE formbuttony%(i%), formbuttonx%(i%), 0
                                PRINT formbutton$(i%);
                                IF iyy% = W1% + W3% - 4 - 3 THEN LOCATE iyy%, ixx%, 1 ELSE LOCATE iyy%, ixx%, 0
                                COLOR textfg%, textbk%
                            END IF
                            IF formbuttonx%(i%) < 0 THEN j% = -1 ' Used below to designate a button is highlighted.
                        NEXT
 
                        IF tabx% >= 3 AND tabx% <= 5 AND j% = 0 THEN
                            COLOR 0, 3: LOCATE formbuttony%(tabx% - 2), ABS(formbuttonx%(tabx% - 2)), 0
                            PRINT formbutton$(tabx% - 2);
                        END IF
                END SELECT
            END IF
 
            102
            IF mb.l THEN
                IF closepop% THEN action$ = "close": EXIT DO ' To Return
 
                IF NOT drag% THEN
                    IF oldsmode2 THEN ' Doctype dropdown menu is open.
                        FOR i% = 1 TO UBOUND(doctype$)
                            IF doctypex%(i%) < 0 THEN
                                GOSUB close_doctype_dropdown
                                GOSUB doctype_selected
                                doctypex%(i%) = ABS(doctypex%(i%))
                            END IF
                        NEXT
                    END IF
 
                    FOR i% = 1 TO UBOUND(formbutton$) ' Check control buttons.
                        IF formbuttonx%(i%) < 0 THEN
                            IF my% = formbuttony%(i%) AND mx% >= ABS(formbuttonx%(i%)) AND mx% <= ABS(formbuttonx%(i%)) + LEN(formbutton$(i%)) THEN
                                formbuttonx%(i%) = ABS(formbuttonx%(i%))
                                SOUND 1000, .1
                                LOCATE , , 0
                                SELECT CASE i%
                                    CASE 1 ' Open doctype dropdown menu.
                                        GOSUB popfiletypes
                                    CASE 2 ' Open button.
                                        SELECT CASE config%
                                            CASE 1
                                                action$ = "open file"
                                            CASE 2
                                                action$ = "save as"
                                        END SELECT
                                        '''myfile$ = text$
                                        EXIT DO ' To Return.
                                    CASE 3 ' Cancel button.
                                        action$ = "cancel": EXIT DO ' To Return.
                                END SELECT
                            END IF
                        END IF
                    NEXT
                END IF
 
                IF mx% > leftmargin% + LEN(text$) THEN EXIT DO ' To Return
 
                IF click_l% >= 0 THEN
                    click_l% = -1
                    IF highlight% AND NOT shift% THEN GOSUB wash
                END IF
 
                IF shift% THEN
                    SELECT CASE mx%
                        CASE IS > POS(0): mykey% = 19712: shiftclick% = mx% - POS(0) - 1
                        CASE IS = POS(0): mykey% = 0
                        CASE IS < POS(0): mykey% = 19200: shiftclick% = mx% - POS(0) + 1
                    END SELECT
                    IF mykey% THEN EXIT DO ' To Return
                END IF
            ELSE
                IF click_l% = -1 THEN click_l% = 1: drag% = 0
            END IF
 
            IF click_l% = -1 THEN
                IF mx% = POS(0) THEN
                    drag% = -1
                ELSE
                    IF my% = CSRLIN AND drag% = 0 THEN
                        LOCATE my%, mx% ' Click in input field.
                    END IF
                END IF
            END IF
 
            IF drag% THEN
                shift% = -1
                SELECT CASE mx%
                    CASE IS > POS(0): mykey% = 19712: IF mx% > rightmargin% THEN _DELAY .05
                    CASE IS = POS(0): mykey% = 0
                    CASE IS < POS(0): mykey% = 19200: IF mx% < leftmargin% THEN _DELAY .05
                END SELECT
            END IF
 
            EXIT DO ' To Return
 
        ELSE
 
            DO
                IF SMODE = 3 THEN EXIT DO
                IF my% > margin.t AND my% - margin.t <= page.h AND mx% > margin.l AND mx% < margin.l + page.w THEN
                    tabx% = 1: GOSUB clearbuttons
                    IF mb.l AND NOT lbdown% THEN
                        IF my% = CSRLIN THEN ' File Selected
                            lbdown% = -1
                            GOSUB fileselected
                            EXIT DO
                        END IF
                    ELSE
                        IF mb.l = 0 THEN lbdown% = 0
                    END IF
 
                    IF hlf% = 0 THEN
                        row = my% - margin.t: j% = 0: GOSUB highlightfile
                    ELSEIF oldmy% > my% AND my% - margin.t <= page.h AND row > 1 THEN
                        i% = my%: IF i% - margin.t > 0 THEN
                            LOCATE oldmy%: row = CSRLIN - margin.t
                            DO UNTIL CSRLIN <= i%
                                row = row - 1: j% = 0: GOSUB highlightfile
                            LOOP
                        END IF
                    ELSEIF oldmy% AND oldmy% < my% AND row < page.h THEN
                        i% = my%: IF i% - margin.t <= page.h THEN
                            LOCATE oldmy%: row = CSRLIN - margin.t
                            DO UNTIL CSRLIN >= i%
                                row = row + 1: j% = 0: GOSUB highlightfile
                            LOOP
                        END IF
                    END IF
                END IF
 
                ' ------------------------------------Mouse----------------------------------
 
                IF locked% < 0 THEN ' Mouse effects on mouse lock. key press effects are determined at inkey$ input, as key variable cannot be evaluated here, due to b$ = "" manipulations in the keypress routine.
                    IF mb.l OR mb.r OR mb.m THEN locked% = 0
                END IF
 
                IF mb.w THEN ' Determine if wheel is being used to scroll highlighted or unhighlighted text.
                    GOSUB clearbuttons
                    tabx% = 1 ' Reset tab index when mouse wheel is engaged.
                    locked% = 2 ' 2 is lock scrollbar, no highlighting permitted.
                END IF
 
                IF mb.l AND locked% <> 1 OR mb.w AND locked% <> -1 THEN
                    tabx% = 1
                    IF mb.l THEN GOSUB clearbuttons
                    ' Scrollbar routine.
                    IF mx% >= scrb.l - 1 AND mx% <= scrb.l + 1 AND my% - (scrb.t + 1) >= scrb.x AND my% - (scrb.t + 1) <= scrb.x + scrb.s - 1 THEN draglock% = -1
 
                    IF draglock% = -1 AND my% > scrb.t AND my% < scrb.b OR mx% = scrb.l AND scrb.s <> 0 AND my% >= scrb.t AND my% <= scrb.b AND mb.w = 0 OR scrbardrag% <> 0 AND my% > scrb.t AND my% < scrb.b AND mb.w = 0 OR mb.w > 0 AND scrb.x + scrb.s < scrb.h OR mb.w < 0 AND scrb.x > 0 THEN ' Mouse on scrollbar, doing a bar cursor drag or using the scroll wheel.
                        locked% = 2 ' Locked on scrollbar
                        IF my% = scrb.t AND scrb.x > 0 OR my% = scrb.b AND scrb.x + scrb.s < scrb.h OR mb.w <> 0 AND scr + page.h < noe THEN ' Mouse on a scrollbar arrow.
                            IF my% = scrb.t AND mb.w = 0 OR mb.w < 0 THEN scrb.x = scrb.x - 1: h% = -1 ELSE scrb.x = scrb.x + 1: h% = -2 ' Top or bottom arrow.
                            IF mb.w = 0 THEN delay.on! = .15
                            j% = INT(scrb.x * ((noe - scrb.d) / (scrb.h - scrb.s)))
 
                            IF j% >= 0 THEN ' Condition exists unless j% is negative such as doc is blank and mouse wheel is rolled downward.
                                scrb.i = j%
 
                                scr = scrb.i
 
                                '''h% = 0: CALL scrollbar_update(h%, scrb, noe, row, scr) ' Positions scrollbar box.
 
                                GOSUB scrollscrn
                            END IF
 
                        ELSEIF my% - (scrb.t + 1) >= scrb.x AND my% - (scrb.t + 1) <= scrb.x + scrb.s - 1 AND scrbardrag% = 0 THEN ' Mouse on scrollbar block.
                            scrbardrag% = -1: scrb.adjust = (my% - (scrb.t + 1)) - scrb.x
                        ELSEIF draglock% = -1 AND my% > scrb.t AND my% < scrb.b OR my% > scrb.t AND my% < scrb.b THEN ' Mouse on scrollbar between scrollbar arrow and cursor.
                            IF draglock% = -1 AND my% > scrb.t AND my% < scrb.b OR my% - (scrb.t + 1) - scrb.adjust >= 0 AND my% - (scrb.t + 1) + scrb.s - scrb.adjust <= scrb.h AND scrbardrag% <> -1 OR scrbardrag% = 0 THEN
                                IF scrbardrag% = 0 THEN ' No drag, so adjust for cursor length for a click inside the scrollbar above or below the current scrollbar cursor position.
                                    IF my% - (scrb.t + 1) > scrb.x THEN
                                        scrb.adjust = (my% - (scrb.t + 1)) - scrb.x - 1: h% = -1
                                    ELSE
                                        scrb.adjust = (my% - (scrb.t + 1)) - scrb.x + 1: h% = -2
                                    END IF
                                END IF
                                scrb.x = my% - (scrb.t + 1) - scrb.adjust
                                scrb.i = INT(scrb.x * ((noe - scrb.d) / (scrb.h - scrb.s)))
 
                                scr = scrb.i
 
                                '''h% = 0: CALL scrollbar_update(h%, scrb, noe, row, scr)
 
                                GOSUB scrollscrn
 
                            ELSE ' Scrollbar is at top or bottom and mouse cursor is moving vertically along the scrollbar cursor. This allows the variable to readjust.
                                IF mx% = scrb.l THEN scrbardrag% = 0: scrb.adjust = 0: draglock% = 0
                            END IF
                        END IF
                        ' =======================================================
 
                    END IF
 
                    IF delay.on! THEN ' Scrollbar delay.
                        _DELAY delay.on!
                        delay.on! = 0 ' Toggle off.
                    END IF
 
                ELSE
                    scrbardrag% = 0: scrb.adjust = 0: draglock% = 0
                    IF locked% = 2 AND mb.l = 0 THEN locked% = 0
                END IF
                EXIT DO
            LOOP
        END IF
        EXIT DO
    LOOP
    RETURN '---------------------------------------------------------------------
 
    file_display_keys:
    DO '
        IF CSRLIN >= margin.t AND CSRLIN <= margin.t + page.h AND mb.l = 0 OR autokey% THEN
            ' Key commands for form input line.
            IF autokey% = 0 THEN b$ = INKEY$ ELSE b$ = MID$(b$, 3): IF LEN(b$) = 2 THEN autokey% = 0
            IF LEN(b$) THEN
                IF b$ = CHR$(9) THEN GOSUB tabkey: b$ = "": null$ = INKEY$: EXIT DO ' tabx% assignment.
                SELECT CASE MID$(b$, 1, 2) ' File directory window keys.
                    CASE CHR$(0) + "H"
                        IF row > 1 THEN
                            row = row - 1
                            LOCATE margin.t + row, margin.l + 1
                            j% = 0: GOSUB highlightfile
                        ELSE
                            IF scr > 0 THEN
                                scr = scr - 1
                                GOSUB scrollscrn
                                j% = 0: GOSUB highlightfile
                            END IF
                        END IF
                    CASE CHR$(0) + "P"
                        IF tabx% <> 3 THEN
                            IF row < page.h THEN
                                row = row + 1
                                j% = 0: GOSUB highlightfile
                                LOCATE margin.t + row, margin.l + 1
                            ELSE
                                IF scr + page.h < noe THEN
                                    scr = scr + 1
                                    GOSUB scrollscrn
                                    j% = 0: GOSUB highlightfile
                                END IF
                            END IF
                        ELSE
                            ' Arrow down key is highlighted by tabx%. Now open the doctype dropdown menu.
                            GOSUB popfiletypes
                        END IF
                    CASE CHR$(0) + "I"
                        autokey% = -1
                        LOCATE , margin.l + 1
                        k% = page.h - 1 + row - 2
                        FOR j% = 0 TO k%
                            b$ = b$ + CHR$(0) + "H"
                        NEXT
                        FOR j% = 1 TO row - 1
                            b$ = b$ + CHR$(0) + "P"
                        NEXT
                    CASE CHR$(0) + "Q"
                        autokey% = -1
                        LOCATE , margin.l + 1
                        k% = (page.h - 1) + (page.h - row) - 1
                        FOR j% = 0 TO k%
                            b$ = b$ + CHR$(0) + "P"
                        NEXT
                        FOR j% = 1 TO page.h - row
                            b$ = b$ + CHR$(0) + "H"
                        NEXT
                    CASE CHR$(0) + "w" ' Ctrl + Home
                        row = 1
                        IF scr > 0 THEN
                            scr = 0
                            h% = 0: GOSUB scrollscrn
                        END IF
                        LOCATE margin.t + 1, margin.l + 1
                        j% = 0: GOSUB highlightfile
                    CASE CHR$(0) + "u" ' Ctrl + End
                        IF noe > page.h THEN
                            row = page.h
                            scr = noe - row
                            LOCATE margin.t + 1, margin.l + 1
                            h% = 0: GOSUB scrollscrn
                            row = page.h
                            LOCATE margin.t + row, margin.l + 1
                            j% = 0: GOSUB highlightfile
                        ELSE
                            row = noe
                            LOCATE margin.t + row, margin.l + 1
                            j% = 0: GOSUB highlightfile
                        END IF
                    CASE CHR$(13)
                        GOSUB fileselected
                END SELECT
            END IF
        ELSE
            null$ = INKEY$ ' Clear buffer
        END IF
        EXIT DO
    LOOP
 
    RETURN '---------------------------------------------------------------------
 
    '-------------------------------Nested Gosubs-----------------------------
 
    scrollscrn:
    FOR i% = 1 TO page.h
        LOCATE margin.t + i%, margin.l + 1
        PRINT x$(i% + scr);
    NEXT
    LOCATE row + margin.t, margin.l + 1
    IF hlf% AND LEN(b$) < 3 AND scrbardrag% = 0 THEN j% = 0: GOSUB highlightfile
 
    '''h% = 1: CALL scrollbar_update(h%, scrb, noe, row, scr)
 
    RETURN '---------------------------------------------------------------------
 
    highlightfile:
    IF j% = -999 THEN ' Unhighlight text only.
        COLOR 7, 0
        LOCATE margin.t + hlf%, margin.l + 1, 0
        PRINT x$(hlf% + scr);
        hlf% = 0
    ELSE
        IF hlf% THEN
            LOCATE margin.t + hlf%, margin.l + 1, 0
            COLOR 7, 0: PRINT x$(hlf% + scr);
        END IF
        COLOR 1, 3
        LOCATE margin.t + row, margin.l + 1, 0
        PRINT x$(row + scr);
        hlf% = row
        COLOR c1%, c2%
    END IF
    RETURN '---------------------------------------------------------------------
 
    wash:
    starthighlight% = 0
    highlight% = 0
    iyy% = CSRLIN: ixx% = POS(0)
    COLOR textfg%, textbk%
    LOCATE , leftmargin%
    texttemp$ = MID$(text$, (hscroll% + 1), rightmargin% - (leftmargin% - 1))
    PRINT texttemp$ + STRING$(rightmargin% - (leftmargin% - 1) - LEN(texttemp$), linecharacter%);
    LOCATE iyy%, ixx%
    RETURN '---------------------------------------------------------------------
 
    clearbuttons:
    iyy% = CSRLIN: ixx% = POS(0)
    FOR k% = 1 TO UBOUND(formbutton$)
        LOCATE formbuttony%(k%), ABS(formbuttonx%(k%)), 0
        COLOR 1, 7: PRINT formbutton$(k%);
        formbuttonx%(k%) = ABS(formbuttonx%(k%)) ' Remove button active (neg) designation.
    NEXT
    LOCATE iyy%, ixx%
    RETURN '---------------------------------------------------------------------
 
    displaybutton: ' Gosub parameters (i%)
    iyy% = CSRLIN: ixx% = POS(0)
    GOSUB clearbuttons ' Clear all buttons of highlighting first...
    IF i% < 0 THEN COLOR 0, 3 ELSE COLOR 1, 7
    IF tabx% THEN COLOR 0, 3
    IF i% <> 0 THEN
        LOCATE formbuttony%(ABS(i%)), ABS(formbuttonx%(ABS(i%))), 0
        PRINT formbutton$(ABS(i%));
        formbuttonx%(ABS(i%)) = -ABS(formbuttonx%(ABS(i%)))
    END IF
    LOCATE iyy%, ixx%
    RETURN '---------------------------------------------------------------------
 
    fileselected:
    IF noe THEN
        IF hlf% THEN j% = -999: GOSUB highlightfile
 
        text$ = xfull$(row + scr)
 
        IF LEFT$(text$, 2) = ".." OR LEFT$(text$, 1) = "[" THEN
            ' Ready to change diretories.
            IF LEFT$(text$, 2) = ".." THEN
                CHDIR ".."
            ELSE
                CHDIR MID$(text$, 2, LEN(text$) - 2)
            END IF
            action$ = "change dir"
        ELSE
            ' Text input line.
            COLOR 7, 0
            LOCATE W1% + W3% - 4 - 3, W2% + 15: PRINT SPACE$(W4% - 18); ' Blank it.
            LOCATE W1% + W3% - 4 - 3, W2% + 15, 1: PRINT MID$(text$, 1, W4% - 18); ' Display it.
            hlf% = 0
        END IF
    ELSE ' No files found in DIR to select.
        BEEP
    END IF
    RETURN '---------------------------------------------------------------------
 
    popfiletypes:
    LOCATE W1% + W3% - 4 - 3, W2% + 15, 0
    GOSUB wash
    oldsmode2 = SMODE
    SMODE = 3: PCOPY oldsmode2, SMODE: SCREEN 0, 0, SMODE, SMODE
    COLOR 8, 0: LOCATE W1% + 16, W2% + 15 - 1: PRINT CHR$(179);
    COLOR 1, 3: PRINT SPACE$(W4% - 21);
    LOCATE W1% + 16, W2% + 15
    COLOR 1, 3: PRINT doctype$(1);
    COLOR 8, 0: LOCATE W1% + 16, W2% + W4% - 4: PRINT CHR$(179);
    LOCATE W1% + 17, W2% + 14
    COLOR 8, 0: PRINT CHR$(179);
    COLOR 7, 0: PRINT SPACE$(W4% - 18);
    LOCATE W1% + 17, W2% + 15: PRINT doctype$(2);
    COLOR 8, 0: LOCATE , W2% + W4% - 4: PRINT CHR$(179);
    COLOR 8, 0: LOCATE W1% + 18, W2% + 14: PRINT CHR$(192); STRING$(W4% - 19, 196); CHR$(217);
    doctypey%(1) = W1% + 16: doctypex%(1) = W2% + 15
    doctypey%(2) = W1% + 17: doctypex%(2) = W2% + 15
    LOCATE W1% + 16, W2% + 15 ' Text input line.
    RETURN '---------------------------------------------------------------------
 
    doctype_selected:
    SELECT CASE i%
        CASE 1
            COLOR 7, 0: LOCATE W1% + 16, W2% + 15: PRINT SPACE$(W4% - 19); ' Leaves arrow down space.
            LOCATE W1% + 16, W2% + 15: PRINT doctype$(1);
 
            IF doctype$ <> doctype$(1) THEN
                '''doctype$ = doctype$(1): CALL displayfiles(doctype$, x$(), xfull$(), scrb, noe, row, scr)
            END IF
 
            doctype$ = doctype$(1)
            IF doctype% = 2 THEN SWAP doctype$(1), doctype$(2)
            doctype% = 1
 
            LOCATE W1% + 16, w2 + W4% + 4 ' .txt or *.* all files arrow down button location.
            formbuttony%(1) = CSRLIN: formbuttonx%(1) = POS(0): formbutton$(1) = CHR$(25)
 
            i% = 1: GOSUB displaybutton
 
            LOCATE W1% + W3% - 4 - 3, W2% + 15, 1 ' File name input field.
            COLOR textfg%, textbk%
        CASE 2
            COLOR 7, 0: LOCATE W1% + 16, W2% + 15: PRINT SPACE$(W4% - 19); ' Leaves arrow down space.
            LOCATE W1% + 16, W2% + 15: PRINT doctype$(2);
 
            IF doctype$ <> doctype$(2) THEN
                '''doctype$ = doctype$(2): CALL displayfiles(doctype$, x$(), xfull$(), scrb, noe, row, scr)
            END IF
 
            doctype$ = doctype$(2)
            IF doctype% = 1 THEN SWAP doctype$(1), doctype$(2)
            doctype% = 2
 
            LOCATE W1% + W3% - 4 - 3, W2% + 15, 1 ' File name input field.
            COLOR textfg%, textbk%
    END SELECT
 
    RETURN '---------------------------------------------------------------------
 
    close_doctype_dropdown:
    ' Note - Do not use i% in this routine. It would change a perviouly set value i one of the routines that calls this one.
    SMODE = oldsmode2: SCREEN 0, 0, SMODE, SMODE: oldsmode2 = 0
    LOCATE , , 0
    LOCATE W1% + 16, W2% + W4% - 4
    IF tabx% = 3 THEN COLOR 0, 3 ELSE COLOR 1, 7
    IF my% = CSRLIN AND mx% = POS(0) THEN COLOR 0, 3: formbuttonx%(1) = -formbuttonx%(1)
    PRINT formbutton$(1);
    LOCATE W1% + W3% - 4 - 3, W2% + 15, 1 ' File name input field.
    COLOR textfg%, textbk%
    REDIM doctypex%(UBOUND(doctype$)), doctypey%(UBOUND(doctype$))
    RETURN '---------------------------------------------------------------------
 
END SUB

It works, but it needs to have that GOTOremoved. For now, it knits it together just fine. I need to fiddle with a couple of the variables. Once that's done, it could be implemented, but...

A step beyond would be "Find" as a wrap around function. You know, when what you are searching for wraps in the document to another line. My idea for that would be to always add an extra text line to the find loop. So if two words were typed, which existed on line 5 and line 6, the routine would check lines 1 and 2, together, lines 2 and 3, together, lines 4 and 5, together, and finally, lines 5 and six together, which would display the results. Hopefully, not too much work to implement, but for another day.

Pete

Pete · « **Reply #1 on:** January 27, 2021, 11:52:14 pm »

Well I edited the above code to include a popup for the search. The input line is fully functional for typing, cut/copy/past, highlighting, lateral scrolling to 250 characters. The buttons can be tabbed and entered or left clicked. After a search is completed, it sleeps, and runs again after a key is pressed. Click the program window "x" to end it.

Pete

bplus · « **Reply #2 on:** January 28, 2021, 12:16:56 am »

Oh I like that version much better! a couple more lines than last isn't it?

It'd be nice if you had bigger demo text to test scrollers. Do you plan tabs for paragraphs and things like that or just WYSIWYG?

Pete · « **Reply #3 on:** January 28, 2021, 12:16:43 pm »

In response to larger, more readable text, I just add the _FONT routine. I don't bother with that for this beta stuff.

In regard to a practical use, yes, I intend to apply and expand these routines so it can function with scrollable text.

Something like this...

Code: QB64: [Select]

REDIM x$(20)
margin.t = 5
margin.l = 5
dwidth = 68
page.h = 6
row = 1
noe = 13
 
find$ = "and"
 
x$(1) = "We the People of the United States, in Order to form a more perfect " + CHR$(10)
x$(2) = "Union, establish Justice, insure domestic Tranquility, provide for " + CHR$(10)
x$(3) = "the common defence, promote the general Welfare, and secure the " + CHR$(10)
x$(4) = "Blessings of Liberty to ourselves and our Posterity, do ordain and " + CHR$(10)
x$(5) = "establish this Constitution for the United States of America." + CHR$(10)
x$(6) = "" + CHR$(255) + CHR$(10)
x$(7) = "Article I" + CHR$(10)
x$(8) = "" + CHR$(255) + CHR$(10)
x$(9) = "Section 1: Congress" + CHR$(10)
x$(10) = "" + CHR$(255) + CHR$(10)
x$(11) = "All legislative Powers herein granted shall be vested in a Congress " + CHR$(10)
x$(12) = "of the United States, which shall consist of a Senate and House of " + CHR$(10)
x$(13) = "Representatives." + CHR$(10)
 
GOSUB displaydoc: GOSUB finder
 
DO
    DO
        _LIMIT 30
        b$ = INKEY$
        IF LEN(b$) THEN
            SELECT CASE b$
                CASE CHR$(27)
                    SYSTEM
                CASE CHR$(0) + "H"
                    IF scr THEN scr = scr - 1: row = 1: GOSUB displaydoc: GOSUB finder
                CASE CHR$(0) + "P"
                    IF scr + page.h < noe THEN row = page.h: scr = scr + 1: GOSUB displaydoc: GOSUB finder
            END SELECT
        END IF
    LOOP
LOOP
 
displaydoc:
COLOR 0, 7
FOR i% = 1 TO page.h
    a1$ = SPACE$(dwidth)
    MID$(a1$, 1) = MID$(x$(i% + scr), 1, INSTR(x$(i% + scr), CHR$(10)) - 1)
    LOCATE margin.t + i%, margin.l + 1
    PRINT a1$
NEXT
RETURN
 
finder:
FOR i% = 1 TO page.h
    a1$ = SPACE$(dwidth)
    MID$(a1$, 1) = MID$(x$(i% + scr), 1, INSTR(x$(i% + scr), CHR$(10)) - 1)
 
    IF INSTR(LCASE$(a1$), find$) THEN
        COLOR 14, 4: seed% = 0
        DO UNTIL INSTR(seed%, LCASE$(a1$), find$) = 0
            seed% = INSTR(seed%, LCASE$(a1$), find$)
            LOCATE margin.t + i%, margin.l + seed%
            PRINT MID$(a1$, INSTR(seed%, LCASE$(a1$), find$), LEN(find$));
            seed% = seed% + LEN(find$)
        LOOP
    END IF
NEXT
COLOR 0, 7
RETURN
 

Press arrow up or down to scroll doc. The demo only shows instances of "and" and does not have the case and whole word functions, present in the other post. It's just to show how I want to apply the search feature.

What's next? Well a replace feature, at some point, but before that, I'd like to try out my idea, mentioned in the original post above, to find wrapped text, too.

Thanks for taking it out for a spin,

Pete

Pete · « **Reply #4 on:** January 28, 2021, 05:56:48 pm »

Well I need to recharge. Anyway, let me know if anyone sees any flaws in my approach. This now will find a search string that wraps to the next line. Note, it can only handle a limited amount of typed text. Too much will break it, and I still have to figure out the limits per page width. That's for another time. For now, I'm just curious what other conditions are needed, and if it's buggy. Oh, use arrow up and down to scroll the limited amount of text, and the Tab key to rerun.

Pete

Code: QB64: [Select]

REDIM x$(20)
margin.t = 5
margin.l = 5
dwidth = 68
page.h = 6
row = 1
noe = 13
 
x$(1) = "We the People of the United States, in Order to form a more perfect " + CHR$(10)
x$(2) = "Union, establish Justice, insure domestic Tranquility, provide for " + CHR$(10)
x$(3) = "the common defence, promote the general Welfare, and secure the " + CHR$(10)
x$(4) = "Blessings of Liberty to ourselves and our Posterity, do ordain and " + CHR$(10)
x$(5) = "establish this Constitution for the United States of America." + CHR$(10)
x$(6) = "" + CHR$(255) + CHR$(10)
x$(7) = "Article I" + CHR$(10)
x$(8) = "" + CHR$(255) + CHR$(10)
x$(9) = "Section 1: Congress" + CHR$(10)
x$(10) = "" + CHR$(255) + CHR$(10)
x$(11) = "All legislative Powers herein granted shall be vested in a Congress " + CHR$(10)
x$(12) = "of the United States, which shall consist of a Senate and House of " + CHR$(10)
x$(13) = "Representatives." + CHR$(10)
 
COLOR 0, 7
GOSUB displaydoc
COLOR 7, 0: LOCATE 2, 2: LINE INPUT "Find: ", find$
 
GOSUB displaydoc: GOSUB finder
 
DO
    DO
        _LIMIT 30
        b$ = INKEY$
        IF LEN(b$) THEN
            SELECT CASE b$
                CASE CHR$(9)
                    COLOR 7, 0: CLS: RUN
                CASE CHR$(27)
                    SYSTEM
                CASE CHR$(0) + "H"
                    IF scr THEN scr = scr - 1: row = 1: GOSUB displaydoc: GOSUB finder
                CASE CHR$(0) + "P"
                    IF scr + page.h < noe THEN row = page.h: scr = scr + 1: GOSUB displaydoc: GOSUB finder
            END SELECT
        END IF
    LOOP
LOOP
 
displaydoc:
COLOR 0, 7
FOR i% = 1 TO page.h
    a1$ = SPACE$(dwidth)
    MID$(a1$, 1) = MID$(x$(i% + scr), 1, INSTR(x$(i% + scr), CHR$(10)) - 1)
    LOCATE margin.t + i%, margin.l + 1
    PRINT a1$
NEXT
RETURN
 
finder:
findorig$ = find$
 
FOR i% = 1 TO page.h
    a1$ = MID$(x$(i% + scr), 1, INSTR(x$(i% + scr), CHR$(10)) - 1)
 
    IF INSTR(find$, " ") THEN
        IF RIGHT$(a1$, 1) <> " " THEN a2$ = a1$ + " " ELSE a2$ = a1$
    ELSE
        a2$ = a1$ ' No space for a solid line wrap around.
    END IF
 
    IF INSTR(findorig$, " ") THEN
        a2$ = a2$ + MID$(x$(i% + 1 + scr), 1, INSTR(x$(i% + 1 + scr), CHR$(10)) - 1)
        a2% = -1
    ELSE
        a2% = 0
    END IF
 
    IF INSTR(LCASE$(a2$), find$) THEN
        COLOR 14, 4: seed% = 0
        DO UNTIL INSTR(seed%, LCASE$(a2$), find$) = 0
 
            IF a2% THEN
                j% = INSTR(seed%, LCASE$(a2$), find$)
                IF j% + LEN(find$) >= LEN(a1$) AND j% <= LEN(a1$) THEN
                    seed% = INSTR(seed%, LCASE$(a2$), find$)
                    k% = 0
                    find$ = MID$(findorig$, 1, LEN(a1$) - seed% - k%)
                    flag% = 1
                ELSE
                    seed% = INSTR(seed%, LCASE$(a2$), find$)
                END IF
            ELSE
                seed% = INSTR(seed%, LCASE$(a2$), find$)
            END IF
 
            IF seed% <= LEN(a1$) THEN
                LOCATE margin.t + i%, margin.l + seed%
                PRINT MID$(a2$, INSTR(seed%, LCASE$(a2$), find$), LEN(find$));
                seed% = seed% + LEN(find$)
 
                IF flag% THEN
                    SELECT CASE flag%
                        CASE 2
                            flag% = 0: find$ = findorig$
                        CASE 1
                            flag% = 2
                            find$ = MID$(findorig$, LEN(find$) + 2)
                            seed% = 0
                            EXIT DO
                    END SELECT
                END IF
            ELSE
                EXIT DO
            END IF
        LOOP
    END IF
NEXT
COLOR 0, 7
flag% = 0
RETURN
 

STxAxTIC · « **Reply #5 on:** January 29, 2021, 01:58:53 am »

Hi Pete

I took a look at the code(s) here - looks like you've got your head around what you're doing. Though I want to echo what bplus was saying above - can we please see a demo of the code that is proportional to its mass? Something that shows as many features being used at once. I ask this because I care about your question - it's kinda hard to see how one idea (like highlighting) fits into the whole. Maybe this is for lack of research on my part.

As for the most recent snippet, it looks pretty cool as-is. Scrolls as advertised, etc etc. So that inspired me to put highlighting into qXed, and was happy with the result (a few pics below). Works like an absolute charm. The part that does the highlighting *might* be able to work in your code, or at least an adaptation of the method. I start with an array called LineAsMapped(), which is exactly like your x$() array. Here is the whole function (ignore some it, look for the Highlight part. In here, Highlight is a global):

Code: QB64: [Select]

SUB PrintMainText
    ' _ECHO "PrintMainText"
    DIM i AS INTEGER
    DIM j AS INTEGER
    DIM k AS INTEGER
    DIM k0 AS INTEGER
    DIM k00 AS INTEGER
    DIM c AS STRING
    DIM d AS STRING
    FOR i = 1 TO VisibleLines
        c = LineAsMapped(i)
        IF (TextFormatting = 1) THEN
            FOR j = 1 TO TextWidth - LEN(c)
                c = c + "_"
            NEXT
        END IF
        d = MID$(c, HScroll, TextWidth)
        IF (Highlight <> "") THEN
            k = INSTR(d, Highlight)
        END IF
        IF (k > 0) THEN
            k0 = 0
            DO WHILE (k > 0)
                k00 = k0 + k - 1
                COLOR 7, 1
                _PRINTSTRING (k0 + LeftIndent + 1, TopIndent + i), LEFT$(d, k - 1)
                COLOR 10, 1
                _PRINTSTRING (k0 + k - 1 + LeftIndent + 1, TopIndent + i), MID$(d, k, LEN(Highlight))
                d = RIGHT$(d, LEN(d) - k - LEN(Highlight) + 1)
                k0 = k0 + k - 1 + LEN(Highlight)
                k = INSTR(d, Highlight)
            LOOP
            COLOR 7, 1: _PRINTSTRING (k00 + LEN(Highlight) + LeftIndent + 1, TopIndent + i), d
        ELSE
            COLOR 7, 1: _PRINTSTRING (LeftIndent + 1, TopIndent + i), d
        END IF
    NEXT
    ' _ECHO ")"
END SUB

That prints every character visible at a given time, with the highlighting at full force. It's an ugly function, but it's not too complicated - maybe you want to hold it next to what you've got now, and see if there's space for optimization, making the code smaller, etc.

Anyway, good luck!

Pete · « **Reply #6 on:** January 29, 2021, 02:31:54 am »

Hi @STxAxTIC (Bill),

Here's the FIND demo I've been building up to. I think this part of the WP project is complete, and after I redo some of the routing and fiddle a bit with a temporary variable I made to glue two routines together, I should be ready to add it tom my WP project.

In regard to highlighting text, I have another thread I poted, around a month or so back, with that routine. So highlighting the doc, cut, copy, paste, etc. is already a completed part of the WP project; but I do have a "cut" bug I have to work on before I forget the code that went into it.

I'm going to get some shut eye for now, but I'll have a look at your method, tomorrow, and commit.

I made this final post LARGER with _FONT routine.

For this word search Demo...

Use arrows up or down to scroll the testing text.

Tab to rerun.

F3 to bring up the search window. (4 search options for whole or partial word and case or not case sensitive).

Tab to buttons and Enter or just left click any button.

It can find multi-word search text, which appears wrapped from one line to the next in the doc.

The highlighted text will remain highlighted while scrolling up and down.

Code: QB64: [Select]

_SCREENMOVE 0, 0
_DELAY .5
enl% = 13: CALL windowscreen(enl%)
_DELAY .3
 
DO
 
    DIM SHARED mx%, my%, margin.t AS INTEGER, margin.l AS INTEGER
    DIM SHARED action$
    DIM SHARED mb AS my_mb
    DIM scrb AS my_scrb
 
    TYPE my_mb
        l AS INTEGER
        r AS INTEGER
        m AS INTEGER
        w AS INTEGER
        drag AS INTEGER
        dragon AS INTEGER
    END TYPE
 
    TYPE my_scrb
        t AS INTEGER
        b AS INTEGER
        l AS INTEGER
        x AS INTEGER
        i AS INTEGER
        d AS INTEGER
        h AS INTEGER
        s AS INTEGER
        opt AS INTEGER
        adjust AS INTEGER
    END TYPE
 
    DIM SHARED SMODE, passrightmargin%
    REDIM SHARED formbuttony%(3), formbuttonx%(3), formbutton$(3)
    REDIM button$(8)
    COLOR 0, 7: CLS
 
    REDIM x$(20)
    margin.t = 2
    margin.l = 5
    dwidth = 68
    page.h = 6
    row = 1
    noe = 13
 
    x$(1) = "We the People of the United States, in Order to form a more perfect " + CHR$(10)
    x$(2) = "Union, establish Justice, insure domestic Tranquility, provide for " + CHR$(10)
    x$(3) = "the common defence, promote the general Welfare, and secure the " + CHR$(10)
    x$(4) = "Blessings of Liberty to ourselves and our Posterity, do ordain and " + CHR$(10)
    x$(5) = "establish this Constitution for the United States of America." + CHR$(10)
    x$(6) = "" + CHR$(255) + CHR$(10)
    x$(7) = "Article I" + CHR$(10)
    x$(8) = "" + CHR$(255) + CHR$(10)
    x$(9) = "Section 1: Congress" + CHR$(10)
    x$(10) = "" + CHR$(255) + CHR$(10)
    x$(11) = "All legislative Powers herein granted shall be vested in a Congress " + CHR$(10)
    x$(12) = "of the United States, which shall consist of a Senate and House of " + CHR$(10)
    x$(13) = "Representatives." + CHR$(10)
 
    COLOR 0, 7
    GOSUB displaydoc
 
    msg$ = " Find:                                                  "
    button% = 4: button_index% = 4
    W1% = 0: W2% = 0: W3% = 0: W4% = 0
 
    DO
        _LIMIT 30
        IF b$ = CHR$(0) + CHR$(61) THEN
            scr = 0: GOSUB displaydoc
            CALL popup(msg$, msg%, button$(), button%, button_index%, find$) ' Pass by ref text$ to find$
            LOCATE , , 0
        END IF
 
        IF LEN(action$) THEN
            SELECT CASE action$
                CASE "Whole Word"
                    whole_word% = 1
                    case_sensitive% = 0
                CASE "Whole/Case"
                    whole_word% = 1
                    case_sensitive% = 1
                CASE "Any Part"
                    whole_word% = 0
                    case_sensitive% = 0
                CASE "Any/Case"
                    whole_word% = 0
                    case_sensitive% = 1
            END SELECT
            action$ = ""
            GOSUB finder
        END IF
        b$ = INKEY$
        IF LEN(b$) THEN
            SELECT CASE b$
                CASE CHR$(9)
                    COLOR 7, 0: CLS: CLEAR: EXIT DO
                CASE CHR$(27)
                    SYSTEM
                CASE CHR$(0) + "H"
                    IF scr THEN scr = scr - 1: row = 1: GOSUB displaydoc: GOSUB finder
                CASE CHR$(0) + "P"
                    IF scr + page.h < noe THEN row = page.h: scr = scr + 1: GOSUB displaydoc: GOSUB finder
            END SELECT
        END IF
    LOOP
LOOP
 
displaydoc:
COLOR 0, 7
FOR i% = 1 TO page.h
    a1$ = SPACE$(dwidth)
    MID$(a1$, 1) = MID$(x$(i% + scr), 1, INSTR(x$(i% + scr), CHR$(10)) - 1)
    LOCATE margin.t + i%, margin.l + 1
    PRINT a1$
NEXT
RETURN
 
finder:
IF case_sensitive% = 0 THEN
    find$ = LCASE$(find$): findorig$ = find$
ELSE
    findorig$ = find$
END IF
 
IF LEN(findorig$) THEN
    flag% = 0
    FOR i% = 1 TO page.h
        LOCATE margin.t + i%, margin.l + 1
        a1$ = MID$(x$(i% + scr), 1, INSTR(x$(i% + scr), CHR$(10)) - 1)
 
        IF INSTR(find$, " ") THEN
            IF RIGHT$(a1$, 1) <> " " THEN a2$ = a1$ + " " ELSE a2$ = a1$
        ELSE
            a2$ = a1$ ' No space for a solid line wrap around.
        END IF
 
        IF INSTR(findorig$, " ") THEN
            a2$ = a2$ + MID$(x$(i% + 1 + scr), 1, INSTR(x$(i% + 1 + scr), CHR$(10)) - 1)
            a2% = -1
        ELSE
            a2% = 0
        END IF
 
        SELECT CASE case_sensitive%
            CASE 0 ' Not case sensitive.
                SELECT CASE whole_word%
                    CASE 0 ' Part word and not case sensitive.
                        IF INSTR(LCASE$(a2$), find$) THEN
                            COLOR 14, 4: seed% = 0
                            DO UNTIL INSTR(seed%, LCASE$(a2$), find$) = 0
 
                                IF a2% THEN
                                    k% = INSTR(seed%, LCASE$(a2$), find$)
                                    IF k% + LEN(find$) >= LEN(a1$) AND k% <= LEN(a1$) THEN
                                        seed% = INSTR(seed%, LCASE$(a2$), find$)
                                        find$ = MID$(findorig$, 1, LEN(a1$) - seed%)
                                        flag% = 1
                                    ELSE
                                        seed% = INSTR(seed%, LCASE$(a2$), find$)
                                    END IF
                                ELSE
                                    seed% = INSTR(seed%, LCASE$(a2$), find$)
                                END IF
 
                                IF seed% <= LEN(a1$) THEN
                                    LOCATE margin.t + i%, margin.l + seed%
                                    PRINT MID$(a2$, INSTR(seed%, LCASE$(a2$), find$), LEN(find$));
                                    seed% = seed% + LEN(find$)
 
                                    IF flag% THEN
                                        SELECT CASE flag%
                                            CASE 2
                                                flag% = 0: find$ = findorig$
                                            CASE 1
                                                flag% = 2
                                                find$ = MID$(findorig$, LEN(find$) + 2)
                                                seed% = 0
                                                EXIT DO
                                        END SELECT
                                    END IF
                                ELSE
                                    EXIT DO
                                END IF
                            LOOP
                        END IF
 
                    CASE 1 ' Whole word and not case sensitive.
                        seed% = 0: COLOR 14, 4
                        WHILE INSTR(seed%, LCASE$(a2$), find$)
                            seed% = INSTR(seed%, LCASE$(a2$), find$)
 
                            IF seed% - 1 = 0 OR MID$(LCASE$(a2$), seed% - 1, 1) = " " THEN
                                IF INSTR(".,;:?!}]) ", MID$(LCASE$(a2$), seed% + LEN(find$), 1)) THEN
 
                                    IF a2% THEN
                                        k% = INSTR(seed%, LCASE$(a2$), find$)
                                        IF k% + LEN(find$) >= LEN(a1$) AND k% <= LEN(a1$) THEN
                                            seed% = INSTR(seed%, LCASE$(a2$), find$)
                                            find$ = MID$(findorig$, 1, LEN(a1$) - seed%)
                                            flag% = 1
                                        ELSE
                                            seed% = INSTR(seed%, LCASE$(a2$), find$)
                                        END IF
                                    ELSE
                                        seed% = INSTR(seed%, LCASE$(a2$), find$)
                                    END IF
 
                                    IF seed% <= LEN(a1$) THEN
                                        LOCATE margin.t + i%, margin.l + seed%
                                        PRINT MID$(a2$, INSTR(seed%, LCASE$(a2$), find$), LEN(find$));
                                        seed% = seed% + LEN(find$)
 
                                        IF flag% THEN
                                            SELECT CASE flag%
                                                CASE 2
                                                    flag% = 0
                                                    find$ = findorig$
                                                CASE 1
                                                    flag% = 2
                                                    find$ = MID$(findorig$, LEN(find$) + 2)
                                                    seed% = 0
                                                    EXIT WHILE
                                            END SELECT
                                        END IF
                                    ELSE
                                        EXIT WHILE
                                    END IF
 
                                END IF
                            END IF
 
                            seed% = seed% + LEN(find$)
 
                        WEND
 
                END SELECT
 
            CASE 1 ' Case sensitive
                SELECT CASE whole_word%
                    CASE 0 ' Part word and case sensitive.
                        seed% = 0: COLOR 14, 4
                        WHILE INSTR(seed%, a2$, find$)
                            seed% = INSTR(seed%, a2$, find$)
 
                            IF a2% THEN
                                k% = INSTR(seed%, a2$, find$)
                                IF k% + LEN(find$) >= LEN(a1$) AND k% <= LEN(a1$) THEN
                                    seed% = INSTR(seed%, a2$, find$)
                                    find$ = MID$(findorig$, 1, LEN(a1$) - seed%)
                                    flag% = 1
                                ELSE
                                    seed% = INSTR(seed%, a2$, find$)
                                END IF
                            ELSE
                                seed% = INSTR(seed%, a2$, find$)
                            END IF
 
                            IF seed% <= LEN(a1$) THEN
                                LOCATE margin.t + i%, margin.l + seed%
                                PRINT MID$(a2$, INSTR(seed%, a2$, find$), LEN(find$));
                                seed% = seed% + LEN(find$)
 
                                IF flag% THEN
                                    SELECT CASE flag%
                                        CASE 2
                                            flag% = 0: find$ = findorig$
                                        CASE 1
                                            flag% = 2
                                            find$ = MID$(findorig$, LEN(find$) + 2)
                                            seed% = 0
                                            EXIT WHILE
                                    END SELECT
                                END IF
                            ELSE
                                EXIT WHILE
                            END IF
 
                            seed% = seed% + LEN(find$)
 
                        WEND
 
                    CASE 1 ' Whole word and case sensitive.
                        seed% = 0: COLOR 14, 4
                        WHILE INSTR(seed%, a2$, find$)
                            seed% = INSTR(seed%, a2$, find$)
 
                            IF seed% - 1 = 0 OR MID$(a2$, seed% - 1, 1) = " " THEN
                                IF INSTR(".,;:?!}]) ", MID$(a2$, seed% + LEN(find$), 1)) THEN
 
                                    IF a2% THEN
                                        k% = INSTR(seed%, a2$, find$)
                                        IF k% + LEN(find$) >= LEN(a1$) AND k% <= LEN(a1$) THEN
                                            seed% = INSTR(seed%, a2$, find$)
                                            find$ = MID$(findorig$, 1, LEN(a1$) - seed%)
                                            flag% = 1
                                        ELSE
                                            seed% = INSTR(seed%, a2$, find$)
                                        END IF
                                    ELSE
                                        seed% = INSTR(seed%, a2$, find$)
                                    END IF
 
                                    IF seed% <= LEN(a1$) THEN
                                        LOCATE margin.t + i%, margin.l + seed%
                                        PRINT MID$(a2$, INSTR(seed%, a2$, find$), LEN(find$));
                                        seed% = seed% + LEN(find$)
 
                                        IF flag% THEN
                                            SELECT CASE flag%
                                                CASE 2
                                                    flag% = 0: find$ = findorig$
                                                CASE 1
                                                    flag% = 2
                                                    find$ = MID$(findorig$, LEN(find$) + 2)
                                                    seed% = 0
                                                    EXIT WHILE
                                            END SELECT
                                        END IF
                                    ELSE
                                        EXIT WHILE
                                    END IF
 
                                END IF
                            END IF
 
                            seed% = seed% + LEN(find$)
 
                        WEND
 
                END SELECT
        END SELECT
    NEXT
END IF
RETURN
 
SUB popup (msg$, msg%, button$(), button%, button_index%, text$)
    DIM scrb AS my_scrb
    STATIC doctype%
    REDIM button$(8)
    button$(1) = "Yes": button$(2) = "No!"
    button$(3) = "Retry": button$(4) = "Cancel"
    button$(5) = "Whole Word": button$(6) = "Whole/Case": button$(7) = "Any Part": button$(8) = "Any/Case"
    iyy% = CSRLIN: ixx% = POS(0)
    IF W3% = 0 THEN W3% = 5 ' Min.
    IF W4% = 0 THEN W4% = LEN(msg$) + 4 ' Min
 
    IF W1% = 0 THEN
        ' Auto-Center
        W1% = _HEIGHT \ 2 - W3% \ 2 + .5
        W2% = _WIDTH \ 2 - W4% \ 2 + .5
    END IF
 
    SELECT CASE SMODE
        CASE 0
            oldsmode = SMODE: PCOPY 0, 1: SCREEN 0, 0, 1, 1: SMODE = 1
        CASE 1
            oldsmode = SMODE: PCOPY 1, 2: SCREEN 0, 0, 2, 2: SMODE = 2
    END SELECT
 
    LOCATE W1%, W2%, 0 ' Cursor hide
    FOR I = 1 TO W3%
        A$ = ""
        COLOR 15, 1
        LOCATE , W2%
        A$ = A$ + SPACE$(W4% - LEN(A$))
        PRINT A$;
        IF I <> 1 THEN
            COLOR 1, 0: PRINT CHR$(176)
        ELSE PRINT
        END IF
    NEXT I
    LOCATE , W2% + 1
    COLOR 1, 0: PRINT STRING$(W4%, CHR$(176));
    COLOR 14, 1
    LOCATE W1%, W2%
    PRINT CHR$(218); STRING$(W4% - 2, CHR$(196)); CHR$(191);
    LOCATE W1% + W3% - 1, W2%
    PRINT CHR$(192); STRING$(W4% - 2, CHR$(196)); CHR$(217);
    FOR I = 1 TO W3% - 2
        LOCATE W1% + I, W2%: PRINT CHR$(179);: LOCATE W1% + I, W2% + W4% - 1: PRINT CHR$(179);
    NEXT I
    LOCATE W1%, W2% + W4% - 2: COLOR 15, 1: PRINT "x";
 
    IF LEN(msg$) THEN
        SELECT CASE msg%
            CASE -1
                LOCATE W1% + 1, W2% + W4% \ 2 - LEN(msg$) \ 2
                PRINT msg$;
            CASE 0
                COLOR 15, 1
                IF button% THEN
                    LOCATE W1% + W3% \ 2 - 1, W2% + W4% \ 2 - LEN(msg$) \ 2
                    PRINT msg$;
                    j% = 0
                    FOR i% = 1 TO button%
                        j% = j% + LEN(button$(button_index% + i%)) + 2
                    NEXT
                    LOCATE W1% + W3% \ 2 + 1, W2% + W4% \ 2 - j% \ 2 - 1
                    COLOR 0, 7
                    mouselocator$ = STRING$(_WIDTH, "0"): mouselocator% = W1% + W3% \ 2 + 1
                    k% = 0
                    FOR i% = button_index% + 1 TO button_index% + button%
                        IF k% THEN LOCATE , POS(0) + 2
                        k% = k% + 1
                        MID$(mouselocator$, POS(0)) = STRING$(LEN(button$(i%)) + 2, LTRIM$(STR$(k%)))
                        PRINT SPACE$(LEN(button$(i%)) + 2);
                    NEXT
                    LOCATE W1% + W3% \ 2 + 1, W2% + W4% \ 2 - j% \ 2
                    COLOR 0, 7
                    k% = 0
                    FOR i% = button_index% + 1 TO button_index% + button%
                        IF k% THEN LOCATE , POS(0) + 4
                        PRINT button$(i%);
                        k% = k% + 1
                    NEXT
 
                    LOCATE 11, 18
                    COLOR 8, 1: PRINT CHR$(222);
                    COLOR c2%, c1%: PRINT SPACE$(48);
                    passrightmargin% = POS(0) - 1: LOCATE 11, 19: xx2 = POS(0)
                    tabx% = 0: action$ = ""
                    _KEYCLEAR: text$ = ""
 
                    DO
                        IF pete = 0 THEN
                            LOCATE 11, xx2, 1
                            CALL textinput(text$, passrightmargin%, mykey%, doctype$, doctype$(), doctype%, doctypey%(), doctypex%(), x$(), xfull$(), scrb, noe, row, scr, config%, b$)
                            yy2 = CSRLIN: xx2 = POS(0)
                        ELSE
                            CALL user(b$, mx%, my%, alt%, shift%, ctrl%, ctrlshift%, con_panel%, doc_status_saved%)
                        END IF
                        IF LEN(b$) THEN
                            SELECT CASE b$
                                CASE CHR$(13)
                                    IF pete = 0 THEN
                                        SELECT CASE tabx%
                                            CASE 1
                                                IF button_index% = 0 THEN action$ = "yes"
                                                IF button_index% = 2 THEN action$ = "retry"
                                                IF button_index% = 4 THEN action$ = "Whole Word" ' F3 Find option.
                                            CASE 2
                                                IF button_index% = 0 THEN action$ = "no"
                                                IF button_index% = 2 THEN action$ = "abort"
                                                IF button_index% = 4 THEN action$ = "Whole/Case" ' F3 Find option.
                                                ' Find Function only.
                                            CASE 0, 3
                                                IF button_index% = 4 THEN action$ = "Any Part" ' F3 Find option.
                                            CASE 4
                                                IF button_index% = 4 THEN action$ = "Any/Case" ' F3 Find option.
                                        END SELECT
                                    ELSE
                                        SELECT CASE tabx%
                                            CASE 1
                                                IF button_index% = 0 THEN action$ = "yes"
                                                IF button_index% = 2 THEN action$ = "retry"
                                            CASE 2
                                                IF button_index% = 0 THEN action$ = "no"
                                                IF button_index% = 2 THEN action$ = "abort"
                                        END SELECT
                                    END IF
                                CASE CHR$(27)
                                    action$ = "close"
                            END SELECT
                        END IF
 
                        IF my% = W1% AND mx% = W2% + W4% - 2 THEN
                            IF closex% = 0 THEN closex% = -1: LOCATE my%, mx%: COLOR 15, 4: PRINT "x";
                        ELSE
                            IF closex% THEN closex% = 0: LOCATE W1%, W2% + W4% - 2: COLOR 7, 1: PRINT "x";
                        END IF
 
                        IF bhl% THEN IF bhl% = 1 AND my% <> mouselocator% OR bhl% = 1 AND MID$(mouselocator$, mx%, 1) = "0" THEN tabx% = 0: bhl% = 0
                        IF b$ = CHR$(9) THEN tabx% = tabx% + 1: IF tabx% > button% THEN tabx% = 1
                        IF oldmx% = mx% AND oldmy% = my% THEN i% = 0 ELSE i% = -1
                        IF b$ = CHR$(9) OR my% = mouselocator% AND MID$(mouselocator$, mx%, 1) <> "0" AND i% THEN
                            IF b$ = CHR$(9) THEN k% = tabx%: bhl% = 9 ELSE k% = VAL(MID$(mouselocator$, mx%, 1)): tabx% = k%: bhl% = 1
                            IF pete = 0 THEN LOCATE , , 0 ' Hide cursor while making buttons.
                            IF h% AND h% <> tabx% THEN
                                COLOR 0, 7
                                LOCATE W1% + W3% \ 2 + 1, INSTR(mouselocator$, LTRIM$(STR$(h%)))
                                PRINT SPACE$(1) + button$(h% + button_index%) + SPACE$(1);
                            END IF
 
                            h% = k%: tabx% = h%
 
                            COLOR 0, 3
                            LOCATE W1% + W3% \ 2 + 1, INSTR(mouselocator$, LTRIM$(STR$(h%)))
                            PRINT SPACE$(1) + button$(h% + button_index%) + SPACE$(1);
                            IF pete = 0 THEN LOCATE yy2, xx2, 1 ' Show cursor back in input field.
                            _DELAY .15
                        ELSE
                            IF h% AND tabx% = 0 THEN
                                IF pete = 0 THEN LOCATE , , 0
                                COLOR 0, 7
                                LOCATE W1% + W3% \ 2 + 1, INSTR(mouselocator$, LTRIM$(STR$(h%)))
                                PRINT SPACE$(1) + button$(h% + button_index%) + SPACE$(1);
                                h% = 0: tabx% = 0
                                IF pete = 0 THEN LOCATE yy2, xx2, 1
                            END IF
                        END IF
 
                        IF mb.l THEN
                            IF closex% THEN SOUND 1000, .1: closex% = 0: action$ = "close"
                            IF my% = mouselocator% AND MID$(mouselocator$, mx%, 1) <> "0" THEN
                                SOUND 1000, .1
                                SELECT CASE VAL(MID$(mouselocator$, mx%, 1))
                                    CASE 1
                                        IF button_index% = 0 THEN action$ = "yes"
                                        IF button_index% = 2 THEN action$ = "retry"
                                        IF button_index% = 4 THEN action$ = "Whole Word" ' F3 Find option.
                                    CASE 2
                                        IF button_index% = 0 THEN action$ = "no"
                                        IF button_index% = 2 THEN action$ = "abort"
                                        IF button_index% = 4 THEN action$ = "Whole/Case" ' F3 Find option.
                                        ' Find Function only.
                                    CASE 3
                                        IF button_index% = 4 THEN action$ = "Any Part" ' F3 Find option.
                                    CASE 4
                                        IF button_index% = 4 THEN action$ = "Any/Case" ' F3 Find option.
                                END SELECT
                            END IF
                        END IF
 
                        IF b$ = CHR$(9) THEN b$ = ""
                        oldmy% = my%: oldmx% = mx%
                    LOOP UNTIL LEN(action$)
                    SMODE = oldsmode: SCREEN 0, 0, SMODE, SMODE
                ELSE
                    LOCATE W1% + W3% \ 2, W2% + W4% \ 2 - LEN(msg$) \ 2
                    PRINT msg$;
                END IF
 
        END SELECT
    END IF
    LOCATE iyy%, ixx%
END SUB
 
SUB user (b$, mx%, my%, alt%, shift%, ctrl%, ctrlshift%, con_panel%, doc_status_saved%)
 
    '''IF _EXIT THEN CALL exit_warning(doc_status_saved%)
 
    DEF SEG = 0
    IF PEEK(1047) MOD 16 = 1 OR PEEK(1047) MOD 16 = 2 THEN shift% = -1 ELSE shift% = 0
    IF PEEK(1047) MOD 16 = 3 OR PEEK(1047) MOD 16 = 4 THEN ctrl% = -1 ELSE ctrl% = 0
    IF PEEK(1047) MOD 16 = 5 OR PEEK(1047) MOD 16 = 6 THEN ctrlshift% = -1 ELSE ctrlshift% = 0
 
    IF PEEK(1047) MOD 16 = 7 OR PEEK(1047) MOD 16 = 8 THEN
        alt% = -1: con_panel% = -1
    ELSE
        IF alt% THEN alt% = 0: con_panel% = 1
    END IF
    DEF SEG
 
    b$ = INKEY$
 
    mb.w = 0
    WHILE _MOUSEINPUT
        mb.w = mb.w + _MOUSEWHEEL
    WEND
 
    mb.l% = _MOUSEBUTTON(1)
    mb.r% = _MOUSEBUTTON(2)
    mx% = _MOUSEX
    my% = _MOUSEY
END SUB
 
SUB textinput (text$, passrightmargin%, mykey%, doctype$, doctype$(), doctype%, doctypey%(), doctypex%(), x$(), xfull$(), scrb AS my_scrb, noe AS INTEGER, row, scr, config%, b$)
    STATIC initiate%
    STATIC hscrollon%, hscroll%, textfg%, textbk%, highlightfg%, highlightbk%, leftmargin%, rightmargin%, noleadingspace%, textmaxlength%, linecharacter%, click_l%, drag%, shiftclick%, tabx%
    STATIC starthighlight%, highlight%, overwrite%, CurAdvance%
    STATIC xx1
    '''vartable% = 2: CALL setvariables(scrb, c1%, c2%, c1alt%, h1%, h2%, row, ins%, dwidth, dwidth2, menubar%)
 
    row = 1: tabx% = 2: thumb% = 0
 
    DO
        IF NOT initiate% THEN ' Initiate textinput variables.
            initiate% = -1
            GOSUB initiate_variables
        END IF
 
        ' --------------------POLL MOUSE--->
        mb.w = 0
        WHILE _MOUSEINPUT
            mb.w = mb.w + _MOUSEWHEEL
        WEND
 
        IF mb.w = 0 THEN
            mx% = _MOUSEX ' Mouse column.
            my% = _MOUSEY ' Mouse row.
            mb.l = _MOUSEBUTTON(1)
            mb.r = _MOUSEBUTTON(2)
            mb.m = _MOUSEBUTTON(3)
        END IF
        '<----------------------------------
 
        IF noleadingspace% THEN ' Remove leading spaces of any text entry in form.
            IF LEFT$(text$, 1) = " " THEN
                DO UNTIL LEFT$(text$, 1) <> " " OR text$ = ""
                    text$ = MID$(text$, 2)
                    LOCATE , leftmargin%
                    GOSUB wash
                LOOP
            END IF
        END IF
 
        '-------------------------------------------------------------------------
        mykey% = _KEYHIT
 
        '''IF _EXIT THEN CALL exit_warning(doc_status_saved%)
 
        IF mykey% = 0 THEN
            IF my% <> oldmy% OR mx% <> oldmx% OR mb.l OR mb.w THEN
                GOSUB mouseroutine
                IF LEN(action$) THEN EXIT DO
            END IF
        END IF
 
        ''''''IF mykey% = 0 THEN GOSUB file_display_keys
 
        IF mykey% > 0 THEN
            GOSUB form_input_keyroutine
            IF LEN(action$) THEN EXIT DO
        END IF
        '-------------------------------------------------------------------------
        oldmy% = my%: oldmx% = mx%
        IF pete = 0 THEN EXIT DO
    LOOP
    EXIT SUB
 
    '---------------------------GOSUB STATEMENTS-----------------------------
    initiate_variables:
    PageWidth1% = 80
    PageWidth2% = 25
    Topmargin% = 3
    BottomMargin% = PageWidth2% - UpFromBottom%
    UpFromBottom% = 2
    BlockSize% = 0: REM -1 = variable.
    Headers% = 0: REM On -1 or Off 0
    TabElements% = 1: REM Number of input fields horizontally arranged. - 1 indicates variable.
    ColorPrompt% = 0: REM 0 = COLOR 7, 0. Set all foreground/background by background * 16 + background.
    ColorResponse% = 0: REM 0 will use textfg% and textbk% as defaults; otherwise set all foreground/background by background * 16 + background.
    RestrictInput% = -1: REM On -1 or Off 0. (Uses 3 data fields)
    InputFieldLength% = 0: REM Set to a number to allow variable length fields; otherwise filed input length will be determined by rightmargin% - (leftmargin% - 1).
    PromptColumn% = 1: REM Column where prompt starts. Use 0 if no prompts. Use -1 for  multiple prompts on same row.
    ResponseColumn% = 0: REM Set to a number if using Spacer%; otherwise 0 = input field follows response.
 
    TableStyle% = 0: REM 0 = Prompt/Space/Input, 1 = Prompt/Colon+Space/Response, 2 = Prompt/Spacers/Response
    Spacer$ = ".": REM Type of spacer character if spacers are used (Table Style 2).
 
    textfg% = 7
    textbk% = 0
    highlightfg% = 0
    highlightbk% = 7
    leftmargin% = POS(0): iyy% = CSRLIN
    rightmargin% = passrightmargin%
    textmaxlength% = 250
    noleadingspace% = -1
    linecharacter% = 255: REM Blank space
 
    IF textmaxlength% > rightmargin% - (leftmargin% - 1) THEN hscrollon% = -1
    IF rightmargin% < leftmargin% THEN CLS: PRINT "Rightmargin% cannot be smaller than leftmargin%. Redo.": END
    IF leftmargin% < 1 OR leftmargin% > 80 THEN CLS: PRINT "Leftmargin% is not within 1 - 80 range. Redo.": END
    REM no longer valid with hscroll.IF textmaxlength% > rightmargin% - leftmargin% + 1 THEN CLS: PRINT "textmaxlength% cannot exceed rightmargin% - leftmargin% + 1. Redo.:end"
    IF LEN(text$) > textmaxlength% THEN CLS: PRINT "Text length cannot start out larger than textmaxlength%. Redo.": END
 
    IF rightmargin% = leftmargin% AND textmaxlength% = 1 THEN
        CurAdvance% = 0
    ELSE
        CurAdvance% = 1
    END IF
 
    COLOR textfg%, textbk%
    LOCATE iyy%, leftmargin%, 1, 7, 7
    RETURN '-----------------------------------------------------------------
 
    form_input_keyroutine:
    DO ' Falk loop.
        IF SMODE = 3 THEN ' Doctype dropdown is open.
            SELECT CASE mykey%
                CASE 9, 27 ' Close doctype dropdown.
                    GOSUB close_doctype_dropdown
                CASE 18432 ' Arrow up.
                    IF CSRLIN = W1% + 17 THEN
                        LOCATE W1% + 17, W2% + 15
                        COLOR 7, 0: PRINT doctype$(2);
                        LOCATE W1% + 16, W2% + 15
                        COLOR 1, 3: PRINT doctype$(1);
                    END IF
                CASE 20480 ' Arrow Down
                    IF CSRLIN = W1% + 16 THEN
                        LOCATE W1% + 16, W2% + 15
                        COLOR 7, 0: PRINT doctype$(1);
                        LOCATE W1% + 17, W2% + 15
                        COLOR 1, 3: PRINT doctype$(2);
                    END IF
                CASE 13 ' Enter
                    b$ = CHR$(13): EXIT DO
                    IF CSRLIN = W1% + 16 THEN i% = 1 ELSE i% = 2
                    GOSUB close_doctype_dropdown
                    GOSUB doctype_selected ' (Gosub parameter i%)
            END SELECT
            mykey% = 0
            EXIT DO ' To REturn
        END IF
 
        ' Process text if cursor is on form field text input line.
        IF pete = 0 OR CSRLIN = W1% + W3% - 4 - 3 OR mykey% = 27 OR mykey% = 13 OR mykey% = 9 THEN ELSE EXIT DO
 
        IF _KEYDOWN(100303) = -1 OR _KEYDOWN(100304) = -1 THEN
            SELECT CASE mykey%
                CASE 18176, 20224, 19200, 19712, 21248, 20992
                    shift% = -1
            END SELECT
        ELSE
            IF NOT drag% AND shift% THEN shift% = 0
        END IF
 
        IF _KEYDOWN(100305) = -1 OR _KEYDOWN(100306) = -1 THEN
            SELECT CASE mykey%
                CASE 86, 118
                    control% = -2
                CASE ELSE
                    control% = -1
            END SELECT
        ELSE
            control% = 0
        END IF
 
        REM Evaluate changes to highlighted text, excluding cut/copy/paste
        IF highlight% AND shift% = 0 AND control% <> -1 AND mykey% <> 8 AND mykey% < 21248 THEN
            IF mykey% > 31 AND mykey% < 256 THEN
                GOSUB cutcopy
            ELSE
                GOSUB wash
            END IF
        END IF
 
        IF shift% = -1 AND control% = 0 THEN
            SELECT CASE mykey%
                CASE 19200
                    GOSUB HighlightLeft
 
                CASE 19712
                    IF control% THEN
                        GOSUB ctrlrt
                    ELSE
                        GOSUB HighlightRight
                    END IF
 
                CASE 18176
                    GOSUB SelectToHome
 
                CASE 20224
                    GOSUB SelectToEnd
 
                CASE 21248
                    mykey% = 88: REM Convert Delete to Cut
                    GOSUB cutcopy
 
                CASE 20992
                    GOSUB PasteClipboard
            END SELECT
 
        ELSE
 
            SELECT CASE control%
                CASE 0
                    SELECT CASE mykey%
                        CASE 18176
                            IF shift% THEN GOSUB SelectToHome ELSE GOSUB CursorHome
 
                        CASE 20224
                            IF shift% THEN GOSUB SelectToEnd ELSE GOSUB CursorEnd
 
                        CASE 8, 21248: REM Backspace and Delete
                            GOSUB BackspaceDelete
 
                        CASE 9: REM Tab
                            IF pete = 0 THEN b$ = CHR$(9): EXIT DO ELSE GOSUB tabkey: mykey% = 0
 
                        CASE 13
                            IF pete = 0 THEN b$ = CHR$(13): EXIT DO
                            DO ' Single falks do/loop.
                                FOR i% = 1 TO UBOUND(formbutton$)
                                    IF formbuttonx%(i%) < 0 THEN
                                        SELECT CASE i%
                                            CASE 1
                                                formbuttonx%(1) = ABS(formbuttonx%(1))
                                                GOSUB popfiletypes
                                                EXIT DO
                                            CASE 2
                                                SELECT CASE config%
                                                    CASE 1
                                                        action$ = "open file"
                                                    CASE 2
                                                        action$ = "save as"
                                                END SELECT
                                                '''myfile$ = text$
                                                EXIT DO
                                            CASE 3
                                                action$ = "cancel"
                                                EXIT DO
                                        END SELECT
                                    END IF
                                NEXT
 
                                SELECT CASE tabx%
                                    CASE 1 ' File selected from display window.
                                        IF hlf% THEN
                                            GOSUB fileselected
                                            IF action$ = "change dir" THEN tabx% = 0: EXIT DO
                                            tabx% = 2
                                        ELSE
                                            BEEP
                                        END IF
                                    CASE 2 ' Save or Open selected file.
                                        IF LEN(text$) THEN
                                            SELECT CASE config%
                                                CASE 1
                                                    action$ = "open file"
                                                CASE 2
                                                    action$ = "save as"
                                            END SELECT
                                            tabx% = 2
                                            '''myfile$ = text$
                                            EXIT DO
                                        ELSE
                                            BEEP
                                        END IF
                                    CASE 3 ' Open doctype dropdown menu.
                                        GOSUB popfiletypes
                                    CASE 4 ' Save or Open selected file. Only occurs when tab selected then mouse goes on another button and then goes to a neutral position. In this case the variable is no longer negative and the loop above misses it.
                                        SELECT CASE config%
                                            CASE 1
                                                action$ = "open file"
                                            CASE 2
                                                action$ = "save as"
                                        END SELECT
                                        tabx% = 2
                                        EXIT DO
                                    CASE 5 ' Cancel
                                        action$ = "cancel": tabx% = 2
                                        EXIT DO
                                END SELECT
                                EXIT DO
                            LOOP
                            IF LEN(action$) THEN EXIT DO ' To Return
 
                        CASE 19200
                            GOSUB CursorLeft
 
                        CASE 19712
                            GOSUB CursorRight
 
                        CASE 18432
                            GOSUB CursorUp
 
                        CASE 20480
                            GOSUB CursorDown
 
                        CASE 18688
                            GOSUB PageUp
 
                        CASE 20736
                            GOSUB PageDown
 
                        CASE 27
                            IF pete = 0 THEN b$ = CHR$(27): EXIT DO
                            GOSUB wash
                            EXIT DO
 
                        CASE 20992: REM Insert
                            GOSUB InsertOverwrite
 
                        CASE ELSE
                            GOSUB DisplayText
                            IF flagtext% = -1 THEN flagtext% = 0: mykey% = 0
                    END SELECT
 
                    REM Control% = -1 or -2
                CASE -1, -2
 
                    SELECT CASE mykey%
 
                        CASE 65, 97 ' A a
                            GOSUB SelectAll
 
                        CASE 67, 99, 88, 120 ' C c X x
                            GOSUB cutcopy
 
                        CASE 86, 118 ' V v
                            REM Paste
                            GOSUB PasteClipboard
 
                        CASE 19712
                            REM Cursor and arrow right
                            GOSUB ctrlrt
 
                        CASE 19200
                            REM Cursor and arrow left
                            GOSUB ctrllt
 
                        CASE 18176
                            GOSUB CursorHome ' Ctrl + Home
 
                        CASE 20224
                            GOSUB CursorEnd ' Ctrl + End
 
                        CASE ELSE
                            ' Do nothing.
 
                    END SELECT
            END SELECT
        END IF
        EXIT DO
    LOOP
    RETURN '-----------------------------------------------------------------
 
    ' Key Actions.
    tabkey:
    tabx% = tabx% + 1
    IF tabx% > 5 THEN tabx% = 1: GOSUB clearbuttons
 
    SELECT CASE tabx%
        CASE 1
            IF hlf% THEN j% = -999: GOSUB highlightfile
            i% = 0: GOSUB displaybutton
            LOCATE , , 0: row = 1: j% = 0: GOSUB highlightfile
        CASE 2
            IF hlf% THEN j% = -999: GOSUB highlightfile
            LOCATE W1% + W3% - 4 - 3, W2% + 15, 1
        CASE 3
            i% = -1: GOSUB displaybutton
        CASE 4
            i% = -2: GOSUB displaybutton
        CASE 5
            i% = -3: GOSUB displaybutton
    END SELECT
    b$ = "": mykey% = 0: null$ = INKEY$: k% = _KEYHIT ' Clear keyboard buffers
    RETURN '------------------------------------------------------------------
 
    CursorLeft:
    IF POS(0) > leftmargin% THEN
        LOCATE , POS(0) - CurAdvance%
    ELSE
        IF hscroll% THEN hscroll% = hscroll% - 1: GOSUB wash
    END IF
    RETURN '------------------------------------------------------------------
 
    CursorRight:
    IF POS(0) < rightmargin% THEN
        IF POS(0) + CurAdvance% <= leftmargin% - 1 + LEN(text$) + 1 THEN
            IF POS(0) < rightmargin% THEN LOCATE , POS(0) + CurAdvance%
        END IF
    ELSE
        IF hscrollon% THEN
            IF hscroll% + rightmargin% - (leftmargin% - 1) <= LEN(text$) THEN
                hscroll% = hscroll% + 1
                GOSUB wash
            END IF
        END IF
    END IF
 
    RETURN '------------------------------------------------------------------
 
    ctrllt:
    IF highlight% <> 0 AND NOT shift% THEN GOSUB wash
    texttemp$ = MID$(text$, 1, POS(0) - leftmargin% + 1 + hscroll%)
    IF INSTR(texttemp$, " ") <> 0 THEN
        FOR ictrllt% = POS(0) - leftmargin% + 1 + hscroll% TO 1 STEP -1
            IF exitctrl% AND MID$(text$, ictrllt% - 1, 1) = " " THEN EXIT FOR
            IF MID$(text$, ictrllt%, 1) <> " " THEN exitctrl% = -1
            IF shift% THEN GOSUB HighlightLeft ELSE GOSUB CursorLeft
        NEXT
        exitctrl% = 0
    ELSE
        IF shift% THEN GOSUB SelectToHome ELSE GOSUB CursorHome
    END IF
    RETURN '---------------------------------------------------------------------
 
    ctrlrt:
    IF highlight% <> 0 AND NOT shift% THEN GOSUB wash
    texttemp$ = MID$(text$, POS(0) - leftmargin% + 1 + hscroll%)
    IF INSTR(texttemp$, " ") <> 0 THEN
        FOR ictrlrt% = POS(0) - leftmargin% + 1 + hscroll% TO LEN(text$)
            IF MID$(text$, ictrlrt%, 1) <> " " THEN
                IF exitctrl% THEN EXIT FOR
                jctrlrt% = -1
            END IF
            IF MID$(text$, ictrlrt%, 1) = " " AND jctrlrt% THEN exitctrl% = -1
            IF shift% THEN GOSUB HighlightRight ELSE GOSUB CursorRight
        NEXT
        exitctrl% = 0: ictrlrt% = 0: jctrlrt% = 0
    ELSE
        IF shift% THEN GOSUB SelectToEnd ELSE GOSUB CursorEnd
    END IF
    RETURN '---------------------------------------------------------------------
 
    CursorHome:
    IF hscroll% <> 0 THEN hscroll% = 0: GOSUB wash
    LOCATE , leftmargin%
    RETURN '---------------------------------------------------------------------
 
    CursorEnd:
    IF hscrollon% THEN
        IF LEN(text$) > rightmargin% - (leftmargin% - 1) THEN
            hscroll% = LEN(text$) - (rightmargin% - (leftmargin% - 1)) + 1: REM + 1 allows for adding to end of text.
            GOSUB wash
        END IF
    END IF
    IF LEN(text$) + leftmargin% - 1 >= rightmargin% THEN
        LOCATE , rightmargin%
    ELSE
        LOCATE , leftmargin% - 1 + LEN(text$) + CurAdvance%
    END IF
    RETURN '---------------------------------------------------------------------
 
    CursorUp:
    REM PRINT "Cursor Up"
    RETURN
 
    CursorDown:
    REM PRINT "Cursor Down"
    IF formbuttonx%(1) < 0 OR tabx% = 3 THEN ' Opens the doctype dropdown menu.
        formbuttonx%(1) = ABS(formbuttonx%(1))
        GOSUB popfiletypes
    END IF
    RETURN '---------------------------------------------------------------------
 
    PageUp:
    REM PRINT "Page Up"
    RETURN
 
    PageDown:
    REM PRINT "Page Down"
    RETURN
 
    REM Highlighting -----------------------------------------------------------
    HighlightLeft:
    iyy% = CSRLIN: ixx% = POS(0)
    IF POS(0) > leftmargin% OR hscroll% THEN
 
        IF highlight% AND POS(0) >= highlight% - hscroll% THEN ' Unhighlighting left to right.
            ' Move back first and then calculate POS(0) - 1, below.
            IF highlight% = starthighlight% THEN
                starthighlight% = 0: highlight% = 0
            ELSE
                highlight% = POS(0) - 1 + hscroll% ' Diminishing.
            END IF
        ELSE ' Highlighting left to right.
            ' Calculate first and then move back. POS(0).
            IF highlight% = 0 THEN highlight% = POS(0) + hscroll%
            starthighlight% = POS(0) + hscroll%
        END IF
 
        IF POS(0) = leftmargin% AND hscroll% THEN hscroll% = hscroll% - 1 ' hscroll% is reduced after the calculations above.
        c1% = textfg%: c2% = textbk%: c3% = highlightfg%: c4% = highlightbk%
        texttemp$ = MID$(text$, 1 + hscroll%, rightmargin% - leftmargin% + 1)
 
        LOCATE iyy%, leftmargin%
        COLOR c1%, c2%: PRINT MID$(texttemp$, 1, starthighlight% - hscroll% - leftmargin% - 1);
        COLOR c3%, c4%: PRINT MID$(texttemp$, starthighlight% - hscroll% - leftmargin% + 0, ABS(highlight% - starthighlight%) + 1);
        COLOR c1%, c2%: PRINT MID$(texttemp$, highlight% - hscroll% - leftmargin% + 1);
 
        IF ixx% - leftmargin% > 0 THEN ixx% = ixx% - 1 ' No moving cursor back when it is at left amrgin and scrolling text back.
        LOCATE iyy%, ixx%
        COLOR textfg%, textbk%
    END IF
    RETURN '---------------------------------------------------------------------
 
    HighlightRight:
    iyy% = CSRLIN: ixx% = POS(0)
    IF hscroll% + ixx% + 1 - leftmargin% <= LEN(text$) THEN
        c1% = textfg%: c2% = textbk%: c3% = highlightfg%: c4% = highlightbk%
 
        IF POS(0) >= starthighlight% - hscroll% THEN
            IF starthighlight% = 0 THEN starthighlight% = POS(0) + 1 + hscroll%
            highlight% = POS(0) + 1 + hscroll%
        ELSE
            IF starthighlight% = highlight% THEN
                starthighlight% = 0: highlight% = 0
            ELSE
                starthighlight% = POS(0) + 2 + hscroll%
            END IF
        END IF
 
        IF POS(0) = rightmargin% AND LEN(text$) - hscroll% > rightmargin% - leftmargin% THEN hscroll% = hscroll% + 1
        texttemp$ = MID$(text$, 1 + hscroll%, rightmargin% - leftmargin% + 1)
 
        LOCATE iyy%, leftmargin%
        COLOR c1%, c2%: PRINT MID$(texttemp$, 1, starthighlight% - hscroll% - leftmargin% - 1);
        COLOR c3%, c4%: PRINT MID$(texttemp$, starthighlight% - hscroll% - leftmargin% + 0, ABS(highlight% - starthighlight%) + 1);
        COLOR c1%, c2%: PRINT MID$(texttemp$, highlight% - hscroll% - leftmargin% + 1);
        IF POS(0) = rightmargin% THEN PRINT SPACE$(1); ' Only used when highlighting past last character to include one blank space.
        IF ixx% < rightmargin% THEN ixx% = ixx% + 1
        LOCATE iyy%, ixx%
        COLOR textfg%, textbk%
    END IF
    RETURN '---------------------------------------------------------------------
 
    ClickhighLight:
    j% = 0
    texttemp$ = MID$(text$, 1, POS(0) - leftmargin% + 1 + hscroll%)
    FOR i% = LEN(texttemp$) TO 1 STEP -1
        IF MID$(texttemp$, i%, 1) = " " AND j% THEN EXIT FOR ELSE j% = -1
    NEXT
    jClickhighLight% = LEN(texttemp$) - i% - 1
    invokestarthighlight% = POS(0) + hscroll% - (LEN(texttemp$) - i%) + 1
    FOR iClickhighLight% = 1 TO jClickhighLight%
        IF POS(0) = leftmargin% THEN EXIT FOR
        GOSUB CursorLeft
    NEXT
    shift% = -1
    GOSUB ctrlrt
    shift% = 0
    invokestarthighlight% = 0: iClickhighLight% = 0: jClickhighLight% = 0
    RETURN '---------------------------------------------------------------------
 
    SelectAll:
    highlight% = 0: starthighlight% = 0: REM These are not zeroed as a ctrl keys bypass remove highlighting
    GOSUB CursorHome
    GOSUB SelectToEnd
    RETURN '---------------------------------------------------------------------
 
    SelectToEnd:
    IF mspan% = 0 THEN mspan% = POS(0) - leftmargin% + 1 + LEN(text$)
    FOR iSelectToEnd% = 1 TO mspan%
        GOSUB HighlightRight
    NEXT
    mspan% = 0: iSelectToEnd% = 0
    RETURN '---------------------------------------------------------------------
 
    SelectToHome:
    IF mspan% = 0 THEN
        IF POS(0) = rightmargin% THEN
            mspan% = rightmargin% - (leftmargin% - 1) + hscroll%
        ELSE
            mspan% = POS(0) - leftmargin% + 1 + hscroll%
        END IF
    END IF
 
    FOR iSelectToHome% = 1 TO mspan%
        GOSUB HighlightLeft
    NEXT
    mspan% = 0: iSelectToHome% = 0
    RETURN '---------------------------------------------------------------------
 
    DisplayText:
    DO ' Falk loop.
        IF mykey% > 31 AND mykey% < 256 THEN
            COLOR 7, 0: LOCATE , , 1
            IF overwrite% = -1 OR CurAdvance% = 0 THEN
                texttemp$ = MID$(text$, 1, POS(0) - leftmargin%) + CHR$(mykey%) + MID$(text$, POS(0) - leftmargin% + 2)
            ELSE
                texttemp$ = MID$(text$, 1, POS(0) - leftmargin%) + CHR$(mykey%) + MID$(text$, POS(0) - leftmargin% + 1)
            END IF
 
            positioncursor% = POS(0)
 
            IF overwrite% = -1 OR CurAdvance% = 0 THEN
 
                IF POS(0) - leftmargin% + hscroll% < textmaxlength% THEN
                    text$ = MID$(text$, 1, POS(0) + (hscroll%) - leftmargin%) + CHR$(mykey%) + MID$(text$, POS(0) + hscroll% - leftmargin% + 2)
                ELSE
                    flagtext% = -1: EXIT DO 'To Return
                END IF
 
                REM Evaluate Horizontal Scroll
                IF POS(0) = rightmargin% THEN
                    hscroll% = hscroll% + 1
                END IF
            ELSE
                IF LEN(text$) < textmaxlength% THEN
                    text$ = MID$(text$, 1, POS(0) + hscroll% - leftmargin%) + CHR$(mykey%) + MID$(text$, POS(0) + hscroll% - leftmargin% + 1)
                    flagtext% = 0
                ELSE
                    flagtext% = -1
                END IF
 
                IF flagtext% = -1 THEN EXIT DO ' To Return REM flagtext% is set to zero upon return and exit.
 
                REM Evaluate Horizontal Scroll
                IF hscrollon% AND POS(0) = rightmargin% THEN
                    hscroll% = hscroll% + 1
                END IF
            END IF
 
            ' Print to form input line.
            LOCATE , leftmargin%: PRINT STRING$(rightmargin% - (leftmargin% - 1), linecharacter%);
            LOCATE , leftmargin%: PRINT MID$(text$, (hscroll% + 1), rightmargin% - (leftmargin% - 1));
 
            IF CurAdvance% = 1 AND positioncursor% - leftmargin% + 1 < rightmargin% - leftmargin% + 1 THEN
                LOCATE , positioncursor% + CurAdvance%
            ELSE
                LOCATE , positioncursor%
            END IF
        END IF
        EXIT DO
    LOOP
    RETURN '---------------------------------------------------------------------
 
    BackspaceDelete:
    IF highlight% THEN GOSUB cutcopy
    IF POS(0) > leftmargin% OR mykey% = 21248 OR hscroll% > 0 THEN
        IF POS(0) <= leftmargin% + LEN(text$) THEN
            IF mykey% = 8 THEN
                IF POS(0) <= leftmargin% + 2 AND hscroll% > 0 THEN
                    REM Adjust for horizontal scroll
                    holdcursor% = POS(0)
                    LOCATE , leftmargin%
                    countcolumnsmoved% = hscroll%
                    jBackspaceDelete% = (rightmargin% - (leftmargin% - 1)) * .33
                    IF jBackspaceDelete% < 3 AND rightmargin% - (leftmargin% - 1) > 3 THEN jBackspaceDelete% = 3: REM Set minimum scroll back.
                    FOR iBackspaceDelete% = 1 TO jBackspaceDelete%
                        GOSUB CursorLeft
                    NEXT
                    LOCATE , holdcursor% + countcolumnsmoved% - hscroll% - 1
                    countcolumnsmoved% = 0: iBackspaceDelete% = 0: jBackspaceDelete% = 0
                ELSE
                    LOCATE , POS(0) - 1
                END IF
            END IF
            iyy% = CSRLIN: ixx% = POS(0)
            text$ = MID$(text$, 1, POS(0) - leftmargin% + hscroll%) + MID$(text$, POS(0) - leftmargin% + hscroll% + 2)
            texttemp$ = MID$(text$, hscroll% + 1, rightmargin% - (leftmargin% - 1))
            LOCATE iyy%, leftmargin%: PRINT texttemp$ + STRING$((rightmargin% - (leftmargin% - 1)) - LEN(texttemp$), linecharacter%);
            LOCATE iyy%, ixx%
        END IF
    END IF
    RETURN '---------------------------------------------------------------------
 
    cutcopy:
    IF highlight% THEN
        IF mykey% = 99 OR mykey% = 120 THEN
            _CLIPBOARD$ = MID$(text$, starthighlight% - leftmargin%, highlight% - starthighlight% + 1)
        END IF
 
        IF mykey% = 88 OR mykey% = 120 OR mykey% = 8 OR mykey% = 21248 THEN ' ctrl + x (cut), delete, backspace.
            positioncursor% = starthighlight% - 1 - hscroll%
            texttemp$ = MID$(text$, 1, starthighlight% - leftmargin% - 1) + MID$(text$, highlight% - leftmargin% + 1)
            text$ = texttemp$
            hscroll% = hscroll% - ABS(highlight% - starthighlight%)
            IF hscroll% < 0 THEN hscroll% = 0
            LOCATE , positioncursor%
            GOSUB wash
        END IF
    END IF
    RETURN '---------------------------------------------------------------------
 
    PasteClipboard:
    IF LEN(text$) + LEN(_CLIPBOARD$) <= textmaxlength% THEN
        text$ = MID$(text$, 1, POS(0) - leftmargin% + hscroll%) + _CLIPBOARD$ + MID$(text$, POS(0) - leftmargin% + 1 + hscroll%)
        i% = LEN(_CLIPBOARD$) - (rightmargin% - POS(0))
        positioncursor% = POS(0) + LEN(_CLIPBOARD$) - 1 + CurAdvance%
        IF positioncursor% > rightmargin% THEN
            hscroll% = hscroll% + positioncursor% - rightmargin%
            positioncursor% = rightmargin%
        END IF
        LOCATE , positioncursor%
        GOSUB wash
    ELSE
        BEEP
    END IF
    RETURN '---------------------------------------------------------------------
 
    InsertOverwrite:
    IF overwrite% = 0 THEN
        overwrite% = -1
        LOCATE , , 1, 7, 30
    ELSE
        overwrite% = 0
        LOCATE , , 1, 7, 7
    END IF
    RETURN
    ' End Key Controls-------------------------------------------------------
 
    mouseroutine:
    DO ' Falk loop
        IF shiftclick% THEN
            IF shiftclick% > 0 THEN mykey% = 19712: shiftclick% = shiftclick% - 1 ELSE mykey% = 19200: shiftclick% = shiftclick% + 1
            EXIT DO ' To Return
        END IF
 
        IF _KEYDOWN(100303) OR _KEYDOWN(100304) THEN shift% = -1 ELSE shift% = 0
 
        IF my% > margin.t + page.h OR my% <= margin.t THEN
            IF my% > margin.t + page.h + 2 AND hlf% THEN ' Unhighlight file in display window.
                j% = -999: GOSUB highlightfile ' hlf% is in statement above
                tabx% = 2
                LOCATE W1% + W3% - 4 - 3, W2% + 15, 1 ' Move to text input field.
            END IF
 
            GOTO 102
            IF NOT drag% THEN
                IF my% = W1% AND mx% = W2% + W4% - 2 THEN
                    IF closepop% = 0 THEN
                        LOCATE , , 0
                        IF hlf% THEN j% = -999: GOSUB highlightfile
                        IF oldsmode2 THEN ' doctype dropdown menu is open.
                        ELSE
                            GOSUB clearbuttons: tabx% = 2
                        END IF
                        LOCATE W1% + W3% - 4 - 3, W2% + 15
                        GOSUB wash
                        COLOR 15, 4
                        LOCATE W1%, W2% + W4% - 2
                        PRINT "x";
                        closepop% = -1
                        LOCATE W1% + W3% - 4 - 3, W2% + 15, 1
                        COLOR textfg%, textbk%
                    END IF
                ELSE
                    IF closepop% THEN
                        iyy% = CSRLIN: ixx% = POS(0)
                        closepop% = 0
                        COLOR 15, 1
                        LOCATE W1%, W2% + W4% - 2, 0
                        PRINT "x";
                        LOCATE iyy%, ixx%, 1
                        COLOR textfg%, textbk%
                    END IF
                END IF
 
                SELECT CASE SMODE
                    CASE 3 ' doctypedropdown menu open.
                        FOR i% = 1 TO UBOUND(doctype$)
                            IF my% = doctypey%(i%) AND mx% >= ABS(doctypex%(i%)) AND mx% < ABS(doctypex%(i%)) + LEN(doctype$(i%)) THEN
                                IF doctypex%(i%) > 0 THEN
                                    COLOR 0, 3: LOCATE doctypey%(i%), doctypex%(i%), 0
                                    PRINT doctype$(i%);
                                    doctypex%(i%) = -doctypex%(i%)
                                    COLOR textfg%, textbk%
                                END IF
                            ELSE
                                IF doctypex%(i%) < 0 THEN
                                    doctypex%(i%) = ABS(doctypex%(i%))
                                    iyy% = CSRLIN: ixx% = POS(0)
                                    COLOR 7, 0: LOCATE doctypey%(i%), doctypex%(i%), 0
                                    PRINT doctype$(i%);
                                    LOCATE iyy%, ixx%, 0
                                    COLOR textfg%, textbk%
                                END IF
                            END IF
                        NEXT
                    CASE ELSE
                        j% = 0
                        FOR i% = 1 TO UBOUND(formbutton$)
                            IF my% = formbuttony%(i%) AND mx% >= ABS(formbuttonx%(i%)) AND mx% < ABS(formbuttonx%(i%)) + LEN(formbutton$(i%)) THEN
                                IF formbuttonx%(i%) > 0 THEN
                                    iyy% = CSRLIN: ixx% = POS(0)
                                    COLOR 0, 3: LOCATE formbuttony%(i%), formbuttonx%(i%), 0
                                    PRINT formbutton$(i%);
                                    formbuttonx%(i%) = -formbuttonx%(i%)
                                    j% = -1
                                    IF iyy% = W1% + W3% - 4 - 3 THEN LOCATE iyy%, ixx%, 1 ELSE LOCATE iyy%, ixx%, 0
                                    COLOR textfg%, textbk%
                                END IF
                            ELSE
                                formbuttonx%(i%) = ABS(formbuttonx%(i%))
                                iyy% = CSRLIN: ixx% = POS(0)
                                COLOR 1, 7: LOCATE formbuttony%(i%), formbuttonx%(i%), 0
                                PRINT formbutton$(i%);
                                IF iyy% = W1% + W3% - 4 - 3 THEN LOCATE iyy%, ixx%, 1 ELSE LOCATE iyy%, ixx%, 0
                                COLOR textfg%, textbk%
                            END IF
                            IF formbuttonx%(i%) < 0 THEN j% = -1 ' Used below to designate a button is highlighted.
                        NEXT
 
                        IF tabx% >= 3 AND tabx% <= 5 AND j% = 0 THEN
                            COLOR 0, 3: LOCATE formbuttony%(tabx% - 2), ABS(formbuttonx%(tabx% - 2)), 0
                            PRINT formbutton$(tabx% - 2);
                        END IF
                END SELECT
            END IF
 
            102
            IF mb.l THEN
                IF closepop% THEN action$ = "close": EXIT DO ' To Return
 
                IF NOT drag% THEN
                    IF oldsmode2 THEN ' Doctype dropdown menu is open.
                        FOR i% = 1 TO UBOUND(doctype$)
                            IF doctypex%(i%) < 0 THEN
                                GOSUB close_doctype_dropdown
                                GOSUB doctype_selected
                                doctypex%(i%) = ABS(doctypex%(i%))
                            END IF
                        NEXT
                    END IF
 
                    FOR i% = 1 TO UBOUND(formbutton$) ' Check control buttons.
                        IF formbuttonx%(i%) < 0 THEN
                            IF my% = formbuttony%(i%) AND mx% >= ABS(formbuttonx%(i%)) AND mx% <= ABS(formbuttonx%(i%)) + LEN(formbutton$(i%)) THEN
                                formbuttonx%(i%) = ABS(formbuttonx%(i%))
                                SOUND 1000, .1
                                LOCATE , , 0
                                SELECT CASE i%
                                    CASE 1 ' Open doctype dropdown menu.
                                        GOSUB popfiletypes
                                    CASE 2 ' Open button.
                                        SELECT CASE config%
                                            CASE 1
                                                action$ = "open file"
                                            CASE 2
                                                action$ = "save as"
                                        END SELECT
                                        '''myfile$ = text$
                                        EXIT DO ' To Return.
                                    CASE 3 ' Cancel button.
                                        action$ = "cancel": EXIT DO ' To Return.
                                END SELECT
                            END IF
                        END IF
                    NEXT
                END IF
 
                IF mx% > leftmargin% + LEN(text$) THEN EXIT DO ' To Return
 
                IF click_l% >= 0 THEN
                    click_l% = -1
                    IF highlight% AND NOT shift% THEN GOSUB wash
                END IF
 
                IF shift% THEN
                    SELECT CASE mx%
                        CASE IS > POS(0): mykey% = 19712: shiftclick% = mx% - POS(0) - 1
                        CASE IS = POS(0): mykey% = 0
                        CASE IS < POS(0): mykey% = 19200: shiftclick% = mx% - POS(0) + 1
                    END SELECT
                    IF mykey% THEN EXIT DO ' To Return
                END IF
            ELSE
                IF click_l% = -1 THEN click_l% = 1: drag% = 0
            END IF
 
            IF click_l% = -1 THEN
                IF mx% = POS(0) THEN
                    drag% = -1
                ELSE
                    IF my% = CSRLIN AND drag% = 0 THEN
                        LOCATE my%, mx% ' Click in input field.
                    END IF
                END IF
            END IF
 
            IF drag% THEN
                shift% = -1
                SELECT CASE mx%
                    CASE IS > POS(0): mykey% = 19712: IF mx% > rightmargin% THEN _DELAY .05
                    CASE IS = POS(0): mykey% = 0
                    CASE IS < POS(0): mykey% = 19200: IF mx% < leftmargin% THEN _DELAY .05
                END SELECT
            END IF
 
            EXIT DO ' To Return
 
        ELSE
 
            DO
                IF SMODE = 3 THEN EXIT DO
                IF my% > margin.t AND my% - margin.t <= page.h AND mx% > margin.l AND mx% < margin.l + page.w THEN
                    tabx% = 1: GOSUB clearbuttons
                    IF mb.l AND NOT lbdown% THEN
                        IF my% = CSRLIN THEN ' File Selected
                            lbdown% = -1
                            GOSUB fileselected
                            EXIT DO
                        END IF
                    ELSE
                        IF mb.l = 0 THEN lbdown% = 0
                    END IF
 
                    IF hlf% = 0 THEN
                        row = my% - margin.t: j% = 0: GOSUB highlightfile
                    ELSEIF oldmy% > my% AND my% - margin.t <= page.h AND row > 1 THEN
                        i% = my%: IF i% - margin.t > 0 THEN
                            LOCATE oldmy%: row = CSRLIN - margin.t
                            DO UNTIL CSRLIN <= i%
                                row = row - 1: j% = 0: GOSUB highlightfile
                            LOOP
                        END IF
                    ELSEIF oldmy% AND oldmy% < my% AND row < page.h THEN
                        i% = my%: IF i% - margin.t <= page.h THEN
                            LOCATE oldmy%: row = CSRLIN - margin.t
                            DO UNTIL CSRLIN >= i%
                                row = row + 1: j% = 0: GOSUB highlightfile
                            LOOP
                        END IF
                    END IF
                END IF
 
                ' ------------------------------------Mouse----------------------------------
 
                IF locked% < 0 THEN ' Mouse effects on mouse lock. key press effects are determined at inkey$ input, as key variable cannot be evaluated here, due to b$ = "" manipulations in the keypress routine.
                    IF mb.l OR mb.r OR mb.m THEN locked% = 0
                END IF
 
                IF mb.w THEN ' Determine if wheel is being used to scroll highlighted or unhighlighted text.
                    GOSUB clearbuttons
                    tabx% = 1 ' Reset tab index when mouse wheel is engaged.
                    locked% = 2 ' 2 is lock scrollbar, no highlighting permitted.
                END IF
 
                IF mb.l AND locked% <> 1 OR mb.w AND locked% <> -1 THEN
                    tabx% = 1
                    IF mb.l THEN GOSUB clearbuttons
                    ' Scrollbar routine.
                    IF mx% >= scrb.l - 1 AND mx% <= scrb.l + 1 AND my% - (scrb.t + 1) >= scrb.x AND my% - (scrb.t + 1) <= scrb.x + scrb.s - 1 THEN draglock% = -1
 
                    IF draglock% = -1 AND my% > scrb.t AND my% < scrb.b OR mx% = scrb.l AND scrb.s <> 0 AND my% >= scrb.t AND my% <= scrb.b AND mb.w = 0 OR scrbardrag% <> 0 AND my% > scrb.t AND my% < scrb.b AND mb.w = 0 OR mb.w > 0 AND scrb.x + scrb.s < scrb.h OR mb.w < 0 AND scrb.x > 0 THEN ' Mouse on scrollbar, doing a bar cursor drag or using the scroll wheel.
                        locked% = 2 ' Locked on scrollbar
                        IF my% = scrb.t AND scrb.x > 0 OR my% = scrb.b AND scrb.x + scrb.s < scrb.h OR mb.w <> 0 AND scr + page.h < noe THEN ' Mouse on a scrollbar arrow.
                            IF my% = scrb.t AND mb.w = 0 OR mb.w < 0 THEN scrb.x = scrb.x - 1: h% = -1 ELSE scrb.x = scrb.x + 1: h% = -2 ' Top or bottom arrow.
                            IF mb.w = 0 THEN delay.on! = .15
                            j% = INT(scrb.x * ((noe - scrb.d) / (scrb.h - scrb.s)))
 
                            IF j% >= 0 THEN ' Condition exists unless j% is negative such as doc is blank and mouse wheel is rolled downward.
                                scrb.i = j%
 
                                scr = scrb.i
 
                                '''h% = 0: CALL scrollbar_update(h%, scrb, noe, row, scr) ' Positions scrollbar box.
 
                                GOSUB scrollscrn
                            END IF
 
                        ELSEIF my% - (scrb.t + 1) >= scrb.x AND my% - (scrb.t + 1) <= scrb.x + scrb.s - 1 AND scrbardrag% = 0 THEN ' Mouse on scrollbar block.
                            scrbardrag% = -1: scrb.adjust = (my% - (scrb.t + 1)) - scrb.x
                        ELSEIF draglock% = -1 AND my% > scrb.t AND my% < scrb.b OR my% > scrb.t AND my% < scrb.b THEN ' Mouse on scrollbar between scrollbar arrow and cursor.
                            IF draglock% = -1 AND my% > scrb.t AND my% < scrb.b OR my% - (scrb.t + 1) - scrb.adjust >= 0 AND my% - (scrb.t + 1) + scrb.s - scrb.adjust <= scrb.h AND scrbardrag% <> -1 OR scrbardrag% = 0 THEN
                                IF scrbardrag% = 0 THEN ' No drag, so adjust for cursor length for a click inside the scrollbar above or below the current scrollbar cursor position.
                                    IF my% - (scrb.t + 1) > scrb.x THEN
                                        scrb.adjust = (my% - (scrb.t + 1)) - scrb.x - 1: h% = -1
                                    ELSE
                                        scrb.adjust = (my% - (scrb.t + 1)) - scrb.x + 1: h% = -2
                                    END IF
                                END IF
                                scrb.x = my% - (scrb.t + 1) - scrb.adjust
                                scrb.i = INT(scrb.x * ((noe - scrb.d) / (scrb.h - scrb.s)))
 
                                scr = scrb.i
 
                                '''h% = 0: CALL scrollbar_update(h%, scrb, noe, row, scr)
 
                                GOSUB scrollscrn
 
                            ELSE ' Scrollbar is at top or bottom and mouse cursor is moving vertically along the scrollbar cursor. This allows the variable to readjust.
                                IF mx% = scrb.l THEN scrbardrag% = 0: scrb.adjust = 0: draglock% = 0
                            END IF
                        END IF
                        ' =======================================================
 
                    END IF
 
                    IF delay.on! THEN ' Scrollbar delay.
                        _DELAY delay.on!
                        delay.on! = 0 ' Toggle off.
                    END IF
 
                ELSE
                    scrbardrag% = 0: scrb.adjust = 0: draglock% = 0
                    IF locked% = 2 AND mb.l = 0 THEN locked% = 0
                END IF
                EXIT DO
            LOOP
        END IF
        EXIT DO
    LOOP
    RETURN '---------------------------------------------------------------------
 
    file_display_keys:
    DO '
        IF CSRLIN >= margin.t AND CSRLIN <= margin.t + page.h AND mb.l = 0 OR autokey% THEN
            ' Key commands for form input line.
            IF autokey% = 0 THEN b$ = INKEY$ ELSE b$ = MID$(b$, 3): IF LEN(b$) = 2 THEN autokey% = 0
            IF LEN(b$) THEN
                IF b$ = CHR$(9) THEN GOSUB tabkey: b$ = "": null$ = INKEY$: EXIT DO ' tabx% assignment.
                SELECT CASE MID$(b$, 1, 2) ' File directory window keys.
                    CASE CHR$(0) + "H"
                        IF row > 1 THEN
                            row = row - 1
                            LOCATE margin.t + row, margin.l + 1
                            j% = 0: GOSUB highlightfile
                        ELSE
                            IF scr > 0 THEN
                                scr = scr - 1
                                GOSUB scrollscrn
                                j% = 0: GOSUB highlightfile
                            END IF
                        END IF
                    CASE CHR$(0) + "P"
                        IF tabx% <> 3 THEN
                            IF row < page.h THEN
                                row = row + 1
                                j% = 0: GOSUB highlightfile
                                LOCATE margin.t + row, margin.l + 1
                            ELSE
                                IF scr + page.h < noe THEN
                                    scr = scr + 1
                                    GOSUB scrollscrn
                                    j% = 0: GOSUB highlightfile
                                END IF
                            END IF
                        ELSE
                            ' Arrow down key is highlighted by tabx%. Now open the doctype dropdown menu.
                            GOSUB popfiletypes
                        END IF
                    CASE CHR$(0) + "I"
                        autokey% = -1
                        LOCATE , margin.l + 1
                        k% = page.h - 1 + row - 2
                        FOR j% = 0 TO k%
                            b$ = b$ + CHR$(0) + "H"
                        NEXT
                        FOR j% = 1 TO row - 1
                            b$ = b$ + CHR$(0) + "P"
                        NEXT
                    CASE CHR$(0) + "Q"
                        autokey% = -1
                        LOCATE , margin.l + 1
                        k% = (page.h - 1) + (page.h - row) - 1
                        FOR j% = 0 TO k%
                            b$ = b$ + CHR$(0) + "P"
                        NEXT
                        FOR j% = 1 TO page.h - row
                            b$ = b$ + CHR$(0) + "H"
                        NEXT
                    CASE CHR$(0) + "w" ' Ctrl + Home
                        row = 1
                        IF scr > 0 THEN
                            scr = 0
                            h% = 0: GOSUB scrollscrn
                        END IF
                        LOCATE margin.t + 1, margin.l + 1
                        j% = 0: GOSUB highlightfile
                    CASE CHR$(0) + "u" ' Ctrl + End
                        IF noe > page.h THEN
                            row = page.h
                            scr = noe - row
                            LOCATE margin.t + 1, margin.l + 1
                            h% = 0: GOSUB scrollscrn
                            row = page.h
                            LOCATE margin.t + row, margin.l + 1
                            j% = 0: GOSUB highlightfile
                        ELSE
                            row = noe
                            LOCATE margin.t + row, margin.l + 1
                            j% = 0: GOSUB highlightfile
                        END IF
                    CASE CHR$(13)
                        GOSUB fileselected
                END SELECT
            END IF
        ELSE
            null$ = INKEY$ ' Clear buffer
        END IF
        EXIT DO
    LOOP
 
    RETURN '---------------------------------------------------------------------
 
    '-------------------------------Nested Gosubs-----------------------------
 
    scrollscrn:
    FOR i% = 1 TO page.h
        LOCATE margin.t + i%, margin.l + 1
        PRINT x$(i% + scr);
    NEXT
    LOCATE row + margin.t, margin.l + 1
    IF hlf% AND LEN(b$) < 3 AND scrbardrag% = 0 THEN j% = 0: GOSUB highlightfile
 
    '''h% = 1: CALL scrollbar_update(h%, scrb, noe, row, scr)
 
    RETURN '---------------------------------------------------------------------
 
    highlightfile:
    IF j% = -999 THEN ' Unhighlight text only.
        COLOR 7, 0
        LOCATE margin.t + hlf%, margin.l + 1, 0
        PRINT x$(hlf% + scr);
        hlf% = 0
    ELSE
        IF hlf% THEN
            LOCATE margin.t + hlf%, margin.l + 1, 0
            COLOR 7, 0: PRINT x$(hlf% + scr);
        END IF
        COLOR 1, 3
        LOCATE margin.t + row, margin.l + 1, 0
        PRINT x$(row + scr);
        hlf% = row
        COLOR c1%, c2%
    END IF
    RETURN '---------------------------------------------------------------------
 
    wash:
    starthighlight% = 0
    highlight% = 0
    iyy% = CSRLIN: ixx% = POS(0)
    COLOR textfg%, textbk%
    LOCATE , leftmargin%
    texttemp$ = MID$(text$, (hscroll% + 1), rightmargin% - (leftmargin% - 1))
    PRINT texttemp$ + STRING$(rightmargin% - (leftmargin% - 1) - LEN(texttemp$), linecharacter%);
    LOCATE iyy%, ixx%
    RETURN '---------------------------------------------------------------------
 
    clearbuttons:
    iyy% = CSRLIN: ixx% = POS(0)
    FOR k% = 1 TO UBOUND(formbutton$)
        LOCATE formbuttony%(k%), ABS(formbuttonx%(k%)), 0
        COLOR 1, 7: PRINT formbutton$(k%);
        formbuttonx%(k%) = ABS(formbuttonx%(k%)) ' Remove button active (neg) designation.
    NEXT
    LOCATE iyy%, ixx%
    RETURN '---------------------------------------------------------------------
 
    displaybutton: ' Gosub parameters (i%)
    iyy% = CSRLIN: ixx% = POS(0)
    GOSUB clearbuttons ' Clear all buttons of highlighting first...
    IF i% < 0 THEN COLOR 0, 3 ELSE COLOR 1, 7
    IF tabx% THEN COLOR 0, 3
    IF i% <> 0 THEN
        LOCATE formbuttony%(ABS(i%)), ABS(formbuttonx%(ABS(i%))), 0
        PRINT formbutton$(ABS(i%));
        formbuttonx%(ABS(i%)) = -ABS(formbuttonx%(ABS(i%)))
    END IF
    LOCATE iyy%, ixx%
    RETURN '---------------------------------------------------------------------
 
    fileselected:
    IF noe THEN
        IF hlf% THEN j% = -999: GOSUB highlightfile
 
        text$ = xfull$(row + scr)
 
        IF LEFT$(text$, 2) = ".." OR LEFT$(text$, 1) = "[" THEN
            ' Ready to change diretories.
            IF LEFT$(text$, 2) = ".." THEN
                CHDIR ".."
            ELSE
                CHDIR MID$(text$, 2, LEN(text$) - 2)
            END IF
            action$ = "change dir"
        ELSE
            ' Text input line.
            COLOR 7, 0
            LOCATE W1% + W3% - 4 - 3, W2% + 15: PRINT SPACE$(W4% - 18); ' Blank it.
            LOCATE W1% + W3% - 4 - 3, W2% + 15, 1: PRINT MID$(text$, 1, W4% - 18); ' Display it.
            hlf% = 0
        END IF
    ELSE ' No files found in DIR to select.
        BEEP
    END IF
    RETURN '---------------------------------------------------------------------
 
    popfiletypes:
    LOCATE W1% + W3% - 4 - 3, W2% + 15, 0
    GOSUB wash
    oldsmode2 = SMODE
    SMODE = 3: PCOPY oldsmode2, SMODE: SCREEN 0, 0, SMODE, SMODE
    COLOR 8, 0: LOCATE W1% + 16, W2% + 15 - 1: PRINT CHR$(179);
    COLOR 1, 3: PRINT SPACE$(W4% - 21);
    LOCATE W1% + 16, W2% + 15
    COLOR 1, 3: PRINT doctype$(1);
    COLOR 8, 0: LOCATE W1% + 16, W2% + W4% - 4: PRINT CHR$(179);
    LOCATE W1% + 17, W2% + 14
    COLOR 8, 0: PRINT CHR$(179);
    COLOR 7, 0: PRINT SPACE$(W4% - 18);
    LOCATE W1% + 17, W2% + 15: PRINT doctype$(2);
    COLOR 8, 0: LOCATE , W2% + W4% - 4: PRINT CHR$(179);
    COLOR 8, 0: LOCATE W1% + 18, W2% + 14: PRINT CHR$(192); STRING$(W4% - 19, 196); CHR$(217);
    doctypey%(1) = W1% + 16: doctypex%(1) = W2% + 15
    doctypey%(2) = W1% + 17: doctypex%(2) = W2% + 15
    LOCATE W1% + 16, W2% + 15 ' Text input line.
    RETURN '---------------------------------------------------------------------
 
    doctype_selected:
    SELECT CASE i%
        CASE 1
            COLOR 7, 0: LOCATE W1% + 16, W2% + 15: PRINT SPACE$(W4% - 19); ' Leaves arrow down space.
            LOCATE W1% + 16, W2% + 15: PRINT doctype$(1);
 
            IF doctype$ <> doctype$(1) THEN
                '''doctype$ = doctype$(1): CALL displayfiles(doctype$, x$(), xfull$(), scrb, noe, row, scr)
            END IF
 
            doctype$ = doctype$(1)
            IF doctype% = 2 THEN SWAP doctype$(1), doctype$(2)
            doctype% = 1
 
            LOCATE W1% + 16, w2 + W4% + 4 ' .txt or *.* all files arrow down button location.
            formbuttony%(1) = CSRLIN: formbuttonx%(1) = POS(0): formbutton$(1) = CHR$(25)
 
            i% = 1: GOSUB displaybutton
 
            LOCATE W1% + W3% - 4 - 3, W2% + 15, 1 ' File name input field.
            COLOR textfg%, textbk%
        CASE 2
            COLOR 7, 0: LOCATE W1% + 16, W2% + 15: PRINT SPACE$(W4% - 19); ' Leaves arrow down space.
            LOCATE W1% + 16, W2% + 15: PRINT doctype$(2);
 
            IF doctype$ <> doctype$(2) THEN
                '''doctype$ = doctype$(2): CALL displayfiles(doctype$, x$(), xfull$(), scrb, noe, row, scr)
            END IF
 
            doctype$ = doctype$(2)
            IF doctype% = 1 THEN SWAP doctype$(1), doctype$(2)
            doctype% = 2
 
            LOCATE W1% + W3% - 4 - 3, W2% + 15, 1 ' File name input field.
            COLOR textfg%, textbk%
    END SELECT
 
    RETURN '---------------------------------------------------------------------
 
    close_doctype_dropdown:
    ' Note - Do not use i% in this routine. It would change a perviouly set value i one of the routines that calls this one.
    SMODE = oldsmode2: SCREEN 0, 0, SMODE, SMODE: oldsmode2 = 0
    LOCATE , , 0
    LOCATE W1% + 16, W2% + W4% - 4
    IF tabx% = 3 THEN COLOR 0, 3 ELSE COLOR 1, 7
    IF my% = CSRLIN AND mx% = POS(0) THEN COLOR 0, 3: formbuttonx%(1) = -formbuttonx%(1)
    PRINT formbutton$(1);
    LOCATE W1% + W3% - 4 - 3, W2% + 15, 1 ' File name input field.
    COLOR textfg%, textbk%
    REDIM doctypex%(UBOUND(doctype$)), doctypey%(UBOUND(doctype$))
    RETURN '---------------------------------------------------------------------
 
END SUB
 
SUB find_string
    REDIM x$(20)
    margin.t = 5
    margin.l = 5
    dwidth = 68
    page.h = 6
    row = 1
    noe = 13
 
    x$(1) = "We the People of the United States, in Order to form a more perfect " + CHR$(10)
    x$(2) = "Union, establish Justice, insure domestic Tranquility, provide for " + CHR$(10)
    x$(3) = "the common defence, promote the general Welfare, and secure the " + CHR$(10)
    x$(4) = "Blessings of Liberty to ourselves and our Posterity, do ordain and " + CHR$(10)
    x$(5) = "establish this Constitution for the United States of America." + CHR$(10)
    x$(6) = "" + CHR$(255) + CHR$(10)
    x$(7) = "Article I" + CHR$(10)
    x$(8) = "" + CHR$(255) + CHR$(10)
    x$(9) = "Section 1: Congress" + CHR$(10)
    x$(10) = "" + CHR$(255) + CHR$(10)
    x$(11) = "All legislative Powers herein granted shall be vested in a Congress " + CHR$(10)
    x$(12) = "of the United States, which shall consist of a Senate and House of " + CHR$(10)
    x$(13) = "Representatives." + CHR$(10)
 
    GOSUB displaydoc
 
    DO
        DO
            _LIMIT 30
            b$ = INKEY$
            IF LEN(b$) THEN
                SELECT CASE b$
                    CASE CHR$(27)
                        SYSTEM
                    CASE CHR$(0) + "H"
                        IF scr THEN scr = scr - 1: row = 1: GOSUB displaydoc: GOSUB finder
                    CASE CHR$(0) + "P"
                        IF scr + page.h < noe THEN row = page.h: scr = scr + 1: GOSUB displaydoc: GOSUB finder
                END SELECT
            END IF
        LOOP
    LOOP
 
    displaydoc:
    COLOR 0, 7
    FOR i% = 1 TO page.h
        a1$ = SPACE$(dwidth)
        MID$(a1$, 1) = MID$(x$(i% + scr), 1, INSTR(x$(i% + scr), CHR$(10)) - 1)
        LOCATE margin.t + i%, margin.l + 1
        PRINT a1$
    NEXT
    RETURN
 
    finder:
    FOR i% = 1 TO page.h
        a1$ = SPACE$(dwidth)
        MID$(a1$, 1) = MID$(x$(i% + scr), 1, INSTR(x$(i% + scr), CHR$(10)) - 1)
 
        IF INSTR(LCASE$(a1$), find$) THEN
            COLOR 14, 4: seed% = 0
            DO UNTIL INSTR(seed%, LCASE$(a1$), find$) = 0
                seed% = INSTR(seed%, LCASE$(a1$), find$)
                LOCATE margin.t + i%, margin.l + seed%
                PRINT MID$(a1$, INSTR(seed%, LCASE$(a1$), find$), LEN(find$));
                seed% = seed% + LEN(find$)
            LOOP
        END IF
    NEXT
    COLOR 0, 7
    RETURN
END SUB
 
SUB windowscreen (ENL%)
    IF displayfullscreen% = -1 THEN EXIT SUB
    WINXX1% = CSRLIN: WINYY1% = POS(1)
    winmode$ = "2"
 
    IF ENL% <> 0 THEN
        full = _FULLSCREEN
        IF full = 0 THEN
            SELECT CASE ENL%
                CASE -1: IF SCRNSIZE% > 0 THEN ELSE EXIT SUB
                CASE 1: IF SCRNSIZE% < 14 THEN ELSE EXIT SUB
            END SELECT
        ELSE
            EXIT SUB
        END IF
    END IF
 
    SCRNSIZE% = SCRNSIZE% + ENL%
 
    SELECT CASE winmode$
        CASE "1"
            full = _FULLSCREEN
            IF full <> 0 THEN _FULLSCREEN _OFF
            GOSUB ChangeFont
        CASE "2"
            full = _FULLSCREEN
            IF full <> 0 THEN _FULLSCREEN _OFF
            style$ = "MONOSPACE"
            fontsize% = SCRNSIZE% + 13
            IF fontsize% < 14 THEN winmode$ = ""
            IF fontsize% < 18 THEN style$ = style$ + ", BOLD"
            fontpath$ = ENVIRON$("SYSTEMROOT") + "\fonts\lucon.ttf" 'Find Windows Folder Path.
            GOSUB ChangeFont
        CASE "3"
            GOSUB ChangeFont
            _FULLSCREEN _SQUAREPIXELS
            full = _FULLSCREEN
            IF full = 0 THEN GOSUB nofull
        CASE "4"
            GOSUB ChangeFont
            _FULLSCREEN _STRETCH
            full = _FULLSCREEN
            IF full = 0 THEN GOSUB nofull
    END SELECT
 
    LOCATE WINXX1%, WINYY1%
    EXIT SUB
 
    nofull:
    _FULLSCREEN _OFF
    RETURN
 
    ChangeFont:
    IF winmode$ <> "2" THEN
        _FONT 16 'select inbuilt 8x16 default font
        currentf& = _FONT
    ELSE
        currentf& = _LOADFONT(fontpath$, fontsize%, style$)
        _FONT currentf&
    END IF
 
    IF currentf& <> f& AND f& <> defaultf& THEN _FREEFONT f&
    f& = currentf&
    RETURN
 
END SUB
 

Pete

STxAxTIC · « **Reply #7 on:** January 29, 2021, 02:37:54 am »

Ah, that helps. Your highlighting is definitely more sophisticated. What I've got doesn't wrap around lines breaks as-is. (One would have to change window size or wrap mode to get around that).

You can probably toss what I posted but thanks for the inspiration! This wouldn't have gotten done otherwise.

Pete · « **Reply #8 on:** January 31, 2021, 03:05:17 pm »

Okay, so I've added a replace feature. There is some more work and beta testing needed, but I think I might have found a bug, or some weird thing I don't understand. It works, but if you want to know what I found, look in a new thread for the bug report part...

F3 now displays a Find / Replace, instead of the Replace window. I'll marry the two, later, after I see what this possible QB64 bug situation is.

Pete

Safe to use. This routine does not add, kill, or overwrite any files.

Code: QB64: [Select]

_SCREENMOVE 0, 0
_DELAY .5
enl% = 13: CALL windowscreen(enl%)
_DELAY .3
 
DO
 
    DIM SHARED mx%, my%, margin.t AS INTEGER, margin.l AS INTEGER
    DIM SHARED w1%, w2%, w3%, w4%
    DIM SHARED action$
    DIM SHARED mb AS my_mb
    DIM scrb AS my_scrb
 
    TYPE my_mb
        l AS INTEGER
        r AS INTEGER
        m AS INTEGER
        w AS INTEGER
        drag AS INTEGER
        dragon AS INTEGER
    END TYPE
 
    TYPE my_scrb
        t AS INTEGER
        b AS INTEGER
        l AS INTEGER
        x AS INTEGER
        i AS INTEGER
        d AS INTEGER
        h AS INTEGER
        s AS INTEGER
        opt AS INTEGER
        adjust AS INTEGER
    END TYPE
 
    DIM SHARED SMODE, passrightmargin%
    REDIM SHARED formbuttony%(3), formbuttonx%(3), formbutton$(3)
    REDIM button$(8)
    COLOR 0, 7: CLS
 
    REDIM x$(20)
    margin.t = 2
    margin.l = 5
    dwidth = 68
    page.h = 6
    row = 1
    noe = 13
 
    x$(1) = "We the People of the United States, in Order to form a more perfect " + CHR$(10)
    x$(2) = "Union, establish Justice, insure domestic Tranquility, provide for " + CHR$(10)
    x$(3) = "the common defence, promote the general Welfare, and secure the " + CHR$(10)
    x$(4) = "Blessings of Liberty to ourselves and our Posterity, do ordain and " + CHR$(10)
    x$(5) = "establish this Constitution for the United States of America." + CHR$(10)
    x$(6) = "" + CHR$(255) + CHR$(10)
    x$(7) = "Article I" + CHR$(10)
    x$(8) = "" + CHR$(255) + CHR$(10)
    x$(9) = "Section 1: Congress" + CHR$(10)
    x$(10) = "" + CHR$(255) + CHR$(10)
    x$(11) = "All legislative Powers herein granted shall be vested in a Congress " + CHR$(10)
    x$(12) = "of the United States, which shall consist of a Senate and House of " + CHR$(10)
    x$(13) = "Representatives." + CHR$(10)
    DIM SHARED pete, ifield%, noif%, ifrow%, change_initiate%
    REDIM SHARED entry$(10), ifield$(10)
 
    COLOR 0, 7
    GOSUB displaydoc
 
    DO
        _LIMIT 30
        IF b$ = CHR$(0) + CHR$(61) OR b$ = CHR$(0) + CHR$(65) THEN
            IF b$ = CHR$(0) + CHR$(61) THEN pete = 1: noif% = 1 ELSE scr = 0: pete = 2: noif% = 2
            GOSUB displaydoc
            change_initiate% = -1: CALL popup(msg$, msg%, button$(), button%, button_index%, find$, config%) ' Note: find$ is pass by ref find$ becomes text$ in popup sub and returns text$ back to find$ here.
            LOCATE , , 0
        END IF
 
        IF LEN(action$) THEN
            IF action$ <> "close" THEN
                SELECT CASE action$
                    CASE "Whole Word" ' Default selection if Enter is used instead of a button.
                        whole_word% = 1
                        case_sensitive% = 0
                    CASE "Whole/Case"
                        whole_word% = 1
                        case_sensitive% = 1
                    CASE "Any Part"
                        whole_word% = 0
                        case_sensitive% = 0
                    CASE "Any/Case"
                        whole_word% = 0
                        case_sensitive% = 1
                END SELECT
 
                SELECT CASE config%
                    CASE 2
                        GOSUB finder
                    CASE 3
                        GOSUB replacer
                    CASE ELSE
                        CLS: PRINT "No config% assigned to this case. "; config%: END '''
                END SELECT
            END IF
            action$ = ""
        END IF
 
        b$ = INKEY$
        IF LEN(b$) THEN
            SELECT CASE b$
                CASE CHR$(9)
                    COLOR 7, 0: CLS: CLEAR: EXIT DO
                CASE CHR$(27)
                    SYSTEM
                CASE CHR$(0) + "H"
                    IF scr THEN scr = scr - 1: row = 1: GOSUB displaydoc: GOSUB finder
                CASE CHR$(0) + "P"
                    IF scr + page.h < noe THEN row = page.h: scr = scr + 1: GOSUB displaydoc: GOSUB finder
            END SELECT
        END IF
    LOOP
LOOP
 
displaydoc:
COLOR 0, 7
FOR i% = 1 TO page.h
    a1$ = SPACE$(dwidth)
    MID$(a1$, 1) = MID$(x$(i% + scr), 1, INSTR(x$(i% + scr), CHR$(10)) - 1)
    LOCATE margin.t + i%, margin.l + 1
    PRINT a1$
NEXT
RETURN
 
finder:
IF case_sensitive% = 0 THEN
    find$ = LCASE$(find$): findorig$ = find$
ELSE
    findorig$ = find$
END IF
 
IF LEN(findorig$) THEN
    flag% = 0
    FOR i% = 1 TO page.h
        LOCATE margin.t + i%, margin.l + 1
        a1$ = MID$(x$(i% + scr), 1, INSTR(x$(i% + scr), CHR$(10)) - 1)
 
        IF INSTR(find$, " ") THEN
            IF RIGHT$(a1$, 1) <> " " THEN a2$ = a1$ + " " ELSE a2$ = a1$
        ELSE
            a2$ = a1$ ' No space for a solid line wrap around.
        END IF
 
        IF INSTR(findorig$, " ") THEN
            a2$ = a2$ + MID$(x$(i% + 1 + scr), 1, INSTR(x$(i% + 1 + scr), CHR$(10)) - 1)
            a2% = -1
        ELSE
            a2% = 0
        END IF
 
        SELECT CASE case_sensitive%
            CASE 0 ' Not case sensitive.
                SELECT CASE whole_word%
                    CASE 0 ' Part word and not case sensitive.
                        IF INSTR(LCASE$(a2$), find$) THEN
                            COLOR 14, 4: seed% = 0
                            DO UNTIL INSTR(seed%, LCASE$(a2$), find$) = 0
 
                                IF a2% THEN
                                    k% = INSTR(seed%, LCASE$(a2$), find$)
                                    IF k% + LEN(find$) >= LEN(a1$) AND k% <= LEN(a1$) THEN
                                        seed% = INSTR(seed%, LCASE$(a2$), find$)
                                        find$ = MID$(findorig$, 1, LEN(a1$) - seed%)
                                        flag% = 1
                                    ELSE
                                        seed% = INSTR(seed%, LCASE$(a2$), find$)
                                    END IF
                                ELSE
                                    seed% = INSTR(seed%, LCASE$(a2$), find$)
                                END IF
 
                                IF seed% <= LEN(a1$) THEN
                                    LOCATE margin.t + i%, margin.l + seed%
                                    PRINT MID$(a2$, INSTR(seed%, LCASE$(a2$), find$), LEN(find$));
                                    seed% = seed% + LEN(find$)
 
                                    IF flag% THEN
                                        SELECT CASE flag%
                                            CASE 2
                                                flag% = 0: find$ = findorig$
                                            CASE 1
                                                flag% = 2
                                                find$ = MID$(findorig$, LEN(find$) + 2)
                                                seed% = 0
                                                EXIT DO
                                        END SELECT
                                    END IF
                                ELSE
                                    EXIT DO
                                END IF
                            LOOP
                        END IF
 
                    CASE 1 ' Whole word and not case sensitive.
                        seed% = 0: COLOR 14, 4
                        WHILE INSTR(seed%, LCASE$(a2$), find$)
                            seed% = INSTR(seed%, LCASE$(a2$), find$)
 
                            IF seed% - 1 = 0 OR MID$(LCASE$(a2$), seed% - 1, 1) = " " THEN
                                IF INSTR(".,;:?!}]) ", MID$(LCASE$(a2$), seed% + LEN(find$), 1)) THEN
 
                                    IF a2% THEN
                                        k% = INSTR(seed%, LCASE$(a2$), find$)
                                        IF k% + LEN(find$) >= LEN(a1$) AND k% <= LEN(a1$) THEN
                                            seed% = INSTR(seed%, LCASE$(a2$), find$)
                                            find$ = MID$(findorig$, 1, LEN(a1$) - seed%)
                                            flag% = 1
                                        ELSE
                                            seed% = INSTR(seed%, LCASE$(a2$), find$)
                                        END IF
                                    ELSE
                                        seed% = INSTR(seed%, LCASE$(a2$), find$)
                                    END IF
 
                                    IF seed% <= LEN(a1$) THEN
                                        LOCATE margin.t + i%, margin.l + seed%
                                        PRINT MID$(a2$, INSTR(seed%, LCASE$(a2$), find$), LEN(find$));
                                        seed% = seed% + LEN(find$)
 
                                        IF flag% THEN
                                            SELECT CASE flag%
                                                CASE 2
                                                    flag% = 0
                                                    find$ = findorig$
                                                CASE 1
                                                    flag% = 2
                                                    find$ = MID$(findorig$, LEN(find$) + 2)
                                                    seed% = 0
                                                    EXIT WHILE
                                            END SELECT
                                        END IF
                                    ELSE
                                        EXIT WHILE
                                    END IF
 
                                END IF
                            END IF
 
                            seed% = seed% + LEN(find$)
 
                        WEND
 
                END SELECT
 
            CASE 1 ' Case sensitive
                SELECT CASE whole_word%
                    CASE 0 ' Part word and case sensitive.
                        seed% = 0: COLOR 14, 4
                        WHILE INSTR(seed%, a2$, find$)
                            seed% = INSTR(seed%, a2$, find$)
 
                            IF a2% THEN
                                k% = INSTR(seed%, a2$, find$)
                                IF k% + LEN(find$) >= LEN(a1$) AND k% <= LEN(a1$) THEN
                                    seed% = INSTR(seed%, a2$, find$)
                                    find$ = MID$(findorig$, 1, LEN(a1$) - seed%)
                                    flag% = 1
                                ELSE
                                    seed% = INSTR(seed%, a2$, find$)
                                END IF
                            ELSE
                                seed% = INSTR(seed%, a2$, find$)
                            END IF
 
                            IF seed% <= LEN(a1$) THEN
                                LOCATE margin.t + i%, margin.l + seed%
                                PRINT MID$(a2$, INSTR(seed%, a2$, find$), LEN(find$));
                                seed% = seed% + LEN(find$)
 
                                IF flag% THEN
                                    SELECT CASE flag%
                                        CASE 2
                                            flag% = 0: find$ = findorig$
                                        CASE 1
                                            flag% = 2
                                            find$ = MID$(findorig$, LEN(find$) + 2)
                                            seed% = 0
                                            EXIT WHILE
                                    END SELECT
                                END IF
                            ELSE
                                EXIT WHILE
                            END IF
 
                            seed% = seed% + LEN(find$)
 
                        WEND
 
                    CASE 1 ' Whole word and case sensitive.
                        seed% = 0: COLOR 14, 4
                        WHILE INSTR(seed%, a2$, find$)
                            seed% = INSTR(seed%, a2$, find$)
 
                            IF seed% - 1 = 0 OR MID$(a2$, seed% - 1, 1) = " " THEN
                                IF INSTR(".,;:?!}]) ", MID$(a2$, seed% + LEN(find$), 1)) THEN
 
                                    IF a2% THEN
                                        k% = INSTR(seed%, a2$, find$)
                                        IF k% + LEN(find$) >= LEN(a1$) AND k% <= LEN(a1$) THEN
                                            seed% = INSTR(seed%, a2$, find$)
                                            find$ = MID$(findorig$, 1, LEN(a1$) - seed%)
                                            flag% = 1
                                        ELSE
                                            seed% = INSTR(seed%, a2$, find$)
                                        END IF
                                    ELSE
                                        seed% = INSTR(seed%, a2$, find$)
                                    END IF
 
                                    IF seed% <= LEN(a1$) THEN
                                        LOCATE margin.t + i%, margin.l + seed%
                                        PRINT MID$(a2$, INSTR(seed%, a2$, find$), LEN(find$));
                                        seed% = seed% + LEN(find$)
 
                                        IF flag% THEN
                                            SELECT CASE flag%
                                                CASE 2
                                                    flag% = 0: find$ = findorig$
                                                CASE 1
                                                    flag% = 2
                                                    find$ = MID$(findorig$, LEN(find$) + 2)
                                                    seed% = 0
                                                    EXIT WHILE
                                            END SELECT
                                        END IF
                                    ELSE
                                        EXIT WHILE
                                    END IF
 
                                END IF
                            END IF
 
                            seed% = seed% + LEN(find$)
 
                        WEND
 
                END SELECT
        END SELECT
    NEXT
END IF
RETURN
 
replacer:
find$ = entry$(1)
r$ = entry$(2)
REDIM entry$(UBOUND(ifield$))
a$ = ""
FOR i = 1 TO noe
    a$ = a$ + MID$(x$(i), 1, INSTR(x$(i), CHR$(10)) - 1)
NEXT
a$ = " " + a$: a$ = a$ + " "
 
' parse a$
seed% = 0: j = 0
DO UNTIL INSTR(seed%, a$, find$) = 0
    a$ = MID$(a$, 1, INSTR(seed%, a$, find$) - 1) + r$ + MID$(a$, INSTR(seed%, a$, find$) + LEN(find$))
    seed% = seed% + LEN(find$)
LOOP
 
a$ = MID$(a$, 2): a$ = MID$(a$, 1, LEN(a$) - 1)
REDIM x$(LEN(a$))
 
DO UNTIL a$ = ""
    x$ = MID$(a$, 1, dwidth)
    IF LEN(x$) < dwidth THEN
        j = j + 1: x$(j) = x$
        a$ = ""
        x$(j) = x$(j) + CHR$(10)
    ELSEIF INSTR(x$, CHR$(255)) THEN
        j = j + 1
        IF LEFT$(x$, 1) = CHR$(255) THEN
            x$(j) = MID$(x$, 1, 1)
            a$ = MID$(a$, 2)
        ELSE
            x$(j) = MID$(x$, 1, INSTR(x$, CHR$(255)) - 1)
            a$ = MID$(a$, INSTR(x$, CHR$(255)))
        END IF
        x$(j) = x$(j) + CHR$(10)
    ELSEIF INSTR(x$, " ") = 0 THEN
        j = j + 1: x$(j) = x$
        a$ = MID$(a$, LEN(x$(j)) + 1)
        x$(j) = x$(j) + CHR$(10)
    ELSE
        j = j + 1: x$(j) = MID$(x$, 1, _INSTRREV(x$, " "))
        a$ = MID$(a$, LEN(x$(j)) + 1)
        x$(j) = x$(j) + CHR$(10)
    END IF
LOOP
noe = j
 
REDIM _PRESERVE x$(noe)
 
GOSUB displaydoc
RETURN
 
SUB popup (msg$, msg%, button$(), button%, button_index%, text$, config%)
    DIM scrb AS my_scrb
    STATIC doctype%
 
    SELECT CASE pete
        CASE 1
            config% = 2 ' Find
            REDIM ifield$(1)
            msg$ = ""
            ifield% = 48 ' Input field length.
            ifield$(1) = "Find:"
            button% = 4: button_index% = 4
            w1% = 0: w2% = 0: w3% = 0: w4% = 0
            noif% = 1
 
        CASE 2
            config% = 3 ' Find / Replace
            REDIM ifield$(2)
            msg$ = ""
            ifield% = 48
            ifield$(1) = "   Find:"
            ifield$(2) = "Replace:"
            button% = 4: button_index% = 4
            w1% = 0: w2% = 0: w3% = 7: w4% = 0
            noif% = 2
    END SELECT
 
    REDIM button$(8), ifieldyy%(noif%), ifieldxx%(noif%)
    button$(1) = "Yes": button$(2) = "No!"
    button$(3) = "Retry": button$(4) = "Cancel"
    button$(5) = "Whole Word": button$(6) = "Whole/Case": button$(7) = "Any Part": button$(8) = "Any/Case"
    iyy% = CSRLIN: ixx% = POS(0)
    IF w3% = 0 THEN w3% = 5 ' Min.
 
    IF w4% = 0 THEN ' Calculate forn container width
        w4% = LEN(msg$) + 4 ' Min
        FOR i% = 1 TO UBOUND(ifield$)
            IF LEN(ifield$(i%)) + ifield% > w4% THEN w4% = LEN(ifield$(i%)) + ifield% + 6
        NEXT
    END IF
 
    IF w1% = 0 THEN
        ' Auto-Center
        w1% = _HEIGHT \ 2 - w3% \ 2 + .5
        w2% = _WIDTH \ 2 - w4% \ 2 + .5
    END IF
 
    SELECT CASE SMODE
        CASE 0
            oldsmode = SMODE: PCOPY 0, 1: SCREEN 0, 0, 1, 1: SMODE = 1
        CASE 1
            oldsmode = SMODE: PCOPY 1, 2: SCREEN 0, 0, 2, 2: SMODE = 2
    END SELECT
 
    LOCATE w1%, w2%, 0 ' Cursor hide
    FOR i = 1 TO w3%
        A$ = ""
        COLOR 15, 1
        LOCATE , w2%
        A$ = A$ + SPACE$(w4% - LEN(A$))
        PRINT A$;
        IF i <> 1 THEN
            COLOR 1, 0: PRINT CHR$(176)
        ELSE PRINT
        END IF
    NEXT i
    LOCATE , w2% + 1
    COLOR 1, 0: PRINT STRING$(w4%, CHR$(176));
    COLOR 14, 1
    LOCATE w1%, w2%
    PRINT CHR$(218); STRING$(w4% - 2, CHR$(196)); CHR$(191);
    LOCATE w1% + w3% - 1, w2%
    PRINT CHR$(192); STRING$(w4% - 2, CHR$(196)); CHR$(217);
    FOR i = 1 TO w3% - 2
        LOCATE w1% + i, w2%: PRINT CHR$(179);: LOCATE w1% + i, w2% + w4% - 1: PRINT CHR$(179);
    NEXT i
    LOCATE w1%, w2% + w4% - 2: COLOR 15, 1: PRINT "x";
 
    IF LEN(msg$) OR noif% THEN
        SELECT CASE msg%
            CASE -1 ' Message title.
                LOCATE w1% + 1, w2% + w4% \ 2 - LEN(msg$) \ 2
                PRINT msg$;
            CASE 0 ' No message title. Usually used with input fields with limited vertical space.
                IF noif% THEN
                    ifrow% = 1
                    IF UBOUND(ifield$) > 1 THEN i% = 2: j% = UBOUND(ifield$) ELSE i% = 0: j% = 1 ' Where 2 is the spacing between input fields.
                    FOR g% = 1 TO UBOUND(ifield$)
                        LOCATE w1% + w3% \ 2 - j% + i% * (g% - 1), w2% + w4% \ 2 - (ifield% + LEN(ifield$(g%)) + 2) \ 2
                        ifieldyy%(g%) = CSRLIN: ifieldxx%(g%) = POS(0) + LEN(ifield$(g%)) + 1 ' Start of text input line.
                        COLOR 15, 1: PRINT ifield$(g%);
                        COLOR 8, 1: PRINT CHR$(222);
                        COLOR c2%, c1%: PRINT SPACE$(ifield%);
                    NEXT
                    passrightmargin% = POS(0) - 1 ' Sets right margin of the input field.
                END IF
 
                IF button% THEN
                    buttonyy% = CSRLIN + 2
                    j% = 0
                    FOR i% = 1 TO button%
                        j% = j% + LEN(button$(button_index% + i%)) + 2
                    NEXT
                    LOCATE buttonyy%, w2% + w4% \ 2 - j% \ 2 - 1
                    COLOR 0, 7
                    mouselocator$ = STRING$(_WIDTH, "0"): mouselocator% = buttonyy%
                    k% = 0
 
                    FOR i% = button_index% + 1 TO button_index% + button%
                        IF k% THEN LOCATE , POS(0) + 2
                        k% = k% + 1
                        MID$(mouselocator$, POS(0)) = STRING$(LEN(button$(i%)) + 2, LTRIM$(STR$(k%)))
                        PRINT SPACE$(LEN(button$(i%)) + 2);
                    NEXT
 
                    LOCATE buttonyy%, w2% + w4% \ 2 - j% \ 2
                    COLOR 0, 7
                    k% = 0
 
                    ' Prints names on buttons.
                    FOR i% = button_index% + 1 TO button_index% + button%
                        IF k% THEN LOCATE buttonyy%, POS(0) + 4
                        PRINT button$(i%);
                        k% = k% + 1
                    NEXT
 
                    IF pete THEN
                        LOCATE ifieldyy%(ifrow%), ifieldxx%(ifrow%), 1
                        tabx% = 0: action$ = ""
                        _KEYCLEAR: text$ = ""
                    END IF
 
                    DO
                        IF pete THEN
                            inputfieldyy% = CSRLIN: inputfieldxx% = POS(0)
 
                            CALL textinput(text$, passrightmargin%, mykey%, doctype$, doctype$(), doctype%, doctypey%(), doctypex%(), x$(), xfull$(), scrb, noe, row, scr, config%, b$)
 
                        ELSE
                            CALL user(b$, mx%, my%, alt%, shift%, ctrl%, ctrlshift%, con_panel%, doc_status_saved%)
                        END IF
 
                        IF LEN(b$) THEN
                            SELECT CASE b$
                                CASE CHR$(13)
                                    IF pete THEN
                                        action$ = "poll input lines": GOSUB tab_and_enter_fields: action$ = ""
                                        IF LEN(b$) THEN ' b$ can be made null in the gosub above. This occurs when there are still more fields to fill in.
                                            SELECT CASE tabx%
                                                CASE 1
                                                    action$ = "Whole Word" ' F3 Find option.
                                                CASE 2
                                                    action$ = "Whole/Case" ' F3 Find option.
                                                    ' Find Function only.
                                                CASE 0, 3
                                                    action$ = "Any Part" ' F3 Find option.
                                                CASE 4
                                                    action$ = "Any/Case" ' F3 Find option.
                                            END SELECT
                                        END IF
                                    ELSE
                                        SELECT CASE tabx%
                                            CASE 1
                                                IF button_index% = 0 THEN action$ = "yes"
                                                IF button_index% = 2 THEN action$ = "retry"
                                            CASE 2
                                                IF button_index% = 0 THEN action$ = "no"
                                                IF button_index% = 2 THEN action$ = "abort"
                                        END SELECT
                                    END IF
                                CASE CHR$(27)
                                    action$ = "close"
                            END SELECT
                        END IF
 
                        IF LEN(action$) THEN EXIT DO ''''' Newly added. Delete this if it causes problems.
 
                        IF my% = w1% AND mx% = w2% + w4% - 2 THEN
                            IF closex% = 0 THEN closex% = -1: LOCATE my%, mx%: COLOR 15, 4: PRINT "x";
                        ELSE
                            IF closex% THEN closex% = 0: LOCATE w1%, w2% + w4% - 2: COLOR 7, 1: PRINT "x";
                        END IF
 
                        IF bhl% THEN IF bhl% = 1 AND my% <> mouselocator% OR bhl% = 1 AND MID$(mouselocator$, mx%, 1) = "0" THEN tabx% = 0: bhl% = 0
 
                        IF b$ = CHR$(9) THEN GOSUB tab_and_enter_fields
 
                        IF oldmx% = mx% AND oldmy% = my% THEN i% = 0 ELSE i% = -1 ' Mouse has moved.
                        IF b$ = CHR$(9) OR my% = mouselocator% AND MID$(mouselocator$, mx%, 1) <> "0" AND i% THEN
                            IF b$ = CHR$(9) THEN k% = tabx%: bhl% = 9 ELSE k% = VAL(MID$(mouselocator$, mx%, 1)): tabx% = k%: bhl% = 1
                            IF pete THEN LOCATE , , 0 ' Hide cursor while making buttons.
 
                            IF h% AND h% <> tabx% THEN
                                entry$(ifrow%) = text$
                                GOSUB clear_button
                            END IF
 
                            h% = k%: tabx% = h%
 
                            COLOR 0, 3
                            LOCATE buttonyy%, INSTR(mouselocator$, LTRIM$(STR$(h%)))
                            PRINT SPACE$(1) + button$(h% + button_index%) + SPACE$(1);
 
                            IF pete THEN LOCATE inputfieldyy%, inputfieldxx%
 
                            _DELAY .15
                        ELSE
                            IF h% AND tabx% = 0 THEN
                                iyy% = CSRLIN: ixx% = POS(0)
                                IF pete THEN LOCATE , , 0
                                COLOR 0, 7
                                LOCATE buttonyy%, INSTR(mouselocator$, LTRIM$(STR$(h%)))
                                PRINT SPACE$(1) + button$(h% + button_index%) + SPACE$(1);
                                LOCATE iyy%, ixx%
                                h% = 0: tabx% = 0
                                '''''''''''IF pete THEN LOCATE yy2, xx2, 1
                            END IF
                        END IF
 
                        ''' ss = CSRLIN: rr = POS(0): LOCATE 1, 41: PRINT mb.l, _MOUSEBUTTON(1): LOCATE ss, rr
 
                        IF mb.l THEN
                            IF closex% THEN SOUND 1000, .1: closex% = 0: action$ = "close"
                            IF my% = mouselocator% AND MID$(mouselocator$, mx%, 1) <> "0" THEN
                                SOUND 1000, .1
                                SELECT CASE VAL(MID$(mouselocator$, mx%, 1))
                                    CASE 1
                                        IF button_index% = 0 THEN action$ = "yes"
                                        IF button_index% = 2 THEN action$ = "retry"
                                        IF button_index% = 4 THEN action$ = "Whole Word": GOSUB tab_and_enter_fields ' F3 Find option.
                                    CASE 2
                                        IF button_index% = 0 THEN action$ = "no"
                                        IF button_index% = 2 THEN action$ = "abort"
                                        IF button_index% = 4 THEN action$ = "Whole/Case": GOSUB tab_and_enter_fields ' F3 Find option.
                                        ' Find Function only.
                                    CASE 3
                                        IF button_index% = 4 THEN action$ = "Any Part": GOSUB tab_and_enter_fields ' F3 Find option.
                                    CASE 4
                                        IF button_index% = 4 THEN action$ = "Any/Case": GOSUB tab_and_enter_fields ' F3 Find option.
                                END SELECT
                            END IF
 
                            IF mb.l AND noif% > 1 THEN
                                IF mx% >= ifieldxx%(1) AND mx% <= ifieldxx%(1) + ifield% AND my% >= ifieldyy%(1) AND my% <= ifieldyy%(UBOUND(ifield$)) THEN
                                    ''ss = CSRLIN: rr = POS(0): LOCATE 1, 1: PRINT i%; ifrow%; my%; ifieldyy%(ifrow%), ifieldxx%(1); mx%; ifieldxx%(1) + ifield%: LOCATE ss, rr
                                    entry$(ifrow%) = text$
                                    ifrow% = 0
                                    FOR i% = 1 TO UBOUND(ifield$)
                                        IF my% = ifieldyy%(i%) THEN ifrow% = i%: EXIT FOR
                                    NEXT
                                    IF ifrow% = 0 THEN CLS: PRINT "Error in ifrow%.": END '''
                                    IF mx% <= ifieldxx%(ifrow%) + LEN(text$) THEN LOCATE my%, mx%, 1 ELSE LOCATE my%, ifieldxx%(ifrow%) + LEN(text$)
                                    text$ = entry$(ifrow%)
                                END IF
                            END IF
 
                        END IF
 
                        IF b$ = CHR$(9) THEN b$ = "" ''''''IS THIS EVEN NECESSARY ANYMORE???
                        oldmy% = my%: oldmx% = mx%
                    LOOP UNTIL LEN(action$) ''' An exit with len(action$) was added many lines up, so maybe this could be just loop?
 
                    SMODE = oldsmode: SCREEN 0, 0, SMODE, SMODE
                ELSE ' No buttons present.
                    LOCATE w1% + w3% \ 2, w2% + w4% \ 2 - LEN(msg$) \ 2
                    PRINT msg$;
                END IF
 
        END SELECT
    END IF
    LOCATE iyy%, ixx%
    _KEYCLEAR
    EXIT SUB
 
    clear_button:
    COLOR 0, 7
    LOCATE buttonyy%, INSTR(mouselocator$, LTRIM$(STR$(h%)))
    PRINT SPACE$(1) + button$(h% + button_index%) + SPACE$(1);
    RETURN
 
    tab_and_enter_fields:
    DO
        IF tabx% = 0 AND ifrow% <= UBOUND(ifield$) OR tabx% = button% OR LEN(action$) THEN
 
            IF tabx% = button% THEN ' Last tab button is highlighted. Go back to input fields.
                h% = button%: GOSUB clear_button
                entry$(ifrow%) = text$
                tabx% = 0
                IF ifrow% = UBOUND(ifield$) THEN ifrow% = 1 ELSE ifrow% = ifrow% + 1
                text$ = entry$(ifrow%): _KEYCLEAR
                LOCATE ifieldyy%(ifrow%), ifieldxx%(ifrow%), 1
                b$ = ""
                EXIT DO
            END IF
 
            ' Remove any highlighting.
            IF UBOUND(ifield$) >= 1 THEN
                LOCATE ifieldyy%(ifrow%), ifieldxx%(ifrow%), 0
                COLOR 7, 0 '''''''''
                PRINT SPACE$(ifield%);
                LOCATE ifieldyy%(ifrow%), ifieldxx%(ifrow%)
                COLOR 7, 0 ''''''''''''
                PRINT MID$(text$, 1, ifield%);
                entry$(ifrow%) = text$
                IF ifrow% + 1 > UBOUND(ifield$) THEN
                    tabx% = 1 ' To reloop.
                    entry$(ifrow%) = text$
                ELSE
                    entry$(ifrow%) = text$
                    ifrow% = ifrow% + 1
                    text$ = entry$(ifrow%): _KEYCLEAR
                    LOCATE ifieldyy%(ifrow%), ifieldxx%(ifrow%), 1
                    b$ = ""
                    EXIT DO
                END IF
            END IF
            EXIT DO
        ELSE
            tabx% = tabx% + 1
            EXIT DO
        END IF
    LOOP
 
    RETURN
 
END SUB
 
SUB user (b$, mx%, my%, alt%, shift%, ctrl%, ctrlshift%, con_panel%, doc_status_saved%)
 
    '''IF _EXIT THEN CALL exit_warning(doc_status_saved%)
 
    DEF SEG = 0
    IF PEEK(1047) MOD 16 = 1 OR PEEK(1047) MOD 16 = 2 THEN shift% = -1 ELSE shift% = 0
    IF PEEK(1047) MOD 16 = 3 OR PEEK(1047) MOD 16 = 4 THEN ctrl% = -1 ELSE ctrl% = 0
    IF PEEK(1047) MOD 16 = 5 OR PEEK(1047) MOD 16 = 6 THEN ctrlshift% = -1 ELSE ctrlshift% = 0
 
    IF PEEK(1047) MOD 16 = 7 OR PEEK(1047) MOD 16 = 8 THEN
        alt% = -1: con_panel% = -1
    ELSE
        IF alt% THEN alt% = 0: con_panel% = 1
    END IF
    DEF SEG
 
    b$ = INKEY$
 
    mb.w = 0
    WHILE _MOUSEINPUT
        mb.w = mb.w + _MOUSEWHEEL
    WEND
 
    mb.l = _MOUSEBUTTON(1)
    mb.r = _MOUSEBUTTON(2)
    mx% = _MOUSEX
    my% = _MOUSEY
END SUB
 
SUB textinput (text$, passrightmargin%, mykey%, doctype$, doctype$(), doctype%, doctypey%(), doctypex%(), x$(), xfull$(), scrb AS my_scrb, noe AS INTEGER, row, scr, config%, b$)
    STATIC initiate%
    STATIC hscrollon%, hscroll%, textfg%, textbk%, highlightfg%, highlightbk%, leftmargin%, rightmargin%, noleadingspace%, textmaxlength%, linecharacter%, click_l%, drag%, shiftclick%, tabx%
    STATIC starthighlight%, highlight%, overwrite%, CurAdvance%
 
    IF change_initiate% THEN change_initiate% = 0: initiate% = 0 ' Resets initiate%. Use when calling this sub to change settings like leftmargin% by zeroing static variable initiate%.
    '''vartable% = 2: CALL setvariables(scrb, c1%, c2%, c1alt%, h1%, h2%, row, ins%, dwidth, dwidth2, menubar%)
 
    row = 1: tabx% = 2: thumb% = 0
 
    DO
        IF NOT initiate% THEN ' Initiate textinput variables.
            initiate% = -1
            GOSUB initiate_variables
        END IF
 
        ' --------------------POLL MOUSE--->
        mb.w = 0
        WHILE _MOUSEINPUT
            mb.w = mb.w + _MOUSEWHEEL
        WEND
 
        IF mb.w = 0 THEN
            mx% = _MOUSEX ' Mouse column.
            my% = _MOUSEY ' Mouse row.
            mb.l = _MOUSEBUTTON(1)
            mb.r = _MOUSEBUTTON(2)
            mb.m = _MOUSEBUTTON(3)
        END IF
        '<----------------------------------
        '''ss = CSRLIN: rr = POS(0): LOCATE 1, 1: PRINT mb.l, _MOUSEBUTTON(1): LOCATE ss, rr
 
        IF noleadingspace% THEN ' Remove leading spaces of any text entry in form.
            IF LEFT$(text$, 1) = " " THEN
                DO UNTIL LEFT$(text$, 1) <> " " OR text$ = ""
                    text$ = MID$(text$, 2)
                    LOCATE , leftmargin%
                    GOSUB wash
                LOOP
            END IF
        END IF
 
        '-------------------------------------------------------------------------
        mykey% = _KEYHIT
 
        '''IF _EXIT THEN CALL exit_warning(doc_status_saved%)
 
        IF mykey% = 0 THEN
            IF my% <> oldmy% OR mx% <> oldmx% OR mb.l OR mb.w THEN
                GOSUB mouseroutine
                IF LEN(action$) THEN EXIT DO
            END IF
        END IF
 
        ''''''IF mykey% = 0 THEN GOSUB file_display_keys
 
        IF mykey% > 0 THEN
            GOSUB form_input_keyroutine
            IF LEN(action$) THEN EXIT DO
        END IF
        '-------------------------------------------------------------------------
        oldmy% = my%: oldmx% = mx%
        IF pete THEN EXIT DO
    LOOP
    EXIT SUB
 
    '---------------------------GOSUB STATEMENTS-----------------------------
    initiate_variables:
    PageWidth1% = 80
    PageWidth2% = 25
    Topmargin% = 3
    BottomMargin% = PageWidth2% - UpFromBottom%
    UpFromBottom% = 2
    BlockSize% = 0: REM -1 = variable.
    Headers% = 0: REM On -1 or Off 0
    TabElements% = 1: REM Number of input fields horizontally arranged. - 1 indicates variable.
    ColorPrompt% = 0: REM 0 = COLOR 7, 0. Set all foreground/background by background * 16 + background.
    ColorResponse% = 0: REM 0 will use textfg% and textbk% as defaults; otherwise set all foreground/background by background * 16 + background.
    RestrictInput% = -1: REM On -1 or Off 0. (Uses 3 data fields)
    InputFieldLength% = 0: REM Set to a number to allow variable length fields; otherwise filed input length will be determined by rightmargin% - (leftmargin% - 1).
    PromptColumn% = 1: REM Column where prompt starts. Use 0 if no prompts. Use -1 for  multiple prompts on same row.
    ResponseColumn% = 0: REM Set to a number if using Spacer%; otherwise 0 = input field follows response.
 
    TableStyle% = 0: REM 0 = Prompt/Space/Input, 1 = Prompt/Colon+Space/Response, 2 = Prompt/Spacers/Response
    Spacer$ = ".": REM Type of spacer character if spacers are used (Table Style 2).
 
    textfg% = 7
    textbk% = 0
    highlightfg% = 0
    highlightbk% = 7
    leftmargin% = POS(0): iyy% = CSRLIN
    rightmargin% = passrightmargin%
    textmaxlength% = 250
    noleadingspace% = -1
    linecharacter% = 255: REM Blank space
 
    IF textmaxlength% > rightmargin% - (leftmargin% - 1) THEN hscrollon% = -1
    IF rightmargin% < leftmargin% THEN CLS: PRINT "Rightmargin% cannot be smaller than leftmargin%. Redo.": END
    IF leftmargin% < 1 OR leftmargin% > 80 THEN CLS: PRINT "Leftmargin% is not within 1 - 80 range. Redo.": END
    REM no longer valid with hscroll.IF textmaxlength% > rightmargin% - leftmargin% + 1 THEN CLS: PRINT "textmaxlength% cannot exceed rightmargin% - leftmargin% + 1. Redo.:end"
    IF LEN(text$) > textmaxlength% THEN CLS: PRINT "Text length cannot start out larger than textmaxlength%. Redo.": END
 
    IF rightmargin% = leftmargin% AND textmaxlength% = 1 THEN
        CurAdvance% = 0
    ELSE
        CurAdvance% = 1
    END IF
 
    COLOR textfg%, textbk%
    LOCATE iyy%, leftmargin%, 1, 7, 7
    RETURN '-----------------------------------------------------------------
 
    form_input_keyroutine:
    DO ' Falk loop.
        IF SMODE = 3 THEN ' Doctype dropdown is open.
            SELECT CASE mykey%
                CASE 9, 27 ' Close doctype dropdown.
                    GOSUB close_doctype_dropdown
                CASE 18432 ' Arrow up.
                    IF CSRLIN = w1% + 17 THEN
                        LOCATE w1% + 17, w2% + 15
                        COLOR 7, 0: PRINT doctype$(2);
                        LOCATE w1% + 16, w2% + 15
                        COLOR 1, 3: PRINT doctype$(1);
                    END IF
                CASE 20480 ' Arrow Down
                    IF CSRLIN = w1% + 16 THEN
                        LOCATE w1% + 16, w2% + 15
                        COLOR 7, 0: PRINT doctype$(1);
                        LOCATE w1% + 17, w2% + 15
                        COLOR 1, 3: PRINT doctype$(2);
                    END IF
                CASE 13 ' Enter
                    b$ = CHR$(13): EXIT DO
                    IF CSRLIN = w1% + 16 THEN i% = 1 ELSE i% = 2
                    GOSUB close_doctype_dropdown
                    GOSUB doctype_selected ' (Gosub parameter i%)
            END SELECT
            mykey% = 0
            EXIT DO ' To REturn
        END IF
 
        ' Process text if cursor is on form field text input line.
        IF pete OR CSRLIN = w1% + w3% - 4 - 3 OR mykey% = 27 OR mykey% = 13 OR mykey% = 9 THEN ELSE EXIT DO
 
        IF _KEYDOWN(100303) = -1 OR _KEYDOWN(100304) = -1 THEN
            SELECT CASE mykey%
                CASE 18176, 20224, 19200, 19712, 21248, 20992
                    shift% = -1
            END SELECT
        ELSE
            IF NOT drag% AND shift% THEN shift% = 0
        END IF
 
        IF _KEYDOWN(100305) = -1 OR _KEYDOWN(100306) = -1 THEN
            SELECT CASE mykey%
                CASE 86, 118
                    control% = -2
                CASE ELSE
                    control% = -1
            END SELECT
        ELSE
            control% = 0
        END IF
 
        REM Evaluate changes to highlighted text, excluding cut/copy/paste
        IF highlight% AND shift% = 0 AND control% <> -1 AND mykey% <> 8 AND mykey% < 21248 THEN
            IF mykey% > 31 AND mykey% < 256 THEN
                GOSUB cutcopy
            ELSE
                GOSUB wash
            END IF
        END IF
 
        IF shift% = -1 AND control% = 0 THEN
            SELECT CASE mykey%
                CASE 19200
                    GOSUB HighlightLeft
 
                CASE 19712
                    IF control% THEN
                        GOSUB ctrlrt
                    ELSE
                        GOSUB HighlightRight
                    END IF
 
                CASE 18176
                    GOSUB SelectToHome
 
                CASE 20224
                    GOSUB SelectToEnd
 
                CASE 21248
                    mykey% = 88: REM Convert Delete to Cut
                    GOSUB cutcopy
 
                CASE 20992
                    GOSUB PasteClipboard
            END SELECT
 
        ELSE
 
            SELECT CASE control%
                CASE 0
                    SELECT CASE mykey%
                        CASE 18176
                            IF shift% THEN GOSUB SelectToHome ELSE GOSUB CursorHome
 
                        CASE 20224
                            IF shift% THEN GOSUB SelectToEnd ELSE GOSUB CursorEnd
 
                        CASE 8, 21248: REM Backspace and Delete
                            GOSUB BackspaceDelete
 
                        CASE 9: REM Tab
                            IF pete THEN b$ = CHR$(9): EXIT DO ELSE GOSUB tabkey: mykey% = 0
 
                        CASE 13
                            IF pete THEN b$ = CHR$(13): EXIT DO
                            DO ' Single falks do/loop.
                                FOR i% = 1 TO UBOUND(formbutton$)
                                    IF formbuttonx%(i%) < 0 THEN
                                        SELECT CASE i%
                                            CASE 1
                                                formbuttonx%(1) = ABS(formbuttonx%(1))
                                                GOSUB popfiletypes
                                                EXIT DO
                                            CASE 2
                                                SELECT CASE config%
                                                    CASE 1
                                                        action$ = "open file"
                                                    CASE 2
                                                        action$ = "save as"
                                                END SELECT
                                                '''myfile$ = text$
                                                EXIT DO
                                            CASE 3
                                                action$ = "cancel"
                                                EXIT DO
                                        END SELECT
                                    END IF
                                NEXT
 
                                SELECT CASE tabx%
                                    CASE 1 ' File selected from display window.
                                        IF hlf% THEN
                                            GOSUB fileselected
                                            IF action$ = "change dir" THEN tabx% = 0: EXIT DO
                                            tabx% = 2
                                        ELSE
                                            BEEP
                                        END IF
                                    CASE 2 ' Save or Open selected file.
                                        IF LEN(text$) THEN
                                            SELECT CASE config%
                                                CASE 1
                                                    action$ = "open file"
                                                CASE 2
                                                    action$ = "save as"
                                            END SELECT
                                            tabx% = 2
                                            '''myfile$ = text$
                                            EXIT DO
                                        ELSE
                                            BEEP
                                        END IF
                                    CASE 3 ' Open doctype dropdown menu.
                                        GOSUB popfiletypes
                                    CASE 4 ' Save or Open selected file. Only occurs when tab selected then mouse goes on another button and then goes to a neutral position. In this case the variable is no longer negative and the loop above misses it.
                                        SELECT CASE config%
                                            CASE 1
                                                action$ = "open file"
                                            CASE 2
                                                action$ = "save as"
                                        END SELECT
                                        tabx% = 2
                                        EXIT DO
                                    CASE 5 ' Cancel
                                        action$ = "cancel": tabx% = 2
                                        EXIT DO
                                END SELECT
                                EXIT DO
                            LOOP
                            IF LEN(action$) THEN EXIT DO ' To Return
 
                        CASE 19200
                            GOSUB CursorLeft
 
                        CASE 19712
                            GOSUB CursorRight
 
                        CASE 18432
                            GOSUB CursorUp
 
                        CASE 20480
                            GOSUB CursorDown
 
                        CASE 18688
                            GOSUB PageUp
 
                        CASE 20736
                            GOSUB PageDown
 
                        CASE 27
                            IF pete THEN b$ = CHR$(27): EXIT DO
                            GOSUB wash
                            EXIT DO
 
                        CASE 20992: REM Insert
                            GOSUB InsertOverwrite
 
                        CASE ELSE
                            GOSUB DisplayText
                            IF flagtext% = -1 THEN flagtext% = 0: mykey% = 0
                    END SELECT
 
                    REM Control% = -1 or -2
                CASE -1, -2
 
                    SELECT CASE mykey%
 
                        CASE 65, 97 ' A a
                            GOSUB SelectAll
 
                        CASE 67, 99, 88, 120 ' C c X x
                            GOSUB cutcopy
 
                        CASE 86, 118 ' V v
                            REM Paste
                            GOSUB PasteClipboard
 
                        CASE 19712
                            REM Cursor and arrow right
                            GOSUB ctrlrt
 
                        CASE 19200
                            REM Cursor and arrow left
                            GOSUB ctrllt
 
                        CASE 18176
                            GOSUB CursorHome ' Ctrl + Home
 
                        CASE 20224
                            GOSUB CursorEnd ' Ctrl + End
 
                        CASE ELSE
                            ' Do nothing.
 
                    END SELECT
            END SELECT
        END IF
        EXIT DO
    LOOP
    RETURN '-----------------------------------------------------------------
 
    ' Key Actions.
    tabkey:
    tabx% = tabx% + 1
    IF tabx% > 5 THEN tabx% = 1: GOSUB clearbuttons
 
    SELECT CASE tabx%
        CASE 1
            IF hlf% THEN j% = -999: GOSUB highlightfile
            i% = 0: GOSUB displaybutton
            LOCATE , , 0: row = 1: j% = 0: GOSUB highlightfile
        CASE 2
            IF hlf% THEN j% = -999: GOSUB highlightfile
            LOCATE w1% + w3% - 4 - 3, w2% + 15, 1
        CASE 3
            i% = -1: GOSUB displaybutton
        CASE 4
            i% = -2: GOSUB displaybutton
        CASE 5
            i% = -3: GOSUB displaybutton
    END SELECT
    b$ = "": mykey% = 0: null$ = INKEY$: k% = _KEYHIT ' Clear keyboard buffers
    RETURN '------------------------------------------------------------------
 
    CursorLeft:
    IF POS(0) > leftmargin% THEN
        LOCATE , POS(0) - CurAdvance%
    ELSE
        IF hscroll% THEN hscroll% = hscroll% - 1: GOSUB wash
    END IF
    RETURN '------------------------------------------------------------------
 
    CursorRight:
    IF POS(0) < rightmargin% THEN
        IF POS(0) + CurAdvance% <= leftmargin% - 1 + LEN(text$) + 1 THEN
            IF POS(0) < rightmargin% THEN LOCATE , POS(0) + CurAdvance%
        END IF
    ELSE
        IF hscrollon% THEN
            IF hscroll% + rightmargin% - (leftmargin% - 1) <= LEN(text$) THEN
                hscroll% = hscroll% + 1
                GOSUB wash
            END IF
        END IF
    END IF
 
    RETURN '------------------------------------------------------------------
 
    ctrllt:
    IF highlight% <> 0 AND NOT shift% THEN GOSUB wash
    texttemp$ = MID$(text$, 1, POS(0) - leftmargin% + 1 + hscroll%)
    IF INSTR(texttemp$, " ") <> 0 THEN
        FOR ictrllt% = POS(0) - leftmargin% + 1 + hscroll% TO 1 STEP -1
            IF exitctrl% AND MID$(text$, ictrllt% - 1, 1) = " " THEN EXIT FOR
            IF MID$(text$, ictrllt%, 1) <> " " THEN exitctrl% = -1
            IF shift% THEN GOSUB HighlightLeft ELSE GOSUB CursorLeft
        NEXT
        exitctrl% = 0
    ELSE
        IF shift% THEN GOSUB SelectToHome ELSE GOSUB CursorHome
    END IF
    RETURN '---------------------------------------------------------------------
 
    ctrlrt:
    IF highlight% <> 0 AND NOT shift% THEN GOSUB wash
    texttemp$ = MID$(text$, POS(0) - leftmargin% + 1 + hscroll%)
    IF INSTR(texttemp$, " ") <> 0 THEN
        FOR ictrlrt% = POS(0) - leftmargin% + 1 + hscroll% TO LEN(text$)
            IF MID$(text$, ictrlrt%, 1) <> " " THEN
                IF exitctrl% THEN EXIT FOR
                jctrlrt% = -1
            END IF
            IF MID$(text$, ictrlrt%, 1) = " " AND jctrlrt% THEN exitctrl% = -1
            IF shift% THEN GOSUB HighlightRight ELSE GOSUB CursorRight
        NEXT
        exitctrl% = 0: ictrlrt% = 0: jctrlrt% = 0
    ELSE
        IF shift% THEN GOSUB SelectToEnd ELSE GOSUB CursorEnd
    END IF
    RETURN '---------------------------------------------------------------------
 
    CursorHome:
    IF hscroll% <> 0 THEN hscroll% = 0: GOSUB wash
    LOCATE , leftmargin%
    RETURN '---------------------------------------------------------------------
 
    CursorEnd:
    IF hscrollon% THEN
        IF LEN(text$) > rightmargin% - (leftmargin% - 1) THEN
            hscroll% = LEN(text$) - (rightmargin% - (leftmargin% - 1)) + 1: REM + 1 allows for adding to end of text.
            GOSUB wash
        END IF
    END IF
    IF LEN(text$) + leftmargin% - 1 >= rightmargin% THEN
        LOCATE , rightmargin%
    ELSE
        LOCATE , leftmargin% - 1 + LEN(text$) + CurAdvance%
    END IF
    RETURN '---------------------------------------------------------------------
 
    CursorUp:
    REM PRINT "Cursor Up"
    RETURN
 
    CursorDown:
    REM PRINT "Cursor Down"
    IF formbuttonx%(1) < 0 OR tabx% = 3 THEN ' Opens the doctype dropdown menu.
        formbuttonx%(1) = ABS(formbuttonx%(1))
        GOSUB popfiletypes
    END IF
    RETURN '---------------------------------------------------------------------
 
    PageUp:
    REM PRINT "Page Up"
    RETURN
 
    PageDown:
    REM PRINT "Page Down"
    RETURN
 
    REM Highlighting -----------------------------------------------------------
    HighlightLeft:
    iyy% = CSRLIN: ixx% = POS(0)
    IF POS(0) > leftmargin% OR hscroll% THEN
 
        IF highlight% AND POS(0) >= highlight% - hscroll% THEN ' Unhighlighting left to right.
            ' Move back first and then calculate POS(0) - 1, below.
            IF highlight% = starthighlight% THEN
                starthighlight% = 0: highlight% = 0
            ELSE
                highlight% = POS(0) - 1 + hscroll% ' Diminishing.
            END IF
        ELSE ' Highlighting left to right.
            ' Calculate first and then move back. POS(0).
            IF highlight% = 0 THEN highlight% = POS(0) + hscroll%
            starthighlight% = POS(0) + hscroll%
        END IF
 
        IF POS(0) = leftmargin% AND hscroll% THEN hscroll% = hscroll% - 1 ' hscroll% is reduced after the calculations above.
        c1% = textfg%: c2% = textbk%: c3% = highlightfg%: c4% = highlightbk%
        texttemp$ = MID$(text$, 1 + hscroll%, rightmargin% - leftmargin% + 1)
 
        LOCATE iyy%, leftmargin%
        COLOR c1%, c2%: PRINT MID$(texttemp$, 1, starthighlight% - hscroll% - leftmargin% - 1);
        COLOR c3%, c4%: PRINT MID$(texttemp$, starthighlight% - hscroll% - leftmargin% + 0, ABS(highlight% - starthighlight%) + 1);
        COLOR c1%, c2%: PRINT MID$(texttemp$, highlight% - hscroll% - leftmargin% + 1);
 
        IF ixx% - leftmargin% > 0 THEN ixx% = ixx% - 1 ' No moving cursor back when it is at left amrgin and scrolling text back.
        LOCATE iyy%, ixx%
        COLOR textfg%, textbk%
    END IF
    RETURN '---------------------------------------------------------------------
 
    HighlightRight:
    iyy% = CSRLIN: ixx% = POS(0)
    IF hscroll% + ixx% + 1 - leftmargin% <= LEN(text$) THEN
        c1% = textfg%: c2% = textbk%: c3% = highlightfg%: c4% = highlightbk%
 
        IF POS(0) >= starthighlight% - hscroll% THEN
            IF starthighlight% = 0 THEN starthighlight% = POS(0) + 1 + hscroll%
            highlight% = POS(0) + 1 + hscroll%
        ELSE
            IF starthighlight% = highlight% THEN
                starthighlight% = 0: highlight% = 0
            ELSE
                starthighlight% = POS(0) + 2 + hscroll%
            END IF
        END IF
 
        IF POS(0) = rightmargin% AND LEN(text$) - hscroll% > rightmargin% - leftmargin% THEN hscroll% = hscroll% + 1
        texttemp$ = MID$(text$, 1 + hscroll%, rightmargin% - leftmargin% + 1)
 
        LOCATE iyy%, leftmargin%
        COLOR c1%, c2%: PRINT MID$(texttemp$, 1, starthighlight% - hscroll% - leftmargin% - 1);
        COLOR c3%, c4%: PRINT MID$(texttemp$, starthighlight% - hscroll% - leftmargin% + 0, ABS(highlight% - starthighlight%) + 1);
        COLOR c1%, c2%: PRINT MID$(texttemp$, highlight% - hscroll% - leftmargin% + 1);
        IF POS(0) = rightmargin% THEN PRINT SPACE$(1); ' Only used when highlighting past last character to include one blank space.
        IF ixx% < rightmargin% THEN ixx% = ixx% + 1
        LOCATE iyy%, ixx%
        COLOR textfg%, textbk%
    END IF
    RETURN '---------------------------------------------------------------------
 
    ClickhighLight:
    j% = 0
    texttemp$ = MID$(text$, 1, POS(0) - leftmargin% + 1 + hscroll%)
    FOR i% = LEN(texttemp$) TO 1 STEP -1
        IF MID$(texttemp$, i%, 1) = " " AND j% THEN EXIT FOR ELSE j% = -1
    NEXT
    jClickhighLight% = LEN(texttemp$) - i% - 1
    invokestarthighlight% = POS(0) + hscroll% - (LEN(texttemp$) - i%) + 1
    FOR iClickhighLight% = 1 TO jClickhighLight%
        IF POS(0) = leftmargin% THEN EXIT FOR
        GOSUB CursorLeft
    NEXT
    shift% = -1
    GOSUB ctrlrt
    shift% = 0
    invokestarthighlight% = 0: iClickhighLight% = 0: jClickhighLight% = 0
    RETURN '---------------------------------------------------------------------
 
    SelectAll:
    highlight% = 0: starthighlight% = 0: REM These are not zeroed as a ctrl keys bypass remove highlighting
    GOSUB CursorHome
    GOSUB SelectToEnd
    RETURN '---------------------------------------------------------------------
 
    SelectToEnd:
    IF mspan% = 0 THEN mspan% = POS(0) - leftmargin% + 1 + LEN(text$)
    FOR iSelectToEnd% = 1 TO mspan%
        GOSUB HighlightRight
    NEXT
    mspan% = 0: iSelectToEnd% = 0
    RETURN '---------------------------------------------------------------------
 
    SelectToHome:
    IF mspan% = 0 THEN
        IF POS(0) = rightmargin% THEN
            mspan% = rightmargin% - (leftmargin% - 1) + hscroll%
        ELSE
            mspan% = POS(0) - leftmargin% + 1 + hscroll%
        END IF
    END IF
 
    FOR iSelectToHome% = 1 TO mspan%
        GOSUB HighlightLeft
    NEXT
    mspan% = 0: iSelectToHome% = 0
    RETURN '---------------------------------------------------------------------
 
    DisplayText:
    DO ' Falk loop.
        IF mykey% > 31 AND mykey% < 256 THEN
            COLOR 7, 0: LOCATE , , 1
            IF overwrite% = -1 OR CurAdvance% = 0 THEN
                texttemp$ = MID$(text$, 1, POS(0) - leftmargin%) + CHR$(mykey%) + MID$(text$, POS(0) - leftmargin% + 2)
            ELSE
                texttemp$ = MID$(text$, 1, POS(0) - leftmargin%) + CHR$(mykey%) + MID$(text$, POS(0) - leftmargin% + 1)
            END IF
 
            positioncursor% = POS(0)
 
            IF overwrite% = -1 OR CurAdvance% = 0 THEN
 
                IF POS(0) - leftmargin% + hscroll% < textmaxlength% THEN
                    text$ = MID$(text$, 1, POS(0) + (hscroll%) - leftmargin%) + CHR$(mykey%) + MID$(text$, POS(0) + hscroll% - leftmargin% + 2)
                ELSE
                    flagtext% = -1: EXIT DO 'To Return
                END IF
 
                REM Evaluate Horizontal Scroll
                IF POS(0) = rightmargin% THEN
                    hscroll% = hscroll% + 1
                END IF
            ELSE
                IF LEN(text$) < textmaxlength% THEN
                    text$ = MID$(text$, 1, POS(0) + hscroll% - leftmargin%) + CHR$(mykey%) + MID$(text$, POS(0) + hscroll% - leftmargin% + 1)
                    flagtext% = 0
                ELSE
                    flagtext% = -1
                END IF
 
                IF flagtext% = -1 THEN EXIT DO ' To Return REM flagtext% is set to zero upon return and exit.
 
                REM Evaluate Horizontal Scroll
                IF hscrollon% AND POS(0) = rightmargin% THEN
                    hscroll% = hscroll% + 1
                END IF
            END IF
 
            ' Print to form input line.-------------------------------------->
            LOCATE , leftmargin%: PRINT STRING$(rightmargin% - (leftmargin% - 1), linecharacter%);
            LOCATE , leftmargin%: PRINT MID$(text$, (hscroll% + 1), rightmargin% - (leftmargin% - 1));
            ' <---------------------------------------------------------------
 
            IF CurAdvance% = 1 AND positioncursor% - leftmargin% + 1 < rightmargin% - leftmargin% + 1 THEN
                LOCATE , positioncursor% + CurAdvance%
            ELSE
                LOCATE , positioncursor%
            END IF
        END IF
        EXIT DO
    LOOP
    RETURN '---------------------------------------------------------------------
 
    BackspaceDelete:
    IF highlight% THEN GOSUB cutcopy
    IF POS(0) > leftmargin% OR mykey% = 21248 OR hscroll% > 0 THEN
        IF POS(0) <= leftmargin% + LEN(text$) THEN
            IF mykey% = 8 THEN
                IF POS(0) <= leftmargin% + 2 AND hscroll% > 0 THEN
                    REM Adjust for horizontal scroll
                    holdcursor% = POS(0)
                    LOCATE , leftmargin%
                    countcolumnsmoved% = hscroll%
                    jBackspaceDelete% = (rightmargin% - (leftmargin% - 1)) * .33
                    IF jBackspaceDelete% < 3 AND rightmargin% - (leftmargin% - 1) > 3 THEN jBackspaceDelete% = 3: REM Set minimum scroll back.
                    FOR iBackspaceDelete% = 1 TO jBackspaceDelete%
                        GOSUB CursorLeft
                    NEXT
                    LOCATE , holdcursor% + countcolumnsmoved% - hscroll% - 1
                    countcolumnsmoved% = 0: iBackspaceDelete% = 0: jBackspaceDelete% = 0
                ELSE
                    LOCATE , POS(0) - 1
                END IF
            END IF
            iyy% = CSRLIN: ixx% = POS(0)
            text$ = MID$(text$, 1, POS(0) - leftmargin% + hscroll%) + MID$(text$, POS(0) - leftmargin% + hscroll% + 2)
            texttemp$ = MID$(text$, hscroll% + 1, rightmargin% - (leftmargin% - 1))
            LOCATE iyy%, leftmargin%: PRINT texttemp$ + STRING$((rightmargin% - (leftmargin% - 1)) - LEN(texttemp$), linecharacter%);
            LOCATE iyy%, ixx%
        END IF
    END IF
    RETURN '---------------------------------------------------------------------
 
    cutcopy:
    IF highlight% THEN
        IF mykey% = 99 OR mykey% = 120 THEN
            _CLIPBOARD$ = MID$(text$, starthighlight% - leftmargin%, highlight% - starthighlight% + 1)
        END IF
 
        IF mykey% = 88 OR mykey% = 120 OR mykey% = 8 OR mykey% = 21248 THEN ' ctrl + x (cut), delete, backspace.
            positioncursor% = starthighlight% - 1 - hscroll%
            texttemp$ = MID$(text$, 1, starthighlight% - leftmargin% - 1) + MID$(text$, highlight% - leftmargin% + 1)
            text$ = texttemp$
            hscroll% = hscroll% - ABS(highlight% - starthighlight%)
            IF hscroll% < 0 THEN hscroll% = 0
            LOCATE , positioncursor%
            GOSUB wash
        END IF
    END IF
    RETURN '---------------------------------------------------------------------
 
    PasteClipboard:
    IF LEN(text$) + LEN(_CLIPBOARD$) <= textmaxlength% THEN
        text$ = MID$(text$, 1, POS(0) - leftmargin% + hscroll%) + _CLIPBOARD$ + MID$(text$, POS(0) - leftmargin% + 1 + hscroll%)
        i% = LEN(_CLIPBOARD$) - (rightmargin% - POS(0))
        positioncursor% = POS(0) + LEN(_CLIPBOARD$) - 1 + CurAdvance%
        IF positioncursor% > rightmargin% THEN
            hscroll% = hscroll% + positioncursor% - rightmargin%
            positioncursor% = rightmargin%
        END IF
        LOCATE , positioncursor%
        GOSUB wash
    ELSE
        BEEP
    END IF
    RETURN '---------------------------------------------------------------------
 
    InsertOverwrite:
    IF overwrite% = 0 THEN
        overwrite% = -1
        LOCATE , , 1, 7, 30
    ELSE
        overwrite% = 0
        LOCATE , , 1, 7, 7
    END IF
    RETURN
    ' End Key Controls-------------------------------------------------------
 
    mouseroutine:
    DO ' Falk loop
        IF shiftclick% THEN
            IF shiftclick% > 0 THEN mykey% = 19712: shiftclick% = shiftclick% - 1 ELSE mykey% = 19200: shiftclick% = shiftclick% + 1
            EXIT DO ' To Return
        END IF
 
        IF _KEYDOWN(100303) OR _KEYDOWN(100304) THEN shift% = -1 ELSE shift% = 0
 
        IF my% > margin.t + page.h OR my% <= margin.t THEN
            IF my% > margin.t + page.h + 2 AND hlf% THEN ' Unhighlight file in display window.
                j% = -999: GOSUB highlightfile ' hlf% is in statement above
                tabx% = 2
                LOCATE w1% + w3% - 4 - 3, w2% + 15, 1 ' Move to text input field.
            END IF
 
            GOTO 102
            IF NOT drag% THEN
                IF my% = w1% AND mx% = w2% + w4% - 2 THEN
                    IF closepop% = 0 THEN
                        LOCATE , , 0
                        IF hlf% THEN j% = -999: GOSUB highlightfile
                        IF oldsmode2 THEN ' doctype dropdown menu is open.
                        ELSE
                            GOSUB clearbuttons: tabx% = 2
                        END IF
                        LOCATE w1% + w3% - 4 - 3, w2% + 15
                        GOSUB wash
                        COLOR 15, 4
                        LOCATE w1%, w2% + w4% - 2
                        PRINT "x";
                        closepop% = -1
                        LOCATE w1% + w3% - 4 - 3, w2% + 15, 1
                        COLOR textfg%, textbk%
                    END IF
                ELSE
                    IF closepop% THEN
                        iyy% = CSRLIN: ixx% = POS(0)
                        closepop% = 0
                        COLOR 15, 1
                        LOCATE w1%, w2% + w4% - 2, 0
                        PRINT "x";
                        LOCATE iyy%, ixx%, 1
                        COLOR textfg%, textbk%
                    END IF
                END IF
 
                SELECT CASE SMODE
                    CASE 3 ' doctypedropdown menu open.
                        FOR i% = 1 TO UBOUND(doctype$)
                            IF my% = doctypey%(i%) AND mx% >= ABS(doctypex%(i%)) AND mx% < ABS(doctypex%(i%)) + LEN(doctype$(i%)) THEN
                                IF doctypex%(i%) > 0 THEN
                                    COLOR 0, 3: LOCATE doctypey%(i%), doctypex%(i%), 0
                                    PRINT doctype$(i%);
                                    doctypex%(i%) = -doctypex%(i%)
                                    COLOR textfg%, textbk%
                                END IF
                            ELSE
                                IF doctypex%(i%) < 0 THEN
                                    doctypex%(i%) = ABS(doctypex%(i%))
                                    iyy% = CSRLIN: ixx% = POS(0)
                                    COLOR 7, 0: LOCATE doctypey%(i%), doctypex%(i%), 0
                                    PRINT doctype$(i%);
                                    LOCATE iyy%, ixx%, 0
                                    COLOR textfg%, textbk%
                                END IF
                            END IF
                        NEXT
                    CASE ELSE
                        j% = 0
                        FOR i% = 1 TO UBOUND(formbutton$)
                            IF my% = formbuttony%(i%) AND mx% >= ABS(formbuttonx%(i%)) AND mx% < ABS(formbuttonx%(i%)) + LEN(formbutton$(i%)) THEN
                                IF formbuttonx%(i%) > 0 THEN
                                    iyy% = CSRLIN: ixx% = POS(0)
                                    COLOR 0, 3: LOCATE formbuttony%(i%), formbuttonx%(i%), 0
                                    PRINT formbutton$(i%);
                                    formbuttonx%(i%) = -formbuttonx%(i%)
                                    j% = -1
                                    IF iyy% = w1% + w3% - 4 - 3 THEN LOCATE iyy%, ixx%, 1 ELSE LOCATE iyy%, ixx%, 0
                                    COLOR textfg%, textbk%
                                END IF
                            ELSE
                                formbuttonx%(i%) = ABS(formbuttonx%(i%))
                                iyy% = CSRLIN: ixx% = POS(0)
                                COLOR 1, 7: LOCATE formbuttony%(i%), formbuttonx%(i%), 0
                                PRINT formbutton$(i%);
                                IF iyy% = w1% + w3% - 4 - 3 THEN LOCATE iyy%, ixx%, 1 ELSE LOCATE iyy%, ixx%, 0
                                COLOR textfg%, textbk%
                            END IF
                            IF formbuttonx%(i%) < 0 THEN j% = -1 ' Used below to designate a button is highlighted.
                        NEXT
 
                        IF tabx% >= 3 AND tabx% <= 5 AND j% = 0 THEN
                            COLOR 0, 3: LOCATE formbuttony%(tabx% - 2), ABS(formbuttonx%(tabx% - 2)), 0
                            PRINT formbutton$(tabx% - 2);
                        END IF
                END SELECT
            END IF
 
            102
            IF mb.l THEN
                IF closepop% THEN action$ = "close": EXIT DO ' To Return
 
                IF NOT drag% THEN
                    IF oldsmode2 THEN ' Doctype dropdown menu is open.
                        FOR i% = 1 TO UBOUND(doctype$)
                            IF doctypex%(i%) < 0 THEN
                                GOSUB close_doctype_dropdown
                                GOSUB doctype_selected
                                doctypex%(i%) = ABS(doctypex%(i%))
                            END IF
                        NEXT
                    END IF
 
                    FOR i% = 1 TO UBOUND(formbutton$) ' Check control buttons.
                        IF formbuttonx%(i%) < 0 THEN
                            IF my% = formbuttony%(i%) AND mx% >= ABS(formbuttonx%(i%)) AND mx% <= ABS(formbuttonx%(i%)) + LEN(formbutton$(i%)) THEN
                                formbuttonx%(i%) = ABS(formbuttonx%(i%))
                                SOUND 1000, .1
                                LOCATE , , 0
                                SELECT CASE i%
                                    CASE 1 ' Open doctype dropdown menu.
                                        GOSUB popfiletypes
                                    CASE 2 ' Open button.
                                        SELECT CASE config%
                                            CASE 1
                                                action$ = "open file"
                                            CASE 2
                                                action$ = "save as"
                                        END SELECT
                                        '''myfile$ = text$
                                        EXIT DO ' To Return.
                                    CASE 3 ' Cancel button.
                                        action$ = "cancel": EXIT DO ' To Return.
                                END SELECT
                            END IF
                        END IF
                    NEXT
                END IF
 
                IF mx% > leftmargin% + LEN(text$) THEN EXIT DO ' To Return
 
                IF click_l% >= 0 THEN
                    click_l% = -1
                    IF highlight% AND NOT shift% THEN GOSUB wash
                END IF
 
                IF shift% THEN
                    SELECT CASE mx%
                        CASE IS > POS(0): mykey% = 19712: shiftclick% = mx% - POS(0) - 1
                        CASE IS = POS(0): mykey% = 0
                        CASE IS < POS(0): mykey% = 19200: shiftclick% = mx% - POS(0) + 1
                    END SELECT
                    IF mykey% THEN EXIT DO ' To Return
                END IF
            ELSE
                IF click_l% = -1 THEN click_l% = 1: drag% = 0
            END IF
 
            IF click_l% = -1 THEN
                IF mx% = POS(0) THEN
                    drag% = -1
                ELSE
                    IF my% = CSRLIN AND drag% = 0 THEN
                        IF pete THEN
                            ' Cursor was already placed in popup sub.
                        ELSE
                            LOCATE my%, mx% ' Click in input field. '''''''' DOESN'T mx% NEED TO BE LIMITED IN OLD ROUTINE, TOO???
                        END IF
                    END IF
                END IF
            END IF
 
            IF drag% THEN
                shift% = -1
                SELECT CASE mx%
                    CASE IS > POS(0): mykey% = 19712: IF mx% > rightmargin% THEN _DELAY .05
                    CASE IS = POS(0): mykey% = 0
                    CASE IS < POS(0): mykey% = 19200: IF mx% < leftmargin% THEN _DELAY .05
                END SELECT
            END IF
 
            EXIT DO ' To Return
 
        ELSE
 
            DO
                IF SMODE = 3 THEN EXIT DO
                IF my% > margin.t AND my% - margin.t <= page.h AND mx% > margin.l AND mx% < margin.l + page.w THEN
                    tabx% = 1: GOSUB clearbuttons
                    IF mb.l AND NOT lbdown% THEN
                        IF my% = CSRLIN THEN ' File Selected
                            lbdown% = -1
                            GOSUB fileselected
                            EXIT DO
                        END IF
                    ELSE
                        IF mb.l = 0 THEN lbdown% = 0
                    END IF
 
                    IF hlf% = 0 THEN
                        row = my% - margin.t: j% = 0: GOSUB highlightfile
                    ELSEIF oldmy% > my% AND my% - margin.t <= page.h AND row > 1 THEN
                        i% = my%: IF i% - margin.t > 0 THEN
                            LOCATE oldmy%: row = CSRLIN - margin.t
                            DO UNTIL CSRLIN <= i%
                                row = row - 1: j% = 0: GOSUB highlightfile
                            LOOP
                        END IF
                    ELSEIF oldmy% AND oldmy% < my% AND row < page.h THEN
                        i% = my%: IF i% - margin.t <= page.h THEN
                            LOCATE oldmy%: row = CSRLIN - margin.t
                            DO UNTIL CSRLIN >= i%
                                row = row + 1: j% = 0: GOSUB highlightfile
                            LOOP
                        END IF
                    END IF
                END IF
 
                ' ------------------------------------Mouse----------------------------------
 
                IF locked% < 0 THEN ' Mouse effects on mouse lock. key press effects are determined at inkey$ input, as key variable cannot be evaluated here, due to b$ = "" manipulations in the keypress routine.
                    IF mb.l OR mb.r OR mb.m THEN locked% = 0
                END IF
 
                IF mb.w THEN ' Determine if wheel is being used to scroll highlighted or unhighlighted text.
                    GOSUB clearbuttons
                    tabx% = 1 ' Reset tab index when mouse wheel is engaged.
                    locked% = 2 ' 2 is lock scrollbar, no highlighting permitted.
                END IF
 
                IF mb.l AND locked% <> 1 OR mb.w AND locked% <> -1 THEN
                    tabx% = 1
                    IF mb.l THEN GOSUB clearbuttons
                    ' Scrollbar routine.
                    IF mx% >= scrb.l - 1 AND mx% <= scrb.l + 1 AND my% - (scrb.t + 1) >= scrb.x AND my% - (scrb.t + 1) <= scrb.x + scrb.s - 1 THEN draglock% = -1
 
                    IF draglock% = -1 AND my% > scrb.t AND my% < scrb.b OR mx% = scrb.l AND scrb.s <> 0 AND my% >= scrb.t AND my% <= scrb.b AND mb.w = 0 OR scrbardrag% <> 0 AND my% > scrb.t AND my% < scrb.b AND mb.w = 0 OR mb.w > 0 AND scrb.x + scrb.s < scrb.h OR mb.w < 0 AND scrb.x > 0 THEN ' Mouse on scrollbar, doing a bar cursor drag or using the scroll wheel.
                        locked% = 2 ' Locked on scrollbar
                        IF my% = scrb.t AND scrb.x > 0 OR my% = scrb.b AND scrb.x + scrb.s < scrb.h OR mb.w <> 0 AND scr + page.h < noe THEN ' Mouse on a scrollbar arrow.
                            IF my% = scrb.t AND mb.w = 0 OR mb.w < 0 THEN scrb.x = scrb.x - 1: h% = -1 ELSE scrb.x = scrb.x + 1: h% = -2 ' Top or bottom arrow.
                            IF mb.w = 0 THEN delay.on! = .15
                            j% = INT(scrb.x * ((noe - scrb.d) / (scrb.h - scrb.s)))
 
                            IF j% >= 0 THEN ' Condition exists unless j% is negative such as doc is blank and mouse wheel is rolled downward.
                                scrb.i = j%
 
                                scr = scrb.i
 
                                '''h% = 0: CALL scrollbar_update(h%, scrb, noe, row, scr) ' Positions scrollbar box.
 
                                GOSUB scrollscrn
                            END IF
 
                        ELSEIF my% - (scrb.t + 1) >= scrb.x AND my% - (scrb.t + 1) <= scrb.x + scrb.s - 1 AND scrbardrag% = 0 THEN ' Mouse on scrollbar block.
                            scrbardrag% = -1: scrb.adjust = (my% - (scrb.t + 1)) - scrb.x
                        ELSEIF draglock% = -1 AND my% > scrb.t AND my% < scrb.b OR my% > scrb.t AND my% < scrb.b THEN ' Mouse on scrollbar between scrollbar arrow and cursor.
                            IF draglock% = -1 AND my% > scrb.t AND my% < scrb.b OR my% - (scrb.t + 1) - scrb.adjust >= 0 AND my% - (scrb.t + 1) + scrb.s - scrb.adjust <= scrb.h AND scrbardrag% <> -1 OR scrbardrag% = 0 THEN
                                IF scrbardrag% = 0 THEN ' No drag, so adjust for cursor length for a click inside the scrollbar above or below the current scrollbar cursor position.
                                    IF my% - (scrb.t + 1) > scrb.x THEN
                                        scrb.adjust = (my% - (scrb.t + 1)) - scrb.x - 1: h% = -1
                                    ELSE
                                        scrb.adjust = (my% - (scrb.t + 1)) - scrb.x + 1: h% = -2
                                    END IF
                                END IF
                                scrb.x = my% - (scrb.t + 1) - scrb.adjust
                                scrb.i = INT(scrb.x * ((noe - scrb.d) / (scrb.h - scrb.s)))
 
                                scr = scrb.i
 
                                '''h% = 0: CALL scrollbar_update(h%, scrb, noe, row, scr)
 
                                GOSUB scrollscrn
 
                            ELSE ' Scrollbar is at top or bottom and mouse cursor is moving vertically along the scrollbar cursor. This allows the variable to readjust.
                                IF mx% = scrb.l THEN scrbardrag% = 0: scrb.adjust = 0: draglock% = 0
                            END IF
                        END IF
                        ' =======================================================
 
                    END IF
 
                    IF delay.on! THEN ' Scrollbar delay.
                        _DELAY delay.on!
                        delay.on! = 0 ' Toggle off.
                    END IF
 
                ELSE
                    scrbardrag% = 0: scrb.adjust = 0: draglock% = 0
                    IF locked% = 2 AND mb.l = 0 THEN locked% = 0
                END IF
                EXIT DO
            LOOP
        END IF
        EXIT DO
    LOOP
    RETURN '---------------------------------------------------------------------
 
    file_display_keys:
    DO '
        IF CSRLIN >= margin.t AND CSRLIN <= margin.t + page.h AND mb.l = 0 OR autokey% THEN
            ' Key commands for form input line.
            IF autokey% = 0 THEN b$ = INKEY$ ELSE b$ = MID$(b$, 3): IF LEN(b$) = 2 THEN autokey% = 0
            IF LEN(b$) THEN
                IF b$ = CHR$(9) THEN GOSUB tabkey: b$ = "": null$ = INKEY$: EXIT DO ' tabx% assignment.
                SELECT CASE MID$(b$, 1, 2) ' File directory window keys.
                    CASE CHR$(0) + "H"
                        IF row > 1 THEN
                            row = row - 1
                            LOCATE margin.t + row, margin.l + 1
                            j% = 0: GOSUB highlightfile
                        ELSE
                            IF scr > 0 THEN
                                scr = scr - 1
                                GOSUB scrollscrn
                                j% = 0: GOSUB highlightfile
                            END IF
                        END IF
                    CASE CHR$(0) + "P"
                        IF tabx% <> 3 THEN
                            IF row < page.h THEN
                                row = row + 1
                                j% = 0: GOSUB highlightfile
                                LOCATE margin.t + row, margin.l + 1
                            ELSE
                                IF scr + page.h < noe THEN
                                    scr = scr + 1
                                    GOSUB scrollscrn
                                    j% = 0: GOSUB highlightfile
                                END IF
                            END IF
                        ELSE
                            ' Arrow down key is highlighted by tabx%. Now open the doctype dropdown menu.
                            GOSUB popfiletypes
                        END IF
                    CASE CHR$(0) + "I"
                        autokey% = -1
                        LOCATE , margin.l + 1
                        k% = page.h - 1 + row - 2
                        FOR j% = 0 TO k%
                            b$ = b$ + CHR$(0) + "H"
                        NEXT
                        FOR j% = 1 TO row - 1
                            b$ = b$ + CHR$(0) + "P"
                        NEXT
                    CASE CHR$(0) + "Q"
                        autokey% = -1
                        LOCATE , margin.l + 1
                        k% = (page.h - 1) + (page.h - row) - 1
                        FOR j% = 0 TO k%
                            b$ = b$ + CHR$(0) + "P"
                        NEXT
                        FOR j% = 1 TO page.h - row
                            b$ = b$ + CHR$(0) + "H"
                        NEXT
                    CASE CHR$(0) + "w" ' Ctrl + Home
                        row = 1
                        IF scr > 0 THEN
                            scr = 0
                            h% = 0: GOSUB scrollscrn
                        END IF
                        LOCATE margin.t + 1, margin.l + 1
                        j% = 0: GOSUB highlightfile
                    CASE CHR$(0) + "u" ' Ctrl + End
                        IF noe > page.h THEN
                            row = page.h
                            scr = noe - row
                            LOCATE margin.t + 1, margin.l + 1
                            h% = 0: GOSUB scrollscrn
                            row = page.h
                            LOCATE margin.t + row, margin.l + 1
                            j% = 0: GOSUB highlightfile
                        ELSE
                            row = noe
                            LOCATE margin.t + row, margin.l + 1
                            j% = 0: GOSUB highlightfile
                        END IF
                    CASE CHR$(13)
                        GOSUB fileselected
                END SELECT
            END IF
        ELSE
            null$ = INKEY$ ' Clear buffer
        END IF
        EXIT DO
    LOOP
 
    RETURN '---------------------------------------------------------------------
 
    '-------------------------------Nested Gosubs-----------------------------
 
    scrollscrn:
    FOR i% = 1 TO page.h
        LOCATE margin.t + i%, margin.l + 1
        PRINT x$(i% + scr);
    NEXT
    LOCATE row + margin.t, margin.l + 1
    IF hlf% AND LEN(b$) < 3 AND scrbardrag% = 0 THEN j% = 0: GOSUB highlightfile
 
    '''h% = 1: CALL scrollbar_update(h%, scrb, noe, row, scr)
 
    RETURN '---------------------------------------------------------------------
 
    highlightfile:
    IF j% = -999 THEN ' Unhighlight text only.
        COLOR 7, 0
        LOCATE margin.t + hlf%, margin.l + 1, 0
        PRINT x$(hlf% + scr);
        hlf% = 0
    ELSE
        IF hlf% THEN
            LOCATE margin.t + hlf%, margin.l + 1, 0
            COLOR 7, 0: PRINT x$(hlf% + scr);
        END IF
        COLOR 1, 3
        LOCATE margin.t + row, margin.l + 1, 0
        PRINT x$(row + scr);
        hlf% = row
        COLOR c1%, c2%
    END IF
    RETURN '---------------------------------------------------------------------
 
    wash:
    starthighlight% = 0
    highlight% = 0
    iyy% = CSRLIN: ixx% = POS(0)
    COLOR textfg%, textbk%
    LOCATE , leftmargin%
    texttemp$ = MID$(text$, (hscroll% + 1), rightmargin% - (leftmargin% - 1))
    PRINT texttemp$ + STRING$(rightmargin% - (leftmargin% - 1) - LEN(texttemp$), linecharacter%);
    LOCATE iyy%, ixx%
    RETURN '---------------------------------------------------------------------
 
    clearbuttons:
    iyy% = CSRLIN: ixx% = POS(0)
    FOR k% = 1 TO UBOUND(formbutton$)
        LOCATE formbuttony%(k%), ABS(formbuttonx%(k%)), 0
        COLOR 1, 7: PRINT formbutton$(k%);
        formbuttonx%(k%) = ABS(formbuttonx%(k%)) ' Remove button active (neg) designation.
    NEXT
    LOCATE iyy%, ixx%
    RETURN '---------------------------------------------------------------------
 
    displaybutton: ' Gosub parameters (i%)
    iyy% = CSRLIN: ixx% = POS(0)
    GOSUB clearbuttons ' Clear all buttons of highlighting first...
    IF i% < 0 THEN COLOR 0, 3 ELSE COLOR 1, 7
    IF tabx% THEN COLOR 0, 3
    IF i% <> 0 THEN
        LOCATE formbuttony%(ABS(i%)), ABS(formbuttonx%(ABS(i%))), 0
        PRINT formbutton$(ABS(i%));
        formbuttonx%(ABS(i%)) = -ABS(formbuttonx%(ABS(i%)))
    END IF
    LOCATE iyy%, ixx%
    RETURN '---------------------------------------------------------------------
 
    fileselected:
    IF noe THEN
        IF hlf% THEN j% = -999: GOSUB highlightfile
 
        text$ = xfull$(row + scr)
 
        IF LEFT$(text$, 2) = ".." OR LEFT$(text$, 1) = "[" THEN
            ' Ready to change diretories.
            IF LEFT$(text$, 2) = ".." THEN
                CHDIR ".."
            ELSE
                CHDIR MID$(text$, 2, LEN(text$) - 2)
            END IF
            action$ = "change dir"
        ELSE
            ' Text input line.
            COLOR 7, 0
            LOCATE w1% + w3% - 4 - 3, w2% + 15: PRINT SPACE$(w4% - 18); ' Blank it.
            LOCATE w1% + w3% - 4 - 3, w2% + 15, 1: PRINT MID$(text$, 1, w4% - 18); ' Display it.
            hlf% = 0
        END IF
    ELSE ' No files found in DIR to select.
        BEEP
    END IF
    RETURN '---------------------------------------------------------------------
 
    popfiletypes:
    LOCATE w1% + w3% - 4 - 3, w2% + 15, 0
    GOSUB wash
    oldsmode2 = SMODE
    SMODE = 3: PCOPY oldsmode2, SMODE: SCREEN 0, 0, SMODE, SMODE
    COLOR 8, 0: LOCATE w1% + 16, w2% + 15 - 1: PRINT CHR$(179);
    COLOR 1, 3: PRINT SPACE$(w4% - 21);
    LOCATE w1% + 16, w2% + 15
    COLOR 1, 3: PRINT doctype$(1);
    COLOR 8, 0: LOCATE w1% + 16, w2% + w4% - 4: PRINT CHR$(179);
    LOCATE w1% + 17, w2% + 14
    COLOR 8, 0: PRINT CHR$(179);
    COLOR 7, 0: PRINT SPACE$(w4% - 18);
    LOCATE w1% + 17, w2% + 15: PRINT doctype$(2);
    COLOR 8, 0: LOCATE , w2% + w4% - 4: PRINT CHR$(179);
    COLOR 8, 0: LOCATE w1% + 18, w2% + 14: PRINT CHR$(192); STRING$(w4% - 19, 196); CHR$(217);
    doctypey%(1) = w1% + 16: doctypex%(1) = w2% + 15
    doctypey%(2) = w1% + 17: doctypex%(2) = w2% + 15
    LOCATE w1% + 16, w2% + 15 ' Text input line.
    RETURN '---------------------------------------------------------------------
 
    doctype_selected:
    SELECT CASE i%
        CASE 1
            COLOR 7, 0: LOCATE w1% + 16, w2% + 15: PRINT SPACE$(w4% - 19); ' Leaves arrow down space.
            LOCATE w1% + 16, w2% + 15: PRINT doctype$(1);
 
            IF doctype$ <> doctype$(1) THEN
                '''doctype$ = doctype$(1): CALL displayfiles(doctype$, x$(), xfull$(), scrb, noe, row, scr)
            END IF
 
            doctype$ = doctype$(1)
            IF doctype% = 2 THEN SWAP doctype$(1), doctype$(2)
            doctype% = 1
 
            LOCATE w1% + 16, w2 + w4% + 4 ' .txt or *.* all files arrow down button location.
            formbuttony%(1) = CSRLIN: formbuttonx%(1) = POS(0): formbutton$(1) = CHR$(25)
 
            i% = 1: GOSUB displaybutton
 
            LOCATE w1% + w3% - 4 - 3, w2% + 15, 1 ' File name input field.
            COLOR textfg%, textbk%
        CASE 2
            COLOR 7, 0: LOCATE w1% + 16, w2% + 15: PRINT SPACE$(w4% - 19); ' Leaves arrow down space.
            LOCATE w1% + 16, w2% + 15: PRINT doctype$(2);
 
            IF doctype$ <> doctype$(2) THEN
                '''doctype$ = doctype$(2): CALL displayfiles(doctype$, x$(), xfull$(), scrb, noe, row, scr)
            END IF
 
            doctype$ = doctype$(2)
            IF doctype% = 1 THEN SWAP doctype$(1), doctype$(2)
            doctype% = 2
 
            LOCATE w1% + w3% - 4 - 3, w2% + 15, 1 ' File name input field.
            COLOR textfg%, textbk%
    END SELECT
 
    RETURN '---------------------------------------------------------------------
 
    close_doctype_dropdown:
    ' Note - Do not use i% in this routine. It would change a perviouly set value i one of the routines that calls this one.
    SMODE = oldsmode2: SCREEN 0, 0, SMODE, SMODE: oldsmode2 = 0
    LOCATE , , 0
    LOCATE w1% + 16, w2% + w4% - 4
    IF tabx% = 3 THEN COLOR 0, 3 ELSE COLOR 1, 7
    IF my% = CSRLIN AND mx% = POS(0) THEN COLOR 0, 3: formbuttonx%(1) = -formbuttonx%(1)
    PRINT formbutton$(1);
    LOCATE w1% + w3% - 4 - 3, w2% + 15, 1 ' File name input field.
    COLOR textfg%, textbk%
    REDIM doctypex%(UBOUND(doctype$)), doctypey%(UBOUND(doctype$))
    RETURN '---------------------------------------------------------------------
 
END SUB
 
SUB find_string
    REDIM x$(20)
    margin.t = 5
    margin.l = 5
    dwidth = 68
    page.h = 6
    row = 1
    noe = 13
 
    x$(1) = "We the People of the United States, in Order to form a more perfect " + CHR$(10)
    x$(2) = "Union, establish Justice, insure domestic Tranquility, provide for " + CHR$(10)
    x$(3) = "the common defence, promote the general Welfare, and secure the " + CHR$(10)
    x$(4) = "Blessings of Liberty to ourselves and our Posterity, do ordain and " + CHR$(10)
    x$(5) = "establish this Constitution for the United States of America." + CHR$(10)
    x$(6) = "" + CHR$(255) + CHR$(10)
    x$(7) = "Article I" + CHR$(10)
    x$(8) = "" + CHR$(255) + CHR$(10)
    x$(9) = "Section 1: Congress" + CHR$(10)
    x$(10) = "" + CHR$(255) + CHR$(10)
    x$(11) = "All legislative Powers herein granted shall be vested in a Congress " + CHR$(10)
    x$(12) = "of the United States, which shall consist of a Senate and House of " + CHR$(10)
    x$(13) = "Representatives." + CHR$(10)
 
    GOSUB displaydoc
 
    DO
        DO
            _LIMIT 30
            b$ = INKEY$
            IF LEN(b$) THEN
                SELECT CASE b$
                    CASE CHR$(27)
                        SYSTEM
                    CASE CHR$(0) + "H"
                        IF scr THEN scr = scr - 1: row = 1: GOSUB displaydoc: GOSUB finder
                    CASE CHR$(0) + "P"
                        IF scr + page.h < noe THEN row = page.h: scr = scr + 1: GOSUB displaydoc: GOSUB finder
                END SELECT
            END IF
        LOOP
    LOOP
 
    displaydoc:
    COLOR 0, 7
    FOR i% = 1 TO page.h
        a1$ = SPACE$(dwidth)
        MID$(a1$, 1) = MID$(x$(i% + scr), 1, INSTR(x$(i% + scr), CHR$(10)) - 1)
        LOCATE margin.t + i%, margin.l + 1
        PRINT a1$
    NEXT
    RETURN
 
    finder:
    FOR i% = 1 TO page.h
        a1$ = SPACE$(dwidth)
        MID$(a1$, 1) = MID$(x$(i% + scr), 1, INSTR(x$(i% + scr), CHR$(10)) - 1)
 
        IF INSTR(LCASE$(a1$), find$) THEN
            COLOR 14, 4: seed% = 0
            DO UNTIL INSTR(seed%, LCASE$(a1$), find$) = 0
                seed% = INSTR(seed%, LCASE$(a1$), find$)
                LOCATE margin.t + i%, margin.l + seed%
                PRINT MID$(a1$, INSTR(seed%, LCASE$(a1$), find$), LEN(find$));
                seed% = seed% + LEN(find$)
            LOOP
        END IF
    NEXT
    COLOR 0, 7
    RETURN
END SUB
 
SUB windowscreen (ENL%)
    IF displayfullscreen% = -1 THEN EXIT SUB
    WINXX1% = CSRLIN: WINYY1% = POS(1)
    winmode$ = "2"
 
    IF ENL% <> 0 THEN
        full = _FULLSCREEN
        IF full = 0 THEN
            SELECT CASE ENL%
                CASE -1: IF SCRNSIZE% > 0 THEN ELSE EXIT SUB
                CASE 1: IF SCRNSIZE% < 14 THEN ELSE EXIT SUB
            END SELECT
        ELSE
            EXIT SUB
        END IF
    END IF
 
    SCRNSIZE% = SCRNSIZE% + ENL%
 
    SELECT CASE winmode$
        CASE "1"
            full = _FULLSCREEN
            IF full <> 0 THEN _FULLSCREEN _OFF
            GOSUB ChangeFont
        CASE "2"
            full = _FULLSCREEN
            IF full <> 0 THEN _FULLSCREEN _OFF
            style$ = "MONOSPACE"
            fontsize% = SCRNSIZE% + 13
            IF fontsize% < 14 THEN winmode$ = ""
            IF fontsize% < 18 THEN style$ = style$ + ", BOLD"
            fontpath$ = ENVIRON$("SYSTEMROOT") + "\fonts\lucon.ttf" 'Find Windows Folder Path.
            GOSUB ChangeFont
        CASE "3"
            GOSUB ChangeFont
            _FULLSCREEN _SQUAREPIXELS
            full = _FULLSCREEN
            IF full = 0 THEN GOSUB nofull
        CASE "4"
            GOSUB ChangeFont
            _FULLSCREEN _STRETCH
            full = _FULLSCREEN
            IF full = 0 THEN GOSUB nofull
    END SELECT
 
    LOCATE WINXX1%, WINYY1%
    EXIT SUB
 
    nofull:
    _FULLSCREEN _OFF
    RETURN
 
    ChangeFont:
    IF winmode$ <> "2" THEN
        _FONT 16 'select inbuilt 8x16 default font
        currentf& = _FONT
    ELSE
        currentf& = _LOADFONT(fontpath$, fontsize%, style$)
        _FONT currentf&
    END IF
 
    IF currentf& <> f& AND f& <> defaultf& THEN _FREEFONT f&
    f& = currentf&
    RETURN
 
END SUB
 

STxAxTIC · « **Reply #9 on:** January 31, 2021, 03:08:22 pm »

Hi Pete,

I made it as far as the screenshots show. Booted, pressed F3, began typing "promote":

[ You are not allowed to view this attachment ]
[ You are not allowed to view this attachment ]

Pete · « **Reply #10 on:** January 31, 2021, 03:19:54 pm »

I'll have a look. I posted a bit prematurely, as I wanted to bring attention to what I think may be a QB64 bug. I just posted that new thread.

Edit: I can't reproduce it, and I cut and pasted the code from here. What I do know is the position of the mouse pointer has to have some more conditions present to function properly. The error message is a catch for that. I'll continue debugging efforts and thanks for posting the screen shot in the other thread, showing the new version has the same issue at lines 350 and 351.

Pete

Pete · « **Reply #11 on:** January 31, 2021, 08:41:05 pm »

Updated a few things in the code above, but I need to spend some time next week zeroing variables, cancel ,etc. Now it's put together just well enough to test get the find and replace stuff organized.

I added to the keys with F3 for Find and F7 for Find and Replace. Since I need to work on clearing variables next, I would recommend that if anyone tries it, just hit the Tab key after a find or find and replace is done. That engages the run command, for a fresh start.

Normally I wouldn't have posted at this stage, but I really wanted to find out what why the IDE accepted a REDIM with ubound only when the code included the i% = ubound(ifield$). I discovered ifield$() array was local, in the old code, now changed to shared, and apparently QB64 made a 10 element array for ifield$() in the main. Previously, ifield$ was DIMmed in a SUB as a local array. So UBOUND can create an array, nice to know. My thanks to Bill and Fell for helping me work through that conundrum.

Edit: Fixed a couple of known issues and updated file. Now you don't have to rerun it with Tab to continue using. The next step will be to get more than one replace mode working. The test program only uses a case-sensitive any word part replace, no matter what button you click. More to come, next week.

Pete

Pete · « **Reply #12 on:** February 01, 2021, 02:17:49 pm »

Finished the find / replace part.

Probably needs lots of test drives to debug, before moving on and merging it into the WP. That in itself may demonstrate some initial conflicts, but due to compiling times, it is a lot easier to break this stuff up into test modules.

I will be looking into some of the find and replace functions when paragraphs are encountered. I'm not sure i have that all sorted out yet, so I may update this post if something else needs to be added for that to work properly.

So F3 for FIND and F7 for FIND / REPLACE

This routine will not alter any of yuor existing files, or write to your hard drive.

Code: QB64: [Select]

_SCREENMOVE 0, 0
_DELAY .5
enl% = 13: CALL windowscreen(enl%)
_DELAY .3
 
DO
 
    DIM SHARED mx%, my%, margin.t AS INTEGER, margin.l AS INTEGER
    DIM SHARED w1%, w2%, w3%, w4%
    DIM SHARED action$
    DIM SHARED mb AS my_mb
    DIM scrb AS my_scrb
 
    TYPE my_mb
        l AS INTEGER
        r AS INTEGER
        m AS INTEGER
        w AS INTEGER
        drag AS INTEGER
        dragon AS INTEGER
    END TYPE
 
    TYPE my_scrb
        t AS INTEGER
        b AS INTEGER
        l AS INTEGER
        x AS INTEGER
        i AS INTEGER
        d AS INTEGER
        h AS INTEGER
        s AS INTEGER
        opt AS INTEGER
        adjust AS INTEGER
    END TYPE
 
    DIM SHARED SMODE, passrightmargin%
    REDIM SHARED formbuttony%(3), formbuttonx%(3), formbutton$(3)
    REDIM button$(8)
    COLOR 0, 7: CLS
 
    REDIM x$(20)
    margin.t = 2
    margin.l = 5
    dwidth = 68
    page.h = 6
    row = 1
    noe = 13
 
    x$(1) = "We the People of the United States, in Order to form a more perfect " + CHR$(10)
    x$(2) = "Union, establish Justice, insure domestic Tranquility, provide for " + CHR$(10)
    x$(3) = "the common defence, promote the general Welfare, and secure the " + CHR$(10)
    x$(4) = "Blessings of Liberty to ourselves and our Posterity, do ordain and " + CHR$(10)
    x$(5) = "establish this Constitution for the United States of America." + CHR$(10)
    x$(6) = "" + CHR$(255) + CHR$(10)
    x$(7) = "Article I" + CHR$(10)
    x$(8) = "" + CHR$(255) + CHR$(10)
    x$(9) = "Section 1: Congress" + CHR$(10)
    x$(10) = "" + CHR$(255) + CHR$(10)
    x$(11) = "All legislative Powers herein granted shall be vested in a Congress " + CHR$(10)
    x$(12) = "of the United States, which shall consist of a Senate and House of " + CHR$(10)
    x$(13) = "Representatives." + CHR$(10)
    DIM SHARED pete, ifield%, noif%, ifrow%, change_initiate%
    REDIM SHARED entry$(10), ifield$(10)
 
    COLOR 0, 7
    GOSUB displaydoc
 
    DO
        _LIMIT 30
        IF b$ = CHR$(0) + CHR$(61) OR b$ = CHR$(0) + CHR$(65) THEN
            IF b$ = CHR$(0) + CHR$(61) THEN pete = 1: noif% = 1 ELSE pete = 2: noif% = 2
 
            GOSUB displaydoc
 
            change_initiate% = -1: CALL popup(msg$, msg%, button$(), button%, button_index%, find$, config%) ' Note: find$ is pass by ref find$ becomes text$ in popup sub and returns text$ back to find$ here.
            LOCATE , , 0
        END IF
 
        IF LEN(action$) THEN
            IF action$ <> "close" THEN
                SELECT CASE action$
                    CASE "Whole Word" ' Default selection if Enter is used instead of a button.
                        whole_word% = 1
                        case_sensitive% = 0
                    CASE "Whole/Case"
                        whole_word% = 1
                        case_sensitive% = 1
                    CASE "Any Part"
                        whole_word% = 0
                        case_sensitive% = 0
                    CASE "Any/Case"
                        whole_word% = 0
                        case_sensitive% = 1
                END SELECT
 
                SELECT CASE config%
                    CASE 2
                        GOSUB finder
                    CASE 3
                        GOSUB replacer
                    CASE ELSE
                        CLS: PRINT "No config% assigned to this case. "; config%: END '''
                END SELECT
            END IF
            action$ = ""
        END IF
 
        b$ = INKEY$
        IF LEN(b$) THEN
            SELECT CASE b$
                CASE CHR$(9)
                    COLOR 7, 0: CLS: CLEAR: EXIT DO
                CASE CHR$(27)
                    SYSTEM
                CASE CHR$(0) + "H"
                    IF scr THEN scr = scr - 1: row = 1: GOSUB displaydoc: GOSUB finder
                CASE CHR$(0) + "P"
                    IF scr + page.h < noe THEN row = page.h: scr = scr + 1: GOSUB displaydoc: GOSUB finder
            END SELECT
        END IF
    LOOP
LOOP
 
displaydoc:
COLOR 0, 7
FOR i% = 1 TO page.h
    a1$ = SPACE$(dwidth)
    MID$(a1$, 1) = MID$(x$(i% + scr), 1, INSTR(x$(i% + scr), CHR$(10)) - 1)
    LOCATE margin.t + i%, margin.l + 1
    PRINT a1$
NEXT
RETURN
 
finder:
IF case_sensitive% = 0 THEN
    find$ = LCASE$(find$): findorig$ = find$
ELSE
    findorig$ = find$
END IF
 
IF LEN(findorig$) THEN
    flag% = 0
    FOR i% = 1 TO page.h
        LOCATE margin.t + i%, margin.l + 1
        a1$ = MID$(x$(i% + scr), 1, INSTR(x$(i% + scr), CHR$(10)) - 1)
 
        IF INSTR(find$, " ") THEN
            IF RIGHT$(a1$, 1) <> " " THEN a2$ = a1$ + " " ELSE a2$ = a1$
        ELSE
            a2$ = a1$ ' No space for a solid line wrap around.
        END IF
 
        IF INSTR(findorig$, " ") THEN
            a2$ = a2$ + MID$(x$(i% + 1 + scr), 1, INSTR(x$(i% + 1 + scr), CHR$(10)) - 1)
            a2% = -1
        ELSE
            a2% = 0
        END IF
 
        SELECT CASE case_sensitive%
            CASE 0 ' Not case sensitive.
                SELECT CASE whole_word%
                    CASE 0 ' Part word and not case sensitive.
                        IF INSTR(LCASE$(a2$), find$) THEN
                            COLOR 14, 4: seed% = 0
                            DO UNTIL INSTR(seed%, LCASE$(a2$), find$) = 0
 
                                IF a2% THEN
                                    k% = INSTR(seed%, LCASE$(a2$), find$)
                                    IF k% + LEN(find$) >= LEN(a1$) AND k% <= LEN(a1$) THEN
                                        seed% = INSTR(seed%, LCASE$(a2$), find$)
                                        find$ = MID$(findorig$, 1, LEN(a1$) - seed%)
                                        flag% = 1
                                    ELSE
                                        seed% = INSTR(seed%, LCASE$(a2$), find$)
                                    END IF
                                ELSE
                                    seed% = INSTR(seed%, LCASE$(a2$), find$)
                                END IF
 
                                IF seed% <= LEN(a1$) THEN
                                    LOCATE margin.t + i%, margin.l + seed%
                                    PRINT MID$(a2$, INSTR(seed%, LCASE$(a2$), find$), LEN(find$));
                                    seed% = seed% + LEN(find$)
 
                                    IF flag% THEN
                                        SELECT CASE flag%
                                            CASE 2
                                                flag% = 0: find$ = findorig$
                                            CASE 1
                                                flag% = 2
                                                find$ = MID$(findorig$, LEN(find$) + 2)
                                                seed% = 0
                                                EXIT DO
                                        END SELECT
                                    END IF
                                ELSE
                                    EXIT DO
                                END IF
                            LOOP
                        END IF
 
                    CASE 1 ' Whole word and not case sensitive.
                        seed% = 0: COLOR 14, 4
                        WHILE INSTR(seed%, LCASE$(a2$), find$)
                            seed% = INSTR(seed%, LCASE$(a2$), find$)
 
                            IF seed% - 1 = 0 OR MID$(LCASE$(a2$), seed% - 1, 1) = " " THEN
                                IF INSTR(".,;:?!}]) ", MID$(LCASE$(a2$), seed% + LEN(find$), 1)) THEN
 
                                    IF a2% THEN
                                        k% = INSTR(seed%, LCASE$(a2$), find$)
                                        IF k% + LEN(find$) >= LEN(a1$) AND k% <= LEN(a1$) THEN
                                            seed% = INSTR(seed%, LCASE$(a2$), find$)
                                            find$ = MID$(findorig$, 1, LEN(a1$) - seed%)
                                            flag% = 1
                                        ELSE
                                            seed% = INSTR(seed%, LCASE$(a2$), find$)
                                        END IF
                                    ELSE
                                        seed% = INSTR(seed%, LCASE$(a2$), find$)
                                    END IF
 
                                    IF seed% <= LEN(a1$) THEN
                                        LOCATE margin.t + i%, margin.l + seed%
                                        PRINT MID$(a2$, INSTR(seed%, LCASE$(a2$), find$), LEN(find$));
                                        seed% = seed% + LEN(find$)
 
                                        IF flag% THEN
                                            SELECT CASE flag%
                                                CASE 2
                                                    flag% = 0
                                                    find$ = findorig$
                                                CASE 1
                                                    flag% = 2
                                                    find$ = MID$(findorig$, LEN(find$) + 2)
                                                    seed% = 0
                                                    EXIT WHILE
                                            END SELECT
                                        END IF
                                    ELSE
                                        EXIT WHILE
                                    END IF
 
                                END IF
                            END IF
 
                            seed% = seed% + LEN(find$)
 
                        WEND
 
                END SELECT
 
            CASE 1 ' Case sensitive
                SELECT CASE whole_word%
                    CASE 0 ' Part word and case sensitive.
                        seed% = 0: COLOR 14, 4
                        WHILE INSTR(seed%, a2$, find$)
                            seed% = INSTR(seed%, a2$, find$)
 
                            IF a2% THEN
                                k% = INSTR(seed%, a2$, find$)
                                IF k% + LEN(find$) >= LEN(a1$) AND k% <= LEN(a1$) THEN
                                    seed% = INSTR(seed%, a2$, find$)
                                    find$ = MID$(findorig$, 1, LEN(a1$) - seed%)
                                    flag% = 1
                                ELSE
                                    seed% = INSTR(seed%, a2$, find$)
                                END IF
                            ELSE
                                seed% = INSTR(seed%, a2$, find$)
                            END IF
 
                            IF seed% <= LEN(a1$) THEN
                                LOCATE margin.t + i%, margin.l + seed%
                                PRINT MID$(a2$, INSTR(seed%, a2$, find$), LEN(find$));
                                seed% = seed% + LEN(find$)
 
                                IF flag% THEN
                                    SELECT CASE flag%
                                        CASE 2
                                            flag% = 0: find$ = findorig$
                                        CASE 1
                                            flag% = 2
                                            find$ = MID$(findorig$, LEN(find$) + 2)
                                            seed% = 0
                                            EXIT WHILE
                                    END SELECT
                                END IF
                            ELSE
                                EXIT WHILE
                            END IF
 
                            seed% = seed% + LEN(find$)
 
                        WEND
 
                    CASE 1 ' Whole word and case sensitive.
                        seed% = 0: COLOR 14, 4
                        WHILE INSTR(seed%, a2$, find$)
                            seed% = INSTR(seed%, a2$, find$)
 
                            IF seed% - 1 = 0 OR MID$(a2$, seed% - 1, 1) = " " THEN
                                IF INSTR(".,;:?!}]) ", MID$(a2$, seed% + LEN(find$), 1)) THEN
 
                                    IF a2% THEN
                                        k% = INSTR(seed%, a2$, find$)
                                        IF k% + LEN(find$) >= LEN(a1$) AND k% <= LEN(a1$) THEN
                                            seed% = INSTR(seed%, a2$, find$)
                                            find$ = MID$(findorig$, 1, LEN(a1$) - seed%)
                                            flag% = 1
                                        ELSE
                                            seed% = INSTR(seed%, a2$, find$)
                                        END IF
                                    ELSE
                                        seed% = INSTR(seed%, a2$, find$)
                                    END IF
 
                                    IF seed% <= LEN(a1$) THEN
                                        LOCATE margin.t + i%, margin.l + seed%
                                        PRINT MID$(a2$, INSTR(seed%, a2$, find$), LEN(find$));
                                        seed% = seed% + LEN(find$)
 
                                        IF flag% THEN
                                            SELECT CASE flag%
                                                CASE 2
                                                    flag% = 0: find$ = findorig$
                                                CASE 1
                                                    flag% = 2
                                                    find$ = MID$(findorig$, LEN(find$) + 2)
                                                    seed% = 0
                                                    EXIT WHILE
                                            END SELECT
                                        END IF
                                    ELSE
                                        EXIT WHILE
                                    END IF
 
                                END IF
                            END IF
 
                            seed% = seed% + LEN(find$)
 
                        WEND
 
                END SELECT
        END SELECT
    NEXT
END IF
RETURN
 
replacer:
find$ = entry$(1)
r$ = entry$(2)
REDIM entry$(UBOUND(ifield$))
a$ = ""
FOR i = 1 TO noe
    a$ = a$ + MID$(x$(i), 1, INSTR(x$(i), CHR$(10)) - 1)
NEXT
a$ = " " + a$: a$ = a$ + " "
 
' parse a$
seed% = 0: j = 0
 
SELECT CASE action$
    CASE "Whole Word" ' Default selection.
        find$ = LCASE$(find$)
        flag% = 0: seed% = 2
        DO UNTIL seed% = 0 OR INSTR(seed%, LCASE$(a$), find$) = 0
            DO UNTIL seed% = 0
                IF flag% = 0 AND MID$(a$, seed% - 1, 1) = " " OR flag% = 0 AND MID$(a$, seed% - 1, 1) = CHR$(255) THEN
                    flag% = 1
                ELSE
                    x% = seed%
                    seed% = INSTR(seed% + LEN(find$), LCASE$(a$), find$)
                    IF seed% = 0 THEN EXIT DO
                END IF
 
                IF flag% = 1 THEN
                    IF INSTR(".,;:?!}] " + CHR$(255), MID$(a$, seed% + LEN(find$), 1)) THEN
                        flag% = 0: EXIT DO
                    ELSE
                        flag% = 0: seed% = INSTR(seed% + LEN(find$), LCASE$(a$), find$)
                    END IF
                END IF
            LOOP
 
            IF seed% THEN
                a$ = MID$(a$, 1, INSTR(seed%, LCASE$(a$), find$) - 1) + r$ + MID$(a$, INSTR(seed%, LCASE$(a$), find$) + LEN(find$))
                seed% = seed% + LEN(r$) - LEN(find$) + LEN(find$)
            END IF
        LOOP
 
    CASE "Whole/Case"
        flag% = 0: seed% = 2
        DO UNTIL seed% = 0 OR INSTR(seed%, a$, find$) = 0
            DO UNTIL seed% = 0
                IF flag% = 0 AND MID$(a$, seed% - 1, 1) = " " OR flag% = 0 AND MID$(a$, seed% - 1, 1) = CHR$(255) THEN
                    flag% = 1
                ELSE
                    x% = seed%
                    seed% = INSTR(seed% + LEN(find$), a$, find$)
                    IF seed% = 0 THEN EXIT DO
                END IF
 
                IF flag% = 1 THEN
                    IF INSTR(".,;:?!}] " + CHR$(255), MID$(a$, seed% + LEN(find$), 1)) THEN
                        flag% = 0: EXIT DO
                    ELSE
                        flag% = 0: seed% = INSTR(seed% + LEN(find$), a$, find$)
                    END IF
                END IF
            LOOP
 
            IF seed% THEN
                a$ = MID$(a$, 1, INSTR(seed%, a$, find$) - 1) + r$ + MID$(a$, INSTR(seed%, a$, find$) + LEN(find$))
                seed% = seed% + LEN(r$) - LEN(find$) + LEN(find$)
            END IF
        LOOP
 
    CASE "Any Part"
        find$ = LCASE$(find$)
        DO UNTIL INSTR(seed%, a$, find$) = 0
            a$ = MID$(a$, 1, INSTR(seed%, LCASE$(a$), find$) - 1) + r$ + MID$(a$, INSTR(seed%, LCASE$(a$), find$) + LEN(find$))
            seed% = seed% + LEN(r$) - LEN(find$) + LEN(find$)
        LOOP
 
    CASE "Any/Case"
        DO UNTIL INSTR(seed%, a$, find$) = 0
            a$ = MID$(a$, 1, INSTR(seed%, a$, find$) - 1) + r$ + MID$(a$, INSTR(seed%, a$, find$) + LEN(find$))
            seed% = seed% + LEN(r$) - LEN(find$) + LEN(find$)
        LOOP
END SELECT
 
a$ = MID$(a$, 2): a$ = MID$(a$, 1, LEN(a$) - 1)
REDIM x$(LEN(a$))
 
DO UNTIL a$ = ""
    x$ = MID$(a$, 1, dwidth)
    IF LEN(x$) < dwidth THEN
        j = j + 1: x$(j) = x$
        a$ = ""
        x$(j) = x$(j) + CHR$(10)
    ELSEIF INSTR(x$, CHR$(255)) THEN
        j = j + 1
        IF LEFT$(x$, 1) = CHR$(255) THEN
            x$(j) = MID$(x$, 1, 1)
            a$ = MID$(a$, 2)
        ELSE
            x$(j) = MID$(x$, 1, INSTR(x$, CHR$(255)) - 1)
            a$ = MID$(a$, INSTR(x$, CHR$(255)))
        END IF
        x$(j) = x$(j) + CHR$(10)
    ELSEIF INSTR(x$, " ") = 0 THEN
        j = j + 1: x$(j) = x$
        a$ = MID$(a$, LEN(x$(j)) + 1)
        x$(j) = x$(j) + CHR$(10)
    ELSE
        j = j + 1: x$(j) = MID$(x$, 1, _INSTRREV(x$, " "))
        a$ = MID$(a$, LEN(x$(j)) + 1)
        x$(j) = x$(j) + CHR$(10)
    END IF
LOOP
noe = j
 
REDIM _PRESERVE x$(noe + 1)
 
row = 1: scr = 0: GOSUB displaydoc
RETURN
 
SUB popup (msg$, msg%, button$(), button%, button_index%, text$, config%)
    DIM scrb AS my_scrb
    STATIC doctype%
 
    SELECT CASE pete
        CASE 1
            config% = 2 ' Find
            REDIM ifield$(1)
            msg$ = ""
            ifield% = 48 ' Input field length.
            ifield$(1) = "Find:"
            button% = 4: button_index% = 4
            w1% = 0: w2% = 0: w3% = 0: w4% = 0
            noif% = 1
 
        CASE 2
            config% = 3 ' Find / Replace
            REDIM ifield$(2)
            msg$ = ""
            ifield% = 48
            ifield$(1) = "   Find:"
            ifield$(2) = "Replace:"
            button% = 4: button_index% = 4
            w1% = 0: w2% = 0: w3% = 7: w4% = 0
            noif% = 2
    END SELECT
 
    REDIM button$(8), ifieldyy%(noif%), ifieldxx%(noif%)
    button$(1) = "Yes": button$(2) = "No!"
    button$(3) = "Retry": button$(4) = "Cancel"
    button$(5) = "Whole Word": button$(6) = "Whole/Case": button$(7) = "Any Part": button$(8) = "Any/Case"
    iyy% = CSRLIN: ixx% = POS(0)
    IF w3% = 0 THEN w3% = 5 ' Min.
 
    IF w4% = 0 THEN ' Calculate forn container width
        w4% = LEN(msg$) + 4 ' Min
        FOR i% = 1 TO UBOUND(ifield$)
            IF LEN(ifield$(i%)) + ifield% > w4% THEN w4% = LEN(ifield$(i%)) + ifield% + 6
        NEXT
    END IF
 
    IF w1% = 0 THEN
        ' Auto-Center
        w1% = _HEIGHT \ 2 - w3% \ 2 + .5
        w2% = _WIDTH \ 2 - w4% \ 2 + .5
    END IF
 
    SELECT CASE SMODE
        CASE 0
            oldsmode = SMODE: PCOPY 0, 1: SCREEN 0, 0, 1, 1: SMODE = 1
        CASE 1
            oldsmode = SMODE: PCOPY 1, 2: SCREEN 0, 0, 2, 2: SMODE = 2
    END SELECT
 
    LOCATE w1%, w2%, 0 ' Cursor hide
    FOR i = 1 TO w3%
        A$ = ""
        COLOR 15, 1
        LOCATE , w2%
        A$ = A$ + SPACE$(w4% - LEN(A$))
        PRINT A$;
        IF i <> 1 THEN
            COLOR 1, 0: PRINT CHR$(176)
        ELSE PRINT
        END IF
    NEXT i
    LOCATE , w2% + 1
    COLOR 1, 0: PRINT STRING$(w4%, CHR$(176));
    COLOR 14, 1
    LOCATE w1%, w2%
    PRINT CHR$(218); STRING$(w4% - 2, CHR$(196)); CHR$(191);
    LOCATE w1% + w3% - 1, w2%
    PRINT CHR$(192); STRING$(w4% - 2, CHR$(196)); CHR$(217);
    FOR i = 1 TO w3% - 2
        LOCATE w1% + i, w2%: PRINT CHR$(179);: LOCATE w1% + i, w2% + w4% - 1: PRINT CHR$(179);
    NEXT i
    LOCATE w1%, w2% + w4% - 2: COLOR 15, 1: PRINT "x";
 
    IF LEN(msg$) OR noif% THEN
        SELECT CASE msg%
            CASE -1 ' Message title.
                LOCATE w1% + 1, w2% + w4% \ 2 - LEN(msg$) \ 2
                PRINT msg$;
            CASE 0 ' No message title. Usually used with input fields with limited vertical space.
                IF noif% THEN
                    ifrow% = 1
                    IF UBOUND(ifield$) > 1 THEN i% = 2: j% = UBOUND(ifield$) ELSE i% = 0: j% = 1 ' Where 2 is the spacing between input fields.
                    FOR g% = 1 TO UBOUND(ifield$)
                        LOCATE w1% + w3% \ 2 - j% + i% * (g% - 1), w2% + w4% \ 2 - (ifield% + LEN(ifield$(g%)) + 2) \ 2
                        ifieldyy%(g%) = CSRLIN: ifieldxx%(g%) = POS(0) + LEN(ifield$(g%)) + 1 ' Start of text input line.
                        COLOR 15, 1: PRINT ifield$(g%);
                        COLOR 8, 1: PRINT CHR$(222);
                        COLOR c2%, c1%: PRINT SPACE$(ifield%);
                    NEXT
                    passrightmargin% = POS(0) - 1 ' Sets right margin of the input field.
                END IF
 
                IF button% THEN
                    buttonyy% = CSRLIN + 2
                    j% = 0
                    FOR i% = 1 TO button%
                        j% = j% + LEN(button$(button_index% + i%)) + 2
                    NEXT
                    LOCATE buttonyy%, w2% + w4% \ 2 - j% \ 2 - 1
                    COLOR 0, 7
                    mouselocator$ = STRING$(_WIDTH, "0"): mouselocator% = buttonyy%
                    k% = 0
 
                    FOR i% = button_index% + 1 TO button_index% + button%
                        IF k% THEN LOCATE , POS(0) + 2
                        k% = k% + 1
                        MID$(mouselocator$, POS(0)) = STRING$(LEN(button$(i%)) + 2, LTRIM$(STR$(k%)))
                        PRINT SPACE$(LEN(button$(i%)) + 2);
                    NEXT
 
                    LOCATE buttonyy%, w2% + w4% \ 2 - j% \ 2
                    COLOR 0, 7
                    k% = 0
 
                    ' Prints names on buttons.
                    FOR i% = button_index% + 1 TO button_index% + button%
                        IF k% THEN LOCATE buttonyy%, POS(0) + 4
                        PRINT button$(i%);
                        k% = k% + 1
                    NEXT
 
                    IF pete THEN
                        LOCATE ifieldyy%(ifrow%), ifieldxx%(ifrow%), 1
                        tabx% = 0: action$ = ""
                        _KEYCLEAR: text$ = ""
                    END IF
 
                    DO
                        IF pete THEN
                            inputfieldyy% = CSRLIN: inputfieldxx% = POS(0)
 
                            CALL textinput(text$, passrightmargin%, mykey%, doctype$, doctype$(), doctype%, doctypey%(), doctypex%(), x$(), xfull$(), scrb, noe, row, scr, config%, b$)
 
                        ELSE
                            CALL user(b$, mx%, my%, alt%, shift%, ctrl%, ctrlshift%, con_panel%, doc_status_saved%)
                        END IF
 
                        IF LEN(b$) THEN
                            SELECT CASE b$
                                CASE CHR$(13)
                                    IF pete THEN
                                        action$ = "poll input lines": GOSUB tab_and_enter_fields: action$ = ""
                                        IF LEN(b$) THEN ' b$ can be made null in the gosub above. This occurs when there are still more fields to fill in.
                                            SELECT CASE tabx%
                                                CASE 1
                                                    action$ = "Whole Word" ' F3 Find option.
                                                CASE 2
                                                    action$ = "Whole/Case" ' F3 Find option.
                                                    ' Find Function only.
                                                CASE 0, 3
                                                    action$ = "Any Part" ' F3 Find option.
                                                CASE 4
                                                    action$ = "Any/Case" ' F3 Find option.
                                            END SELECT
                                        END IF
                                    ELSE
                                        SELECT CASE tabx%
                                            CASE 1
                                                IF button_index% = 0 THEN action$ = "yes"
                                                IF button_index% = 2 THEN action$ = "retry"
                                            CASE 2
                                                IF button_index% = 0 THEN action$ = "no"
                                                IF button_index% = 2 THEN action$ = "abort"
                                        END SELECT
                                    END IF
                                CASE CHR$(27)
                                    action$ = "close"
                            END SELECT
                        END IF
 
                        IF LEN(action$) THEN EXIT DO ''''' Newly added. Delete this if it causes problems.
 
                        IF my% = w1% AND mx% = w2% + w4% - 2 THEN
                            IF closex% = 0 THEN closex% = -1: LOCATE my%, mx%: COLOR 15, 4: PRINT "x";
                        ELSE
                            IF closex% THEN closex% = 0: LOCATE w1%, w2% + w4% - 2: COLOR 7, 1: PRINT "x";
                        END IF
 
                        IF bhl% THEN IF bhl% = 1 AND my% <> mouselocator% OR bhl% = 1 AND MID$(mouselocator$, mx%, 1) = "0" THEN tabx% = 0: bhl% = 0
 
                        IF b$ = CHR$(9) THEN GOSUB tab_and_enter_fields
 
                        IF oldmx% = mx% AND oldmy% = my% THEN i% = 0 ELSE i% = -1 ' Mouse has moved.
                        IF b$ = CHR$(9) OR my% = mouselocator% AND MID$(mouselocator$, mx%, 1) <> "0" AND i% THEN
                            IF b$ = CHR$(9) THEN k% = tabx%: bhl% = 9 ELSE k% = VAL(MID$(mouselocator$, mx%, 1)): tabx% = k%: bhl% = 1
                            IF pete THEN LOCATE , , 0 ' Hide cursor while making buttons.
 
                            IF h% AND h% <> tabx% THEN
                                entry$(ifrow%) = text$
                                GOSUB clear_button
                            END IF
 
                            h% = k%: tabx% = h%
 
                            COLOR 0, 3
                            LOCATE buttonyy%, INSTR(mouselocator$, LTRIM$(STR$(h%)))
                            PRINT SPACE$(1) + button$(h% + button_index%) + SPACE$(1);
 
                            IF pete THEN LOCATE inputfieldyy%, inputfieldxx%
 
                            _DELAY .15
                        ELSE
                            IF h% AND tabx% = 0 THEN
                                iyy% = CSRLIN: ixx% = POS(0)
                                IF pete THEN LOCATE , , 0
                                COLOR 0, 7
                                LOCATE buttonyy%, INSTR(mouselocator$, LTRIM$(STR$(h%)))
                                PRINT SPACE$(1) + button$(h% + button_index%) + SPACE$(1);
                                LOCATE iyy%, ixx%
                                h% = 0: tabx% = 0
                            END IF
                        END IF
 
                        IF mb.l THEN
                            IF closex% THEN SOUND 1000, .1: closex% = 0: action$ = "close"
                            IF my% = mouselocator% AND MID$(mouselocator$, mx%, 1) <> "0" THEN
                                SOUND 1000, .1
                                SELECT CASE VAL(MID$(mouselocator$, mx%, 1))
                                    CASE 1
                                        IF button_index% = 0 THEN action$ = "yes"
                                        IF button_index% = 2 THEN action$ = "retry"
                                        IF button_index% = 4 THEN action$ = "Whole Word": GOSUB tab_and_enter_fields ' F3 Find option.
                                    CASE 2
                                        IF button_index% = 0 THEN action$ = "no"
                                        IF button_index% = 2 THEN action$ = "abort"
                                        IF button_index% = 4 THEN action$ = "Whole/Case": GOSUB tab_and_enter_fields ' F3 Find option.
                                        ' Find Function only.
                                    CASE 3
                                        IF button_index% = 4 THEN action$ = "Any Part": GOSUB tab_and_enter_fields ' F3 Find option.
                                    CASE 4
                                        IF button_index% = 4 THEN action$ = "Any/Case": GOSUB tab_and_enter_fields ' F3 Find option.
                                END SELECT
                            END IF
 
                            IF mb.l AND noif% > 1 THEN
                                IF mx% >= ifieldxx%(1) AND mx% <= ifieldxx%(1) + ifield% AND my% >= ifieldyy%(1) AND my% <= ifieldyy%(UBOUND(ifield$)) THEN
                                    ''ss = CSRLIN: rr = POS(0): LOCATE 1, 1: PRINT i%; ifrow%; my%; ifieldyy%(ifrow%), ifieldxx%(1); mx%; ifieldxx%(1) + ifield%: LOCATE ss, rr
                                    entry$(ifrow%) = text$
                                    ifrow% = 0
                                    FOR i% = 1 TO UBOUND(ifield$)
                                        IF my% = ifieldyy%(i%) THEN ifrow% = i%: EXIT FOR
                                    NEXT
                                    IF ifrow% = 0 THEN CLS: PRINT "Error in ifrow%.": END '''
                                    IF mx% <= ifieldxx%(ifrow%) + LEN(text$) THEN LOCATE my%, mx%, 1 ELSE LOCATE my%, ifieldxx%(ifrow%) + LEN(text$)
                                    text$ = entry$(ifrow%)
                                END IF
                            END IF
 
                        END IF
 
                        IF b$ = CHR$(9) THEN b$ = "" ''''''IS THIS EVEN NECESSARY ANYMORE???
                        oldmy% = my%: oldmx% = mx%
                    LOOP UNTIL LEN(action$) ''' An exit with len(action$) was added many lines up, so maybe this could be just loop?
 
                    SMODE = oldsmode: SCREEN 0, 0, SMODE, SMODE
                ELSE ' No buttons present.
                    LOCATE w1% + w3% \ 2, w2% + w4% \ 2 - LEN(msg$) \ 2
                    PRINT msg$;
                END IF
 
        END SELECT
    END IF
    LOCATE iyy%, ixx%
    _KEYCLEAR
    EXIT SUB
 
    clear_button:
    COLOR 0, 7
    LOCATE buttonyy%, INSTR(mouselocator$, LTRIM$(STR$(h%)))
    PRINT SPACE$(1) + button$(h% + button_index%) + SPACE$(1);
    RETURN
 
    tab_and_enter_fields:
    DO
        IF tabx% = 0 AND ifrow% <= UBOUND(ifield$) OR tabx% = button% OR LEN(action$) THEN
 
            IF tabx% = button% THEN ' Last tab button is highlighted. Go back to input fields.
                h% = button%: GOSUB clear_button
                entry$(ifrow%) = text$
                tabx% = 0
                IF ifrow% = UBOUND(ifield$) THEN ifrow% = 1 ELSE ifrow% = ifrow% + 1
                text$ = entry$(ifrow%): _KEYCLEAR
                LOCATE ifieldyy%(ifrow%), ifieldxx%(ifrow%), 1
                b$ = ""
                EXIT DO
            END IF
 
            ' Remove any highlighting.
            IF UBOUND(ifield$) >= 1 THEN
                LOCATE ifieldyy%(ifrow%), ifieldxx%(ifrow%), 0
                COLOR 7, 0 '''''''''
                PRINT SPACE$(ifield%);
                LOCATE ifieldyy%(ifrow%), ifieldxx%(ifrow%)
                COLOR 7, 0 ''''''''''''
                PRINT MID$(text$, 1, ifield%);
                entry$(ifrow%) = text$
                IF ifrow% + 1 > UBOUND(ifield$) THEN
                    tabx% = 1 ' To reloop.
                    entry$(ifrow%) = text$
                ELSE
                    entry$(ifrow%) = text$
                    ifrow% = ifrow% + 1
                    text$ = entry$(ifrow%): _KEYCLEAR
                    LOCATE ifieldyy%(ifrow%), ifieldxx%(ifrow%), 1
                    b$ = ""
                    EXIT DO
                END IF
            END IF
            EXIT DO
        ELSE
            tabx% = tabx% + 1
            EXIT DO
        END IF
    LOOP
 
    RETURN
 
END SUB
 
SUB user (b$, mx%, my%, alt%, shift%, ctrl%, ctrlshift%, con_panel%, doc_status_saved%)
 
    '''IF _EXIT THEN CALL exit_warning(doc_status_saved%)
 
    DEF SEG = 0
    IF PEEK(1047) MOD 16 = 1 OR PEEK(1047) MOD 16 = 2 THEN shift% = -1 ELSE shift% = 0
    IF PEEK(1047) MOD 16 = 3 OR PEEK(1047) MOD 16 = 4 THEN ctrl% = -1 ELSE ctrl% = 0
    IF PEEK(1047) MOD 16 = 5 OR PEEK(1047) MOD 16 = 6 THEN ctrlshift% = -1 ELSE ctrlshift% = 0
 
    IF PEEK(1047) MOD 16 = 7 OR PEEK(1047) MOD 16 = 8 THEN
        alt% = -1: con_panel% = -1
    ELSE
        IF alt% THEN alt% = 0: con_panel% = 1
    END IF
    DEF SEG
 
    b$ = INKEY$
 
    mb.w = 0
    WHILE _MOUSEINPUT
        mb.w = mb.w + _MOUSEWHEEL
    WEND
 
    mb.l = _MOUSEBUTTON(1)
    mb.r = _MOUSEBUTTON(2)
    mx% = _MOUSEX
    my% = _MOUSEY
END SUB
 
SUB textinput (text$, passrightmargin%, mykey%, doctype$, doctype$(), doctype%, doctypey%(), doctypex%(), x$(), xfull$(), scrb AS my_scrb, noe AS INTEGER, row, scr, config%, b$)
    STATIC initiate%
    STATIC hscrollon%, hscroll%, textfg%, textbk%, highlightfg%, highlightbk%, leftmargin%, rightmargin%, noleadingspace%, textmaxlength%, linecharacter%, click_l%, drag%, shiftclick%, tabx%
    STATIC starthighlight%, highlight%, overwrite%, CurAdvance%
 
    IF change_initiate% THEN change_initiate% = 0: initiate% = 0 ' Resets initiate%. Use when calling this sub to change settings like leftmargin% by zeroing static variable initiate%.
    '''vartable% = 2: CALL setvariables(scrb, c1%, c2%, c1alt%, h1%, h2%, row, ins%, dwidth, dwidth2, menubar%)
 
    row = 1: tabx% = 2: thumb% = 0
 
    DO
        IF NOT initiate% THEN ' Initiate textinput variables.
            initiate% = -1
            GOSUB initiate_variables
        END IF
 
        ' --------------------POLL MOUSE--->
        mb.w = 0
        WHILE _MOUSEINPUT
            mb.w = mb.w + _MOUSEWHEEL
        WEND
 
        IF mb.w = 0 THEN
            mx% = _MOUSEX ' Mouse column.
            my% = _MOUSEY ' Mouse row.
            mb.l = _MOUSEBUTTON(1)
            mb.r = _MOUSEBUTTON(2)
            mb.m = _MOUSEBUTTON(3)
        END IF
        '<----------------------------------
        '''ss = CSRLIN: rr = POS(0): LOCATE 1, 1: PRINT mb.l, _MOUSEBUTTON(1): LOCATE ss, rr
 
        IF noleadingspace% THEN ' Remove leading spaces of any text entry in form.
            IF LEFT$(text$, 1) = " " THEN
                DO UNTIL LEFT$(text$, 1) <> " " OR text$ = ""
                    text$ = MID$(text$, 2)
                    LOCATE , leftmargin%
                    GOSUB wash
                LOOP
            END IF
        END IF
 
        '-------------------------------------------------------------------------
        mykey% = _KEYHIT
 
        '''IF _EXIT THEN CALL exit_warning(doc_status_saved%)
 
        IF mykey% = 0 THEN
            IF my% <> oldmy% OR mx% <> oldmx% OR mb.l OR mb.w THEN
                GOSUB mouseroutine
                IF LEN(action$) THEN EXIT DO
            END IF
        END IF
 
        ''''''IF mykey% = 0 THEN GOSUB file_display_keys
 
        IF mykey% > 0 THEN
            GOSUB form_input_keyroutine
            IF LEN(action$) THEN EXIT DO
        END IF
        '-------------------------------------------------------------------------
        oldmy% = my%: oldmx% = mx%
        IF pete THEN EXIT DO
    LOOP
    EXIT SUB
 
    '---------------------------GOSUB STATEMENTS-----------------------------
    initiate_variables:
    PageWidth1% = 80
    PageWidth2% = 25
    Topmargin% = 3
    BottomMargin% = PageWidth2% - UpFromBottom%
    UpFromBottom% = 2
    BlockSize% = 0: REM -1 = variable.
    Headers% = 0: REM On -1 or Off 0
    TabElements% = 1: REM Number of input fields horizontally arranged. - 1 indicates variable.
    ColorPrompt% = 0: REM 0 = COLOR 7, 0. Set all foreground/background by background * 16 + background.
    ColorResponse% = 0: REM 0 will use textfg% and textbk% as defaults; otherwise set all foreground/background by background * 16 + background.
    RestrictInput% = -1: REM On -1 or Off 0. (Uses 3 data fields)
    InputFieldLength% = 0: REM Set to a number to allow variable length fields; otherwise filed input length will be determined by rightmargin% - (leftmargin% - 1).
    PromptColumn% = 1: REM Column where prompt starts. Use 0 if no prompts. Use -1 for  multiple prompts on same row.
    ResponseColumn% = 0: REM Set to a number if using Spacer%; otherwise 0 = input field follows response.
 
    TableStyle% = 0: REM 0 = Prompt/Space/Input, 1 = Prompt/Colon+Space/Response, 2 = Prompt/Spacers/Response
    Spacer$ = ".": REM Type of spacer character if spacers are used (Table Style 2).
 
    textfg% = 7
    textbk% = 0
    highlightfg% = 0
    highlightbk% = 7
    leftmargin% = POS(0): iyy% = CSRLIN
    rightmargin% = passrightmargin%
    textmaxlength% = 250
    noleadingspace% = -1
    linecharacter% = 255: REM Blank space
 
    IF textmaxlength% > rightmargin% - (leftmargin% - 1) THEN hscrollon% = -1
    IF rightmargin% < leftmargin% THEN CLS: PRINT "Rightmargin% cannot be smaller than leftmargin%. Redo.": END
    IF leftmargin% < 1 OR leftmargin% > 80 THEN CLS: PRINT "Leftmargin% is not within 1 - 80 range. Redo.": END
    REM no longer valid with hscroll.IF textmaxlength% > rightmargin% - leftmargin% + 1 THEN CLS: PRINT "textmaxlength% cannot exceed rightmargin% - leftmargin% + 1. Redo.:end"
    IF LEN(text$) > textmaxlength% THEN CLS: PRINT "Text length cannot start out larger than textmaxlength%. Redo.": END
 
    IF rightmargin% = leftmargin% AND textmaxlength% = 1 THEN
        CurAdvance% = 0
    ELSE
        CurAdvance% = 1
    END IF
 
    COLOR textfg%, textbk%
    LOCATE iyy%, leftmargin%, 1, 7, 7
    RETURN '-----------------------------------------------------------------
 
    form_input_keyroutine:
    DO ' Falk loop.
        IF SMODE = 3 THEN ' Doctype dropdown is open.
            SELECT CASE mykey%
                CASE 9, 27 ' Close doctype dropdown.
                    GOSUB close_doctype_dropdown
                CASE 18432 ' Arrow up.
                    IF CSRLIN = w1% + 17 THEN
                        LOCATE w1% + 17, w2% + 15
                        COLOR 7, 0: PRINT doctype$(2);
                        LOCATE w1% + 16, w2% + 15
                        COLOR 1, 3: PRINT doctype$(1);
                    END IF
                CASE 20480 ' Arrow Down
                    IF CSRLIN = w1% + 16 THEN
                        LOCATE w1% + 16, w2% + 15
                        COLOR 7, 0: PRINT doctype$(1);
                        LOCATE w1% + 17, w2% + 15
                        COLOR 1, 3: PRINT doctype$(2);
                    END IF
                CASE 13 ' Enter
                    b$ = CHR$(13): EXIT DO
                    IF CSRLIN = w1% + 16 THEN i% = 1 ELSE i% = 2
                    GOSUB close_doctype_dropdown
                    GOSUB doctype_selected ' (Gosub parameter i%)
            END SELECT
            mykey% = 0
            EXIT DO ' To REturn
        END IF
 
        ' Process text if cursor is on form field text input line.
        IF pete OR CSRLIN = w1% + w3% - 4 - 3 OR mykey% = 27 OR mykey% = 13 OR mykey% = 9 THEN ELSE EXIT DO
 
        IF _KEYDOWN(100303) = -1 OR _KEYDOWN(100304) = -1 THEN
            SELECT CASE mykey%
                CASE 18176, 20224, 19200, 19712, 21248, 20992
                    shift% = -1
            END SELECT
        ELSE
            IF NOT drag% AND shift% THEN shift% = 0
        END IF
 
        IF _KEYDOWN(100305) = -1 OR _KEYDOWN(100306) = -1 THEN
            SELECT CASE mykey%
                CASE 86, 118
                    control% = -2
                CASE ELSE
                    control% = -1
            END SELECT
        ELSE
            control% = 0
        END IF
 
        REM Evaluate changes to highlighted text, excluding cut/copy/paste
        IF highlight% AND shift% = 0 AND control% <> -1 AND mykey% <> 8 AND mykey% < 21248 THEN
            IF mykey% > 31 AND mykey% < 256 THEN
                GOSUB cutcopy
            ELSE
                GOSUB wash
            END IF
        END IF
 
        IF shift% = -1 AND control% = 0 THEN
            SELECT CASE mykey%
                CASE 19200
                    GOSUB HighlightLeft
 
                CASE 19712
                    IF control% THEN
                        GOSUB ctrlrt
                    ELSE
                        GOSUB HighlightRight
                    END IF
 
                CASE 18176
                    GOSUB SelectToHome
 
                CASE 20224
                    GOSUB SelectToEnd
 
                CASE 21248
                    mykey% = 88: REM Convert Delete to Cut
                    GOSUB cutcopy
 
                CASE 20992
                    GOSUB PasteClipboard
            END SELECT
 
        ELSE
 
            SELECT CASE control%
                CASE 0
                    SELECT CASE mykey%
                        CASE 18176
                            IF shift% THEN GOSUB SelectToHome ELSE GOSUB CursorHome
 
                        CASE 20224
                            IF shift% THEN GOSUB SelectToEnd ELSE GOSUB CursorEnd
 
                        CASE 8, 21248: REM Backspace and Delete
                            GOSUB BackspaceDelete
 
                        CASE 9: REM Tab
                            IF pete THEN b$ = CHR$(9): EXIT DO ELSE GOSUB tabkey: mykey% = 0
 
                        CASE 13
                            IF pete THEN b$ = CHR$(13): EXIT DO
                            DO ' Single falks do/loop.
                                FOR i% = 1 TO UBOUND(formbutton$)
                                    IF formbuttonx%(i%) < 0 THEN
                                        SELECT CASE i%
                                            CASE 1
                                                formbuttonx%(1) = ABS(formbuttonx%(1))
                                                GOSUB popfiletypes
                                                EXIT DO
                                            CASE 2
                                                SELECT CASE config%
                                                    CASE 1
                                                        action$ = "open file"
                                                    CASE 2
                                                        action$ = "save as"
                                                END SELECT
                                                '''myfile$ = text$
                                                EXIT DO
                                            CASE 3
                                                action$ = "cancel"
                                                EXIT DO
                                        END SELECT
                                    END IF
                                NEXT
 
                                SELECT CASE tabx%
                                    CASE 1 ' File selected from display window.
                                        IF hlf% THEN
                                            GOSUB fileselected
                                            IF action$ = "change dir" THEN tabx% = 0: EXIT DO
                                            tabx% = 2
                                        ELSE
                                            BEEP
                                        END IF
                                    CASE 2 ' Save or Open selected file.
                                        IF LEN(text$) THEN
                                            SELECT CASE config%
                                                CASE 1
                                                    action$ = "open file"
                                                CASE 2
                                                    action$ = "save as"
                                            END SELECT
                                            tabx% = 2
                                            '''myfile$ = text$
                                            EXIT DO
                                        ELSE
                                            BEEP
                                        END IF
                                    CASE 3 ' Open doctype dropdown menu.
                                        GOSUB popfiletypes
                                    CASE 4 ' Save or Open selected file. Only occurs when tab selected then mouse goes on another button and then goes to a neutral position. In this case the variable is no longer negative and the loop above misses it.
                                        SELECT CASE config%
                                            CASE 1
                                                action$ = "open file"
                                            CASE 2
                                                action$ = "save as"
                                        END SELECT
                                        tabx% = 2
                                        EXIT DO
                                    CASE 5 ' Cancel
                                        action$ = "cancel": tabx% = 2
                                        EXIT DO
                                END SELECT
                                EXIT DO
                            LOOP
                            IF LEN(action$) THEN EXIT DO ' To Return
 
                        CASE 19200
                            GOSUB CursorLeft
 
                        CASE 19712
                            GOSUB CursorRight
 
                        CASE 18432
                            GOSUB CursorUp
 
                        CASE 20480
                            GOSUB CursorDown
 
                        CASE 18688
                            GOSUB PageUp
 
                        CASE 20736
                            GOSUB PageDown
 
                        CASE 27
                            IF pete THEN b$ = CHR$(27): EXIT DO
                            GOSUB wash
                            EXIT DO
 
                        CASE 20992: REM Insert
                            GOSUB InsertOverwrite
 
                        CASE ELSE
                            GOSUB DisplayText
                            IF flagtext% = -1 THEN flagtext% = 0: mykey% = 0
                    END SELECT
 
                    REM Control% = -1 or -2
                CASE -1, -2
 
                    SELECT CASE mykey%
 
                        CASE 65, 97 ' A a
                            GOSUB SelectAll
 
                        CASE 67, 99, 88, 120 ' C c X x
                            GOSUB cutcopy
 
                        CASE 86, 118 ' V v
                            REM Paste
                            GOSUB PasteClipboard
 
                        CASE 19712
                            REM Cursor and arrow right
                            GOSUB ctrlrt
 
                        CASE 19200
                            REM Cursor and arrow left
                            GOSUB ctrllt
 
                        CASE 18176
                            GOSUB CursorHome ' Ctrl + Home
 
                        CASE 20224
                            GOSUB CursorEnd ' Ctrl + End
 
                        CASE ELSE
                            ' Do nothing.
 
                    END SELECT
            END SELECT
        END IF
        EXIT DO
    LOOP
    RETURN '-----------------------------------------------------------------
 
    ' Key Actions.
    tabkey:
    tabx% = tabx% + 1
    IF tabx% > 5 THEN tabx% = 1: GOSUB clearbuttons
 
    SELECT CASE tabx%
        CASE 1
            IF hlf% THEN j% = -999: GOSUB highlightfile
            i% = 0: GOSUB displaybutton
            LOCATE , , 0: row = 1: j% = 0: GOSUB highlightfile
        CASE 2
            IF hlf% THEN j% = -999: GOSUB highlightfile
            LOCATE w1% + w3% - 4 - 3, w2% + 15, 1
        CASE 3
            i% = -1: GOSUB displaybutton
        CASE 4
            i% = -2: GOSUB displaybutton
        CASE 5
            i% = -3: GOSUB displaybutton
    END SELECT
    b$ = "": mykey% = 0: null$ = INKEY$: k% = _KEYHIT ' Clear keyboard buffers
    RETURN '------------------------------------------------------------------
 
    CursorLeft:
    IF POS(0) > leftmargin% THEN
        LOCATE , POS(0) - CurAdvance%
    ELSE
        IF hscroll% THEN hscroll% = hscroll% - 1: GOSUB wash
    END IF
    RETURN '------------------------------------------------------------------
 
    CursorRight:
    IF POS(0) < rightmargin% THEN
        IF POS(0) + CurAdvance% <= leftmargin% - 1 + LEN(text$) + 1 THEN
            IF POS(0) < rightmargin% THEN LOCATE , POS(0) + CurAdvance%
        END IF
    ELSE
        IF hscrollon% THEN
            IF hscroll% + rightmargin% - (leftmargin% - 1) <= LEN(text$) THEN
                hscroll% = hscroll% + 1
                GOSUB wash
            END IF
        END IF
    END IF
 
    RETURN '------------------------------------------------------------------
 
    ctrllt:
    IF highlight% <> 0 AND NOT shift% THEN GOSUB wash
    texttemp$ = MID$(text$, 1, POS(0) - leftmargin% + 1 + hscroll%)
    IF INSTR(texttemp$, " ") <> 0 THEN
        FOR ictrllt% = POS(0) - leftmargin% + 1 + hscroll% TO 1 STEP -1
            IF exitctrl% AND MID$(text$, ictrllt% - 1, 1) = " " THEN EXIT FOR
            IF MID$(text$, ictrllt%, 1) <> " " THEN exitctrl% = -1
            IF shift% THEN GOSUB HighlightLeft ELSE GOSUB CursorLeft
        NEXT
        exitctrl% = 0
    ELSE
        IF shift% THEN GOSUB SelectToHome ELSE GOSUB CursorHome
    END IF
    RETURN '---------------------------------------------------------------------
 
    ctrlrt:
    IF highlight% <> 0 AND NOT shift% THEN GOSUB wash
    texttemp$ = MID$(text$, POS(0) - leftmargin% + 1 + hscroll%)
    IF INSTR(texttemp$, " ") <> 0 THEN
        FOR ictrlrt% = POS(0) - leftmargin% + 1 + hscroll% TO LEN(text$)
            IF MID$(text$, ictrlrt%, 1) <> " " THEN
                IF exitctrl% THEN EXIT FOR
                jctrlrt% = -1
            END IF
            IF MID$(text$, ictrlrt%, 1) = " " AND jctrlrt% THEN exitctrl% = -1
            IF shift% THEN GOSUB HighlightRight ELSE GOSUB CursorRight
        NEXT
        exitctrl% = 0: ictrlrt% = 0: jctrlrt% = 0
    ELSE
        IF shift% THEN GOSUB SelectToEnd ELSE GOSUB CursorEnd
    END IF
    RETURN '---------------------------------------------------------------------
 
    CursorHome:
    IF hscroll% <> 0 THEN hscroll% = 0: GOSUB wash
    LOCATE , leftmargin%
    RETURN '---------------------------------------------------------------------
 
    CursorEnd:
    IF hscrollon% THEN
        IF LEN(text$) > rightmargin% - (leftmargin% - 1) THEN
            hscroll% = LEN(text$) - (rightmargin% - (leftmargin% - 1)) + 1: REM + 1 allows for adding to end of text.
            GOSUB wash
        END IF
    END IF
    IF LEN(text$) + leftmargin% - 1 >= rightmargin% THEN
        LOCATE , rightmargin%
    ELSE
        LOCATE , leftmargin% - 1 + LEN(text$) + CurAdvance%
    END IF
    RETURN '---------------------------------------------------------------------
 
    CursorUp:
    REM PRINT "Cursor Up"
    RETURN
 
    CursorDown:
    REM PRINT "Cursor Down"
    IF formbuttonx%(1) < 0 OR tabx% = 3 THEN ' Opens the doctype dropdown menu.
        formbuttonx%(1) = ABS(formbuttonx%(1))
        GOSUB popfiletypes
    END IF
    RETURN '---------------------------------------------------------------------
 
    PageUp:
    REM PRINT "Page Up"
    RETURN
 
    PageDown:
    REM PRINT "Page Down"
    RETURN
 
    REM Highlighting -----------------------------------------------------------
    HighlightLeft:
    iyy% = CSRLIN: ixx% = POS(0)
    IF POS(0) > leftmargin% OR hscroll% THEN
 
        IF highlight% AND POS(0) >= highlight% - hscroll% THEN ' Unhighlighting left to right.
            ' Move back first and then calculate POS(0) - 1, below.
            IF highlight% = starthighlight% THEN
                starthighlight% = 0: highlight% = 0
            ELSE
                highlight% = POS(0) - 1 + hscroll% ' Diminishing.
            END IF
        ELSE ' Highlighting left to right.
            ' Calculate first and then move back. POS(0).
            IF highlight% = 0 THEN highlight% = POS(0) + hscroll%
            starthighlight% = POS(0) + hscroll%
        END IF
 
        IF POS(0) = leftmargin% AND hscroll% THEN hscroll% = hscroll% - 1 ' hscroll% is reduced after the calculations above.
        c1% = textfg%: c2% = textbk%: c3% = highlightfg%: c4% = highlightbk%
        texttemp$ = MID$(text$, 1 + hscroll%, rightmargin% - leftmargin% + 1)
 
        LOCATE iyy%, leftmargin%
        COLOR c1%, c2%: PRINT MID$(texttemp$, 1, starthighlight% - hscroll% - leftmargin% - 1);
        COLOR c3%, c4%: PRINT MID$(texttemp$, starthighlight% - hscroll% - leftmargin% + 0, ABS(highlight% - starthighlight%) + 1);
        COLOR c1%, c2%: PRINT MID$(texttemp$, highlight% - hscroll% - leftmargin% + 1);
 
        IF ixx% - leftmargin% > 0 THEN ixx% = ixx% - 1 ' No moving cursor back when it is at left amrgin and scrolling text back.
        LOCATE iyy%, ixx%
        COLOR textfg%, textbk%
    END IF
    RETURN '---------------------------------------------------------------------
 
    HighlightRight:
    iyy% = CSRLIN: ixx% = POS(0)
    IF hscroll% + ixx% + 1 - leftmargin% <= LEN(text$) THEN
        c1% = textfg%: c2% = textbk%: c3% = highlightfg%: c4% = highlightbk%
 
        IF POS(0) >= starthighlight% - hscroll% THEN
            IF starthighlight% = 0 THEN starthighlight% = POS(0) + 1 + hscroll%
            highlight% = POS(0) + 1 + hscroll%
        ELSE
            IF starthighlight% = highlight% THEN
                starthighlight% = 0: highlight% = 0
            ELSE
                starthighlight% = POS(0) + 2 + hscroll%
            END IF
        END IF
 
        IF POS(0) = rightmargin% AND LEN(text$) - hscroll% > rightmargin% - leftmargin% THEN hscroll% = hscroll% + 1
        texttemp$ = MID$(text$, 1 + hscroll%, rightmargin% - leftmargin% + 1)
 
        LOCATE iyy%, leftmargin%
        COLOR c1%, c2%: PRINT MID$(texttemp$, 1, starthighlight% - hscroll% - leftmargin% - 1);
        COLOR c3%, c4%: PRINT MID$(texttemp$, starthighlight% - hscroll% - leftmargin% + 0, ABS(highlight% - starthighlight%) + 1);
        COLOR c1%, c2%: PRINT MID$(texttemp$, highlight% - hscroll% - leftmargin% + 1);
        IF POS(0) = rightmargin% THEN PRINT SPACE$(1); ' Only used when highlighting past last character to include one blank space.
        IF ixx% < rightmargin% THEN ixx% = ixx% + 1
        LOCATE iyy%, ixx%
        COLOR textfg%, textbk%
    END IF
    RETURN '---------------------------------------------------------------------
 
    ClickhighLight:
    j% = 0
    texttemp$ = MID$(text$, 1, POS(0) - leftmargin% + 1 + hscroll%)
    FOR i% = LEN(texttemp$) TO 1 STEP -1
        IF MID$(texttemp$, i%, 1) = " " AND j% THEN EXIT FOR ELSE j% = -1
    NEXT
    jClickhighLight% = LEN(texttemp$) - i% - 1
    invokestarthighlight% = POS(0) + hscroll% - (LEN(texttemp$) - i%) + 1
    FOR iClickhighLight% = 1 TO jClickhighLight%
        IF POS(0) = leftmargin% THEN EXIT FOR
        GOSUB CursorLeft
    NEXT
    shift% = -1
    GOSUB ctrlrt
    shift% = 0
    invokestarthighlight% = 0: iClickhighLight% = 0: jClickhighLight% = 0
    RETURN '---------------------------------------------------------------------
 
    SelectAll:
    highlight% = 0: starthighlight% = 0: REM These are not zeroed as a ctrl keys bypass remove highlighting
    GOSUB CursorHome
    GOSUB SelectToEnd
    RETURN '---------------------------------------------------------------------
 
    SelectToEnd:
    IF mspan% = 0 THEN mspan% = POS(0) - leftmargin% + 1 + LEN(text$)
    FOR iSelectToEnd% = 1 TO mspan%
        GOSUB HighlightRight
    NEXT
    mspan% = 0: iSelectToEnd% = 0
    RETURN '---------------------------------------------------------------------
 
    SelectToHome:
    IF mspan% = 0 THEN
        IF POS(0) = rightmargin% THEN
            mspan% = rightmargin% - (leftmargin% - 1) + hscroll%
        ELSE
            mspan% = POS(0) - leftmargin% + 1 + hscroll%
        END IF
    END IF
 
    FOR iSelectToHome% = 1 TO mspan%
        GOSUB HighlightLeft
    NEXT
    mspan% = 0: iSelectToHome% = 0
    RETURN '---------------------------------------------------------------------
 
    DisplayText:
    DO ' Falk loop.
        IF mykey% > 31 AND mykey% < 256 THEN
            COLOR 7, 0: LOCATE , , 1
            IF overwrite% = -1 OR CurAdvance% = 0 THEN
                texttemp$ = MID$(text$, 1, POS(0) - leftmargin%) + CHR$(mykey%) + MID$(text$, POS(0) - leftmargin% + 2)
            ELSE
                texttemp$ = MID$(text$, 1, POS(0) - leftmargin%) + CHR$(mykey%) + MID$(text$, POS(0) - leftmargin% + 1)
            END IF
 
            positioncursor% = POS(0)
 
            IF overwrite% = -1 OR CurAdvance% = 0 THEN
 
                IF POS(0) - leftmargin% + hscroll% < textmaxlength% THEN
                    text$ = MID$(text$, 1, POS(0) + (hscroll%) - leftmargin%) + CHR$(mykey%) + MID$(text$, POS(0) + hscroll% - leftmargin% + 2)
                ELSE
                    flagtext% = -1: EXIT DO 'To Return
                END IF
 
                REM Evaluate Horizontal Scroll
                IF POS(0) = rightmargin% THEN
                    hscroll% = hscroll% + 1
                END IF
            ELSE
                IF LEN(text$) < textmaxlength% THEN
                    text$ = MID$(text$, 1, POS(0) + hscroll% - leftmargin%) + CHR$(mykey%) + MID$(text$, POS(0) + hscroll% - leftmargin% + 1)
                    flagtext% = 0
                ELSE
                    flagtext% = -1
                END IF
 
                IF flagtext% = -1 THEN EXIT DO ' To Return REM flagtext% is set to zero upon return and exit.
 
                REM Evaluate Horizontal Scroll
                IF hscrollon% AND POS(0) = rightmargin% THEN
                    hscroll% = hscroll% + 1
                END IF
            END IF
 
            ' Print to form input line.-------------------------------------->
            LOCATE , leftmargin%: PRINT STRING$(rightmargin% - (leftmargin% - 1), linecharacter%);
            LOCATE , leftmargin%: PRINT MID$(text$, (hscroll% + 1), rightmargin% - (leftmargin% - 1));
            ' <---------------------------------------------------------------
 
            IF CurAdvance% = 1 AND positioncursor% - leftmargin% + 1 < rightmargin% - leftmargin% + 1 THEN
                LOCATE , positioncursor% + CurAdvance%
            ELSE
                LOCATE , positioncursor%
            END IF
        END IF
        EXIT DO
    LOOP
    RETURN '---------------------------------------------------------------------
 
    BackspaceDelete:
    IF highlight% THEN GOSUB cutcopy
    IF POS(0) > leftmargin% OR mykey% = 21248 OR hscroll% > 0 THEN
        IF POS(0) <= leftmargin% + LEN(text$) THEN
            IF mykey% = 8 THEN
                IF POS(0) <= leftmargin% + 2 AND hscroll% > 0 THEN
                    REM Adjust for horizontal scroll
                    holdcursor% = POS(0)
                    LOCATE , leftmargin%
                    countcolumnsmoved% = hscroll%
                    jBackspaceDelete% = (rightmargin% - (leftmargin% - 1)) * .33
                    IF jBackspaceDelete% < 3 AND rightmargin% - (leftmargin% - 1) > 3 THEN jBackspaceDelete% = 3: REM Set minimum scroll back.
                    FOR iBackspaceDelete% = 1 TO jBackspaceDelete%
                        GOSUB CursorLeft
                    NEXT
                    LOCATE , holdcursor% + countcolumnsmoved% - hscroll% - 1
                    countcolumnsmoved% = 0: iBackspaceDelete% = 0: jBackspaceDelete% = 0
                ELSE
                    LOCATE , POS(0) - 1
                END IF
            END IF
            iyy% = CSRLIN: ixx% = POS(0)
            text$ = MID$(text$, 1, POS(0) - leftmargin% + hscroll%) + MID$(text$, POS(0) - leftmargin% + hscroll% + 2)
            texttemp$ = MID$(text$, hscroll% + 1, rightmargin% - (leftmargin% - 1))
            LOCATE iyy%, leftmargin%: PRINT texttemp$ + STRING$((rightmargin% - (leftmargin% - 1)) - LEN(texttemp$), linecharacter%);
            LOCATE iyy%, ixx%
        END IF
    END IF
    RETURN '---------------------------------------------------------------------
 
    cutcopy:
    IF highlight% THEN
        IF mykey% = 99 OR mykey% = 120 THEN
            _CLIPBOARD$ = MID$(text$, starthighlight% - leftmargin%, highlight% - starthighlight% + 1)
        END IF
 
        IF mykey% = 88 OR mykey% = 120 OR mykey% = 8 OR mykey% = 21248 THEN ' ctrl + x (cut), delete, backspace.
            positioncursor% = starthighlight% - 1 - hscroll%
            texttemp$ = MID$(text$, 1, starthighlight% - leftmargin% - 1) + MID$(text$, highlight% - leftmargin% + 1)
            text$ = texttemp$
            hscroll% = hscroll% - ABS(highlight% - starthighlight%)
            IF hscroll% < 0 THEN hscroll% = 0
            LOCATE , positioncursor%
            GOSUB wash
        END IF
    END IF
    RETURN '---------------------------------------------------------------------
 
    PasteClipboard:
    IF LEN(text$) + LEN(_CLIPBOARD$) <= textmaxlength% THEN
        text$ = MID$(text$, 1, POS(0) - leftmargin% + hscroll%) + _CLIPBOARD$ + MID$(text$, POS(0) - leftmargin% + 1 + hscroll%)
        i% = LEN(_CLIPBOARD$) - (rightmargin% - POS(0))
        positioncursor% = POS(0) + LEN(_CLIPBOARD$) - 1 + CurAdvance%
        IF positioncursor% > rightmargin% THEN
            hscroll% = hscroll% + positioncursor% - rightmargin%
            positioncursor% = rightmargin%
        END IF
        LOCATE , positioncursor%
        GOSUB wash
    ELSE
        BEEP
    END IF
    RETURN '---------------------------------------------------------------------
 
    InsertOverwrite:
    IF overwrite% = 0 THEN
        overwrite% = -1
        LOCATE , , 1, 7, 30
    ELSE
        overwrite% = 0
        LOCATE , , 1, 7, 7
    END IF
    RETURN
    ' End Key Controls-------------------------------------------------------
 
    mouseroutine:
    DO ' Falk loop
        IF shiftclick% THEN
            IF shiftclick% > 0 THEN mykey% = 19712: shiftclick% = shiftclick% - 1 ELSE mykey% = 19200: shiftclick% = shiftclick% + 1
            EXIT DO ' To Return
        END IF
 
        IF _KEYDOWN(100303) OR _KEYDOWN(100304) THEN shift% = -1 ELSE shift% = 0
 
        IF my% > margin.t + page.h OR my% <= margin.t THEN
            IF my% > margin.t + page.h + 2 AND hlf% THEN ' Unhighlight file in display window.
                j% = -999: GOSUB highlightfile ' hlf% is in statement above
                tabx% = 2
                LOCATE w1% + w3% - 4 - 3, w2% + 15, 1 ' Move to text input field.
            END IF
 
            IF pete = 0 THEN ' Exclude this routine from find / find and replace functions.
                IF NOT drag% THEN
                    IF my% = w1% AND mx% = w2% + w4% - 2 THEN
                        IF closepop% = 0 THEN
                            LOCATE , , 0
                            IF hlf% THEN j% = -999: GOSUB highlightfile
                            IF oldsmode2 THEN ' doctype dropdown menu is open.
                            ELSE
                                GOSUB clearbuttons: tabx% = 2
                            END IF
                            LOCATE w1% + w3% - 4 - 3, w2% + 15
                            GOSUB wash
                            COLOR 15, 4
                            LOCATE w1%, w2% + w4% - 2
                            PRINT "x";
                            closepop% = -1
                            LOCATE w1% + w3% - 4 - 3, w2% + 15, 1
                            COLOR textfg%, textbk%
                        END IF
                    ELSE
                        IF closepop% THEN
                            iyy% = CSRLIN: ixx% = POS(0)
                            closepop% = 0
                            COLOR 15, 1
                            LOCATE w1%, w2% + w4% - 2, 0
                            PRINT "x";
                            LOCATE iyy%, ixx%, 1
                            COLOR textfg%, textbk%
                        END IF
                    END IF
 
                    SELECT CASE SMODE
                        CASE 3 ' doctypedropdown menu open.
                            FOR i% = 1 TO UBOUND(doctype$)
                                IF my% = doctypey%(i%) AND mx% >= ABS(doctypex%(i%)) AND mx% < ABS(doctypex%(i%)) + LEN(doctype$(i%)) THEN
                                    IF doctypex%(i%) > 0 THEN
                                        COLOR 0, 3: LOCATE doctypey%(i%), doctypex%(i%), 0
                                        PRINT doctype$(i%);
                                        doctypex%(i%) = -doctypex%(i%)
                                        COLOR textfg%, textbk%
                                    END IF
                                ELSE
                                    IF doctypex%(i%) < 0 THEN
                                        doctypex%(i%) = ABS(doctypex%(i%))
                                        iyy% = CSRLIN: ixx% = POS(0)
                                        COLOR 7, 0: LOCATE doctypey%(i%), doctypex%(i%), 0
                                        PRINT doctype$(i%);
                                        LOCATE iyy%, ixx%, 0
                                        COLOR textfg%, textbk%
                                    END IF
                                END IF
                            NEXT
                        CASE ELSE
                            j% = 0
                            FOR i% = 1 TO UBOUND(formbutton$)
                                IF my% = formbuttony%(i%) AND mx% >= ABS(formbuttonx%(i%)) AND mx% < ABS(formbuttonx%(i%)) + LEN(formbutton$(i%)) THEN
                                    IF formbuttonx%(i%) > 0 THEN
                                        iyy% = CSRLIN: ixx% = POS(0)
                                        COLOR 0, 3: LOCATE formbuttony%(i%), formbuttonx%(i%), 0
                                        PRINT formbutton$(i%);
                                        formbuttonx%(i%) = -formbuttonx%(i%)
                                        j% = -1
                                        IF iyy% = w1% + w3% - 4 - 3 THEN LOCATE iyy%, ixx%, 1 ELSE LOCATE iyy%, ixx%, 0
                                        COLOR textfg%, textbk%
                                    END IF
                                ELSE
                                    formbuttonx%(i%) = ABS(formbuttonx%(i%))
                                    iyy% = CSRLIN: ixx% = POS(0)
                                    COLOR 1, 7: LOCATE formbuttony%(i%), formbuttonx%(i%), 0
                                    PRINT formbutton$(i%);
                                    IF iyy% = w1% + w3% - 4 - 3 THEN LOCATE iyy%, ixx%, 1 ELSE LOCATE iyy%, ixx%, 0
                                    COLOR textfg%, textbk%
                                END IF
                                IF formbuttonx%(i%) < 0 THEN j% = -1 ' Used below to designate a button is highlighted.
                            NEXT
 
                            IF tabx% >= 3 AND tabx% <= 5 AND j% = 0 THEN
                                COLOR 0, 3: LOCATE formbuttony%(tabx% - 2), ABS(formbuttonx%(tabx% - 2)), 0
                                PRINT formbutton$(tabx% - 2);
                            END IF
                    END SELECT
                END IF
            END IF
 
            IF mb.l THEN
                IF closepop% THEN action$ = "close": EXIT DO ' To Return
 
                IF NOT drag% THEN
                    IF oldsmode2 THEN ' Doctype dropdown menu is open.
                        FOR i% = 1 TO UBOUND(doctype$)
                            IF doctypex%(i%) < 0 THEN
                                GOSUB close_doctype_dropdown
                                GOSUB doctype_selected
                                doctypex%(i%) = ABS(doctypex%(i%))
                            END IF
                        NEXT
                    END IF
 
                    FOR i% = 1 TO UBOUND(formbutton$) ' Check control buttons.
                        IF formbuttonx%(i%) < 0 THEN
                            IF my% = formbuttony%(i%) AND mx% >= ABS(formbuttonx%(i%)) AND mx% <= ABS(formbuttonx%(i%)) + LEN(formbutton$(i%)) THEN
                                formbuttonx%(i%) = ABS(formbuttonx%(i%))
                                SOUND 1000, .1
                                LOCATE , , 0
                                SELECT CASE i%
                                    CASE 1 ' Open doctype dropdown menu.
                                        GOSUB popfiletypes
                                    CASE 2 ' Open button.
                                        SELECT CASE config%
                                            CASE 1
                                                action$ = "open file"
                                            CASE 2
                                                action$ = "save as"
                                        END SELECT
                                        '''myfile$ = text$
                                        EXIT DO ' To Return.
                                    CASE 3 ' Cancel button.
                                        action$ = "cancel": EXIT DO ' To Return.
                                END SELECT
                            END IF
                        END IF
                    NEXT
                END IF
 
                IF mx% > leftmargin% + LEN(text$) THEN EXIT DO ' To Return
 
                IF click_l% >= 0 THEN
                    click_l% = -1
                    IF highlight% AND NOT shift% THEN GOSUB wash
                END IF
 
                IF shift% THEN
                    SELECT CASE mx%
                        CASE IS > POS(0): mykey% = 19712: shiftclick% = mx% - POS(0) - 1
                        CASE IS = POS(0): mykey% = 0
                        CASE IS < POS(0): mykey% = 19200: shiftclick% = mx% - POS(0) + 1
                    END SELECT
                    IF mykey% THEN EXIT DO ' To Return
                END IF
            ELSE
                IF click_l% = -1 THEN click_l% = 1: drag% = 0
            END IF
 
            IF click_l% = -1 THEN
                IF mx% = POS(0) THEN
                    drag% = -1
                ELSE
                    IF my% = CSRLIN AND drag% = 0 THEN
                        IF pete THEN
                            ' Cursor was already placed in popup sub.
                        ELSE
                            LOCATE my%, mx% ' Click in input field. '''''''' DOESN'T mx% NEED TO BE LIMITED IN OLD ROUTINE, TOO???
                        END IF
                    END IF
                END IF
            END IF
 
            IF drag% THEN
                shift% = -1
                SELECT CASE mx%
                    CASE IS > POS(0): mykey% = 19712: IF mx% > rightmargin% THEN _DELAY .05
                    CASE IS = POS(0): mykey% = 0
                    CASE IS < POS(0): mykey% = 19200: IF mx% < leftmargin% THEN _DELAY .05
                END SELECT
            END IF
 
            EXIT DO ' To Return
 
        ELSE
 
            DO
                IF SMODE = 3 THEN EXIT DO
                IF my% > margin.t AND my% - margin.t <= page.h AND mx% > margin.l AND mx% < margin.l + page.w THEN
                    tabx% = 1: GOSUB clearbuttons
                    IF mb.l AND NOT lbdown% THEN
                        IF my% = CSRLIN THEN ' File Selected
                            lbdown% = -1
                            GOSUB fileselected
                            EXIT DO
                        END IF
                    ELSE
                        IF mb.l = 0 THEN lbdown% = 0
                    END IF
 
                    IF hlf% = 0 THEN
                        row = my% - margin.t: j% = 0: GOSUB highlightfile
                    ELSEIF oldmy% > my% AND my% - margin.t <= page.h AND row > 1 THEN
                        i% = my%: IF i% - margin.t > 0 THEN
                            LOCATE oldmy%: row = CSRLIN - margin.t
                            DO UNTIL CSRLIN <= i%
                                row = row - 1: j% = 0: GOSUB highlightfile
                            LOOP
                        END IF
                    ELSEIF oldmy% AND oldmy% < my% AND row < page.h THEN
                        i% = my%: IF i% - margin.t <= page.h THEN
                            LOCATE oldmy%: row = CSRLIN - margin.t
                            DO UNTIL CSRLIN >= i%
                                row = row + 1: j% = 0: GOSUB highlightfile
                            LOOP
                        END IF
                    END IF
                END IF
 
                ' ------------------------------------Mouse----------------------------------
 
                IF locked% < 0 THEN ' Mouse effects on mouse lock. key press effects are determined at inkey$ input, as key variable cannot be evaluated here, due to b$ = "" manipulations in the keypress routine.
                    IF mb.l OR mb.r OR mb.m THEN locked% = 0
                END IF
 
                IF mb.w THEN ' Determine if wheel is being used to scroll highlighted or unhighlighted text.
                    GOSUB clearbuttons
                    tabx% = 1 ' Reset tab index when mouse wheel is engaged.
                    locked% = 2 ' 2 is lock scrollbar, no highlighting permitted.
                END IF
 
                IF mb.l AND locked% <> 1 OR mb.w AND locked% <> -1 THEN
                    tabx% = 1
                    IF mb.l THEN GOSUB clearbuttons
                    ' Scrollbar routine.
                    IF mx% >= scrb.l - 1 AND mx% <= scrb.l + 1 AND my% - (scrb.t + 1) >= scrb.x AND my% - (scrb.t + 1) <= scrb.x + scrb.s - 1 THEN draglock% = -1
 
                    IF draglock% = -1 AND my% > scrb.t AND my% < scrb.b OR mx% = scrb.l AND scrb.s <> 0 AND my% >= scrb.t AND my% <= scrb.b AND mb.w = 0 OR scrbardrag% <> 0 AND my% > scrb.t AND my% < scrb.b AND mb.w = 0 OR mb.w > 0 AND scrb.x + scrb.s < scrb.h OR mb.w < 0 AND scrb.x > 0 THEN ' Mouse on scrollbar, doing a bar cursor drag or using the scroll wheel.
                        locked% = 2 ' Locked on scrollbar
                        IF my% = scrb.t AND scrb.x > 0 OR my% = scrb.b AND scrb.x + scrb.s < scrb.h OR mb.w <> 0 AND scr + page.h < noe THEN ' Mouse on a scrollbar arrow.
                            IF my% = scrb.t AND mb.w = 0 OR mb.w < 0 THEN scrb.x = scrb.x - 1: h% = -1 ELSE scrb.x = scrb.x + 1: h% = -2 ' Top or bottom arrow.
                            IF mb.w = 0 THEN delay.on! = .15
                            j% = INT(scrb.x * ((noe - scrb.d) / (scrb.h - scrb.s)))
 
                            IF j% >= 0 THEN ' Condition exists unless j% is negative such as doc is blank and mouse wheel is rolled downward.
                                scrb.i = j%
 
                                scr = scrb.i
 
                                '''h% = 0: CALL scrollbar_update(h%, scrb, noe, row, scr) ' Positions scrollbar box.
 
                                GOSUB scrollscrn
                            END IF
 
                        ELSEIF my% - (scrb.t + 1) >= scrb.x AND my% - (scrb.t + 1) <= scrb.x + scrb.s - 1 AND scrbardrag% = 0 THEN ' Mouse on scrollbar block.
                            scrbardrag% = -1: scrb.adjust = (my% - (scrb.t + 1)) - scrb.x
                        ELSEIF draglock% = -1 AND my% > scrb.t AND my% < scrb.b OR my% > scrb.t AND my% < scrb.b THEN ' Mouse on scrollbar between scrollbar arrow and cursor.
                            IF draglock% = -1 AND my% > scrb.t AND my% < scrb.b OR my% - (scrb.t + 1) - scrb.adjust >= 0 AND my% - (scrb.t + 1) + scrb.s - scrb.adjust <= scrb.h AND scrbardrag% <> -1 OR scrbardrag% = 0 THEN
                                IF scrbardrag% = 0 THEN ' No drag, so adjust for cursor length for a click inside the scrollbar above or below the current scrollbar cursor position.
                                    IF my% - (scrb.t + 1) > scrb.x THEN
                                        scrb.adjust = (my% - (scrb.t + 1)) - scrb.x - 1: h% = -1
                                    ELSE
                                        scrb.adjust = (my% - (scrb.t + 1)) - scrb.x + 1: h% = -2
                                    END IF
                                END IF
                                scrb.x = my% - (scrb.t + 1) - scrb.adjust
                                scrb.i = INT(scrb.x * ((noe - scrb.d) / (scrb.h - scrb.s)))
 
                                scr = scrb.i
 
                                '''h% = 0: CALL scrollbar_update(h%, scrb, noe, row, scr)
 
                                GOSUB scrollscrn
 
                            ELSE ' Scrollbar is at top or bottom and mouse cursor is moving vertically along the scrollbar cursor. This allows the variable to readjust.
                                IF mx% = scrb.l THEN scrbardrag% = 0: scrb.adjust = 0: draglock% = 0
                            END IF
                        END IF
                        ' =======================================================
 
                    END IF
 
                    IF delay.on! THEN ' Scrollbar delay.
                        _DELAY delay.on!
                        delay.on! = 0 ' Toggle off.
                    END IF
 
                ELSE
                    scrbardrag% = 0: scrb.adjust = 0: draglock% = 0
                    IF locked% = 2 AND mb.l = 0 THEN locked% = 0
                END IF
                EXIT DO
            LOOP
        END IF
        EXIT DO
    LOOP
    RETURN '---------------------------------------------------------------------
 
    file_display_keys:
    DO '
        IF CSRLIN >= margin.t AND CSRLIN <= margin.t + page.h AND mb.l = 0 OR autokey% THEN
            ' Key commands for form input line.
            IF autokey% = 0 THEN b$ = INKEY$ ELSE b$ = MID$(b$, 3): IF LEN(b$) = 2 THEN autokey% = 0
            IF LEN(b$) THEN
                IF b$ = CHR$(9) THEN GOSUB tabkey: b$ = "": null$ = INKEY$: EXIT DO ' tabx% assignment.
                SELECT CASE MID$(b$, 1, 2) ' File directory window keys.
                    CASE CHR$(0) + "H"
                        IF row > 1 THEN
                            row = row - 1
                            LOCATE margin.t + row, margin.l + 1
                            j% = 0: GOSUB highlightfile
                        ELSE
                            IF scr > 0 THEN
                                scr = scr - 1
                                GOSUB scrollscrn
                                j% = 0: GOSUB highlightfile
                            END IF
                        END IF
                    CASE CHR$(0) + "P"
                        IF tabx% <> 3 THEN
                            IF row < page.h THEN
                                row = row + 1
                                j% = 0: GOSUB highlightfile
                                LOCATE margin.t + row, margin.l + 1
                            ELSE
                                IF scr + page.h < noe THEN
                                    scr = scr + 1
                                    GOSUB scrollscrn
                                    j% = 0: GOSUB highlightfile
                                END IF
                            END IF
                        ELSE
                            ' Arrow down key is highlighted by tabx%. Now open the doctype dropdown menu.
                            GOSUB popfiletypes
                        END IF
                    CASE CHR$(0) + "I"
                        autokey% = -1
                        LOCATE , margin.l + 1
                        k% = page.h - 1 + row - 2
                        FOR j% = 0 TO k%
                            b$ = b$ + CHR$(0) + "H"
                        NEXT
                        FOR j% = 1 TO row - 1
                            b$ = b$ + CHR$(0) + "P"
                        NEXT
                    CASE CHR$(0) + "Q"
                        autokey% = -1
                        LOCATE , margin.l + 1
                        k% = (page.h - 1) + (page.h - row) - 1
                        FOR j% = 0 TO k%
                            b$ = b$ + CHR$(0) + "P"
                        NEXT
                        FOR j% = 1 TO page.h - row
                            b$ = b$ + CHR$(0) + "H"
                        NEXT
                    CASE CHR$(0) + "w" ' Ctrl + Home
                        row = 1
                        IF scr > 0 THEN
                            scr = 0
                            h% = 0: GOSUB scrollscrn
                        END IF
                        LOCATE margin.t + 1, margin.l + 1
                        j% = 0: GOSUB highlightfile
                    CASE CHR$(0) + "u" ' Ctrl + End
                        IF noe > page.h THEN
                            row = page.h
                            scr = noe - row
                            LOCATE margin.t + 1, margin.l + 1
                            h% = 0: GOSUB scrollscrn
                            row = page.h
                            LOCATE margin.t + row, margin.l + 1
                            j% = 0: GOSUB highlightfile
                        ELSE
                            row = noe
                            LOCATE margin.t + row, margin.l + 1
                            j% = 0: GOSUB highlightfile
                        END IF
                    CASE CHR$(13)
                        GOSUB fileselected
                END SELECT
            END IF
        ELSE
            null$ = INKEY$ ' Clear buffer
        END IF
        EXIT DO
    LOOP
 
    RETURN '---------------------------------------------------------------------
 
    '-------------------------------Nested Gosubs-----------------------------
 
    scrollscrn:
    FOR i% = 1 TO page.h
        LOCATE margin.t + i%, margin.l + 1
        PRINT x$(i% + scr);
    NEXT
    LOCATE row + margin.t, margin.l + 1
    IF hlf% AND LEN(b$) < 3 AND scrbardrag% = 0 THEN j% = 0: GOSUB highlightfile
 
    '''h% = 1: CALL scrollbar_update(h%, scrb, noe, row, scr)
 
    RETURN '---------------------------------------------------------------------
 
    highlightfile:
    IF j% = -999 THEN ' Unhighlight text only.
        COLOR 7, 0
        LOCATE margin.t + hlf%, margin.l + 1, 0
        PRINT x$(hlf% + scr);
        hlf% = 0
    ELSE
        IF hlf% THEN
            LOCATE margin.t + hlf%, margin.l + 1, 0
            COLOR 7, 0: PRINT x$(hlf% + scr);
        END IF
        COLOR 1, 3
        LOCATE margin.t + row, margin.l + 1, 0
        PRINT x$(row + scr);
        hlf% = row
        COLOR c1%, c2%
    END IF
    RETURN '---------------------------------------------------------------------
 
    wash:
    starthighlight% = 0
    highlight% = 0
    iyy% = CSRLIN: ixx% = POS(0)
    COLOR textfg%, textbk%
    LOCATE , leftmargin%
    texttemp$ = MID$(text$, (hscroll% + 1), rightmargin% - (leftmargin% - 1))
    PRINT texttemp$ + STRING$(rightmargin% - (leftmargin% - 1) - LEN(texttemp$), linecharacter%);
    LOCATE iyy%, ixx%
    RETURN '---------------------------------------------------------------------
 
    clearbuttons:
    iyy% = CSRLIN: ixx% = POS(0)
    FOR k% = 1 TO UBOUND(formbutton$)
        LOCATE formbuttony%(k%), ABS(formbuttonx%(k%)), 0
        COLOR 1, 7: PRINT formbutton$(k%);
        formbuttonx%(k%) = ABS(formbuttonx%(k%)) ' Remove button active (neg) designation.
    NEXT
    LOCATE iyy%, ixx%
    RETURN '---------------------------------------------------------------------
 
    displaybutton: ' Gosub parameters (i%)
    iyy% = CSRLIN: ixx% = POS(0)
    GOSUB clearbuttons ' Clear all buttons of highlighting first...
    IF i% < 0 THEN COLOR 0, 3 ELSE COLOR 1, 7
    IF tabx% THEN COLOR 0, 3
    IF i% <> 0 THEN
        LOCATE formbuttony%(ABS(i%)), ABS(formbuttonx%(ABS(i%))), 0
        PRINT formbutton$(ABS(i%));
        formbuttonx%(ABS(i%)) = -ABS(formbuttonx%(ABS(i%)))
    END IF
    LOCATE iyy%, ixx%
    RETURN '---------------------------------------------------------------------
 
    fileselected:
    IF noe THEN
        IF hlf% THEN j% = -999: GOSUB highlightfile
 
        text$ = xfull$(row + scr)
 
        IF LEFT$(text$, 2) = ".." OR LEFT$(text$, 1) = "[" THEN
            ' Ready to change diretories.
            IF LEFT$(text$, 2) = ".." THEN
                CHDIR ".."
            ELSE
                CHDIR MID$(text$, 2, LEN(text$) - 2)
            END IF
            action$ = "change dir"
        ELSE
            ' Text input line.
            COLOR 7, 0
            LOCATE w1% + w3% - 4 - 3, w2% + 15: PRINT SPACE$(w4% - 18); ' Blank it.
            LOCATE w1% + w3% - 4 - 3, w2% + 15, 1: PRINT MID$(text$, 1, w4% - 18); ' Display it.
            hlf% = 0
        END IF
    ELSE ' No files found in DIR to select.
        BEEP
    END IF
    RETURN '---------------------------------------------------------------------
 
    popfiletypes:
    LOCATE w1% + w3% - 4 - 3, w2% + 15, 0
    GOSUB wash
    oldsmode2 = SMODE
    SMODE = 3: PCOPY oldsmode2, SMODE: SCREEN 0, 0, SMODE, SMODE
    COLOR 8, 0: LOCATE w1% + 16, w2% + 15 - 1: PRINT CHR$(179);
    COLOR 1, 3: PRINT SPACE$(w4% - 21);
    LOCATE w1% + 16, w2% + 15
    COLOR 1, 3: PRINT doctype$(1);
    COLOR 8, 0: LOCATE w1% + 16, w2% + w4% - 4: PRINT CHR$(179);
    LOCATE w1% + 17, w2% + 14
    COLOR 8, 0: PRINT CHR$(179);
    COLOR 7, 0: PRINT SPACE$(w4% - 18);
    LOCATE w1% + 17, w2% + 15: PRINT doctype$(2);
    COLOR 8, 0: LOCATE , w2% + w4% - 4: PRINT CHR$(179);
    COLOR 8, 0: LOCATE w1% + 18, w2% + 14: PRINT CHR$(192); STRING$(w4% - 19, 196); CHR$(217);
    doctypey%(1) = w1% + 16: doctypex%(1) = w2% + 15
    doctypey%(2) = w1% + 17: doctypex%(2) = w2% + 15
    LOCATE w1% + 16, w2% + 15 ' Text input line.
    RETURN '---------------------------------------------------------------------
 
    doctype_selected:
    SELECT CASE i%
        CASE 1
            COLOR 7, 0: LOCATE w1% + 16, w2% + 15: PRINT SPACE$(w4% - 19); ' Leaves arrow down space.
            LOCATE w1% + 16, w2% + 15: PRINT doctype$(1);
 
            IF doctype$ <> doctype$(1) THEN
                '''doctype$ = doctype$(1): CALL displayfiles(doctype$, x$(), xfull$(), scrb, noe, row, scr)
            END IF
 
            doctype$ = doctype$(1)
            IF doctype% = 2 THEN SWAP doctype$(1), doctype$(2)
            doctype% = 1
 
            LOCATE w1% + 16, w2 + w4% + 4 ' .txt or *.* all files arrow down button location.
            formbuttony%(1) = CSRLIN: formbuttonx%(1) = POS(0): formbutton$(1) = CHR$(25)
 
            i% = 1: GOSUB displaybutton
 
            LOCATE w1% + w3% - 4 - 3, w2% + 15, 1 ' File name input field.
            COLOR textfg%, textbk%
        CASE 2
            COLOR 7, 0: LOCATE w1% + 16, w2% + 15: PRINT SPACE$(w4% - 19); ' Leaves arrow down space.
            LOCATE w1% + 16, w2% + 15: PRINT doctype$(2);
 
            IF doctype$ <> doctype$(2) THEN
                '''doctype$ = doctype$(2): CALL displayfiles(doctype$, x$(), xfull$(), scrb, noe, row, scr)
            END IF
 
            doctype$ = doctype$(2)
            IF doctype% = 1 THEN SWAP doctype$(1), doctype$(2)
            doctype% = 2
 
            LOCATE w1% + w3% - 4 - 3, w2% + 15, 1 ' File name input field.
            COLOR textfg%, textbk%
    END SELECT
 
    RETURN '---------------------------------------------------------------------
 
    close_doctype_dropdown:
    ' Note - Do not use i% in this routine. It would change a perviouly set value i one of the routines that calls this one.
    SMODE = oldsmode2: SCREEN 0, 0, SMODE, SMODE: oldsmode2 = 0
    LOCATE , , 0
    LOCATE w1% + 16, w2% + w4% - 4
    IF tabx% = 3 THEN COLOR 0, 3 ELSE COLOR 1, 7
    IF my% = CSRLIN AND mx% = POS(0) THEN COLOR 0, 3: formbuttonx%(1) = -formbuttonx%(1)
    PRINT formbutton$(1);
    LOCATE w1% + w3% - 4 - 3, w2% + 15, 1 ' File name input field.
    COLOR textfg%, textbk%
    REDIM doctypex%(UBOUND(doctype$)), doctypey%(UBOUND(doctype$))
    RETURN '---------------------------------------------------------------------
 
END SUB
 
SUB find_string
    REDIM x$(20)
    margin.t = 5
    margin.l = 5
    dwidth = 68
    page.h = 6
    row = 1
    noe = 13
 
    x$(1) = "We the People of the United States, in Order to form a more perfect " + CHR$(10)
    x$(2) = "Union, establish Justice, insure domestic Tranquility, provide for " + CHR$(10)
    x$(3) = "the common defence, promote the general Welfare, and secure the " + CHR$(10)
    x$(4) = "Blessings of Liberty to ourselves and our Posterity, do ordain and " + CHR$(10)
    x$(5) = "establish this Constitution for the United States of America." + CHR$(10)
    x$(6) = "" + CHR$(255) + CHR$(10)
    x$(7) = "Article I" + CHR$(10)
    x$(8) = "" + CHR$(255) + CHR$(10)
    x$(9) = "Section 1: Congress" + CHR$(10)
    x$(10) = "" + CHR$(255) + CHR$(10)
    x$(11) = "All legislative Powers herein granted shall be vested in a Congress " + CHR$(10)
    x$(12) = "of the United States, which shall consist of a Senate and House of " + CHR$(10)
    x$(13) = "Representatives." + CHR$(10)
 
    GOSUB displaydoc
 
    DO
        DO
            _LIMIT 30
            b$ = INKEY$
            IF LEN(b$) THEN
                SELECT CASE b$
                    CASE CHR$(27)
                        SYSTEM
                    CASE CHR$(0) + "H"
                        IF scr THEN scr = scr - 1: row = 1: GOSUB displaydoc: GOSUB finder
                    CASE CHR$(0) + "P"
                        IF scr + page.h < noe THEN row = page.h: scr = scr + 1: GOSUB displaydoc: GOSUB finder
                END SELECT
            END IF
        LOOP
    LOOP
 
    displaydoc:
    COLOR 0, 7
    FOR i% = 1 TO page.h
        a1$ = SPACE$(dwidth)
        MID$(a1$, 1) = MID$(x$(i% + scr), 1, INSTR(x$(i% + scr), CHR$(10)) - 1)
        LOCATE margin.t + i%, margin.l + 1
        PRINT a1$
    NEXT
    RETURN
 
    finder:
    FOR i% = 1 TO page.h
        a1$ = SPACE$(dwidth)
        MID$(a1$, 1) = MID$(x$(i% + scr), 1, INSTR(x$(i% + scr), CHR$(10)) - 1)
 
        IF INSTR(LCASE$(a1$), find$) THEN
            COLOR 14, 4: seed% = 0
            DO UNTIL INSTR(seed%, LCASE$(a1$), find$) = 0
                seed% = INSTR(seed%, LCASE$(a1$), find$)
                LOCATE margin.t + i%, margin.l + seed%
                PRINT MID$(a1$, INSTR(seed%, LCASE$(a1$), find$), LEN(find$));
                seed% = seed% + LEN(find$)
            LOOP
        END IF
    NEXT
    COLOR 0, 7
    RETURN
END SUB
 
SUB windowscreen (ENL%)
    IF displayfullscreen% = -1 THEN EXIT SUB
    WINXX1% = CSRLIN: WINYY1% = POS(1)
    winmode$ = "2"
 
    IF ENL% <> 0 THEN
        full = _FULLSCREEN
        IF full = 0 THEN
            SELECT CASE ENL%
                CASE -1: IF SCRNSIZE% > 0 THEN ELSE EXIT SUB
                CASE 1: IF SCRNSIZE% < 14 THEN ELSE EXIT SUB
            END SELECT
        ELSE
            EXIT SUB
        END IF
    END IF
 
    SCRNSIZE% = SCRNSIZE% + ENL%
 
    SELECT CASE winmode$
        CASE "1"
            full = _FULLSCREEN
            IF full <> 0 THEN _FULLSCREEN _OFF
            GOSUB ChangeFont
        CASE "2"
            full = _FULLSCREEN
            IF full <> 0 THEN _FULLSCREEN _OFF
            style$ = "MONOSPACE"
            fontsize% = SCRNSIZE% + 13
            IF fontsize% < 14 THEN winmode$ = ""
            IF fontsize% < 18 THEN style$ = style$ + ", BOLD"
            fontpath$ = ENVIRON$("SYSTEMROOT") + "\fonts\lucon.ttf" 'Find Windows Folder Path.
            GOSUB ChangeFont
        CASE "3"
            GOSUB ChangeFont
            _FULLSCREEN _SQUAREPIXELS
            full = _FULLSCREEN
            IF full = 0 THEN GOSUB nofull
        CASE "4"
            GOSUB ChangeFont
            _FULLSCREEN _STRETCH
            full = _FULLSCREEN
            IF full = 0 THEN GOSUB nofull
    END SELECT
 
    LOCATE WINXX1%, WINYY1%
    EXIT SUB
 
    nofull:
    _FULLSCREEN _OFF
    RETURN
 
    ChangeFont:
    IF winmode$ <> "2" THEN
        _FONT 16 ' Inbuilt 8x16 default font.
        currentf& = _FONT
    ELSE
        currentf& = _LOADFONT(fontpath$, fontsize%, style$)
        _FONT currentf&
    END IF
 
    IF currentf& <> f& AND f& <> defaultf& THEN _FREEFONT f&
    f& = currentf&
    RETURN
 
END SUB
 

Edit: Woohoo, it did fit back into the WP, without any immediate conflicts found. Fingers crossed I can get the two new features displayed and activated just as easily.

Pete

News: