BEGIN
STRING(30) S,T
      S="JUST SOME TEXT"
      IF S->("JUST") THEN PRINTSTRING("TEST OK")
ENDOFPROGRAM