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.BSC < prev    next >
Text File  |  1990-06-25  |  393b  |  21 lines
  1. REM Fast BASIC file selector
  2. TXTRECT 0,0,SCREENWIDTH, SCREENHEIGHT
  3. filename$ = FNselect_file
  4. PRINT TAB(1,15);"File = ";filename$
  5. dummy = GET
  6. END
  7.  
  8. DEF FNselect_file
  9. LOCAL file$,name$
  10. file$=PATH$ + "*.*"
  11. name$ = ""
  12. button% = 0
  13. FSELECT file$,name$,button%
  14. IF button%=0 OR name$="" THEN = ""
  15. WHILE RIGHT$(file$,1)<>"\"
  16.     file$=LEFT$(file$,LEN(file$)-1)
  17. WEND
  18. CLS
  19. = file$ + name$
  20.  
  21.