home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / MSWBASE4.ZIP / TRADING / STKDS.SBP < prev    next >
Encoding:
Text File  |  1989-09-14  |  1.6 KB  |  92 lines
  1. SBP
  2.   ╜   -----------------------------------------
  3.   ╜   STKDS
  4.   ╜   Enter Daily Stock Prices
  5.   ╜   Last updated Sep 14, 89
  6.   ╜   -----------------------------------------
  7.  
  8.  ms1$ "Is entry correct?"
  9.   Γ e: │ _ wm99
  10.   ┤ Ö"stocks"
  11.   ú"Stock_Key"
  12.   ┤ £"stkds":frow% 10
  13.  
  14. m0: ╜ Display from first record
  15.   ╔ b:lkey$ Stock_Key.STOCKS
  16.   ╔ `:fkey$ Stock_Key.STOCKS:ckey$ fkey$
  17.  
  18. m01: ╜ Display from ckey$
  19.   vs1
  20.  
  21. m1: ╜ Wait here for a push button to be clicked
  22.   £: ╧ ▀
  23.   wm1
  24.  
  25. m22: ╜ Edit record
  26.  r$  (1,1,0)
  27.  
  28. m221: 
  29.   ┬"Enter line to be edited","",4,a%,r$,2
  30.   ía% 0 p wm223
  31.  r%  0(r$)
  32.   ír% 
  33. 1 p wm221
  34.   ír% lrec% p wm221
  35.  
  36. m222: 
  37.   öPrice Asked.STOCKS "r%
  38.   öPrice Bid.STOCKS "r%
  39.   ┬ms1$,"",1,a%: ía% 0 p wm222
  40.  Price Date.STOCKS  Q:Price Time.STOCKS  R
  41.   ╠
  42.   ír% 10 p wm221
  43.   ír% 9 pr$  (10,2,0) ^r$  (r% 1,1,0)
  44.   wm221
  45.  
  46. m223:  ╜ Redisplay existing screen
  47.  ckey$ pfkey$
  48.   wm01
  49.  
  50. m24: ╜ Next page
  51.   ílkey$ plkey$ p wm1
  52.   ╔ Ñplkey$
  53.   ╔ ▒:ckey$ Stock_Key.STOCKS
  54.   wm01
  55.  
  56. m25: ╜ Prev page
  57.   ífkey$ pfkey$ p wm1
  58.   ╔ Ñpfkey$
  59.   ¢i% 1 qfrow%
  60.   ╔ g
  61.   ▒i%
  62.  ckey$ Stock_Key.STOCKS
  63.   wm01
  64.  
  65. m26:  ╜ Exit
  66.   å £
  67.  ret% 1: ä"stkm"
  68.  
  69. s1: ╜ Displays page of records starting with ckey$
  70.  ╜ Returns first and last keys and number of records for page
  71.   ü £
  72.   ╔ Ñckey$
  73.  pfkey$ Stock_Key.STOCKS
  74.   ¢i% 1 qfrow%
  75.  ═ £ "i%
  76.  íStock_Key.STOCKS lkey$ p ws11
  77.  íi% 
  78. frow% p ╔ ▒
  79.   ▒i%
  80.  
  81. s11: 
  82.  plkey$ Stock_Key.STOCKS
  83.   íi% frow% 1 plrec% frow% ^lrec% i%
  84.   ├
  85.  
  86. m99:  ╜ Error conditions
  87.   ┬ (( &),"Press OK to make another selection",1,a%
  88.   ía% 1 p ym1 
  89.   Æ
  90.  
  91.  
  92.