;sort  letters to order

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

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

	int	lenght
	array	char,find,MOUNT
	CPTR	_charlist
		{
		pointer	_charlist,=&,charlist
		print	<"give a string",LF>			;ask lettes
		func	lenght,=,gets,charlist	;get lettes to a sortlist
		print	<"find a string",LF>			;ask for searching
		gets	find

		func	_charlist,=,strstr,charlist,find

		if	_charlist,!=,0,1	;if not find zero
		{
		print	<"find a string",LF>
		print	_charlist		;print sortlist
		}
		else	1
		{
		print	<"no find a string",LF>
		}
		ifend	1
		}

		end