home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a069 / 1.img / TRSOURCE.EXE / TR_TOF.PRG < prev    next >
Encoding:
Text File  |  1990-10-22  |  433 b   |  22 lines
  1. *********
  2. *  Function : TOF
  3. *  By : Ralph Davis
  4. * Placed in the public domain by Tom Rettig Associates, 10/22/1990.
  5. *
  6. *  Tests printer for top of form.
  7. *  Useful for avoiding unnecessary form feeds with REPORT FORM
  8. * 
  9. *  For instance:
  10. *     IF TOF()
  11. *        REPORT FORM NOEJECT TO PRINT
  12. *     ELSE
  13. *        REPORT FORM TO PRINT
  14. *     ENDIF
  15. *********
  16.  
  17. FUNCTION TOF
  18. *
  19. RETURN (PROW() = 0)
  20. * End of function:  TOF
  21.  
  22.