kyrimis@princeton.UUCP (Kriton Kyrimis) (07/10/87)
#! /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<L6$\@+(*VT+P !4
M*4""OB L@K;0O "PI0(+"(&R"OBMH 3_]"!L@KHB: N*VD 6/_X0J=(
M> #_2'@ P# L@ A(P"\ ,BR !DC!+P%"IT*G+RW_]$*G0J<O+?_X3KH5Z$_O
M "PO+(*V3KH6R%A/81Y.N@C2*!].74YU4V-R965N(&]P96X@9F%I;&5D(0!.
M5?_V(&R"MC H Q50#E @K(@;(*V,"@ #E5 .4""M# L@K)(P"\ 3KH6AEA/
M.4""KCE @J8P+(*T2, O $ZZ%G!83SE @K Y0(*H2'@ TZZ%EY83SM __@Y
M? !@JHY? !@JQ(> #+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@"\ 0J<O+(+"3KH2@D_O !1@<# L@K!(P"\ ,BR"KDC!
M+P$O+(*^3KH2,D_O P[0/_V9TX_+?_V3KH"_%1//SP $$ZZ$MI43U. +P _
M/ 03KH2S%1/4X O #\\ !!.NA*^5$]3@"\ ,BW_]DC!+P$O+(+"3KH2%D_O
M !0[? !__A@ $R,"R"II!L@JHY0(*N,"R"J)!L@JPY0(*P2FR"KFQ 0FW_
M^#\\ !!.NA)P5$]3@"\ /SP $$ZZ$F)43U. +P _/ 03KH25%1/4X O $*G
M+RR"PDZZ$;)/[P 48 N$IL@K!L0#M\ +_^#\\ !!.NA(H5$]3@"\ /SP
M$$ZZ$AI43U. +P _/ 03KH2#%1/4X O $*G+RR"PDZZ$6I/[P 48' P+(*P
M2, O #(L@JY(P2\!+RR"ODZZ$1I/[P ,.T#_]F=./RW_]DZZ >143S\\ !!.
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<D_O PP+(*H4D!(P"\
M,BR"IDC!+P$O+(*^3KH05$_O PP+(*H4D!(P"\ ,BR"IE)!2,$O 2\L@KY.
MNA T3^\ #$IL@%)G$$AX %.N@ZJ6$]";(!28 8Y? !@%).74YU3E4 $*G
M+RR"ODZZ#]!03T*G+RR"ODZZ#]103S L@JA(P"\ ,BR"IDC!+P$O+(*^3KH/
MW$_O Q(> "+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<F%P:&EC<RYL:6)R87)Y
M $%R="!S:&]P(&-L;V1E+@!7:6YD;W<@<&%I;G1E9"!S:'5T+@ 3E4 "\M
M A.N@0N6$]A#C\\ &1.N@J85$].74YU3E4 $JL@M)G%$AX ,A(> % +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<EF
M#C(\ !QK"'0 (L)1R?_\*4^":BQX 0I3H)N2.> @ @N 0!*6<02_H "$ZN
M_^)@!D*G\U].<T/Z "!.KOYH*4""<F8,+CP X '3J[_E& $3KH &E!/3G5D
M;W,N;&EB<F%R>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(</\D7TY=3G5@W#\\ I.
MN@#,5$]@[$Y5 !(YPXP)&T "$*G2'H CDZZ"&!03RE @LYF"$S?#'!.74YU
M(&T #")H "0O*0 $3KH)'EA/* !G4DAZ &T@1"\H #9.N@CP4$\F0$J 9S1(
M> /M+PM.N@>(4$\L &<D( ;E@"H ($4E: ( *0E1@"<2'@#[4AZ #A.N@=D
M4$\E0 "@+P1.N@B\6$\O+(+.3KH'BEA/0JR"SF" :6-O;BYL:6)R87)Y %=)
M3D1/5P J "!O 0@"$H89OR1P" (4X!.=4Y5 !(;("^/RT "$ZZ A<3TY=
M3G5.50 +P0X+0 (+RT "C\$3KH ,%Q/N'P "F8D(&T "A H Q(@ @ =G
M%#\\__\O+0 *3KH ]EQ/*!].74YU8/A.50 +PHD;0 *(%*QZ@ $91@P+0 (
MP'P _S\ +PI.N@#*7$\D7TY=3G4@4E*2$"T "1" 2(# ? #_8.A.50 +PI!
M[("H)$@@2M7\ %B\(81!83T'L@F"UR&7J)%].74YU3E4 $CG"" D;0 (
M> @"F8*</],WP003EU.=4HJ QG4@@J ( #&<,/SS__R\*851<3S@ $"H
M#4B /P!.N@6&5$^(0 @J $ #&<*+RH "$ZZ C!83P@J 4 #&<4+RH $DZZ
M U983R\J !).N@(46$]"DD*J 1"J@ (0BH ## $8(Y.5?_^2.<(("1M A!
M^O]$*4B"D @J 0 #&<*</],WP003EU.=0@J ( #&<P(!*0J@ (. _!"\J
M @0*@ -2( _ $ZZ Q103[!$9Q (Z@ $ Q"DD*J 1P_V# #&W__P ,9A (
MJ@ " Q"DD*J 1P &"H2JH "&8(+PI.N@":6$\,:@ ! !!F*AMM W__S\\
M %(;?__$"H #4B /P!.N@*V4$^P? !9J P+0 ,8 #_:B2J @P*@ 02,#0
MJ@ ()4 ! CJ ( #"!24I(0+0 -$(!(@,!\ /]@ /\^3E4 "\*0>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<IG$B9*)%(@"F;N</],WPP 3EU.
M=2 +9P0FDF $*5*"9B J 10@"\ +PI.N@0&4$]P SE7__$CG##"7RR1L
M@F9@#B!M A1B+'*9Q(F2B12( IF[G 3-\,,$Y=3G4@"V<$)I)@!"E2@F8_
M+0 ,3KK_8E1/*T#__&8$< !@V' ,"T #+"J 1C!B J 1@!G ,"T ##H
M> !@$"!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</]@N" %8+1.5?_\2'@0 $*G3KH"J%!/*T#_
M_ @ QG$DIL@GYF"" M__Q.74YU3KH !G 8/1.50 2'@ !$AZ !Y.N@'2
M+P!.N@'43^\ ##\\ %.N@ ,5$].74YU7D,* $Y5 !*K(*09P8@;(*03I _
M+0 (3KH "%1/3EU.=4Y5__PO!# M A(P"M __Q*K()V9RAX & */P1.N@#0
M5$]21+AL@F!M\# L@F#!_ &+P O+()V3KH!O%!/2JR"E&<&(&R"E$Z02JR"
MFF<*+RR"FDZZ 7)83TJL@IYG"B\L@IY.N@%B6$]*K(*B9PHO+(*B3KH!4EA/
M+'@ ! @N 0!*6<4+PU+^@ *3J[_XBI?8 9"I_-?3G-*K(* 9C!*K(*,9R@P
M+(**2, O "\L@HQ.N@%"4$\P+(*(4D!(P.6 +P O+(*$3KH!+%!/8 Y.N@$<
M+RR"@$ZZ 5183R M__PN;()J3G4H'TY=3G5.50 2.<.(#@M @P!,'\ 8D
M0-7L@G9*1&T*N&R"8&P$2I)F$#E\ *"F'#_3-\$<$Y=3G4P*@ $P'R &8(
M+Q).N@ *6$]"DG 8. B+P $+&R"<D[N_]PB+P $+&R"<D[N_X(B+P $+&R"
M<D[N_SHB+P $+&R"<D[N_[@L;()R3N[_RBQL@G).[O]\(B\ !"QL@G).[O\H
M3.\ !@ $+&R"<D[N_^(L;()R3N[_Q$SO X !"QL@G).[O_02.<!!$SO((
M#"QL@FY.KO^43-\@@$YU3OH B)O 0L;()N3N[^8DSO , !"QL@FY.[O\Z
M(F\ !"QL@FY.[O[:+&R";D[N_WPB;P $("\ ""QL@FY.[O\N3OH B!O 0L
M;()N3N[^C$[Z (L;()N(F\ !" O A.[OW83OH B)O 0L;()N3N[^ADSO
M , !"QL@FY.[O[.(&\ !"QL@FY.[OZ 2.</("!O !A,[P(# !Q,[P3\ "@L
M;(+*3J[_XDS?!/!.=2!O 1,[P # @L;(+*3N[^#B)O 1,[P # @L;(+*
M3N[^PB)O 0@+P (+&R"RD[N_JHB;P $("\ ""QL@LI.[OZ>(&\ !$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<K0>),9O(I0()B2D5F!$A 8 +
MQ4) 2$!,WP P3G4@+P $T(!B!@J '8<K04YU #[ $ ! *G@
M /R #Z@ )D " $ / 0
M !X M *__\ ( 0#@ #
M 0 __T ! 0 ___^ 0 # /___P $ @#___W__O__
M 0#_ 0 " , ! #___\ ! ( ___^ 0 # /___0 $ ! #_
M 0 ! $! 0
M ! @ $
M
M
M
M
M
M
M
M % /L
D @ 4 .@ /R #ZP $ /R
end
SHAR_EOF
if test 9501 -ne "`wc -c < 'DEMOlition.uue'`"
then
echo shar: error transmitting "'DEMOlition.uue'" '(should have been 9501 characters)'
fi
fi # end of overwriting check
# End of shell archive
eosuosu