View.Set ("offscreenonly")
 
procedure DrawDice (number : int)
 
    case number of
 
        label 1 :
 
            Draw.Box (50, 350, 150, 250, black)                        %the box
 
            Draw.FillOval (100, 300, 10, 10, black)         % centre point
 
        label 2 :
 
            Draw.Box (50, 350, 150, 250, black)                        %the box
 
            Draw.FillOval (75, 275, 10, 10, black)         % bottom left
 
            Draw.FillOval (125, 325, 10, 10, black)         % top right
 
        label 3 :
 
            Draw.Box (50, 350, 150, 250, black)                        %the box
 
            Draw.FillOval (100, 300, 10, 10, black)         % centre point
 
            Draw.FillOval (75, 275, 10, 10, black)         % bottom left
 
            Draw.FillOval (125, 325, 10, 10, black)         % top right
 
        label 4 :
 
            Draw.Box (50, 350, 150, 250, black)                               %the box
 
            Draw.FillOval (75, 325, 10, 10, black)         % top left
 
            Draw.FillOval (75, 275, 10, 10, black)         % bottom left
 
            Draw.FillOval (125, 325, 10, 10, black)         % top right
 
            Draw.FillOval (125, 275, 10, 10, black)         % bottom right
 
        label 5 :
 
            Draw.Box (50, 350, 150, 250, black)                               %the box
 
            Draw.FillOval (100, 300, 10, 10, black)         % centre point
 
            Draw.FillOval (75, 325, 10, 10, black)         % top left
 
            Draw.FillOval (75, 275, 10, 10, black)         % bottom left
 
            Draw.FillOval (125, 325, 10, 10, black)         % top right
 
            Draw.FillOval (125, 275, 10, 10, black)         % bottom right
 
        label 6 :
 
            Draw.Box (50, 350, 150, 250, black)            %the box
 
            Draw.FillOval (75, 300, 10, 10, black)     % middle left
 
            Draw.FillOval (75, 325, 10, 10, black)         % top left
 
            Draw.FillOval (75, 275, 10, 10, black)         % bottom left
 
            Draw.FillOval (125, 300, 10, 10, black)         % middle right
 
            Draw.FillOval (125, 325, 10, 10, black)         % top right
 
            Draw.FillOval (125, 275, 10, 10, black)         % bottom right
 
    end case
 
end DrawDice
 
for i : 1 .. 10
 
    DrawDice (Rand.Int (1, 6))
 
    View.Update
 
    delay (100)
 
    cls
 
end for
 
DrawDice (Rand.Int (1, 6))
 
  |