home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / blabla / bed_defs&macros / rexx / e / rune.bed < prev   
Text File  |  1998-01-24  |  362b  |  26 lines
  1. /*
  2. ** $VER: RunE.bed 1.0 (21.01.97)
  3. **
  4. ** Invoke compiled program
  5. **
  6. ** by Marco Negri with small modifications by Karol Bryd
  7. */
  8.  
  9. OPTIONS RESULTS
  10.  
  11. GetFilePath PATH
  12. path = RESULT
  13.  
  14. GetFileInfo
  15.  
  16. PARSE VAR RESULT . . '"'name'"'
  17.  
  18. IF NAME ~= "" THEN DO
  19.     dotpos = LASTPOS('.', name)
  20.  
  21.     name=LEFT(name,dotpos-1)
  22.  
  23.     ADDRESS COMMAND 'CD "' || path || '"' '0A'X || name
  24.  
  25. END
  26.