Select Code to Download

while($m[$p]){
$p-=1;
...
$p+=1;
$m[$p]=ord getc;
print chr$m[$p];

$m[$p-1] += 10 * $m[$p];
$m[$p] = 0;

print getc;