home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / coders / proasm / rexx / dopus_341 / dopus2edge.dopus < prev    next >
Text File  |  1996-04-29  |  714b  |  37 lines
  1. /* Load DOpus selected files into the Edge          */
  2. /* this script is for DOpus versions prior than 4.0 */
  3. /* 03.01.94 by Daniel Weber                         */
  4.  
  5. ADDRESS 'dopus_rexx'
  6. OPTIONS RESULTS
  7.  
  8. status 3                /* get #of active window     */
  9. win = result
  10. status 13 win                /* get actual selected drive */
  11. path = result
  12. getselectedfiles '+'
  13. IF RC ~= 0 THEN EXIT(0)
  14. files = result
  15.  
  16.  
  17. DO WHILE files ~=''
  18.   ADDRESS 'EDGE'
  19.   PARSE VAR files txtfile '+' files
  20.  
  21.   getenvvar _ge_errlevel
  22.   errlevel = result
  23.   New
  24.   SELECT
  25.      WHEN RC == 0 THEN DO
  26.        ADDRESS value result
  27.        open path''txtfile
  28.        END
  29.      WHEN RC >= 0 THEN DO
  30.        fault
  31.        requestnotify '"'result'"'
  32.        END
  33.   END
  34. END
  35. EXIT(0)
  36.  
  37.