home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / cug / softt-12.lbr / PRIME.RAT < prev    next >
Text File  |  1984-07-05  |  768b  |  27 lines
  1. #-h-  prime.r                     915  local   01/05/81  21:33:07
  2. # prime --- get the ith prime number (from a file of primes)
  3.  
  4.    long_int function prime (i)
  5.    long_int i
  6.  
  7.    integer fd, junk
  8.    integer open, mapfd
  9.  
  10.    if (i < 1 || i > LASTPRIME)
  11.       return (0)
  12.  
  13.    fd = open ("=aux=/primes"s, READ)
  14.    if (fd == ERR)
  15.       return (0)
  16.  
  17.    call prwf$$ (KREAD + KPREA, mapfd (fd), loc (prime), 2, (i-1)*2,
  18.       junk, junk)       # straight binary seek-and-read
  19.    call close (fd)
  20.  
  21.    return
  22.    end
  23. #-t-  prime.r                     915  local   01/05/81  21:33:07
  24. #-t-  prime                      2253  local   01/05/81  21:38:50
  25. ins the prime numbers up to one million in
  26. long-integer binary format.
  27. If =aux=/primes is unreadable or if '