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)];
}.