INTEGER*2 PSPP,PBUFL,PCY,PCYSPP,PBY,POFBY
      REAL*4 PBPIY,PBPCY,PBPIX
      COMMON/VPDP/PSPP,PBUFL,PCY,PCYSPP,PBY,POFBY,PBPIY,PBPCY,PBPIX
      LOGICAL*1 PNTBUF(2),PLTBUF(2),PLTYGB(2)
      INTEGER*2 RPSPP
      COMMON/VPNTBF/RPSPP,PNTBUF
      COMMON/VPLTBF/PLTBUF
      COMMON/VPLTYG/PLTYGB
      LOGICAL*1 FF,LF,A
      DATA FF/"14/,LF/"12/,A/1HA/
      CALL VATT
      WRITE(5,100)
100   FORMAT(' VATT  OK')
      ENCODE(18,15,PNTBUF)FF,LF,LF
15    FORMAT(5HPAGE1,A1,5HPAGE2,A1,5HLINE3,A1)
      CALL VPNT(18)
      WRITE(5,200)
200   FORMAT(' VPNT OK')
      DO 1000 I=1,PCY
1000  PNTBUF(I)=A
      N=PBUFL-1
      DO 1010 I=1,N,4
      PLTBUF(I)=0
      PLTBUF(I+1)=0
      PLTBUF(I+2)=0
1010  PLTBUF(I+3)=-1
      CALL VPNT(PCY)
      CALL VPNT(PCY)
      DO 1020 I=1,PSPP
1020  CALL VPLT
      CALL VPNT(PCY)
      DO 2000 I=1,60
      CALL VSPP
      DO 2000 J=1,PSPP
2000  CALL VPLT
      CALL VSPP
      CALL VPLT
      CALL VSPP
      STOP
      END