HTBasic Help
×
Menu
Index

Example: Number Dialog

 
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