[FWP] Just another weird thing

[kpreid@attglobal.net (Kevin Reid)]

#!perl -w
sub chk($){$_=$_[0];s/(.)/${{qw(< lt $),'',' ','',map{$_,$_}'a'..'z',0..
9}}{$1}/eggs;s/(.+)/'t'.$_ x eval$_[0]/e;goto $_;t:}sub set(\$$){${$_[0]
}=$_[1]}sub out($){print$_[0]}sub inc(\$){${$_[0]}++}local$/;$_=<DATA>;s
/chk (.*)/chk '$1'/g;s/\n/;\n/g;eval;die$@if$@;__DATA__;s/\$(\w)/\$$1,/g
        set $v, 0
tvlt10: set $h, 0
thlt79: set $y, (int(-cos($h / 4) * 4) <=> -($v - 5)) + 1
        chk $y
        out ' '
        chk 1
tyy:    out '-'
        chk 1
ty:     out '*'
t1:     inc $h
        chk $h < 79
        out "\n"
        inc $v
        chk $v < 10

==== Want to unsubscribe from Fun With Perl?  Well, if you insist...
==== Send email to <fwp-request@technofile.org> with message _body_
====   unsubscribe