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


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

include	defs

# fold - fold all letters in a string to lower case

   subroutine fold (token)
   character token (ARB)

   character clower

   integer i

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

   return
   end