iprint info
!tab = image
!ifdef tab
	$dialog table title "Выбор снимка для сохранения" text !tab ok "Сохранить"
	!i_id = id
	!ifdef i_id
		$dialog save filter "TIF файлы|*.tif|Все файлы|*.*" title "Сохранение снимка" ext "tif"
		!path = path
                !ifdef path
                	isave id !i_id file !path 
                        $print text "Снимок сохранен." time 10
       		!delete path
            	!endif
	!delete i_id
	!endif 
!delete tab
!endif 

