AutoHotkey Community

Gui, Add, Text, x6 y50 w70 h20 , Num of Words
Gui, Add, Edit, x86 y50 w40 h20 vNumberOfWords, Edit
Gui, Add, UpDown, Range1-30,30

Gui, Add, Button, x136 y40 w90 h30 gCreate, Create
Gui, Add, Button, x236 y40 w100 h30 gCheck, Check
Gui, Add, Button, x346 y40 w100 h30 gClear, Clear

Loop 9
{
  Count := A_Index
  Y_spot := 60 + 25 * (A_Index)
  Gui, Add, Text, x6 y%Y_Spot% w30 h30 vWord%Count%,
  Gui, Add, CheckBox, x46 y%Y_Spot% w70 h30 vCheckBox%Count%, Legal
  ;Gui, Add, CheckBox, x100 y%Y_Spot% w70 h30 vCBox%Count%,
 
  Gui, Add, Text, x136 y%Y_Spot% w30 h30 vWord1%Count%,
  Gui, Add, CheckBox, x176 y%Y_Spot% w70 h30 vCheckBox1%Count%, Legal
  ;Gui, Add, CheckBox, x220 y%Y_Spot% w70 h30 vCBox1%Count%,
 
  Gui, Add, Text, x266 y%Y_Spot% w30 h30 vWord2%Count%,
  Gui, Add, CheckBox, x306 y%Y_Spot% w70 h30 vCheckBox2%Count%, Legal
  ;Gui, Add, CheckBox, x350 y%Y_Spot% w70 h30 vCBox2%Count%,
 
}
  Y_spot := 60 + 250
  Gui, Add, Text, x6 y%Y_Spot% w30 h30 vWord10,
  Gui, Add, CheckBox, x46 y%Y_Spot% w70 h30 vCheckBox10, Legal
  ;Gui, Add, CheckBox, x76 y%Y_Spot% w70 h30 vCBox10,

  Gui, Add, Text, x136 y%Y_Spot% w30 h30 vWord20,
  Gui, Add, CheckBox, x176 y%Y_Spot% w70 h30 vCheckBox20, Legal
  ;Gui, Add, CheckBox, x206 y%Y_Spot% w70 h30 vCBox20,

  Gui, Add, Text, x266 y%Y_Spot% w30 h30 vWord30,
  Gui, Add, CheckBox, x306 y%Y_Spot% w70 h30 vCheckBox30, Legal
  ;Gui, Add, CheckBox, x336 y%Y_Spot% w70 h30 vCBox30,

; Generated using SmartGUI Creator 4.0
Gui, Show, x131 y91 h377 w477, Scrabble Word Tester
Return

GuiClose:
ExitApp

Clear:
{
  loop, 30
  {
    WList%A_Index% := ""
    GuiControl,, Word%A_Index%,
    GuiControl,, CheckBox%A_Index%, 0
  }
 
}
return

Create:
{ 
  Gui, Submit
  loop, 30
  {
    WList%A_Index% := ""
  }
  WList := CreateList(NumberOfWords)
  StringSplit, WList, WList,;
  loop, 30
  {
    if (%A_Index% > %WList0%) {
      Word := ""
    } else {
      Word := WList%A_Index%
    }
    GuiControl,, Word%A_Index%, %Word%
    GuiControl,, CheckBox%A_Index%, 0
  }
  Gui, Show
}
return

Check:
{
  Gui, Submit
  Correct := 0
  Wrong := 0
  loop, 30
  {
    if (CheckList(WList%A_Index%)) {
      if (CheckBox%A_Index% = 1) {
        Correct += 1
      } else {
        Wrong += 1
      }
      GuiControl,, CheckBox%A_Index%, 1
    } else {
      if (CheckBox%A_Index% = 1) {
        Wrong += 1
      } else {
        Correct += 1
      }
      GuiControl,, CheckBox%A_Index%, 0
    }
  }
  Gui, Show
  MsgBox You got %Correct% correct and %Wrong% wrong.
}
return

