Microcodes
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):

No modified codes have been submitted for this Microcode.

Flag
Terminal must use utf8 encoding to get the full effect.
20. September 2009 
#!/usr/bin/perl
binmode STDOUT, ':utf8';
@colors = ("\e[0;31m", "\e[0;34m");
@symbols = (chr(0x268c), chr(0x272a));
while(1){
    ($x, $y) = (int(rand(`tput cols`)), int(rand(`tput lines`)));
    system 'tput', 'cup', $y, $x;
    $select = int(rand(2));
    print $colors[$select].$symbols[$select];
}

back to Microcodes