NG NG.net
&aaa($niget);
sub aaa {
local($frames) = @_;
@lines = split /\n/, $frames;
$linenum = @lines;
$fnum = 0; $lnum = 0;
for ($i = 0; $i < $linenum; $i++) {
$_ = $lines[$i];
if (/^[0-9]/) {
$bline = &bs($lnum);
$aaf[$fnum][$lnum-1] .= $bline;
$fnum++;
$lnum = 0;
} elsif ($lines[$i] eq "E") {
$bline = &bs($lnum);
$aaf[$fnum][$lnum-1] .= $bline;
$fnum++;
} else {
$aaf[$fnum][$lnum] = $lines[$i] . "\n";
$lnum++;
}
}
for ($i=0;$i<$fnum;$i++) {
for($j=0;$j<300;$j++) {
for ($k=0;$k<$lnum;$k++) {
print $aaf[$i][$k];
}
}
}
}
sub bs {
local($num) = @_;
local($bs) = "";
local($i);
for ($i = 0; $i < $num; $i++) {
$bs = $bs . "A\r";
}
return $bs;
}