home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / 83win / data1.cab / Basic_Plus_Examples / QUESDIAL < prev    next >
Encoding:
Text File  |  2001-03-02  |  492 b   |  16 lines
  1. 10  ! **************************************************
  2. 20 ! Example: QUESTION Dialog
  3. 30 !
  4. 40  ! This program provides a QUESTION dialog and displays
  5. 50  ! the user response (Yes or No) to the question.
  6. 60  !
  7. 70  ! **************************************************
  8. 80  !
  9. 90   DIM P$[20]
  10. 100  INTEGER Btn
  11. 110  P$="Do you want to exit?"
  12. 120  DIALOG "QUESTION",P$,Btn;SET ("TITLE":" Example: QUESTION Dialog")
  13. 130  IF Btn=0 THEN DISP "Yes"
  14. 140  IF Btn=1 THEN DISP "No"
  15. 150  END
  16.