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; }