#
onintr finit
unalias *
set maxlet=10 
touch /tmp/_f1.$$
while ($#argv)
if ("$argv[1]" == "std. input") then
set item="$argv[1]"
else
set item=`basename "$argv[1]"`
endif
set count=`echo "$item" | wc -c` 
@ count--
if ($count > $maxlet) then
  set item=`echo "$item" | cut -c-$maxlet`
endif
set index=1

while ($count > 0)
set letter=`echo  "$item" | cut -c$index `
                                          
if ("$letter" == "/" || "$letter" == "\" || "$letter" == "%")  then
    banner "$letter" | sed -e "1,$ s/#/\$letter/g" > /tmp/_f2.$$
else
    if ("$letter" != "") then
    banner "$letter" | sed -e "1,$ s/#/$letter/g" > /tmp/_f2.$$
else 
    banner " " > /tmp/_f2.$$
    endif
endif
 
if ($index > 1) then
paste /tmp/_f1.$$ /tmp/_f2.$$ > /tmp/_f3.$$; mv /tmp/_f3.$$ /tmp/_f1.$$
else 
mv /tmp/_f2.$$ /tmp/_f1.$$
endif
@ count--
@ index++
end

if ($item != "") then
   tr "[a-z]" "[A-Z]" < /tmp/_f1.$$
   rm -f /tmp/_f1.$$ /tmp/_f2.$$ 
else banner ""
endif

shift argv
end
exit(0)

finit:
rm -f /tmp/_f1.$$ /tmp/_f2.$$ /tmp/_f3.$$ 
exit(1)
