	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 'HP7221.CBS'

     	IF( IFONT.EQ.IFN .OR. IFONT.LT.1 .OR. IFONT.GT.3 ) GOTO 999

     	IF( IFONT.EQ.2 .OR. IFN.EQ.2 ) THEN
    	    IF( IPL.GT.NBS-5 ) CALL IFINIT_DUMP
    	    IPB(IPL+1) = '~'
    	    IPB(IPL+2) = '/'
    	    IPL = IPL + 2
    	    IF( IFONT.EQ.2 ) CALL IFINIT_MBA(75.0)
    	    IF(   IFN.EQ.2 ) CALL IFINIT_MBA(0.00)
     	ENDIF

     	IFN = IFONT

999	RETURN
	END

