home *** CD-ROM | disk | FTP | other *** search
/ Chip 1997 April / Chip_1997-04_cd.bin / sharewar / dtp_shw / 0326 / dasst.exe / DAILY.TPL < prev    next >
Text File  |  1993-03-31  |  3KB  |  81 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. ; Set session-specific settings
  39. ;-------------------------------------------------------------
  40. S SET TERMINAL OTHER^M
  41. W !
  42. S SET PAGED NO^M
  43. W !
  44. ;-------------------------------------------------------------
  45. ; Retrieve the operative date for the data. We access MQINT
  46. ; for this date.
  47. ;-------------------------------------------------------------
  48. S GO MQINT^M
  49. W face:
  50. C Y
  51. S DATE^M
  52. W face:
  53. C N
  54. ;-------------------------------------------------------------
  55. ; Repeat the following retrieval procedure from BASICQUOTES
  56. ; for each group of "SYMBOLxx" symbols specified in the
  57. ; "Daily Symbols" dialog box.
  58. ;
  59. ; Reentry to BASICQUOTES is performed since the maximum number
  60. ; of quotations that can be retrieved from this section is 20
  61. ; during a single session.
  62. ;
  63. ; DO NOT INCREASE THE NUMBER OF SYMBOLS ABOVE 19!
  64. ;-------------------------------------------------------------
  65. &BLOCKDAILY
  66.    S GO BASICQUOTE^M
  67.    W Issue:
  68.    C Y
  69.    S &SYMBOL19&^M
  70.    W Issue:
  71.    C N
  72.    S /EXIT^M
  73.    W !
  74. &ENDBLOCK
  75. ;-------------------------------------------------------------
  76. ; Log off from CompuServe.
  77. ;-------------------------------------------------------------
  78. S OFF^M
  79. W &MODEM_NOCARRIER&
  80. P 2
  81.