/* Dieser Script holt Übersetzung von FLM und schreibt sie an aktuelle
   Cursor-Position

   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ü-Einstellungen) 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. F9
   <Datei>:Hier müssen Sie den Namen dieser Datei und ihren Pfad angeben.

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

   Nach obigem Beispiel wird nun durch Ctrl+F9 die Übersetzung an die
   aktuelle Cursor-Position geschrieben.

-> Beachten Sie, daß die Programme FLM und RexxMast aktiv sind !!!
*/

Options RESULTS

Address FLM TAKEWORD /*Übersetzung in Variable RESULT*/

If Symbol('RESULT')='LIT' Then Exit /*Ist RESULT definiert ?*/

a=Insert('"',"Address EDWARD 'insertchars "RESULT"'",28)
a=Insert('"',a,29+Length(RESULT))

Interpret a /*Zeichenkette a als Befehl ausführen*/