5 lines
310 B
Text
5 lines
310 B
Text
/* An alternative to the above, which might be used if some */
|
|
/* non-standard conversion is required, is shown for */
|
|
/* converting to upper case: */
|
|
put skip list ( translate(s, 'abcdefghijklmnopqrstuvwxyz',
|
|
'ABCDEFGHIJKLMNOPQRSTUVWXYZ') );
|