% Variables
var xvalue, yvalue : int := 50
var x : int := 1150
var y : int := 10
var dyvalue, dxvalue := 1
var dx, dy := 1
var mX, mY, mX1, mY1, button : int
var winID : int
var redball : int
var blueball : int
var radius1 : int
var radius2 : int

redball := Pic.FileNew ("redball.gif")
blueball := Pic.FileNew ("blueball.gif")

radius1 := Pic.Width (redball) div 2
radius2 := Pic.Width (blueball) div 2

winID := Window.Open ("title:Screensaver,graphics:max;max")    % Fills The Screen Saver To The Whole Screen

View.Set ("nobuttonbar")    % Makes The Screen With No Button Bar On Top

mousewhere (mX, mY, button)
mX1 := mX
mY1 := mY

loop    % Starts The Loop

    % If The Mouse Is Moved Or Pressed Then The Window Will Close And Exit, Like In Real Screen Savers
    mousewhere (mX, mY, button)
    if mX not= mX1 or mY not= mY1 or button = 1 then
        Window.Close (winID)
        exit
    end if

    % If Any Key Is Pressed Then The Window Will Close And Exit, Like In Real Screen Savers
    if hasch then
        Window.Close (winID)
        exit
    end if

    % Boundaries For Ball 1
    if xvalue < 0 or xvalue = maxx - 140 then     % Ball 1 Bounces Off If Collides With The Top or Bottom Walls
        dxvalue := -dxvalue
    elsif yvalue = 0 or yvalue = maxy - 140 then     % Ball 1 Bounces Off If Collides With The Two Side Walls
        dyvalue := -dyvalue
    end if

    % Boundaries For Ball 2
    if x < 0 or x = maxx - 1000 then     % Ball 2 Bounces Off If Collides With The Top or Bottom Walls
        dx := -dx
    elsif y = 0 or y = maxy - 1000 then  % Ball 2 Bounces Off If Collides With The Two Side Walls
        dy := -dy
    end if

    % Ball 1
    yvalue := yvalue + dyvalue
    xvalue := xvalue + dxvalue

    % Ball 2
    x := x - dx
    y := y - dy

    setscreen ("graphics:max;max, offscreenonly, nobuttonbar")

    % Ball 1
    Pic.Draw (redball, xvalue, yvalue, picMerge)

    % Ball 2
    Pic.Draw (blueball, x, y, picMerge)

    View.UpdateArea (0, 0, maxx, maxy)
    cls

    if Math.Distance (xvalue, yvalue, x, y) < (radius1 + radius2) then
        xvalue := xvalue + 2
        yvalue := yvalue + 2
        x := 50
        y := 50
    end if
end loop     % Ends The Loop