rem 
rem 	mariaBasic 3.0.0.3
rem	number array like counter
rem	
rem 	written by Dzinleski Jasenko
rem 	August 2019
rem 


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

varA1$='0000000000'
varA2$='0000000000'
varA3$='0000000000'
varA4$='0000000000'
varA5$='0000000000'
varA6$='0000000000'

varC1$='abcdefghijklmnopqrstuvwxyz'

vars1$=''
vars2$='microformatsarticlediscussionpersonaltool'

vars4$=''
vars3$=''
vars5$=''
vars6$=''
vars7$=''
vars8$=''
vars9$=''
vars11$=''
vars12$=''

varA1$=varA1$+varA2$+varA3$+varA4$+varA5$+varA6$

vari1%=len$(vars2$)
vari4%=len$(varC1$)

for vari2%=1 to vari1%
	vars3$=mid$(vars2$,vari2%,1)

	for vari3%=1 to vari4%
		vars4$=mid$(varC1$,vari3%,1)

		if (vars4$=vars3$) then

			rem print 'pos ',vari3%
			vari3%=-1+2*vari3%
			vars6$=mid$(varA1$,vari3%,2)
			vari6%=val$(vars6$)
			vari6%=vari6%+1
			vars6$=format$(vari6%,'00')
			vari3%=-1+vari3%
			vars7$=mid$(varA1$,1,vari3%)
			vari3%=3+vari3%
			vari7%=2*30-vari3%
			vars8$=mid$(varA1$,vari3%,vari7%)
			varA1$=vars7$+vars6$+vars8$
			rem print varA1$

			vari3%=vari4%+0
		end if

	next vari3%
next vari2%

vars7$='00'
vari1%=2*vari1%

for vari2%=1 to vari1%

	vars6$=mid$(varA1$,vari2%,2)
	if (vars6$<>vars7$) then

		vari3%=vari2%+1
		vari3%=vari3%/2
		vars8$=mid$(varC1$,vari3%,1)
		print vars8$,' ';
		print vars6$

	end if

	vari2%=vari2%+1
next vari2%

end