rem
rem
rem	mariaBasic 3.0.0.3
rem	3-e-2-c permutations
rem	
rem	written by Dzinleski Jasenko
rem	August 2010
rem



vari1%=0
vari2%=0

vart0$=''
vart1$=''
vart2$=''
vart3$=''

varA$=''
varB$=''
varC$=''

vars0$='ABC'

while (vari1%<3)

	vart1$=mid$(vars0$,1,1)
	vart2$=mid$(vars0$,2,1)
	vart3$=mid$(vars0$,3,1)

	vart0$=vart1$+vart2$+vart3$
	rem print vart0$;
	if (vari1%=0) then
		varA$=varA$+vart0$
	end if 
	if (vari1%=1) then
		varB$=varB$+vart0$
	end if 
	if (vari1%=2) then
		varC$=varC$+vart0$
	end if 


	vart0$=vart3$+vart1$+vart2$
	rem print vart0$;
	if (vari1%=0) then
		varA$=varA$+vart0$
	end if 
	if (vari1%=1) then
		varB$=varB$+vart0$
	end if 
	if (vari1%=2) then
		varC$=varC$+vart0$
	end if 


	vart0$=vart2$+vart3$+vart1$
	rem print vart0$
	if (vari1%=0) then
		varA$=varA$+vart0$
	end if 
	if (vari1%=1) then
		varB$=varB$+vart0$
	end if 
	if (vari1%=2) then
		varC$=varC$+vart0$
	end if 

	vars0$=vart0$
	vari1%=vari1%+1

wend

rem print varA$
rem print varB$
rem print varC$

for vari1%=1 to 8
	for vari2%=1 to 8

		vart1$=mid$(varA$,vari1%,2)
		vart2$=mid$(varA$,vari2%,2)

		print vart1$,vart2$;

		vari2%=vari2%+1
	next vari2%
	vari1%=vari1%+1
next vari1%

print ' '
print ' '

for vari1%=1 to 8
	for vari2%=1 to 8

		vart1$=mid$(varB$,vari1%,2)
		vart2$=mid$(varB$,vari2%,2)

		print vart1$,vart2$;

		vari2%=vari2%+1
	next vari2%
	vari1%=vari1%+1
next vari1%

print ' '
print ' '

for vari1%=1 to 8
	for vari2%=1 to 8

		vart1$=mid$(varC$,vari1%,2)
		vart2$=mid$(varC$,vari2%,2)

		print vart1$,vart2$;

		vari2%=vari2%+1
	next vari2%
	vari1%=vari1%+1
next vari1%

print ' '
print ' '

end