#COMPILE EXE
#DIM NONE

FUNCTION PBMAIN () AS LONG

    '''
    IF COMMAND$ = "" THEN EXIT FUNCTION
    MKDIR "out"
    OPEN COMMAND$(1) FOR BINARY AS #1
    a$ = PATHNAME$(NAME, COMMAND$(1))
    b$ = PATHNAME$(PATH, COMMAND$(1))
    b$ = b$ + "out\" + a$
    lol$ = b$
    OPEN b$ FOR BINARY AS #2


    a$ = " "

    PRINT "Echo validity checker.   "
    DIM invalid AS LONG

    WHILE NOT EOF(1)
        GET #1, , a$
        SELECT CASE ASC(a$)
            CASE &H00 TO &H02
                GET #1, , a$
            CASE &H04 TO &H06
                GET #1, , a$
            CASE &H08 TO &H0C
                GET #1, , a$

            CASE &H10 TO &H12
            CASE &H14 TO &H16
            CASE &H18 TO &H1C

            CASE &H20 TO &H22
                GET #1, , a$
            CASE &H24 TO &H26
                GET #1, , a$
            CASE &H28 TO &H2B
                GET #1, , a$

            CASE &H30 TO &H32
                GET #1, , a$
                GET #1, , a$
            CASE &H34 TO &H36
                GET #1, , a$
                GET #1, , a$
            CASE &H38 TO &H3A
                GET #1, , a$
                GET #1, , a$
            CASE &H3B
                GET #1, , a$

            CASE &H40 TO &H42
                GET #1, , a$
            CASE &H44 TO &H46
                GET #1, , a$
            CASE &H48 TO &H4B
                GET #1, , a$

            CASE &HE0 TO &HEB
                PRINT "Invalid " + HEX$(ASC(a$))+" = LOCK CHANNEL is only valid for SFX!"
                invalid = invalid + 1

            CASE ELSE
                PRINT "Invalid " + HEX$(ASC(a$))+"!"
                invalid = invalid + 1
        END       SELECT
    WEND

    CLOSE

    PRINT STR$(invalid)+ " Invalid events detected. Press a key to exit."

END FUNCTION