Click above to get retro games delivered to your door ever month!

##############################################################################
###+---------+################################################################
#+-| RECNO() |------------------------------------------------+###############
#| +---------+ Returns the record number in the current alias |###############
#+------------------------------------------------------------+###############
##############################################################################
##############################################################################
#+--| Summary |------------------+############################################
#|     #INCLUDE database.hdr     |############################################
#+-------------------------------+############################################
##############################################################################
##############################################################################
#+--| Syntax |---------------------------+####################################
#|     FUNCTION LONG recno PROTOTYPE     |####################################
#+---------------------------------------+####################################
##############################################################################
##############################################################################
####################+---| Description |-------------------+###################
####################| The recno() function returns the    |###################
####################| record number in the current alias. |###################
####################+-------------------------------------+###################
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Print every 10 records to the screen to verify data |#########
#########|                                                          |#########
#########| DO WHILE .NOT. eof()                                     |#########
#########|     IF  recno() % 10 = 0                                 |#########
#########|         display                                          |#########
#########|     ENDIF                                                |#########
#########|     SKIP                                                 |#########
#########| ENDDO                                                    |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    For a quick sampling of a database to see           |#########
#########| *    who has paid, check every 10th record.              |#########
#########|                                                          |#########
#########| COUNT ar->paid FOR recno() % 10 = 0 TO num_paid          |#########
#########+----------------------------------------------------------+#########
##############################################################################