/*ShowNote.rexx*/

IF POS('blocnotes.rexx' , SHOW('Ports'))=0 THEN do
   call delay(150)
   IF POS('blocnotes.rexx' , SHOW('Ports'))=0 THEN exit
end


address 'blocnotes.rexx'
options results

if words(Arg(1))>0 then do
   if Arg(1)='?' then do
      say 'USAGE: SHOWNOTE <pattern>'
      exit
   end
   text=Arg(1)
   SEARCH text
   id=result
   if id=0 then do
      say 'Not found.'
   end
   SHOW id
end