C     .TITLE COOP
C
C  30 DEC 74 (PDH) READ LIMITS FROM FILE
C  13 DEC 74 (PDH) DISPLAY BOX, PUT 'ITAG' IN COMMON
C  12 DEC 74 (PDH) CHANGE FOR INTERLACED FIGURES
C  30 OCT 74 (PDH) CALLS NOW AS FAR AS 'PART10'
C  28 OCT 74 (PDH) MORE WORK ON 'PART6'; SEPARATE PARTS FOR CHAINING
C  25 OCT 74 (PDH) DEBUG 'PART4'; ADD 'PART6'
C  24 OCT 74 (PDH) DEBUG 'PART3' & 'PART5'; ADD 'PART4'
C  23 OCT 74 (PDH) 'PART2' WORKS; ADD 'PART3', 'PART5'
C  18 OCT 74 - PAUL HENDERSON
C
      LOGICAL T/.TRUE./,ISENSW,L
      INTEGER BOX(10)/0,12415,73899,32772,65663,87296,65791,-11008,0,0/
      COMMON /LIMITS/XMIN,XMAX,YMIN,YMAX
      COMMON /ANGLES/PIBY4,PI5BY4,PI
      COMMON /TAGS/ITAG
C
   10 CALL CLEAR (T)
      CALL DISPLY (0,20000,IGET)
      CALL OPEN (1,'BOXES SRC')
      PI     = 3.141593
      PIBY4  = PI/4.
      PI5BY4 = PIBY4*5.
C
  20  ITAG = 10
      CALL DISPLY (6,199,BOX,1,10)
  21  READ  (1,*,END=7) XMIN,XMAX,YMIN,YMAX,INDEX
      CALL CO
      CALL OP
      IF (ISENSW(5)) CALL DISPLY (3,ITAG-4)
C
      READ  (1,*,END=7) XMIN,XMAX,YMIN,YMAX
      CALL CO
      CALL OP
      IF (ISENSW(5)) CALL DISPLY (3,ITAG-4)
      CALL TEXT (2,99,200,0,7,2,'(I6)',INDEX)
      DO 22 K=1,2000
      L = ISENSW(17)
  22  CONTINUE
  23  IF (ISENSW(3)) GO TO 23
      GO TO 21
C
   7  CALL CLOSE (1)
      CALL OPEN (1,'BOXES SRC')
  71  IF (ISENSW(4)) GO TO 71
      CALL DISPLY (8)
      GO TO 20
      END
