#COMPILE EXE
#DIM NONE

FUNCTION PBMAIN () AS LONG

         KILL COMMAND$(2)
         OPEN COMMAND$(1) FOR BINARY AS #1
         OPEN COMMAND$(2) FOR BINARY AS #2
         a$ = SPACE$(36)
         GET #1, ,a$
         a$ = " "
         DIM t AS INTEGER
         t=1
         DIM r AS INTEGER
         DIM g AS INTEGER
         DIM b AS INTEGER
         DIM mdcolor AS INTEGER
         DIM bytecount AS LONG
         bytecount = LOF(1)-36
         pic$ = SPACE$(bytecount)
         GET #1, 37, pic$
         DIM i AS LONG
         CLOSE #1
         PRINT "array reading"
         DIM aPIXELS(1 TO 133056) AS INTEGER
         t = 1
         PRINT bytecount
         FOR i = 1 TO bytecount
            aPIXELS(i) = ASC(MID$(pic$, bytecount-i-1, 1))
         NEXT i
         PRINT i
         bytecount = 198 * 224 * 3
         FOR i = 1 TO bytecount STEP 3


             r = (aPIXELS(i+2))
             SHIFT RIGHT r, 4
             r = r AND &hE
             IF (aPIXELS(i+2) AND &h1F) > 15 THEN r=r+2


             g = (aPIXELS(i+1))
             SHIFT RIGHT g, 4
             g = g AND &hE
             IF (aPIXELS(i+1) AND &h1F) > 15 THEN g=g+2


             b = (aPIXELS(i))
             SHIFT RIGHT b, 4
             b = b AND &hE
             IF (aPIXELS(i) AND &h1F) > 15 THEN b=b+2


             IF r>14 THEN r=14
             IF g>14 THEN g=14
             IF b>14 THEN b=14
             mdcolor = b*256 + g*16 + r
             PUT$ #2, CHR$(INT(mdcolor/256))
             PUT$ #2, CHR$(INT(mdcolor MOD 256))
         NEXT i
         CLOSE

END FUNCTION