10 ! *********************************************************************
20 ! Example: LIMITS Widget
30 !
40 ! This program generates a LIMITS widget. In the program,
50 ! the value is increased from 1 to 99. The LOW limit is
60 ! set to 20 and the HIGH limit is set to 80. Since the
70 ! ALARM RANGES is set to "OUTSIDE" ("O"), and ALARM TYPE
80 ! is "BEEP", the alarm sounds when the pointer is in the
90 ! red ranges.
100 !
110 ! **********************************************************
120 !
130 DIM Value(1:100)
140 ASSIGN @Lim TO WIDGET "LIMITS"
150 CONTROL @Lim;SET ("TITLE":" Example: LIMITS Widget")
160 CONTROL @Lim;SET ("LOW LIMIT":20,"HIGH LIMIT":80)
170 CONTROL @Lim;SET ("ALARM TYPE":"BEEP","ALARM RANGES":"O")
180 CONTROL @Lim;SET ("MINIMUM":0,"MAXIMUM":100)
190 CONTROL @Lim;SET ("SYSTEM MENU":"Quit")
200 ON EVENT @Lim,"SYSTEM MENU" GOTO Finis
210 LOOP
220 FOR I=1 TO 99
230 Value(I)=I
240 CONTROL @Lim;SET ("VALUE":Value(I))
250 WAIT .1
260 NEXT I
270 END LOOP
280 Finis: !
290 ASSIGN @Lim TO * ! Delete LIMITS widget
300 END
