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 / Plot / DSCURS.FOR < prev    next >
Encoding:
Text File  |  1991-04-13  |  392 b   |  18 lines
  1.       SUBROUTINE DSCURS (ISTRNG)
  2.       IMPLICIT NONE
  3. C
  4. C ***      DISPLAY CURSOR STRING (WITH COLOR1 BEFORE AND COLOR2 AFTER)
  5. C
  6.       CHARACTER*(*) ISTRNG
  7. C
  8.       INCLUDE MATLAB$KOM:IOP.KOM
  9.       INCLUDE MATLAB$KOM:MATPLT.KOM
  10. C
  11. C
  12.       WRITE (WTE, 10) COLOR1, ISTRNG, COLOR2
  13.       IF (WIO.NE.0) WRITE (WIO, 10) COLOR1, ISTRNG, COLOR2
  14. 10    FORMAT (' ', A4, A, A4, $)
  15. C
  16.       RETURN
  17.       END
  18.