#!/usr/local/rexx/rxx
/*
 * UPCASE
 *
 * A filter program that converts all alphabetic characters in a file
 * to uppercase.
 *
 * Execute the program by typing
 *
 *       upcase <filename>
 *
 * where <filename> is the name of the input file.  The results of
 * running the UPCASE program are directed to standard output (the
 * terminal screen) unless redirected.
 *
 */
parse arg in
do while lines(in)>0
   say translate(linein(in))
   end