TOF()
 Determines if CA-Clipper is at top of form (TOF)
------------------------------------------------------------------------------
 Syntax

     TOF() --> lTopOfForm

 Returns

     Returns the logical value .T. to designate if a printer is at TOF.

 Description

     TOF() determines if the printer should execute a formfeed or not.

 Note

     .  TOF() acknowledges the values that CA-Clipper maintains
        internally. TOF() cannot determine if the printer is actually at
        TOF()

 Example

     When the printer is not at top of form, execute an EJECT:

     IF .NOT. TOF()
        EJECT
     ENDIF