if(defined($o)) {
    $o=substr(pack("N",$o | ($t{$string}<<12)),1,3);
    print F2 $o; undef $o;
   } else {
    $o=$t{$string};
   }

##</code><code>##

 $r=read(F1, $double, 3); ($double)=unpack(N,"\000$double");
 $old_code=$double & 0xfff; $double >>= 12;