10 ! *********************************************************************
20 ! Example: KEYPAD Widget
30 !
40 ! This program uses the KEYPAD widgt to generate
50 ! a keypad you can use to enter numbers.
60 !
70 ! **********************************************************
80 !
90 ASSIGN @Keypad TO WIDGET "KEYPAD";SET ("REAL NOTATION":"FIXED")
100 CONTROL @Keypad;SET ("TITLE":" Example: KEYPAD Widget")
110 CONTROL @Keypad;SET ("MINIMUM":0,"MAXIMUM":1000)
120 CONTROL @Keypad;SET ("X":100,"Y":50,"WIDTH":250,"HEIGHT":300)
130 CONTROL @Keypad;SET ("CHECK FOR DONE":1)
140 CONTROL @Keypad;SET ("SYSTEM MENU":"Quit")
150 ON EVENT @Keypad,"RETURN" GOSUB Get_number
160 ON EVENT @Keypad,"DONE" GOSUB Get_number
170 ON EVENT @Keypad,"SYSTEM MENU" GOTO Finis
180 LOOP
190 WAIT FOR EVENT
200 END LOOP
210 Get_number: STATUS @Keypad;RETURN ("MODIFIED":New_number,"VALUE":Value)
220 IF New_number THEN
230 DISP "New number: ";Value
240 CONTROL @Keypad;SET ("MODIFIED":0)
250 END IF
260 RETURN
270 Finis: !
280 ASSIGN @Keypad TO * ! Delete KEYPAD widget
290 END
