var numOfObject : int := 5
var targetX, targetY : int
var objectX, objectY : array 1 .. numOfObject of int
var speedToTargetX, speedToTargetY : array 1 .. numOfObject of int

View.Set ("offscreenonly")

procedure drawObject

    for i : 1 .. numOfObject
        drawfilloval (objectX (i), objectY (i), 2, 2, black)
    end for

end drawObject

procedure drawTarget

    drawfillstar (targetX, targetY, targetX + 15, targetY + 15, blue)

end drawTarget

loop

    for i : 1 .. numOfObject
        randint (objectX (i), 1, 639)
        randint (objectY (i), 350, 800)

        randint (targetX, 1, 639)
        randint (targetY, 10, 150)
    end for


    for i : 1 .. numOfObject
        speedToTargetX (i) := round ((objectX (i) - targetX) / 120)
        speedToTargetY (i) := round ((objectY (i) - targetY) / 120)
    end for


    loop
        for i : 1 .. numOfObject

            drawObject
            drawTarget


            /*
             put speedToTargetX
             put speedToTargetY
             put objectX
             put objectY
             put targetX
             put targetY
             */

            objectX (i) := objectX (i) - speedToTargetX (i)
            objectY (i) := objectY (i) - speedToTargetY (i)




            View.Update
            Time.Delay (1)
            cls
        end for
    end loop
end loop