?_ !l (/8EJT[bir{7%:DM^ilt.?EIMVeu!'/4:GPTWZn{ 4`ejpx}    $ , 4 : C J Q Y ` h r {    ! % + / 2 ; @ H P V Z ^ c h q x { & < E L W Z d h k o r v z   ' / : @ H N R Z a g k p s w }     ! ) 0 7 > A G M V ] d k r $)/8>GOXu~&*/4FJPT[pPlay-buttonPreferences- Record..."%d","%lu","?","CF_SOUND""Record"button","edit","static",( HWND hWnd )(BYTE(BYTE)inp((DWORD)(SAMPLE(Sound.(hGSample(lpSample(lpSound(unsigned(usPort+1),*)GlobalLock(*)lpSample;*lpCopySound++*lpSound*lpSound++*lpSound++ = (BYTE)inp( usPort );/* /* get a byte from A/D converter *//* no entry found, use default *//*************************************************************************/0x00001990-19912208-Bit;/* cannot;necessaryA/DAaronAdding a DLL for recording soundAmplificationAnimateBOOLBOOL bReturn;BYTE HUGE * lpCopySound;BYTE HUGE * lpSoundCONTROL "", ID_RECORDCONTROL "&ClipboardCloseClipboard();DISCARDABLEDLLDWORD dwDWORD dwBytes;DeleteES_LEFTEXPORTSEditEndDialog( hDlg,ExampleFALSEFARFileFile formatsGLOBALHANDLE hGSGMEM_MOVEABLE,GetGetTickCount();GlobalAlloc(GlobalFree(GlobalUnlock( Sound.hGSound );GlobalUnlock( hGSHANDLEHUGEHWNDID_CANCELID_RECORDDELAY,ID_RECORDNUMBER,Info about SoundToolLibMainMOVEABLEMessageBeep(0);MicrosoftNULLNeXTOpen...OpenClipboard(PASCALParametersRECDLLRECDLL.RecordRecordSRepeatSAMPLESAMPLE FAR * lpSample;SS_RIGHTSelectSettingsSoundSound.Sound.hGSoundSoundToolTRUETheTheThe SoundTool windowThe followingTheseThisWORDWS_BORDERWS_CHILD,WS_GROUPWS_TABSTOPWaitLoopWallaceWhen this checkbox is checked, pressing the Play-button replays the soundWindowsWriteProfileString( szAppName, szRecord____________________________________________aboutaboveactualallocateampliandanyapplicaarearray,bReturnbReturn = FALSE;bReturn = TRUE;bReturn);bReturn;betweenbreak;button.bytebytescalledcallingcancannotcase WM_cbHeapSizechangechar szcheckboxchecked,clickingclipbaclipboardclippedcommandcompletecontaincontentsconversionconvertercorrespondingcountcreatedatadecreasdefaultdefindelaydeletedescridestinationdirectdisplaydraggingdwBytesdwBytes--dwBytes;dwElapseddwFrequencydwRecordBytesdwStartdwStopechoeffectelseendenter theentryexchangeexportedfactorfadefilefilesfirstfollowingfollowsforformatfoundfrequencyfromfunctiongetgetshDlg,hGSamplehGSoundhInsthWndhaveheaderif(if(if( '?' == szBuffer[0] )if( NULL != (lpSample = (SAMPLE FAR *)GlobalLock( hGSample )) )if( NULL != (lpSound =includingindicatinstalled).intinternallyintois itskeylastleftlengthlibentrylibrarylikelimitslinearlistloadlocallocklooplpCopySound = sizeof(SAMPLE) + (BYTE HUGE *)lpSample;lpCopySound;lpProcDialoglpSample->lpSample->dwlpSample;lpSoundlstrcpy(mLaw-formatmarkedmatchingmemorymenumenuitemmessagemodifimoremousemovmustnDelaynRecordDelaynamenearnecessaryneedednextnotnumberoneoptionordinaloutp( (usPort+1), 0x0000 ); /* startoverlaypSoundparameterspartpasteplayplayingpositionpossiblepressingproblemproduceraisingrawrecdllrecordrecordingreducedreleasereplaysresultsreturn( FALSE );return( bReturnreverseroutinesamesamplesavescrollbarsegmentselectselectedselectionsequencesetshortshouldshowsizeof(SAMPLE)sizeof(szBufferslidersoundspecifspectrumstartstringstructureswitchszAppNameszBufferszBuffer,szBuffer, sizeof(szBuffer) );szBuffer[szName[szRecordBytesszRecordDelayszRecordPorttelltextthethistransfertwounsignedupdatesusFrequsPortuseduserusesvariousverticalvolumewFormatwParamwSampleSizewShiftwVolumewhenwherewhichwhile( dwBytes-- )willwindowwithwithoutwsprintf( szBuffer, "wsprintf( szBuffer, "%d", nRecordDelay );wsprintf( szBuffer, "%lu", dwRecordBytes );you/&;)z4gth of 128 chbm0bm1i*bm105bm11abm12>bm13jbm14bm15sbm16bm17bm2@bm3DAbm4(pbm5 xbm6bm7bm87bm9c|CTXOMAP!|FONT|KWBTREE|KWDATA,|KWMAP|Phrases|SYSTEM¹|TOMAP:|TOPIC|TTLBTREEnoJn(Jn[JnB4Jn Jn?JnJnf9Jn7Jn%JnhJn_JnUJn JnJn JnaJn JnJnMJnYJnXJneJn\Jn`YJn9dJn]JndJn*Jn 3JnBJnJnJnԡJnJnkJnJn4JnJnۣJnJnJnޡJn_JnJnբJn Jn(JnwJnJn3JnnJn7=JnJnl=JnuJnZJn*EJnJnDJn/JnEJn!QJn=JnfJn :JnJn_JnJnJnJnJnnJnY"Jn?JnNgJn#Jn*=JnvJn:Jn?JnrJn Jn/Jn-JnjJnJnJn JnsJn Jn_JnJnaJn-Jn#2Jn0Jn JnpJnlJnDJnJn{JnJnO%Jn)Jn6qJnlJn Jn/JVMlp<R,..$ ?   ???>? >????????>??~?p~???~??????????????????~ ~? > > ? ?      ? ? ? ? ? ??      ?? ??  ?? ??? ???????????????????????|?x?x pG?{ w?`?????ǁπ>|ǀ?π?>?<`0?|x?|>x?y>?>??|??|?|?? ?? ??? ?? ?????????>'>?>??????x>?????9>????1<??3|????#|?8??#|?8??x?x~?0p~???0???p??p??p???????????????χ?????????<?~>?<???????????? VMlp<R,..$ ?   ???>? >????????>??~?p~???~??????????????????~ ~? > > ? ?      ? ? ? ? ? ??      ?? ??  ?? ??? ???????????????????????|?x?x pG?{ w?`?????ǁπ>|ǀ?π?>?<`0?|x?|>x?y>?>??|??|?|?? ?? ??? ?? ?????????>'>?>??????x>?????9>????1<??3|????#|?8??#|?8??x?x~?0p~???0???p??p??p???????????????χ?????????<?~>?<???????????? |lp82no? ..lp>n]L0GG"GG"Ȉ "#:":&"":"`ob"#"&//:"x`h|pb"s&;"~?"#;&;""#&//:"GG"GG"M3KK K L~g?7<f7<~7<d? 07<fff6<ϳfff6<ϰfff6<ϰfff6<ϰfff6<ϰpg?fp7<I?;IKKM0 K KKK"KKKKKKKKKKKKKK K? 9|́ϙ ́9ϙLÃL a      0fpO0 w  fsϟ !ff`fg? !fggs !fgg3!faÄ w!ppp6$$ * @   |C N33333?$ 33333?$ 3333?$ g3333?$ 338x?$ ?&0 ?&0 ?& -p - - - =0K0KK`KKKKKKK3K`KKK`K$h @  3 `f 3 f 3 f  3 wf  3  f  3  f  3: fʮn @3: fʦʮn 33*: f&ʦ.Ύn 033*: 0fȊ&ʦn.Ύn 33w `f&ʦ 33 ? f&ʦ 33g 0f&ʦ 0393!{ f(&Ȧ!#93"ۻf(&ȦJ"#939"ﻱf(&ȦhB?`#929 ?:f &LȦhB[ ?j#1"9~:0b &LȦhBWj#1"):;;b &LȦhBW jnn#1")8? < ?~:;; b &LfȦh@W~? <8~j*h&#1"")0<? <8~;93˰ήb &LNfȦh@W?">"""@}"}?0?"?"x?~"x>"x>"@x"x"x"x"x"x>?"x?0?"j8" {"L{" " " " # ##(#?#$Nlpzn??????????????????????<??~???~??????????lp|&??????????????~???>?<??????????????????N,#lpt___GA???      ?? ?? ?? ??/&???????             ????1H?6lpz$_/w/w?? ??? ?      ? ?  ?????           ? ? ? ? ?  ?DH,#lpt___GA???      ?? ?? ?? ??/&???????             ????1HlpJ /@/#. #.? #,,,,,,,++?*!*     ?      ? ??       ? @@     ?       ??  ?  ?         ?       ? ? ? **+,,,,,,,,,?,-....G,#lpt___GA???      ?? ?? ?? ??/&???????             ????1Hlp`=? ? ?              ??             ? ? ?  },#lpt___GA???      ?? ?? ?? ??/&???????             ????1H%lpz A????        ? ? ???? ?? ? ?8???????????????8x                  ??Hlpzn??????????????????????<??~???~??????????,#lpt___GA???      ?? ?? ?? ??/&???????             ????1Hlpzn??????????????????????<??~???~???????????6lpz$_/w/w?? ??? ?      ? ?  ?????           ? ? ? ? ?  ?DH6-lq( SoundTool Help, HNI^BT9T + +!Help Index=+=*&JPBǁ=~Help Index vh=v@R,Informations Programmers:msvmCXJB8cusagexs 5K}Ps8m814,181!Information '1'",='=7@JPJǁ=~vL=v@R,Version 3 Cby Martin Hepperle,v,)$JPB=~j,j7@,Ȁ a simple utility to manipulate Xd 8-bit wJ. It relies on dynamic link DSOUND.DLL ( B by O) to /a c+of ;wX.  !cut, copy -*s of a Yto 5perform cations to whole wYor to a +of X.To use  efficiently a necessary. Some s #be such a beast.#j#! 7#7,*JPBǁ=~  ,7,)$JPB=~c,BVJPBǁ=~  After firing up displayed:Items in  :G=G' JB*.SOUGXd ?w.Implementation standard defined:*.SNDGXd w. !ly be in s: 1. Hd by Os SOUNDER a k.2. Hd by  a longer (see Vption of s below). automagically detects kind of SND it reading.*.NXTof ws by computer.  =?16-Bit Xs Gby  to F. mLaw-format not supported yet.pJPB=~ ;      SUN Audio*.SUNwby SUN SparcStation. =GXs in mLaw-format Gby  to F.ANSI*.TXTText .  =egers in range 0...255 separated by blanks, tabs or newlines. It possible to Ia of e.g. Excel by xying a Ӵ255*sin(x)+1).x a legal :127 200 D230255 D D5<JPBǁ=~8  Save...Writes ?w{of wto a . s explained (File ).8 802JPBǁ=~ t>8>14JPBǁ=~8  8vk>v+(JPBǁ=~repeats 9often easier n access through popup treeCvC4:JPBǁ=~8  uion( C(hJPBǁ=~8r              Flipflips +of {in Zion flipped to:ReverseRs gof +of z Rd to: Expanddoubles each of +of z, interpolation to ;a smooth result.has Wsas a Le of .expanded to: Shrinkcollapses every of +of z; average of /e(/JPBǁ=~8r       has Wsas a increase of . shrinked to: Amplify to nnn%scales each in ca of {by a of nnn/100 .Min a in- or Le of tude (sound ). If wtude would exceed (127) result clipped to se . Srate !be iby Amplification... scaled to: Fade Ins in ca of {by an increasing =0 to 100 % of original value.Q/JPBǁ=~8r ;          Min a in r. faded in to: Fade Outs in ca of {by an Ling =100% to 0%.Min a out r. faded out to: Echo:s ps in +of z, |ing at 3of t. If Yenlarged to avoid truncation of ps. q)!be iby Echo...Copycopies +of {to 4}JfJPBǁ=~8r    Cutcuts +{to 4nTs +zFF8BJPBǁ=~8  ubtFtpJPBǁ=~8r         New ,s 5?a new wslot, boxInsertinserts 5?at 3by uin {Appendappends 5?to wof zOverlay$s 5?beginning at 3by uin {; useful qrs. If %clipped to of X.t?PJPBǁ=~   Starts sampling of J. (Only ble if an L-board DLL _G_7@JPBǁ=~8r  Echo...yof ps Sps:ke_k' JBǁIf Sps too small something that vs a [feedback. =k SxJPBǁ=~8r     ...yof Xs to Ca SGto adjust E. (Only ble if an L-card DLL R...yfication used by Edit-Selection-Amplify to nnn%.: :02JPBǁ=~ Infor:G`JPBǁ=~8r    F1 Helphow hell did manage to ]help ?Info...Wboring stuff as usual,,)$JPBǁ=~> ,>!Programmers Info 1: Formats2>>,*JPBǤ=~ %>%",%?PJPBǁ=~ ![wXs in s:8 bit ?nothing but a stream of contigout .ANSI the W?, but in a human readable m, per line.Sounder SND:has been Ped by Oused by his program Sounder. It static SAMPLE ;>WCopySound8copy a wYto 2ord */{ ample;&b'&  Z \; X l  a= min( dwBytes,  dwStop - dwStart) ); != #= q+ a)) ) {  {  = -); += dwStart; Bytes = d Start = 0; Stop = d lpSample->usFreq = usFreq; lpSample->usSampleSize = usSampleSize;4>NJPBǁ=~ lpSample->usVolume = usVolume; lpSample->usShift = usShift; lpSample->szName, szName);  { 1= 4; }  ample ); if( ) ) { EmptyClipboard(); SetClipboardData( , ); d  = ;8yes, we finally did it ! */ } t { Iopen 2rd, 9*/**XJPBǁ=~ } } t { IY, 9*/ } } t { IY, 9*/ } P);}>WPasteSound8pastes Y5free slot */{ ample;  Z \; X l  if( wSounds >= MAXSOUNDS ) { 8cannot -vs, 9*/ P); } {== ) ) { 8cannot open 4, 9*/ P); } != #= ClipboardData( )) )*8BJPBǁ=~ {  { !=  hGSound = Bytes )) ) {  -)) ) {  dwBytes = Bytes; dwStart = Start; dwStop = Stop; usFreq = lpSample->usFreq; usSampleSize = lpSample->usSampleSize; usVolume = lpSample->usVolume; u:FJP-/&Bǁ=~ usShift = lpSample->usShift;  szName), lpSample->szName ); a= dwBytes;  { 5= 0; }   = ; 8we finaly arrived here */ } t { 8cannot Yfree it */ 8and 9*/ ); } } t@@9DJPBǁ=~ { 8cannot alloc Y9*/ } ample ); } t { 8cannot 5, 9*/ } } d Q);}>9 wof Ycode */>@ @@!Programmers Info 4: Recorder hM@M(", QXs JPBr  Umglobal-allocate Xd J, CYfill SAMPLE EJ. pointer to set up by   be (d or ed. Just iall elements of according to Pition (Clipboard ). @2Ucalled Settings ... selected. U confirm to f:B(OB,*J^BrW}etup( );@B..JXBr77=3Umask all E), [m in K^. released quits , so it advisable to store in WIN.INI. )!be ed  called at time of . /0,  examples ns excerpts my Yan 8-bit MCto Yaudio Kat up to 40 kHz.  be d DLL  =at least  s @2 @3.202,*JPBǁ=~ C:2C&, DEF ning s!s.4C4:FJPBǁ=~ LIBRARY EXETYPE WINDOWSCODE PRELOAD fDATA SINGLEHEAPSIZE 1024r WEP @1 RESIDENTNAME K etup @2 K ample @3 K DlgProc @4 ;used by LO4L&, etup Uby  asks (. L 8BJPBǁ=~ W}etup( ){ |PROC ; X = MakeProcInstance( (FARPROC)RecordDlgProc, );  = DialogBox( , "RECORD_DLG", , ); FreeProcInstance( ); Q); 8return if OK */}PO P&, ample Uby  returns J.$PCXJPBǁ=~W}ample( , SAMPLE }* '){ ound; \; \Start; DWORD f, lTick, nTick, `, h; X  a= j; != (hGSound = a)) ) { -)) ) { &->hGSound = ; &->dwBytes = d &->dwStart = 0; &->dwStop = d &->usFreq = D00; &->usSampleSize = 0; &->usVolume = 20; &->usShift = 4;  Start = ;>NJPBǁ=~ lTick = 8ms */ if(  ) { #A*/  { : 6 #A*/ _asm { cx,<>=3  8loop Fer */ :  8empty */ } } } t { #A*/  {?PJPBǁ=~ : 6 #A*/ } } nTick = 8ms */  = Start; a= &->dwBytes;  { 3> 127 ) 3-= 128; t 3+= 128; 4; } ound ); 8elapsed time in milliseconds */ if( nTick < lTick ) g= 0xffffffff - lTick + nTick;i?PJPBǁ=~ t g= nTick - lTick; i= (1000.0 * ((double)pSound->dwBytes / (double)dwElapsed)); &->usFreq = ))dwFrequency; wsprintf( ed at %u [Hz]", i); &->szName, );  = ; } t { 8cannot new w*/ ); } } t { 8cannot new w*/ } Q);}QRQ%, DlgProc Uby etup asks (.WQBVJPBǁ=~W}DlgProc( , , LONG lParam){  ; l ( ) { $COMMAND: ID_OK == ) { DlgItemText( s) ); a= atol( ); DlgItemText( s) );  = atoi( ); if(  !=  ) {  =  ;  Delay, ); } if( k!= a) { k= dBVJPBǁ=~  Bytes, ); } w); } u== ) 0EGG=3 { w{); }  $INITDIALOG:  SetDlgItemText( );  SetDlgItemText( ); SetFocus( DlgItem(hDlg,ID_RECORDDELAY) ); N  } N}SHS&,  Uby LIBENTRY.ASM iloaded.SDZJPBǁ=~W}( ance, wDataSegment, &, LPSTR lpszCmdLine ){ = ance; 8get stored )WIN.INI */ ProfileString( , ,    { 8no {, use O*/ k= 50000;  Bytes, ); } t { k= atol( ); } ProfileString( , ,    { 8no {, use O*/  = 0;  Delay, );XCXJPBǁ=~ } t {  = atoi( ); } ProfileString( , ,    { 8no {, use O*/ = 0x300; wsprintf( "%u", ); Port, ); } t { = ))atoi( ); } if( '> 0 ) UnlockData( 0 ); 8make _eable */ return( );}@"@%, GlobalVariables by r@r6>JPBǁ=~ DWORD j; 8number of to C*/ ; 8delay G*/; 8library instance handle */; 8A/D Cport address */*Buffer[80]; 8avoid buffer on stack DS != SS */*AppName[] = "SoundTool";*RecordBytes[] = Bytes";*RecordDelay[] = Delay";*RecordPort[] = Port";=#r=&, Makefile to Ii=u;HJPBǁ=~ all: @.dll@.obj: @.c @.h cl -c -Asnw -Gsw -Oas -Zpe -FPi -W3 @.c.obj: .asm masm -Mx ,libentry;@.res: @.rc @.dlg @.h rc -r @.rcNO=3@.dll: .obj @.obj @.def @.res link @+libentry, @.dll,,/NOD /NOE sdllcew+libw, @.def rc @.res @.dll<(u<&, DLG to IRCH<8BJPBǁ=~RECORD_DLG DIALOG LOADONCALL g9, 26, 186, 42CAPTION ing "STYLE | WS_CAPTION | WS_DLGFRAME | WS_POPUPBEGIN `Number of Xs:", -1, | | 10, 8, 74, 10 ^NUMBER, q| | | 90, 8, 32, 12 `Delay F:", -1, | | 8, 22, 76, 10 ^DELAY, q| | | 90, 22, 32, 12 `Cancel", , BS_PUSHBUTTON | | | 134, 6, 46, 14 `Ok", ID_OK, BS_DEFPUSHBUTTON | | 134, 24, 46, 14END%%",!%!!Z9!9",pacp@ds0rus1i.bitnet!9!!gF!F)$JPBǁ=~aaron@jessica.stanford.edu!F!!|-!-)$,Pǁ=~.-.*&>KPBǁ=~!.!!yp 0; C#&=3R5SSTneHelvKJnJnAJnJnTms RmnHJn5IJnT#JnSymbolnH&Jn['Jn?JnUniversJnNJn@JnCourierEJnaJnkJnOld EnglishEJnJnHelv Outline=JnykJnH$$00 qh0000; ; ; ; ; ; ; ; ; ; ; ; ; C#C#C#&=3/&;)i24.Current foamplification4authorCF_SOUNDXclipboard: data structureTclipboard: example code`clipboard: format\copy sampleDcut sample@DSOUND.DLLexpanding<fade in,fade out0files: formatLfiles: headerPflip region(loading a file$menumenu itemspaste sampleHrecording samplesdsaving a file shrinking8SoundTool windowSpectrum windowStart Stop0?|x?|>x?y>?>??|??|?|?? ?? ??? ?? ?????????>'>?>??????x>?????9>???/&;)Lz number of ke Help IndexInformation about SoundTool0The SoundTool window; Menu ItemsProgrammers Info 1: File FormatsC#Programmers Info 2: Clipboard data exchange&Programmers Info 3: Example code=3Programmers Info 4: Recorder DLLeof(szBuffer) ); the while( dwBytes-- ) wsprintf( szBuffer, "%d", nRecordDelay ); wsprintf( szBuffer, "%lu", dwRecordBytes ); ecordBytes following format if( '?' == szBuffer[0] ) if( NULL != (lpSample = (SAMPLE FAR *)GlobalLock( hGSample )) ) lpCopySound  | | | | | | | | | | | | | | | | | } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } SAMPLE; } } } } } } } } } } } } } } } } } } } SAMPLE; er, "Recorded at %u [Hz]", dwFrequency ); yes, yet. you you you you you you you you you you you you you your yourself { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { 5500, 7330, 11000, 22000 } |{ { { { { { { { { { { { { { 5500, 7330, 11000, 22000 } |ider sound spectrum start structure szAppName szBuffer szBuffer, szBuffer, sizeof(szBuffer) ); szBuffer[ szRecordBytes szRecordDelay szRecordPort tell the this transfer unsigned usPort used user various wParam wSampleSize when which while( dwBytes-- ) window with without wsprintf( szBuffer, "%d", nRecordDelay ); wsprintf( szBuffer, "%lu", dwRecordBytes ); wsprintf( szBuffer, " you results return( FALSE ); return( bReturn routine same sample selected selection sequence short sizeof(SAMPLE) sizeof(szBuffer sl | | | | | | | | | | | | | | | | | } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } } SAMPLE; } } } } } } } } } } } } } } } } } } } SAMPLE; er, "Recorded at %u [Hz]", dwFrequency ); yes, yet. you you you you you you you you you you you you you your yourself { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { { 5500, 7330, 11000, 22000 } |{ { { { { { { { { { { { { { 5500, 7330, 11000, 22000 }