home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDGE1_704.DMS / in.adf / Edge_Rexx.lha / Files.edge < prev    next >
Encoding:
Text File  |  1993-10-27  |  612 b   |  36 lines
  1.  
  2. /*
  3. ** $VER: Files.edge 1.12 (Sunday 08-Aug-93 02:41:52)
  4. **
  5. ** Show available files in Edge, and activate the first window of the
  6. ** file selected.
  7. **
  8. ** Written by Thomas liljetoft
  9. */
  10.  
  11.  
  12. options results
  13.  
  14. 'getenvvar' _ge_errlevel    /* get the users error report level */
  15. errlevel = result
  16.  
  17. 'requestfile' title '"Select file to activate.."' path "EDGE:" file '""' getdir
  18. name = ''
  19. if RC == 0 then
  20.     do
  21.     parse var result t ':' name
  22.     'select' filename name
  23.     end
  24.  
  25. if RC >= errlevel then
  26.     do
  27.  
  28.     /* something went wrong enought to be reported so report */
  29.  
  30.     'fault'
  31.     'requestnotify' '"'result'"'
  32.     exit(10)
  33.     end
  34.  
  35. exit(name)
  36.