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


1
2
3
4
5
6
7
8
9
10
11

include	defs

# lower - fold all letters to lower case

   subroutine lower (token)
   character token (ARB)

   call fold (token)

   return
   end