.ENABLE SUBSTITUTION
;			XFRPRO.CMD
;	Command file to transfer a group of files from a Pro
;
;	To transfer to a PRO from RSX use PROXFR.CMD
;
.IFNINS ...CFT INS $PFT/TASK=...CFT
.ASKS SRCDEV Enter PRO source device and directory "ddu:[dir]"
.ASKS DSTDEV Enter RSX destination device and directory "ddu:[P,G]"
.SETS BLANK " "
.OPEN #2 XFRPRO.TMP
.FILES:
.ASKS FIL Enter filename
.IF FIL EQ "" .GOTO XFR
.DATA #2 'DSTDEV''FIL'='SRCDEV''FIL'/PRO
.GOTO FILES

.XFR:
.CLOSE #2
	RUN TIME
	PURGE *.TMP
	SET /NOBRO=TI:
	SET /FDX=TI:
CFT @XFRPRO.TMP
	SET /BRO=TI:
;
; ********** All File Transfers Are Complete *********
RUN TIME
