/* Dieser Script schickt Wort unter Cursor-Position an FLM

   Um diesen Script über eine Tastenkombination aufzurufen, laden Sie
   die Datei "Edward.DEF" im Edward-Verzeichnis. Gehen Sie nun mit dem Cursor
   an die Stelle "Keybordbelegungen" (befindet sich nach den
   Menü-Einstellunegn) und fügen folgende Zeile z.B. nach "(CTRL" ein.

   <Taste> (ExecRexx "<Datei>")

   <Taste>:Hier müssen Sie die Taste eingeben, mit der Sie diesen Script
           aufrufen möchten, z.B. F10
   <Datei>:Hier müssen Sie den Namen dieser Datei und ihren Pfad angeben.

   Bsp.: F10    (ExecRexx "edward_look.rexx")

   Nach obigem Beispiel wird nun durch Ctrl+F10 das Wort unter dem Cursor an
   FLM geschickt, welches daraufhin ein Fenster mit der Übersetzung öffnet.

-> Beachten Sie, daß das Programm RexxMast aktiv ist !!!
*/

/* Hier bitte den Pfad und Programmnamen von FLM einstellen*/
initiation=run >NIL: "dh0:FLM/FLM"

Options RESULTS

IF ~show('P','FLM') THEN DO
 /*falls FLM noch nicht gestartet ist*/
 ADDRESS COMMAND initiation
 ADDRESS COMMAND "SYS:RexxC/WaitForPort FLM"
END

GetWord /* Wort unter Cursor in Variable RESULT */

Address FLM lookword RESULT /*Inhalt von Variable RESULT an FLM*/