Option Explicit
 
Private lastrow As Long
Private maxcol As Long
Private maxrow As Long
Private saverow As Long
Private sortedFlag As Boolean
Private gmakedFlag As Boolean
Const baseSheetName As String = "成績表"
Const workSheetName As String = "作業"
Const No_koutei As Long = 19    '工程数
Const X_ratio As Double = 1#      'グラフ横軸倍率
Const Y_ratio As Double = 1#    'グラフ縦軸倍率
 
Private Sub UserForm_Initialize()
    Dim i As Long
    Call CopyData
    For i = 3 To maxrow
        名前リスト.AddItem Cells(i, 1)
    Next i
End Sub
 
Private Sub 名前リスト_Click()
    Dim i As Long
    Dim j As Long
    Dim row As Long
    Dim col As Long
    Dim no As Long
    Call CopyData
    no = 名前リスト.ListIndex
    row = no + 3
    '選択した氏名と成績をコピー
    Range(Cells(saverow, 1), Cells(saverow, maxcol)).Value = Range(Cells(row, 1), Cells(row, maxcol)).Value
    '順位を設定（1期～4期）
    For i = 1 To 4
        For j = 1 To No_koutei
            col = GetCol2(i, j)
            If Cells(saverow, col).Value <> "" Then
                Cells(saverow + 1, col).Value = WorksheetFunction.Rank(Cells(saverow, col).Value, Range(Cells(3, col), Cells(maxrow, col)), 0)
            End If
        Next
    Next
    '選択された氏名の背景色を設定（1期～4期）
    For i = 1 To 4
        col = GetCol1(i)
        Range(Cells(row, col), Cells(row, col + No_koutei)).Interior.Color = 15773696
    Next
    lastrow = row
End Sub
'並べ替えボタンクリック
Private Sub btnsort_Click()
    Dim i As Long
    Dim j As Long
    Dim col As Long
    If sortedFlag = True Then
        MsgBox ("既に並べ替え済み")
        Exit Sub
    End If
    If lastrow = 0 Then
        MsgBox ("名前を選択して下さい")
        Exit Sub
    End If
    '1期～4期まで繰り返す
    For i = 1 To 4
        For j = 1 To No_koutei
            col = GetCol2(i, j)
            Range(Cells(3, col), Cells(maxrow, col)).Sort key1:=Cells(3, col), order1:=xlDescending
        Next
    Next
    sortedFlag = True
End Sub
 
'期(i=1～4)を与えて、そのカラム位置（氏名のカラム位置）を返す
Private Function GetCol1(ByVal i As Long) As Long
    GetCol1 = (i - 1) * (No_koutei + 2) + 1
End Function
'期(i=1～4)と工程(j=1～19)を与えて、そのカラム位置を返す
Private Function GetCol2(ByVal i As Long, ByVal j As Long) As Long
    GetCol2 = (i - 1) * (No_koutei + 2) + j + 1
End Function
'期(i=1～4)を与えて、その期にデータがあるか否かを返す(true:有 false:無)
Private Function HasData(ByVal i As Long) As Boolean
    Dim col As Long
    Dim rg As Range
    col = GetCol1(i)
    HasData = False
    For Each rg In Range(Cells(3, col + 1), Cells(maxrow, col + No_koutei))
        If rg.Value <> "" Then
            HasData = True
            Exit For
        End If
    Next
End Function
'元データを作業シートへコピー
Private Sub CopyData()
    Dim i As Long
    Dim rg As String
    Dim end_colstr As String
    maxcol = (No_koutei + 1) * 4 + 3
    end_colstr = ConvertToLetter(maxcol)
    maxrow = Worksheets(baseSheetName).Cells(Rows.Count, 1).End(xlUp).row
    '前回表示された内容を全てクリア
    Worksheets(workSheetName).Cells.Clear
    rg = "A1:" & end_colstr & maxrow
    '表の全領域をコピー(A1～CEx)(x=A列の最大行)
    Worksheets(baseSheetName).Range(rg).Copy Worksheets(workSheetName).Range(rg)
    '作業シートをアクティベイト
    Worksheets(workSheetName).Activate
    'グラフを削除
    Worksheets(workSheetName).Cells(1, 1).Select
    If ActiveSheet.ChartObjects.Count > 0 Then
        ActiveSheet.ChartObjects.Delete
    End If
    'フラグ及び変数の初期化
    lastrow = 0
    sortedFlag = False
    gmakedFlag = False
    saverow = maxrow + 2
