#COMPILE EXE
#DIM NONE

FUNCTION PBMAIN () AS LONG

    'rle
    IF COMMAND$ = "" THEN
        INPUT "in?", inf$
        INPUT "out?", ouf$
    ELSE
        inf$=COMMAND$(1)
        ouf$=COMMAND$(2)
    END IF
        OPEN inf$ FOR BINARY AS #1
        OPEN ouf$ FOR BINARY AS #2

        b1$ = " "
        b2$=b1$
        GET #1,,b1$
        GET #1,,b1$
        GET #1,,b1$
        WHILE NOT EOF(1)
        GET #1,,b2$
        IF b1$ <> b2$ THEN
            PUT #2, , b1$
        ELSE
            GET #1, , b2$
            outer$ = STRING$((ASC(b2$)+2), b1$)
            PUT #2, , outer$
            GET #1, , b2$
        END IF
        b1$ = b2$
        WEND

END FUNCTION