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


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

include	defs

# length - compute length of string

   integer function length (str)
   character str (ARB)

   for (length = 0; str (length+1) != EOS; length = length + 1)
      ;

   return
   end