SUBROUTINE  VPLT
      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 PLT,NAME(3)
      DATA PLT/"03000/,NAME/2H  ,2HVP,2HLT/
      CALL GETADR(USRPRM,PLTBUF)
      USRPRM(2)=PBUFL
      DO 1010 I=3,6
1010  USRPRM(I)=0
      CALL QIO(PLT,VLU,EFN,,IOSB,USRPRM,DSW)
      IF(RPSPP.GT.0)RPSPP=RPSPP-1
      IF(DSW.LT.0)CALL VPERR(NAME)
      CALL WAITFR(EFN)
      CALL VPERR(NAME)
      RETURN
      END