[comp.sys.atari.st] A One-Dimensional Color CA Program

clong@topaz.rutgers.edu (Chris Long) (08/31/89)

Here's a little CA program written by me and a friend many moons ago.
I've included one version for color low-res, and another for color
high-res (better known as low- and med-res, respectively).  I've
also included my desktop.inf, which seems to set the colors rather
nicely for the med-res version.  Have fun!  If you liked this program,
let me know, because I have a bunch of others I could post.

--cut here--

table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 colorca.arc
M&@A#3TQ/4D-!2"Y04D< TP   '0+50 5XLD"   ,8#0  "! $P!(%D !,($&z
M  (4#1DLR3<P@ $-O  $V,!'(X!D0O)4)#"QHH$F%#5"Z\;OX(  .'*-S-$1y
MT@ !0HIHZ*"MA48&10 \:#,0!(>6 &QD!  J@!0V!!E 14;0#(!_W)Q0M F(x
M0S$;A9H^C3JUZE5A4D1J))DR #24)EFZA"ES+4V7.'7R]!D J%"B (PB53I0w
M+%0!4@%0%6 5JU:7YKR"-4Q6L=E_:-4&(, @CP! (QNK"#GRL4T0!_\=U,0 v
M@@$##&AH>!U; P(%!@  &@A#3TQ/4D-!2"Y3 $< D ,  '0+5@!^X@T&   ,u
M*D $ 3'F#9LW<D"\<5.F!9DT;<JXF9-F81@V!,NP85.'39B$8>K0>=,F#)TPt
M(.#(>7-&3I@V(,3D 3$$C9PT<T P67@&1!@W9!HH"*CD#1HW((1<G,.F3!X7s
M($! 6=GR)0B<"MF0 8&"#AJL=\+D]%H&Q)PR!8&FI.H2YIVR=U;2*2,TH!F$r
M(,B"F$)E1UXT9<VDD3.'#HBP.?.4I9,'3IHQ%T&( +SQC8BU+-NF8.%3+62Dq
M*M^("2.&39ZZ,<O.@5.F#!G7(.K Z;P58F@[L.^D\>H31)LT;G".Z5CVY9LZp
M;@R_,?/W^!DTAG\&'0JBC)F[<NA !4&D#,4S#+>.3!W[;&VD7Y^WD./=+YR/o
M=!YW_&@:1/ QQ<^$ 5X8-<K288RQ1DP!KM'2<4"Y()10P,6'%"0#E!%''2! n
M4@ .0L%!!T4/1CAAA07$(,.""@"W6X4$2$BAA22$ 0.$0IU%AV-X1*4BB"W"m
M $,,0IU1QHQIU%C=ARRZ",.("@B5 !ECN'!' B;2H60;;^#F AM0)@<<"BYNl
M%L8,4U99QI4):,@AES!X20.)"305!IEFM%5&#"R$44.85HJ1P AT<EE#"GB.k
MJ2>?+,BPHY^ *I# &&S(L6@>C'I'HAMX;#B&HV["*2>==BJ9*99QOE2&#'7:j
MH&089)#Q)I:$AF%JDHI2B=NCD<[! I<T))J K&7L"4.AN.K*J*-DW DKI70Pi
MRD8,NXKI@IZ(KL!"L:>F^FP",2 ZK;%*CM&&8WO&4,.V2I9&1P(7I8$;C[ Vh
MFZ>OM[J:P@J!PLOE#+HRZ60".>Y8+1EQA ML&+EV^VT:>QKZJPS!ELM0 L@Jg
MRVX":GR;P'%TL"M4NNNZ*^B2XW)IP[SU%ALOODKJ^V2_$Z,*L, ,$RSLP0GKf
M.'#!BHKQ<,0;::P QLRZ'#"A8T#:U!R>EK%J J%&1&JGBG[*]*:E_KMTJZ_6e
M6W2M\>+L,;PQ>STLR)-6JJP,'E\;+;F*NGQMMG9N1FV[WH++Y[AS)V NNFRHd
M.RJ;O%X[PJ\BDQRKF/9^F6^3*QO9<JI#TQGVS'8K?+.N.O?*,QM(4FPQQDANc
MW#=N: >NI\F%TWOXK*@KGC+C_#K^;^27&URYS9,[K+G9&X7^LTAH"RWPUD?;b
MCO (-M#P*_&2YKQSI7-<VFVCM!:O:,5P0 R]]+ R/\>2<^S+;M-S@G^MH4B2a
MCS89X>N)/IL230<:"$-/3$]20T%,+E!21P#3    = M7 #!)R0(   Q@-   z
M($ 3 $@60 $P@08  A0-&2S)-S"  0V\  38P$<C@&1"\E0D,+&B@284-4+Ky
MQN_@@  X<HW,T1'2  %"BFCHH*V%1@9% #QH,Q $AY8 ;&0$ "J %#8$&4!%x
M1M ,@'_<G%"T"8A#,1N%FCZ-.K7J56%21&HDF3( -)0F6;J$*7,M39<X=?+Tw
M&0"H4*( C")5.E L5 %2 5 58!6K5I?FO((U3%:QV7]HU08@P"!/ " C&ZL(v
M.?*Q31 '_QW4Q "" 0,,:&AX'5L# @4&   :"$-/3$]20T%,+E, 1P!M P  u
M= M7 * _VP4   PJ0 0!,>8-FS=R0+QQ4Z8%F31MRKB9DV9A&#8$R[!A4X=-t
MF(1AZM!YTR8,G3 @X,AY<T9.F#8@Q.0!,02-G#1S0#!9> 9$&#=D&B@(J.0-s
M&C<@A%R<PZ9,'A<@0$!9V?(E")P*V9 !@8(.&JQWPN3T6@;$G#(%@::DZA+Fr
MG;)W5M(I(S2@&80@R(*80F5'7C1ES:21,X<.B+ Y\Y2EDP=.FC$708@ O/&-q
MB+4LVZ9@X5,M9*0JWX@)(X9-GKHQR\Z!4Z8,&=<@ZL#IO!5B:#NP[Z3QZA-$p
MFS1N<([I6/;EFSIN#+\Q\_?X&32&?P8="J*,F;MRZ$ %0:0,Q3,,MXY,'?MLo
M;:0'[[20X]V%4*' Z0 ' 6E F3AUZ!? (10.'8I(U7=??I 4$(,,[RD W&[Tn
M$3"@?B2$ 4-]0IU%AV-X1/5@@1'" $,,0IU1QH5I9%@=?A!*" .""@B5 !ECm
MN'!' @O2X6(;;^#F ALT)@<<"A)N%L8,-^98QHX)^ <@D# (24.""305!I)Fl
MM%5&#"R$44.1.HJ1P A8 EE#"EP>Z268+,CPH9AD*I# &&S(\68><'J7H!MXk
M_#>&G%)2:2666KK8)X]5OE2&#%G:X&(89) Q)8]HAJ%HBV[BB-N<=<[! I Tj
MM)F I65\"4.:G'H*IYQD;$DIGG3 R48,GQKI@I=LKL!"JHLV.FL",;!YJZHNi
MCM&&8U_&4,.O+I9&1P(7I8$;B)3&VJ6HFTJ:P@IE4@OD#)["*&,"'7Z8*QEQh
M%$MJ&)T&.VP:7ZHYJ@RE)LM0 JRZ"FT":@R;P'%T0"M4L\]*:^:+QP)IP[79g
MIEHMMRYZ.V.X]S)*KKGPHFOJNNUZ>&ZZ;HHQ;[T;^:L O[!*7"Z:8]#9U!R"f
MEO%H H5&A&B@;@X*\Y^)COMRI)-FFW*FU7(L,+45"WTJP7?FZ:H, N]:*[)Ne
M2KQKKUINAFNTPA(+YK%7)Z LLVPX>RB4H.XZPJ@&(URID=H.V6V,#ZL8<:,Gd
M8UGTQ5J[N[&G'H<*,ALLXJLOORS^&S9N3)?MI<)I8[OVI8R[W3#<X,H];MU[c
MJYNWQG?+Z[?2&Q4^LDA,FVSNSRMKSNX(,ZC) NIV=OQQGG/L&6R<F*;N9KYPb
MT$N[[93"/L>+<WP+;<Q7$K^KFBPBSS09Q7O)/)0230<:"$1%4TM43U N24Y&a
M   > 0  = MX *S: @(   PCPL"0 0,2@08*1H@I: #AB#$%"=2H 6,&#8L$z
M8=R  6-B1HHU( V0(5+CQHD;;X L>6/CC!@&*SHD P)2"X=%0! 1 F(@"(=7y
M>L(0VC-(SQ@@:-@ $6-&3QP@@NC@HL*%"B! B7+L2>0I"!E&8?#<BC5AT*UHx
M<\+(\37LV*%E1YP=BM9(T;8]WX*(VT2K#*)&[ X!(25(7R))IBP! @*,AP",w
M'?9%2W=HX*@@C#!Y @5*%IV)%^_]F7 R7:1;+_/4S-DS:,6,(R>DHM6IS\LBv
MJ12>@B0VZ1%V+\.@47, XZI7?W<5CE3D<:NR1QSIZ13W@*I!.OMV.+UB9KLBu
BJT*1<F1[0KO>AQ>O2N7)%/,CH%#O23R\"RI4H)C7@! : *I!t
 s
end

--cut here--
-- 
Chris Long, 272 Hamilton St. Apt. 1, New Brunswick NJ  08901  (201) 846-5569

"Knights before Bishops, except after e."