No modified codes have been submitted for this Microcode.
Generative
02. March 2009
02. March 2009
#!/usr/bin/perl $width = `tput cols`; foreach(5..$width){ $he = sprintf("%".$_."s", "--=o"); $she = sprintf("%".int($width-$_)."s", "@"); print $he.$she."\n"; select(undef, undef, undef, 0.1); print "\033[2J"; }