Previous: prstxt Up: ../plot79_p.html Next: prstyt
C-fpp- =================================================================
C-fpp- fpp -- C version 1.0.3 [27-Feb-1991]
C-fpp- Date: Wed Feb 27 18:08:39 1991
C-fpp- Directory: /u/beebe/plot79/parse
C-fpp- User: Nelson H. F. Beebe <beebe@osiris.usi.utah.edu>
C-fpp- Macro: _OS_UNIX=1
C-fpp- Macro: _AIX=1
C-fpp- Macro: _IBM_RS_6000=1
C-fpp- Macro: _BIG_ENDIAN=1
C-fpp- =================================================================
SUBROUTINE PRSTYP (LINESP,STRING,LENGTH)
C$ (Parse - Type)
C$ Type a message string to the terminal, with initial line
C$ spacing determined by LINESP. STRING(*) contains a packed
C$ message string of LENGTH characters. LINESP .LE. 0 means
C$ that the text should not begin on a new line, while LINESP
C$ .GT. 0 means that LINESP newlines should be issued to
C$ position the output LINESP-1 lines down from its current
C$ position. However, if the current position is in the first
C$ column, only LINESP-1 newlines will be issued.
C$
C$ No carriage return should be issued after the message, so
C$ that subsequent calls can append to it on the same line.
C$ On DEC computing systems, this is achieved with a
C$ non-standard dollar FORMAT item. On Univac systems,
C$ including an ASCII ESCape character in the output string
C$ will do the same thing.
C$
C$ This routine will attempt to make clean line breaks in long
C$ strings by breaking at a blank. However, it may
C$ occasionally be necessary to type long strings with
C$ predefined line breaks. Thus, the special sequences
C$ $N or $n in the message string will be replaced by a line
C$ break.
C$ (05-OCT-85)