WARREN@NCSUVM.BITNET (Warren Lewis) (12/18/87)
[Color Random Art]
This is a little program that a friend of mine whipped up. It
is pretty neat and I thought I should share it with you folks.
========================================================================
Warren Eugene Lewis
Consultant, North Carolina State University
E-mail:
Bitnet : Warren@ncsuvm
Arpa : wel@ncsuvx.ncsu.edu
Us-Mail:
P.O. Box 21523
Raleigh, North Carolina 27607
========================================================================
---
(This file must be converted with BinHex 4.0)
:#%0[E'pb3A*d!%&38%a8C@4-)!#3"a@eYK3!N!3"!*!$&1F!!"2R!*!$cJ#3!`6
rrrZm!*!',e!!!!%f!!!"cJ#3!aJ!!!&3#%0[E'pb3A*dE!)!N!0"8&"-2j!%)3#
3"%%!K3#3"%&38%`rN!3K!*!%33#&!*!3RF1'kJ#3"K@e0I3!N!1+!*!+!C!!!*!
$$2rrql`!N!BfIJ#3!iB!!!(Q!*!$'!!!!C`!N!-%rrrl[!#3"MF%!!!"S!#3#J'
J!*!$(2rrql`!N!BiT!#3!f!!N!S"[!#3!`MrrrZm!*!'133!!"&H!!J!!3C!q%#
Tb5"251FB!#B1+!KK"NcI!"K1G5m,*#hrXQB%*Pp1G5C#Ym0L",I%BJBN+`!!B1T
1ZJ&)5LX!"QF33IS"F$#V!"*"qJ&J6VS""#3V!!"1ZJ!F5S*Ja#m!)![!Z!-D*fh
rXJ!!+d$rXL!I6R8[!5),`VJ$'N2Yrl)J%@F3X)&R"#*!B23J3#+3!#)I6R8`223
fUFPK#QF#6R8`223hUFP)jd#!)#hrXQF3)J[#Z!-DX)&R$L"!)""QpNcI!3*`!%j
e60m"!R!"6R8[#%r[rmj#V`!-,dJ!%N*[!"C#E`!D3HX!&Lp)!"`J6k!!0fm!'!!
%6qm!-L"I5N"R'Ja!rp9Q"(!"6R8-32rTCJ$qmNSV!"&R!2lUF!"1G5m)6qrrcN+
[!!`[5!!53Qm!&N*[!"SJ6k!)6qm!-L"I5N"R$!a!rp"Q!2kkF!&1GA!!6R8[#%r
[rmj#V`!-,dJ!%N*[!"C#E`!D)%qJ#8r[!$)JAdT!C`K+,IqUC`$qKNje5LX!%@B
L6qrrcN+[!!`rD`!%!"JJ6k!"6qm!-NT!C`K+,IqUC`$qA%je#8a68&4PEA!!!!3
a,M*"!&0Yrq!lI!!#rpj#EIrB3UhrXN*YrkSlI$!`rkK1ZJ"!6VS!@%kk!+"1ZJ%
16VS"%La0*Pp+(fFNGJ!f,3!Ji8Y)EIiLU'kSrUN5U6#Tc%+RUAXJ6j($S#e1ZJ%
L6Y0K4QF+Da!lI2rjrka1G6YmrrIrV%je3QhrV%jeB5TR%'XF1hcrprqZ1hcrq2q
`6R8lI2rjrkilI2rkrl"1G8*Yrkj#EIq`6R831!)(CKB31!+4DJ4`!%je!J!!$e-
!C[4`rdjeF!&1G8IYqB4#+`!(#1X!!3!(&h`!!J!481X!$P(V!!C3k`!-8HX!$8+
V!!JhI!!#!"3AI!!0!""1Z[fQ4qhhBN)V!!F)k`#3!`FAI!!"!"&3k`!18HX!"P(
V!!a4k`!03UX!#$Gm!!)!&"Gm!!d!%%kkr@j1G6(m!!d+5Nje3UhrT%je81hrUL!
Yrl*Q#N+Yrl*4lIqUUI3Q3%kkrQK++`!'Ca""q[k3!$#V!"*"q[k!6VVq*#!V!!"
JdNSi!SjU+L"i!6"$q!%8)!L3!*&d$,##C4BL85()!43LJ%)4)RJ#UL+))),4U3!
-6R@JBdje"$%Z-N%!FJ"J!R,r6PErp%KZrr3r2!!AUHXr2'!!5&Fr2!!"UHY86d(
ZrrBLEJ!))0NJf6#488K$lJ!-B8!r2!!%5&Fr2!!EUH[#(fFFFJ!)N!!!"fF%%M`
!J%Kk!#j)8$mm%!#Tki-3B44)E[rd2c`!'DRV6PiJAplm!!41d%K35&%r2#J3UHY
1G6m!N!-%-5ib33!LAb!I,`QJ-Nje,hJ#m!!%6R8[H!,d!!41G8j@rr"1F8ja2cc
rrd*R6VVrePP22c`efd(Yqri[#($r,`#TI#YIqlC#TdKYql+TN5mYqlDTJPP22c`
PG8(Yqri[#($r,`#TI#YIqlC#TdKYql+TN5mYqlDTJNjH6R965%pA38*298j@rZj
1F8ja2A`"&2lZ@8mr2!!"5'lqlUNa+erljLmYqqC)HJ'UU6-[,I[Q,ca%8PC5U8e
C6cmm!!*)HJ'-U6%VAr[U,bhlkNKk!@kT-eP22c`!!dKk!9bT-5YIqqi[,I[Z5(S
"0+Nc@8mr2!!%5(S"(UNa+erlmLmYqr*)HJ$UU60C6cmm!!9)HJ$@U6%VAr[f,bh
lpNKk!*bT-eP22c`!"NKk!)bT-5YIqrS[,I[k5(S!EUNc3QlrlM!Zrqj53%jf8d"
1GP*!28$rlM!Zrqib!&0"3l`!"H9!"N$liLme!!"#CkNe$'i!"[rZCX`[,I[b3QH
T1UNh,bhllMmm!!%I2!!"U88[,I[f2c`!!amm!!'T48jH6R9649498%e&6Jp6G'&
bG$XS,6Y5B@jNEfd#4fm@+dCTE'`l+#dl3QaKBfXl4'XZ)%GbBANJ1dGbBANl6(3
Z)%GbBANl9fKTG'8(8'&dG'9bEL43C@iJ6'9ZCh4S1e"PEL"AD@4dD$XS,6Y5CA"
PG'PdD@pZFb!@#%CPBA4eFQ9c&KK-D@jP1e*PBh4KEQGXC5!l6hCKE$Y"FQ-@"90
SBA"P$N0XC@&b)$XS,6Y4G@Pd&J4'D@aP&KG"BQpeG#"5B@jNEfdJ3A*d,T!$)$X
S,8j@rq"1F8ja@8p96kKK-"mpI"'drqa)E[rX28$rkNKZrqT)E[rJ2c`J$URV5'l
ri$mm)!DTkdKZrq"1Z[c8)"pU!N5!JI`!!8jf8d"1GP*!28$rlJaZ!!(rlQB!!!a
`(Lm!U'*J!!#+$'i!![rZCJ!!$Lmm!*!$cDKLB!!!G!aZ!!2rlQB!!!i[2!!!!9@
SBQ!!!&i-EJ!%rqjQ!!!1,c`!!!'CU'*J!!")$'i!"IrZCJ!!$Lmm!!!"%DKLB!!
!-JaZ!!ErlQB!!!i[2!#3!iQSBQ!!!"`-EJ!(rqjQ!!!-F%8[!+KLB!!!#(!K,`#
SBNjH6R9(494$6da28Nj@rq*1F8ja@8p96kKK-"mpI!"!rqj)E[rZ28$rl%KZrqa
)E[rL2c`J$URV5'lriMmm)!DTkdKZrq*1Z[[B)"pU!N5!JI`!!8jf8d"1GP*!28!
!#%jH6R9(494198e))%j@rq*1F8ja@8p96kKK-"mpI!"Jrqj)E[rZ28$rl%KZrqa
)E[rL2c`J$URV5'lriMmm)!DTkdKZrq*1Z[Yi)"pU!N5!JI`!!8jf8d"1GP*!28!
!#%jH6R9(494198e@)%j@rq*1F8ja@8p96kKK-"mpI!"Erqj)E[rZ28$rl%KZrqa
)E[rL2c`J$URV5'lriMmm)!DTkdKZrq*1Z[XB)"pU!N5!JI`!!8jf8d"1GP*!28!
!#%jH6R9(494"6NG-48j@rq*1F8ja@8p96kKK-"mpI!&!rqj)E[rZ28$rl%KZrqa
)E[rL2c`J$URV5'lriMmm)!DTkdKZrq*1Z[Ui)"pU!N5!JI`!!8jf8d"1GP*!28!
!#%jH6R9(494659T&)%j@rma1F8ja3QlriM!YqmC63%jf8N!l32ZqF!!3,I[63E`
!!4Y!qp%`,I[#8d"1GP*!1d$l`+K5-#hlaQ!!!aT96dkkrM``(e0!6RC53$e!rqj
96dkkrSS`(e0!6RC53$e!rqa96dkkrKJ`(e0!6RC53$e!rqT96dkkrQB`(e0!6RC
53$e!rqK1Z[ck-#lrlP0!6RC53$m!-#lrl&0!6RC53$m!U*-`,[rU8d"1GP*!2`!
`,[rS8d"1GP*!2`#SN6!Zrq*53%jf8d"1GP*!28$riQ!!!U"96dkkrDB`(e0!6RC
53$e!rqj96dkkrC3`(e0!6RC53$e!rqa96dkkrU)`(p"Zrqj1GP0!6RC53$e!rqT
96dkkrSS`(p"Zrqa1GP0!6RC53$e!rqK)E[rD-#lrlP0!6RC53$m!-#lrl&0!6RC
53$m!-#lrkP0!6RC53$m!-#lrk&0!6RC53$m!U+G1Z[`L5'lrfULK$#d!!I[6CJ!
!#%KZrpUSSM!Zrq*53%jf8d"1GP*!28$riQ!!!HC96dkkr1``(e0!6RC53$e!rqj
96dkkr6S`(e0!6RC53$e!rqa96dkkrHJ`(p"Zrqj1GP0!6RC53$e!rqT96dkkrG!
`(p"Zrqa1GP0!6RC53$e!rqK)E[rD-#lrlP0!6RC53$m!-#lrl&0!6RC53$m!-#l
rkP0!6RC53$m!-#lrk&0!6RC53$m!U+G1Z[YS5'lrfULh$#d!!I[6CJ!!#%KZrpU
SZ$!Zrq*53%jf8d"1GP*!28$riQ!!!5a96dkkr$)`(e0!6RC53$e!rqj96dkkr)!
`(e0!6RC53$e!rqa96dkkr5i`(p"Zrqj1GP0!6RC53$e!rqT96dkkr4B`(p"Zrqa
1GP0!6RC53$e!rqK96dkkr*i`(e0!6RC53$e!rqC96dkkr)``(e0!6RC53$e!rq4
)E[rD-#lrlP0!6RC53$m!-#lrl&0!6RC53$m!-#lrkP0!6RC53$m!-#lrk&0!6RC
53$m!U+G1Z[U+5'lrfM!ZrqC63%jf8N!r!$!Zrq463%jf8N!r!+Lq$#d!!I[6CJ!
!)%KZrpS`,[rQ8d"1GP*!2`!`,[rN8d"1GP*!2`#S[c!Zrq*53%jf8d"1GP*!28$
riQ!!!"j63!a!!!4N%Y"!-$X!"Nll!!,me[eXrLEqi%j%$#d!!I[5CJ!"1P92U'%
`(e0!6RC53$Y!qmC+EI['E!!!$"Ym!!(ldf!!!!C#,I[6@8p96kKK-"mpI"QCrpK
)E[rB28$reNKZrpC)E[r-2c`J$URV5'lrc$mm)!DTkdKZrma1Z[Dm)"p5J%jf5S"
U!N5!JI`!!8jf8d"1GP*!1d$laJaY!!AlaQm!!!JlI!!&qmB-E3!"qmCQ!!!)5'h
q%ULG$'d!![['CJ!!#%KYrIUSR3aY!!2laQB!!!K)EIi+U*d-E3!%qmCQ!!!)5'h
q!ULG$'d!"I['CJ!!#%KYrKUSR9P298qSB6!I2A`UU[rB5'lrf$e!rpC)E[r@5'l
rc$mm)!kTkdKZrm`r2#!'UHY)E[r-6VVf#L!IDJ*%J&+!6RD"r!!"6RC63%jf8N!
l32['$'d!"2['E`!!#$Ym!!6laM!Zrq+`EI[%CJ$lH$!Yqlj63%jf8N!l32['F!!
3,I[43E`!!4Y!qp--E3!$qm*Q!!!)5'hq%ULG$'d!"2[#CJ!!#%KYrIUSR3aY!!A
l`QB!!!K)EIi+U*d-E3!'qm*Q!!!)5'hq!ULG$'d!"r[#CJ!!#%KYrKUSR8)Yqp+
S8djH6R9%6dP8)*!%6PEqj%ja6R%`,J!)8d"1GP*!1d$lcM!Z!!T63%jf8N!l32[
--#hlcQ!!!G*J!!(Z$'d!!I[-CJ!!#NkkpEaJ!!!X,bhljM!Yqma63%jf8N!r!%K
ZrZbT4P925'lql+Qf-"p63%jf8N!l32[+B!!"VM!YqmaJ!!!@5'hp6+LMB!!!&KY
m!!(le@!!!!a63'IS98"RlNj%B!!"K$em!!(rl#mYqqi`,[rX8d"1GP*!2`"#*kP
&-#lrl&*!6RC63%jf8N!p32rX$'i!"[rXCY)`,I[-8d"1GP*!1d$laLmYqqi`,I[
-8d"1GP*!2`!I2!!"U89J!!%S$'d!!I[-CJ!!-NSYqp0Q!!!-'h`!!I[6B!!!"N)
Yqp-[,I[f2c`!!A!!%#hldd'm!!%I!+P&B!!!UJaY!!2lc'B!!!K)EIi5U*d-E3!
%qmaQ!!!)5'hpqULG$'d!"I[-CJ!!#%KYrJUSR3aY!!Elc'B!!!K)EIi#U*d-E3!
(qmaQ!!!)5'hq'ULG2A`!!rrX,bhlpM!Zrqa63%jf8N!r!%)RU88`,[rX8N"1GP0
!6RC53$e!rq`-EJ!)rqaQdLmYqrB`,I[-8d"1GP*!2`!I2!!"U88`,I[-8d"1GP*
!1d$l`Q!!!%)-E3!$qmaQ!!!-'h`!!I[5B!!!"N)Yqp*1Z[M+B!!!)Ja!!!GN'0"
!-$X!"Nll!!,q)2iNrQ6qMJ!1rZVrd%j%3QHT1%jH)&pB6dl34%p$6de038j3jdk
km@C19[r`3Hhq)Lm)U'ir22rr3QG1Z[18U2kT%UN`6VVd#UK33UHTHd(YrDj$lIe
-)YJLf&P23HhmU#m)5'hp6%Kk!-3I2!!"3QG#Td)R3UHT%bYIr8J[,Ie)U(0#,I[
91h`!C2[%3LhldcYm!!(laPP2UA8VArfN3LhldMYm!!2l`UQd98mr22rr5'hleUP
`F!!3(d'm!!%E32[8$'d!!I[@CJ!!5&92,bhli%KYr85T,$!I8d"1GP*!1d$lb!a
Y!!(lb'B!!"*C6bmYqq#T28kkr2TJ!!!@$'d!![[)CJ!!$%KYqpB[,Ie%UE--,3!
"qp9QMNjH6VVaY%jH6R9538j%6de"8J!5!*!$)!#3!c!!!!LH!*!$%!#3!b!!3%l
Y!#T1F4"12c`!!DR`!!!"!2q3")!!!!'!!!!"Mi!!JBL!!8')JJ)KL))%%Bq"!L'
!!3&"J!#!JB!!J!'!!%#"J!""!B!!)J'!!#3"J!!B!B!!%!'"J#J"JN")!B3JJ!'
%)3'"JN!'iB'!$9'!!!UKJ!!93B!!'S(q!!e"JJ!+SB)!"h'#!!'"JJ!!!Iq3K!#
3"`G"8&"-!*!'(&4PC%`!N!-"5801)`#3"B"'8N9'!*!&J!#3!d)!!3#3"A3!p`#
)!6-%!Np,!*!&*!"'!'N"!SJL8Q&ZC'pY)%&bG#"f,L!`,M80$8*j)&4PC#"-EhG
PFRNJ$3#3!ji!!3#3"4J!0`"k!4@)I9"XC@&cC5"cC@jN)'&ZH5"cG@GRCA0dD@p
ZFb`JBfpYE@9ZG(-X)'e[EQ9j,#"PG'-JG'mJE@8JBA3k$3dJN!3d0M-a)&4hDA0
dC@3J6f&VFb"%FQPfC3dJN!4"F(3Z)$)`-$30)*!%8Q&XC@PRD#`J6N-J)$)h0M%
b,3#3"A3!p`#)!6-%!Np,!*!$(`"N!'3!qJ'P!!%"!*!("m!+6Q9h)%4TB@a[C`#
3!am!C!"N!2S"T3!"!3#3"beq#NjPGb"%D@&XEfF!!!%!N!-8j`!!%qF!N!21!!)
Ek!+8!*!$(!$1!!C$6d4&!!%!1NP$6L-!N!059'9N6!#3!ej'8N9'!*!$DN*14%`
!N!0f4%P86!!"!)*%6%p(!!%!QJ!"rrmd!*!%!Nli!!$rrb!!%@)!N!@!rrm!!"'
'!!*1p!!!rrm!!"++!*!&J2rr!!!5MJ!#6[!!J2rr!!!5Q3!#6Z`(`2rr!!!5Z3!
#6ZJYI[rr!!!5r`#3"$AErrm!!"1K!!*1h#9errm!!"2%!*!%*Fi:
---