Click above to get retro games delivered to your door ever month!

CLEAR GETS


Syntax:     CLEAR GETS

Purpose:    To release all pending GETs.

Usage:      CLEAR GETs can be used in a number of applications which
            include:

            . Exiting a READ within a SET KEY procedure without saving
              the current GET

            . Painting GETs from multiple records without READing

Library:    CLIPPER.LIB

----------------------------------- Example --------------------------------

   USE Customers

   CLEAR

   DO WHILE .T.
      CLEAR GETS

      PaintGets()
      menuchoice = GetMenuChoice()

      IF menuchoice = 0
         * Esc..quit.
         EXIT

      ELSEIF menuchoice = 1
         * Edit record.
         READ

      ELSEIF menuchoice = 2
         * Next record.
         SKIP

      ELSEIF menuchoice = 3
         * Previous record.
         SKIP -1

      ENDIF

   ENDDO
   RETURN