Something like this in the user defined emulation should work:
Code:
define(&tmp,string,&str)
search(&tmp,'MY_KEY_WORD')
  doform()
  clearpage()
endsearch()
set(&current.line,&current.line + 1)
store(&current.line,&str)
if(ge(&current.line,&current.lpp))
  doform()
  clearpage()
endif()
_________________________
Technical Product Manager
I don't want to achieve immortality through my work; I want to achieve immortality through not dying - Woody Allen