program chew
	character*80 line
	character*9 dirnum
	open(unit=1,status='old')
	open(unit=2,status='new',carriagecontrol='list')

10	read(1,11,end=99) line
11	format(a80)
	if (line(1:4).eq.'Dire') go to 10
	if (line(1:1).eq.' ') go to 10
	if (line(1:5).eq.'Total') go to 10
	if (line(1:1).eq.'[') then
	  dirnum=line(1:9)
	  go to 10
	end if
	i=index(line,' ')
	write(2,12) dirnum,line(1:i-1)
12	format(a9,a<i-1>)
	go to 10

99	close(1)
	close(2)
	end