      SUBROUTINE PROMPT (PAUSE)
      IMPLICIT NONE
C
C ISSUE MATLAB PROMPT WITH OPTIONAL PAUSE
C
      INTEGER PAUSE
C
      INCLUDE MATLAB$KOM:IOP.KOM
C
      CHARACTER*1 DUMMY
      INTEGER COLOR1, COLOR2
C
      DATA COLOR1 / Z'9B33336D' /, COLOR2 / Z'9B30306D' /
C
C
      WRITE (WTE, 10) COLOR1, COLOR2
      IF (WIO.NE.0) WRITE (WIO, 10) COLOR1, COLOR2
10    FORMAT (/, 1X, A4, '<>', A4, $)
      IF (PAUSE.EQ.1) READ (RTE, 20) DUMMY
20    FORMAT (A1)
      RETURN
      END
