;sort  numbers to order
;sort random numbers
	
		include	"baselibs.i"
		include	"baselibs1.i"


		#define	MOUNT,20
		#define	LF,10		


		variables

		array	int,sortlist,MOUNT

		

	main()

	int	number,result,count
	int	count1,count2
	int	temp1,temp2
	int	flag
	int	limit
		{

		
		print	<"",LF>
		
		calc	count,=,0		
		while	count,«,MOUNT,1		
			{
		
				func	result,=,Random,100
				arrayset	sortlist,count,=,result
				calc	count,++
			}	1

		calc	flag,=,1
		calc	limit,=,MOUNT
		while	flag,==,1,2
			{
			calc	flag,=,0
			calc	count1,=,0
			calc	count2,=,1
				while	count2,!=,limit,21
				{
					arrayset	temp1,=,sortlist,count1
					arrayset	temp2,=,sortlist,count2
					if	temp1,»,temp2,22
						{
							calc	flag,=,1
							arrayset	sortlist,count1,=,temp2
							arrayset	sortlist,count2,=,temp1
						}	
						ifend	22	
					calc	count1,++
					calc	count2,++

				}	21
			calc	limit,--
			}	2
		calc	count,=,0
		while	count,!=,MOUNT,3
			{
			arrayset	number,=,sortlist,count
			printf	<"count %ld rand = %ld ">,count,number
			calc	count,++
			}	3

		}

		end