<div dir="ltr"><div dir="ltr"><br></div><br><div class="gmail_quote"><div dir="ltr" class="gmail_attr">On Sun, Aug 7, 2022 at 11:14 AM Chris Burrows <<a href="mailto:cfbsoftware@gmail.com">cfbsoftware@gmail.com</a>> wrote:<br></div><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div dir="ltr"><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex"><div dir="ltr"><div><div class="gmail_quote"><br></div></div></div></blockquote><div>Oops!  </div><div><br></div><div> IF (ch >= "a") & (ch <= "z") THEN cap := CHR(ORD(ch) - 32) ELSE cap := ch END;<br></div></div></div></blockquote><div><br></div><div>Third time lucky? ;-)</div><div><br></div>  PROCEDURE CAP(ch: CHAR): CHAR;<br>  BEGIN<br>    IF (ch >= "a") & (ch <= "z") THEN ch := CHR(ORD(ch) - 32) END;<br>    RETURN ch<br>  END CAP;<br><div> </div></div></div>