SUBROUTINE XTITLE(TITLE,LEN,OFFSET)
      LOGICAL*1 TITLE(2)
      INTEGER*2 XTA,XTL,XTOFFB,XTIND
      COMMON/VXTDES/XTA,XTL,XTOFFB,XTIND
      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
      DATA DOLLAR/1H$/
      CALL VGADDR(XTA,TITLE)
      XTL=LEN
      IF(XTL.GT.0)GO TO 1020
      XTL=0
1000  IF(TITLE(XTL+1).EQ.DOLLAR)GO TO 1020
      XTL=XTL+1
      GO TO 1000
1020  XTOFFB=IFIX(OFFSET*PBPIX)
      RETURN
      END