FILSEL-V2

' Program developed by Jason Page of Page Telegram 2018.
'_TITLE "FILSEL v2 by Jason Page of Page Telegram, (c) 2018."
DIM forms$(100)
DIM fils$(100000)

tog = 1

max = 48
tt = 38
fed = 0
beg:
SHELL "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 "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 "echo " + forms$(1) + " > exts.xyz"
    FOR i = 2 TO 9
        SHELL "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 "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 "[ENT][ESC][E/*]"
LOCATE 2, 2: PRINT "     "
LOCATE 1 + 1, 2: PRINT forms$(e)
COLOR 15, 0
'IF fils$(1) = "" THEN fils$(1) = "NO FILE"
IF tog = 2 THEN SHELL "DIR/B/S " + forms$(e) + " > zext.xyz" ELSE SHELL "dir/b " + forms$(e) + " > zext.xyz"
OPEN "zext.xyz" FOR INPUT AS #1
DO
    fed = fed + 1
    IF NOT (EOF(1)) THEN INPUT #1, fils$(fed)
LOOP UNTIL EOF(1) OR fed > 99999
CLOSE #1
IF fmax <> 0 THEN
    LOCATE 2, 12: PRINT "                                                   ":
    f$ = RIGHT$(fils$(f), max)
    LOCATE 2, tt - FIX(LEN(f$) / 2)

    PRINT f$
    '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 "                                                   "
f$ = RIGHT$(fils$(f), max)
LOCATE 2, tt - FIX(LEN(f$) / 2)
PRINT f$
'PRINT fils$(f)

DO
    SELECT CASE INKEY$
        CASE "*":
            IF tog = 1 THEN tog = 2 ELSE tog = 1
            SOUND 1100, 1
            SOUND 500, 1
        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
            GOTO beg:
        CASE CHR$(0) + "K"
            f = 1
            fmax = 0
            'PRINT "Left"   Extensions
            IF e > 1 THEN e = e - 1 ELSE SOUND 500, 1: SOUND 1000, 1
            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                   "
            IF tog = 2 THEN SHELL "DIR/B/S " + forms$(e) + " > zext.xyz" ELSE SHELL "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 "                                                   ":
                f$ = RIGHT$(fils$(f), max)
                LOCATE 2, tt - FIX(LEN(f$) / 2)

                PRINT f$
                '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"
            f = 1
            fmax = 0
            'PRINT "Right"  Extensions
            COLOR 0, 15
            IF e < maxc THEN e = e + 1 ELSE SOUND 500, 1: SOUND 1000, 1
            LOCATE 2, 2: PRINT "     "

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

            IF tog = 2 THEN SHELL "DIR/B/S " + forms$(e) + " > zext.xyz" ELSE SHELL "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 "                                                   "
                f$ = RIGHT$(fils$(f), max)
                LOCATE 2, tt - FIX(LEN(f$) / 2)

                PRINT 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 SOUND 500, 1: SOUND 1000, 1
            IF fmax <> 0 THEN
                LOCATE 1 + 1, 12: PRINT "                                                   "
                f$ = RIGHT$(fils$(f), max)
                LOCATE 2, tt - FIX(LEN(f$) / 2)

                PRINT f$

                ' PRINT fils$(f)
                f$ = RIGHT$(fils$(f), max)
                LOCATE 2, tt - FIX(LEN(f$) / 2)

                PRINT f$

            ELSE
                '                PRINT RIGHT$(fils$(f), max)
                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 SOUND 500, 1: SOUND 1000, 1
            IF fmax <> 0 THEN
                LOCATE 1 + 1, 12: PRINT "                                                   ":
                f$ = RIGHT$(fils$(f), max)
                LOCATE 2, tt - FIX(LEN(f$) / 2)

                PRINT f$
                ' PRINT fils$(f)
            ELSE
                LOCATE 1 + 1, 12: PRINT "                                                   ": LOCATE 1 + 1, 12: PRINT "NO FILE              "
            END IF
        CASE CHR$(27): SHELL "del tmp.xyz": SHELL "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
            LOCATE 15, 25: PRINT "                                  ":
    END SELECT
LOOP