FTN4
      SUBROUTINE FSTAR(IBUF), 92903-16317 REV.1805  770722
C 
C     SOURCE 92903-18317
C 
C 
C 
C     **************************************************************
C     * (C) COPYRIGHT HEWLETT-PACKARD COMPANY 1978.  ALL RIGHTS    *
C     * RESERVED.  NO PART OF THIS PROGRAM MAY BE PHOTOCOPIED, RE- *
C     * PRODUCED, OR TRANSLATED TO ANOTHER PROGRAM LANGUAGE WITH-  *
C     * OUT THE PRIOR WRITTEN CONSENT OF HEWLETT-PACKARD COMPANY.  *
C     **************************************************************
C 
C 
C 
C*********************************************************************
C*                                                                   *
C*               THIS SUBROUTINE IS USED TO RESET THE IBUF BUFFER    *
C*  USED TO PRINT THE 3070 LABEL PLATE                               *
C*                                                                   *
C*********************************************************************
C 
      DIMENSION IBUF(1) 
      DO 100 I=1,38 
100   IBUF(I)=2H
      IBUF(1)=2H* 
      IBUF(8)=2H *
      IBUF(16)=2H*
      IBUF(23)=2H * 
      IBUF(31)=2H*
      IBUF(38)=2H * 
      RETURN
      END 
      END$
                                                                            