;examples of string.i

	
		include	"baselibs.i"
		include	"baselibs1.i"
		include	"string.i"

		#define	MOUNT,80
		#define	LF,10
		
		variables
		array	char,astring1,MOUNT
		
	main()

	int	lenght
	int	result
	array	char,astring2,MOUNT
	CPTR	_astring1
	CPTR	_astring2
	
	{
		pointer	_astring1,=&,astring1
		print	<"give a string to compare abcd",LF>			;ask lettes

		func	lenght,=,gets,astring1	;get lettes to a sortlist
		print	<"compare to ABCD",LF>			;ask for searching
	
	

		print	<"compare two strings lowercase and uppercase are the same",LF>
		func	result,=,strcmpa,astring1,"ABCD"

		if	result,==,0,1	;if not find zero
		{
		printf	<"they are the equal %x ",LF>,result
		}
		else	1
		{
		printf	<"they are not the equal %x ",LF>,result

		}
		ifend	1


		print	<"compare two strings lowercase and uppercase are not the same",LF>
		if	strcmp,astring1,"abcd",==,0,2
		{
		print	<"they are the equal",LF>
		}
		else 2
		{
		print	<"they are not the equal",LF>
		}
		ifend	2
	
		
			;copy one string to anorher string
		strcpy	astring2,astring1
		print	astring1
		print	<"",LF>
		strlwr	astring2
		print	astring2
		print	<"",LF>
	}

		end