hschumann2/TempleOS-Source-Code

1 2//See Define.3 4//These might be in the Adam task.5DefineLoad("ST_YES_NO","(Yes or No)");6DefineLoad("ST_EXIT","Exit");7DefineLstLoad("ST_NO_YES_LST","No\0Yes\0");8 9//New strings might be loaded for each user10//to override.11 12"Spanish";13if (YorN) {14  DefineLoad("ST_YES_NO","(Si or No)");15  DefineLoad("ST_EXIT","Salida");16  DefineLstLoad("ST_NO_YES_LST","No\0Si\0");17}18 19Bool Quit()20{21  Bool res;22  U8 *st;23  I64 i;24  while (TRUE) {25    "%S %S?","ST_EXIT","ST_YES_NO";26    st=GetStr;27    i=DefineMatch(st,"ST_NO_YES_LST",LMF_IGNORE_CASE);28    if (i>=0) {29      res=i;30      break;31    }32    Free(st);33  }34  return res;35}36 37Quit;38