SUBROUTINE SKIP(NUM)
      INTEGER*2 NUM
      LOGICAL*1 PNTBUF(2),PLTBUF(2),PLTYGB(2)
      INTEGER*2 RPSPP
      COMMON/VPNTBF/RPSPP,PNTBUF
      COMMON/VPLTBF/PLTBUF
      COMMON/VPLTYG/PLTYGB
      LOGICAL*1 LF,BLANK
      DATA LF/"12/,BLANK/1H /
      IT=NUM
      IF(IT.GT.35)IT=NUM
      DO 1000 I=1,IT
      PNTBUF(I*2-1)=BLANK
1000  PNTBUF(I*2)=LF
      CALL VPNT(I*2)
      RETURN
      END