🚀 go-pugleaf

Checksum: 3932924087 (verify with brik -cv)
Submitted-by: Joe Ervin <ervin@pinbot.enet.dec.com>
Posting-number: Volume 6, Issue 24
Archive-name: sounder_je/part01


BEGIN_DOC sounder.doc
At Last!!!  Some _decent_ sound for the HP48.  No longer are we
limited to the simple tones and clicks which we have had to put up
with for so  long.  Now we can have lasers, interesting alarms,
explosions, noise,  machine guns, and much, much more!!!

...hows that for an intro. 

This post contains my current sound player, SOUNDER, as well as a
sample of some of the sounds made possible by the sound player.

SOUNDER should be stored in your home directory.  SOUNDER is executed
automatically when you execute one of the sound objects in the
supplied directory.  Executing SOUNDER directly will produce the "Bad
argument type" message.

To use the sounds, simply execute the sound object corresponding to
the sound you want.  In other words, if you want to hear an explosion,
just press the menu key labeled "EXPL".  

The sound objects themselves contain the actual sound definition.  The
SOUNDER object contains the code that reads the sound definition and
then generates the actual sound.

Using the sound player, new sounds are extremely easy to create from
ML using the Star assembler.  At some future time an RPL sound editor
will be released, allowing users to create SOUNDER sound objects from
the HP48 keyboard.  If anyone wants to volunteer, I would be glad to
provide the source code and any assistance.  It's not a big job, but I
don't know when I'll be able to get around to it.

If people want any custom sounds created, I would be glad to give it a
try.  Just send me a description of what you want.  

Again, if you have the Star assembler, I'd be glad to send you the
sources to allow you to make your own sounds.  You don't need to know
anything about ML programming to make your own sounds, but you will
need to be able to run the Star assembler on a PC or whatever.

Please send mail to "ervin@pinbot.enet.dec.com" if you are interested.

Regards,

>>>Joe Ervin

The following contains the uuencoded the directory containing the
SOUNDER sound player as well as 6 sample sounds.  Below that is the
ASC encoded equivalent.
END_DOC


BEGIN_ASC sounder.asc
%%HP: T(3)A(D)F(.);
"69A20FF7273000000050C41435542550D9D20CCD20A70008FB97608F735608FB
9760143818F0413181B43431000C21458D3415071640009000000071C8000900
10000712D00090020000714510090030000484E207035F455E4445425B2130CA
0005035942554E450D9D20CCD20060008FB97608F735608FB9760143818F0413
181B43431000C21458D341503507059100620610007159100410610004484E20
7035F455E4445425B21302900040548505C440D9D20CCD20650008FB97608F73
5608FB9760143818F0413181B43431000C21458D34150A69000900916A400900
C0000484E207035F455E4445425B21306800040D47455E440D9D20CCD2025000
8FB97608F735608FB9760143818F0413181B43431000C21458D341503A0A8C00
001083A00044084E207035F455E4445425B2130280004014C4D41340D9D20CCD
20250008FB97608F735608FB9760143818F0413181B43431000C21458D341503
6070852006204100044084E207035F455E4445425B2130280004014C4D42340D
9D20CCD20250008FB97608F735608FB9760143818F0413181B43431000C21458
D3415036018110091089910044084E207035F455E4445425B2130280007035F4
55E444542570D9D20D29512BF8152140CCD20B74008F1466081AF048FB976034
920008FD7B5013281AF018F2D76081AF101C41418FB976081AF191BA00071421
4481AF141308EB3008F2D760174E78FB97608D341501F83100D515B015F09029
F15B0CD50F01808F1F97607D01412080824A0007132146132DE3400000C2818F
A481AF0AAC281A40AAC38E6100813A8B817808A1CE808001D015A01603490300
D581B506C9D8C4C4C0CA132146132D507C981B381A4129487411BA6E96A6110B
81AF1A13514713401BF6BF610BA4C81A40281AF1A818FA481AF0A01813A8B808
91A8781701018516600841203254381A309146164D71563162AB5136061FE210
01574D215D01B976071F3C40715738089B80D28088B1428AC85801AB4A3C5CFC
F474871A080F26DDF0681A311AB6A36A36A3220AB0808205A3281A30980D2078
0C28C6AFF1F3C40715738011FE210015542007136AC3018518C70008412015E0
16085090E50840AF2146164D71563162AB514281AF00164136061FE21001574D
215D01B976071F3C40715738089B80D28088B81AF101311428AC95801AB4A3C5
CFCF484871A080F269008E85001C050D86021B35551AB1A3D6C00A3D550AB181
AF101318C5AFF1F3C40715738011FE210015542007136AC3010681A311AB6A36
A36A3220AB0808205A3281A30980D20780C201201461648E7BCF01AE281A41A8
12B668082180982E381681A40A11381AF1A135BF0BF017414EAEA16113613414
513781AF0A1030148000D8000480000B200120004800048000171000A2008610
06800048000480004800048000480000B213083EB"
END_ASC

