MOVE

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