

      s = sentence()
      fname = field(s,' ',2)

      open fname to data.fd else stop 201,fname

      eof = 0
      loop
         readnext id else eof = 1
      until eof do
         read d from data.fd , id then
l1 = len(d)
            d1 = iconv(d,'MX0C')
l2 = len(d1)
display id : ' ' : l1 : ' ' : l2
            write d1 on data.fd , id
         end
      repeat
end
