C 	an example use of ARRAY_EDIT

	character*80 data(50)
	write (6,*) 'how many lines are you going to enter?'
	read (5,*) length
	do i=1,length
		write (6,*) 'please enter line ',i
		read (5,1) j,data(i)(1:j)
1		format (qa<j>)
	end do
	status = array_edit(data,length,80,50)
	write (6,*) 'you edited ',length,' lines.'
	write (6,*) 'which look like this:'
	do i=1,length
		write (6,*) data(i)(:)
	end do
	end