$ set default [system.twd1.ftcopy.current]
$!
$ SET VERIFY
$ ON ERROR THEN CONTINUE
$ MACRO/LIST BLNKINIT+FTMAC.MLB/LIB
$ ON ERROR THEN CONTINUE
$ MACRO/LIST FTBLANK+FTMAC.MLB/LIB
$ ON ERROR THEN CONTINUE
$ MACRO/LIST FTCOMND+FTMAC.MLB/LIB
$ ON ERROR THEN CONTINUE
$ MACRO/LIST FTCOPMSG+FTMAC.MLB/LIB
$ ON ERROR THEN CONTINUE
$ MACRO/LIST FTCOPY+FTMAC.MLB/LIB
$ ON ERROR THEN CONTINUE
$ MACRO/LIST FTCREATE+FTMAC.MLB/LIB
$ ON ERROR THEN CONTINUE
$ MACRO/LIST FTEXIT+FTMAC.MLB/LIB
$ ON ERROR THEN CONTINUE
$ MACRO/LIST FTINIT+FTMAC.MLB/LIB
$ ON ERROR THEN CONTINUE
$ MACRO/LIST FTOUTPUT+FTMAC.MLB/LIB
$ ON ERROR THEN CONTINUE
$ MACRO/LIST FTPADEVEN+FTMAC.MLB/LIB
$ ON ERROR THEN CONTINUE
$ MACRO/LIST FTPCOPY+FTMAC.MLB/LIB
$ ON ERROR THEN CONTINUE
$ MACRO/LIST FTSTOP+FTMAC.MLB/LIB
$ ON ERROR THEN CONTINUE
$ MACRO/LIST FTTRANS+FTMAC.MLB/LIB
$ ON ERROR THEN CONTINUE
$ MACRO/LIST TRANINIT+FTMAC.MLB/LIB
$!
$ MESSAGE/LIST FTMESS.MSG
$!
$ PRINT/FLAG FTBLANK.LIS,FTCOMND.LIS,FTCOPMSG.LIS,FTCOPY.LIS,FTCREATE.LIS,-
 FTEXIT.LIS,FTINIT.LIS,FTOUTPUT.LIS,FTPCOPY.LIS,FTSTOP.LIS,FTTRANS.LIS,-
 FTMESS.LIS,BLNKINIT.LIS,FTPADEVEN.LIS,TRANINIT.LIS
$!
$!$ ASSIGN/USER DSKA:[SYSTEM.TWD1.FTCOPY] FTC_EXE
$ LINK/MAP/FULL FTCOPY,WHOILIB:/LIB,SYS$INPUT:/OPTION
BLNKINIT,FTBLANK,FTCOPMSG,FTCOMND,FTCREATE,FTEXIT,FTINIT,FTOUTPUT,FTPADEVEN,-
FTPCOPY,FTSTOP,FTTRANS,FTMESS,TRANINIT
$!
$ SET NOVERIFY
$ EXIT