10 ! *********************************************************************
20 ! Example: BARS Widget
30 !
40 ! This program creates a BARS widget with one bar
50 ! and displays voltage values from 1 to 100 volts.
60 !
70 ! ***************************************************
80 !
90 INTEGER M,N
100 ASSIGN @Bars TO WIDGET "BARS"
110 CONTROL @Bars;SET ("TITLE":" Example: BARS Widget")
120 CONTROL @Bars;SET ("X":50,"Y":25)
130 CONTROL @Bars;SET ("BAR LABEL":"Voltage")
140 CONTROL @Bars;SET ("SYSTEM MENU":"Quit")
150 ON EVENT @Bars,"SYSTEM MENU" GOTO Finis
160 !
170 FOR M=1 TO 5
180 FOR N=1 TO 100
190 CONTROL @Bars;SET ("VALUE":N)
200 WAIT .05
210 NEXT N
220 NEXT M
230 Finis: !
240 ASSIGN @Bars TO * ! Delete BARS widget
250 END
