I believe, it deserves to be known.

*Original Author: Michael, sokolianskiy@doublev.ru
* YR minor modification
*---------------------------
SET ESCAPE ON
ON ESCAPE do iquit

DEFINE WINDOW Superwnd FROM 10,10 TO 30, 30 NAME mywnd
mywnd.WIDTH=300
mywnd.HEIGHT=300
mywnd.Autocenter=.t.
SHOW WINDOW Superwnd
SET CURSOR OFF
ACTIVATE WINDOW Superwnd
ACTIVATE screen
m.Angle=0
WAIT WINDOW nowa "Hit ESC to terminate..."
DO WHILE .T.
mywnd.foreColor=65535
mywnd.CIRCLE(50, 150+70*COS(DTOR(m.Angle)), 150+70*sin(DTOR(m.Angle)))
mywnd.foreColor=65408
mywnd.CIRCLE(50, 150-70*COS(DTOR(m.Angle)), 150-70*sin(DTOR(m.Angle)))
mywnd.foreColor=16711680
mywnd.CIRCLE(50, 150+70*COS(DTOR(m.Angle+90)), 150+70*sin(DTOR(m.Angle+90)))
mywnd.foreColor=255
mywnd.CIRCLE(50, 150+70*COS(DTOR(m.Angle+270)), 150+70*sin(DTOR(m.Angle+270)))

IF m.Angle=359
m.Angle=0
ELSE
m.Angle=m.Angle+1
ENDIF

ENDDO

DO iquit

*-------------
PROCEDURE iquit
mywnd.Cls
RELEASE mywnd
RELEASE WINDOWS Superwnd
SET CURSOR ON
ON escape
WAIT clear
cancel