home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / bazy / intra2_17 / rexx / copy_macros.irx next >
Text File  |  1995-05-22  |  980b  |  60 lines
  1. /* copy_macros by Bart Vanhaeren                                  */
  2. /* $VER: copy_macros 1.0 (17.5.1995)                              */
  3. /* Example Arexx program for controlling INTRA by Bart Vanhaeren  */
  4.  
  5. OPTIONS RESULTS
  6.  
  7. IF POS('rexxsupport.library',SHOW('libs'))=0 THEN
  8.   nill=ADDLIB('rexxsupport.library',0,-30,0)
  9.  
  10. IF POS('INTRAREXX', SHOW('PORTS'))=0 THEN DO
  11.   SAY "*** Start INTRA first !!!"
  12.   EXIT(0)
  13.  END
  14.  
  15. ADDRESS (TRIM(SUBSTR(SHOW('PORTS'),POS('INTRAREXX',SHOW('PORTS')),12)))
  16.  
  17. SCREENTOFRONT
  18.  
  19. REQUESTFILE TITLE '"Select source file"'
  20.  
  21. IF RC = 0 THEN DO
  22.  
  23.  source = RESULT
  24.  
  25.  OPEN FILENAME source
  26.  
  27.  i=1
  28.  
  29.  DO WHILE i<11
  30.  
  31.   KEYMACRO i
  32.   macro.i = RESULT
  33.   i = i + 1
  34.  END
  35.  
  36.  REQUESTFILE TITLE '"Select destination file"'
  37.  
  38.  IF RC = 0 THEN DO
  39.  
  40.   dest = RESULT
  41.  
  42.   OPEN FILENAME dest
  43.  
  44.   REQUESTRESPONSE PROMPT '"Replace keymacros?"' GADGETS 'Yes|No'
  45.  
  46.   IF RESULT=1 THEN DO
  47.    i=1
  48.  
  49.    DO WHILE i<11
  50.     KEYMACRO i """"||macro.i||""""
  51.     i = i + 1
  52.    END
  53.   END
  54.  
  55.  END
  56.  
  57. END
  58.  
  59. EXIT(0)
  60.