      INTEGER*2 IFHT,IFSTRT,IFWID,IFX0,IFY0,LENGF
      BYTE NFONTS
      INTEGER IUNITF
      COMMON /PINOUT/LUNIN,LUNOUT
      COMMON /PLT$FNT/IFSTRT(150,4),LENGF(150,4),IFX0(150,4),
     +       IFY0(150,4),IFWID(150,4),IFHT(150,4),NFONTS(4,3000,4)
      DATA IUNITF/89/
C
C
      IFAIL = 0
      ITEROP = -IUNITF
      OPEN(UNIT=10,FILE='font84.ascii',STATUS='NEW')
      CALL CCPDPN (ITEROP,'font84.dat','OLD','U',80,IFAIL)
      IF (IFAIL.NE.0) THEN
        WRITE (6,FMT=6000)
 6000   FORMAT (' Unable to read fonts - FILE=PUBLIC_FONT84')
      ELSE
        READ (IUNITF) IFSTRT,LENGF,IFX0,IFY0,IFWID,IFHT,NFONTS
        WRITE(10,2000) IFSTRT,LENGF,IFX0,IFY0,IFWID,IFHT,NFONTS
2000    FORMAT(10I10)
        CLOSE (UNIT=IUNITF)
      ENDIF
      END
