/* NOTE DU TRADUCTEUR. J'ai laissé les menus de GoldED en anglais car je
   n'ai pas cet éditeur en français dans sa version commerciale.
  
   Script qui permet d'envoyer un mot de GoldEd à FLM.

   Pour appeller automatiquement ce script depuis GoldEd, suivre la
   procédure suivante:

   1. Lancer GoldEd et puis "Keyboard..." dans le menu "Config".
   2. Dans la fenêtre qui suit sélectionnez "Record" et appuyez ensuite
      sur une combinaison de touches par laquelle vous pourrez ensuite 
      appeler FLM. Ex. Ctrl+F10.
   3. Dans la fenêtre qui suit sélectionner "Add".
   4. A droite, il faut maintenant sélectionner ARexx et ensuite la cellule
      de droite près de "Add". Dans la requête de fichiers suivante,
      sélectionnez ce fichier ("golded_look.rexx").
   5. Maintenant cliquez sur "Ok" et "Save".

   Maintenant, testez juste une fois si tout a marché. Si tout est OK,
   maintenant, par exemple, vous devriez pouvoir ouvrir la fenêtre "ARexx
   Dictionnaire de FLM" par Ctrl+F10.

-> Attention: le programme RexxMast doit être actif!!!
*/

/* Ici indiquez, svp, le chemin de FLM et le nom du programme */
initiation=run "dh0:FLM/FLM"

Options RESULTS

IF ~show('P','FLM') THEN DO
 /* si FLM n'est pas en train de s'exécuter */
 ADDRESS COMMAND initiation
 ADDRESS COMMAND "SYS:RexxC/WaitForPort FLM"
END

LOCK CURRENT /* Verrouiller un court instant la fenêtre */

QUERY WORD /* Mot sous le curseur dans la variable RESULT */

a=RESULT /* Contenu de RESULT dans a */

UNLOCK /* Déverrouiller à nouveau la fenêtre */

Address FLM LOOKWORD a /* Contenu de la variable a à FLM */