# remark - send packed string to standard error file.
include ratdef
   subroutine remark (string)
   integer string
   integer c
   
   for (i=1;; i=i+1) {
      c = byte(string,i)
      if (c == NULL) break
      call putch (c, STDERR)
      }
   call putch (NEWLINE, STDERR)
   
   return
   end