View.Set ("graphics:800,750")
var roll, boardnum : string
var num, num1, x, y : int
var counter, counter1, counter2, counter3, counter4, counter5, counter6, counter7, counter8, counter9 : int := 0
var font : int
font := Font.New ("serif:14")

procedure board
    for i : 1 .. 770 by 70
        Draw.Line (0 + i, 0, 0 + i, 700, 7)
        Draw.Line (0, 0 + i, 700, 0 + i, 7)
    end for
    for i : 1 .. 10
        boardnum := intstr (i)
        Draw.Text (boardnum, 2 + counter, 55, font, black)
        counter := counter + 70
    end for

    for k : 11 .. 20
        boardnum := intstr (k)
        Draw.Text (boardnum, 2 + counter1, 125, font, black)
        counter1 := counter1 + 70
    end for

    for l : 21 .. 30
        boardnum := intstr (l)
        Draw.Text (boardnum, 2 + counter2, 195, font, black)
        counter2 := counter2 + 70
    end for

    for n : 31 .. 40
        boardnum := intstr (n)
        Draw.Text (boardnum, 2 + counter3, 265, font, black)
        counter3 := counter3 + 70
    end for

    for n : 41 .. 50
        boardnum := intstr (n)
        Draw.Text (boardnum, 2 + counter4, 335, font, black)
        counter4 := counter4 + 70
    end for

    for n : 51 .. 60
        boardnum := intstr (n)
        Draw.Text (boardnum, 2 + counter5, 405, font, black)
        counter5 := counter5 + 70
    end for

    for n : 61 .. 70
        boardnum := intstr (n)
        Draw.Text (boardnum, 2 + counter6, 475, font, black)
        counter6 := counter6 + 70
    end for

    for n : 71 .. 80
        boardnum := intstr (n)
        Draw.Text (boardnum, 2 + counter7, 545, font, black)
        counter7 := counter7 + 70
    end for

    for n : 81 .. 90
        boardnum := intstr (n)
        Draw.Text (boardnum, 2 + counter8, 615, font, black)
        counter8 := counter8 + 70
    end for

    for n : 91 .. 100
        boardnum := intstr (n)
        Draw.Text (boardnum, 2 + counter9, 685, font, black)
        counter9 := counter9 + 70
    end for
end board
board
x := -35
y := 35
loop

    num := Rand.Int (1, 6)
    num1 := num * 70
    x := x + num1
    if x > 665 then
        y := y + 70
        x := -35 + (num1 - (665 - x))
    end if
    locate (1, 1)
    put "Enter R to roll."
    get roll
    locate (40,92)
    put "You"
    locate (41,90)
    put "rolled"
    locate (42,92)
    put "a ",num
    if roll = "R" or roll = "r" or roll = "Roll" or roll = "roll" or roll = "ROLL" then
        for i : 1 .. 770 by 70
            for k : 1 .. 770 by 70
                Draw.FillOval (-35 + i, 35 + k, 15, 15, 0)
            end for
        end for

        Draw.FillOval (x, y, 10, 10, 4)
    end if

end loop