10 ! *********************************************************************
20 ! Example: METER Widget
30 !
40 ! This program generates a METER widget with a 360 degree
50 ! scale. When the pointer is within the HIGH and LOW
60 ! LIMITS areas, beeps are generated.
70 !
80 ! *********************************************************
90 !
100 INTEGER N,M
110 ASSIGN @Meter TO WIDGET "METER"
120 CONTROL @Meter;SET ("TITLE":" Example: METER Widget")
130 CONTROL @Meter;SET ("X":50,"Y":25,"WIDTH":250,"HEIGHT":250)
140 CONTROL @Meter;SET ("ALARM RANGES":"LOW,HIGH","ALARM TYPE":"BEEP")
150 CONTROL @Meter;SET ("LOW LIMIT":10,"HIGH LIMIT":90,"SWEEP ANGLE":360)
160 CONTROL @Meter;SET ("MIDDLE PEN":0,"NEEDLE PEN":6,"NEEDLE WIDTH":2)
170 CONTROL @Meter;SET ("SYSTEM MENU":"Quit")
180 ON EVENT @Meter,"SYSTEM MENU" GOTO Finis
190 !
200 FOR M=1 TO 3
210 FOR N=1 TO 100
220 WAIT .1
230 CONTROL @Meter;SET ("VALUE":N)
240 NEXT N
250 NEXT M
260 !
270 Finis: !
280 ASSIGN @Meter TO * ! Delete METER widget
290 END
