program gramf
      character*80 sn,nn
      open(9,file='dat.lst')
      open(91,file='gram')
      n=0
1     read(9,900,end=99,err=99)sn
900   format(a80)
      n=n+1
      write(nn,100)n
100   format(i9)
      do 2 istart=1,len(sn)
2     if(sn(istart:istart).ne.' ')goto 3
3     do 4 iend=len(sn),1,-1
4     if(sn(iend:iend).ne.' ')goto 5
5     continue
      do 6 istartn=1,len(nn)
6     if(nn(istartn:istartn).ne.' ')goto 7
7     do 8 iendn=len(nn),1,-1
8     if(nn(iendn:iendn).ne.' ')goto 9
9     continue
      do 10 i=1,istartn-1
10    nn(i:i)='0'
      write(91,*)'ram '//sn(istart:iend)//' Wave.plt '//
     1nn(istartn:iendn)//' > '//nn(iendn-4:iendn)//'.ram.prn'
      goto 1
99    close(9)
      close(91)
      write(6,*)n,' spectra'
      stop
      end