/* Script, welcher Wort von GoldEd an FLM schickt

   Um diesen Script automatisch aus GoldEd aufzurufen, befolgen Sie nun
   folgendes:

   1.Starten Sie GoldEd und Starten im Menü "Konfig" "Tastatur...".
   2.Im folgenden Fenster selektieren Sie "Aufnahme" und drücken
   anschließend eine Tastenkombination, unter der Sie später FLM aufrufen
   wollen. Z.B. Ctrl+F10.
   3.Im folgenden Fenster selektieren Sie "neu".
   4.Rechts müssen Sie nun ARexx auswählen und anschließend das Icon rechts
   neben "neu". Im folgenden Filerequester wählen Sie diese Datei
   ("golded_look.rexx") aus.
   5.Nun drücken Sie "Ok" und "sichern".

   Probieren Sie nun gleich einmal aus, ob alles geklappt hat. Wenn ja, müßte
   sich nun z.B. über Ctrl+F10 das Fenster "FLM-ARexx-Wörterbuch" öffnen.

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

/* Hier bitte den Pfad und Programmnamen von FLM einstellen*/
initiation=run "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

LOCK CURRENT /*momentanes Fenster anfordern*/

QUERY WORD /*Wort unter Cursor in Variable RESULT*/

a=RESULT /* Inhalt von RESULT in a*/

UNLOCK /* Fenster wieder freigeben*/

Address FLM LOOKWORD a /*Inhalt von Variable a an FLM*/