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


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

include	defs

# upper - fold all alphas to upper case

   subroutine upper (token)
   character token (ARB)

   character cupper

   integer i

   for (i = 1; token (i) != EOS; i = i + 1)
      token (i) = cupper (token (i))

   return
   end