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