End Sub
'グラフボタンクリック
Private Sub BtnGraph_Click()
    Dim left As Double
    Dim top As Double
    Dim width As Double
    Dim height As Double
    Dim col As Long
    Dim i As Long
    If gmakedFlag = True Then
        MsgBox ("既に作成済み")
        Exit Sub
    End If
    If lastrow = 0 Then
        MsgBox ("名前を選択して下さい")
        Exit Sub
    End If
    '左位置設定（=B列の開始位置）
    left = ActiveSheet.Range("A1").width
    '上位置設定（=A列最大行+5行目）
    top = ActiveSheet.Range("A1:A" & maxrow + 4).height
    '高さ
    height = 300 * Y_ratio
    '幅
    width = ActiveSheet.Range("B2").width * No_koutei * X_ratio
    '空のグラフ作成
    With ActiveSheet.ChartObjects.Add(left, top, width, height).Chart
    End With
    '作成したグラフのアクティベイト
    ActiveSheet.ChartObjects(1).Activate
    '1期から4期まで作成
    For i = 1 To 4
        '該当期のデータが全て空なら終了する
        If HasData(i) = False Then Exit For
        '新しくデータ系列を作成
        ActiveChart.SeriesCollection.NewSeries
        'グラフの種類・データの範囲・凡例の使用を指定
        With ActiveChart.SeriesCollection(i)
            'グラフの種類を設定 折れ線グラフ
            .ChartType = xlLineMarkers
            'X軸の項目軸を指定
            .XValues = Range(Cells(2, 2), Cells(2, No_koutei + 1))
            'データの指定
            col = GetCol1(i)
            .Values = Range(Cells(saverow + 1, col + 1), Cells(saverow + 1, col + No_koutei))
            '凡例の指定
            .Name = i & "期順位"
        End With
    Next
    'スケール情報設定
    ActiveChart.Axes(xlValue, xlPrimary).MinimumScale = 1
    ActiveChart.Axes(xlValue, xlPrimary).MajorUnit = 5
    ActiveChart.Axes(xlValue, xlPrimary).MaximumScale = GetMaxScale(maxrow - 2, 5)
    ActiveChart.Axes(xlValue, xlPrimary).ReversePlotOrder = True
    'タイトル設定
    With ActiveChart
        .HasTitle = True
        .ChartTitle.Text = Cells(saverow, 1).Value  'グラフ対象者の氏名
    End With
    gmakedFlag = True
End Sub
 
'列番号を英文字に変換
Function ConvertToLetter(ByVal iCol As Integer) As String
   Dim iAlpha As Integer
   Dim iRemainder As Integer
   iAlpha = Int((iCol - 1) / 26)
   iRemainder = iCol - (iAlpha * 26)
   If iAlpha > 0 Then
      ConvertToLetter = Chr(iAlpha + 64)
   End If
   If iRemainder > 0 Then
      ConvertToLetter = ConvertToLetter & Chr(iRemainder + 64)
   End If
End Function
 
'人数とメモリ単位を与えてスケールの最大値を計算する
Private Function GetMaxScale(no_person, unit)
    Dim i As Long
    i = 0
    Do While True
        GetMaxScale = i * unit + 1
        If GetMaxScale >= no_person Then Exit Do
    Loop
End Function
 

