Select Code to Download

my $c= getc();
return $c
...
return $c
    if  $c < 0x4000
return getc() + (($c-0x4000)<<8);

sub getc { ord( substr($buf,0,1,'') ); }