var x1,y1,x2,y2,a,b:int:=0
var c,csq:real:=0
var key : array char of boolean
x1:=300
y1:=300
x2:=150
y2:=150
loop
drawoval(x1,y1,25,25,1)
drawoval(x2,y2,50,50,1)
a:=x2-x1
b:=y2-y1
csq:=a*a+b*b
c:=sqrt(csq)

if 50+25>c then
    put "collide"
    end if
   

   Input.KeyDown (key)
    if key (KEY_UP_ARROW) and y1 < maxy then %makes sure the character won't go past the top of the screen
        y1 += 1
    end if

    if key (KEY_DOWN_ARROW) and y1 > 0 then
        y1 -= 1
    end if

    if key (KEY_LEFT_ARROW) and x1 > 0 then
        x1 -= 1
    end if

    if key (KEY_RIGHT_ARROW) and x1 < maxx then
        x1 += 1
    end if

drawfilloval(x1,y1,25,25,1)

delay (10)

cls
end loop