SET PROCEDURE TO DateChan

     SET KEY 43 TO DateChange		&&  Plus Key
     SET KEY 45 TO DateChange		&&  Minus Key

     USE DEMO     
     DO WHILE LASTKEY() <> 27
     
          CLEAR
          C_string = SPACE( 10 )
          D_date   = CTOD( "" )
          
          @ 07, 05  SAY "Enter string       : " GET C_string
          @ 09, 05  SAY "Enter variable date: " GET D_date
          @ 11, 05  SAY "Enter field date   : " GET datefield
		@ 14, 05  SAY "<ESC> Exit    <+> Increase Date    <-> Decrease Date"

          READ
          
     ENDDO