Block(JumpLoop(
  Execute(
    Set(
      10000
      0
      Get(
        4000
        0
      )
    )
    Break(
      1
      Add(
        TimeToScaledTime(Get(
          10000
          0
        ))
        1
      )
    )
    1
  )
  0
))