home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a079 / 1.img / FPDG.LZH / VOL2NUM0 / STOCK / PLOT.PRG < prev    next >
Encoding:
Text File  |  1993-01-20  |  5.3 KB  |  234 lines
  1. ******************************************************************
  2. * NAME: PLOT
  3. * PURPOSE: Plots stocks loaded from Prodigy stock quote service
  4. * 
  5. * This version 11/01/91 averages values to display on a single screen
  6. *
  7. ******************************************************************
  8. *CLEAR ALL
  9. MyPath = ""
  10. *MyPath = "\FOXPRO\STOCKS"
  11. SET STATUS OFF
  12. SET SCOREBOARD OFF
  13. SET TALK OFF
  14. SET COLOR TO w+/b
  15. DEFINE WINDOW HEADER FROM 4,40 TO 11,90 SYSTEM COLOR SCHEME 8 TITLE "Stock"
  16. CLEAR
  17. PDisplay = TYPE("quick")='L'
  18. USE MyPath+"Stocks" ORDER name
  19. USE MyPath+"PORT" ORDER symbol IN 2
  20. *
  21. ***** Fetch the symbols
  22. *
  23. SELECT 2
  24. COUNT TO NSymbols
  25. DECLARE SymTable[NSymbols,2]
  26. COPY TO ARRAY SymTable FIELDS Symbol,Descrip ALL
  27. SELECT 1
  28.  
  29. PrtFlag = SET("PRINT")="ON"
  30. PCHAR =IIF(PrtFlag,CHR(242), chr(220))
  31. L=1
  32. *
  33. ***** Plot all of the stocks and mutual funds ***
  34. *
  35.  
  36. *FOR L = 1 TO NSymbols
  37.     * DO Plotter WITH TRIM(SymTable[L,1])
  38. *    IF Prtflag
  39. *        ?
  40. *    ELSE 
  41. *        Answer = Prompter()
  42. *        CLEAR
  43. *        IF Answer = 2
  44. *            EXIT
  45. *        ELSE
  46. *            IF Answer = 3
  47. *                L = L - 1
  48. *            ENDIF
  49. *        ENDIF
  50. *    ENDIF 
  51. *ENDFOR
  52. DEACTIVATE WINDOW HEADER
  53. IF PrtFlag
  54.     SET PRINTER OFF
  55.     EJECT
  56.     ? "Printer was turned off"
  57. ELSE
  58.     DO CHOOSE  && Plot selected stocks
  59. ENDIF
  60. RETURN
  61. *
  62. ********************************************************
  63. * WAITER - Does a Wait and returns results in upper case
  64. *
  65. FUNCTION WAITER
  66. PARAMETER Message
  67. WAIT WINDOW Message TO Ans
  68. RETURN UPPER(Ans)
  69. *
  70. *****************************************************
  71. * Procedure that does the plot for a stock
  72. *
  73. PROCEDURE Plotter
  74. PARAMETER Symb
  75. ACTIVATE SCREEN
  76. CLEAR
  77. @ 0,0
  78. SELECT 2
  79. SEEK TRIM(Symb)
  80. desc=IIF(FOUND(),descrip,"")
  81. SELECT 1
  82. SEEK symb 
  83. CALCULATE min(iif(volume < 10, last, low)) ,max(iif(volume < 10, last, high)), ;
  84.          cnt(), min(volume) ,max(volume);
  85.          TO min1,max1,cnt1,vmin1,vmax1 WHILE name=symb
  86. Increment  = IIF(max1=min1, 0, 40/(max1-min1)) 
  87. VIncrement = IIF(vmax1=vmin1, 0, 20/(vmax1-vmin1))
  88. NAVERAGE   = int(cnt1/35)
  89.  
  90. DO ShowHead 
  91.  
  92. STORE 0 TO i,v,vol
  93. hilo='  '
  94. SEEK symb
  95. SET FILTER TO NAME = Symb
  96. SCAN   && WHILE NAME=Symb
  97.     IF PDisplay AND naverage > 1 && Display page at a time 
  98.         i=i+1
  99.         IF i <= NAVERAGE
  100.             v1   = IIF(last=0, change, last)
  101.             V    = V + v1
  102.             vol  = max(vol,volume)
  103.             hilo = IIF(v1=max1,"Hi",IIF(v1=min1,"Lo",hilo))
  104.             amount = svalue
  105.         ELSE
  106.             DO PlotALine WITH v/NAverage,vol,amount,0,0
  107.             hilo = '  '
  108.             v=0
  109.             vol=0
  110.             i=0
  111.         ENDIF
  112.     ELSE
  113.         v1= IIF( last=0, change, last )
  114.         hilo = IIF( v1=max1, "Hi", IIF(v1=min1, "Lo", "  "))
  115.         amount = svalue
  116.         DO PlotALine WITH v1,volume,amount,high,low
  117.         hilo='  '
  118.     ENDIF   
  119.     if inkey()#0 AND upper(chr(inkey(0))) = "S"
  120.         EXIT
  121.     ENDIF
  122. ENDSCAN
  123. IF i>0
  124.     DO PlotALine WITH v/i,vol/i,amount,0,0
  125. ENDIF
  126. RETURN
  127. *
  128. **************************************************************
  129. * ShowHead - Displays stock symbol and minimum and maximum 
  130. *            stock price and volume
  131. *
  132. PROCEDURE ShowHead
  133. ACTIVATE WINDOW Header
  134. clear
  135.    @ 1,1 SAY "Symbol: "+Symb
  136.    @ 2,1 SAY "Name:   " + desc
  137.    @ 3,1 SAY "Stock Range:"
  138.    @ 3,17 SAY min1 picture "###.###"
  139.    @ 3,26 SAY "to"
  140.    @ 3,29 SAY max1 picture "###.###"
  141. IF vmax1 > 10
  142.     @ 4,1 SAY "Volume Range:"
  143.     @ 4,15 SAY vmin1 Picture "########"
  144.     @ 4,26 SAY "to"
  145.     @ 4,29 SAY vmax1 PICTURE "########" 
  146. ENDIF
  147. ACTIVATE SCREEN
  148. RETURN
  149.  
  150. **************************************************************
  151. * PlotALine - Plots a line
  152. * 
  153. PROCEDURE PlotALine
  154. PARAMETER v, vol,amt1,hi,lo
  155. J =INT((V-min1)*Increment)+1
  156. k =78-INT((vol-vmin1)*vIncrement)
  157.  
  158. IF hilo='Hi'
  159.     SET COLOR TO w+/r
  160. ENDIF
  161. IF hilo='Lo'
  162.     SET COLOR TO w+/bg
  163. ENDIF
  164.  
  165. ? hilo,STR(V,9,3),str(amt1,9,3),DATE
  166. zcol=col()
  167. @ row(),zcol SAY repli(PCHAR,J)
  168.  
  169. IF hilo#'  '
  170.     SET COLOR TO w+/b
  171. ENDIF
  172.     
  173. IF k<79 AND vmax1>10
  174. *    @ ROW(),k+20  SAY REPLICATE(PCHAR,79-k) COLOR w/rg
  175. ENDIF
  176. IF hi#lo .and. vmax1>10
  177.     ilow  = INT((lo-min1)*Increment)+zcol
  178.     ihigh = INT((hi-min1)*Increment)+zcol
  179.     @ ROW(),ilow SAY REPLICATE(CHR(223), ihigh+1-ilow) COLOR rg+/rb
  180. ENDIF
  181. RETURN
  182. *
  183. ***********************************************************
  184. * Choose - Displays popup menu of stock quotes
  185. *          User selects a popup bar and ACTION is called
  186. *
  187. PROCEDURE Choose
  188. DEFINE POPUP Stock FROM 5,2 MESSAGE "Select a stock" COLOR SCHEME 9
  189. FOR ISYM = 1 TO NSymbols 
  190.   DEFINE BAR ISYM OF Stock ;
  191.         PROMPT SYMTABLE[ISYM,1]+" - "+ SYMTABLE[ISYM,2]
  192. ENDFOR
  193. DEFINE BAR NSymbols+1 OF Stock Prompt "Z - Toggle PLOT display mode" 
  194. DEFINE BAR NSymbols+2 OF Stock Prompt "Quit"
  195.  
  196. ON SELECTION POPUP Stock DO Action
  197. ACTIVATE POPUP Stock 
  198. RELEASE POPUP Stock
  199. RETURN
  200. *******************************************************************
  201. *  Action -  Action procedure for popup Stock
  202. *
  203. PROCEDURE Action
  204. HIDE POPUP Stock
  205. prmpt = PROMPT()
  206. DO CASE
  207.     CASE 'Z -'$prmpt
  208.         PDisplay = NOT PDisplay
  209.     CASE prmpt = 'Quit'
  210.         RELEASE WINDOW Header
  211.         CLOSE ALL
  212.         DEACTIVATE POPUP
  213.  
  214.     OTHERWISE
  215.         DO Plotter WITH TRIM(SUBSTR(prmpt,1,5))
  216.         WAIT WINDOW
  217.         CLEAR
  218. ENDCASE
  219. RETURN
  220. *******************************************************************
  221. *  Prompter
  222. *
  223. FUNCTION Prompter
  224. DEFINE WINDOW Prompter FROM 2,10 TO 5,70 SYSTEM COLOR SCHEME 9 TITLE "Pause"
  225. ACTIVATE WINDOW Prompter
  226. @ 0,1 SAY "Pick an item..."
  227. choice = 1
  228. @ 1,2 GET Choice FUNCTION "*TH \<Continue;\<Menu;\<Repeat" SIZE 1,8
  229. READ
  230. RELEASE WINDOW Prompter
  231. RETURN Choice
  232.  
  233.  
  234.