      SUBROUTINE ASFCOL(I)
      INCLUDE 'Parametres.f'
      IF (ipostscript.eq.1.and.hi_plane.eq.0) then 
        ICOUL_TEXTE = 7
      else
        ICOUL_TEXTE = I
      endif
      END
