No modified codes have been submitted for this Microcode.
For Each (and every) Color
07. April 2010
07. April 2010
#!/usr/bin/perl while(1){ foreach $color (1..256){ $output = "\x1b[48;5;$color"."m"; foreach(0..`tput lines`){ $output .= " " x `tput cols`; $output .= "\n"; } $output .= "\x1b[0m\n"; print $output; select(undef, undef, undef, 0.05); } }