;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;  Copyright (C) Wizardry and Steamworks 2015 - License: GNU GPLv3      ;;
;;  Please see: http://www.gnu.org/licenses/gpl.html for legal details,  ;;
;;  rights of fair usage, the disclaimer and warranty conditions.        ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

; Suppress errors
FailAt 21 

; Move 0-9
List QUICK NOHEAD [0-9]#? To PIPE:0-9 LFORMAT="Rename %n 0-9/ Quiet"
If Not Exists "0-9"
	MakeDir "0-9"
EndIf
Execute PIPE:0-9

; Move A,a
List QUICK NOHEAD [A,a]#? To PIPE:MoveA LFORMAT="Rename %n A/ Quiet"
If Not Exists "A"
	MakeDir "A"
EndIf
Execute PIPE:MoveA

; Move B,b
List QUICK NOHEAD [B,b]#? To PIPE:MoveB LFORMAT="Rename %n B/ Quiet"
If Not Exists "B"
	MakeDir "B"
EndIf
Execute PIPE:MoveB

; Move C,c
List QUICK NOHEAD [C,c]#? To PIPE:MoveC LFORMAT="Rename %n C/ Quiet"
If Not Exists "C"
	MakeDir "C"
EndIf
Execute PIPE:MoveC

; Move D,d
List QUICK NOHEAD [D,d]#? To PIPE:MoveD LFORMAT="Rename %n D/ Quiet"
If Not Exists "D"
	MakeDir "D"
EndIf
Execute PIPE:MoveD

; Move E,e
List QUICK NOHEAD [E,e]#? To PIPE:MoveE LFORMAT="Rename %n E/ Quiet"
If Not Exists "E"
	MakeDir "E"
EndIf
Execute PIPE:MoveE

; Move F,f
List QUICK NOHEAD [F,f]#? To PIPE:MoveF LFORMAT="Rename %n F/ Quiet"
If Not Exists "F"
	MakeDir "F"
EndIf
Execute PIPE:MoveF

; Move G,g
List QUICK NOHEAD [G,g]#? To PIPE:MoveG LFORMAT="Rename %n G/ Quiet"
If Not Exists "G"
	MakeDir "G"
EndIf
Execute PIPE:MoveG

; Move H,h
List QUICK NOHEAD [H,h]#? To PIPE:MoveH LFORMAT="Rename %n H/ Quiet"
If Not Exists "H"
	MakeDir "H"
EndIf
Execute PIPE:MoveH

; Move I,i
List QUICK NOHEAD [I,i]#? To PIPE:MoveI LFORMAT="Rename %n I/ Quiet"
If Not Exists "I"
	MakeDir "I"
EndIf
Execute PIPE:MoveI

; Move J,j
List QUICK NOHEAD [J,j]#? To PIPE:MoveJ LFORMAT="Rename %n J/ Quiet"
If Not Exists "J"
	MakeDir "J"
EndIf
Execute PIPE:MoveJ

; Move K,k
List QUICK NOHEAD [K,k]#? To PIPE:MoveK LFORMAT="Rename %n K/ Quiet"
If Not Exists "K"
	MakeDir "K"
EndIf
Execute PIPE:MoveK

; Move L,l
List QUICK NOHEAD [L,l]#? To PIPE:MoveL LFORMAT="Rename %n L/ Quiet"
If Not Exists "L"
	MakeDir "L"
EndIf
Execute PIPE:MoveL

; Move M,m
List QUICK NOHEAD [M,m]#? To PIPE:MoveM LFORMAT="Rename %n M/ Quiet"
If Not Exists "M"
	MakeDir "M"
EndIf
Execute PIPE:MoveM

; Move N,n
List QUICK NOHEAD [N,n]#? To PIPE:MoveN LFORMAT="Rename %n N/ Quiet"
If Not Exists "N"
	MakeDir "N"
EndIf
Execute PIPE:MoveN

; Move O,o
List QUICK NOHEAD [O,o]#? To PIPE:MoveO LFORMAT="Rename %n O/ Quiet"
If Not Exists "O"
	MakeDir "O"
EndIf
Execute PIPE:MoveO

; Move P,p
List QUICK NOHEAD [P,p]#? To PIPE:MoveP LFORMAT="Rename %n P/ Quiet"
If Not Exists "P"
	MakeDir "P"
EndIf
Execute PIPE:MoveP

; Move Q,q
List QUICK NOHEAD [Q,q]#? To PIPE:MoveQ LFORMAT="Rename %n Q/ Quiet"
If Not Exists "Q"
	MakeDir "Q"
EndIf
Execute PIPE:MoveQ

; Move R,r
List QUICK NOHEAD [R,r]#? To PIPE:MoveR LFORMAT="Rename %n R/ Quiet"
If Not Exists "R"
	MakeDir "R"
EndIf
Execute PIPE:MoveR

; Move S,s
List QUICK NOHEAD [S,s]#? To PIPE:MoveS LFORMAT="Rename %n S/ Quiet"
If Not Exists "S"
	MakeDir "S"
EndIf
Execute PIPE:MoveS

; Move T,t
List QUICK NOHEAD [T,t]#? To PIPE:MoveT LFORMAT="Rename %n T/ Quiet"
If Not Exists "T"
	MakeDir "T"
EndIf
Execute PIPE:MoveT

; Move U,u
List QUICK NOHEAD [U,u]#? To PIPE:MoveU LFORMAT="Rename %n U/ Quiet"
If Not Exists "U"
	MakeDir "U"
EndIf
Execute PIPE:MoveU

; Move V,v
List QUICK NOHEAD [V,v]#? To PIPE:MoveV LFORMAT="Rename %n V/ Quiet"
If Not Exists "V"
	MakeDir "V"
EndIf
Execute PIPE:MoveV

; Move W,w
List QUICK NOHEAD [W,w]#? To PIPE:MoveW LFORMAT="Rename %n W/ Quiet"
If Not Exists "W"
	MakeDir "W"
EndIf
Execute PIPE:MoveW

; Move X,x
List QUICK NOHEAD [X,x]#? To PIPE:MoveX LFORMAT="Rename %n X/ Quiet"
If Not Exists "X"
	MakeDir "X"
EndIf
Execute PIPE:MoveX

; Move Y,y
List QUICK NOHEAD [Y,y]#? To PIPE:MoveY LFORMAT="Rename %n Y/ Quiet"
If Not Exists "Y"
	MakeDir "Y"
EndIf
Execute PIPE:MoveY

; Move Z,z
List QUICK NOHEAD [Z,z]#? To PIPE:MoveZ LFORMAT="Rename %n Z/ Quiet"
If Not Exists "Z"
	MakeDir "Z"
EndIf
Execute PIPE:MoveZ