C FILE: PEN18.FOR
C
C PEN SELECTION ROUTINE FOR PENS LABELED 1 THROUGH 8
      SUBROUTINE SETPEN(I)
      INTEGER I
      CALL STPEN(I)
      RETURN
      END