10 ! *********************************************************************
20 ! Example: KEYPAD Dialog
30 !
40 ! This program produces a KEYPAD dialog and
50 ! displays the number entered by the user.
60 !
70 ! ***************************************
80 !
90 DIM P$[25]
100 INTEGER Btn
110 P$="Please enter a number:"
120 DIALOG "KEYPAD",P$,Btn;SET ("TITLE":" Example: KEYPAD Dialog"),RETURN ("VALUE":X)
130 SELECT Btn
140 CASE 0
150 DISP " Number entered:",VAL$(X)
160 CASE 1
170 DISP " Numeric input canceled."
180 END SELECT
190 END