CreateList(NumberOfEntries)
{
  Loop, %NumberOfEntries%
  {
    Random, Choice, 1, 12
    if (Choice < 3) {
      WordList := WordList . Random2Letter() . ";"
    } else if (Choice < 4) {
      WordList := WordList . RandomLegal3Letter() . ";"
    } else if (Choice < 7) {
      WordList := WordList . Random3Letter() . ";"
    } else if (Choice < 10) {
      WordList := WordList . RandomLegal2Letter() . ";"
    } else if (Choice < 12) {
      WordList := WordList . RandomLegal2Letter() . RandomLetter() . ";"
    } else {
      WordList := WordList . RandomLetter() . RandomLegal2Letter() . ";"
    }
     
  }
  StringTrimRight, WordList, WordList, 1
  return %WordList%
}

Random2Letter()
{
  return RandomLetter() . RandomLetter()
}

Random3Letter()
{
  return RandomLetter() . RandomLetter() . RandomLetter()
}

RandomLetter()
{
  Letters := "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  Random, LetterIndex, 1, 26
  return SubStr(Letters, LetterIndex, 1)
}

RandomLegal2Letter()
{
  Acceptable := "AA;AB;AD;AE;AG;AH;AI;AL;AM;AN;AR;AS;AT;AW;AX;AY;BA;BE;BI;BO;
BY;DE;DO;ED;EF;EH;EL;EM;EN;ER;ES;ET;EX;FA;FE;GO;HA;HE;HI;HM;HO;
ID;IF;IN;IS;IT;JO;KA;KI;LA;LI;LO;MA;ME;MI;MM;MO;MU;MY;NA;NE;NO;
NU;OD;OE;OF;OH;OI;OM;ON;OP;OR;OS;OW;OX;OY;PA;PE;PI;QI;RE;SH;
SI;SO;TA;TI;TO;UH;UM;UN;UP;US;UT;WE;WO;XI;XU;YA;YE;YO;ZA"
  StringSplit, List, Acceptable,;
  Random, Picked, 1, %List0%
  return List%Picked%
}

