SUBROUTINE SETPEN(I) RETURN END