[FWP] A program for de?YH@atqxhp-,"qFx"='`z_FT5_yE_\%:8^&OXS\o%k8bN

[kpreid@attglobal.net (Kevin Reid)]

#!/usr/bin/perl -wT
@c=(1,-1);@d=(0,1);@p=map[split''],split$/,q!
sub f {(sin($_[0]/3) * sin($_[0]/42)*39+40)}V
V}c$}c$<_$ fi _$=c${)_@(rof;tfihs=c$ym{n bus%
&sub x{my$c=shift;for(@_){$c=$_ if $_>$c}$c}V
V)24/i$(nis-(,_$(rtsbus;''%$i++;1elihw'r'=V%f
&*39+40),1)='$';pVX}t%Vx'% V,1+))1+i$(f -)%io
&(sin($i/42)*39+Vr&V n&79 . $/;$n=x(abs(f($^r
,(sin($i/39)*42, &^&i^_:_^' =_${)++i$;;0=i$(%
^  _$(rts%/:ptth&40),1)='$^&1);$s=n(f($i),f(V               
.0.0.721/^bus;n$x'*'=)n$,s$,_$(rtsbus;))1+i$%
!;%d=(q[V],[1,0],q[&],[0,1],q[%],[0,-1],q[^],
[-1,0],q[X],[]);($t=$d{$c=$p[$c[0]+=$d[0]][$c
[1]+=$d[1]]})?@d=@$t:$_.=$c while@d;s//$_/ee;
NO CARRIER

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