throws = 1000 diceNumber = 2 diceSides = 6 GraphicsWindow.Width = 500 GraphicsWindow.height = 600 for t = 1 To diceSides * diceNumber row[t] = Shapes.AddRectangle(500,10) label[t] = Shapes.AddText(t) xPosition[t] = -500 Shapes.Move(row[t],xPosition[t],t*20) EndFor For n = 1 To throws diceTotal = 0 For d = 1 To diceNumber diceTotal = diceTotal + Math.GetRandomNumber(diceSides) EndFor count[diceTotal] = count[diceTotal] + 1 for t = 1 To diceSides * diceNumber xPosition[t] = -500 + count[t]*2 Shapes.Move(row[t],xPosition[t],t*20) Shapes.Move(label[t],xPosition[t]+510,t*20) EndFor EndFor