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