[comp.sys.mac] Due to popular demand, here it is: the Beep INIT!

bskendig@phoenix.Princeton.EDU (Brian Kendig) (01/17/90)

I received many, many requests for the Beep INIT which I happened
to come across over a year ago and only thought to mention here
earlier this week.  Too many requests to reply to individually!
Time to resort to UseNet..

Here's how it works: Pop this file into your System Folder and reboot.
It apparently patches the SysBeep routine to produce a pleasing
tri-tonal chord whenever the machine beeps.  (It overrides any beep
sounds you happen to be using, such as 'Monkey' or 'Boing', so
whatever sound you select through the Sound cdev will be replaced by
the chord.)  It's very nice - makes the SE and Plus sound Mac II-ish,
and makes the Mac II sound more Mac II-ish.

Caveats: It very rarely crashes the machine when it tries to beep with
the Mac's volume set to zero.  I've also had countless problems with
it and Deluxe Music Construction Set (by Electronic Arts), but then
again DMCS is the buggiest piece of software I own right now.

If anyone feels like it, would you please disassemble the code and
send me the output?  I'd like to reprogram this to see how it ticks
and to possibly fix that one little problem with it.  I'd like to redo
it in C, so if your disassembler generates C output, all the better...

The author of this program is unknown.

(This is the shortest program I've ever seen posted here, weighing in
at less than one screenful of BinHex'd code!  I'll post it to
comp.sys.mac.binaries and to sumex as soon as I figure out how to do
so.)

Enjoy!

     << Brian >>

-----
(This file must be converted with BinHex 4.0)

