while(fgets(str,100,fp) != NULL) // read each line using fgets
   {
	   recordLen[j] = strlen(str); // so i can get length of each record
	   j++;
   }
 
   do
   {
      len = 0;
      randNum = lrand48() % 830000; 
      // read record randomly, 830000 is number of records
      rewind(fp);
 
      for(i = 0; i < randNum-1; i++) 
      // in order to seek the file pointer, i'm sum up length of each record 
      // until the record i want to read
      {
         len += recordLen[i];
      }
 
      fseek(fp, len, SEEK_SET);
      fgets(str,100,fp); 
      // another fgets() to read the record I want to read, to find the length
 
      fseek(fp, len, SEEK_SET);
      result = fread(buffer, CHAR_BYTE, strlen(str), fp);
      count++;
 
   } while(count < MAX_READ); // MAX_READ = 50000, read in 50000 times

recordLen: array[0..830000]
n: int as 0
 
# The first record is always at offset 0
recordLen[n] := 0
 
while count < MAX_READ do
  randNum: int as rand() % 830000
 
  if randNum > n then
    # Fill the lengths up to randNum
    seek fp to recordLen[n]
 
    # Build the offsets up to randNum
    while n < randNum and read str from fp do
      n := n + 1
      recordLen[n] := recordLen[n - 1] + length str
    loop
  else
    seek fp to recordLen[randNum]
  endif
 
  # At this point we're at the correct offset
  read str from fp
 
  # Process str
 
  count := count + 1
loop