Data(3,^^oGRASS,^^oDIRT.....->POINTERS
"1234556789ABCDEFGHIJKLMNOPQRSTUVWXYZ->CHARS
For(A,1,26+10
	Data(1,0,0->TEMP
	*{CHARS+A+1}->*{TEMP}
	If inString(Str8,TEMP
		det(57,{{POINTERS+A*3}},X,G
	End
End