        IF(FLNAME.EQ.'SCHOTT.BIN')  CATNAME='SCHOTT       '
        IF(FLNAME.EQ.'SCH2000.BIN') CATNAME='SCH2000      '
        IF(FLNAME.EQ.'OHARAMULTI')  CATNAME='OHARA        '
        IF(FLNAME.EQ.'HOYA.BIN')    CATNAME='HOYA         '
        IF(FLNAME.EQ.'CHANCE.BIN')  CATNAME='CHANCE       '
        IF(FLNAME.EQ.'CORNIN.BIN')  CATNAME='CORNIN       '
        IF(FLNAME.EQ.'HIKARI.BIN')  CATNAME='HIKARI       '
        IF(FLNAME.EQ.'RADHARD.BIN')  CATNAME='RADHARD      '
