No modified codes have been submitted for this Microcode.
> Intended
19. October 2009
19. October 2009
#!/usr/bin/perl
system 'clear';
($width,$height) = (`tput cols`,`tput lines`);
while($height > 0){
foreach(1..$width/2){
system 'tput', 'cup', $height-$_, int($width*0.5) - int($_*0.5);
print ">" x $_;
}
$height-=1;
}