BYTES: #BE38h 1042.5

BEGIN_UU sounder.uue
begin 644 sounder
M2%!(4#0X+466*O!_<@,````%3$%315(%G2W`W`)Z`("_>0;X-V6`OWD&08.!
M#Q03&$M#$P#`$E380U%P800`"0```!>,`)```0!P(0T`"2```!=4`9```P!`
M2"YP,/54Y414)+42`ZP`4#"5)%7D5-#9`LPM``8`^)MG@']3!OB;9Q`T&/A`
M,8&Q-#0!`"Q!A3T4!5-P4!D`)F`!`!>5`4`!%@!`A.0"!U-/54Y$15(K,2`)
M``1%6%!,!)TMP-P"5@"`OWD&^#=E@+]Y!D&#@0\4$QA+0Q,`P!)4V$-1H)8`
MD``9I@20``P`0$@N<##U5.5$5"2U$@.&`$#0=%3E1-#9`LPM(`4`^)MG@']3
M!OB;9Q`T&/A`,8&Q-#0!`"Q!A3T4!:.@R````3@*`$2`Y`('4T]53D1%4BLQ
M(`@`!$%,33$$G2W`W`)2`("_>0;X-V6`OWD&08.!#Q03&$M#$P#`$E380U$P
M!@=8`F`"%`!`!$@N<##U5.5$5"2U$@."`$`0Q-0D0]#9`LPM(`4`^)MG@']3
M!OB;9Q`T&/A`,8&Q-#0!`"Q!A3T4!6,0&`&0`9@9`$2`Y`('4T]53D1%4BLQ
M(`@`!U-/54Y$15('G2W0DA6RCU$2!,PML$<`^$%F@*$/A+]Y!D,I`(#?MP4Q
M@J$/@2]]!ACZ`<$4%/B;9X"A'QFK`'!!$D08^D$Q@+X#@"]]!G'DA[]Y!MA#
M41"/$P!=40M1#PF2'[7`7?`0"/CQ>0;7$!0"""BD`'`Q$F0QTCX$```L&/A*
M&/J@RH*A!*H\Z!8`&*.X&(>`&NP("!`-40IA,)0P`%T86V"<C4Q,#*PQ$F0Q
MT@7'B;&#H122A$<1J^9I:A&P&/JA,15T,02Q;_L6L$J,H02"H1^*@:^$H0\*
M@3&*BX`9BH=Q$!!880:`%`(C18.A`QED8=0791,FNA5C8/$N`1!UU!+5$)MG
M</'#!!=U@X"Y""T(B!LDJ(R%$+JDP\7/3T=XH8#P8MT/AJ$3H6LZIF,Z(J`+
M""A0.H*A`XG0`H?`@FSZ'S],<%$W"!'O$@!110)P,:8\$%B!?`"`%`)1#F&`
M!0E>@`3Z$F1AU!=E$R:Z%208^@!A%&-@\2X!$'74$M40FV=P\<,$%W6#@+D(
M+0B(BZ$?$!-!@LI9"*%+.ES\_(2$%PH(+Y8`Z%@`P5#0:""Q4U6A&SIM#*#3
M5:`;&/H!,8%<^A\_3'!1-P@1[Q(`444"<#&F/!!@&#H1NJ9C.J8C`KJ`@`*E
M(Q@ZD`@M<`@L$`)!%D;HM_P0ZH*A%(HA:X:`$@B)XH-A&$J@$8.A'QI3^[`/
M<13DZAH6,19#015S&/J@`0-!"`"-`$`(`+`"$`(`A`!`"`!Q`0`J`&@!8`@`
0A`!`"`"$`$`(`(0``"LQ`"LQ
`
end
sum -r/size 32972/1476 section (from "begin" to "end")
sum -r/size 17916/1051 entire input file
END_UU