SUBROUTINE OUTPUT
      IMPLICIT INTEGER (A-Z)
      COMMON /ZEJECT/EJECT
      COMMON /ZOBUFF/OBUFF(132)
      COMMON /ZOPOS/OPOS
      COMMON /ZOUNIT/OUNIT
      COMMON /ZPRNTR/PRNTR
      IF (OPOS.EQ.0) RETURN
      IF (OUNIT.EQ.PRNTR) GO TO 20
      WRITE (OUNIT,10) (OBUFF(I),I=1,OPOS)
 10   FORMAT (132A1)
      RETURN
 20   IF (EJECT.EQ.1) GO TO 30
      WRITE (OUNIT,25) (OBUFF(I),I=1,OPOS)
 25   FORMAT (1H ,132A1)
      RETURN
 30   WRITE (OUNIT,35) (OBUFF(I),I=1,OPOS)
 35   FORMAT (1H1,132A1)
      EJECT=0
      RETURN
      END