home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1996 May / PCW596.iso / wtest / clico / sunsoft / pcnfspro / telnet / ddedemo.ec_ / ddedemo.ECF
Encoding:
Text File  |  1995-10-30  |  2.6 KB  |  68 lines
  1. !----------------------------------------------------------
  2. ! 
  3. ! DDE Demonstration
  4. ! 
  5. ! (C) Copyright 1994 Diversified Computer Systems, Inc.
  6. ! All rights reserved.
  7. ! 
  8. !----------------------------------------------------------
  9.  
  10. ! Make the DDE connection
  11. DDE CONNECT "DDEDEMO" "Population" CONVERSATION
  12.  
  13. ! Turn on the automatic advising for the population
  14. DDE ADVISE 'CONVERSATION' "US" POPUS
  15.  
  16. ! Clear the screen
  17. CLS
  18.  
  19. DISPLAY [2, 2] "<ESC>[1mDDEDEMO - Demonstrates some DDE (Dynamic Data Exchange) capabilities<ESC>[0m"
  20. DISPLAY [3, 2] "<ESC>[1m====================================================================<ESC>[0m"
  21. DISPLAY [4, 2] "This command file demonstrates the following:"
  22. DISPLAY [5, 4] "- The DDE Connection/Termination process"
  23. DISPLAY [6, 4] "- A DDE 'Request' operation (the Time)"
  24. DISPLAY [7, 4] "- An 'Advise Data Link' (the Population)"
  25.  
  26. DISPLAY [ 9, 2] "+------------------------------------------------------+"
  27. DISPLAY [10, 2] "|                                                      |"
  28. DISPLAY [11, 2] "|                                                      |"
  29. DISPLAY [12, 2] "+------------------------------------------------------+"
  30. DISPLAY [10,5] " <ESC>[1mCurrent Time:<ESC>[0m"
  31. DISPLAY [11,5] "<ESC>[1mUS Population:<ESC>[0m"
  32.  
  33. DISPLAY [14, 2] "The <ESC>[1mCurrent Time<ESC>[0m is updated by initiating a 'DDE REQUEST' and displaying"
  34. DISPLAY [15, 2] "the value of the requested variable each time through a loop."
  35. DISPLAY [17, 2] "The <ESC>[1mUS Population<ESC>[0m is updated by initiating a 'DDE ADVISE' before the loop"
  36. DISPLAY [18, 2] "and displaying the variable each time through a loop. The variable is updated"
  37. DISPLAY [19, 2] "automatically by the DDE server. The <ESC>[1mUS Population<ESC>[0m increases approximately"
  38. DISPLAY [20, 2] "every 10 seconds."
  39. DISPLAY [22, 2] "This command file will terminate automatically in:"
  40.  
  41. COUNT = 0
  42. REMAINING = 30 - COUNT
  43. loop:
  44.  
  45.   ! Get the current time from the server
  46.   DDE REQUEST 'CONVERSATION' "TIME" POPTIME
  47.  
  48.   DISPLAY [10,20] "<ESC>[7m" + POPTIME + "<ESC>[0m"
  49.   DISPLAY [11,20] "<ESC>[7m" + POPUS + "<ESC>[0m"
  50.  
  51.   ! Show the number of seconds remaining. The two spaces are to erase previous numbers.
  52.   DISPLAY [22,53] "<ESC>[1m  "
  53.   DISPLAY [22,53] REMAINING
  54.   DISPLAY [22,53] "<ESC>[0m"
  55.   DISPLAY [22,55] " seconds."
  56.   DELAY /NOMESSAGE 1
  57.   COUNT = COUNT + 1
  58.   REMAINING = REMAINING - 1
  59. IF REMAINING .GE. 0 THEN GOTO LOOP
  60.  
  61. ! Turn off the automatic advising for the population
  62. DDE UNADVISE 'CONVERSATION' "US"
  63.  
  64. ! Disconnect the DDE connection
  65. DDE DISCONNECT 'CONVERSATION'
  66.  
  67. DISPLAY [23,2] "Finished!"
  68.