character*80 linsav(50),line
      character*9 marg
      nlsav=1
      marg='100 10 $a'
      line='smith$hjohn'
      lw=64
      linsav(nlsav)=marg//line(1:lw)
      write(6,10)
  10  format(1h ,'mb013 passed')
      end