FTN4
      SUBROUTINE FSTAR(IBUF,NX), 92080-1X317 REV.2026 800515
C 
C     SOURCE 92080-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*          IBUF - BUFFER TO FILL (40 WORDS LONG)                    *
C*          NX   - RESET INDICATOR                                   *
C*                 0 - RESET FOR 5 COLS.                             *
C*                 1 - RESET FOR 6 COLS.                             *
C*                                                                   *
C*********************************************************************
C 
      DIMENSION IBUF(40)
      DO 100 I=1,40 
100   IBUF(I)=2H
      IBUF(1)=2H *
      IBUF(8)=2H* 
      IBUF(14)=2H * 
      IBUF(21)=2H*
      IBUF(27)=2H * 
      IBUF(34)=2H*
      IF(NX.EQ.1)IBUF(40)=2H *
      RETURN
      END 
      END$
                                                                                                                          