C***********************************************************************
C     THIS SUBROUTINE SETS UP THE AXES OF THE PLOTS AND CLEARS THE PLOT.
C***********************************************************************
      SUBROUTINE SETUP
C***********************************************************************
C     DECLARATIONS
C***********************************************************************
      CHARACTER*1 HORZ, VERT, CROSS, BLANK
      CHARACTER*1 PLOT(51,68)
C***********************************************************************
C     COMMON STATEMENTS
C***********************************************************************
      COMMON /SPLOT/ PLOT
      COMMON /PPL/ XDIV(14), YDIV(10), XINC, YINC
C***********************************************************************
C     DATA STATEMENTS
C***********************************************************************
      DATA HORZ /'-'/, VERT /'|'/, CROSS /'+'/, BLANK /' '/
      DO 10 I=49,51
         DO 10 J=1,68
   10       PLOT(I,J)=BLANK
      DO 20 I=2,67
         PLOT(1,I)=HORZ
   20    PLOT(48,I)=HORZ
      DO 30 I=1,48
         PLOT(I,1)=VERT
   30    PLOT(I,68)=VERT
      DO 40 I=2,47,5
         PLOT(I,1)=CROSS
   40    PLOT(I,68)=CROSS
      DO 50 I=2,67,5
         PLOT(1,I)=CROSS
   50    PLOT(48,I)=CROSS
      RETURN
      END