home *** CD-ROM | disk | FTP | other *** search
/ No Fragments Archive 10: Diskmags / nf_archive_10.iso / MAGS / ST_USER / 1990 / USERAU90.MSA / LISTINGS.ARC / FSELECT.BAS < prev    next >
BASIC Source File  |  1990-06-25  |  403b  |  21 lines
  1. REM HiSoft BASIC file selector
  2.  
  3. LIBRARY "GEMAES","GEMDOS"
  4.  
  5. WINDOW FULLW 2 : CLS
  6. file$ = FNfilename$
  7. PRINT : PRINT "You chose: ";file$
  8. END
  9.  
  10. DEF FNfilename$
  11. path$ = CHR$(65+FNdgetdrv%) + ":\*.*"
  12. ok% = 0
  13. fsel_input path$,name$,ok%
  14. WHILE right$(path$,1)<>"\"
  15.     path$ = LEFT$(path$,LEN(path$)-1)
  16. WEND
  17. IF ok% = 0 OR name$="" THEN path$="" : name$=""
  18. CLS
  19. FNfilename$ = path$ + name$
  20. END DEF
  21.