;save a string to a file

		include	"baselibs.i"
		include	"baselibs1.i"
		include	"offsets.i

	DATAAREA
	{
file		dc.b	"anna tiedosto",0
file1		dc.b	10,0
filename	dc.b	"ram:test.input",0
file2		dc.b	"talletettu tiedosto %s tiedoston pituus %ld",10,0
	}

		variables
		
		char	string,40
 		char	letter,40
		CPTR	>string			;address of string
		CPTR	>letter			;address of letter
		CPTR	>filename

	main()
	autovar
	int	size,error
	{
		pointer	>string,=&,string	;address to pointer
		pointer	>letter,=&,letter
		pointer	>filename,=&,filename

		print	file
		print	file1
		func	size,=,getchar(),>string		;don't give more than 39 characters
			if	size,!=,0,1		;don't if zero
			{
				func	error,=,savefile,>filename,>string,size	;if not success return zero
				if	error,!=,0,2
				{
					loadfile	>filename,>letter
				}	
				ifend	2
			}
			ifend	1
		print	>string
		print	file1
		printd	file2,>letter,size		

	}


	end