FILSEL

' Program developed by Jason Page of Page Telegram 2018.
_TITLE "FILSEL v1 by Jason Page of Page Telegram"
DIM forms$(100)
DIM fils$(10000)
SHELL _HIDE "dir/b exts.xyz > tmp.xyz"
OPEN "tmp.xyz" FOR INPUT AS #1
IF NOT (EOF(1)) THEN INPUT #1, ot$
CLOSE #1
IF ot$ <> "exts.xyz" THEN

    SHELL _HIDE "echo. > exts.xyz"

    forms$(1) = "*.TXT"
    forms$(2) = "*.CSV"
    forms$(3) = "*.INI"
    forms$(4) = "*.RTF"
    forms$(5) = "*.ME "
    forms$(6) = "*.BAS"
    forms$(7) = "*.PHP"
    forms$(8) = "*.   "
    forms$(9) = "*.*  "
    maxc = 9
    SHELL _HIDE "echo " + forms$(1) + " > exts.xyz"
    FOR i = 2 TO 9
        SHELL _HIDE "echo " + forms$(i) + " >> exts.xyz"
    NEXT i

ELSE
    c = 0
    OPEN "exts.xyz" FOR INPUT AS #1
    DO

        IF NOT (EOF(1)) THEN
            c = c + 1
            INPUT #1, forms$(c)
        END IF
    LOOP UNTIL EOF(1) OR c > 99
    maxc = c
    CLOSE #1
END IF
SHELL _HIDE "echo. > zext.xyz"
CLS
e = 1: f = 1
COLOR 14, 1
LOCATE 1, 1: PRINT "FILSEL by Page Telegram. Select your file & with what program to launch it with."
COLOR 14, 0
LOCATE 1 + 1, 1: PRINT "<     >  /\                                                   \/ ";
COLOR 0, 15
PRINT "[ENTER][ESC][E]"
LOCATE 2, 2: PRINT "     "
LOCATE 1 + 1, 2: PRINT forms$(e)
COLOR 15, 0
IF fils$(1) = "" THEN fils$(1) = "NO FILE"
SHELL _HIDE "dir/b " + forms$(e) + " > zext.xyz"
OPEN "zext.xyz" FOR INPUT AS #1
DO
    IF NOT (EOF(1)) THEN INPUT #1, fils$(f)
LOOP UNTIL EOF(1)
CLOSE #1
IF fmax <> 0 THEN
    PRINT 1, 12: PRINT "                                                   ":
    LOCATE 2, 34 - FIX(LEN(fils$(f)) / 2): PRINT fils$(f)
ELSE
    LOCATE 1 + 1, 12: PRINT "                                                   ": LOCATE 1 + 1, 12: PRINT "NO FILE"
END IF

COLOR 15, 0
LOCATE 2, 12: PRINT "                                                   "
LOCATE 2, 34 - FIX(LEN(fils$(f)) / 2): PRINT fils$(f)


DO
    SELECT CASE INKEY$
        CASE "E", "e"

            COLOR 15, 8
            LOCATE 15, 25: PRINT "                                  ": LOCATE 15, 25: INPUT "Open Using (try notepad)>", cmds$
            IF LEN(cmds$) <> 0 THEN SHELL cmds$ + " exts.xyz" ELSE SHELL "notepad exts.xyz"
            COLOR 15, 0

        CASE CHR$(0) + "K"
            fmax = 0
            'PRINT "Left"   Extensions
            IF e > 1 THEN e = e - 1 ELSE BEEP
            COLOR 0, 15
            LOCATE 2, 2: PRINT "     "
            LOCATE 1 + 1, 2: PRINT forms$(e)
            COLOR 15, 0
            IF LEN(fils$(1)) = 0 THEN LOCATE 12, 1: PRINT "NO FILE                   "
            SHELL _HIDE "dir/b " + forms$(e) + " > zext.xyz"
            OPEN "zext.xyz" FOR INPUT AS #1
            DO
                IF NOT (EOF(1)) THEN
                    fmax = fmax + 1: INPUT #1, fils$(fmax):
                END IF

            LOOP UNTIL EOF(1)
            CLOSE #1
            IF fmax >= 1 THEN
                LOCATE 1 + 1, 12: PRINT "                                                   ":
                LOCATE 2, 34 - FIX(LEN(fils$(f)) / 2)
                PRINT fils$(f)
            ELSE
                LOCATE 1 + 1, 12: PRINT "                                                   ": LOCATE 1 + 1, 12: PRINT "NO FILE"
            END IF

            'LOCATE 1+1, 12: PRINT fils$(f)

        CASE CHR$(0) + "M"
            fmax = 0
            'PRINT "Right"  Extensions
            COLOR 0, 15
            IF e < maxc THEN e = e + 1 ELSE BEEP
            LOCATE 2, 2: PRINT "     "

            LOCATE 1 + 1, 2: PRINT forms$(e)
            COLOR 15, 0

            SHELL _HIDE "dir/b " + forms$(e) + " > zext.xyz"
            OPEN "zext.xyz" FOR INPUT AS #1
            DO
                IF NOT (EOF(1)) THEN
                    fmax = fmax + 1: INPUT #1, fils$(fmax):
                END IF
            LOOP UNTIL EOF(1)
            CLOSE #1
            IF fmax >= 1 THEN
                LOCATE 1 + 1, 12: PRINT "                                                   "
                LOCATE 2, 34 - FIX(LEN(fils$(f)) / 2)
                PRINT fils$(f)

            ELSE
                LOCATE 1 + 1, 12: PRINT "                                                   ": LOCATE 1 + 1, 12: PRINT "NO FILE              "
            END IF

            '         LOCATE 1+1, 12: PRINT fils$(f)

        CASE CHR$(0) + "H"
            COLOR 15, 0
            'PRINT "Up"     Files
            IF f > 1 THEN f = f - 1 ELSE BEEP
            IF fmax <> 0 THEN
                LOCATE 1 + 1, 12: PRINT "                                                   ": LOCATE 2, 34 - FIX(LEN(fils$(f)) / 2): PRINT fils$(f)
            ELSE
                LOCATE 1 + 1, 12: PRINT "                                                   ": LOCATE 1 + 1, 12: PRINT "NO FILE              "
            END IF

        CASE CHR$(0) + "P"
            COLOR 15, 0
            'PRINT "Down"   Files
            IF f < fmax THEN f = f + 1 ELSE BEEP
            IF fmax <> 0 THEN
                LOCATE 1 + 1, 12: PRINT "                                                   ": LOCATE 2, 34 - FIX(LEN(fils$(f)) / 2): PRINT fils$(f)
            ELSE
                LOCATE 1 + 1, 12: PRINT "                                                   ": LOCATE 1 + 1, 12: PRINT "NO FILE              "
            END IF
        CASE CHR$(27): SHELL _HIDE "del tmp.xyz": SHELL _HIDE "del zext.xyz": SYSTEM
        CASE CHR$(13)
            COLOR 15, 8
            LOCATE 15, 25: PRINT "                                  ": LOCATE 15, 25: INPUT "Open Using>", cmds$
            SHELL cmds$ + " " + fils$(f)
            COLOR 15, 0
    END SELECT
LOOP