;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
	#define	OLD_MODE,1005
	main()


	int	size
	CPTR	_string
	CPTR	_letter
	CPTR	_memstring
	CPTR	conhandle
	array	char,string,40
	array	char,letter,40
	{
		func	conhandle,=,fopen,<"CON:0/0/640/100/CLI_WINDOW">,OLD_MODE
		if	conhandle,==,0,i1
			{
			print	<"no open cli_window">
			exit	0
			}
			ifend	i1
		calc	_stdout,=,conhandle	;output to the new window
		pointer	_string,=&,string	;address to pointer
		pointer	_letter,=&,letter

		print	<"give a string",LF>
		func	size,=,getchar(),_string		;don't give more than 39 characters
			if	size,!=,0,1		;don't if zero
			{
			print	<"give for searching",LF>
			gets	_letter
					print	<"for searching",LF>
					;search a string
					func	_letter,=,strstr,_string,_letter
					if	_letter,!=,0,3
						{	
						printf	<"find the string %s ">,_letter
						}	
						else	3
						{
						print	<"no find the string">
						}
						ifend	3	
				
			}	
			ifend	1
	getchar()	;wait for return
	fclose	conhandle
	}
	
	end