;Ask a string and reserve memory for a string. Add another string to the string.
;Print the new string

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

	#define	LF,10

		variables

		CPTR	_letter			;address of letter
		array	char,string,40
		array	char,letter,40

	main()

	int	size
	{

		pointer	_letter,=&,letter

		print	<"give a string">
		func	size,=,getchar(),_letter		;don't give more than 39 characters
			if	size,!=,0,1		;don't if zero
			{
		
					print	_letter
					func	_letter,=,strchr,_letter,'e'	;search e from a string
					if	_letter,!=,0,3
						{
						print	<"",LF>
						print	<"find",LF>	
						print	_letter
						}		
						else	3
						{
						print	<"not find",LF>
						}
						ifend	3

			}
			ifend	1
	}
	
	end