throws = 1000
diceNumber = 2
diceSides = 6
For n = 1 To throws
  diceTotal = 0
  For d = 1 To diceNumber
     diceTotal = diceTotal + Math.GetRandomNumber(diceSides)
  EndFor
  count[diceTotal] = count[diceTotal] + 1
  TextWindow.Write("Throw " + n +": ")
  For t = diceNumber To diceSides * diceNumber
     TextWindow.Write(t + "=" + count[t]+" ")
  EndFor
  TextWindow.Writeline("")
EndFor