#983 Data Compression

[Albert Redditt]

Albert Redditt Here...

I finally got a working compressor..
Since 2014 , I've been working 8 plus hours a day on different formulas..

Albert Redditt Zip ( ARZ )

( !!~~YAHOO~~!! )

I got a worker..... Compresses any size file down to just under 1,600 bytes..

( Recursive Lossless Random Data Compression )

Here's the main encoding loop:

dim as string *8 n1 = "00000000"
dim as string m1
dim as ubyte in
for a as longint = 0 to len( chrs ) - 1 step 1

in = chrs[a]

n1[7] = ( in mod 2 ) + 48 : in = in shr 1
n1[6] = ( in mod 2 ) + 48 : in = in shr 1
n1[5] = ( in mod 2 ) + 48 : in = in shr 1
n1[4] = ( in mod 2 ) + 48 : in = in shr 1
n1[3] = ( in mod 2 ) + 48 : in = in shr 1
n1[2] = ( in mod 2 ) + 48 : in = in shr 1
n1[1] = ( in mod 2 ) + 48 : in = in shr 1
n1[0] = ( in mod 2 ) + 48

m1 = "166"

if n1[0] = 49 then m1[0]-= 1
if n1[1] = 49 then m1[0]+= 2

if n1[2] = 49 then m1[1]-= 2
if n1[3] = 49 then m1[1]-= 3
if n1[4] = 49 then m1[1]+= 1

if n1[5] = 49 then m1[2]-= 2
if n1[6] = 49 then m1[2]-= 3
if n1[7] = 49 then m1[2]+= 1

chrs[a] = val( "&O" + m1 )

next

chrs = Zlibrary.pack( chrs )

Keep looping until it can't get any smaller..

Maybe you guys can un-ban me from the forum now??