home *** CD-ROM | disk | FTP | other *** search
/ The Best of Mecomp Multimedia 2 / MECOMP-CD-II.iso / amiga / tools / workbench / uniview / arexx / editor.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1998-01-14  |  706 b   |  42 lines
  1. /*
  2. ** $PROJECT: UniView
  3. **
  4. ** $VER: editor.rexx 40.2 (14.01.98)
  5. **
  6. ** $AUTHOR: Stefan Ruppert , Windthorststraße 5 , 65439 Flörsheim , GERMANY
  7. **
  8. ** $COPYRIGHT: (C) Copyright 1996-1998 by Stefan Ruppert, All Rights Reserved!
  9. **
  10. ** $EMAIL: ruppert@amigaworld.com
  11. **
  12. ** $HISTORY:
  13. **
  14. ** 14.01.98 : 040.002 : changed email address
  15. ** 15.11.96 : 040.001 : initial
  16. **
  17. */
  18.  
  19. OPTIONS RESULTS
  20.  
  21. 'GETFILEINFO'
  22. file = RESULT
  23.  
  24. If Show('p','PED_AREXX') Then Do
  25.    ADDRESS 'PED_AREXX'
  26.  
  27.    'OPEN FILE="' || file || '"'
  28. End
  29. Else If Show('p','rexx_ced') Then Do
  30.    ADDRESS 'rexx_ced'
  31.  
  32.    'CEDTOFRONT'
  33.  
  34.    'OPEN ' || file
  35. End
  36. Else If Show('p','GOLDED.1') Then Do
  37.    ADDRESS 'GOLDED.1'
  38.  
  39.    'OPEN NAME="' || file || '" NEW'
  40. End
  41.  
  42.