SUBROUTINE  PLTQ1 (X,Y,P)

C     [QUADRANT #1]
C     SCALE X,Y TO FIT INTO THE FIRST QUADRANT ASSUMING THAT THEY
C     ALREADY LIE IN THE RANGE (0.0 .LE. X,Y .LE. 1.0).
C     [15-FEB-74]

      LOGICAL*1     P
      DATA        HX,HY/4.50,3.25/

      CALL PLTMS (HX*X,HY*Y,P)
      RETURN

      END