home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 3 / goldfish_volume_3.bin / files / fish / disks / d1091.lha / Programs / IRMaster / ARexx / ARexxDemo.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-09-30  |  1.5 KB  |  53 lines
  1. /*****************
  2.  
  3.     Demo-Arexx-Script für IR-Master
  4.  
  5.     Verwendung:
  6.  
  7.     - Projekt "NewFeatures.irm" starten.
  8.     - Shellfenster öffnen und eingeben:
  9.        CD IR-Master_Registered:ARexx
  10.        rx ARexxDemo.rexx
  11.  
  12. ******************/
  13.  
  14. ADDRESS 'New_rexx'                /* Achtung: Groß-/Kleinschreibung beim
  15.                                   Host-Namen beachten! */
  16.  
  17. /* Das Ziel der folgenden Kommandos ist jetzt durch den ADDRESS-Befehl
  18.    fgestgelegt, d.h. jetzt kann man direkt Kommandos an den AREXX-Port
  19.    des Projektes NewFeartures schicken: */
  20.  
  21. say
  22. Say "Das Fenster wird nach 100,100 verschoben"
  23. address command wait 2              /* shell-befehl "wait 2" ausführen -> 2 sec warten */
  24. IR_MOVE 100 100                     /* Fenster nach 100,100 verschieben */
  25.  
  26. say
  27. Say "Das Fenster wird geschlossen"
  28. address command wait 2
  29. IR_DISAPPEAR                        /* Fenster schlißen (Projekt bleibt aber aktiv) */
  30.  
  31. say
  32. Say "Das Fenster wird wieder geöffnet"
  33. address command wait 2
  34. IR_APPEAR                           /* Fenster wieder öffnen */
  35.  
  36. say
  37. Say "Tastendruck auf das Symbol »Start other Project«"
  38. address command wait 2
  39. IR_SEND '$Start other project'      /* Taste "drücken" */
  40. address command wait 2
  41.  
  42. say
  43. Say "Tastendruck auf das Symbol »Quit other Project«"
  44. address command wait 2
  45. IR_SEND '$Quit other project'   /* Wieder eine Taste "drücken" */
  46.  
  47. say
  48. Say "New.irm wird jetzt beendet"
  49. address command wait 2
  50. IR_QUIT                             /* Projekt beenden */
  51.  
  52. exit
  53.