;  tnr file name changer
;  change file to the appropriate location
;  also, just to be safe, just do 1 day to make sure it
;  works on your system.  You should have routine addymd
;  already as part of the wavesdsp package
	file='/usr3/tnr/'
	yymmdd=941112l
next_file:
	ymdold=strtrim(string(yymmdd),1)
	ymdnew=strtrim(string(yymmdd+19000000l),1)
	oldfile=file+'tnr'+ymdold
	newfile=file+ymdnew+'.tnr'
	if(!version.os eq 'VMS') then cmd='$rename ' else cmd='mv '
	spawn,cmd+oldfile+' '+newfile
	addymd,yymmdd,1l
;  when you're sure it works, change the following date to 980815
;  (remember, you'll have to change the start date at the beginning
;  to 941113 since you will have already renamed 941112 !)	
	if(yymmdd lt 941113l) then goto, next_file
	end