def dispatch(mode)

        case mode

                when "filex"
        #               filex(1,nil,nil,nil)
                        filex(1)
                        opmode = "filex"

                when "wed"
                        wed(1)
                        opmode = "wed"

                when "wedway"
                        wedway(1)
                        opmode = "wedway"
                else
                        puts "WEDWAY SYSTEM Dispatcher 0.1"
                        opmode = "wsysd"
        end

        begin
                case opmode
                        when "wed"
                                outprint("\033[34mwed\033[0m: ")

                        when "filex"
                                outprint( "\033[31mFilex\033[0m: ")

                        when "wedway"
                                outprint("\033[34mwed\033[36mway\033[0m: ")

                        when 0
                                $error = "WWALERT: Unusual looping condition in dispatcher."

                        else
                                outprint("\033[32m#{opmode}\033[0m: ")

                end

                input = gets.chomp

                case input

                        when "wed"
                                wed(1)
                                opmode = wed

                        when "filex"
                                filex(1)
                                opmode = filex

                        when "wedway"
                                puts "Wedway Temporarily Disabled"

                        when "cls","clear","CLS","CLEAR"
                                cls()

                        when "q","Q","exit", "end", "EXIT", "END"
                        #       backup if mode == wed #WARN
                        #       mode = 0
                                exit

                        else
                                in0,in1,in2,in3 = input.split(' ')


                                if in1 && in1[0..0] == "-"
                                        option = in1
                                        arg1 = in2
                                        arg2 = in3

                                        else
                                                arg1 = in1
                                                arg2 = in2

                                end

                                case opmode

                                        when "wed"
                                                wed(in0,option,arg1,arg2)

                                        when "wedway"
                                                wedway(in0,option,arg1,arg2)

                                        when "filex"
                                                filex(in0,option,arg1,arg2)

                                        else
                                                puts "Invalid command."

                                end

                end

        rescue => $error
                putserror

        end while mode != 0

end