unix/boot/spp/rpp/rpprat/labgen.r


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

#-h-  labgen			  189  local   12/01/80  15:54:12
# labgen - generate  n	consecutive labels, return first one
   include  defs

   integer function labgen (n)
   integer n

   include COMMON_BLOCKS

   labgen = label
   label = label + (n / 10 + 1) * 10
   return
   end