/* compress.tc - tct - 4/16/2010
/* sample usage: .compress "sptiny.lex","sptiny.lcx"

int cri,optr,cris,nib;char outfile(10000)

compress char f(0),g(0) [
 char infile(10000),byte(1),cm(14),ra(11),crs(1);int br,ptr,rare,i;crs(0)=13
 pl "compress.tc - tct - 4/16/2010";pl ""
 pl "please visit http://primepuzzle.com/tc/compressor.html";pl ""
 strcpy(cm,"EISNATROLDCUGP");cm(14)=10;strcpy(ra,"MHBYFVWKZXQJ")
 br=readfile(f,infile,infile+10000,1)
 while i=index(infile,br,crs,1) [movebl(infile+i,infile+br-1,-1);--br]
 infile(br)=0;outfile(optr)='ÿ';nib=1;ptr=-1
 while ++ptr<br [byte(0)=infile(ptr);rare=0;cri=index(cm,15,byte,1)
  if !cri [rare=1;cri=index(ra,12,byte,1)]
  if nib==1 [
   if rare outfile(++optr)=16*15+cri-1
   else [cris=cri;nib=2]]
  else [
   if rare [outfile(++optr)=16*(cris-1)+15;cris=cri]
   else [outfile(++optr)=16*(cris-1)+cri-1;nib=1]
   ]]
 if nib==2 [outfile(++optr)=16*(cris-1)+15;outfile(++optr)='Ì']
 else outfile(++optr)='ü'
 writefile(g,outfile,outfile+optr,1);pl g;ps " written! ("
 MC br,14;ps " bytes compressed to ";MC optr+1,14;ps " bytes)";pl ""
 ]