      SUBROUTINE  S5(NCD,ITAG)
C.....TRACE WILL OCCUR AT ZOOM = 1 AND LIMIT TO 40 POINTS
C.....CRITERIA FOR ACCEPTANCE IS THAT THE CROSS MOVE APPR.
C     1/4 INCH ON THE RASTER
      COMMON/LIMITS/XMIN,XMAX,YMIN,YMAX
      COMMON/AR/BRAY(4,600),STRESS(200,4)
      COMMON/SIHI/IVECT(1800)
      NB=0
      NCD=0
    1 NCD=NCD+1
    2 CONTINUE
C-----NOW CALL THE CROSS ROUTINE TO FEED X,Y DATA INTO BRAY.
C
      CALL S4(U,V)
      BRAY(1,NCD)=U
      BRAY(2,NCD)=V
      L1=3
      NUMB=NCD
      ITAG=5
      CALL S3(L1,NUMB,NCD)
      IF(NCD.LE.1)GO TO 3
      CALL DISPLY(3,ITAG)
    3 CONTINUE
      IR=1
      CALL VECTOR(1,BRAY,1,NCD,IVECT,IR,LA,7,0,.FALSE.)
      CALL DISPLY(6,ITAG,IVECT,IR,LA)
      IF(NCD.LT.40) GO TO 1
C-----AT PRESENT NO EXIT BEFORE 40 POINTS ARE TRACED.
      RETURN
      END
