main() {

int db, begno, endno, runningTotal;

   cycle(db) {

       puts(0,0, "Processing record " + str(docno(db)) + " of " + str(count(db)));

       if (len(db->begno) > 0) {

           begno = FindNum(db->BEGNO);

           if (len(db->endno) > 0)

               endno = FindNum(db->endno);

           else

               endno = begno;

           runningTotal = runningTotal + (endno - begno + 1);

       }

   }

   messageBox("Page Count = " + str(runningTotal,15,0,','), program(), MB_OK);

}


FindNum(text string) {

char textnum[60], i;

   textnum = string;

   /* Loop backwards */   
   for (i = len(textnum) - 1; i >= 0; i = i - 1)
      if (isdigit(textnum[i]) == 0)
         break;

   if (i >= 0)
      textnum = substr(textnum, i+1);
   else
      textnum = string;

   return(num(textnum));
}