@Set VLC_Theora_Encoder=%0
@If [%1]==[/Encode] GoTo Encode
:Shift_Loop 
@If [%1]==[] GoTo Done
@Call "%VLC_Theora_Encoder%" /Encode %1
@Shift 
@GoTo Shift_loop 
:Encode
@"C:\Program Files\VideoLAN\VLC\vlc.exe" -I dummy "%2" --sout=#transcode{vcodec=theo,vb=384,scale=1,acodec=vorb,ab=128,channels=2,soverlay}:duplicate{dst=std{access=file,mux=ogg,dst="%2.ogg"}}:sub-language=English vlc:quit
@GoTo End 
:Done 
@Echo Done 
:End