home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / ONPAGE / ONPAGE.PRG < prev   
Encoding:
Text File  |  1993-02-01  |  1.2 KB  |  40 lines
  1. ****************************************************************
  2. *     * 09/92                ONPAGE.PRG                        *
  3. ****************************************************************
  4. *     * Author's Name: J Long                                  *
  5. *     *                                                        *
  6. *     * Description:                                           *
  7. *     *  Illustrates usage of ONPAGE command                   *
  8. *     *                                                        *
  9. ****************************************************************
  10. * Program:        ONPAGE.PRG
  11. * Description:    Displays
  12. ON PAGE AT LINE 60 DO Break
  13. SET HEADINGS OFF
  14. _PAGENO = 1   && Initialize page number system memvar
  15. DO Header
  16. USE Customer
  17. LIST OFF  Company, Cust_ID, address1 && TO PRINTER
  18. ON PAGE       && Disable ON PAGE processing
  19. DO Footer
  20. RETURN
  21. *
  22. PROCEDURE Break          && Do a page break
  23. DO Footer
  24. DO Header
  25. RETURN
  26. PROCEDURE Footer  && Print the footer
  27. ?
  28. ? Date(),"             Company Confidential    "
  29. RETURN
  30. *
  31. PROCEDURE Header  && Print the header
  32. EJECT PAGE
  33. ? "      ACME Company Customer List    Page #";
  34.     ,STR(_PAGENO, 3)
  35. ?
  36. ? "    Company              Customer No    Address"
  37. ?
  38. RETURN
  39.  
  40.