.KEY FROM/A,TO/A
; $VER MTCopy 1.2 (29.11.93)  Alessandro Sala
;
; Example script to execute a multitasking copy from Workbench using AddTools
; v1.20 - By Alessandro Sala
; Usage: Copy this file into your S: volume; select the source icon, the
;	destination icon (if this is a file, only its path will be
;	considered) and choose Copy from the Tools menu.
;

.BRA {
.KET }

list >T:mtc_destp "{TO}" lformat="%P"
set <T:mtc_destp >NIL: destP ?

delete >NIL: T:mtc_destp

if exists "{FROM}"
	copy FROM "{FROM}" TO "$destP"
endif

if exists "{FROM}.info"
	copy FROM "{FROM}.info" TO "$destP"
endif

echo "Completed."

wait 1 sec
