SUBROUTINE  OBJFLT (FAULT) 
 
      INTEGER     ADDR,   ADRFLG, CUROP,  NEXTOP, CFLAG 
      INTEGER     PI,     XBBL,   XA,     XF,     XZERO,  DPVFLG 
      INTEGER     LC,     LCI,    LODLCI, LODLCV, LDLCVO, MAXLCV 
      INTEGER     NEXT,   NUMBER, I,      IOTYPE 
      INTEGER     J,      K,      L,      LABNLX, M,      N 
      INTEGER     PSYMB,  SYMBOL, TOP,    VALFLG, QVALUE 
      INTEGER     OPTOPX, OPNXTX, TOPX,   NEXTX 
      INTEGER     DUMMY,  OVCHN,  PEEKS 
      INTEGER     LO,     CI,     CO,     LOGICF, LOCSUP 
      INTEGER     VAREF,  INPUTJ, LCTS,   CRUCNT, FLTCNT 
      INTEGER ICLP05 
      LOGICAL     ENDOK,CONEND 
      COMMON   /LOGOS/  ADDR,   ADRFLG, CUROP,  NEXTOP, CFLAG 
      COMMON   /LOGOS/  PI,     XBBL,   XA,     XF,     XZERO,  DPVFLG 
      COMMON   /LOGOS/  LC,     LCI,    LODLCI, LODLCV, LDLCVO, MAXLCV 
      COMMON   /LOGOS/  NEXT,   NUMBER, I,      IOTYPE 
      COMMON   /LOGOS/  J,      K,      L,      LABNLX, M,      N 
      COMMON   /LOGOS/  PSYMB,  SYMBOL, TOP,    VALFLG, QVALUE 
      COMMON   /LOGOS/  OPTOPX, OPNXTX, TOPX,   NEXTX 
      COMMON   /LOGOS/  DUMMY,  OVCHN,  PEEKS 
      COMMON   /LOGOS/  LO,     CI,     CO,     LOGICF, LOCSUP 
      COMMON   /LOGOS/  VAREF,  INPUTJ, LCTS,   CRUCNT, FLTCNT 
      COMMON   /LOGOS/  ICLP05 
      COMMON   /LOGOS/  ENDOK,CONEND 
 
      INTEGER  AREAID (15), BCARD (41) 
      INTEGER  RWORD1, RWORD2, RWORD3, RWORD (3) 
      INTEGER  BTYPE 
      INTEGER  EXTDX, ERRFLG 
      INTEGER  NEWLCI 
      INTEGER  OFFSET, OW 
      INTEGER  RBITS, RCT 
      INTEGER  TWI 
      INTEGER  WF 
      EQUIVALENCE (RWORD1, RWORD (1)) 
      EQUIVALENCE (RWORD2, RWORD (2)) 
      EQUIVALENCE (RWORD3, RWORD (3)) 
      COMMON   /OBJCOM/ AREAID, BCARD, RWORD 
      COMMON   /OBJCOM/ BTYPE 
      COMMON   /OBJCOM/ EXTDX 
      COMMON   /OBJCOM/ OFFSET, OW 
      COMMON   /OBJCOM/ RBITS 
      COMMON   /OBJCOM/ TWI 
      COMMON   /OBJCOM/ WF 
 
      INTEGER  LBUF (66) 
      INTEGER  LCOUNT 
      INTEGER  PGECNT 
      INTEGER  UHEAD (15) 
      INTEGER  CHEAD (8) 
      INTEGER ICLP09 
      COMMON   /PRT/    LBUF 
      COMMON   /PRT/    LCOUNT 
      COMMON   /PRT/    PGECNT 
      COMMON   /PRT/    UHEAD 
      COMMON   /PRT/    CHEAD 
      COMMON   /PRT/    ICLP09 
      INTEGER     FAULT 
      INTEGER     MSGS (16, 6) 
      DATA  MSGS / 'SE','E ','SY','ST','EM','S ','PR','OG','RA','MM','IN
     1','G*','*1','**','  ',' ','IL','LE','GA','L ','IN','ST','RU','CT',
     1'IO','N ','FO','RM','AT','  ','  ','  ','SE','E ','SY','ST','EM','
     1SP','RO','GR','AM','MI','NG',' *','*3','**','  ',' ','BR','AN','CH
     1',' A','DD','RE','SS','IN','G ','ER','RO','R ','  ','  ','  ','  '
     1,'AD','DR','ES','S ','OU','T ','OF',' R','AN','GE',' (','PA','SS',
     1' 2',') ','  ','MI','SS','IN','G ','EN','TR','Y ','PO','IN','T ','
     1DE','FI','NI','TI','ON','  '/ 
      CALL EHX (LC,     LBUF, 1, 4) 
      CALL EHX (NEWLCI, LBUF, 6, 9) 
      CALL EHX (OW,     LBUF, 11, 14) 
      CALL ESP (WF,     LBUF,  1, 20) 
      CALL EHX (RWORD1, LBUF, 22, 25) 
      CALL EHX (RWORD2, LBUF, 27, 30) 
      CALL EHX (RWORD3, LBUF, 32, 35) 
      CALL WRLIN (CO, LBUF, 36) 
      CALL SGLPRT 
      CALL EST ('**ERROR**', LBUF, 1, 9) 
      CALL EST (MSGS (1, FAULT), LBUF, 11, 42) 
      CALL WRLIN (CO, LBUF, 43) 
      CALL SGLPRT 
      CALL SGLPRT 
      FLTCNT = FLTCNT + 1 
      RETURN 
      END