---

for /d %d in (*) do @(if not "%d"=="1" if not "%d"=="2" if not "%d"=="3" if not "%d"=="4" for %f in ("%d\*.txt") do @(set/p c=<"%f"& call :l "%c%"& if !e! LSS 5 (move "%f" "1\">nul) else if !e! LEQ 7 (move "%f" "2\">nul) else (move "%f" "3\">nul)))