$INCLUDE "windowssdk.inc"


WINDOW w1
OPENWINDOW w1,0,0,1300,700,@MINBOX|@MAXBOX|@SIZE|@CAPTION,0,"Circles",&handler
SETWINDOWCOLOR w1,rgb(0,0,0)


'Circle2 R1
'circle w1, 110,550,30, RGB(255,0,0), RGB(219,219,219)
'circle w1, 110,550,20, RGB(255,0,0), RGB(0,0,0)


'Circle2 R2
'circle w1, 110,450,50, RGB(255,0,0), RGB(219,219,219)
'circle w1, 110,450,40, RGB(255,0,0), RGB(0,0,0)


'Circle3 R3
'circle w1, 110,300,80, RGB(255,0,0), RGB(219,219,219)
'circle w1, 110,300,70, RGB(255,0,0), RGB(0,0,0)


'Circle1 R4 Bench mark
'circle w1, 110,110,100, RGB(255,0,0), RGB(189,190,194)
'circle w1, 110,110,90, RGB(255,0,0), RGB(0,0,0)


'Circle4 R5
'circle w1, 350,200,120, RGB(255,0,0), RGB(219,219,219)
'circle w1, 350,200,110, RGB(255,0,0), RGB(0,0,0)


'Circle4 R6
'circle w1, 350,500,140, RGB(255,0,0), RGB(219,219,219)
'circle w1, 350,500,130, RGB(255,0,0), RGB(0,0,0)


'Circle4 R7
'circle w1, 680,480,160, RGB(255,0,0), RGB(219,219,219)
'circle w1, 680,480,150, RGB(255,0,0), RGB(0,0,0)

'Circle4 R8
'circle w1, 1050,190,180, RGB(255,0,0), RGB(219,219,219)
'circle w1, 1050,190,170, RGB(255,0,0), RGB(0,0,0)

'1300,700

'Circle4 R9
circle w1, 650,350,200, RGB(255,0,0), RGB(219,219,219)
circle w1, 650,350,190, RGB(255,0,0), RGB(0,0,0)

WAITUNTIL IsWindowClosed(w1)

SUB handler(),INT
    SELECT @MESSAGE
           CASE @IDCREATE
                CENTERWINDOW w1

           CASE @IDCLOSEWINDOW
                CLOSEWINDOW w1

           CASE @IDCONTROL
                SELECT @CONTROLID
                       CASE 1
                            IF @NOTIFYCODE = 0

                            ENDIF

                       CASE 2
                            IF @NOTIFYCODE = 0

                            ENDIF

                       CASE 3
                            IF @NOTIFYCODE = 0

                            ENDIF

                       CASE 4
                            IF @NOTIFYCODE = 0

                            ENDIF

                       CASE 5
                            IF @NOTIFYCODE = 0

                            ENDIF

    ENDSELECT
ENDSELECT
RETURN 0
ENDSUB