HTBasic Help
×
Menu
Index

Example: Keypad Dialog

 
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