setscreen ("graphics")          %puts the screen into graphics mode
var x, y : int := 0             %the variable for the dot
var dx, dy : int := 1           %the variable for bouncing off the wall
loop                            %starts the loop
    if whatdotcolor (x, y) not= 0 then      %if the dot hits the wall
    end if                                 
    drawfilloval (x, y, 10, 10, yellow)        %draws a black ball
    delay (4)                              %how fast the ball moves
    drawfilloval (x, y, 10, 10, white)      %"erases" the ball when it moves
    x := x + dx
    y := y + dy
    if x = 0 or x = maxx then               %makes the ball bounce off the wall
        dx := -dx
    end if
    if y = 0 or y = maxy then               %makes the ball bounce off the wall
        dy := -dy
    end if
end loop                                    %ends the loop

Y = ymax  - ( ½ )  *  a  *  t  ** 2

View.Set ("offscreenonly")

var y := 300.0
var vy := 0.0
const Gravity := -0.3

loop

    y += vy             % Same as y := y + vy
    vy += Gravity       % Same as vy := vy + Gravity
   
    if y < 5 then
        vy *= -1        % Same as vy := vy * -1
    end if

    cls
    Draw.FillOval (200, round (y), 5, 5, black)
    View.Update
    delay (10)

end loop