home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / DATABASE / DASST102.ZIP / DAILY.TPL < prev    next >
Text File  |  1993-03-31  |  2KB  |  72 lines
  1. ;*************************************************************
  2. ;* DATA ASSISTANT Daily Capture Template Script
  3. ;*
  4. ;* Captures daily quotes from CompuServe BASICQUOTES Section
  5. ;*
  6. ;*************************************************************
  7.  
  8. ;-------------------------------------------------------------
  9. ;         Delete and Create the daily capture file.
  10. ;
  11. ; *** THESE LINES SHOULD NOT BE CHANGED OR DELETED ***
  12. ;-------------------------------------------------------------
  13. KILL    &DAILY_CAPTURE&
  14. CAPTURE &DAILY_CAPTURE&
  15. CAPTURE N
  16. ;-------------------------------------------------------------
  17. ; Establish a connection to CompuServe.  This logic is based 
  18. ; on direct access to CompuServe using local access numbers.
  19. ;
  20. ; The modem initialization string is sent automatically when
  21. ; the connection is initially made before script execution.
  22. ;
  23. ; Generally, you can change this section as necessary for
  24. ; your own access.  The goal is to enter CompuServe such that
  25. ; the following logic section ("GO MQINT") and beyond can be
  26. ; executed for retrieving BASICQUOTES data.
  27. ;-------------------------------------------------------------
  28. S &MODEM_DIAL&&CIS_DAILY_PHONE&^M
  29. W &MODEM_CONNECT&
  30. P 2
  31. U ^C
  32. W ID:
  33. S &CIS_DAILY_USERID&^M
  34. W word:
  35. U &CIS_DAILY_PASSWORD&^M
  36. W !
  37. ;-------------------------------------------------------------
  38. ; Retrieve the operative date for the data. We access MQINT
  39. ; for this date.
  40. ;-------------------------------------------------------------
  41. S GO MQINT^M
  42. W face:
  43. C Y
  44. S DATE^M
  45. W face:
  46. C N
  47. ;-------------------------------------------------------------
  48. ; Repeat the following retrieval procedure from BASICQUOTES
  49. ; for each group of "SYMBOLxx" symbols specified in the
  50. ; "Daily Symbols" dialog box.
  51. ;
  52. ; Reentry to BASICQUOTES is performed since the maximum number
  53. ; of quotations that can be retrieved from this section is 20
  54. ; during a signle session.
  55. ;-------------------------------------------------------------
  56. &BLOCKDAILY
  57.    S GO BASICQUOTE^M
  58.    W Issue:
  59.    C Y
  60.    S &SYMBOL20&^M
  61.    W Issue:
  62.    C N
  63.    S /EXIT^M
  64.    W !
  65. &ENDBLOCK
  66. ;-------------------------------------------------------------
  67. ; Log off from CompuServe.
  68. ;-------------------------------------------------------------
  69. S OFF^M
  70. W &MODEM_NOCARRIER&
  71. P 2
  72.