DIMENSION IWA( 2000)
      DIMENSION X(100),Y(100)
  888 FORMAT(F6.2,F6.2)
      CALL VOPEN (IWA, 2000)
      CALL CHARA( 2.50, 9.00, 9HTEST PLOT,4, 9,-1)
      CALL FAXIS(1.0,1.0, 6.0,0, 6HX-AXIS, 6)
      CALL LABEL(1.0,1.0, 6.0,0, 0.000, 1.000)
      CALL FAXIS(1.0,1.0, 9.0,1, 6HY-AXIS, 6)
      CALL LABEL(1.0,1.0, 9.0,1, 0.000, 2.000)
      CALL ASSIGN (3,'DATA1.DAT',9)
      DO 1,I=1, 6
      READ (3,888) X(I),Y(I)
    1 CONTINUE
      CALL CLOSE(3)
      CALL FDATA(X,Y,-3, 6, 1,0.0,1.0,0.0,1.0)
      CALL SETCOP(2)
      CALL VCLOSE(I)
      PRINT (5,999) I
  999 FORMAT(1H ,I6)
      END