/* REXX */

/*****************************************************************************\
*  
*  BocaSoft System Sounds Named Pipe Example 
*
*  Copyright (c) BocaSoft Incorporated 1993
*
*  This simple REXX procedure takes an index from the user and writes
*  it to the BocaSoft System Sounds named pipe - "\pipe\bs_ssnd".  This
*  pipe acts like a file and can be accessed from OS/2, DOS and Windows. 
*  See the file ssndmsg.c for more information on index values.
*
\*****************************************************************************/

file = '\pipe\bs_ssnd'

do while 1

	say "Enter an index value: "

	index = linein()

	'echo 'index' > 'file

end

