REAL*4 X(8),Y(8),E(8)
      CALL VATT
      CALL PAGE
      CALL PRINT('Y LOG - X LINEAR$',0,0.0)
      CALL SKIP(1)
      DO 100 I=1,8
      X(I)=I
100   Y(I)=10.0**I
      CALL XAXIS(1.0,1.0,1.0,1.0)
      CALL YAXIS(10.0,1.0E8,10.0,-1.0,7.5)
      CALL GRID(5,9)
      CALL PLTARR(8,4,4,X,Y,1,1,1.0)
      CALL ENDPLT
      CALL PAGE
      CALL PRINT('Y LINEAR - X LOG$',0,0.0)
      CALL SKIP(1)
      DO 200 I=1,8
      X(I)=10.0**I
200   Y(I)=I
      CALL XAXIS(10.0,1.0E8,10.0,-1.0)
      CALL YAXIS(1.0,8.0,1.0,1.0,7.5)
      CALL GRID(9,5)
      CALL PLTARR(8,4,4,X,Y,1,1,0.0)
      CALL ENDPLT
      CALL PAGE
      CALL PRINT('LOG - LOG PLOT$',0,0.0)
      CALL SKIP(1)
      DO 300 I=1,8
      X(I)=10.0**I
300   Y(I)=10.0**I
      CALL XAXIS(10.0,1.0E8,10.0,-1.0)
      CALL YAXIS(10.0,1.0E8,10.0,-1.0,7.5)
      CALL GRID(9,9)
      CALL TICK(0,0)
      CALL PLTARR(8,4,4,X,Y,1,1,1.0)
      CALL ENDPLT
      CALL VDET
      STOP
      END