$!
$! FROMPRO.COM -- Copy file from PRO...
$!
$ if P1 .eqs. "" then inquire P1 "File to receive from PRO"
$ SET TERM/NOBRO/EIGHTBIT/ALT/NOHOST
$ MCR BIN:PFT 'P1'=[LFNT]'P1'/PRO
$ SET TERM/NOALT/BRO/HOST
$ EXIT