sw = 640
sh = 480

'Square thing
startSize = 40
r=0
t=0

Graphics sw,sh

While Not KeyHit( KEY_ESCAPE )
    Cls

    size = startSize + Sin(t*3)*startSize*0.5
    r:+3
    t:+1
    SetHandle size/2,size/2
    SetTransform r,1,1

    SetColor (0,0,0)
    DrawRect (0,0,640,480)
    SetColor (255,255,255)

    For x=0 To 12
        For y=0 To 12
            DrawRect (sw*x/12,sh*y/12,size,size)
        Next
    Next

    Flip
Wend