home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1995 November / PCWK1195.iso / inne / podstawy / dos / 4dos / 4uzytki / ez-btm11.exe / LOOK.BTM < prev    next >
Encoding:
Text File  |  1994-03-30  |  1.9 KB  |  74 lines
  1. :: LOOK.BTM
  2. set source=%@search[%0]
  3. :: %@filename[%source]  - displays files and directories in current
  4. :: directory from which user can select any number of files or
  5. :: directories.  Files selected will be displayed using 4DOS LIST
  6. :: command.  Directories selected will be displayed, permitting
  7. :: user to select additional files and directories.
  8. :: Written by Sam Wilson (sam.wilson@emerald.com)
  9. :: ------------------
  10. :: Syntax:
  11. :: %@name[%source] [filespecs]
  12. :: (If no filespecs indicated, all filenames will be displayed)
  13. :: Switches:
  14. :: h, or ? -- This HELP
  15.  
  16.    if %@index[%&,h] eq 0 .or. %@index[%&,?] eq 0 goto help
  17.    setlocal
  18.    set n=-1
  19.    call settemp
  20.    set f=%@unique[%temp]
  21.    if .%1==. set 1=*.*
  22.    select /d echo>> %f (%_cwds%%1%)
  23.  
  24.    :loop
  25.    set n=%@eval[%n+1]
  26.    set sl=%@line[%f,%n]
  27.    iff %sl == **EOF** then
  28.       goto end
  29.    elseiff isdir %sl then
  30.       select echo>> %f (%sl\*.*)
  31.    else
  32.       list %sl
  33.    endiff
  34.    goto loop
  35.  
  36.    :end
  37.    del /q %f
  38.    endlocal
  39.    quit
  40.  
  41.    :help
  42. iff exist %@search[masthelp] then
  43.     call masthelp
  44.     cancel
  45. else
  46.     cls^screen 3 0
  47.     screen %@eval[%_row+1] 4 You must have %@upper[masthelp.btm]
  48.     screen %@eval[%_row+1] 4 for this HELP procedure to work
  49.     echo.
  50.     quit
  51. endiff
  52.  
  53.  
  54.     cls
  55.     screen 2 0
  56.     text
  57.       LOOK.BTM  - displays files and directories in current directory
  58.       from which user can select any number of files or directories.
  59.       Files selected will be displayed using 4DOS LIST command.
  60.       Directories selected will be displayed, permitting user to select
  61.       additional files and directories.
  62.       Written by Sam Wilson (sam.wilson@emerald.com)
  63.  
  64.     Syntax:
  65.  
  66.     LOOK [filespecs]
  67.     (If no filespecs indicated, all filenames will be displayed)
  68.     Switches:
  69.     --------
  70.     h, or ? -- This HELP
  71.     
  72.     endtext
  73.    quit
  74.