var x : int := 0 % creates a new variable of integer type and sets the
                       % value to 0

proc objBall (x, y, ballSize, clr : int) % starts a procedure with the
% variable name 'objBall' and containing 'x, y, ballsize, clr' variables,
% which  are considered to be local variables

drawfilloval (x + ballSize, y + ballSize, ballSize, ballSize, clr)
% draws an oval

end objBall
% ends the 'objBall' procedure

loop
    objBall (x, 0, 10, 1) % "objBall's" variables that are contained can be
% called and given a value by using subscripts

    delay (10)

    x += 1 % increases x value by one each loop cycle

    cls %clears the screen
end loop

%%%%And now using a better technigue:%%%%

var x : int := 0

proc objBall (x, y, ballSize, clr : int)
      drawfilloval (x + ballSize, y + ballSize, ballSize, ballSize, clr)
end objBall

loop

    objBall (x, 0, 10, 1)
% The colour of the ball here is represented by the last number...

    delay (10)

    x += 1

% Instead of using cls this time I'll just change the colour of the ball to 0
% or white

    objBall (x, 0, 10, 0)

end loop

    objBall (x, 0, 10, 1)
% The colour of the ball here is represented by the last number...
    delay (10)

% Instead of using cls this time I'll just change the colour of the ball to 0
% or white
    objBall (x, 0, 10, 0)
    x += 1

View.Set ("offscreenonly")

var x : int := 0

proc objBall (x, y, ballSize, clr : int)
      drawfilloval (x + ballSize, y + ballSize, ballSize, ballSize, clr)
end objBall

loop

    objBall (x, 0, 10, 1)
        View.Update
% The colour of the ball here is represented by the last number...
    delay (10)

% Instead of using cls this time I'll just change the colour of the ball to 0
% or white
    objBall (x, 0, 10, 0)
    x += 1

end loop