subroutine strip_dupl
	implicit integer (a-z)
	byte buffer(32774)
	integer*2 size,length,record_modified,old_record
	equivalence (irec,buffer(1))
	equivalence (record_modified,buffer(5))
	data size /32768/
	external std_seq_useropen,std_seq_get,std_seq_put,rms$_eof
	common /buf/ buffer

	open(unit=11,name='fdmpwork3',type='new',form='unformatted',
     1		useropen=std_seq_useropen)
	open(unit=10,name='fdmpwork2',type='old',form='unformatted',
     1		useropen=std_seq_useropen)
	old_record=0
	old_irec=0
 5	istat=std_seq_get(10,size,buffer,length)
	if (istat.eq.%loc(rms$_eof)) goto 9000
	if (.not. istat) call lib$stop(%val(istat))
	if (old_irec.ne.irec) then
		ilength=length
		istat=std_seq_put(11,ilength,buffer)
		if (.not. istat) call lib$stop(%val(istat))
		old_irec=irec
		old_record=record_modified
		goto 5
	 else
		goto 5
	 endif
 9000	close(unit=11)
	return
	end