0:
  10000[0] <- EntityMemory[0]
  10000[0] <- TimeToScaledTime(10000[0])
  10000[0] <- 10000[0] + 1
  Break(1, 10000[0])
  goto exit
