SUBROUTINE  VPNT(NC)
      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 WLB,NAME(3)
      DATA WLB/"400/,NAME/2H  ,2HVP,2HNT/
      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)=NC
      DO 1030 I=3,6
1030  USRPRM(I)=0
      CALL QIO(WLB,VLU,EFN,,IOSB,USRPRM,DSW)
      IF(DSW.LT.0)CALL VPERR(NAME)
      CALL WAITFR(EFN)
      CALL VPERR(NAME)
      RETURN
      END