*

.Define the SHAPES, COLORS, BUTTON, and result variable

.

SHAPE

SHAPE

(3)

COLORS

COLOR

(3)

BUTTON

BUTTON

RESULT

INTEGER

1

*

.Create the Objects

.

CREATE

COLORS(1)=*YELLOW

CREATE

COLORS(2)=*RED

CREATE

COLORS(3)=*BLUE

.

CREATE

SHAPE(1)=4:8:10:20:

SHAPE=1,FILLCOLOR=COLORS(1)

CREATE

SHAPE(2)=4:8:30:40:

SHAPE=2,FILLCOLOR=COLORS(2)

CREATE

SHAPE(3)=4:8:50:60:

SHAPE=3,FILLCOLOR=COLORS(3)

.

CREATE

BUTTON=16:17:35:42,"Exit"

*

.Activate the Shapes and Button

.

ACTIVATE

SHAPE(1),DISPM1,RESULT

ACTIVATE

SHAPE(2),DISPM2,RESULT

ACTIVATE

SHAPE(3),DISPM3,RESULT

.

ACTIVATE

BUTTON,EXIT,RESULT

*

.Wait for an Event to Occur

.

LOOP

  EVENTWAIT

REPEAT

*

.A Shape was Selected

.

DISPM1

DISPLAY

*P30:12,"Shape 1 clicked!":

*W2,*H=35,*EL;

RETURN

.

DISPM2

DISPLAY

*P30:12,"Shape 2 clicked!":

*W2,*H=35,*EL;

RETURN

.

DISPM3

DISPLAY

*P30:12,"Shape 3 clicked!":

*W2,*H=35,*EL;

RETURN

*

.Exit Button Selected

.

EXIT

STOP