6 lines
233 B
Text
6 lines
233 B
Text
TEXT soup, lower;
|
|
soup :- "alphaBETA";
|
|
lower :- LOWCASE(COPY(soup)); ! COPY, else soup is changed;
|
|
OutText("upper: "); OutText(UPCASE("alphaBETA"));
|
|
OutText(", lower: "); OutText(lower);
|
|
OutText(", soup: "); OutText(soup); Outimage;
|