/* Script um ein Wort von FinalCopy an FLM zu schicken

   Sie müssen jediglich diese Datei ins FinalCopy-Verzeichnis kopieren
   und diese dann in "AMacro_?" umbenennen.
   Für ? müssen Sie eine Zahl von 1 bis 10 einsetzen.

   Nun müßte FLM über die Funktionstaste (Nummer, die Sie anstelle von ?
   geschrieben haben) oder aus dem Menü "ARexx" aufrufbar sein.

   Ich habe hier die Anpassung an FinalCopy 1 beschrieben. Es ist möglich,
   daß es bei FinalCopy 2 etwas anders ist. Schauen Sie dazu einfach im
   FinalCopy-Handbuch nach.

-> 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

Extract /* schreibt markierten Bereich in Variable RESULT*/

Address FLM LOOKWORD RESULT /* schickt Inhalt von RESULT an FLM*/