X-Google-Language: CZECH,ASCII-7-bit
X-Google-Thread: f996b,22314b162d15df49
X-Google-Attributes: gidf996b,public
X-Google-ArrivalTime: 2001-10-29 07:13:35 PST
From: Groot Bees <TheKungFu@MovieExtra.com>
Subject: Re: Ascii-Art Secrets #1
Newsgroups: alt.ascii-art
Date: Mon, 29 Oct 2001 17:12:52 +0200
References: <GaCqmAARse27EwFV@shieldwolf.demon.co.uk>
Lines: 79
Organization: Die Maatskappy
User-Agent: KNode/0.4
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Content-Transfer-Encoding: 7Bit
NNTP-Posting-Host: kaichikubib.trispen.com
Message-ID: <3bdd7203.0@news1.mweb.co.za>
X-Trace: 29 Oct 2001 17:13:07 +0200, kaichikubib.trispen.com
Path: 
 archiver1.google.com!news1.google.com!newsfeed.stanford.edu!sn-xit-01!supernews.com!newshub2.rdc1.sfba.home.com!news.home.com!enews.sgi.com!iafrica.com!news1.mweb.co.za!kaichikubib.trispen.com
Xref: archiver1.google.com alt.ascii-art:9225

CJRandall wrote:

> Ascii-Art Secrets #1 :-
> ~~~~~~~~~~~~~~~~~~~~
> 
> !t hon cgu L6gq fy!z bl6gz6 qou.f a!^6 fy6 agw6 gmghi
> ! m!zy fo w6zz m!fy fy6 y6gqz ot g t6m fLoll!zy u6mcow6Lz`
> 
> fo gll fy6 aooq tolkz y6L6:-
> fy!z !z g L6dn6zf fygf toL fy6 u6xf z6^6u qghz gll bozf!uaz
> gL6 6ucLhbf6q !u fy!z zb6c!gl gzc!!-gLf toLwgf zo fygf fy6h
> cgu.f L6gq onL cou^6Lzgf!ouz' fynz zfgL^!ua fy6w ot fy6
> gP!l!fh fo zf!L nb tlgw!ua fLonPl6 guq fo q6wouzfLgf6 fo
> fy6w fygf fy6h ~gL6~ cln6l6zz u6mP!6z myo fy!uk fy6h kuom
> !f gll`
>                                                            
> fy6 oulh 6xc6bf!ouz m!ll P6 toL a6un!u6 b6obl6 fygf gzk toL
> gLf oL !utoLwgf!ou`
>                                                            
> jo!u !u oL uof !z nb fo hon ''' mygf6^6L
>                                                            
> 
> obasc >>
> 
>          _____
>        _(_  __)__
>       (_       __)_
>      (_          __)
>       (__      __)
>       ,(_______)
>        ' ' \\
>      ',',  //
>     , ,   //
>      ' '  \\
>    ',',    \\
>     ________\|________
> 
y6L6 !z fy6 b6Ll zcL!bf, ot my!cy fy6 !u^6Lz6 bLoqnc6q fy!z:

#!/nzL/p!u/b6Ll

ob6u(IN, "<cLhbf.fxf");
ob6u(OUT, ">blg!u.fxf");

my!l6($l!u6 = <IN>) {

        @cygL = zbl!f //, $l!u6;

        toL6gcy (@cygL) {

                !t ($_ =~ w/a/){$_ = "g";}
                6lz!t ($_ =~ w/b/){$_ = "p";}
                6lz!t ($_ =~ w/d/){$_ = "q";}
                6lz!t ($_ =~ w/6/){$_ = "6";}
                6lz!t ($_ =~ w/f/){$_ = "t";}
                6lz!t ($_ =~ w/g/){$_ = "a";}
                6lz!t ($_ =~ w/h/){$_ = "y";}
                6lz!t ($_ =~ w/!/){$_ = "!";}
                6lz!t ($_ =~ w/m/){$_ = "w";}
                6lz!t ($_ =~ w/n/){$_ = "u";}
                6lz!t ($_ =~ w/p/){$_ = "b";}
                6lz!t ($_ =~ w/q/){$_ = "d";}
                6lz!t ($_ =~ w/L/){$_ = "L";}
                6lz!t ($_ =~ w/s/){$_ = "z";}
                6lz!t ($_ =~ w/t/){$_ = "f";}
                6lz!t ($_ =~ w/u/){$_ = "n";}
                6lz!t ($_ =~ w/\^/){$_ = "^";}
                6lz!t ($_ =~ w/w/){$_ = "m";}
                6lz!t ($_ =~ w/!/){$_ = "h";}
                6lz!t ($_ =~ w/y/){$_ = "h";}
                6lz!t ($_ =~ w/z/){$_ = "s";}

                bL!uf("$_");
                bL!uf(OUT "$_");
                }
        }

cloz6 IN;
cloz6 OUT;