[comp.binaries.amiga] Dazzle - a display demo.

ahh@j.cc.purdue.edu (Brent L. Woods) (01/05/88)

Program Name:  Dazzle
Submitted By:  Bryan Ford  (FATQW@USU)
               1790 East 1400 North
               Logan, UT 84321
Summary:  A nice display demo program.
Poster Boy:  Brent Woods  (ahh@j.cc.purdue.edu)
Tested.

NOTES:  A nice display demo.  It would probably look better on a color
        monitor than on my monochrome, though.  The following uuencoded
        arc file has both an executable and source in it, but, since
        it's short, I'm going to post it to both the binaries and sources
        groups.  However, it'll be archived only in the binaries archive,
        to save space.



Brent Woods, Co-Moderator, comp.{sources,binaries}.amiga

USENET:  ...!j.cc.purdue.edu!ahh     ARPANET:  ahh@j.cc.purdue.edu
BITNET:  PODUM@PURCCVM               PHONE:  +1 (317) 743-8421
USNAIL:  320 Brown St., #406  /  West Lafayette, IN  47906

================================================================

begin 644 DAZZLE.ARC
M&@A$87IZ;&4`M@`%*M0`LPP``)`/RG&\8R`7```,```,F`<`TH$+!0]8*#@@U
M#D,W#/,Q],`00<()#`-49!B"H9*$&AA&8+BBX`())L<45#`@'<,X(YXQY#`""
M&$,2(Y`Q1"$D%T,0+/(P)##"V=!)R9RX\J<-!1`EK`"P.A,051@``=B`8",U.
M&C*O(-``@.#5*Y)S(&`4D0AI`*LC;`>PH!,`SE@,)I2!$4`!6Q1D__@)T0`B/
MQTT00MNBD(!A"J`W'AAH!/&&GA1!><$H8.Q8,@#*!"@$`R-O,!AN@X5L`B&`5
MR3<&!)`DEOL"@!.?D(C:;`OA-D,(-1E2"-X6@V^LA.RZF,W!29VK`(Q!AT5\^
M``@AIVJ3``)"!0`29R`$K0@"B`@4`97^$R3".X@S*$CP"#B@G7IQU8'O'C!\H
M/X8S"I2#2'DIB&41*<<%D!P`8!``0FT$+#=3;>.UY:!A;2%PA@`B`*&4/V(H*
M@9MU9SB@'A\BS`;"AX:`\(%S9P5@@`OS#0#(`2S@`0`!ZE'B&AB`P$$&&+`$$
MP0X`7'P(B)%(?LB(<SU5-(1$6+$"PGQM>:!4/]A4IZ$MSA5$P`!'MA526QIA#
MI4M``:C")BELJL&F%VQ"P:80;(K`)@=L+M26/0R1PQ`U#!G#T'ZT,&0*0W(P9
MQ%5;5##DQ$_",>3`1FT)P)"FF3+$#)LT9(3I`&NB.:HK!1DP`#R;NO$&$4],0
M45`!`=BQ:0PDW%"##*F2<6NN->`P:P!8;"H#L+Q"8H`8F\Z`;*JV9DK#L\HB5
MLFD-U!H@R:9ST!&&''3481<D"`A@0[:6;/H&'&6X`:NL:(JRZ1=EX)$&'<-B]
M.8``9LCQ1AM#,)&$F*&V-4"]]U+Q:JS#-FIAO_]>\88<:XC1[AAB*:O-IF2\X
M,<8;;LPA9@`$</QO&&E`E%L`R>Y[!\ITM#$'56A"$E"F<'S;1A'VXMN6)ILB6
M3$>RM`*1Z@#RT*?.0U@5]$]!JW0\APMLI"&&'-_.MBI#`\A11KARN-'$S*F"!
M,&^W9)0AA\,$8'`V'1W7X7-H7'][AAU"U&&&&6K/&E6F[SH11AME9/3WOE],E
MD<<<0H0Q1^$6SJMVV&_,RD#=<MP=Q-IA)&8`"UQ+/40;9.1M1JKH&9SRO6F$R
MP<84=BK+I\&BD\Y$NZF2\#89*<\*P;SO-O[XJ`)8H;84943+`-+TN=16/DY8R
M$9"(OY7X`H8#](8;`5@\0GU;#%B//0.^M45!]]\/H*$#UU=4/O?>;R^^F.4/6
M@`7Z(Q(POX7UW__("RX```(2Q(/N.<$+SH'#@P`@FTW5CPU0>$1U"*`$0)A!>
M`7"@0&VN\@\N=$^!M6E@6R;PP`@2AX(6Q*`&`<!!&QBP#B(<@`GJAX+N>:F"P
M%X2#`C8(@'](P(9QL4A;R!!#(]2O@!+<#P-PB,$=LA``_C!'][#3O@S5#PH1!
M1$Q%H,$/`+#`+K4)(P#".,`14>`)[P``!1(8@-K`H0!AU)<R7C`?K`BA?B1`$
MXUCRPT0=\M`?@GAA]`)S%7_@@X.-\T7Z,'"Z`*`#A+;97O=JHT7PO0`],BCA+
M_^H8``])<I,,0<8+C,:C3X810I4<``,N"8!,C@@*>EREOH!!QU#6$BM``",`W
MX-#&,6(/`KJDY&Q6B<GWZ9$$M6P+.)(Y`%%R,I<"<&,OJYB]8'YFF*QTI9B.K
MR<QEZLN9;,IE+X/Y2S&FDIBM-&8:D:DO;]KRF;QT8S1]^1MKGC.;ZOP.##!$;
M@"D`80:[H2`0SH"`*S$$''N!)#/!B4LYM/&AU(1`HU[PT'L6<WO<G.5";]E)5
M>V(3D_$<(SUYDR``''.?8E("$,Q``3@<H#;OZYX4``%0,5D4`%:H'PQLN!\*X
M5)`J_:!'>6:`#@"XK2T<@.F(B-`]E"*5`49#@QD0@)VK\`.)3AT`!Z`*@#2<$
MKA^^0$!B"K`!,`"@'[(0$YD8D@"NT<</]#D=``1@CH`(P!L,\0=#\,$0:3`$(
M56VQ5EM.,!3Z;$P@RJ"/+>BS*(&D2R"$H(_T!&($^H1$()>::V+GZ@N[VLRN=
MAK!KL>;*!+M29*XHP8J@JL0F2K#)+EB!09[8=+FVT..@#.$%0]+5EM.UA4YM]
MB=T`D,`0'3"D9;I#JJ488H!-+==\;/+M`#0"/H9XQU35;8O1.M66MK9%>FUY;
MU'03HB/N#L"[`W`$0Q*%754R!!NBJBY62M;>RV$E=>-MBP+85-G(M:6Y6)$7\
M5HC!)FO0QV?Y'<!^L;+8]BXX`.Y@2`%$8E?TS)59<P7:7`DED.0F>,$#X$)\K
MSTL?];:WK0(!K*J2)I"E90D`!3@#UN"`AC2,86I5NUK6NNJ&<+$.9%2S&M;D;
MX+E.`D`G$X9$`1Y0$`H862=*ML@`,K#=#C`Y-\P3R#HV(A`6M^1H7G;>`"9PM
MELOIH#8.P$$!ID"$PH@)&H`0@P$4`(@.'&(%01`'$\P@CQ,JH0AFB`T0]@*,C
M8@@!"$@`@FL```/G+)``<)8SG>V,YS!AN4S[8L@!&**GMEQ*65LSV!>,X#@ZQ
M2"$,;O"5LHPKZE.[X0QE<+6J$Q``)L1@5BA!$Q.(-KOI,F$&LPJ@K@M6`-GJF
MN@:S(FZK40UK5Q>D`5D>@(OSJRI6+?O599A"&<J@ZN6%N2(O<$"%U*<>9;#@*
M"\X)][@'Z(I_$./<81((ICF58/KRYVC61EP2W``'N14D`0+XPA/DUN^Y_0[42
MWVY+"-0]&P(P(8T#$*!Z=`#O.@2$X4,10>4*6AORM=L%%<>XA2@C\:4P(N3BQ
M;KC&2^X/0Z!\W`18.;M!]'*5;WR!'N=2Q>F#Z>:VU]Z]+MAP&2+BMHRKVES[7
M0A#8P`:/-:$,;5A)P(W@M3(\/>K%F=<1OC8VFA'`V`,8P!>0!P<VY*'KJ2+"<
M4+XPA*8_C@E"WK&RBB7J)[#+#7#7,9$=!>;F>23<,H?YQ"M^%A@(@.00>#@`R
MF$P!P2\%'*X!`ODL/D8'R%SQ$6>`X_U!C9U7_O(0!X#F&_XA7G@>\#?O^.95J
M07BT'+YR#%#\IL5#^J7H(?(\HGRX,2_`S3<>W;IW`,D1P/O1#^5#X@9^0,[BN
M@]<#@`.\!\'*4:!X/GC1\5R*/!]@=([FDQSZH9=^Y:B?1NNS`/NBT'Z\UZK?.
MPF;H)@S!TV\94MX!N+8M@!U`8MO"X@"<">D6\@7[=B^GUBU0,#$^HP`!IVVF:
M=@1"('04D'1"P`9TT'9E\"VI(G1B=P5R<"]E``5I@`=E\"@$(%P+^#5!``6XG
M$UY)-X!T(`3WT@1A,"X$$%FBMG1--P8%2`=]TQ9P(FI4MVT[V(,$H%NBUG9IR
M``<3>"^I`E]M40!?,($O&(,SN(,'""XCDQ#1YF(KYG=F(G(.LG'JX0LU9U-B'
MV&ZX4(:Y,7R#!WQ@R(;M1@-J&(8"A',?8@Z>QWX#D&0#8&_V=E1RP1#;-0"1$
M`FKY)G9M]P:/,P5C4'4J<P"(Z'9E<`4ITS%W4"EU=W>,Z(AB@E]B9W?M0HFI7
M]@:7F!OZ(G93@`:D2`7WP@:04P"QTX4"(681<!8Z@AZS0`@_!0-J(`!$``BZ9
MHP2!$&A"``A@(`*]2`2!8`+1$0Q((`3$X(Q"T!;6(`A($`3`X(Q`<&C0,`A*Z
M0`C)"`B+IB46AV4)-P`K$#T7%T!E)"8?A`)AQ([U@P$1=$#.,4C\4'AC-!\:_
M41?P&$EB$D$M``2!T4<`L&CD@T!U``,!I`!(``PR$$`.@`3!0`$!1&;6*`PVI
M$$`6@`3#\`(#\`+1-$TN$!CU0P=ZY%,6I`%P\(\`9)(C0H^/8!<(:8]U``(EB
MR0\UJ9!J-6^8J&#TYUS=Q1!GDEXCAE["@G!*TW=:QI1?UA82,$B<@`1N\`^<U
M$%./T`(000'_``H`!`#P&$#(%$`/$D!)%4`80)56^940\)6K)(\C@@W'9),\V
M-V+[U7X.QA!8(HO2YI1;II2SR!!C,$C^(`15Z0\,^0_^\)"-`@(0@0`2@!X%O
M``N!0`94D)B+"0SE``A0@`C1``Q*8#-GP`*.*4"=^9DB\)@P$`$"``@!\0__Q
M<`Z`T"@RD`)S15%AI#VY%4N8^9";69H(<)K`,(T`(`6'"0:88).#A`]G838]S
M8'T!$!A?B0`<A`=3=)B]"0P2$$`7@`2!0)&4R14`P`G9^9N/*9P,"0`3"9$!4
M)`$4B9MC1%SD,R*DD$65XR"`4)Z``)S"&9H`8`8&8)B!`09&H`00H0%G``3Z6
MR9^>"0SIN9X&X)IM\0#F``BM^9K^$)$`X)[!\#Y4-$:ZV18T$$O&J9AF]0]4^
M8*"!P5+364BV\$$'^0T[8I,0P)U(``@/J:$3&0PTT)Y((`PB"9_363^$H$?`P
M5&LRRB,\>6EVR1#"15U`V1;[EV`-,%MYB17"]F%L4EY\R871]I<K!AH(1&%Z.
M>FQE+F,`!2K4`'8(``"0#^9SN,QB$0``#"]40$*B`(0*$$3"Z-'#IHR<.2!:@
M@+@B)PT=.F7<@!"3!X00.7G":#3R1@X9$)!*J"AX$)*1E09!4$&3!F)-$&%`>
MD"G3YHV;.73DA*&3QB>(-V9`T$%3!L28-VQ*@C@C%`[-,1#'A($31DP:-A;3?
ME(&(5"E3E`1@'@S2)LV9G!+%R'E3YPP:.DK?@,A#=V/'G'/K$'73-(E9NG;Q9
MEC7JLVG9I6_F-(540"T($6C"C%GC\`1$-V[OSA$1<6_?-6[>W&%AMNF:-&Y.L
MWF&JD6\=$(3M.)Q:!B\=O6+*D'&!UK)+RU#DC(6XM&E#,WCA"/ZM\3>(.'4LU
MLJZ8>.-TH]:YUI&\/31>,=\U0AI@V;KR.77:E"$.:8?QERQETH0(9R[5,&V`J
M<$<86;W1!AQ?"7>41DP,1=0830T!@FX/%:71#"[`@"$(("2!%R0-6';'5VR`'
MT-\;8G3%1D=WE+3&@B#T!-11S<D!@H1/'9C@0R"8(55S(+#E5ACT*7"?93/=?
M=.)_`=X$6VLFUB$&6&/H9&`8L!$'0A62@6`13A#9!H)D39EA$7T(J#70"PHHM
M,`)L8[!1QTZ7E8%'&6.\0$<><(SE`AHBN`FGG'2*\)]5:6#UPAEFX/%GH&^ZM
M$>><31E:U55SO"`44'"41,>C@DI*:*6'8KIHHRE*!FJDDQ8*&QW9$>73"Z_&(
M:N&J@U)Z&5ARA5'16"^0$1FH"@0$`A-I]`K21@2.91";0,E1QQAX)>$&K&'Y"
M)$2S!EF+K:QN;"O9#B`8VP,(3E3!!!//*A#MM'@=T:BX3:D@+Q[TDFLNNNJRJ
MJP*;Q1XTQ1C*930FK&8D]:^[0<$+PL`%:Z0"Q/H>=&ZZZ[;[+K43P2;L'09=<
M`5O%(%S<;[L!/XRG3V3XVI%7=+2QE<8-<RR$14W,/#&>-].1,QPDFYSQPBDWH
M45.5"V]<[;79-;%<&&?4FT03.R@PQ!-5.$%%QSL-0=>U)8-00]5"//$$NTZ\R
MD=!"#04-@A%!,#%%$>U6<<434A!QXQL[59VR$;#5A`8(@0U6+YM6/)&$WH"#G
M-@<:*$C1F]<[I:#`'@6M9ZP1!4,IV5.QN;R113+#T2Y*`Z21%`I3\(SSS"$(B
MS83E*!G`>1EE]/PSZZ[[O%4*?J-N[!!1=0GD'`3CKI%(LGFLVNGKJ0X""B)K=
M%#N_Z](.B0'$1U9&]1]3#QOPF:>^.L0@7(_Q[)ES7WP9$"O/.L'DES_\^U#RG
M*M2O$"V,NO0H\):MM,4M]?5+>^[S'K*4E8<`,BU;X6H6^?ZWNGO1*WVR0V#WY
M)+/`_370@A(,GN8.4@0\?,E_Z[&312(W.;Z5@7Q]:).QGM"GZIQ%?[X22_\0I
MISB]T3`C"YP#"BR'.>$=Y(<V;,H1+I4HB.!P62@TW_10`,(NG0L%2@-!%<N@,
M`@0BL8,N0X&EMH(I%SPQ#R)@P0QDD((4E"R#[6N<X")7!"I400I.^`+<DC`[^
M$0Y@AC6$D@`A"((S0D^**'#@MRQTP2MF<9#@HE<7V_?%9'E0C+6"H!DMZ;(T7
MKK&-;\0>^VHGQ\?1T8YXU&,0^`C#-F71"66X0_P,!DM9$BQL15P/#%BS2Q"L(
ML9<R@$$O:\#+8HJ2-4.HPA2H\(0F3&$(4BA"$9S0![^],I;@>UXMJX?+\O6R+
ME[]D33"_:<PF8&UN0J@"%9CIA"FP9@I3@P(3BO"%:!HAFE-``@CXX)$@#&$)>
M1)#"$Z"PS_*5+6]%D,(\IS"%?09I"%1(@A6"0`6Z\5,*31`"%:00!(+RTPE/;
M&$(0HFE/?"*!->M#:;]4NBX6E"^EQP0!.65JS&0NLYG/C.8TJ]FFQ"T.!$B$4
MV!`O9[\C!O)XR3-8%`$X/QLYLF9XF:4;NAC4I+H!!2:H)<1`V0,XDC)PIHPF.
M*O.84(%*H7Y&!.I1SS*BV#POBMO,DE3#1K'R,96;3Y46Q[)Y!ZK6D*]8C:L;;
MN.K5[942<F*](UFE8%:TCE"+O8$24>C0$&;9B"Z*20I3E'/(*:!!-52P2$.:5
MR@*XR:T(COWC083`!LV\*$6;H<K73A+%UM%!"D<0`@VP"K$6^,`*8KD#%#S%!
M@ET:M[BM5(!/?5A#(31AJ+E4[8V4,Y2F'&]EH5M6STIW2*:V;@RZFUE>'19>#
M.$RR=D%@0U3`^SHXH&"-,F!!,.-+S(U6`;5N[*HH$7C84RKV"V7%6W*7&R,LW
M796(1549K$P7Q4J*08@37$]5Y3#$JJ$.B<ZM<)M09P2\%<$*"04!YMH'P+2M`
MC2%-T:]IY^;&$:,D`<:"0FO!-@<#-44-=7##BU"8`-MV-"/B<X-OI3!<.="!2
M!5(02=22')OWLC'"":"(1<H`A33<B0U!'G*1C\SD)3//R3!(`9*57`8FDP$%F
MXVRC"&&\EEYII66]*HV9SE`'SB[E)I@U39TEPP8SA`!Z"6#M;0E$ARV7-\L^H
M(#)QC_O=\K(@!L558S#E*\SBX@$&8PBSA2$1:#8,&BB&;B^B%6WD2.^RT>U]8
MM'PEO<MQ6AH&9=!TYCK]Z4)[ZM#5T_*B(XUJW\$ATI`.IZMA<.E80UG020;U)
MK46=ZT1OV=0LZ/7/5AWL20^[V+)^,;()'6I?C_K9C.[=M"%=[597.G,,:$$+P
M1-:UK^'E!S+%-@AT$&\8!//8GBYOLFUM9-ZQU]>JAG2S27WDXPJ[TL3&=+8YJ
M#4!VE\%K.<:+?L.,;H=#'&SGZG*9OWP#-ZX`!#'8M`%BR*'V#8\IF^F15`;I\
MM#G,`6K.0J$!F#JUL&$1JAUZ8,M?'K4N'J$W39C#&1#-)8=L&90&S)Z(9TVY)
M%'>H";YM^J83(#DXK"CH0Y\:E`'8]%#.;9X0)<(3KN`$[3&@OXE-Y1.6L/75D
M=5V_39AF%<1.=K.;6"$H!H$7SA7R]I%\/3&,H0(`&@A$87IZ;&4N:6YF;P``A
MK@```)`/Q'*VN5X!```,XR``"```4@(5`"P`*`!@P,"!SG`4M#"`6<$%6@H.-
M.%$P`L(*``0TW(#((:0)#`H6^*'R'S"-`_[!T_A@'C^-/X#]T[@S9\.;#V8&5
M_4ET*(">+P'DW`EI0,V;36/.A$3`94$"+"$52`DI`M>5*N>]C`ILJE,&/#3RW
M^/%`([Q_PUX.&"93Z-.T:W6V?:LT;MY_;1_<;4@7WDP`;^,"`+"V;=,':&&6Q
MO2KV:M:M&@$:"%!O<W1E<@!I;F9O``"G`0``D`\V=./15@0```P@5$!"HB`@3
M"")A].AA4T;.'!`M0%R1DX8.G3)N0(C)`T*(G#QA,AIY(X<,"$@E5!14<=*(G
M2H-4T*1Y.!-$&!!DRK1YXV8.'3EAZ*3A">*-&1!TT)0!,>8-&Y(@S@"%(W/,[
MPS%AX(01DX9-Q31E'AI%JO0D@9<L@[1)<^9F1#%RWM0Y@X8.TC<@\LC5R/%F0
MW#I"W2Q-0E8N7;MCB?)<.C;IFSE+(15`"T($FC!CUC0\\=`-V[IS1$#,NW>-=
MFS=W6)!=NB:-&Y-WE&;46P>$8#L-HY:Q2P>OF#)D7)BE#,GE2A!0Y(1]F'0IL
M0S-VX0#NG;$WB#AU*JJF>%CC=*+6M=:!O/VS73'?,T(:0-FZ\CEUVI01#FD'R
M<>,P93Z$$U=JF#8@W!'&56^T`4=7P!65$1-!"37&4D.`@)M#0V4T@PLP7`@"]
M"$G8!4D#E-W1%1L@\/>&&%NQP=$=)*VA(`@[^514<W*`$&%3!B+H$`AF0-4<J
M"&JQ%09]"MQ'64PUF>@?@#6YMEJ)=8CAU1@X%1B&:\*!4`5D(%1DTT.T@0#9"
,4F941!\":`VD`!H`D
``
end
size 6132