;sort  letters to order

	
		include	"baselibs.i"
		include	"baselibs1.i"
		include	"sort.i"

		#define	MOUNT,80
		
		DATAAREA
		{
file1		dc.b	"%ld = %ld	",0
file2		dc.b	10,0
file3		dc.b	"give a letters",0

		}

		variables
		array	char,sortlist,MOUNT

		

	main()
	autovar
	int	lenght

		print	file3			;ask lettes
		func	lenght,=,gets,sortlist	;get lettes to a sortlist

		qsortb	sortlist,lenght		;sort letters to an order

		print	sortlist		;print sortlist

		}

		end