DIMENSION ARRAY (2,3)
      COMMON/LIMITS/XMIN,XMAX,YMIN,YMAX
      COMMON/FFILE/IVECT(100)
      DATA ARRAY/0.,10.,-10.,0.,10.,0./
      XMIN=-20.
      XMAX=20.
      YMIN=-20
      YMAX=20.
2     DO 1 J=1,10
      CALL VECTOR (3,ARRAY,1,3,IVECT,1,LAST,7,1,.TRUE.)
      IVECT(1)=LAST
      CALL GLOP
1     ARRAY(2,1)=10-J
      GO TO 2
3     STOP 1
      END