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@"\ 0J 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 "+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(\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 & @"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 ( #& 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]@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" (&\ !$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