/*
   Script, welcher die automatische Übersetzungsmöglichkeit von
   FLM demonstriert.

   Dieser Script übersetzt 2 mal die nächsten zwei Zeichenfolgen, wobei davon
   ausgegangen wird, daß die erste Zeichenfolge 'deutsch' und die zweite
   Zeichenfolge 'englisch' ist.
*/

zeichenfolge1='Das ist ein großer Wörterbuch - Test ...'
zeichenfolge2='This is a large dictionary test ...'

options results
address FLM

do k=1 to 2 /* Pseudo-Endlosschleife */

setlanguage deutsch

do i=1 to words(zeichenfolge1) /* tue solange Wörter im String */
 wort = word(zeichenfolge1,i) /* 1., 2., 3. ... Wort */
 say "Suche" wort
 lookword wort
 found  /* gefunden ? */
 if result = 0 then
  do
    wordanz
    anz=RESULT
    say anz "Wörter wurden gefunden"
    do j=1 to anz
        takeword j /* Übersetzungen holen */
        say RESULT
    end
  end
 else
  do
    say "Wort steht nicht im Wörterbuch"
    takefound
    say "Nächtsähnlichstes Wort ist" RESULT
  end
  say
end

setlanguage englisch

do i=1 to words(zeichenfolge2) /* tue solange Wörter im String */
 wort = word(zeichenfolge2,i) /* 1., 2., 3. ... Wort */
 say "Suche" wort
 lookword wort
 found  /* gefunden ? */
 if result = 0 then
  do
    wordanz
    anz=RESULT
    say anz "Wörter wurden gefunden"
    do j=1 to anz
        takeword j /* Übersetzungen holen */
        say RESULT
    end
  end
 else
  do
    say "Wort steht nicht im Wörterbuch"
    takefound
    say "Nächtsähnlichstes Wort ist" RESULT
  end
  say
end

end

exit /* Script beenden*/