	SUBROUTINE IFFONT( IFONT )
C
C  PROGRAMMER:  R.S. ZHOU
C		ALFRED UNIVERSITY, JUNE-1988
C
C	THIS ROUTINE SELECTS ACTIVE FONT FOR TEXT DRAWING.
C
C	IFONT = 1: STANDARD FONT AS DEFINED IN "IFINIT".
C	IFONT = 2: ITALIC STANDARD FONT.
C	IFONT = 3: BOLDFACE STANDARD FONT.
C
     	INCLUDE 'IMAGEM.CBS'

     	IF( IFONT.EQ.IFN .OR. IFONT.LT.1 .OR. IFONT.GT.3 ) RETURN
     	IFN = IFONT
     	IF( IPL.GT.NBS-3 ) CALL IFINIT_DUMP
     	IPB(IPL+1) = 'S'
     	IPB(IPL+2) = 'Z'
     	IPB(IPL+3) = 48+IFN
     	IPL = IPL + 3

     	RETURN
	END

