AppTitle "Unravel by Eikon 08.19.04"
Graphics 640, 480, 16, 2
SetBuffer BackBuffer()
SeedRnd MilliSecs()

Type Obj
	Field X#, Y#, R#, A#, C, S#
End Type

A = 0: R = 0: C = 250: S# = 150
For i = 1 To 150
	o.Obj = New Obj
	o\X = 260: o\Y = 200: o\R = R: o\A = A: o\C = C: o\S = S: A = A + 10: R = R + 3: S = S - .05
	If C >= 20 Then C = C - 20 Else C = 255
Next

While Not KeyDown(1)
For o.Obj = Each Obj
	Color 0, 0, o\C: Rect o\R * Cos(o\A) + o\X, o\R * Sin(o\A) + o\Y, o\S, o\S
	o\A = o\A + 5: o\R = o\R + .1
Next

Flip: Cls
Wend: End