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$