home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / 83win / data1.cab / Basic_Plus_Examples / FILEDIAL < prev    next >
Encoding:
Text File  |  2001-03-02  |  954 b   |  23 lines
  1. 10    ! ***************************************                                                                                                                                         10  ! ****************************************
  2. 20    ! Example: FILE Dialog
  3. 30    !
  4. 40    ! This program produces a FILE Dialog. A file name,
  5. 50    ! which the  user selects from the list or types in,
  6. 60    ! is returned through the S$ string variable. The
  7. 70    ! button selected (OK or Cancel) is also displayed.
  8. 80    !
  9. 90    ! ***************************************
  10. 100    !
  11. 110       CLEAR SCREEN
  12. 120       INTEGER Btn
  13. 130       DIM S$[64]
  14. 140       DIALOG "FILE","Please select a file:",Btn;SET ("TITLE":" Example: FILE Dialog"),RETURN ("SELECTION":S$)
  15. 150       PRINT "Button           File"
  16. 160       PRINT
  17. 170       IF Btn=0 THEN
  18. 180           PRINT "  OK",S$
  19. 190       ELSE
  20. 200           PRINT "Cancel",S$
  21. 210       END IF
  22. 220       END
  23.