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#    'グラフ縦軸倍率
Const Y_unit As Long = 5        'グラフ縦軸目盛単位
 
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 = Y_unit
    ActiveChart.Axes(xlValue, xlPrimary).MaximumScale = GetMaxScale(maxrow - 2, Y_unit)
    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
        i = i + 1
    Loop
End Function
 
 

T3B0aW9uIEV4cGxpY2l0CiAKUHJpdmF0ZSBsYXN0cm93IEFzIExvbmcKUHJpdmF0ZSBtYXhjb2wgQXMgTG9uZwpQcml2YXRlIG1heHJvdyBBcyBMb25nClByaXZhdGUgc2F2ZXJvdyBBcyBMb25nClByaXZhdGUgc29ydGVkRmxhZyBBcyBCb29sZWFuClByaXZhdGUgZ21ha2VkRmxhZyBBcyBCb29sZWFuCkNvbnN0IGJhc2VTaGVldE5hbWUgQXMgU3RyaW5nID0gIuaIkOe4vuihqCIKQ29uc3Qgd29ya1NoZWV0TmFtZSBBcyBTdHJpbmcgPSAi5L2c5qWtIgpDb25zdCBOb19rb3V0ZWkgQXMgTG9uZyA9IDE5ICAgICflt6XnqIvmlbAKQ29uc3QgWF9yYXRpbyBBcyBEb3VibGUgPSAxIyAgICAgICfjgrDjg6njg5XmqKrou7jlgI3njocKQ29uc3QgWV9yYXRpbyBBcyBEb3VibGUgPSAxIyAgICAn44Kw44Op44OV57im6Lu45YCN546HCkNvbnN0IFlfdW5pdCBBcyBMb25nID0gNSAgICAgICAgJ+OCsOODqeODlee4pui7uOebruebm+WNmOS9jQogClByaXZhdGUgU3ViIFVzZXJGb3JtX0luaXRpYWxpemUoKQogICAgRGltIGkgQXMgTG9uZwogICAgQ2FsbCBDb3B5RGF0YQogICAgRm9yIGkgPSAzIFRvIG1heHJvdwogICAgICAgIOWQjeWJjeODquOCueODiC5BZGRJdGVtIENlbGxzKGksIDEpCiAgICBOZXh0IGkKRW5kIFN1YgogClByaXZhdGUgU3ViIOWQjeWJjeODquOCueODiF9DbGljaygpCiAgICBEaW0gaSBBcyBMb25nCiAgICBEaW0gaiBBcyBMb25nCiAgICBEaW0gcm93IEFzIExvbmcKICAgIERpbSBjb2wgQXMgTG9uZwogICAgRGltIG5vIEFzIExvbmcKICAgIENhbGwgQ29weURhdGEKICAgIG5vID0g5ZCN5YmN44Oq44K544OILkxpc3RJbmRleAogICAgcm93ID0gbm8gKyAzCiAgICAn6YG45oqe44GX44Gf5rCP5ZCN44Go5oiQ57i+44KS44Kz44OU44O8CiAgICBSYW5nZShDZWxscyhzYXZlcm93LCAxKSwgQ2VsbHMoc2F2ZXJvdywgbWF4Y29sKSkuVmFsdWUgPSBSYW5nZShDZWxscyhyb3csIDEpLCBDZWxscyhyb3csIG1heGNvbCkpLlZhbHVlCiAgICAn6aCG5L2N44KS6Kit5a6a77yIMeacn++9njTmnJ/vvIkKICAgIEZvciBpID0gMSBUbyA0CiAgICAgICAgRm9yIGogPSAxIFRvIE5vX2tvdXRlaQogICAgICAgICAgICBjb2wgPSBHZXRDb2wyKGksIGopCiAgICAgICAgICAgIElmIENlbGxzKHNhdmVyb3csIGNvbCkuVmFsdWUgPD4gIiIgVGhlbgogICAgICAgICAgICAgICAgQ2VsbHMoc2F2ZXJvdyArIDEsIGNvbCkuVmFsdWUgPSBXb3Jrc2hlZXRGdW5jdGlvbi5SYW5rKENlbGxzKHNhdmVyb3csIGNvbCkuVmFsdWUsIFJhbmdlKENlbGxzKDMsIGNvbCksIENlbGxzKG1heHJvdywgY29sKSksIDApCiAgICAgICAgICAgIEVuZCBJZgogICAgICAgIE5leHQKICAgIE5leHQKICAgICfpgbjmip7jgZXjgozjgZ/msI/lkI3jga7og4zmma/oibLjgpLoqK3lrprvvIgx5pyf772eNOacn++8iQogICAgRm9yIGkgPSAxIFRvIDQKICAgICAgICBjb2wgPSBHZXRDb2wxKGkpCiAgICAgICAgUmFuZ2UoQ2VsbHMocm93LCBjb2wpLCBDZWxscyhyb3csIGNvbCArIE5vX2tvdXRlaSkpLkludGVyaW9yLkNvbG9yID0gMTU3NzM2OTYKICAgIE5leHQKICAgIGxhc3Ryb3cgPSByb3cKRW5kIFN1Ygon5Lim44G55pu/44GI44Oc44K/44Oz44Kv44Oq44OD44KvClByaXZhdGUgU3ViIGJ0bnNvcnRfQ2xpY2soKQogICAgRGltIGkgQXMgTG9uZwogICAgRGltIGogQXMgTG9uZwogICAgRGltIGNvbCBBcyBMb25nCiAgICBJZiBzb3J0ZWRGbGFnID0gVHJ1ZSBUaGVuCiAgICAgICAgTXNnQm94ICgi5pei44Gr5Lim44G55pu/44GI5riI44G/IikKICAgICAgICBFeGl0IFN1YgogICAgRW5kIElmCiAgICBJZiBsYXN0cm93ID0gMCBUaGVuCiAgICAgICAgTXNnQm94ICgi5ZCN5YmN44KS6YG45oqe44GX44Gm5LiL44GV44GEIikKICAgICAgICBFeGl0IFN1YgogICAgRW5kIElmCiAgICAnMeacn++9njTmnJ/jgb7jgafnubDjgorov5TjgZkKICAgIEZvciBpID0gMSBUbyA0CiAgICAgICAgRm9yIGogPSAxIFRvIE5vX2tvdXRlaQogICAgICAgICAgICBjb2wgPSBHZXRDb2wyKGksIGopCiAgICAgICAgICAgIFJhbmdlKENlbGxzKDMsIGNvbCksIENlbGxzKG1heHJvdywgY29sKSkuU29ydCBrZXkxOj1DZWxscygzLCBjb2wpLCBvcmRlcjE6PXhsRGVzY2VuZGluZwogICAgICAgIE5leHQKICAgIE5leHQKICAgIHNvcnRlZEZsYWcgPSBUcnVlCkVuZCBTdWIKIAon5pyfKGk9Me+9njQp44KS5LiO44GI44Gm44CB44Gd44Gu44Kr44Op44Og5L2N572u77yI5rCP5ZCN44Gu44Kr44Op44Og5L2N572u77yJ44KS6L+U44GZClByaXZhdGUgRnVuY3Rpb24gR2V0Q29sMShCeVZhbCBpIEFzIExvbmcpIEFzIExvbmcKICAgIEdldENvbDEgPSAoaSAtIDEpICogKE5vX2tvdXRlaSArIDIpICsgMQpFbmQgRnVuY3Rpb24KJ+acnyhpPTHvvZ40KeOBqOW3peeoiyhqPTHvvZ4xOSnjgpLkuI7jgYjjgabjgIHjgZ3jga7jgqvjg6njg6DkvY3nva7jgpLov5TjgZkKUHJpdmF0ZSBGdW5jdGlvbiBHZXRDb2wyKEJ5VmFsIGkgQXMgTG9uZywgQnlWYWwgaiBBcyBMb25nKSBBcyBMb25nCiAgICBHZXRDb2wyID0gKGkgLSAxKSAqIChOb19rb3V0ZWkgKyAyKSArIGogKyAxCkVuZCBGdW5jdGlvbgon5pyfKGk9Me+9njQp44KS5LiO44GI44Gm44CB44Gd44Gu5pyf44Gr44OH44O844K/44GM44GC44KL44GL5ZCm44GL44KS6L+U44GZKHRydWU65pyJIGZhbHNlOueEoSkKUHJpdmF0ZSBGdW5jdGlvbiBIYXNEYXRhKEJ5VmFsIGkgQXMgTG9uZykgQXMgQm9vbGVhbgogICAgRGltIGNvbCBBcyBMb25nCiAgICBEaW0gcmcgQXMgUmFuZ2UKICAgIGNvbCA9IEdldENvbDEoaSkKICAgIEhhc0RhdGEgPSBGYWxzZQogICAgRm9yIEVhY2ggcmcgSW4gUmFuZ2UoQ2VsbHMoMywgY29sICsgMSksIENlbGxzKG1heHJvdywgY29sICsgTm9fa291dGVpKSkKICAgICAgICBJZiByZy5WYWx1ZSA8PiAiIiBUaGVuCiAgICAgICAgICAgIEhhc0RhdGEgPSBUcnVlCiAgICAgICAgICAgIEV4aXQgRm9yCiAgICAgICAgRW5kIElmCiAgICBOZXh0CkVuZCBGdW5jdGlvbgon5YWD44OH44O844K/44KS5L2c5qWt44K344O844OI44G444Kz44OU44O8ClByaXZhdGUgU3ViIENvcHlEYXRhKCkKICAgIERpbSBpIEFzIExvbmcKICAgIERpbSByZyBBcyBTdHJpbmcKICAgIERpbSBlbmRfY29sc3RyIEFzIFN0cmluZwogICAgbWF4Y29sID0gKE5vX2tvdXRlaSArIDEpICogNCArIDMKICAgIGVuZF9jb2xzdHIgPSBDb252ZXJ0VG9MZXR0ZXIobWF4Y29sKQogICAgbWF4cm93ID0gV29ya3NoZWV0cyhiYXNlU2hlZXROYW1lKS5DZWxscyhSb3dzLkNvdW50LCAxKS5FbmQoeGxVcCkucm93CiAgICAn5YmN5Zue6KGo56S644GV44KM44Gf5YaF5a6544KS5YWo44Gm44Kv44Oq44KiCiAgICBXb3Jrc2hlZXRzKHdvcmtTaGVldE5hbWUpLkNlbGxzLkNsZWFyCiAgICByZyA9ICJBMToiICYgZW5kX2NvbHN0ciAmIG1heHJvdwogICAgJ+ihqOOBruWFqOmgmOWfn+OCkuOCs+ODlOODvChBMe+9nkNFeCkoeD1B5YiX44Gu5pyA5aSn6KGMKQogICAgV29ya3NoZWV0cyhiYXNlU2hlZXROYW1lKS5SYW5nZShyZykuQ29weSBXb3Jrc2hlZXRzKHdvcmtTaGVldE5hbWUpLlJhbmdlKHJnKQogICAgJ+S9nOalreOCt+ODvOODiOOCkuOCouOCr+ODhuOCo+ODmeOCpOODiAogICAgV29ya3NoZWV0cyh3b3JrU2hlZXROYW1lKS5BY3RpdmF0ZQogICAgJ+OCsOODqeODleOCkuWJiumZpAogICAgV29ya3NoZWV0cyh3b3JrU2hlZXROYW1lKS5DZWxscygxLCAxKS5TZWxlY3QKICAgIElmIEFjdGl2ZVNoZWV0LkNoYXJ0T2JqZWN0cy5Db3VudCA+IDAgVGhlbgogICAgICAgIEFjdGl2ZVNoZWV0LkNoYXJ0T2JqZWN0cy5EZWxldGUKICAgIEVuZCBJZgogICAgJ+ODleODqeOCsOWPiuOBs+WkieaVsOOBruWIneacn+WMlgogICAgbGFzdHJvdyA9IDAKICAgIHNvcnRlZEZsYWcgPSBGYWxzZQogICAgZ21ha2VkRmxhZyA9IEZhbHNlCiAgICBzYXZlcm93ID0gbWF4cm93ICsgMgpFbmQgU3ViCifjgrDjg6njg5Xjg5zjgr/jg7Pjgq/jg6rjg4Pjgq8KUHJpdmF0ZSBTdWIgQnRuR3JhcGhfQ2xpY2soKQogICAgRGltIGxlZnQgQXMgRG91YmxlCiAgICBEaW0gdG9wIEFzIERvdWJsZQogICAgRGltIHdpZHRoIEFzIERvdWJsZQogICAgRGltIGhlaWdodCBBcyBEb3VibGUKICAgIERpbSBjb2wgQXMgTG9uZwogICAgRGltIGkgQXMgTG9uZwogICAgSWYgZ21ha2VkRmxhZyA9IFRydWUgVGhlbgogICAgICAgIE1zZ0JveCAoIuaXouOBq+S9nOaIkOa4iOOBvyIpCiAgICAgICAgRXhpdCBTdWIKICAgIEVuZCBJZgogICAgSWYgbGFzdHJvdyA9IDAgVGhlbgogICAgICAgIE1zZ0JveCAoIuWQjeWJjeOCkumBuOaKnuOBl+OBpuS4i+OBleOBhCIpCiAgICAgICAgRXhpdCBTdWIKICAgIEVuZCBJZgogICAgJ+W3puS9jee9ruioreWumu+8iD1C5YiX44Gu6ZaL5aeL5L2N572u77yJCiAgICBsZWZ0ID0gQWN0aXZlU2hlZXQuUmFuZ2UoIkExIikud2lkdGgKICAgICfkuIrkvY3nva7oqK3lrprvvIg9QeWIl+acgOWkp+ihjCs16KGM55uu77yJCiAgICB0b3AgPSBBY3RpdmVTaGVldC5SYW5nZSgiQTE6QSIgJiBtYXhyb3cgKyA0KS5oZWlnaHQKICAgICfpq5jjgZUKICAgIGhlaWdodCA9IDMwMCAqIFlfcmF0aW8KICAgICfluYUKICAgIHdpZHRoID0gQWN0aXZlU2hlZXQuUmFuZ2UoIkIyIikud2lkdGggKiBOb19rb3V0ZWkgKiBYX3JhdGlvCiAgICAn56m644Gu44Kw44Op44OV5L2c5oiQCiAgICBXaXRoIEFjdGl2ZVNoZWV0LkNoYXJ0T2JqZWN0cy5BZGQobGVmdCwgdG9wLCB3aWR0aCwgaGVpZ2h0KS5DaGFydAogICAgRW5kIFdpdGgKICAgICfkvZzmiJDjgZfjgZ/jgrDjg6njg5Xjga7jgqLjgq/jg4bjgqPjg5njgqTjg4gKICAgIEFjdGl2ZVNoZWV0LkNoYXJ0T2JqZWN0cygxKS5BY3RpdmF0ZQogICAgJzHmnJ/jgYvjgok05pyf44G+44Gn5L2c5oiQCiAgICBGb3IgaSA9IDEgVG8gNAogICAgICAgICfoqbLlvZPmnJ/jga7jg4fjg7zjgr/jgYzlhajjgabnqbrjgarjgonntYLkuobjgZnjgosKICAgICAgICBJZiBIYXNEYXRhKGkpID0gRmFsc2UgVGhlbiBFeGl0IEZvcgogICAgICAgICfmlrDjgZfjgY/jg4fjg7zjgr/ns7vliJfjgpLkvZzmiJAKICAgICAgICBBY3RpdmVDaGFydC5TZXJpZXNDb2xsZWN0aW9uLk5ld1NlcmllcwogICAgICAgICfjgrDjg6njg5Xjga7nqK7poZ7jg7vjg4fjg7zjgr/jga7nr4Tlm7Ljg7vlh6Hkvovjga7kvb/nlKjjgpLmjIflrpoKICAgICAgICBXaXRoIEFjdGl2ZUNoYXJ0LlNlcmllc0NvbGxlY3Rpb24oaSkKICAgICAgICAgICAgJ+OCsOODqeODleOBrueorumhnuOCkuioreWumiDmipjjgoznt5rjgrDjg6njg5UKICAgICAgICAgICAgLkNoYXJ0VHlwZSA9IHhsTGluZU1hcmtlcnMKICAgICAgICAgICAgJ1jou7jjga7poIXnm67ou7jjgpLmjIflrpoKICAgICAgICAgICAgLlhWYWx1ZXMgPSBSYW5nZShDZWxscygyLCAyKSwgQ2VsbHMoMiwgTm9fa291dGVpICsgMSkpCiAgICAgICAgICAgICfjg4fjg7zjgr/jga7mjIflrpoKICAgICAgICAgICAgY29sID0gR2V0Q29sMShpKQogICAgICAgICAgICAuVmFsdWVzID0gUmFuZ2UoQ2VsbHMoc2F2ZXJvdyArIDEsIGNvbCArIDEpLCBDZWxscyhzYXZlcm93ICsgMSwgY29sICsgTm9fa291dGVpKSkKICAgICAgICAgICAgJ+WHoeS+i+OBruaMh+WumgogICAgICAgICAgICAuTmFtZSA9IGkgJiAi5pyf6aCG5L2NIgogICAgICAgIEVuZCBXaXRoCiAgICBOZXh0CiAgICAn44K544Kx44O844Or5oOF5aCx6Kit5a6aCiAgICBBY3RpdmVDaGFydC5BeGVzKHhsVmFsdWUsIHhsUHJpbWFyeSkuTWluaW11bVNjYWxlID0gMQogICAgQWN0aXZlQ2hhcnQuQXhlcyh4bFZhbHVlLCB4bFByaW1hcnkpLk1ham9yVW5pdCA9IFlfdW5pdAogICAgQWN0aXZlQ2hhcnQuQXhlcyh4bFZhbHVlLCB4bFByaW1hcnkpLk1heGltdW1TY2FsZSA9IEdldE1heFNjYWxlKG1heHJvdyAtIDIsIFlfdW5pdCkKICAgIEFjdGl2ZUNoYXJ0LkF4ZXMoeGxWYWx1ZSwgeGxQcmltYXJ5KS5SZXZlcnNlUGxvdE9yZGVyID0gVHJ1ZQogICAgJ+OCv+OCpOODiOODq+ioreWumgogICAgV2l0aCBBY3RpdmVDaGFydAogICAgICAgIC5IYXNUaXRsZSA9IFRydWUKICAgICAgICAuQ2hhcnRUaXRsZS5UZXh0ID0gQ2VsbHMoc2F2ZXJvdywgMSkuVmFsdWUgICfjgrDjg6njg5Xlr77osaHogIXjga7msI/lkI0KICAgIEVuZCBXaXRoCiAgICBnbWFrZWRGbGFnID0gVHJ1ZQpFbmQgU3ViCiAKJ+WIl+eVquWPt+OCkuiLseaWh+Wtl+OBq+WkieaPmwpGdW5jdGlvbiBDb252ZXJ0VG9MZXR0ZXIoQnlWYWwgaUNvbCBBcyBJbnRlZ2VyKSBBcyBTdHJpbmcKICAgRGltIGlBbHBoYSBBcyBJbnRlZ2VyCiAgIERpbSBpUmVtYWluZGVyIEFzIEludGVnZXIKICAgaUFscGhhID0gSW50KChpQ29sIC0gMSkgLyAyNikKICAgaVJlbWFpbmRlciA9IGlDb2wgLSAoaUFscGhhICogMjYpCiAgIElmIGlBbHBoYSA+IDAgVGhlbgogICAgICBDb252ZXJ0VG9MZXR0ZXIgPSBDaHIoaUFscGhhICsgNjQpCiAgIEVuZCBJZgogICBJZiBpUmVtYWluZGVyID4gMCBUaGVuCiAgICAgIENvbnZlcnRUb0xldHRlciA9IENvbnZlcnRUb0xldHRlciAmIENocihpUmVtYWluZGVyICsgNjQpCiAgIEVuZCBJZgpFbmQgRnVuY3Rpb24KIAon5Lq65pWw44Go44Oh44Oi44Oq5Y2Y5L2N44KS5LiO44GI44Gm44K544Kx44O844Or44Gu5pyA5aSn5YCk44KS6KiI566X44GZ44KLClByaXZhdGUgRnVuY3Rpb24gR2V0TWF4U2NhbGUobm9fcGVyc29uLCB1bml0KQogICAgRGltIGkgQXMgTG9uZwogICAgaSA9IDAKICAgIERvIFdoaWxlIFRydWUKICAgICAgICBHZXRNYXhTY2FsZSA9IGkgKiB1bml0ICsgMQogICAgICAgIElmIEdldE1heFNjYWxlID49IG5vX3BlcnNvbiBUaGVuIEV4aXQgRG8KICAgICAgICBpID0gaSArIDEKICAgIExvb3AKRW5kIEZ1bmN0aW9uCgo=