home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD1.iso / FileMover / MAXT21.LHA / rexx / ACTIVATEDIR.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-09-21  |  711 b   |  67 lines
  1. /* ------------------------------------------------------------------
  2.  *
  3.  * MaxonTOOLS ARexx-Script
  4.  *
  5.  * name: ACTIVATEDIR.rexx
  6.  * date: 21.09.1994
  7.  * auth: Klaus-D. Sommer
  8.  *
  9.  * © 1994 MAXON Computer GmbH
  10.  *
  11.  * ------------------------------------------------------------------
  12.  */
  13.  
  14. OPTIONS RESULTS
  15. ADDRESS MT_REXX
  16.  
  17. /*
  18.  *
  19.  * Nummer des aktiven Fensters lesen
  20.  *
  21.  */
  22. ACTIVATEDIR 0
  23.  
  24. na = RESULT
  25.  
  26. SAY 'Verzeichnisfenster' na 'ist aktiv!'
  27.  
  28. /*
  29.  *
  30.  * Umschalten
  31.  *
  32.  */
  33. SAY 'Aktivieren des anderen Fensters...'
  34. IF na = 1 THEN
  35.    ACTIVATEDIR 2
  36. ELSE
  37.    ACTIVATEDIR 1
  38.  
  39. ADDRESS COMMAND WAIT 2
  40. ADDRESS
  41.  
  42. /*
  43.  *
  44.  * und wieder zurückschalten
  45.  *
  46.  */
  47. SAY 'Und wieder in den Ausgangszustand...'
  48. ACTIVATEDIR na
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.