home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / EDGE1_704.DMS / in.adf / Edge_Rexx.lha / SaveKeys.edge < prev    next >
Encoding:
Text File  |  1993-10-27  |  681 b   |  38 lines
  1.  
  2. /*
  3. ** $VER: SaveKeyBoard.edge 1.1 (Sunday 08-Aug-93 02:51:56)
  4. **
  5. ** Save the keyboard definition to the specified file
  6. **
  7. ** Written by Thomas liljetoft
  8. */
  9.  
  10.  
  11. options results
  12.  
  13. /* get the users error-report level */
  14.  
  15. getenvvar _ge_errlevel
  16. errlevel = result
  17.  
  18. /* ask for a name to save the keyboard definition to */
  19.  
  20. 'requestfile' title '"Save the keyboard definition..."' path "edgeprg:" file "edge.keyboard" save getdir
  21. if RC == 0 then do
  22.  
  23.     /* ok, got a name - save the keyboard definition */
  24.  
  25.     'savekeyboard' filename '"'result'"'
  26.  
  27.     end
  28.  
  29. if RC >= errlevel then do
  30.  
  31.     /* something went wrong enought to be reported so report */
  32.  
  33.     'fault'
  34.     'requestnotify' '"'result'"'
  35.     end
  36.  
  37. exit(0)
  38.