Options RESULTS

address 'status >t:binkdstatus'
tempfile='t:binkdstatus'
CALL Open('infile',tempfile,'r')

foundbinkd='false'
do while ~EOF('infile')
  text=ReadLn('infile')
  text=SUBSTR(text, 30)
  if text='binkd' then found='true'
end
Close('infile')