/*
   ********************************
   *** FLM benchmark script  #1 ***
   ********************************
*/

initiation=run "/FLM"
konfig="FLM:Benchmark/standard_ram.config"

zeichenfolge1='Das ist der 1. FLM Geschwindigkeits Test.'
zeichenfolge2='This is the 1. FLM speed test.'

Options Results
IF ~show('P','FLM') THEN DO
    ADDRESS COMMAND initiation
    ADDRESS COMMAND "SYS:RexxC/WaitForPort FLM"
END

say "Testing benchmark script #1 !!!"

address FLM

LOAD konfig

VERSION

say RESULT

t1=Time(Seconds)

do m=1 to 3 /* für jeden Suchmodus */
 IF m=1 THEN SETMODE "=="
 IF m=2 THEN SETMODE "IN"
 IF m=3 THEN SETMODE "#?"

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

setlanguage deutsch

do i=1 to words(zeichenfolge1) /* tue solange Wörter im String */
 wort = word(zeichenfolge1,i) /* 1., 2., 3. ... Wort */
 lookword wort
 found  /* gefunden ? */
 if result = 0 then
  do
    wordanz
    anz=RESULT
    do j=1 to anz
        takeword j
    end
  end
 else
  do
    takefound
  end
end

setlanguage englisch

do i=1 to words(zeichenfolge2) /* do as long as there are words in string */
 wort = word(zeichenfolge2,i) /* 1., 2., 3. ... word */
 lookword wort
 found  /* Found ? */
 if result = 0 then
  do
    wordanz
    anz=RESULT
    do j=1 to anz
        takeword j
    end
  end
 else
  do
    takefound
  end
end

end
end

t2=Time(Seconds)

say t2-t1 "seconds were needed."

exit /* Script beenden*/