/*
**      Newton Developer Technical Support Sample Code
**
**      Bitchin' Piano, Shows loading and playing sounds and different pitches
**
**      by Todd Courtois, Newton Developer Technical Support
**
**      Copyright © 1993-1995 by Apple Computer, Inc.  All rights reserved.
**
**      You may incorporate this sample code into your applications without
**      restriction.  This sample code has been provided "AS IS" and the
**      responsibility for its operation is 100% yours.  You are not
**      permitted to modify and redistribute the source as "DTS Sample Code."
**      If you are going to re-distribute the source, we require that you
**      make it clear in the source that the code was descended from
**      Apple-provided sample code, but that you've made changes.
*/


rf := OpenResFileX(HOME & "resources");


// Read in the 11KHz sampled sound
hiSound := GetSound11("1760Hz22K") ;
loSound := GetSound11("880Hz22K");

// close up any resource files that were opened (VERY important)
CloseResFileX(rf);


