/* Dieser Script schickt ein Wort an FLM,
   worauf FLM das FLM-ARexx-Fenster öffnet */

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

Options RESULTS /*Damit auch eine Rückgabe erfolgen kann*/

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


RESULT='go'
/*Hier wird das Wort go in die Variable RESULT geschrieben. Diese Zeile
  müssen Sie ändern, damit z.B. das Wort unter dem Cursor an FLM geschickt
  werden kann. Wenn z.B. der ARexx-Befehl Ihres Text-Programmes "GetWord"
  heißt, so müßte hier "Address <adr> GetWord" stehen. Für <adr> müssen Sie
  die ARexx-Adresse Ihres Programmes schreiben, welche sich in Ihren
  Programm-Dokumentationen befindet.
  Es ist normalerweise auch möglich 'Address' + 'Port-Adresse des
  Programmes' wegzulassen. Dann müßten Sie z.B. nur "GetWort" schreiben.
*/

Address FLM LOOKWORD RESULT /* Schickt Wort, welches in Variable RESULT steht an FLM*/