/* Adds audio data to the entropy pool */
/* This software is Public Domain */

call RxFuncAdd 'SysWaitNamedPipe', 'RexxUtil', 'SysWaitNamedPipe'

line = 'NULL'
data =''

do while line \= ''
    parse pull line
	data = data''line
end /* do */

DO WHILE LENGTH(data) > 0
	chunk = SUBSTR(data, 1, 255)
	chunk = '03'x''D2C(LENGTH(chunk))''chunk
	call SysWaitNamedPipe '\PIPE\ENTROPY'
	say '0:'result
	call PipeOpen 'handle', '\PIPE\ENTROPY', Duplex, Byte
	say '1:'result
    call PipeWrite handle, chunk
    call PipeClose handle 
	data = SUBSTR(data, 256)
END