/*********************************************************************/
/* IMBED - Process .im records in the input stream.                  */
/*********************************************************************/
 
  signal on novalue
 
  arg demo .
 
  if demo = '' then do
     ap = 'rexx pdadd'
     cp = 'rexx pdcall'
  end
  else do
     ap = 'addpipe (trace name <3>)'
     cp = 'callpipe (trace name <2>)'
  end
 
  level = 1
 
  do while level > 0
     signal off error
     'peekto in'
     signal on error
     select
        when rc = 12 then do
           'sever input'
           level = level - 1
        end
        when rc /= 0 then exit rc
        when left(in,4) /== '.im ' then
           cp '*: | tolabel .im | *:'
        otherwise do
           'readto'
           parse var in . fn ft .
           ap '<' fn ft '* | *.input:'
           level = level + 1
        end
     end
  end