pro aorclip

filesetting, Filename=Filename, bounds=bounds,path=getenv('spk_dat'),/nolimit

	if Filename eq '' then goto, exit


N_block0=bounds(0)/32   &   N_block1=bounds(1)/32

Year=0	  &   Date=bytarr(2)  &   Pattern=intarr(192,2)

New_name=pickfile(/write,path=getenv('spk_dat'))
if New_name eq '' then goto, exit

	openr,LUNR,FileName,/get_lun
	openw,LUNW,New_name,/get_lun

WIDGET_CONTROL,/hour

Block=SSRT_file_structure(LUNR,Fileformat=Fileformat, $
   Offset=Offset)

readu,LUNR,Year,Date  &  writeu,LUNW,Year,Date

	IF equiv(Fileformat, ['aor','1']) THEN BEGIN
readu,LUNR,Pattern    &   writeu,LUNW,Pattern  
	ENDIF 

Blockset=assoc(LUNR,Block,Offset)
BlocksetW=assoc(LUNW,Block,Offset)

	FOR  N_block=N_block0, N_block1 DO  $
BlocksetW(N_block-N_block0)=Blockset(N_block)

free_lun,LUNR	  &	free_lun,LUNW

exit:
		end