T3B0aW9uIEV4cGxpY2l0CgpQcml2YXRlIGxhc3Ryb3cgQXMgTG9uZwpQcml2YXRlIG1heGNvbCBBcyBMb25nClByaXZhdGUgbWF4cm93IEFzIExvbmcKUHJpdmF0ZSBzYXZlcm93IEFzIExvbmcKUHJpdmF0ZSBzb3J0ZWRGbGFnIEFzIEJvb2xlYW4KUHJpdmF0ZSBnbWFrZWRGbGFnIEFzIEJvb2xlYW4KQ29uc3QgYmFzZVNoZWV0TmFtZSBBcyBTdHJpbmcgPSAi5oiQ57i+6KGoIgpDb25zdCB3b3JrU2hlZXROYW1lIEFzIFN0cmluZyA9ICLkvZzmpa0iCkNvbnN0IE5vX2tvdXRlaSBBcyBMb25nID0gMTkgICAgJ+W3peeoi+aVsApDb25zdCBYX3JhdGlvIEFzIERvdWJsZSA9IDEjICAgICAgJ+OCsOODqeODleaoqui7uOWAjeeOhwpDb25zdCBZX3JhdGlvIEFzIERvdWJsZSA9IDEjICAgICfjgrDjg6njg5XnuKbou7jlgI3njocKClByaXZhdGUgU3ViIFVzZXJGb3JtX0luaXRpYWxpemUoKQogICAgRGltIGkgQXMgTG9uZwogICAgQ2FsbCBDb3B5RGF0YQogICAgRm9yIGkgPSAzIFRvIG1heHJvdwogICAgICAgIOWQjeWJjeODquOCueODiC5BZGRJdGVtIENlbGxzKGksIDEpCiAgICBOZXh0IGkKRW5kIFN1YgoKUHJpdmF0ZSBTdWIg5ZCN5YmN44Oq44K544OIX0NsaWNrKCkKICAgIERpbSBpIEFzIExvbmcKICAgIERpbSBqIEFzIExvbmcKICAgIERpbSByb3cgQXMgTG9uZwogICAgRGltIGNvbCBBcyBMb25nCiAgICBEaW0gbm8gQXMgTG9uZwogICAgQ2FsbCBDb3B5RGF0YQogICAgbm8gPSDlkI3liY3jg6rjgrnjg4guTGlzdEluZGV4CiAgICByb3cgPSBubyArIDMKICAgICfpgbjmip7jgZfjgZ/msI/lkI3jgajmiJDnuL7jgpLjgrPjg5Tjg7wKICAgIFJhbmdlKENlbGxzKHNhdmVyb3csIDEpLCBDZWxscyhzYXZlcm93LCBtYXhjb2wpKS5WYWx1ZSA9IFJhbmdlKENlbGxzKHJvdywgMSksIENlbGxzKHJvdywgbWF4Y29sKSkuVmFsdWUKICAgICfpoIbkvY3jgpLoqK3lrprvvIgx5pyf772eNOacn++8iQogICAgRm9yIGkgPSAxIFRvIDQKICAgICAgICBGb3IgaiA9IDEgVG8gTm9fa291dGVpCiAgICAgICAgICAgIGNvbCA9IEdldENvbDIoaSwgaikKICAgICAgICAgICAgSWYgQ2VsbHMoc2F2ZXJvdywgY29sKS5WYWx1ZSA8PiAiIiBUaGVuCiAgICAgICAgICAgICAgICBDZWxscyhzYXZlcm93ICsgMSwgY29sKS5WYWx1ZSA9IFdvcmtzaGVldEZ1bmN0aW9uLlJhbmsoQ2VsbHMoc2F2ZXJvdywgY29sKS5WYWx1ZSwgUmFuZ2UoQ2VsbHMoMywgY29sKSwgQ2VsbHMobWF4cm93LCBjb2wpKSwgMCkKICAgICAgICAgICAgRW5kIElmCiAgICAgICAgTmV4dAogICAgTmV4dAogICAgJ+mBuOaKnuOBleOCjOOBn+awj+WQjeOBruiDjOaZr+iJsuOCkuioreWumu+8iDHmnJ/vvZ405pyf77yJCiAgICBGb3IgaSA9IDEgVG8gNAogICAgICAgIGNvbCA9IEdldENvbDEoaSkKICAgICAgICBSYW5nZShDZWxscyhyb3csIGNvbCksIENlbGxzKHJvdywgY29sICsgTm9fa291dGVpKSkuSW50ZXJpb3IuQ29sb3IgPSAxNTc3MzY5NgogICAgTmV4dAogICAgbGFzdHJvdyA9IHJvdwpFbmQgU3ViCifkuKbjgbnmm7/jgYjjg5zjgr/jg7Pjgq/jg6rjg4Pjgq8KUHJpdmF0ZSBTdWIgYnRuc29ydF9DbGljaygpCiAgICBEaW0gaSBBcyBMb25nCiAgICBEaW0gaiBBcyBMb25nCiAgICBEaW0gY29sIEFzIExvbmcKICAgIElmIHNvcnRlZEZsYWcgPSBUcnVlIFRoZW4KICAgICAgICBNc2dCb3ggKCLml6LjgavkuKbjgbnmm7/jgYjmuIjjgb8iKQogICAgICAgIEV4aXQgU3ViCiAgICBFbmQgSWYKICAgIElmIGxhc3Ryb3cgPSAwIFRoZW4KICAgICAgICBNc2dCb3ggKCLlkI3liY3jgpLpgbjmip7jgZfjgabkuIvjgZXjgYQiKQogICAgICAgIEV4aXQgU3ViCiAgICBFbmQgSWYKICAgICcx5pyf772eNOacn+OBvuOBp+e5sOOCiui/lOOBmQogICAgRm9yIGkgPSAxIFRvIDQKICAgICAgICBGb3IgaiA9IDEgVG8gTm9fa291dGVpCiAgICAgICAgICAgIGNvbCA9IEdldENvbDIoaSwgaikKICAgICAgICAgICAgUmFuZ2UoQ2VsbHMoMywgY29sKSwgQ2VsbHMobWF4cm93LCBjb2wpKS5Tb3J0IGtleTE6PUNlbGxzKDMsIGNvbCksIG9yZGVyMTo9eGxEZXNjZW5kaW5nCiAgICAgICAgTmV4dAogICAgTmV4dAogICAgc29ydGVkRmxhZyA9IFRydWUKRW5kIFN1YgoKJ+acnyhpPTHvvZ40KeOCkuS4juOBiOOBpuOAgeOBneOBruOCq+ODqeODoOS9jee9ru+8iOawj+WQjeOBruOCq+ODqeODoOS9jee9ru+8ieOCkui/lOOBmQpQcml2YXRlIEZ1bmN0aW9uIEdldENvbDEoQnlWYWwgaSBBcyBMb25nKSBBcyBMb25nCiAgICBHZXRDb2wxID0gKGkgLSAxKSAqIChOb19rb3V0ZWkgKyAyKSArIDEKRW5kIEZ1bmN0aW9uCifmnJ8oaT0x772eNCnjgajlt6XnqIsoaj0x772eMTkp44KS5LiO44GI44Gm44CB44Gd44Gu44Kr44Op44Og5L2N572u44KS6L+U44GZClByaXZhdGUgRnVuY3Rpb24gR2V0Q29sMihCeVZhbCBpIEFzIExvbmcsIEJ5VmFsIGogQXMgTG9uZykgQXMgTG9uZwogICAgR2V0Q29sMiA9IChpIC0gMSkgKiAoTm9fa291dGVpICsgMikgKyBqICsgMQpFbmQgRnVuY3Rpb24KJ+acnyhpPTHvvZ40KeOCkuS4juOBiOOBpuOAgeOBneOBruacn+OBq+ODh+ODvOOCv+OBjOOBguOCi+OBi+WQpuOBi+OCkui/lOOBmSh0cnVlOuaciSBmYWxzZTrnhKEpClByaXZhdGUgRnVuY3Rpb24gSGFzRGF0YShCeVZhbCBpIEFzIExvbmcpIEFzIEJvb2xlYW4KICAgIERpbSBjb2wgQXMgTG9uZwogICAgRGltIHJnIEFzIFJhbmdlCiAgICBjb2wgPSBHZXRDb2wxKGkpCiAgICBIYXNEYXRhID0gRmFsc2UKICAgIEZvciBFYWNoIHJnIEluIFJhbmdlKENlbGxzKDMsIGNvbCArIDEpLCBDZWxscyhtYXhyb3csIGNvbCArIE5vX2tvdXRlaSkpCiAgICAgICAgSWYgcmcuVmFsdWUgPD4gIiIgVGhlbgogICAgICAgICAgICBIYXNEYXRhID0gVHJ1ZQogICAgICAgICAgICBFeGl0IEZvcgogICAgICAgIEVuZCBJZgogICAgTmV4dApFbmQgRnVuY3Rpb24KJ+WFg+ODh+ODvOOCv+OCkuS9nOalreOCt+ODvOODiOOBuOOCs+ODlOODvApQcml2YXRlIFN1YiBDb3B5RGF0YSgpCiAgICBEaW0gaSBBcyBMb25nCiAgICBEaW0gcmcgQXMgU3RyaW5nCiAgICBEaW0gZW5kX2NvbHN0ciBBcyBTdHJpbmcKICAgIG1heGNvbCA9IChOb19rb3V0ZWkgKyAxKSAqIDQgKyAzCiAgICBlbmRfY29sc3RyID0gQ29udmVydFRvTGV0dGVyKG1heGNvbCkKICAgIG1heHJvdyA9IFdvcmtzaGVldHMoYmFzZVNoZWV0TmFtZSkuQ2VsbHMoUm93cy5Db3VudCwgMSkuRW5kKHhsVXApLnJvdwogICAgJ+WJjeWbnuihqOekuuOBleOCjOOBn+WGheWuueOCkuWFqOOBpuOCr+ODquOCogogICAgV29ya3NoZWV0cyh3b3JrU2hlZXROYW1lKS5DZWxscy5DbGVhcgogICAgcmcgPSAiQTE6IiAmIGVuZF9jb2xzdHIgJiBtYXhyb3cKICAgICfooajjga7lhajpoJjln5/jgpLjgrPjg5Tjg7woQTHvvZ5DRXgpKHg9QeWIl+OBruacgOWkp+ihjCkKICAgIFdvcmtzaGVldHMoYmFzZVNoZWV0TmFtZSkuUmFuZ2UocmcpLkNvcHkgV29ya3NoZWV0cyh3b3JrU2hlZXROYW1lKS5SYW5nZShyZykKICAgICfkvZzmpa3jgrfjg7zjg4jjgpLjgqLjgq/jg4bjgqPjg5njgqTjg4gKICAgIFdvcmtzaGVldHMod29ya1NoZWV0TmFtZSkuQWN0aXZhdGUKICAgICfjgrDjg6njg5XjgpLliYrpmaQKICAgIFdvcmtzaGVldHMod29ya1NoZWV0TmFtZSkuQ2VsbHMoMSwgMSkuU2VsZWN0CiAgICBJZiBBY3RpdmVTaGVldC5DaGFydE9iamVjdHMuQ291bnQgPiAwIFRoZW4KICAgICAgICBBY3RpdmVTaGVldC5DaGFydE9iamVjdHMuRGVsZXRlCiAgICBFbmQgSWYKICAgICfjg5Xjg6njgrDlj4rjgbPlpInmlbDjga7liJ3mnJ/ljJYKICAgIGxhc3Ryb3cgPSAwCiAgICBzb3J0ZWRGbGFnID0gRmFsc2UKICAgIGdtYWtlZEZsYWcgPSBGYWxzZQogICAgc2F2ZXJvdyA9IG1heHJvdyArIDIKRW5kIFN1Ygon44Kw44Op44OV44Oc44K/44Oz44Kv44Oq44OD44KvClByaXZhdGUgU3ViIEJ0bkdyYXBoX0NsaWNrKCkKICAgIERpbSBsZWZ0IEFzIERvdWJsZQogICAgRGltIHRvcCBBcyBEb3VibGUKICAgIERpbSB3aWR0aCBBcyBEb3VibGUKICAgIERpbSBoZWlnaHQgQXMgRG91YmxlCiAgICBEaW0gY29sIEFzIExvbmcKICAgIERpbSBpIEFzIExvbmcKICAgIElmIGdtYWtlZEZsYWcgPSBUcnVlIFRoZW4KICAgICAgICBNc2dCb3ggKCLml6LjgavkvZzmiJDmuIjjgb8iKQogICAgICAgIEV4aXQgU3ViCiAgICBFbmQgSWYKICAgIElmIGxhc3Ryb3cgPSAwIFRoZW4KICAgICAgICBNc2dCb3ggKCLlkI3liY3jgpLpgbjmip7jgZfjgabkuIvjgZXjgYQiKQogICAgICAgIEV4aXQgU3ViCiAgICBFbmQgSWYKICAgICflt6bkvY3nva7oqK3lrprvvIg9QuWIl+OBrumWi+Wni+S9jee9ru+8iQogICAgbGVmdCA9IEFjdGl2ZVNoZWV0LlJhbmdlKCJBMSIpLndpZHRoCiAgICAn5LiK5L2N572u6Kit5a6a77yIPUHliJfmnIDlpKfooYwrNeihjOebru+8iQogICAgdG9wID0gQWN0aXZlU2hlZXQuUmFuZ2UoIkExOkEiICYgbWF4cm93ICsgNCkuaGVpZ2h0CiAgICAn6auY44GVCiAgICBoZWlnaHQgPSAzMDAgKiBZX3JhdGlvCiAgICAn5bmFCiAgICB3aWR0aCA9IEFjdGl2ZVNoZWV0LlJhbmdlKCJCMiIpLndpZHRoICogTm9fa291dGVpICogWF9yYXRpbwogICAgJ+epuuOBruOCsOODqeODleS9nOaIkAogICAgV2l0aCBBY3RpdmVTaGVldC5DaGFydE9iamVjdHMuQWRkKGxlZnQsIHRvcCwgd2lkdGgsIGhlaWdodCkuQ2hhcnQKICAgIEVuZCBXaXRoCiAgICAn5L2c5oiQ44GX44Gf44Kw44Op44OV44Gu44Ki44Kv44OG44Kj44OZ44Kk44OICiAgICBBY3RpdmVTaGVldC5DaGFydE9iamVjdHMoMSkuQWN0aXZhdGUKICAgICcx5pyf44GL44KJNOacn+OBvuOBp+S9nOaIkAogICAgRm9yIGkgPSAxIFRvIDQKICAgICAgICAn6Kmy5b2T5pyf44Gu44OH44O844K/44GM5YWo44Gm56m644Gq44KJ57WC5LqG44GZ44KLCiAgICAgICAgSWYgSGFzRGF0YShpKSA9IEZhbHNlIFRoZW4gRXhpdCBGb3IKICAgICAgICAn5paw44GX44GP44OH44O844K/57O75YiX44KS5L2c5oiQCiAgICAgICAgQWN0aXZlQ2hhcnQuU2VyaWVzQ29sbGVjdGlvbi5OZXdTZXJpZXMKICAgICAgICAn44Kw44Op44OV44Gu56iu6aGe44O744OH44O844K/44Gu56+E5Zuy44O75Yeh5L6L44Gu5L2/55So44KS5oyH5a6aCiAgICAgICAgV2l0aCBBY3RpdmVDaGFydC5TZXJpZXNDb2xsZWN0aW9uKGkpCiAgICAgICAgICAgICfjgrDjg6njg5Xjga7nqK7poZ7jgpLoqK3lrpog5oqY44KM57ea44Kw44Op44OVCiAgICAgICAgICAgIC5DaGFydFR5cGUgPSB4bExpbmVNYXJrZXJzCiAgICAgICAgICAgICdY6Lu444Gu6aCF55uu6Lu444KS5oyH5a6aCiAgICAgICAgICAgIC5YVmFsdWVzID0gUmFuZ2UoQ2VsbHMoMiwgMiksIENlbGxzKDIsIE5vX2tvdXRlaSArIDEpKQogICAgICAgICAgICAn44OH44O844K/44Gu5oyH5a6aCiAgICAgICAgICAgIGNvbCA9IEdldENvbDEoaSkKICAgICAgICAgICAgLlZhbHVlcyA9IFJhbmdlKENlbGxzKHNhdmVyb3cgKyAxLCBjb2wgKyAxKSwgQ2VsbHMoc2F2ZXJvdyArIDEsIGNvbCArIE5vX2tvdXRlaSkpCiAgICAgICAgICAgICflh6Hkvovjga7mjIflrpoKICAgICAgICAgICAgLk5hbWUgPSBpICYgIuacn+mghuS9jSIKICAgICAgICBFbmQgV2l0aAogICAgTmV4dAogICAgJ+OCueOCseODvOODq+aDheWgseioreWumgogICAgQWN0aXZlQ2hhcnQuQXhlcyh4bFZhbHVlLCB4bFByaW1hcnkpLk1pbmltdW1TY2FsZSA9IDEKICAgIEFjdGl2ZUNoYXJ0LkF4ZXMoeGxWYWx1ZSwgeGxQcmltYXJ5KS5NYWpvclVuaXQgPSA1CiAgICBBY3RpdmVDaGFydC5BeGVzKHhsVmFsdWUsIHhsUHJpbWFyeSkuTWF4aW11bVNjYWxlID0gR2V0TWF4U2NhbGUobWF4cm93IC0gMiwgNSkKICAgIEFjdGl2ZUNoYXJ0LkF4ZXMoeGxWYWx1ZSwgeGxQcmltYXJ5KS5SZXZlcnNlUGxvdE9yZGVyID0gVHJ1ZQogICAgJ+OCv+OCpOODiOODq+ioreWumgogICAgV2l0aCBBY3RpdmVDaGFydAogICAgICAgIC5IYXNUaXRsZSA9IFRydWUKICAgICAgICAuQ2hhcnRUaXRsZS5UZXh0ID0gQ2VsbHMoc2F2ZXJvdywgMSkuVmFsdWUgICfjgrDjg6njg5Xlr77osaHogIXjga7msI/lkI0KICAgIEVuZCBXaXRoCiAgICBnbWFrZWRGbGFnID0gVHJ1ZQpFbmQgU3ViCgon5YiX55Wq5Y+344KS6Iux5paH5a2X44Gr5aSJ5o+bCkZ1bmN0aW9uIENvbnZlcnRUb0xldHRlcihCeVZhbCBpQ29sIEFzIEludGVnZXIpIEFzIFN0cmluZwogICBEaW0gaUFscGhhIEFzIEludGVnZXIKICAgRGltIGlSZW1haW5kZXIgQXMgSW50ZWdlcgogICBpQWxwaGEgPSBJbnQoKGlDb2wgLSAxKSAvIDI2KQogICBpUmVtYWluZGVyID0gaUNvbCAtIChpQWxwaGEgKiAyNikKICAgSWYgaUFscGhhID4gMCBUaGVuCiAgICAgIENvbnZlcnRUb0xldHRlciA9IENocihpQWxwaGEgKyA2NCkKICAgRW5kIElmCiAgIElmIGlSZW1haW5kZXIgPiAwIFRoZW4KICAgICAgQ29udmVydFRvTGV0dGVyID0gQ29udmVydFRvTGV0dGVyICYgQ2hyKGlSZW1haW5kZXIgKyA2NCkKICAgRW5kIElmCkVuZCBGdW5jdGlvbgoKJ+S6uuaVsOOBqOODoeODouODquWNmOS9jeOCkuS4juOBiOOBpuOCueOCseODvOODq+OBruacgOWkp+WApOOCkuioiOeul+OBmeOCiwpQcml2YXRlIEZ1bmN0aW9uIEdldE1heFNjYWxlKG5vX3BlcnNvbiwgdW5pdCkKICAgIERpbSBpIEFzIExvbmcKICAgIGkgPSAwCiAgICBEbyBXaGlsZSBUcnVlCiAgICAgICAgR2V0TWF4U2NhbGUgPSBpICogdW5pdCArIDEKICAgICAgICBJZiBHZXRNYXhTY2FsZSA+PSBub19wZXJzb24gVGhlbiBFeGl0IERvCiAgICBMb29wCkVuZCBGdW5jdGlvbgo=