# rnd --- generate random numbers

   integer lwb, upb, num, i, seed, td (10)
   integer gctoi

   character arg (MAXARG)

   string dash_l "-l"
   string dash_u "-u"
   string dash_n "-n"
   string s1 "1"
   string s100 "100"


   call getkwd (dash_l, arg, MAXARG, s1)     # get lower bound
   i = 1
   lwb = gctoi (arg, i, 10)

   call getkwd (dash_u, arg, MAXARG, s100)   # get upper bound
   i = 1
   upb = gctoi (arg, i, 10)

   call getkwd (dash_n, arg, MAXARG, s1)     # get number of values
   i = 1
   num = gctoi (arg, i, 10)

   call timdat (td, 10)
   seed = 0
   do i = 1, 10
      seed = seed + td (i)

   call rnd (iabs (seed))
   for (i = 1; i <= num; i = i + 1)
      call print (STDOUT, "*i*n"p, ints ((upb - lwb) * rnd (0) + lwb))

   stop
   end