* This is the server application
* This program does nothing but sit here and let the Client
* take information from it.

USE DDESAMP

STORE "CA" TO CHARVAR
STORE 1 TO RECORDNO

@ 1,2 say "HERE IS THE DATA IN THE DBF" FONT 15
CREATE CONTROL BROWSE "DDEBrowse" at 4,5 save to RecordNo;
   SIZE 2,50 STYLE VIEW
@ 10,2 say "START THE CLIENT PROGRAM NOW." FONT 15
@ 14,2 say "THIS WILL ONLY WORK IF THE" FONT 15
@ 17,2 say "SERVER IS AN .EXE FILE." FONT 15
@ 21,2 say "PRESS ESC TO STOP THE SERVER." FONT 15

DO WHILE .T.				&& sit in this loop until ESC pressed
   MYEVENT=CHKEVENT()
   IF MYEVENT=1 .AND. LASTKEY()=27   && ESC was pressed
     EXIT
   ENDIF
ENDDO