RandomLegal3Letter()
{
  Acceptable := "AAH;AAL;AAS;ABA;ABO;ABS;ABY;ACE;ACT;ADD;ADO;ADS;ADZ;AFF;
AFT;AGA;AGE;AGO;AGS;AHA;AHI;AHS;AID;AIL;AIM;AIN;AIR;AIS;AIT;
ALA;ALB;ALE;ALL;ALP;ALS;ALT;AMA;AMI;AMP;AMU;ANA;AND;ANE;ANI;
ANT;ANY;APE;APO;APP;APT;ARB;ARC;ARE;ARF;ARK;ARM;ARS;ART;
ASH;ASK;ASP;ASS;ATE;ATT;AUK;AVA;AVE;AVO;AWA;AWE;AWL;AWN;
AXE;"
  Acceptable := Acceptable . "AYE;AYS;AZO;BAA;BAD;BAG;BAH;BAL;BAM;BAN;BAP;BAR;BAS;BAT;
BAY;BED;BEE;BEG;BEL;BEN;BES;BET;BEY;BIB;BID;BIG;BIN;BIO;BIS;
BIT;BIZ;BOA;BOB;BOD;BOG;BOO;BOP;BOS;BOT;BOW;BOX;BOY;BRA;
BRO;BRR;BUB;BUD;BUG;BUM;BUN;BUR;BUS;BUT;BUY;BYE;BYS;CAB;
CAD;CAM;CAN;CAP;CAR;CAT;CAW;CAY;CEE;CEL;CEP;CHI;CIG;CIS;
COB;COD;"
  Acceptable := Acceptable . "COG;COL;CON;COO;COP;COR;COS;COT;COW;COX;COY;COZ;CRU;
CRY;CUB;CUD;CUE;CUM;CUP;CUR;CUT;CWM;DAB;DAD;DAG;DAH;
DAK;DAL;DAM;DAN;DAP;DAW;DAY;DEB;DEE;DEF;DEL;DEN;DEV;DEW;
DEX;DEY;DIB;DID;DIE;DIF;DIG;DIM;DIN;DIP;DIS;DIT;DOC;DOE;DOG;
DOL;DOM;DON;DOR;DOS;DOT;DOW;DRY;;DUB;DUD;DUE;DUG;DUH;
DUI;DUN;DUO;DUP;DYE;EAR;EAT;EAU;EBB;ECU;EDH;EDS;EEK;EEL;EFF;
EFS;EFT;EGG;EGO;EKE;ELD;ELF;ELK;ELL;ELM;ELS;EME;EMS;EMU;END;
ENG;ENS;EON;ERA;ERE;ERG;ERN;ERR;ERS;;ESS;ETA;ETH;EVE;EWE;EYE;
FAB;FAD;FAG;FAN;FAR;FAS;FAT;FAX;FAY;FED;FEE;FEH;FEM;FEN;FER;FES;
FET;FEU;FEW;FEY;FEZ;FIB;FID;FIE;FIG;FIL;FIN;FIR;FIT;FIX;FIZ;FLU;FLY;
FOB;FOE;FOG;FOH;FON;FOP;FOR;FOU;FOX;FOY;FRO;FRY;FUB;FUD;FUG;
FUN;FUR;GAB;GAD;GAE;GAG;GAL;GAM;GAN;GAP;GAR;GAS;GAT;GAY;
GED;GEE;GEL;GEM;GEN;GET;GEY;GHI;GIB;GID;GIE;GIG;GIN;GIP;GIT;
GNU;GOA;GOB;GOD;GOO;GOR;GOS;GOT;GOX;GOY;GUL;GUM;GUN;GUT;
GUV;GUY;GYM;GYP;HAD;HAE;HAG;HAH;HAJ;HAM;HAO;HAP;HAS;HAT;
HAW;HAY;HEH;HEM;HEN;HEP;HER;HES;HET;HEW;HEX;HEY;HIC;HID;HIE;
HIM;HIN;HIP;HIS;HIT;HMM;HOB;HOD;HOE;HOG;HON;HOP;HOT;HOW;
HOY;HUB;HUE;HUG;HUH;HUM;HUN;HUP;HUT;HYP;ICE;ICH;ICK;ICY;IDS;
IFF;IFS;IGG;ILK;ILL;IMP;INK;INN;INS;ION;IRE;IRK;ISM;ITS;IVY;JAB;
JAG;JAM;JAR;JAW;JAY;JEE;JET;JEU;JEW;JIB;JIG;JIN;JOB;JOE;JOG;JOT;
JOW;JOY;JUG;JUN;JUS;JUT;KAB;KAE;KAF;KAS;KAT;KAY;KEA;KEF;KEG;
KEN;KEP;KEX;KEY;KHI;KID;KIF;KIN;KIP;KIR;KIS4;KIT;KOA;KOB;KOI;
KOP;KOR;KOS;KUE;KYE;LAB;LAC;LAD;LAG;LAM;LAP;LAR;LAS;LAT;LAV;
LAW;LAX;LAY;LEA;LED;LEE;LEG;LEI;LEK;LET;LEU;LEV;LEX;LEY;LEZ;LIB;
LID;LIE;LIN;LIP;LIS;LIT;LOB;LOG;LOO;LOP;LOT;LOW;LOX;LUG;LUM;LUV;LUX;LYE;MAC;MAD;MAE;MAG;MAN;MAP;MAR;MAS;MAT;MAW;MAX;MAY;
MED;MEG;MEL;MEM;MEN;MET;MEW;MHO;MIB;MIC;MID;MIG;MIL;MIM;MIR;
MIS;MIX;MOA;MOB;MOC;MOD;MOG;MOL;MOM;MON;MOO;MOP;MOR;MOS;
MOT;MOW;MUD;MUG;MUM;MUN;MUS;MUT;MYC;NAB;NAE;NAG;NAH;NAM;
NAN;NAP;NAW;NAY;NEB;NEE;NEG;NET;NEW;NIB;NIL;NIM;NIP;NIT;NIX;
NOB;NOD;NOG;NOH;NOM;NOO;NOR;NOS;NOT;NOW;NTH;NUB;NUN;NUS;
NUT;OAF;OAK;OAR;OAT;OBA;OBE;OBI;OCA;ODA;ODD;ODE;ODS;OES;
OFF;OFT;OHM;OHO;OHS;OIL;OKA;OKE;OLD;OLE;OMS;ONE;ONO;ONS;
OOH;OOT;OPE;OPS;OPT;ORA;ORB;ORC;ORE;ORS;ORT;OSE;OUD;OUR;
OUT;OVA;OWE;OWL;OWN;OXO;OXY;PAC;PAD;PAH;PAL;PAM;PAN;PAP;
PAR;PAS;PAT;PAW;PAX;PAY;PEA;PEC;PED;PEE;PEG;PEH;PEN;PEP;PER;
PES;PET;PEW;PHI;PHT;PIA;PIC;PIE;PIG;PIN;PIP;PIS;PIT;PIU;PIX;PLY;
POD;POH;POI;POL;POM;POP;POT;POW;POX;PRO;PRY;PSI;PST;PUB;PUD;
PUG;PUL;PUN;PUP;PUR;PUS;PUT;PYA;PYE;PYX;QAT;QIS;QUA;RAD;RAG;
RAH;RAI;RAJ;RAM;RAN;RAP;RAS;RAT;RAW;RAX;RAY;REB;REC;RED;REE;
REF;REG;REI;REM;REP;RES;RET;REV;REX;RHO;RIA;RIB;RID;RIF;RIG;
RIM;RIN;RIP;ROB;ROC;ROD;ROE;ROM;ROT;ROW;RUB;RUE;RUG;RUM;
RUN;RUT;RYA;RYE;SAB;SAC;SAD;SAE;SAG;SAL;SAP;SAT;SAU;SAW;
SAX;SAY;SEA;SEC;SEE;SEG;SEI;SEL;SEN;SER;SET;SEW;SEX;SHA;SHE;
SHH;SHY;SIB;SIC;SIM;SIN;SIP;SIR;SIS;SIT;SIX;SKA;SKI;SKY;SLY;
SOB;SOD;SOL;SOM;SON;SOP;SOS;SOT;SOU;SOW;SOX;SOY;SPA;SPY;
SRI;STY;SUB;SUE;SUK;SUM;SUN;SUP;SUQ;SYN;TAB;TAD;TAE;TAG;TAJ;
TAM;TAN;TAO;TAP;TAR;TAS;TAT;TAU;TAV;TAW;TAX;TEA;TED;TEE;TEG;
TEL;TEN;TET;TEW;THE;THO;THY;TIC;TIE;TIL;TIN;TIP;TIS;TIT;TOD;TOE;
TOG;TOM;TON;TOO;TOP;TOR;TOT;TOW;TOY;TRY;TSK;TUB;TUG;TUI;TUN;
TUP;TUT;TUX;TWA;TWO;TYE;UDO;UGH;UKE;ULU;UMM;UMP;UNS;UPO;UPS;
URB;URD;URN;URP;USE;UTA;UTE;UTS;VAC;VAN;VAR;VAS;VAT;VAU;VAV;
VAW;VEE;VEG;VET;VEX;VIA;VID;VIE;VIG;VIM;VIS;VOE;VOW;VOX;VUG;
VUM;WAB;WAD;WAE;WAG;WAN;WAP;WAR;WAS;WAT;WAW;WAX;WAY;
WEB;WED;WEE;WEN;WET;WHA;WHO;WHY;WIG;WIN;WIS;WIT;WIZ;WOE;
WOG;WOK;WON;WOO;WOP;WOS;WOT;WOW;WRY;WUD;WYE;WYN;XIS;
YAG;YAH;YAK;YAM;YAP;YAR;YAW;YAY;YEA;YEH;YEN;YEP;YES;YET;YEW;
YID;YIN;YIP;YOB;YOD;YOK;YOM;YON;YOU;YOW;YUK;YUM;YUP;ZAG;ZAP;
ZAS;ZAX;ZED;ZEE;ZEK;ZEP;ZIG;ZIN;ZIP;ZIT;ZOA;ZOO;ZUZ;ZZZ"
 
  StringSplit, List, Acceptable,;
  Random, Picked, 1, %List0%
  return List%Picked%
}


CheckList(Trial)
{
  Acceptable := "AA;AB;AD;AE;AG;AH;AI;AL;AM;AN;AR;AS;AT;AW;AX;AY;BA;BE;BI;BO;
BY;DE;DO;ED;EF;EH;EL;EM;EN;ER;ES;ET;EX;FA;FE;GO;HA;HE;HI;HM;HO;
ID;IF;IN;IS;IT;JO;KA;KI;LA;LI;LO;MA;ME;MI;MM;MO;MU;MY;NA;NE;NO;
NU;OD;OE;OF;OH;OI;OM;ON;OP;OR;OS;OW;OX;OY;PA;PE;PI;QI;RE;SH;
SI;SO;TA;TI;TO;UH;UM;UN;UP;US;UT;WE;WO;XI;XU;YA;YE;YO;ZA"
  Acceptable := Acceptable . "AAH;AAL;AAS;ABA;ABO;ABS;ABY;ACE;ACT;ADD;ADO;ADS;ADZ;AFF;
AFT;AGA;AGE;AGO;AGS;AHA;AHI;AHS;AID;AIL;AIM;AIN;AIR;AIS;AIT;
ALA;ALB;ALE;ALL;ALP;ALS;ALT;AMA;AMI;AMP;AMU;ANA;AND;ANE;ANI;
ANT;ANY;APE;APO;APP;APT;ARB;ARC;ARE;ARF;ARK;ARM;ARS;ART;ASH;
ASK;ASP;ASS;ATE;ATT;AUK;AVA;AVE;AVO;AWA;AWE;AWL;AWN;AXE;"
  Acceptable := Acceptable . "AYE;AYS;AZO;BAA;BAD;BAG;BAH;BAL;BAM;BAN;BAP;BAR;BAS;BAT;
BAY;BED;BEE;BEG;BEL;BEN;BES;BET;BEY;BIB;BID;BIG;BIN;BIO;BIS;
BIT;BIZ;BOA;BOB;BOD;BOG;BOO;BOP;BOS;BOT;BOW;BOX;BOY;BRA;
BRO;BRR;BUB;BUD;BUG;BUM;BUN;BUR;BUS;BUT;BUY;BYE;BYS;CAB;
CAD;CAM;CAN;CAP;CAR;CAT;CAW;CAY;CEE;CEL;CEP;CHI;CIG;CIS;
COB;COD;"
  Acceptable := Acceptable . "COG;COL;CON;COO;COP;COR;COS;COT;COW;COX;COY;COZ;CRU;
CRY;CUB;CUD;CUE;CUM;CUP;CUR;CUT;CWM;DAB;DAD;DAG;DAH;DAK;
DAL;DAM;DAN;DAP;DAW;DAY;DEB;DEE;DEF;DEL;DEN;DEV;DEW;DEX;
DEY;DIB;DID;DIE;DIF;DIG;DIM;DIN;DIP;DIS;DIT;DOC;DOE;DOG;DOL;
DOM;DON;DOR;DOS;DOT;DOW;DRY;;DUB;DUD;DUE;DUG;DUH;DUI;
DUN;DUO;DUP;DYE;EAR;EAT;EAU;EBB;ECU;EDH;EDS;EEK;EEL;EFF;EFS;
EFT;EGG;EGO;EKE;ELD;ELF;ELK;ELL;ELM;ELS;EME;EMS;EMU;END;ENG;
ENS;EON;ERA;ERE;ERG;ERN;ERR;ERS;;ESS;ETA;ETH;EVE;EWE;EYE;FAB;
FAD;FAG;FAN;FAR;FAS;FAT;FAX;FAY;FED;FEE;FEH;FEM;FEN;FER;FES;FET;
FEU;FEW;FEY;FEZ;FIB;FID;FIE;FIG;FIL;FIN;FIR;FIT;FIX;FIZ;FLU;FLY;FOB;
FOE;FOG;FOH;FON;FOP;FOR;FOU;FOX;FOY;FRO;FRY;FUB;FUD;FUG;FUN;
FUR;GAB;GAD;GAE;GAG;GAL;GAM;GAN;GAP;GAR;GAS;GAT;GAY;GED;
GEE;GEL;GEM;GEN;GET;GEY;GHI;GIB;GID;GIE;GIG;GIN;GIP;GIT;GNU;
GOA;GOB;GOD;GOO;GOR;GOS;GOT;GOX;GOY;GUL;GUM;GUN;GUT;GUV;
GUY;GYM;GYP;HAD;HAE;HAG;HAH;HAJ;HAM;HAO;HAP;HAS;HAT;HAW;
HAY;HEH;HEM;HEN;HEP;HER;HES;HET;HEW;HEX;HEY;HIC;HID;HIE;HIM;
HIN;HIP;HIS;HIT;HMM;HOB;HOD;HOE;HOG;HON;HOP;HOT;HOW;HOY;HUB;
HUE;HUG;HUH;HUM;HUN;HUP;HUT;HYP;ICE;ICH;ICK;ICY;IDS;IFF;IFS;
IGG;ILK;ILL;IMP;INK;INN;INS;ION;IRE;IRK;ISM;ITS;IVY;JAB;JAG;JAM;JAR;
JAW;JAY;JEE;JET;JEU;JEW;JIB;JIG;JIN;JOB;JOE;JOG;JOT;JOW;JOY;JUG;
JUN;JUS;JUT;KAB;KAE;KAF;KAS;KAT;KAY;KEA;KEF;KEG;KEN;KEP;KEX;
KEY;KHI;KID;KIF;KIN;KIP;KIR;KIS4;KIT;KOA;KOB;KOI;KOP;KOR;KOS;
KUE;KYE;LAB;LAC;LAD;LAG;LAM;LAP;LAR;LAS;LAT;LAV;LAW;LAX;LAY;
LEA;LED;LEE;LEG;LEI;LEK;LET;LEU;LEV;LEX;LEY;LEZ;LIB;LID;LIE;LIN;LIP;
LIS;LIT;LOB;LOG;LOO;LOP;LOT;LOW;LOX;LUG;LUM;LUV;LUX;LYE;MAC;
MAD;MAE;MAG;MAN;MAP;MAR;MAS;MAT;MAW;MAX;MAYng;MED;MEG;MEL;
MEM;MEN;MET;MEW;MHO;MIB;MIC;MID;MIG;MIL;MIM;MIR;MIS;MIX;MOA;
MOB;MOC;MOD;MOG;MOL;MOM;MON;MOO;MOP;MOR;MOS;MOT;MOW;MUD;
MUG;MUM;MUN;MUS;MUT;MYC;NAB;NAE;NAG;NAH;NAM;NAN;NAP;NAW;
NAY;NEB;NEE;NEG;NET;NEW;NIB;NIL;NIM;NIP;NIT;NIX;NOB;NOD;NOG;
NOH;NOM;NOO;NOR;NOS;NOT;NOW;NTH;NUB;NUN;NUS;NUT;OAF;OAK;
OAR;OAT;OBA;OBE;OBI;OCA;ODA;ODD;ODE;ODS;OES;OFF;OFT;OHM;
OHO;OHS;OIL;OKA;OKE;OLD;OLE;OMS;ONE;ONO;ONS;OOH;OOT;OPE;
OPS;OPT;ORA;ORB;ORC;ORE;ORS;ORT;OSE;OUD;OUR;OUT;OVA;OWE;
OWL;OWN;OXO;OXY;PAC;PAD;PAH;PAL;PAM;PAN;PAP;PAR;PAS;PAT;PAW;
PAX;PAY;PEA;PEC;PED;PEE;PEG;PEH;PEN;PEP;PER;PES;PET;PEW;PHI;PHT;
PIA;PIC;PIE;PIG;PIN;PIP;PIS;PIT;PIU;PIX;PLY;POD;POH;POI;POL;POM;
POP;POT;POW;POX;PRO;PRY;PSI;PST;PUB;PUD;PUG;PUL;PUN;PUP;PUR;
PUS;PUT;PYA;PYE;PYX;QAT;QIS;QUA;RAD;RAG;RAH;RAI;RAJ;RAM;RAN;
RAP;RAS;RAT;RAW;RAX;RAY;REB;REC;RED;REE;REF;REG;REI;REM;REP;
RES;RET;REV;REX;RHO;RIA;RIB;RID;RIF;RIG;RIM;RIN;RIP;ROB;ROC;
ROD;ROE;ROM;ROT;ROW;RUB;RUE;RUG;RUM;RUN;RUT;RYA;RYE;SAB;
SAC;SAD;SAE;SAG;SAL;SAP;SAT;SAU;SAW;SAX;SAY;SEA;SEC;SEE;SEG;
SEI;SEL;SEN;SER;SET;SEW;SEX;SHA;SHE;SHH;SHY;SIB;SIC;SIM;SIN;
SIP;SIR;SIS;SIT;SIX;SKA;SKI;SKY;SLY;SOB;SOD;SOL;SOM;SON;SOP;
SOS;SOT;SOU;SOW;SOX;SOY;SPA;SPY;SRI;STY;SUB;SUE;SUK;SUM;SUN;
SUP;SUQ;SYN;TAB;TAD;TAE;TAG;TAJ;TAM;TAN;TAO;TAP;TAR;TAS;TAT;
TAU;TAV;TAW;TAX;TEA;TED;TEE;TEG;TEL;TEN;TET;TEW;THE;THO;THY;
TIC;TIE;TIL;TIN;TIP;TIS;TIT;TOD;TOE;TOG;TOM;TON;TOO;TOP;TOR;TOT;
TOW;TOY;TRY;TSK;TUB;TUG;TUI;TUN;TUP;TUT;TUX;TWA;TWO;TYE;UDO;
UGH;UKE;ULU;UMM;UMP;UNS;UPO;UPS;URB;URD;URN;URP;USE;UTA;UTE;
UTS;VAC;VAN;VAR;VAS;VAT;VAU;VAV;VAW;VEE;VEG;VET;VEX;VIA;VID;
VIE;VIG;VIM;VIS;VOE;VOW;VOX;VUG;VUM;WAB;WAD;WAE;WAG;WAN;
WAP;WAR;WAS;WAT;WAW;WAX;WAY;WEB;WED;WEE;WEN;WET;WHA;
WHO;WHY;WIG;WIN;WIS;WIT;WIZ;WOE;WOG;WOK;WON;WOO;WOP;
WOS;WOT;WOW;WRY;WUD;WYE;WYN;XIS;YAG;YAH;YAK;YAM;YAP;YAR;
YAW;YAY;YEA;YEH;YEN;YEP;YES;YET;YEW;YID;YIN;YIP;YOB;YOD;YOK;
YOM;YON;YOU;YOW;YUK;YUM;YUP;ZAG;ZAP;ZAS;ZAX;ZED;ZEE;ZEK;
ZEP;ZIG;ZIN;ZIP;ZIT;ZOA;ZOO;ZUZ;ZZZ"
  StringSplit, List, Acceptable,;
  counter := 1
  Loop %List0% {
    if (Trial = List%A_Index%) {
      return TRUE
    }
  }
  return FALSE
}