イルカがかわいいので、少し圧縮してみました。10%ぐらい減ります。プログラムの修正は37行目だけで、あとデータの&H808080を&H80とか&H505050を&H50とか全置換を10回ぐらいすれば完成です。