home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / MSWBASE4.ZIP / TRADING / STKRHE.SBP < prev    next >
Encoding:
Text File  |  1989-09-24  |  1.4 KB  |  58 lines
  1. SBP
  2.   ╜   -----------------------------------------
  3.   ╜   STKRHE
  4.   ╜   New Highs report
  5.   ╜   Last updated Sep 20, 89
  6.   ╜   -----------------------------------------
  7.   │ _ wm99
  8.   ┤ Ö"STOCKS"
  9.   ┤ Ö"CURRENCY"
  10.  hd1$ "New Price Highs Report at "  ( Q,"mmm dd,yy") "     "
  11.  hd12$ "Ref: STKRHE"
  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 new highs: ";&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  (Price Middle.STOCKS Year_High.STOCKS 
  43.  6(Price Date.STOCKS)  6(Date of High.STOCKS))
  44.   ╡Exchange.STOCKS
  45.  
  46. m2: 
  47.   ┬ms3$,"",1,a%
  48.   ía% 1 p wm1
  49.  RET% 1: ä"stkm"
  50.  
  51. m99: ╜ On error
  52.   í & 27 p
  53.  ┬"Report line too long for printer","Try using a smaller font",0,a%
  54.   ^
  55.  ┬ (( &),"",2,a%
  56.   Æ í
  57.   ym2 
  58.  
  59.