C FILE: PEN07
C
C PEN SELECTION ROUTINE FOR PENS LABELED 0 THROUGH 8
      SUBROUTINE SETPEN(I)
      INTEGER I,J
      J = I-1
      CALL STPEN(J)
      RETURN
      END