home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / DATABASE / DASST102.ZIP / HISTORY.TPL < prev    next >
Text File  |  1993-03-31  |  2KB  |  64 lines
  1. ;*************************************************************
  2. ;* DATA ASSISTANT Historical Retrieval Capture Template Script
  3. ;*
  4. ;* Captures historical quotes from CompuServe MQINT 200
  5. ;*
  6. ;*************************************************************
  7.  
  8. ;-------------------------------------------------------------
  9. ;         Delete and Create the historical capture file.
  10. ;
  11. ; *** THESE LINES SHOULD NOT BE CHANGED OR DELETED ***
  12. ;-------------------------------------------------------------
  13. KILL    &HISTORY_CAPTURE&
  14. CAPTURE &HISTORY_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 historical data.
  27. ;-------------------------------------------------------------
  28. S &MODEM_DIAL&&CIS_HISTORY_PHONE&^M
  29. W &MODEM_CONNECT&
  30. P 2
  31. U ^C
  32. W ID:
  33. S &CIS_HISTORY_USERID&^M
  34. W word:
  35. U &CIS_HISTORY_PASSWORD&^M
  36. W !
  37. ;-------------------------------------------------------------
  38. ; Enter the MicroQuote area and select Interface 200.
  39. ;-------------------------------------------------------------
  40. S GO MQINT^M
  41. W face:
  42. S 200^M
  43. C Y
  44. W :
  45. ;-------------------------------------------------------------
  46. ; Repeat the following retrieval procedure from MQINT 200
  47. ; for each symbol specified in the "Daily Symbols" dialog box.
  48. ; One command line is sent for each symbol.
  49. ;-------------------------------------------------------------
  50. &BLOCKHISTORY
  51.    S &SYMBOL&,&HISTORY_SELECT&^M
  52.    W :
  53. &ENDBLOCK
  54.  
  55. C N
  56. U ^M
  57. W face:
  58. ;-------------------------------------------------------------
  59. ; Log off from CompuServe
  60. ;-------------------------------------------------------------
  61. S OFF^M
  62. W &MODEM_NOCARRIER&
  63. P 2
  64.