Hello Murray!

11 Jan 99 06:33, Murray Lesser wrote to Eddy Thilleman:

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

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

Borland Pascal:
upcase();
:-)
                             -= Francois =-
                      Francois(at)telematique(dot)org
                       http://www.telematique.org/ft

Try Win'95 and you'll never use DOS again... or the rest of your PC!

--- GoldED 2.51.A1026+