C%%A-RCB-0077-SL-12    LST -- ERROR MESSAGES
9000  WRITE(LUT,9010) PROMPT,ISTATE,IEVENT
9010  FORMAT ('0',A3,': ST',I4:,' EV',I4:,' NX',I4:,' JM',I4)
      GO TO 9300
9100  WRITE(LUT,9010) PROMPT,ISTATE,IEVENT,INEXT
      GO TO 9300
9200  WRITE(LUT,9010) PROMPT,ISTATE,IEVENT,INEXT,IJUMP
      GO TO 9300
9300  WRITE(LUT,9310)
9310  FORMAT(' LAST NUMBER BAD -- EXIT CALLED'/)
      CALL EXIT
9400  WRITE(LUT,9410) PROMPT,IJUMP,ISTATE
9410  FORMAT('0',A3,': UNIMPLEMENTED FUNCTION',I3,' ENCOUNTERED',
     1       ' AT STATE',I3,' -- EXIT CALLED'/)
      CALL EXIT
9500  WRITE(LUT,9510) PROMPT,BNAMIN
9510  FORMAT('0',A3,': FILE  ',32A1/
     1             6X,'HAS AN UNIMPLEMENTED LST FORMAT'/
     2             6X,'EXIT CALLED'/)
      CALL EXIT