LOGICAL*1 IX(10),X(10),IY(10),Y(10)
      REAL*4 YF(10)
      CALL VATT
      CALL PAGE
      DO 1000 I=1,10
      IX(I)=11-I
      IY(I)=I
      JX=IX(I)
      JY=IY(I)
      X(JX)=I
      Y(JY)=I
1000  YF(JY)=I*.3
      CALL XAXIS(1.0,10.0,1.0,.8)
      CALL YAXIS(0.0,30.0,3.0,1.0,7.0)
      CALL TICK(10,3)
      CALL PLTARR(10,1,1,X,Y,1,1,0.0)
      CALL YFACT(YF)
      CALL XINDEX(1,IX)
      CALL YINDEX(1,IY)
      CALL ENDPLT
      CALL VDET
      STOP
      END