No modified codes have been submitted for this Microcode.
White on white
Results may vary depending on terminals
26. March 2009
Results may vary depending on terminals
26. March 2009
#!/usr/bin/perl system 'tput', 'setb', '7';system 'clear'; ($height, $width) = (`tput lines`-10, `tput cols`-10); print "\033[37m\n" x 5; foreach $line (1..$height){ print " " x 5; print "*" x $width; print "\n"; } print "\n\033[0m" x 5;