Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: utzoo!mnetor!uunet!seismo!mcnc!gatech!hao!oddjob!gargoyle!ihnp4!inuxc!iuvax!pur-ee!j.cc.purdue.edu!h.cc.purdue.edu!s.cc.purdue.edu!kyrimis
From: kyrimis@princeton.UUCP (Kriton Kyrimis)
Newsgroups: comp.binaries.amiga
Subject: DEMOlition  (uuencoded binaries)
Message-ID: <480@s.cc.purdue.edu>
Date: Fri, 10-Jul-87 14:39:01 EDT
Article-I.D.: s.480
Posted: Fri Jul 10 14:39:01 1987
Date-Received: Sun, 12-Jul-87 13:50:19 EDT
Expires: Fri, 7-Aug-87 09:34:41 EDT
Sender: doc@s.cc.purdue.edu
Reply-To: doc@s.cc.purdue.edu (Craig Norborg)
Distribution: world
Organization: Purdue University Computing Center
Lines: 244
Approved: doc@s.cc.purdue.edu


#! /bin/sh
# This is a shell archive, meaning:
# 1. Remove everything above the #! /bin/sh line.
# 2. Save the resulting text in a file.
# 3. Execute the file with /bin/sh (not csh) to create the files:
#	README
#	DEMOlition.info.uue
#	DEMOlition.uue
# This archive created: Sat Jul  4 02:07:56 1987
export PATH; PATH=/bin:$PATH
echo shar: extracting "'README'" '(1135 characters)'
if test -f 'README'
then
	echo shar: will not over-write existing file "'README'"
else
cat << \SHAR_EOF > 'README'
DEMOlition - A display hack inspired by a  demo  seen  on  a  BBC
	     micro a long time ago.

The program is best run with a few windows open on the  workbench
screen.  To  stop  it, bring the workbench screen to the front by
typing A-N or by dragging DEMOlition's screen from the title bar,
and click the mouse on DEMOlition's close gadget.

This demo just screams (pardon the pun)  for  sound.  After  some
initial  attempts  (and lots of Guru meditations), I decided that
it would be best to post the code without sound,  and  hope  that
some Amiga guru (the nice kind) will take a liking to the program
and add the sound him/herelf.

The program compiles successfully with Manx 16 bits. I've no idea
what it does with Lattice.

ACKNOWLEDGEMENT:
I used Stephen Coy's "Melt" demo as a template, to make a copy of
the Workbench screen and handle the close gadget. Only the action
code is different. Stephen placed no restriction on the usage  of
his  code,  so  it  is  only  fair  that  I  should not place any
restrictions in mine. Use, abuse, modify or mutilate  it  as  you
see fit.

Enjoy!

	Kriton Kyrimis	(princeton!kyrimis)
SHAR_EOF
if test 1135 -ne "`wc -c < 'README'`"
then
	echo shar: error transmitting "'README'" '(should have been 1135 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'DEMOlition.info.uue'" '(520 characters)'
if test -f 'DEMOlition.info.uue'
then
	echo shar: will not over-write existing file "'DEMOlition.info.uue'"
