home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / MSWBASE4.ZIP / TRADING / STKFT.SBP < prev    next >
Encoding:
Text File  |  1989-09-24  |  1.3 KB  |  81 lines
  1. SBP
  2.   ╜   -----------------------------------------
  3.   ╜   STKFT
  4.   ╜   Maintain Transactions
  5.   ╜   Last updated Sep 21, 89
  6.   ╜   -----------------------------------------
  7.  
  8.  ms1$ "Is entry correct?"
  9.  ms2$ "Continue with data entry?"
  10.  ms3$ "Select another record?"
  11.   Γ e: │ _ wm99
  12.   Ö"TRANS"
  13.   úTransaction ref
  14.   ┤ £"stkt"
  15.   wm11
  16.  
  17. m1:
  18.   £
  19.  
  20. m11: ╜ Wait here for a push button to be clicked
  21.   ╧ ▀
  22.  
  23. m21: ╜ Enter new record
  24.   ü £
  25.  Trans_Type "b"
  26.   ▀ │: ö: ▀ e
  27.   ┬ms1$,"",1,a%
  28.   ía% 0 p
  29.  ü £
  30.   ^
  31.  ╠
  32.  ┬ms2$,"",1,a%
  33.  ía% 1 p wm21 
  34.   Æ í
  35.   ╔ £ ÑTransaction ref.TRANS
  36.   wm1
  37.  
  38. m22: ╜ Edit existing record
  39.   ▀ │: ö: ▀ e
  40.   ┬ms1$,"",1,a%: ía% 0 p wm1
  41.   ╠: ┬ms3$,"",1,a%
  42.   ía% 1 p wm24  ^ wm1
  43.  
  44. m23: ╜ Delete
  45.   ┬"Deleting transaction","Are you sure?",1,a%
  46.   ía% 0 p wm1
  47.   ╔ ╛
  48.   wm1
  49.  
  50. m24: ╜ Browse
  51.  ind$ "Transaction ref"
  52.   ┬"Select index for browsing","",7,a%,ind$
  53.   ía% 0 p wm11
  54.   úind$: ╔ `
  55.  
  56. m241: 
  57.   │ _ wm242
  58.   ╧ Γ: Γ e
  59.   │ _ wm99
  60.   wm1
  61.  
  62. m242: ╜ Panel errors
  63.   ┬ (( &),"",2,a%
  64.   ╔ Y: ym241
  65.  
  66. m25: ╜ Exit
  67.   å £: ╔ ╨
  68.  ret% 1: ä"stkm"
  69.  
  70. m99: ╜ Error conditions
  71.   í & 57 p
  72.  ┬"Record already exists with this key","",2,a%
  73.  ym1 
  74.   ^
  75.  ┬ (( &),"Press OK to make another selection",1,a%
  76.  ía% 1 p ym1 
  77.   Æ í
  78.   ym25 
  79.  
  80.  
  81.