home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / MSWBASE4.ZIP / TRADING / STKRTE.SBP < prev    next >
Encoding:
Text File  |  1989-09-24  |  1.3 KB  |  59 lines
  1. SBP
  2.   ╜   -----------------------------------------
  3.   ╜   STKRTE
  4.   ╜   Traded Stocks report
  5.   ╜   Last updated Sep 20, 89
  6.   ╜   -----------------------------------------
  7.   │ _ wm99
  8.   ┤ Ö"STOCKS"
  9.   ┤ Ö"CURRENCY"
  10.  hd1$ "Traded Stocks report at "  ( Q,"mmm dd,yy") "     "
  11.  hd12$ "Ref: STKRTE"
  12.  ms3$ "Do you wish to reprint?"
  13.  
  14. m1: 
  15.   ┬"REPORT TO PRINTER?","",134,a%
  16.   ía% 0 p wm2  ^ ía% 1 p ╣;
  17.  
  18.   ┴
  19.   } ┴
  20.   {@1;"Number of traded stocks: ";&15 ( X,"99999.")
  21.   {
  22.   Æ ┴
  23.  
  24.   ƒ
  25.   {@1; ╘;hd1$; ╘ e;@65;hd12$
  26.   {@31;"------ Price Data -----"
  27.   {@1;"Mkt  Sector   Symbol    Units    High     Low  Latest  Cap (m) Earnings P/E"
  28.   {@1;"---- -------- --------- ----- ------- ------- ------- -------- -------- ---"
  29.   Æ ƒ
  30.  
  31.   ₧Exchange.STOCKS
  32.   Ç ₧Exchange.STOCKS
  33.   {@1;&16Exchange.STOCKS
  34.   Æ ₧
  35.  
  36.   } ₧Exchange.STOCKS
  37.   {
  38.   Æ ₧
  39.  
  40.   ╔@1;&4Market.STOCKS;@6;&8Sector.STOCKS;@15;&9Symbol.STOCKS;@25;&5Units.CURRENCY;@31;&7Year_High.STOCKS;
  41.  @39;&7Year_Low.STOCKS;@47;&7Price Middle.STOCKS;@55;&8Cap Million.STOCKS;&9Last_Earnings.STOCKS;&4PE ratio.STOCKS
  42.   ╨Currency.STOCKS Currency.CURRENCY
  43.   ╡Exchange.STOCKS
  44.  
  45. m2: 
  46.   ┬ms3$,"",1,a%
  47.   ía% 1 p wm1
  48.  RET% 1: ä"stkm"
  49.  
  50. m99: ╜ On error
  51.   í & 27 p
  52.  ┬"Report line too long for printer","Try using a smaller font",0,a%
  53.   ^
  54.  ┬ (( &),"",2,a%
  55.   Æ í
  56.   ym2 
  57.  
  58.  
  59.