else
cat << \SHAR_EOF > 'DEMOlition.info.uue'
begin 777 DEMOlition.info
MXQ   0           #( $  $  ,  0 @Z/                          
M     _P              $\    /                       R !   @ B
M][@#      #__<__]]]  (     'W$  __@/_??=0 "       !  (      
M $  @       0 "       !  (       $          0 "          (  
M        @         "       X  (      #@  @         #__X___P  
M                                                       !\/\@
M0\     88S#&8    0Q@.<0@   !C'P_P"    &,8#;$     9AC,,     #
G\/\P            #@         .                        
 
end
SHAR_EOF
if test 520 -ne "`wc -c < 'DEMOlition.info.uue'`"
then
	echo shar: error transmitting "'DEMOlition.info.uue'" '(should have been 520 characters)'
fi
fi # end of overwriting check
echo shar: extracting "'DEMOlition.uue'" '(9501 characters)'
if test -f 'DEMOlition.uue'
then
	echo shar: will not over-write existing file "'DEMOlition.uue'"
else
cat << \SHAR_EOF > 'DEMOlition.uue'
begin 777 DEMOlition
M   #\P         #          (   8"    M@    $   /I   & D[Z"BA&
M;V]"87(  $1%34]L:71I;VX  $Y5_^@O!$ZZ"+(@;(*Z*V@ +O_\(&W__#EH
M  B  B!M__PY:  *@ 0@;?_\.6@ #( &(&W__#EH  Z ""!M__PY: !,@ Y(
M;( "3KH7+EA/*4""MF8*2'H CDZZ"3983R\L@K9.NA #_2'@ P# L@ A(P"\ ,BR !DC!+P%"IT*G+RW_]$*G0J  #+RR"ODZZ%8Y03TZZ!-P@;(*Z+R@ 5DZZ%.A83RM 
M__I*K?_Z9R @;?_Z.V@ %O_^+RW_^DZZ%.Y83PQM @#__F8$3EU.=4ZZ!7 P
M+?_X2,!@  1Z,"R"IM!L@JHY0(*N,"R"J)!L@JPY0(*P,"R"KK!L@K)O0CM\
M  /_^#\\ !!.NA7$5$]3@"\ /SP $$ZZ%;943U. +P _/  03KH5J%1/4X O
M $*G+RR"PDZZ%09/[P 48   N$IL@K!L0#M\  '_^#\\ !!.NA5\5$]3@"\ 
M/SP $$ZZ%6Y43U. +P _/  03KH58%1/4X O $*G+RR"PDZZ%+Y/[P 48' P
M+(*P2, O #(L@JY(P2\!+RR"ODZZ%&Y/[P ,.T#_]F=./RW_]DZZ!3A43S\\
M !!.NA465$]3@"\ /SP $$ZZ%0A43U. +P _/  03KH4^E1/4X O #(M__9(
MP2\!+RR"PDZZ%%)/[P 4.WP  __X8  #;C L@J;0;(*J.4""KC L@JC0;(*L
M.4""L# L@JZP;(*R;T([?  "__@_/  03KH4IE1/4X O #\\ !!.NA285$]3
M@"\ /SP $$ZZ%(I43U. +P!"IR\L@L).NA/H3^\ %&   +@P+(*PL&R"M&\^
M0FW_^#\\ !!.NA1<5$]3@"\ /SP $$ZZ%$Y43U. +P _/  03KH40%1/4X O
M $*G+RR"PDZZ$YY/[P 48&XP+(*P2, O #(L@JY(P2\!+RR"ODZZ$TY/[P ,
M.T#_]F=,/RW_]DZZ!!A43S\\ !!.NA/V5$]3@"\ /SP $$ZZ$^A43U. +P _
M/  03KH3VE1/4X O #(M__9(P2\!+RR"PDZZ$S)/[P 40FW_^&   E P+(*F
MD&R"JCE @JXP+(*HT&R"K#E @K!*;(*N;$([?  !__@_/  03KH3C%1/4X O
M #\\ !!.NA-^5$]3@"\ /SP $$ZZ$W!43U. +P!"IR\L@L).NA+.3^\ %&  
M +PP+(*PL&R"M&] .WP  __X/SP $$ZZ$T!43U. +P _/  03KH3,E1/4X O
M #\\ !!.NA,D5$]3@"\ 0J143S\\ !!.
MNA'"5$]3@"\ /SP $$ZZ$;143U. +P _/  03KH1IE1/4X O #(M__9(P2\!
M+RR"PDZZ$/Y/[P 4.WP  O_X8!K[>/R6_;3^TK"\    !&0*XX P.P#L3OL 
M &$(8 #[+&  ^UQ.50  .6R"KH*F.6R"L(*H2'@  R\L@KY.NA"24$]"IR\L
M@KY.NA"64$\P+(*H2, O #(L@J9(P2\!+RR"ODZZ$)Y/[P ,2'@  B\L@KY.
MNA!L4$\P+(*H2, O #(L@J9204C!+P$O+(*^3KH0  "+RR"ODZZ#ZI03S L@JA(P"\ ,BR"IE)!2,$O 2\L@KY.N@^P
M3^\ ## L@JA20$C +P R+(*F2,$O 2\L@KY.N@^23^\ ## L@JA20$C +P R
M+(*F4D%(P2\!+RR"ODZZ#W)/[P ,3EU.=4Y5__A"IR\L@KY.N@\J4$]"IR\L
M@KY.N@\N4$\[?/_]__Y";?_\#&T !?_^;   B# M__Q(P.. 0>R 5 QP /\(
M &8*4FW__%)M__Y@V# M__Q(P.. 0>R 5#(P" #2;(*N.T'_^C L@K#0;?_^
M.T#_^$IM__IM-DIM__AM,# M__JP;(*R;B8R+?_XLFR"M&X<,"W_^$C +P R
M+?_Z2,$O 2\L@KY.N@[ 3^\ #%)M__Q@ /]R/SP $$ZZ#RQ43U. +P _/  0
M3KH/'E1/4X O #\\ !!.N@\05$]3@"\ ,BT "$C!+P$O+(+"3KH.:$_O !1.
M74YU3E4  $*G2'H =$ZZ#:Y03RE @L9F%$AZ '9.N@3T6$\_/ !D3KH+8%1/
M0J=(>@!S3KH-B%!/*4""RF842'H =$ZZ!,Y83S\\ &1.N@LZ5$](;( B3KH.
M=EA/*4""NF882'H 8$ZZ!*I83TZZ (H_/ !D3KH+$E1/3EU.=6EN='5I=&EO
M;BYL:6)R87)Y $EN='5I=&EO;B!M:7-S:6YG+@!G % +RR"
MTDZZ#0Q/[P ,2JR"MF<*+RR"MDZZ#8A83TJL@KIG"B\L@KI.N@V$6$]*K(+*
M9PHO+(+*3KH,*%A/2JR"QF<*+RR"QDZZ#!A83TY=3G5A<$/L@F9%[()FM @ @N  0!*6<02_H "$ZN
M_^)@!D*G\U].0!)^0  ?_Y.=4Y5   O"DAY  $  # L@F#!_  &+P!.N@N.
M4$\I0()V9A1"ITAY  $  $ZZ"U)03RYL@FI.=2!L@G9":  $(&R"=C%\  $ 
M$")L@G8S?  !  H@;()J("R":I"H  10@"E @GH@;()Z(+Q-04Y80J=.N@M"
M6$\D0$JJ *QG+B\M  PO+0 (+PI.N@"R3^\ ##E\  &"?B!L@G8 :(    0@
M;()V &B    *8$1(:@!<3KH+:%A/2&H 7$ZZ"R!83RE @H @;(* 2J@ )&<0
M(&R"@")H "0O$4ZZ"D!83R\L@H O"DZZ I)03REL@H""A$ZZ"DP@;()V((!.
MN@IL(&R"=B%   9G%DAX ^U(>@ L3KH*2%!/(&R"=B%   PO+(*$/RR"B$ZZ
M]$Q<3T)G3KH(A%1/)%].74YU*@!.50  2.<,,"1M ! @;0 (("@ K.6 *  @
M1" H !#E@"9 $!-(@$C T*T #%2 .4""BD*G,"R"BDC +P!.N@HL4$\I0(*,
M9@A,WPPP3EU.=1 32( _ "!+4H@O""\L@HQ.N@%$3^\ "DAZ 3H0$TB 2,#0
MK(*,+P!.N@%X4$\_+0 .+PHO+(*,3KH!1$_O  I";(*()FR"C"1+$!-(@#H 
ML'P (&<8NGP "6<2NGP #&<,NGP #6<&NGP "F8$4HM@V P3 "!M>@P3 ")F
M+E*+($M2BQ 02( Z &<>($I2BA"%NGP (F80#!, (F8$4HM@!D(J__]@ F#6
M8#@@2U*+$!!(@#H 9R:Z?  @9R"Z?  )9QJZ?  ,9Q2Z?  -9PZZ?  *9P@@
M2E**$(5@SB!*4HI"$$I%9@)3BU)L@HA@ /]:0A)"IS L@HA20$C Y8 O $ZZ
M"1903RE @H1F"$)L@HA@ /[D>@ F;(*,8!XP!4C Y8 @;(*$(8L( "\+3KH!
M<%A/4D!(P-? 4D6Z;(*(;=PP!4C Y8 @;(*$0K ( &  _J8@ $SO P  !" (
M,B\ #& "$-E7R?_\9P9206 "0AA1R?_\3G4P/'__8 0P+P ,(&\ !$H89OQ3
M2")O  A30!#95\C__&<"0A @+P $3G4@;P $( @B;P ($-EF_$YU3E4  "\*
M)&T "$H29R @2E**$!!(@#\ 3KH YE1/L'S__V8( /M+PM.N@>(4$\L &  @"F8*R J"1(
M2BH #&<8U?P    60>R"8+7(90AP "1?3EU.=6#B0I)"J@ $0JH "" *8.I.
M5?_\+PHD;0 (/SP$ $ZZ ,!43RM __QF\  $ $" *T+P    .)4  ""1?
M3EU.=35\!   $ CJ  $ #"5M__P "! J  U(@#\ 3KH!=E1/2D!G!@ J (  
M#&#.3E4  $CG # D;()F8!0F4B J  10@"\ +PI.N@2T4$\D2R *9NA"K()F
M3-\, $Y=3G5.50  +PI!^O_&*4B"E$*G("T "%" +P!.N@1B4$\D0$J 9@AP
M "1?3EU.=22L@F8E;0 (  0I2H)F( I0@&#F3E4  '  ,"T ""\ 8;)83TY=
M3G5.50  2.< ,)?+)&R"9F .(&T "%&(L !@$"!M  @B;?_\$[!  $  4D2X167L("H !%" +P O"DZZ W103R M__Q@
MD$Y5   O"C M  C!_  &)$#5[()V2FT "&T.,"T "+!L@F!L!$J29@XY?  "
M@IAP_R1?3EU.=3 M  C!_  &(&R"=B\P" !.N@*H6$]*@&<$< %@ G  8-A.
M50  +RT "$ZZ G)83TJ 9@Y.N@)\.4""F'#_3EU.=7  8/A.50  2.<,(#@M
M  A.N@!P, 3!_  &)$#5[()V2D1M"KAL@F!L!$J29A Y?  "@IAP_TS?!#!.
M74YU,"H !,!\  -F"CE\  6"F'#_8.1P # M  XO "\M  HO$DZZ CA/[P ,
M*@"PO/____]F#$ZZ ?PY0(*8(&\ !$SO  \ 
M""QL@LI.[O[@(F\ !$SO  , ""QL@LI.[OZ\3.\#   $+&R"SD[N_Z @;P $
M+&R"SD[N_Z8@;P $+&R"SD[N_[(@;P $+&R"QD[N_[X@;P $+&R"QD[N_[@@
M;P $+&R"QD[N_SH@;P $+&R"QD[N_S0@;P $+&R"QD[N_PH@;P $+&R"QD[N
M_P1(YPP .B\ #C@%4T0@+()BT(!B!@J '8),9O(I0()B2D5F!$A 8 + 
MQ4) 2$!,WP P3G4@+P $T(!B!@J '8