//
proc main;
	option 18 (CINT)%1;	// 1
	text = 'abcdefg1234ABCDEFxxYYzZ‚ ‚˘%‚¤pQrabcABC';
	w = 123;
	print text w instr(text,w);
	w = 'yy';
	print instr(text,'yy','A');
	print inistr(text,'yy','A');
	print "text instr 'yy'";
	print instr(text,'%');
	print instr(text,'‚¤');
	print inrstr(text,'yy','A');
	print inirstr(text,'yy','A');
	print inrstr(text,10,'yy','A');
	print inirstr(text,10,'yy','A');
	print instr(text,10,10,'yy','A');
	print instr(text,5..10,'yy','A');

	return ERROR;
end proc;
