by Pall Thayer
Microcodes are very small code-based artworks. Each one is a fully contained work of art. On this page you can see contributed modifications of the original Microcodes that can be seen here.

Original code:

Enter your name (will be displayed):

Here you can enter extra info, such as warnings if the code can cause damage:

Enter code (must be complete and runnable):

CNN dada
04. March 2009
use LWP::Simple;
system 'clear';
$width = `tput cols`;
$height = `tput lines`;
$text = get('http://rss.cnn.com/rss/edition.rss');
$text =~ s/<[^>]*?>//g;
@words = split(' ', $text);
	($horiz, $vert) = (int(rand($width)), int(rand($height)));
	system 'tput', 'cup', ($vert, $horiz);
	print $words[int(rand(scalar @words))];
Gudmundur Hreidarsson
use LWP::Simple;
$width  = `tput cols`;
$height = `tput lines`;
$text   = get 'http://rss.cnn.com/rss/edition.rss';
$text   =~ s/<[^>]+>//g;
@words  = split ' ', $text;
sub color { "\e[", 31+int(rand(7)), ";40m", @_, "\e[0m" }
  system 'tput', 'cup', int(rand $height), int(rand $width);
  print color $words[int(rand @words)];

back to Microcodes