SUBROUTINE VSPP
      LOGICAL*1 PNTBUF(2),PLTBUF(2),PLTYGB(2)
      INTEGER*2 RPSPP
      COMMON/VPNTBF/RPSPP,PNTBUF
      COMMON/VPLTBF/PLTBUF
      COMMON/VPLTYG/PLTYGB
      LOGICAL*1 IOSB(2)
      INTEGER*2 PLU,VLU,TLU,EFN,DSW,BYTCNT,USRPRM(6)
      COMMON/VEXEC/PLU,VLU,TLU,EFN,DSW,IOSB,BYTCNT,USRPRM
      INTEGER*2 PSPP,PBUFL,PCY,PCYSPP,PBY,POFBY
      REAL*4 PBPIY,PBPCY,PBPIX
      COMMON/VPDP/PSPP,PBUFL,PCY,PCYSPP,PBY,POFBY,PBPIY,PBPCY,PBPIX
      INTEGER*2 SPP,NAME(3)
      DATA SPP/"2400/,NAME/2H  ,2HVS,2HPP/
      IF(RPSPP.EQ.0)GO TO 1020
      WRITE(TLU,10)
10    FORMAT(' SPP ERR: NOT ENOUGH PLOT LINES FOR PREVIOUS PRINT LINE')
      RPSPP=RPSPP-1
      RETURN
1020  CALL GETADR(USRPRM,PNTBUF)
      USRPRM(2)=PCYSPP
      DO 1030 I=3,6
1030  USRPRM(I)=0
      CALL QIO(SPP,VLU,EFN,,IOSB,USRPRM,DSW)
      RPSPP=PSPP
      IF(DSW.LT.0)CALL VPERR(NAME)
      CALL WAITFR(EFN)
      CALL VPERR(NAME)
      RETURN
      END