subroutine edit(ibeg,iend)

	include 'flags.inc'

	logical hit_end_of_file
	common /editor/ hit_end_of_file

	byte buffer(32768),edit_buffer(32768)
	common /buf/ buffer,edit_buffer,length_total

	logical quit,exit,confirm,edited,abort

	common /eflags/ quit,exit,confirm,edited,abort

	do i=ibeg,iend
!
! get record to modify the cheap way using existing dump routine
!
		call dump(i,i)

		if (bad_file_open) return

		if (hit_end_of_file) return

		do j=1,length_total
			edit_buffer(j)=buffer(j)
		 enddo
!
! do actual edit
!		
		call doedit(i)
		if (abort) return
	 
	 enddo
	return
	end