SETDOS /X ?

COMMENT

        :: RunMe.btm

ENDCOMMENT

del /a:d /s /e /x /y *
Global /H /I /N /Q ( for %fn in (*) Gosub Dofile )
del /a:d /s /e /x /y *

QUIT

:Dofile
    set uExt=%@upper[%@ext["%fn"]]
    for /l %n in (1,1,9999) (
        iff not isfile "c:\ZZ_GM_PICS\%[uExt]_%@format[04,%n]\%fn" then
            move /a: /e /h /md "%fn" "c:\ZZ_GM_PICS\%[uExt]_%@format[04,%n]\"
            leavefor
        endiff...