call pcstr(xp, yp, chi, str, angle, ns)
  xp, yp  <float> Coordinates (in cm) of base point to draw string
  chi     <float> Height (in cm) of effective character size
                   [different from 'high' specification in 'lstyle']
  str     <char>  Text string to be drawn with Courier font
  angle   <float> Direction angle to draw text (in degrees from +X axis)
  ns      <int>   Number of bytes of text string
                  If given as positive value, string (lower left) is started
                   from the base point (xp,yp).
                  If given as negated value, end point (lower right) of the
                   string is adjusted to the base point (xp,yp).

EXAMPLE
      parameter (iwhite = -255, igray = -128, iblack = 0, none = -999)
      parameter (iblue = 255, iyellow = (255*256 + 255) * 256)
      call psopn('ptext.ps', 'A4P')
      call plots(3., 2.)
      call dfpcol(0, 200)
      call paintr(0., 0., 15., 9.)
      call lstyle('HB', 1., 0., iblack, none)
      call ptext('Helvetica-Bold', 14, 1., 7., 0)
      call lstyle('ti', 1., 30., iwhite, iblack)
      call ptext('Times-Italic', 12, 12., 7., 2)
      call pcstr(15., 6., 1., 'Courier', 30., -7)
      call lstyle('Kbi', 1., 0., iyellow, igray)
      call ptext('Testテスト', 10, 6., 4., 1)
      call ptext('Testテスト', 10, 6., 4., 2)
      call lstyle('M', 1., 180., iblue, iwhite)
      call ptext('Testテスト', 10, 6., 2., 0)
      call lstyle('S', 1.5, 0., iblack, iyellow)
      call ptext('W=abc', 5, 9.5, 1., 0)
      call plote
      call pscls
      stop
      end

:/home/SHARE/lib/man/ptext.ps 1