home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDGE1_704.DMS / in.adf / Edge_Rexx.lha / OpenNewFile.edge < prev    next >
Encoding:
Text File  |  1993-10-27  |  583 b   |  38 lines
  1.  
  2. /*
  3. ** $VER: OpenNewFile.edge 1.1 (Sunday 08-Aug-93 02:50:56)
  4. **
  5. ** Open a new workfile and bring up the FileRequester so the 
  6. ** user may select a file to load
  7. **
  8. ** Written by Thomas liljetoft
  9. */
  10.  
  11.  
  12. options results
  13.  
  14. /*    get the users error-report level */
  15.  
  16. getenvvar _ge_errlevel
  17. errlevel = result
  18.  
  19. /* open a new file*/
  20.  
  21. 'new'
  22. if RC == 0 then do
  23.     /* if succesfull, address the new window and call open */
  24.  
  25.     address value result
  26.     'open'
  27.     end
  28.  
  29. if RC >= errlevel then do
  30.  
  31.     /* something went wrong enough to be reported so report */
  32.  
  33.     'fault'
  34.     'requestnotify' '"'result'"'
  35.     end
  36.  
  37. exit(0)
  38.