# putlin - put out line by repeated calls to putch
include ratdef
   subroutine putlin(b, f)
   character b(ARB)
   integer f, i
   
   for (i = 1; b(i) ^= EOS; i = i + 1)
      call putch(b(i), f)
   return
   end