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$