tsukanov-as

Var Map, Src, Pos, Len, Chr;
Var Scope;

Procedure Init()
	Var Abc, Num; Map = New Map; EOF = "";
	Abc = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ=+-*/<>%"+
	"абвгдеёжзийклмнопрстуфхцчшщъыьэюяАБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ";
	For Num = 1 To StrLen(Abc) Do Map[Mid(Abc, Num, 1)] = "Alpha" EndDo;
	For Num = 0 To 9 Do Map[String(Num)] = "Digit" EndDo;