SUBROUTINE PRINT(TITLE,LENTIT,OFFSET)
      LOGICAL*1 TITLE(2)
      INTEGER*2 LENTIT
      REAL*4 OFFSET
      LOGICAL*1 PNTBUF(2),PLTBUF(2),PLTYGB(2)
      INTEGER*2 RPSPP
      COMMON/VPNTBF/RPSPP,PNTBUF
      COMMON/VPLTBF/PLTBUF
      COMMON/VPLTYG/PLTYGB
      INTEGER*2 PSPP,PBUFL,PCY,PCYSPP,PBY,POFBY
      REAL*4 PBPIY,PBPCY,PBPIX
      COMMON/VPDP/PSPP,PBUFL,PCY,PCYSPP,PBY,POFBY,PBPIY,PBPCY,PBPIX
      LOGICAL*1 DOLLAR,LF,BLANK
      DATA DOLLAR/1H$/,LF/"12/,BLANK/1H /
      LEN=IFIX(OFFSET*PBPIY/PBPCY)
      IF(LEN.GT.PCY)LEN=PCY
      IF(LEN.EQ.0)GO TO 1010
      DO 1000 I=1,LEN
1000  PNTBUF(I)=BLANK
1010  IF(LENTIT.EQ.0)GO TO 1030
      DO 1020 I=1,LENTIT
      LEN=LEN+1
      IF(LEN.GT.PCY)LEN=PCY
1020  PNTBUF(LEN)=TITLE(I)
      GO TO 1100
1030  I=1
1040  IF(TITLE(I).EQ.DOLLAR)GO TO 1100
      LEN=LEN+1
      IF(LEN.GT.PCY)LEN=PCY
      PNTBUF(LEN)=TITLE(I)
      I=I+1
      GO TO 1040
1100  IF(LEN.EQ.PCY)GO TO 1200
      LEN=LEN+1
      PNTBUF(LEN)=LF
1200  CALL VPNT(LEN)
      RETURN
      END