REAL*4 X(8),Y(8),E(8)
      CALL VATT
      DO 10 I=1,8
      X(I)=I*.1
10    Y(I)=I*.25
      CALL PAGE
      CALL PRINT('FIRST LINEAR PLOT$',0,0.0)
      CALL SKIP(1)
      CALL XTITLE('SAMPLE TITLE FOR X AXIS$',0,1.0)
      CALL XAXIS(.05,.05,.1,1.0)
      CALL YAXIS(.75,3.0,.25,1.0,7.5)
      CALL PLTARR(8,4,4,X,Y,1,1,0.0)
      CALL PLTARR(8,4,4,X,Y,0,2,1.00)
      CALL PLTARR(8,4,4,X,Y,2,0,2.00)
      CALL ENDPLT
      CALL PAGE
      CALL PRINT('SECOND LINEAR PLOT$',0,0.0)
      CALL SKIP(1)
      DO 110 I=1,8
      X(I)=(9-I)*.1
110   Y(I)=I*.25
      CALL XAXIS(0.8,0.8,-.1,1.0)
      CALL YAXIS(0.0,2.50,.5,1.0,6.0)
      CALL GRID(5,5)
      CALL PLTARR(8,4,4,X,Y,1,1,0.0)
      CALL PLTARR(8,4,4,X,Y,0,2,.2)
      CALL PLTARR(8,4,4,X,Y,2,0,.4)
      CALL ENDPLT
      CALL PAGE
      DO 300 I=1,8
      E(I)=I*3
300   Y(I)=2.0**I
      CALL XAXIS(1.0,8.0,1.0,1.0)
      CALL YAXIS(0.0,300.0,100.0,1.0,7.0)
      CALL PLTEQU(2,4,Y,1.0,1.0,3,1,0.0)
      CALL ERRBAR(E)
      CALL PLTSEG
      CALL PLTEQU(2,4,Y(3),3.0,1.0,3,1,0.0)
      CALL ERRBAR(E(3))
      CALL PLTSEG
      CALL PLTEQU(5,4,Y(4),4.0,1.0,3,1,0.0)
      CALL ERRBAR(E(4))
      CALL ENDPLT
      CALL VDET
      STOP
      END