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


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

include	defs

# index - find character  c  in string	str

   integer function index (str, c)
   character str (ARB), c

   for (index = 1; str (index) != EOS; index = index + 1)
      if (str (index) == c)
	 return

   index = 0
   return
   end