:#%*PCA!ZFfPd!&0*9#&6593K!!!!!!-f!!!!!1rj8dP8)3!"!!!$0R*-BA8"!!!
!!!!!!!)!"%*PCA"PDf9PF'9b)%&TC!!0a+i!#J!0rm#ff`!$EEEEEEEEEEB!$CB
8!!Vp)!!0rm!$`!%%!"X!!3!!!!f@,NP1594#C@9`)3#I-H,NSGMM#3!!"Hm!!!!
!!!!#X!!!!!"lX`!!!!!!!!!!*!%!!!3)#+"!Q)!%$JCd4,#K`iF3)4)38UB-R$)
###CaNS3+4BXK!J)#!1MI2i)9'QlXq"&15*)N69SC&p'KJ%maa*&l@1"GcCp!J`S
G5V5S8D)#k-(JN3TC+#0"p!'JX,3TU#04rlNVKH)&JP55R04aBL8JNR2JJ%(!)3"
-4J!(c)J3FJS9R4Fi%RK$08I1J4F"3&4"JZBI)e5N4(b)NZbI2,j1T(+$i3)!!JC
!!$aJ3f#TjUJ"a-A)$'#)9'dKq!!B)+!,!!&#8!%`%#)*!"'T!4!J!!@!JYJ!(03
'B#)h!8%q!%J!EQ'iLY`'#1`#S!'iKq%Z3#1,SATJDAd"'!dAB$S!,aQm")+fa4f
!$J!bZ2rM"`"$H8r$3H31+!-!#G-!3$%F!k3-!*S8-+!38(Q#+"(&'4M)m3H!30#
J)!$%d2F2)F"))!aMmi%"$QKNl%F3!r,4K`%S"M$ac3!(11%&#&p3mBJ6d,b3!%"
j3!J4K3KIL(A8N!"%&QRNN8JQUH556$ETj*034XQNG`3GB")i#!3%3CB!E'N5"!N
%"%QB!)`T!""QSTR!Q@1+5HDB@ik*!!4M(J"1Qf@qLF#AA'kTCCq!![#2Red'@UL
@9[i$$J%"JF!S!)ifQLJi%8eUkC@A+TST1*YfLZQRQS,+UDLHKQVUU+Ff0)"*`+c
k6kZX3R6!5P3ma%&,"!9JK"4&'0(33%N-iF3)$Sd8N!!004#4aKadb*'''(A383B
C))L4"`K#1"Z''b!X8BBEC+4aaJi0[1(X'@Qi%3BE))34,4VQJP#('fZimFBGEP3
Q%%%')D33!!`j`)!i"fK"%!F!#+)EV35T%1b`"0Q!Dd"#l0SV38i)i3346""NF!%
"p3C455HpKXp$*L&d3R#bX$"3bU[4ea$*#"h3d!*&$2'%%4YK@a%FaMm!!!:

-- 
| Brian S. Kendig      \ Macintosh |   Engineering,   | bskendig             |
| Computer Engineering |\ Thought  |  USS Enterprise  | @phoenix.Princeton.EDU
| Princeton University |_\ Police  | -= NCC-1701-D =- | @PUCC.BITNET         |
|   Systems Engineering, NASA Space Station Freedom / General Electric WP3   |

freek@fwi.uva.nl (Freek Wiedijk) (01/18/90)

In article <12973@phoenix.Princeton.EDU> bskendig@phoenix.Princeton.EDU
	(Brian Kendig) writes:
>I received many, many requests for the Beep INIT which I happened
>to come across over a year ago and only thought to mention here
>earlier this week.  Too many requests to reply to individually!
>Time to resort to UseNet..

Enclosed: the sound of this INIT as a 'snd ' resource. (Don't ask me why :-)

Freek "the Pistol Major" Wiedijk                  Path: uunet!fwi.uva.nl!freek
#P:+/ = #+/P?*+/ = i<<*+/P?*+/ = +/i<<**P?*+/ = +/(i<<*P?)*+/ = +/+/(i<<*P?)**

---
(This file must be converted with BinHex 4.0)

:#N9MEfCTELjcDA3!8dP8)90*9#%!N!3'H`#3"1E$8dP8)3!"!!!'Hh*-BA8"!*!
(!J!'4@0[CQPZ4J!R'S)!38C%!#G*-J!+!#H%4!#3!`-!*iUi!#H"@!!R'TJ!"[T
L!#H%4!0%!38!'!!"!*!$*aUb8dC*6&006eB"!D(DUT5KfUdG!!!A&3#3"JAe!*!
%@8X!N!Lh-J!!"!J)`!+hJ"81"X`4X-Y!!'m#3#&3J)LF0(E+%#4i!J!$!,N!Q#0
iS%QH+@rUZ#%MB+2,J!%'FJQ!C+1G"5mhaJ3`XfC!3MPI#JLP64@PPaFU'"J5aXf
B-QaF)J,J!!!Q!-83)CJ5*L1)-(0dZ1`!`"L!'!&F!(U*!i!f!%S#J+"B4%fC-A4
H5R%,J)aFLKBaDR6C#8!%!+d!#)2`NQc92eMA%S3Kd+8-!(!!%!'JL`"#E*8(&R!
C!&!8Pa4H9R"PaGdL8N%"m)K01b#3!0ZiJ3$D$Dbhlpr!JrrH6EbimH2)GqGHVMX
jlq$1M61IhYbim0rrXQ[IrSqkpqr9SiX(00ckpI1q!B(rMKchq2INJFG(Ijifq16
!H1RIcemrI%"&"#KJ%G(eCq"rm!fSi))-%PLFJEcF)q'%&&CB)5p&*+$KKKaff''
$Zd%SiSMq'HFJJX3Pd1#*bBRihSS,)NHLK48##110-D*Sh)('hH,MMd!''53J%54
Kj*&)*TPNFNEUk0b3!%*'+@85%94TTC9+,TQFP%!LU'4dA2UBK*00)TIPQ9NH*k3
lE,ETjTY[hQ,NPA6@5HHCJ)5TTj!!aShT**&&'YR%S)110mZKL"ik(U'-0XVSFBP
'1SXjP&CUU6Qc!1,STSeUS!'RIqiQDDE&M@TUT,YpbZQUK5,A4+M)*3V)UE3LfS5
RZ1,+DUZadSTLSml9HZLV[a,V+U&4*+[XXX`QLp`Vd%EEcE689QYYYG!Q+m+fh(E
VEEI0+K[YZ15@Dfkda6RljlEKMRIZ+q+&+kqkaCellEflc5X[Zr+'HUjal`Dm'lr
kYJ[VIqJ#XXV#$$IXm-0@@,(#a"5[%2(&'&mFhF--1jPaFKa$E!@+%8HAmFNSPib
F`p@dl2,,-,qmm-89ef`ca5Q2(2,12+p#R-T1i[caH$XlPr24aS8Fmp)rCkc&de"
(2F2889IpTbPBCjeeF9ThlEA@Zddp3p9NPke&FUBFI"c@ZhhYYYH!2#dfe@CElCc
EIdD0pYYD2idJe0(9,IMG@60Mq1')*ijieP$2lIMMBT[GYYHL9'ljjCKR$SJAR-2
+`qHFGrjHjTFR&rVTU+FZ1R'N%q2kkl$$6TcUY(r1!qfV)dLkjFAYlVXSa0Q11ql
*9DkfFlmR(lVYY`mIZRLNKhSkFTj8ErheeiZKrArDLb&Hpq#(,hjdeqpLr[RSThq
qpH!6iIllm-I[[[MH%iIprIMRAchiSF,I2AckUajbk%I!mGR[IZT,i#k+8m$`[Dq
"p803!$ea`!PLMcMq)q!C0XK"$Kj(%b$8a2')F`ELK2#%+%aK#$Y)U!kkm)AL55'
X22K"&DD`Jr$"BA4Hb%-G1LH%`SV8#3("`Pde#SE&XD%5PdM%$F++88k%ca*&D*`
1VZ'+@-bL&V&)R%TimBZ98)8BadM'-KCRLfLXJKUVJ-BXSJL-F2cLEZ*)4c!DCie
XE'-EM`2(%3,LLPfXSb#rQ%8ekR',iqNMV,KSR%(#dBhMJ@4d$UR&phbaM'2FA53
fZFNhH0+6cN2G*cpj(%kDmT5S6'8NGN2+2iRb2kSdTA&'5FYDf[)0a%&PmNTAR&Z
1mR5qE19lBRR+h4!6PFB4C6"T@FTL(Uq9ab3Q,Ef`c$PBF`l[DB3f'k%fDajRQq!
-jcD[kFhSN!#cR1BmTcV4+4jYCZ+Gm)bR2$-46R@DiClic+FqcA"1j)McR`!&*h(
BLD*p)LLJfbc11KI+d0f)Fji3I5Fh&FV3I6,dQ["*K%BhbY'1!U+M)2AS,%H*Kj+
Dp+3SaB0a3RUmNhidT$!&D8TR5Y2hE,5P+ieT5&%DRC5qKkBmc@JLSXP*QD*dQ54
e+A*dbY5E%UHNSEU$9+A+Krm3iUTBc5T@Gm1(VRVeUf!0DeJ"N99%Q2@XD%fV@Bm
MeUj1GDTY"HYlY%TAVC+eVR8pcPZT'PHj&JH[DT-VAJHE9ERfeDrM)B3IUdSF`YC
eV-N*+d`)BK#%+!3!$#&!'PJ4!$d3K!-!Z!`!jV!5%""%!4Xal8X-8)3a[-%-DA!
$j"m!!!: