PROC ValidateWords( STRING words[])
INTEGER i, j, k
INTEGER valid = FALSE
STRING commands[] = {
"Add", "ALTer", "BAckup", "Bottom", "CAppend", "Change", "SCHANGE", "CInsert", "CLAst", "COMPress", "COpy",
"COUnt", "COVerlay", "CURsor", "DELete", "CDelete", "Down", "DUPlicate", "Xedit", "EXPand", "EXTract", "Find",
"NFind", "NFINDUp", "NFUp", "CFind", "FINdup", "FUp", "FOrward", "GET", "Help", "HEXType", "Input", "POWerinput",
"Join", "SPlit", "SPLTJOIN", "LOAD", "Locate", "CLocate", "LOWercase", "UPPercase", "LPrefix", "MACRO",
"MErge", "MODify", "MOve", "MSG", "Next", "Overlay", "PARSE", "PREServe", "PURge", "PUT", "PUTD", "Query", "QUIT",
"READ", "REcover", "REFRESH", "RENum", "REPeat", "Replace", "CReplace", "RESet", "RESTore", "RGTLEFT",
"RIght", "LEft", "SAVE", "SET", "SHift", "SI", "SORT", "SOS", "STAck", "STATus", "TOP", "TRAnsfer", "Type", "Up"
}
FOR i = 0 TO Length(words) - 1
...
Which gave at least an alternative view and idea about how to do similar with TSE source code...