




      open 'PLIP.BP,MSGS' to msg.fd else stop 201,'PLIP.BP,MSGS'

      read x  from msg.fd , 'LOGIN'    else x = ''

      loop
         t1 = index(x,'|',1)
         t2 = index(x,'|',2)
         if not(t1) or not(t2) then exit
         read xx from msg.fd , x[t1+1,t2-t1-1] else xx = ''
         x = x[1,t1-1] : xx : x[t2+1,999999]
      repeat

      display change(x,@am,char(13):char(10))
end
