program wr2
      implicit none
c     one-purposse program to make a file list
      integer*4 n1,n2,i,fs,iargc,fe,j
      character*80 s80,st
      if(iargc().ne.3)then
       write(6,500)
500    format(' Usage: wr2 s n1 n2')
       stop
      endif
      call getarg(1,s80)
      call getarg(2,st)
      read(st,*)n1
      call getarg(3,st)
      read(st,*)n2
      do 1 i=n1,n2
      write(st,90)i
90    format(i80)
      if(i.lt.10)then
       st=s80(fs(s80):fe(s80))//'00'//st(fs(st):fe(st))
      else
       if(i.lt.100)then
        st=s80(fs(s80):fe(s80))//'0'//st(fs(st):fe(st))
       else
        st=s80(fs(s80):fe(s80))//st(fs(st):fe(st))
601     format(a1,$)
       endif
      endif
      write(6,601)(st(j:j),j=fs(st),fe(st))
      write(6,*)
1     continue
      end

      function fs(s)
      implicit none
      character*(*) s
      integer*4 fs,istart
      do 2 istart=1,len(s)
2     if(s(istart:istart).ne.' ')goto 3
3     fs=istart
      return
      end

      function fe(s)
      implicit none
      character*(*) s
      integer*4 fe,istart
      do 2 istart=len(s),1,-1
2     if(s(istart:istart).ne.' ')goto 3
3     fe=istart
      return
      end