Anonymous

View.Set ("graphics:max,max")
var size : int := 50
var mx, my, mb : int
var ballx, bally : int := 200
var dirx, diry : int := 0
var ballSpeed : int := 1

dirx := ballSpeed
diry := ballSpeed
loop

    mousewhere (mx, my, mb)
    drawfillbox (mx - size, 0, mx + size, 50, black)
    drawfillbox (mx - size - 1, 0, 0, 50, white)
    drawfillbox (maxx, 0, mx + size + 1, 50, white)
    drawfilloval (ballx,bally,15,15,white)
    ballx += dirx
    bally += diry
    drawfilloval (ballx,bally,15,15,blue)
    if ballx >= maxx then
        dirx := - (dirx)
    elsif bally >= maxy then
        diry := - (diry)
    elsif ballx <= 0 then
        dirx := - (dirx)
    elsif bally <= 0 then
        diry := - (diry)
    end if
end loop