PROC inputprocess(CHAN OF SP fs,ts,
                  []CHAN OF INPUT to.proc,
                  CHAN OF INT     )

  SEQ
    so.read.echo.line(fs,ts,len,line,result)
    WHILE result=spr.ok
      SEQ      
        next.int.from.line(line,0,number,TRUE)
        IF
          number=-999
            SEQ

              to.proc[i]!end.of.data
              i:=i+1
          TRUE
            to.proc[i]!line
        so.read.echo.line(fs,ts,len,line,result)
  
         
       
        
        
      
