A TempleOS distro for heretics
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 

36 lines
647 B

//See $LK,"Define",A="HI:Define"$.
//These might be in the Adam task.
DefineLoad("ST_YES_NO","(Yes or No)");
DefineLoad("ST_EXIT","Exit");
DefineLstLoad("ST_NO_YES_LST","No\0Yes\0");
//New strings might be loaded for each user
//to override.
"Spanish";
if (YorN) {
DefineLoad("ST_YES_NO","(Si or No)");
DefineLoad("ST_EXIT","Salida");
DefineLstLoad("ST_NO_YES_LST","No\0Si\0");
}
Bool Quit()
{
Bool res;
U8 *st;
I64 i;
while (TRUE) {
"%S %S?","ST_EXIT","ST_YES_NO";
st=GetStr;
i=DefineMatch(st,"ST_NO_YES_LST",LMF_IGNORE_CASE);
if (i>=0) {
res=i;
break;
}
Free(st);
}
return res;
}
Quit;