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


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

include	defs

# skipbl - skip blanks and tabs at lin(i)

   subroutine skipbl(lin, i)
   character lin(ARB)
   integer i

   while (lin (i) == BLANK | lin (i) == TAB)
      i = i + 1

   return
   end