Sorry your browser is not supported!

   for n = 1 to size step 4
        if n < size - 3
            count = count + 1
            i[count] = readInteger(f)
        endif
        if count = 1024
            myStr$ = ""
            for x = 1 to 1024
                valf# = i[x] / 1000.0
                val1 = trunc(valf#)
                valf# = i[x] / 100.0
                val2 = trunc(valf#) - (val1 * 10)
                valf# = i[x] / 10.0
                val3 = trunc(valf#) - (val1 * 100) - (val2 * 10)
                val4 = i[x] - (val1 * 1000) - (val2 * 100) - (val3 * 10)
                myStr$ = myStr$ + chr(val1) + chr(val2) + chr(val3) + chr(val4)
            next x

            writeString(f2,myStr$)
            count = 0
        endif
    next n

// setup constant for file size
#constant _MAX_CHUNK_ 4096

// whatever other stuff
// this is the bits for creating the file
   // get the size of the source file
   ifsiz = GetFileSize(f)

   // process it in _MAX_CHUNK_ byte chunks
   for n = 1 to ifsiz step _MAX_CHUNK_
     // create your new file here
     f2 = OpenToWrite("<your file>")

     // calculate the end point for this chunk
     k = n + _MAX_CHUNK_

     // if it is past the file size reset it
     if k > ifsiz then k = ifsiz

     // process in 'groups' of 4
     for j = n to k step 4
        // write the integer value as it comes from the source file
        writeInteger(f2,readInteger(f))
     next j

     // close the target file
     CloseFile(f2)

     // do whatever with the file just created
   next n

rem open file
openToRead(1,"original.png")
size = GetFileSize(1)
dim byt[size/4] as integer
read = 4
count = 1
byt[count] = readInteger(1)
while read<size
    read = read + 4
    inc count
    byt[count] = readInteger(1)
endwhile
closeFile(1)

rem create new file
openToWrite(1,"new.png")
for i=1 to count
    writeInteger(1,byt[i])
next
closeFile(1)

end