/* Skrypt ARexx'a dla programu Pisarz 3.0
** Uûycie komendy Search [tekst]
** Polecenie to pozwala znaleúê podane sîowo w tekôcie
** Gdy wszystko ok wtedy rc=0, gdy brak wyrazu to rc=1
*/

/* address	'rexx_pisarz' */

Options results

CR= '0A'X		/* znacznik koïca linii */
Wyraz = 'Hello'		/* jaki wyraz szukamy */


	JumpTo	0	/* na poczâtek dokumentu */
	Text	'Linia z Hello!'CR'Linia z psem'CR'Linia z kotem'CR
	Text	'Hello!'CR'Psem'CR'Kotem'CR''CR''CR
	JumpTo	0
	GetPos
  do while (LT_Line<6)
	Wait	50	/* zaczekaj sekundë */
	Search Wyraz
	src=rc
	GetPos		/* odczytaj pozycjë kursora */

    if LT_Line<6 then
	do
	if src=0 then
		do
			JumpTo 7
			Text 'Wyraz 'Wyraz' znaleziono:'CR
			Text '  Linia :'LT_Line''CR
			Text '  Znak  :'LT_Char''CR''CR
			JumpTo LT_Line LT_Char
		end
		else
		do
			JumpTo 7
			Text 'Wyraz 'Wyraz' nie zostaî znaleziony'CR
			JumpTo 0
			Exit
		end
    end
  end
JumpTo 0
Exit