Hi Francois,

You wrote to Murray Lesser:

FT> ML> *process langlvl(saa2), limits(extname(31)), libs, not('^');
FT> ML>  toupper: proc(infile) options (main noexecops);
FT> ML>     dcl infile char(100) var;
FT> ML>     dcl translate builtin;
FT> ML>     dcl (From value('abcdefghijklmnopqrstuvwxyz'),
FT> ML>          To value('ABCDEFGHIJKLMNOPQRSTUVWXYZ')) char(26);
FT> ML>     display (translate(infile,to,from));
FT> ML>   end toupper;

FT> ML>     I leave it as an exercise for the reader to write the equivalent in
FT> ML> Pascal :-).

FT>Borland Pascal:
FT>upcase();
FT>:-)

Where is the output? :-)
(and the input?).

A "C" equivalent to Murrays code would be longer...

George

 * SLMR 2.1a * Wishing you a Peaceful and Prosperous New Year

--- Maximus/2 3.01