home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / libs / matlab.lzh / MATLAB / MATLAB.LZH / Source / MatLab / PROMPT.FOR < prev    next >
Encoding:
Text File  |  1991-04-13  |  482 b   |  23 lines
  1.       SUBROUTINE PROMPT (PAUSE)
  2.       IMPLICIT NONE
  3. C
  4. C ISSUE MATLAB PROMPT WITH OPTIONAL PAUSE
  5. C
  6.       INTEGER PAUSE
  7. C
  8.       INCLUDE MATLAB$KOM:IOP.KOM
  9. C
  10.       CHARACTER*1 DUMMY
  11.       INTEGER COLOR1, COLOR2
  12. C
  13.       DATA COLOR1 / Z'9B33336D' /, COLOR2 / Z'9B30306D' /
  14. C
  15. C
  16.       WRITE (WTE, 10) COLOR1, COLOR2
  17.       IF (WIO.NE.0) WRITE (WIO, 10) COLOR1, COLOR2
  18. 10    FORMAT (/, 1X, A4, '<>', A4, $)
  19.       IF (PAUSE.EQ.1) READ (RTE, 20) DUMMY
  20. 20    FORMAT (A1)
  21.       RETURN
  22.       END
  23.