{  1: } {******************************************************************************}
{  2: } { 									      File: SoundSmith.p                                                    
{  3: } {
{  4: } {								A Steve Wehrmann Demo Program
{  5: } {
{  6: } { 							Copyright 1990  by GS---> Specific, Inc
{  7: } {
{  8: } { 								All Rights Reserved World Wide
{  9: } {
{ 10: } { 								  Written By: Steve Wehrmann
{ 11: } {******************************************************************************}
{ 12: } 
{ 13: } 
{ 14: } Unit SoundSmith;
{ 15: } Interface
{ 16: } 	Uses 
{ 17: } 			Types, GSOS,TMLUtils;
{ 18: } 
{ 19: } 	Const
{ 20: } 			{ Possible SoundSmith ToolSet Errors }
{ 21: } 			
{ 22: } 		SSalreadyStarted		= $4503;
{ 23: } 		SSnotActive				= $4501;
{ 24: } 		SSwrongOS				= $4502;
{ 25: } 		
{ 26: } 		PauseOn					= $FFFF;
{ 27: } 		PauseOff					= $0000;
{ 28: } 		
{ 29: } 	
{ 30: } 	Type
{ 31: } 		
{ 32: } 		LoadSongRecHndl		= ^LoadSongRecPtr;
{ 33: } 		LoadSongRecPtr			= ^LoadSongRec;
{ 34: } 		LoadSongRec				= Record
{ 35: } 										SongName		: GSString255Ptr;
{ 36: } 										MemoryID		: Integer;
{ 37: } 										MemoryType	: Integer;
{ 38: } 									    End;
{ 39: } 									    
{ 40: } Procedure SSBoot; Tool $45,$01;
{ 41: } Procedure SSStartUp(DPageAdd : Integer); Tool $45,$02;
{ 42: } Procedure SSShutDown; Tool $45,$03;
{ 43: } Function SSVersion : Integer; Tool $45,$04;
{ 44: } Procedure SSReset; Tool $45,$05;
{ 45: } Function SSStatus : Boolean; Tool $45,$06;
{ 46: } Procedure LoadSong(pBlockPtr : LoadSongRec); Tool $45,$09;
{ 47: } Procedure PlaySong(Flag : LongInt); Tool $45,$0A;
{ 48: } Procedure TurnOffSong; Tool $45,$0B;
{ 49: } Procedure SetVolume(NewVolume : Integer);  Tool $45,$0C;
{ 50: } Procedure PauseSong(PauseValue : Integer); Tool $45,$0D;
{ 51: } 
{ 52: } Implementation
{ 53: } 
{ 54: } End.
