;sort  numbers to order

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

		#define	MOUNT,20
		#define LF,10
		#define	OLD_MODE,1005

		variables
		array	int,sortlist,MOUNT

	main()
	
	int	number,laskuri,tulos
	int	count1,count2
	int	temp1,temp2
	int	flag
	int	limit
	CPTR	conhandle
		{

		func	conhandle,=,fopen,<"CON:0/100/640/100/**CLI_WINDOW**">,OLD_MODE
		if	conhandle,==,0,1
			{
			print	<"no open CON:">
			exit	0
			}
			ifend	1
		calc	_stdout,=,conhandle	;text to a new	window
		print	<" ",LF>
		
		calc	laskuri,=,0		;
		while	laskuri,«,MOUNT,1		;kunnes	laskuri on kymmenen
			{
		
				func	tulos,=,Random,100
				arrayset	sortlist,laskuri,=,tulos
				calc	laskuri,++
			}	1

		qsortl	sortlist,MOUNT

		calc	laskuri,=,0
		while	laskuri,!=,MOUNT,3
			{
			arrayset	number,=,sortlist,laskuri
			printf	<"%ld = %ld ">,laskuri,number
			calc	laskuri,++
			}	3
		getchar()	;wait for return press
		fclose	conhandle
		}

		end