SUBROUTINE PAGE
      LOGICAL*1 PNTBUF(2),PLTBUF(2),PLTYGB(2)
      INTEGER*2 RPSPP
      COMMON/VPNTBF/RPSPP,PNTBUF
      COMMON/VPLTBF/PLTBUF
      COMMON/VPLTYG/PLTYGB
      LOGICAL*1 FF,BLANK
      DATA FF/"14/,BLANK/1H /
      PNTBUF(1)=BLANK
      PNTBUF(2)=FF
      CALL VPNT(2)
      RETURN
      END