*

.Define the PROGRESS bars, COLORs,

. TIMER, BUTTONS, and other variables

.

PROGS

PROGRESS

(4)

COLORS

COLOR

(3)

TIMER1

TIMER

BUTTON1

BUTTON

BUTTON2

BUTTON

RESULT

FORM

2

PBVAL1

FORM

3

PBVAL2

FORM

3

*

.Create the Objects

.

CREATE

COLORS(1)=*BLUE

CREATE

COLORS(2)=*RED

CREATE

COLORS(3)=*WHITE

.

CREATE

PROGS(1)=2:12:10:15:

BGCOLOR=COLORS(3):

FGCOLOR=COLORS(1)

CREATE

PROGS(2)=2:12:20:23:

BGCOLOR=COLORS(3):

FGCOLOR=COLORS(2)

CREATE

PROGS(3)=5:6:40:70:

BGCOLOR=COLORS(3):

FGCOLOR=COLORS(1)

CREATE

PROGS(4)=8:8:40:70:

BGCOLOR=COLORS(3):

FGCOLOR=COLORS(2)

.

CREATE

TIMER1=10

.

CREATE

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

CREATE

BUTTON2=16:17:25:32,"Reset"

*

.Activate the Objects

.

ACTIVATE

PROGS

.

ACTIVATE

BUTTON1,EXIT,RESULT

ACTIVATE

BUTTON2,RESET,RESULT

*

.Initialize the Values and Activate the Timer

.

CALL

RESET

*

.Wait for an Event to Occur

.

LOOP

  EVENTWAIT

REPEAT

*

.Timer Expired - Increment and Decrement

. the Values - Deactivate the Timer if Done

.

INCR

IF

(PBVAL1 < 100)

  ADD

  "10",PBVAL1

  SETITEM

  PROGS(1),0,PBVAL1

  SETITEM

  PROGS(3),0,PBVAL1

  SUB

  "10",PBVAL2

  SETITEM

  PROGS(2),0,PBVAL2

  SETITEM

  PROGS(4),0,PBVAL2

ELSE

  DEACTIVATE

TIMER1

ENDIF

RETURN

*

.Reset Variables and Re-activate the Timer

.

RESET

MOVE

"0",PBVAL1

SETITEM

PROGS(1),0,PBVAL1

SETITEM

PROGS(3),0,PBVAL1

MOVE

"100",PBVAL2

SETITEM

PROGS(2),0,PBVAL2

SETITEM

PROGS(4),0,PBVAL2

ACTIVATE

TIMER1,INCR,RESULT

RETURN

*

.Exit Button Selected

.

EXIT

STOP