home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / MSWBASE4.ZIP / TRADING / STKFS.SBP < prev    next >
Encoding:
Text File  |  1989-05-31  |  1.8 KB  |  112 lines
  1. SBP
  2.   ╜   -----------------------------------------
  3.   ╜   STKFS
  4.   ╜   Maintain Stocks
  5.   ╜   Last updated Sep 20, 89
  6.   ╜   -----------------------------------------
  7.  
  8.  ms1$ "Is entry correct?"
  9.  ms2$ "Continue with data entry?"
  10.  ms3$ "Select another record?"
  11.   Γ e: │ _ wm99
  12.   Ö"stocks"
  13.   úStock_Key
  14.  
  15. m0: ╜ Decide which type of form
  16.  a$ "c"
  17.   ┬"Enter choice of form","(c)olor screen-oriented or (m)onochrome report-oriented",4,a%,a$,1
  18.   ía% 0 p wm25
  19.  a$  =(a$)
  20.   ía$ "c" p
  21.  ┤ £"stks"
  22.   ^ ía$ "m" p
  23.  ┤ £"stks2"
  24.   ^
  25.  wm0
  26.   Æ í
  27.   wm11
  28.  
  29. m1:
  30.   £1
  31.  
  32. m11: ╜ Wait here for a push button to be clicked
  33.   ╧ ▀
  34.   wm11
  35.  
  36. m21: ╜ Enter new record
  37.   ü £
  38.   ▀ │: ö: ▀ e
  39.   ┬ms1$,"",1,a%
  40.   ía% 0 p
  41.  ü £
  42.   ^
  43.  ╠
  44.  ┬ms2$,"",1,a%
  45.  ía% 1 p wm21 
  46.   Æ í
  47.   ╔ ÑStock_Key.STOCKS
  48.   wm1
  49.  
  50. m22: ╜ Edit existing record
  51.   ▀ │: ö: ▀ e
  52.   ┬ms1$,"",1,a%: ía% 0 p wm1
  53.   ╠: ┬ms3$,"",1,a%
  54.   ía% 1 p wm24  ^ wm1
  55.  
  56. m23: ╜ Delete
  57.   ╜: Should really check here for related transactions
  58.   ┬"Deleting stock record","Are you sure?",1,a%
  59.   ía% 0 p wm1
  60.   ╔ ╛
  61.   wm1
  62.  
  63. m24: ╜ Browse
  64.   vm291
  65.   ía% 0 p wm11
  66.  
  67. m241: 
  68.   │ _ wm242
  69.   ╧ Γ: Γ e
  70.   │ _ wm99
  71.   wm1
  72.  
  73. m242: ╜ Panel errors
  74.   ┬ (( &),"",2,a%
  75.   ╔ Y: ym241
  76.  
  77. m25: ╜ Exit
  78.   å £: ╔ ╨
  79.  ret% 1: ä"stkm"
  80.  
  81. m29: ╜ Print
  82.  b$ "c"
  83.   ┬"Print (c)urrent record, (s)elected or (a)ll records","",4,a%,b$,1
  84.   ía% 0 p wm1
  85.  b$  =(b$)
  86.   íb$ "c" p ╣ Y: wm1 
  87.   vm291
  88.   íb$ "s" p ╔ £ ╨ ~
  89.   ╔ £ `
  90.   ╪ O B("stocks")
  91.  ╣ Y
  92.  ╔ £ ▒
  93.   ┘
  94.   Å;: ╔ ╨: wm1
  95.  
  96. m291: ╜ Select index
  97.  ind$ "Stock_Key"
  98.   ┬"Select index","",7,a%,ind$
  99.   ía% 0 p ├
  100.   úind$: ╔ `: ├
  101.  
  102. m99: ╜ Error conditions
  103.   í & 57 p
  104.  ┬"Record already exists with this key","",2,a%
  105.  ym1 
  106.   ^
  107.  ┬ (( &),"Press OK to make another selection",1,a%
  108.  ía% 1 p ym1 
  109.   Æ í
  110.   ym25
  111.  
  112.