#macro BinaryWrite(D)
  #local lp = 1;
  #while (lp<=strlen(D))
    #local C = substr(D, lp, 1);
    
    #switch (asc(C))
      #case (asc("0")) #write(Dst, "0, 0, 0, 0,\n") #break
      #case (asc("1")) #write(Dst, "0, 0, 0, 1,\n") #break
      #case (asc("2")) #write(Dst, "0, 0, 1, 0,\n") #break
      #case (asc("3")) #write(Dst, "0, 0, 1, 1,\n") #break
      #case (asc("4")) #write(Dst, "0, 1, 0, 0,\n") #break
      #case (asc("5")) #write(Dst, "0, 1, 0, 1,\n") #break
      #case (asc("6")) #write(Dst, "0, 1, 1, 0,\n") #break
      #case (asc("7")) #write(Dst, "0, 1, 1, 1,\n") #break
      #case (asc("8")) #write(Dst, "1, 0, 0, 0,\n") #break
      #case (asc("9")) #write(Dst, "1, 0, 0, 1,\n") #break
      #case (asc("A")) #write(Dst, "1, 0, 1, 0,\n") #break
      #case (asc("B")) #write(Dst, "1, 0, 1, 1,\n") #break
      #case (asc("C")) #write(Dst, "1, 1, 0, 0,\n") #break
      #case (asc("D")) #write(Dst, "1, 1, 0, 1,\n") #break
      #case (asc("E")) #write(Dst, "1, 1, 1, 0,\n") #break
      #case (asc("F")) #write(Dst, "1, 1, 1, 1,\n") #break
    #end
    
    #local lp = lp + 1;
  #end
#end

#declare FileName = "File2"

#fopen Dst concat(FileName, ".tmp") write
BinaryWrite("5246D5A6613EC7292F5B9B870A5118502118283089F14BBA53D6E6E01CF9E6E3E7ED660C7E381004")
BinaryWrite("561728000200E7D8E7004252FC3A08D046811319962CC18F12738FB55700E0A511850623050C208D")
BinaryWrite("4E638FBECC2F4120F8B48AA1229673D2D55652316915424D704D5E1A32C59831E24E71F6AAE01C28")
BinaryWrite("391850C460A508235398E3EFB30BD048362D22A848A59CF4B555948C5A4550935C1357868CCB8B08")
BinaryWrite("A53E613E71A32AEB807411A08D0208C3467DF439E7DD4FC27FCD598369AFE0A731C7DF661787288C")
BinaryWrite("A234088CFF8B5B5670C9FF84FFFA4696BA6BF44FFF976B631696AAB2A7FFCE36947B137A09079FFF")
BinaryWrite("B71E60C6D1C768250049FFF1B4F4B18B5654FFFDD0B6529EB737820907040E511944681119FF8CFC")
BinaryWrite("66332E2C2294F984F9AC4B6B80F23050C4868CFBE873CFBA9F84FF9AB306D35FC1432940155EA731")
BinaryWrite("C7DF661795A9CC71F7D985E88CFF8B5B5670CE091A5AE9AFD119F8CC665C584529F309F35896D700")
BinaryWrite("A3C8C15049519F18E631C133EFA1CF3EEB81AB306D35FC14E638FBECC2DF9518CFADAFAB5BAE7E13")
BinaryWrite("FE36852D33FF09FFF39497BEAD6D3381446A731C7DF661787288D0468241C40250E3404500E33FFE")
BinaryWrite("2A9A72DE3E7FFE13FFFE6B12D4DCFFFFA9CC71F6246A4D9FFFF84FFFFF81504A35398E3EFB30BD00")
BinaryWrite("69FFFFF02A0906D4E638FBECC2F401A7FFFFC0A5128D4E638FBECC2F280D3FFFF19FFFF094D9BC1E")
BinaryWrite("7D967B29AAAD0483467FFFCE52595A09069FFF8CFFFADAFAB03A58765227FE33F198CCB8B08A53E6")
BinaryWrite("13E6B12DAE01479185005119F18E631C133EFA1CF3EEB81AB306D35FC14E638FBECC2DF9518CFADA")
BinaryWrite("FAB5BAE7E13FE36852D33FF09FFF39497BEAD6D3381446A731C7DF661787411A0907232840250E34")
BinaryWrite("04500E33FFE2A9A72DE3E7FFE13FFFE6B12D4DCFFFFBED2D39897D614320107CFFFC67FFD6D7D581")
BinaryWrite("D2C3B069FF8CFC6632")
#fclose Dst

#declare Codebook= array[128]
{
  "*", "*", "*", "*", "*", "*", "*", "*",
  "*", "*", "*", "*", "*", "1001", "*", "*",
  "*", "*", "*", "*", "*", "*", "*", "*",
  "*", "*", "*", "*", "*", "*", "*", "*",
  "11", "*", "*", "*", "*", "*", "*", "*",
  "000000010", "000000011", "00000100", "0000101", "001000", "00000101", "001001", "0000000000",
  "01000", "001010", "0000110", "000000100", "0000000001", "00000110", "*", "*",
  "00000111", "*", "*", "*", "0000111", "*", "0001000", "*",
  "*", "*", "*", "*", "*", "*", "*", "*",
  "*", "*", "*", "*", "*", "*", "*", "*",
  "*", "*", "*", "*", "*", "*", "*", "*",
  "*", "*", "*", "000000101", "*", "000000110", "*", "0001001",
  "*", "01001", "001011", "01010", "0001010", "1010", "0001011", "001100",
  "0001100", "01011", "00001000", "0000000010", "01100", "0001101", "01101", "01110",
  "001101", "*", "1011", "001110", "01111", "001111", "000000111", "00001001",
  "0001110", "0001111", "0000000011", "10000", "*", "10001", "*", "*"
};

#declare UnpackedBytes = 1263;

#macro Main()
  #local Word = "";
  #local Bytes = 0;
  #while (Bytes<UnpackedBytes)
    #read(Src, BitID)
    #local Bit = str(BitID, 0, 0);
    #local Word = concat(Word, Bit);
    
    #local Index = -1;
    #local lp = 0;
    #while (lp<128)
      #if (strcmp(Word, Codebook[lp])=0) #local Index = lp; #local lp = 200; #end
      #local lp = lp + 1;
    #end
    
    #if (Index>=0)
      #write(Dst, chr(Index))
      #local Word = "";
      #local Bytes = Bytes + 1;
    #end
  #end
#end

#fopen Src concat(FileName, ".tmp") read
#fopen Dst concat(FileName, ".inc") write
Main()
#fclose Dst
#fclose Src

#include concat(FileName, ".inc")