rem 
rem 	mariaBasic 3.0.0.3
rem 	simple text sort
rem 
rem 	written by Dzinleski Jasenko
rem 	August 2019
rem 


vari1%=0
vari2%=0
vari3%=0
vari4%=0
vari5%=0
vari6%=0
vari7%=0

varA$='abcdefghijklmnopqrstuvwxyz'

vart1$=''
vart2$=''
vart3$=''
vart4$=''
vart5$=''
vart6$=''

varinfn$='test.txt'
varoutfn$='num.txt'
varfb$=''

vars1$=''
vars2$=''
vars3$=''
vars4$=''

vari4%=len$(varA$)

rem text to number string

open varinfn$ for input as #1
open varoutfn$ for output as #2

input #1,varfb$
vari1%=len$(varfb$)

while (vari1%<>0)

	print varfb$

rem first input char

	vari2%=1+0
	vars1$=mid$(varfb$,vari2%,1)
	for vari3%=1 to vari4%
		vars3$=mid$(varA$,vari3%,1)

		if (vars1$=vars3$) then

			vari3%=vari3%*3*vari4%
			vars2$=format$(vari3%,'00000')
			vart1$=vart1$+vars2$

		end if

	next vari3%

rem second input char

	vari2%=vari2%+1
	vars1$=mid$(varfb$,vari2%,1)
	for vari3%=1 to vari4%
		vars3$=mid$(varA$,vari3%,1)

		if (vars1$=vars3$) then

			vari3%=vari3%*2*vari4%
			vars2$=format$(vari3%,'00000')
			vart1$=vart1$+vars2$

		end if

	next vari3%

rem third input char

	vari2%=vari2%+1
	vars1$=mid$(varfb$,vari2%,1)
	for vari3%=1 to vari4%
		vars3$=mid$(varA$,vari3%,1)

		if (vars1$=vars3$) then

			vari3%=vari3%*1*vari4%
			vars2$=format$(vari3%,'00000')
			vart1$=vart1$+vars2$

		end if

	next vari3%

	print #2,vart1$
	vart6$=vart6$+vart1$
	vart1$=''

	input #1,varfb$
	vari1%=len$(varfb$)

wend

close #1
close #2

rem print unsorted text to number array

vari3%=len$(vart6$)
vari1%=15+0
while (vari1%<vari3%)
	vari2%=vari1%-14
	vart1$=mid$(vart6$,vari2%,15)
	print vart1$
	vari1%=vari1%+15
wend

rem sorting number strings

vari3%=len$(vart6$)
vari1%=15+0
vari2%=15+0

while (vari1%<=vari3%)

	while (vari2%<=vari3%)

		vari4%=vari1%-14
		vart2$=mid$(vart6$,vari4%,15)
		vari4%=vari2%-14
		vart3$=mid$(vart6$,vari4%,15)

		rem print vart2$
		rem print vart3$

		if (vart2$<vart3$) then

			vari4%=vari1%-15
			vart4$=mid$(vart6$,1,vari4%)
			vari4%=vari4%+15+1
			vari5%=vari3%-vari4%+1
			vart5$=mid$(vart6$,vari4%,vari5%)

			vart6$=vart4$+vart3$+vart5$
			rem print '6 ',vart6$


			vari4%=vari2%-15
			vart4$=mid$(vart6$,1,vari4%)
			vari4%=vari4%+15+1
			vari5%=vari3%-vari4%+1
			vart5$=mid$(vart6$,vari4%,vari5%)

			vart6$=vart4$+vart2$+vart5$
			rem print '6 ',vart6$

		end if

		vari2%=vari2%+15
	wend
	vari2%=15+0

	vari1%=vari1%+15
wend

print ' '
print vart6$
print ' '

rem print sorted text to number array

vari3%=len$(vart6$)
vari1%=15+0
while (vari1%<vari3%)
	vari2%=vari1%-14
	vart1$=mid$(vart6$,vari2%,15)
	print vart1$
	vari1%=vari1%+15
wend


end