XMesaCmplr25 :
PROGRAM = {
UpperCase:
PROC = {
c:
CHARACTER ← 'a;
c ← c + ('A - 'a);
};
AppendChar:
PROC [s:
STRING, c:
CHARACTER] = {};
s:
STRING ←
NIL;
exp:
INTEGER ← 2;
AppendChar[s, '0 + (exp/10)];
}.