CLONE

*
    GIT.FILENAME = 'CLONE'
    GIT.REPO = 'https://github.com/Krowemoh/TCL-Utilities.git'
*
* VERSION
*
    VERSION = '1'
*
    @USER1 = 'CLONE'
    @USER2 = 'CLONE'
*
    EQU TRUE TO 1
    EQU FALSE TO 0
*
    CALL GET.ARGUMENTS(ARGS)
    DELETE.FLAG = FALSE
*
    ARGS.LEN = DCOUNT(ARGS,@AM)
*
    IF ARGS.LEN = 1 THEN
        PRINT 'CLONE - Copy Command'
        PRINT
        PRINT '    Copy a file:'
        PRINT '        CLONE [DICT] {SRC.FILE} {SRC.RECORD} [DICT] {DEST.FILE} {DEST.RECORD}'
        PRINT
        PRINT '    Copy a file without renaming:'
        PRINT '        CLONE [DICT] {SRC.FILE} {SRC.RECORD} [DICT] {DEST.FILE}'
        PRINT
        PRINT '    Copy files using an active list:'
        PRINT '        CLONE [DICT] {SRC.FILE} [DICT] {DEST.FILE}'
        PRINT
        PRINT '    Copy a file to the underlying OS:'
        PRINT '        CLONE [DICT] {SRC.FILE} {SRC.RECORD} {/tmp/} {new-name.txt}'
        PRINT
        PRINT '    Copy an active list to a folder:'
        PRINT '        CLONE [DICT] {SRC.FILE} {/tmp/backups/}'
        PRINT
        STOP
    END
*
    CALL MOVE.FILES(ARGS,DELETE.FLAG)
*
* END OF PROGRAM
*
    END
*