TOF()
 Detects if the printer head is positioned to top-of-form.
 Returns <expL> true if printer is at top-of-form, otherwise false.

 Useful for preventing unnecessary line feeds with REPORT FORM commands.

 USE Dbffile
 IF TOF()
    REPORT FORM Formfile TO PRINT NOEJECT
 ELSE
    REPORT FORM Formfile TO PRINT
 ENDIF
 USE   && Close files when no longer needed


             Placed in the Public Domain by Tom Rettig Assoc.