Block(JumpLoop(
  Execute(If(
    Get(
      2001
      8
    )
    1
    2
  ))
  Execute(
    Set(
      10000
      2
      Multiply(
        Get(
          4000
          0
        )
        32
      )
    )
    Set(
      10000
      3
      Get(
        10000
        2
      )
    )
    Set(
      10000
      5
      Multiply(
        Get(
          4000
          1
        )
        32
      )
    )
    Set(
      10000
      6
      Get(
        10000
        5
      )
    )
    Set(
      10000
      7
      Add(
        3
        Get(
          10000
          2
        )
      )
    )
    Set(
      10000
      8
      Get(
        10000
        7
      )
    )
    Set(
      10000
      0
      Multiply(
        Add(
          Trunc(Divide(
            Get(
              4100
              Get(
                10000
                8
              )
            )
            2
          ))
          0.5
        )
        Get(
          2000
          1
        )
      )
    )
    Set(
      10000
      3
      Subtract(
        Add(
          Get(
            10000
            0
          )
          Multiply(
            Get(
              4100
              Get(
                10000
                3
              )
            )
            0.072
          )
        )
        Divide(
          Subtract(
            Get(
              1000
              1
            )
            Negate(Get(
              1000
              1
            ))
          )
          2
        )
      )
    )
    Set(
      10000
      4
      Subtract(
        Add(
          Get(
            10000
            0
          )
          Multiply(
            Get(
              4100
              Get(
                10000
                6
              )
            )
            0.072
          )
        )
        Divide(
          Subtract(
            Get(
              1000
              1
            )
            Negate(Get(
              1000
              1
            ))
          )
          2
        )
      )
    )
    Set(
      10000
      6
      Lerp(
        -0.9
        0.9
        Divide(
          Mod(
            Get(
              4100
              Get(
                10000
                8
              )
            )
            2
          )
          2
        )
      )
    )
    Set(
      10000
      0
      Subtract(
        Get(
          10000
          6
        )
        0.009
      )
    )
    Set(
      10000
      1
      Add(
        Get(
          10000
          6
        )
        0.009
      )
    )
    Draw(
      18
      Get(
        10000
        3
      )
      Get(
        10000
        0
      )
      Get(
        10000
        3
      )
      Get(
        10000
        1
      )
      Get(
        10000
        4
      )
      Get(
        10000
        1
      )
      Get(
        10000
        4
      )
      Get(
        10000
        0
      )
      Add(
        220000
        Multiply(
          Min(
            Get(
              4100
              Get(
                10000
                2
              )
            )
            Get(
              4100
              Get(
                10000
                5
              )
            )
          )
          100
        )
        Get(
          4100
          Get(
            10000
            7
          )
        )
      )
      Get(
        2001
        9
      )
    )
    3
  )
  Execute(3)
  0
))