+---------------------------------+
|              EJECT              |
+---------------------------------+
EJECT

-----------------------------------
Advances printer to top of next page.
-----------------------------------

The EJECT command sends a form feed to the printer if the _PADVANCE
system memory variable is set to 'FORMFEED'.  If _PADVANCE is set to
next page.

EJECT resets the PCOL() and PROW() functions, but does not affect the
value of the _PAGENO or _PLINENO system variables.

+---------------------------------+
|         Program Example         |
+---------------------------------+
In example below, COMPANY name and ADDRESS are printed out (make sure a
printer is attached and turned on for this example).  When number of
rows printed becomes greater than 62, page is ejected.

USE customer
SET DEVICE TO PRINTER
DO WHILE NOT EOF()
   @ PROW()+1,10 SAY 'Company: ' + company
   @ PROW()+1,10 SAY 'Address: ' + address1
   @ PROW()+1,1 SAY ''
   IF PROW() > 62
      EJECT
   ENDIF
   SKIP
ENDDO
SET DEVICE TO SCREEN

-----------------------------------

See Also:  EJECT PAGE, ON PAGE, SET DEVICE, SET PRINTER, PCOL(), PROW(),
System Memory Variables

-----------------------------------