[NetBehaviour] jasper johns' flag

[james morris]

Perl code by Pall Thyer. Command line formulated by James W. Morris.

$ diff --ignore-all-space --unchanged-line-format="%L" jasperjohns flag
#!/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];
}