home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / 83win / data1.cab / Basic_Plus_Examples / KEYDIAL < prev    next >
Encoding:
Text File  |  2001-03-02  |  560 b   |  20 lines
  1. 10   ! **************************************
  2. 20   ! Example: KEYPAD Dialog
  3. 30   !
  4. 40   ! This program produces a KEYPAD dialog and
  5. 50   ! displays the number entered by the user.
  6. 60   !
  7. 70   ! ***************************************
  8. 80   !
  9. 90   DIM P$[25]
  10. 100  INTEGER Btn
  11. 110  P$="Please enter a number:"
  12. 120  DIALOG "KEYPAD",P$,Btn;SET ("TITLE":" Example: KEYPAD Dialog"),RETURN ("VALUE":X)
  13. 130  SELECT Btn
  14. 140  CASE 0
  15. 150      DISP " Number entered:",VAL$(X)
  16. 160  CASE 1
  17. 170      DISP " Numeric input canceled."
  18. 180  END SELECT
  19. 190  END
  20.