# chkio - check error return from getch, putch, flush i/o call
include ratdef
#EREOF DEFINED IN RATDEF
   subroutine chkio (fd, ier)
   integer fd, ier
   
   if (ier == 1 | ier == EREOF) return
   write (STDERR, 1) ier, fd
   1 format(" *** error code ", i6, " from channel ", i6)
   
   return
   end