home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / STOCK / STOCK.PRG < prev    next >
Encoding:
Text File  |  1993-01-20  |  3.2 KB  |  125 lines
  1. ***************************************************************************
  2. * This program converts Prodigy DOW Jones output into a dBASE Program     *
  3. * Version 1.0 1/25/90                                                     *
  4. ***************************************************************************
  5. CLOSE ALL
  6. SET SAFETY OFF
  7. SET TALK OFF
  8. USE stock1
  9. ZAP
  10. APPEND FROM stock SDF
  11. PUBLIC oldscreen
  12. oldscreen = WROWS()
  13. IF 'VGA' $ SYS(2006)
  14. set display to vga50
  15. ENDIF
  16. *
  17. **** Retrieve stock symbols for portfolio file, PORT.DBF.
  18. SELECT 2
  19. USE Port ORDER Symbol
  20. COUNT TO NSymbols
  21. DECLARE SymTable[NSymbols,2]
  22. COPY TO ARRAY SymTable FIELDS Symbol,Descrip ALL
  23. SELECT 1
  24. *
  25. **** Now, reformat stock quotes 
  26. *
  27. SCAN
  28.     I = 1
  29.     found = .F.
  30.     FOR L = 1 TO NSymbols
  31.         Company = rtrim(SymTable[L,1])
  32.         IF Name = Company
  33.                 do FindValues && Reformat stock quote values
  34.                   && For example: 3 1/4 -> 3.25
  35.             REPLACE Date WITH DATE()
  36.             found = .t.
  37.         ENDIF
  38.     ENDFOR
  39.     IF NOT found
  40.         DELETE
  41.     ENDIF
  42. ENDSCAN
  43. PACK
  44. *
  45. **********************************************************
  46. * Now append prepared records from STOCK1 to archive file
  47.  
  48. USE STOCKS                   && Archive stock quote file
  49. APPEND FROM stock1           && Todays Quotes
  50. DO GETVALUES                 && Update current portfolio values
  51.  
  52. DO PLOT                      && Plot stocks                    
  53. IF OLDSCREEN = 25 AND "VGA" $ SYS(2006)
  54.   SET DISPLAY TO VGA25
  55. ENDIF
  56.  
  57. RETURN
  58. *
  59. *****************************************************************
  60. *    Name: Extract values from stock quotes and convert them
  61. *       to a numeric form
  62. * 
  63. PROCEDURE FindValues
  64. IF Volume < 10
  65. *
  66. ****** Format encountered for mutual funds from previous days quotes
  67. *
  68.     ast = at("*",cchange)
  69.     IF ast>0
  70.         REPLACE cchange WITH STUFF(cchange,ast,1," ")
  71.     ENDIF
  72.     REPLACE last   WITH  val(cchange) ;  
  73.             high   WITH  val(copen)   ;    
  74.             change WITH  val(chigh)    
  75. ELSE
  76. *
  77. **** Standard stock quote format
  78. *
  79.     REPLACE last   WITH Convert(clast), ;
  80.             change WITH Convert(cchange), ;
  81.             high   WITH Convert(chigh), ;
  82.             low    WITH Convert(clow)
  83. ENDIF
  84.  
  85.  
  86. RETURN
  87. *
  88. ***************************************************************
  89. * Name: Convert - Converts a stock price in fraction form     *
  90. *                 like "87 3/4" to a decimal stock price      *
  91. * Version:  1.0 1/25/90                                       *
  92. ***************************************************************
  93. *
  94. FUNCTION Convert
  95. PARAMETER stockvalue
  96. ast = AT("*",stockvalue)  && Remove any asterisks
  97. IF ast>0
  98.     stockvalue = stuff(stockvalue,ast,1," ")
  99. ENDIF
  100. slash = AT('/',stockvalue)
  101. IF slash > 0
  102.     value = val(substr(stockvalue,slash-1))/ ;
  103.          val(substr(stockvalue,slash+1));
  104.              + val(substr(stockvalue,1,slash-2))
  105. ELSE
  106.     value =  val(stockvalue)
  107. ENDIF
  108. IF value >=0 AND at('-',stockvalue)#0  && Negative value?
  109.     value=-value
  110. ENDIF
  111. RETURN value
  112. *
  113. **********************************************************
  114. *
  115. PROCEDURE GETVALUES
  116. SET RELATION TO Name INTO 2
  117. SCAN for FOUND(2) .and. Date=date()
  118.      xvalue = b->volume*IIF(last=0,change,last)
  119.      REPLACE svalue WITH xvalue, ;
  120.              b->amount with xvalue ;
  121.              b->date with dtoc(date())  
  122. ENDSCAN
  123. RETURN
  124.  
  125.