rem 
	rem 		mariaBasic 3.0.5.2
	rem		number array like counter
	rem	
	rem 		written by Dzinleski Jasenko
	rem 		November 2010
	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'

varT$='A'

varC1$='abcdefghijklmnopqrstuvwxyz'

vars1$=''
vars2$='microformatsarticlediscussionpersonaltool'

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

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

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

vars2$=vars2$+varT$
varC1$=varC1$+varT$

for vari2%=1 to vari1%

	vars3$=mid$(vars2$,vari2%,1)

	for vari3%=1 to vari4%

		vars4$=mid$(varC1$,vari3%,1)

		if (vars4$=vars3$) then

			vars7$=''
			vari5%=2*vari3%-1

			vars6$=mid$(varA1$,vari5%,2)
			vari6%=val$(vars6$)
			vari6%=vari6%+1
			vars6$=format$(vari6%,'00')

			vari5%=vari5%-1
			vars7$=mid$(varA1$,1,vari5%)
						
			vari7%=2*30-2*vari3%-1
			vari5%=vari5%+2
			vars8$=mid$(varA1$,vari5%,vari7%)
			
			varA1$=''	
			varA1$=varA1$+vars7$+vars6$+vars8$+varT$
			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)
		vari4%=len$(vars8$)

		if (vari4%>0) then
			print vars8$,'-';
			print vars6$,' ';
		end if

	end if

	vari2%=vari2%+1

next vari2%

print ' '

end