Cls Dim a As Single Dim b As Single Dim c As Single Dim x(3) As Single Dim y(3) As Single Dim t As Integer For t=1 To 3 Print "Point #"+Str(t) Input "X:",x(t) Input "Y:",y(t) Next 'ok, let's make some temp variables Dim temp As Single Dim tm(5) As Single 'Temporary working values temp=( ((y(1)-y(3))/(x(1)-x(3))) + ((y(2)-y(3))/(-x(2)+x(3))) ) a=temp/(x(1)-x(2)) 'A is calculated tm(0)=(x(3)^2)*(y(1)-y(2)) tm(1)=(x(1)^2)*(y(2)-y(3)) tm(2)=(x(2)^2)*(y(3)-y(1)) tm(3)=(x(1)-x(2)) tm(4)=(x(1)-x(3)) tm(5)=(x(2)-x(3)) b=(tm(0)+tm(1)+tm(2))/(tm(3)*tm(4)*tm(5)) 'B is calculated 'tm(3-5) can be kept as-is tm(0)=x(2)*(x(2)-x(3))*y(1) tm(1)=x(1)*(x(3)-x(1))*y(2) tm(2)=x(1)*(x(1)-x(2))*y(3)*x(2) c=(x(3)*(tm(0)+tm(1))+tm(2))/(tm(3)*tm(4)*tm(5)) Print a,b,c Input a 'Just to wait