F#

//------------------------------------------------------------------------------------------------------------//
    let GetArchive  W dev v dt1 dt2 numIT numArh = (* Get Archive Data *)
        W =%> fun _ w ->
                w.Out.Clear()
                w.Start()
                while (not w.Stop) do
                    w.Dev <- dev
                    w <%= [|( Byteworks.GetArchive dev dt1 dt2 numIT numArh Nisemono.next )|]
                        <| true     (*clear*)
                        <| false    (*async*)
                        <| W        (*workid*)
                        <| v        (*v*)
    let GetCurrent W dev numIT = (* Get Instant Data *)
        W =%> fun _ w ->
            w.Out.Clear()
            w.Dev <- dev
            w <%= [|( Byteworks.GetCurrent dev numIT)|]
                <| true     (*clear*)
                <| false    (*async*)
                <| W        (*workid*)
                <| 0        (*v*)
//------------------------------------------------------------------------------------------------------------//
    let TimeSync    W dt = (* BOI Time Synchronization *)
        W =%> fun _ w ->
            w.Out.Clear()
            w <%= [| Byteworks.SyncTime(dt) |]
                <| false    (*clear*)
                <| true     (*async*)
                <| W        (*workid*)
                <| 0        (*v*)
    let DoSync      W = TimeSync W DateTime.Now
//------------------------------------------------------------------------------------------------------------//