Well, all I got were error messages!!! I have Perl 5.6.1 on an SGI...Not pretty at all...

On the windoze box, I got a bunch of Object code [0;30m. ... [0;36m. then an error "Can't locate object method "qaa" via package "my($k,$i ...'

UPDATE:

Error Messages On the SGI:

Number found where operator expected at (eval 1) line 1, near "y($k,$i,$j,$r,$x,$y);for$y(-15..14)(for$x(0..79){print"\e[",$k&15>7?1:0,";3"

String found where operator expected at (eval 1) line 1, near "3",$k%7,""

<---><--->(missing operator before ",$k%7,"?)

Number found where operator expected at (eval 1) line 1, near "",$k%7,"0"

<---><--->(missing operator before 0?)

Backslash found where operator expected at (eval 1) line 1, near "0\"

<---><--->(missing operator before \?)

Bareword found where operator expected at (eval 1) line 1, near "236a"

<---><--->(missing operator before a?)

Thank you for any HELP you can provide, as I have NO clue where these items came from...

I really would like to see this run, as I have a Unix shell window set to the correct dimensions with the black background.

Cheers!

UPDATE 2: Copied these to my Linux platform, Fedora Core 6, and it ran correctly, although, as advertised, you need a dark color background and a 80x31 terminal to appreciate it!

Thanks, Anno Monk...whoever you are, cool display...Cheers! :-D