home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / APPS / BUSINESS / PST09B.ZIP / HQSTOCK.ASP < prev    next >
Encoding:
Text File  |  1991-05-13  |  1.8 KB  |  55 lines
  1. ;*************************************************************************
  2. ;* HQSTOCK.ASP     1991 RazorLogic Systems                               *
  3. ;*                                                                       *
  4. ;* A  Procomm script file for downloading historical quotes for the      *
  5. ;* most recent year of daily stock data.                                 *
  6. ;*************************************************************************
  7. ;
  8. ; In setting THE_SYMBOL use the following prefixes before the stock
  9. ; symbol to get the quote from a specific exchange:
  10. ;                1       New York
  11. ;                2       American
  12. ;                3       Pacific
  13. ;                4       MidWest
  14. ;                7       Nasdaq
  15. ;                8       Nasdaq NMS bid/ask format (don't use this one
  16. ;                           if you want HQCON to work)                  
  17. ;************************************************************************
  18.  
  19.  
  20.  
  21. DEFINE HISTQUOTE ";"       ; Use the semicolon instead of //HQ
  22. STRING THE_SYMBOL            ; Stock Symbol for Historical Quotes
  23. STRING THE_FILE              ; File name for screen capture file
  24. INTEGER I
  25.  
  26. PROC MAIN
  27. CLEAR
  28. LOCATE 0 0
  29. BOX 0 0 4 25 14
  30. ATSAY 2 2 14 "HQ on a stock......"
  31.  
  32. ATSAY 7 10 5 "ENTER STOCK SYMBOL (e.g. 1IBM): "
  33. ATGET 7 44 15 5 THE_SYMBOL 
  34. ATSAY 8 10 5 "ENTER LOG FILE NAME (e.g. IBM.DMP): "
  35. ATGET 8 48 15 8 THE_FILE 
  36.  
  37. LOCATE 10 0
  38.  
  39. LOG OPEN THE_FILE
  40.  
  41. PAUSE 2
  42. TRANSMIT HISTQUOTE       ; Only need semicolon for the first time for //hq
  43. TRANSMIT THE_SYMBOL      ; then just a return for each previous 12 trading
  44. TRANSMIT " P1^M"         ; days.
  45.  
  46. I == 1
  47.   WHILE I < 22
  48.     INC I 
  49.      WAITFOR "^^" 10       ; waits for DJNS record separator or 10 secs.
  50.      TRANSMIT "^M" 
  51.   ENDWHILE
  52.  
  53. LOG CLOSE
  54.  
  55. ENDPROC