unix/boot/spp/rpp/ratlibr/cupper.r


1
2
3
4
5
6
7
8
9
10
11
12
13
14

include	defs

# cupper - change letter to upper case

   character function cupper (c)
   character c

   if (c >= LETA & c <= LETZ)
      cupper = c + (BIGA - LETA)
   else
      cupper = c

   return
   end