INTEGER*2 IX(100),IY1(100),IY2(100)
      REAL*4 X(100),Y1(100),Y2(100)
      CALL VATT
      DO 1010 I=1,100
      X(I)=I-1
      IX(I)=I-1
      Y1(I)=I-1
      IY1(I)=I-1
      Y2(I)=MOD(I,10)+1.0
1010  IY2(I)=MOD(I,10)+1
      CALL PAGE
      CALL PRINT('PLOT OF TWO REAL*4 ARRAYS$',0,1.0)
      CALL SKIP(1)
      CALL XTITLE('ALL VALUES PLOTTED IN ONE SEGMENT',33,1.0)
      CALL XAXIS(0.0,100.0,10.0,.75)
      CALL YAXIS(0.0,100.0,20.0,1.0,7.5)
      CALL PLTARR(100,4,4,X,Y1,1,1,0.0)
      CALL PLTEQU(100,4,Y2,0.0,1.0,2,1,0.0)
      CALL ENDPLT
      CALL PAGE
      CALL PRINT('PLOT OF TWO REAL*4 ARRAYS$',0,0.0)
      CALL SKIP(1)
      CALL XTITLE('VALUES PLOTTED IN FIVE SEGMENTS',31,1.0)
      DO 1020 I=1,5
      CALL PLTARR(20,4,4,X((I-1)*20+1),Y1((I-1)*20+1),1,1,0.0)
      CALL PLTEQU(20,4,Y2((I-1)*20+1),(I-1)*20.0,1.0,2,1,0.0)
1020  CALL PLTSEG
      CALL ENDPLT
      CALL PAGE
      CALL PRINT('PLOT OF TWO INTEGER*2 ARRAYS$',0,0.0)
      CALL SKIP(1)
      CALL XTITLE('ALL VALUES PLOTTED IN ONE SEGMENT',33,1.0)
      CALL XAXIS(0.0,0.0,10.0,.75)
      CALL PLTARR(100,2,2,IX,IY1,1,1,0.0)
      CALL PLTEQU(100,2,IY2,0.0,1.0,2,1,0.0)
      CALL ENDPLT
      CALL PAGE
      CALL PRINT('PLOT OF TWO INTEGER*2 ARRAYS$',0,0.0)
      CALL SKIP(1)
      CALL XTITLE('VALUES PLOTTED IN FIVE SEGMENTS',31,1.0)
      DO 1040 I=1,5
      CALL PLTARR(20,2,2,IX((I-1)*20+1),IY1((I-1)*20+1),1,1,0.0)
      CALL PLTEQU(20,2,IY2((I-1)*20+1),(I-1)*20.0,1.0,2,1,0.0)
1040  CALL PLTSEG
      CALL ENDPLT
      DO 1110 I=1,100
      X(I)=100-I
1110  IX(I)=100-I
      CALL PAGE
      CALL PRINT('PLOT OF TWO REAL*4 ARRAYS$',0,0.0)
      CALL SKIP(1)
      CALL XTITLE('ALL VALUES PLOTTED IN ONE SEGMENT',33,1.0)
      CALL XAXIS(100.0,0.0,-10.0,.75)
      CALL PLTARR(100,4,4,X,Y1,1,1,0.0)
      CALL PLTEQU(100,4,Y2,99.0,-1.0,2,1,0.0)
      CALL ENDPLT
      CALL PAGE
      CALL PRINT('PLOT OF TWO REAL*4 ARRAYS$',0,0.0)
      CALL SKIP(1)
      CALL XTITLE('VALUES PLOTTED IN FIVE SEGMENTS',31,1.0)
      DO 1120 I=1,5
      CALL PLTARR(20,4,4,X((I-1)*20+1),Y1((I-1)*20+1),1,1,0.0)
      CALL PLTEQU(20,4,Y2((I-1)*20+1),99.0-(I-1)*20.0,-1.0,2,1,0.0)
1120  CALL PLTSEG
      CALL ENDPLT
      CALL PAGE
      CALL PRINT('PLOT OF TWO INTEGER*2 ARRAYS$',0,0.0)
      CALL SKIP(1)
      CALL XTITLE('ALL VALUES PLOTTED IN ONE SEGMENT',33,1.0)
      CALL XAXIS(100.0,100.0,-10.0,.75)
      CALL PLTARR(100,2,2,IX,IY1,1,1,0.0)
      CALL PLTEQU(100,2,IY2,99.0,-1.0,2,1,0.0)
      CALL ENDPLT
      CALL PAGE
      CALL PRINT('PLOT OF TWO INTEGER*2 ARRAYS$',0,0.0)
      CALL SKIP(1)
      CALL XTITLE('VALUES PLOTTED IN FIVE SEGMENTS',31,1.0)
      DO 1140 I=1,5
      CALL PLTARR(20,2,2,IX((I-1)*20+1),IY1((I-1)*20+1),1,1,0.0)
      CALL PLTEQU(20,2,IY2((I-1)*20+1),99.0-(I-1)*20.0,-1.0,2,1,0.0)
1140  CALL PLTSEG
      CALL ENDPLT
      CALL VDET
      STOP
      END