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

##############################################################################
###+---------+################################################################
#+-| F_EOF() |----------------------------------------------------------+#####
#| +---------+ Returns TRUE if DOS read/write pointer is at end of file |#####
#+----------------------------------------------------------------------+#####
##############################################################################
##############################################################################
#+--| Summary |----------------+##############################################
#|     #INCLUDE fileio.hdr     |##############################################
#+-----------------------------+##############################################
##############################################################################
##############################################################################
#+--| Syntax |------------------------------+#################################
#|     FUNCTION LOGICAL f_eof PROTOTYPE     |#################################
#|      PARAMETERS FILE file_stream         |#################################
#+------------------------------------------+#################################
##############################################################################
##############################################################################
###########+---| Description |------------------------------------+###########
###########| The f_eof() function returns TRUE if the current DOS |###########
###########| read/write pointer is at the end of file for         |###########
###########| file_stream.                                         |###########
###########| ---------------------------------------------------- |###########
###########| The f_eof() will always return TRUE unless the file  |###########
###########| is opened with &F_READ file mode.                    |###########
###########+------------------------------------------------------+###########
##############################################################################
##############################################################################
#########+--| Example 1 |-------------------------------------------+#########
#########| *    Print all the lines in the file "data.txt".         |#########
#########|                                                          |#########
#########| IF .NOT. f_open( f, "data.txt", &F_READ )                |#########
#########|     ? "Unable to open data.txt"                          |#########
#########|     RETURN                                               |#########
#########| ENDIF                                                    |#########
#########| DO WHILE .NOT. f_eof( f )                                |#########
#########|     DO f_getln WITH f, line                              |#########
#########|     ? line                                               |#########
#########| ENDDO                                                    |#########
#########+----------------------------------------------------------+#########
##############################################################################
##############################################################################
#########+--| Example 2 |-------------------------------------------+#########
#########| *    Insert lines from a text file into a pick list.     |#########
#########|                                                          |#########
#########| plist = pick_init()                                      |#########
#########| file_mode = &F_READ                                      |#########
#########| IF .NOT. f_open( my_file, cfile, file_mode )             |#########
#########|     RETURN                                               |#########
#########| ENDIF                                                    |#########
#########| DO WHILE .NOT. a_eof( my_database_file )                 |#########
#########|     getln( my_file, input_buffer )                       |#########
#########|     pick_add( plist, input_buffer )                      |#########
#########| ENDDO                                                    |#########
#########| string_picked = pick_list( plist,0,0,10,30,.T.,.F. )     |#########
#########| {...}                                                    |#########
#########+----------------------------------------------------------+#########
##############################################################################