# sprint_com.r.i --- common block declarations for 'sprint'

   ARG_DECL
   integer     Pos,              # Current column position
               Line,             # Current line number on page
               Chunk,            # Number of chars sent since last poll
               Page_length,      # Number of lines per page
               Fd,               # Input file descriptor
               Direction,        # Current printing direction
               Outstanding_lf    # Current number of outstanding LFs
   character   Spacing,          # Normal spacing between characters
               Formadvance       # Normal spacing between lines
   bool        Outstanding_poll  # TRUE if there is an outstanding poll
   longreal    Quit_label        # Exit label for QUITs

   common /sp$com/ Pos, Line, Chunk, Page_length, Fd,
      Direction, Outstanding_lf, Spacing, Formadvance,
      Outstanding_poll, Quit_label, ARG_BUF