type ball :
    record
        mass : int %this is basically the radius.  I'll use it later when I put in some momentum equasions from physics.
        x, y, xv, yv : real %x and y is the position / xv and yv are the x and y velocities (respectivly)
    end record

var ball1, ball2 : ball %by two balls
var tangent : real

ball1.x := 400 %ball 1's info
ball1.y := 300
ball1.mass := 30
ball1.xv := 3
ball1.yv := -4

ball2.x := 200 %ball 2's info
ball2.y := 200
ball2.mass := 30
ball2.xv := -1
ball2.yv := -2

View.Set ("offscreenonly")

loop
    %i like drawing them in white instead of cls... i guess old habits die hard. This is how we learned it b4 i figured out
    %turing has a buffer you could draw to.
    drawfilloval (round (ball1.x), round (ball1.y), ball1.mass, ball1.mass, white) %ball 1 in white
    drawfilloval (round (ball2.x), round (ball2.y), ball2.mass, ball2.mass, white) %ball 2 in white

    %increase the balls by their respected velocities.
    ball1.x += ball1.xv
    ball1.y += ball1.yv
    ball2.x += ball2.xv
    ball2.y += ball2.yv

    %redraw the balls
    drawfilloval (round (ball1.x), round (ball1.y), ball1.mass, ball1.mass, green)
    drawfilloval (round (ball2.x), round (ball2.y), ball2.mass, ball2.mass, blue)

    View.Update

    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%ANGLE DETECTION... I CANT GET THIS...%%%%%%%%%%%%%%%%%
    if Math.Distance (ball1.x, ball1.y, ball2.x, ball2.y) <= ball1.mass + ball2.mass then

        %gets the angle
        tangent := arctand ((ball2.y - ball1.y) / (ball2.x - ball1.x))

        %i pretty much copied this idea outta thoughtfuls tut i think... I havnt included any mass or previous speed yet, im
        %just trying to get the collision angles right.  My theory is that since such a small number is being returned
        %the balls will end up increasing by 1 all the time because the new velocities are gonna be so low. Any help is
        %appreciated.
        ball1.xv := sind (tangent)
        ball1.yv := cosd (tangent)
        ball2.xv := -sind (tangent)
        ball2.yv := -cosd (tangent)

        %sometimes it will look like it work right but more often then not, the balls will go through each other and
        %come out at wierd messed up angles. Any help or pointers is greatly appreciated.
    end if
    %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%END ANGLE DETECTION%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

    %So Ball 1 doesnt go off the screen
    if ball1.y + ball1.mass > maxy or ball1.y - ball1.mass < 0 then
        ball1.yv := -ball1.yv
    end if
    if ball1.x + ball1.mass > maxx or ball1.x - ball1.mass < 0 then
        ball1.xv := -ball1.xv
    end if

    %So Ball 2 doesnt go off the screen
    if ball2.y + ball2.mass > maxy or ball2.y - ball2.mass < 0 then
        ball2.yv := -ball2.yv
    end if
    if ball2.x + ball2.mass > maxx or ball2.x - ball2.mass < 0 then
        ball2.xv := -ball2.xv
    end if

end loop

View.Set ("nooffscreenonly")