#include "fbgfx.bi"

ScreenRes 640,480,8,2
ScreenSet(0,1)

Type Vector2D
     x As Single
     y As Single
End Type

Type Chars
    position    As vector2d
    radius      As Single
End Type

Dim As Chars p, c
c.position = Type<Vector2D>(320,240)
c.radius = 75
p.position = Type<Vector2D>(320,154)
p.radius = 10


Do
    If Multikey(FB.SC_UP) Then
        p.position.y-=1
    End If
   
    If Multikey(FB.SC_DOWN) Then
        p.position.y+=1
    End If
   
    If Multikey(FB.SC_LEFT) Then
        p.position.x-=1
    End If
   
    If Multikey(FB.SC_RIGHT) Then
        p.position.x+=1
    End If
   
    Cls
    Circle(p.position.x, p.position.y),p.radius,14
    Circle(c.position.x, c.position.y),c.radius,31
    If (p.position.y - c.position.y)^2 + (p.position.x - c.position.x)^2 <= (c.radius + p.radius)^2 Then
        Locate 1,1
        Print "Circles are intersecting."
    End If 
       
    screensync
    Sleep 1
    Flip
Loop Until multikey(FB.SC_ESCAPE)