2021-07-03 05:07:57 +01:00
<!DOCTYPE HTML>
< html >
< head >
< meta http-equiv = "Content-Type" content = "text/html;charset=US-ASCII" >
2021-09-22 04:45:45 +01:00
< meta name = "generator" content = "ZealOS V1.01" >
2021-07-03 05:07:57 +01:00
< style type = "text/css" >
2021-07-29 03:20:15 +01:00
body {background-color:#fef1f0;}
.cF0{color:#000000;background-color:#fef1f0;}
.cF1{color:#0148a4;background-color:#fef1f0;}
.cF2{color:#3b7901;background-color:#fef1f0;}
.cF3{color:#057c7e;background-color:#fef1f0;}
.cF4{color:#bb2020;background-color:#fef1f0;}
.cF5{color:#9e42ae;background-color:#fef1f0;}
.cF6{color:#b57901;background-color:#fef1f0;}
.cF7{color:#b2b6af;background-color:#fef1f0;}
.cF8{color:#555753;background-color:#fef1f0;}
.cF9{color:#678fbb;background-color:#fef1f0;}
.cFA{color:#82bc49;background-color:#fef1f0;}
.cFB{color:#0097a2;background-color:#fef1f0;}
.cFC{color:#e26a6a;background-color:#fef1f0;}
.cFD{color:#c671bc;background-color:#fef1f0;}
.cFE{color:#c7ab00;background-color:#fef1f0;}
.cFF{color:#fef1f0;background-color:#fef1f0;}
2021-07-03 05:07:57 +01:00
< / style >
< / head >
< body >
2021-07-05 01:12:38 +01:00
< pre style = "font-family:monospace;font-size:12pt" >
2021-07-03 05:07:57 +01:00
< a name = "l1" > < / a > < span class = cF2 > //See < / span > < span class = cF4 > < u > Define< / u > < / span > < span class = cF2 > .< / span > < span class = cF0 >
< a name = "l2" > < / a >
< a name = "l3" > < / a > < / span > < span class = cF2 > //These might be in the System task.< / span > < span class = cF0 >
< a name = "l4" > < / a > < / span > < span class = cF5 > DefineLoad< / span > < span class = cF0 > (< / span > < span class = cF6 > " ST_YES_NO" < / span > < span class = cF0 > , < / span > < span class = cF6 > " (Yes or No)" < / span > < span class = cF0 > );
< a name = "l5" > < / a > < / span > < span class = cF5 > DefineLoad< / span > < span class = cF0 > (< / span > < span class = cF6 > " ST_EXIT" < / span > < span class = cF0 > , < / span > < span class = cF6 > " Exit" < / span > < span class = cF0 > );
< a name = "l6" > < / a > < / span > < span class = cF5 > DefineListLoad< / span > < span class = cF0 > (< / span > < span class = cF6 > " ST_NO_YES_LIST" < / span > < span class = cF0 > , < / span > < span class = cF6 > " No\0Yes\0" < / span > < span class = cF0 > );
< a name = "l7" > < / a >
< a name = "l8" > < / a > < / span > < span class = cF2 > //New strings might be loaded for each user< / span > < span class = cF0 >
< a name = "l9" > < / a > < / span > < span class = cF2 > //to override.< / span > < span class = cF0 >
< a name = "l10" > < / a >
< a name = "l11" > < / a > < / span > < span class = cF6 > " Spanish" < / span > < span class = cF0 > ;
< a name = "l12" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (< / span > < span class = cF5 > YorN< / span > < span class = cF0 > ) {
2021-07-04 23:11:34 +01:00
< a name = "l13" > < / a > < / span > < span class = cF5 > DefineLoad< / span > < span class = cF0 > (< / span > < span class = cF6 > " ST_YES_NO" < / span > < span class = cF0 > , < / span > < span class = cF6 > " (Si or No)" < / span > < span class = cF0 > );
< a name = "l14" > < / a > < / span > < span class = cF5 > DefineLoad< / span > < span class = cF0 > (< / span > < span class = cF6 > " ST_EXIT" < / span > < span class = cF0 > , < / span > < span class = cF6 > " Salida" < / span > < span class = cF0 > );
< a name = "l15" > < / a > < / span > < span class = cF5 > DefineListLoad< / span > < span class = cF0 > (< / span > < span class = cF6 > " ST_NO_YES_LIST" < / span > < span class = cF0 > , < / span > < span class = cF6 > " No\0Si\0" < / span > < span class = cF0 > );
2021-07-03 05:07:57 +01:00
< a name = "l16" > < / a > }
< a name = "l17" > < / a >
< a name = "l18" > < / a > < / span > < span class = cF1 > Bool< / span > < span class = cF0 > Quit()
< a name = "l19" > < / a > {
2021-07-04 23:11:34 +01:00
< a name = "l20" > < / a > < / span > < span class = cF1 > Bool< / span > < span class = cF0 > res;
< a name = "l21" > < / a > < / span > < span class = cF1 > U8< / span > < span class = cF0 > *st;
< a name = "l22" > < / a > < / span > < span class = cF9 > I64< / span > < span class = cF0 > i;
2021-07-03 05:07:57 +01:00
< a name = "l23" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l24" > < / a > < / span > < span class = cF1 > while< / span > < span class = cF0 > (< / span > < span class = cF3 > TRUE< / span > < span class = cF0 > )
< a name = "l25" > < / a > < / span > < span class = cF7 > {< / span > < span class = cF0 >
< a name = "l26" > < / a > < / span > < span class = cF6 > " %S %S?" < / span > < span class = cF0 > , < / span > < span class = cF6 > " ST_EXIT" < / span > < span class = cF0 > , < / span > < span class = cF6 > " ST_YES_NO" < / span > < span class = cF0 > ;
< a name = "l27" > < / a > st = < / span > < span class = cF5 > StrGet< / span > < span class = cF0 > ;
< a name = "l28" > < / a > i = < / span > < span class = cF5 > DefineMatch< / span > < span class = cF0 > (st, < / span > < span class = cF6 > " ST_NO_YES_LIST" < / span > < span class = cF0 > , < / span > < span class = cF3 > LMF_IGNORE_CASE< / span > < span class = cF0 > );
< a name = "l29" > < / a > < / span > < span class = cF1 > if< / span > < span class = cF0 > (i > = < / span > < span class = cFE > 0< / span > < span class = cF0 > )
< a name = "l30" > < / a > {
< a name = "l31" > < / a > res = i;
< a name = "l32" > < / a > < / span > < span class = cF1 > break< / span > < span class = cF0 > ;
< a name = "l33" > < / a > }
< a name = "l34" > < / a > < / span > < span class = cF5 > Free< / span > < span class = cF0 > (st);
< a name = "l35" > < / a > < / span > < span class = cF7 > }< / span > < span class = cF0 >
2021-07-03 05:07:57 +01:00
< a name = "l36" > < / a >
2021-07-04 23:11:34 +01:00
< a name = "l37" > < / a > < / span > < span class = cF1 > return< / span > < span class = cF0 > res;
2021-07-03 05:07:57 +01:00
< a name = "l38" > < / a > }
< a name = "l39" > < / a >
< a name = "l40" > < / a > Quit;
< / span > < / pre > < / body >
< / html >
