SUBROUTINE  PLTMC (X,Y,S)

C     [MARGIN COMPRESSED]
C     PLTMC (X,Y,S) MOVES THE PEN TO THE POINT (X,Y) ON AN 8-1/2" X 11"
C     SHEET.  HOWEVER, A BORDER IS MAINTAINED 1" FROM THE EDGE, BEYOND
C     WHICH NO PEN MOVEMENT IS PERMITTED.  LINEAR INTERPOLATION IS USED
C     TO OBTAIN AN ACCURATE INTERSECTION OF ANY LINE SEGMENT WHITH THIS
C     MARGIN. IF S=.TRUE. THE PEN IS LOWERED, OTHERWISE THE NEW PEN
C     POSITION IS ONLY NOTED AS (X0,Y0). THE PEN IS ALLOWED TO WRITE IN
C     THIS MARGIN, WHICH IS SUBJECT TO A HYPERBOLIC TANGENT DISTORTION.
C     [02-NOV-73]

      LOGICAL*1    S,S0,P1,P2,Q

      IF (.NOT.S) GO TO 30
      X1=X0
      Y1=Y0
      X2=X
      Y2=Y
      CALL PLTMT (X1,Y1,P1,X2,Y2,P2,Q)
      IF (S0) GO TO 10
      CALL PLTMA (EX,WY,X0,Y0)
      CALL PLOT  (WY,-EX,3)
   10 IF (Q) GO TO 20
      CALL PLTME (X0,Y0,X,Y)
      GO TO 30
   20 IF (P1) CALL PLTME (X0,Y0,X1,Y1)
      CALL PLOT  (Y2,-X2,2)
      IF (P2) CALL PLTME (X2,Y2,X,Y)
   30 S0=S
      X0=X
      Y0=Y
      RETURN

      END