home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
windows
/
demdat.zip
/
STKDC.SBP
< prev
next >
Wrap
Text File
|
1990-01-08
|
3KB
|
140 lines
SBP
╜ STKDC
╜ Enter Daily Exchange Rates/Stock Prices/Certificate Numbers
╜ Last updated Jan 03, 90
│ _ wferror
stkdc: ╜ Assign function parameters
╜ k% is 1 for string and 2 for numeric key
cur% 1:sto% 2:nos% 3:k% 1:frow% 10
╔ µmb%
µcur%
f$ "Currency":fkey$ "Currency":fmd$ "stkdc":frow% 12
µsto%
f$ "stocks":fkey$ "Stock_Key":fmd$ "stkds"
µnos%
f$ "trans":fkey$ "Transaction ref":fmd$ "stkdn":k% 2
Æ ╔
┤ Öf$
úfkey$
ímb% nos% p ╔ ╨Trans_Type "b" Cert_Sent_yn "n"
┤ £fmd$
floop: ╜ Display from first record
vslimits
ík% 1 pckey$ fstk$ ^ckey% fstk%
vspage
fwait: ╜ Wait here for a push button
mp% 0
╩ ╦ss13$
╧ ▀
╜ Edit line
í(mp% 0 mp% lrec%) p wfwait
╩ ╦ss4$
╔ £ "mp%
▀ │
╔ µmb%
µcur%
öUSD Xrate "mp%
µsto%
öPrice Asked "mp% qPrice Bid "mp%
µnos%
öCertificate_No "mp%
Æ ╔
┬ms1$,"",127,a%
ía% p
╔ µmb%
µcur%
Date of Xrate.CURRENCY Q
µsto%
Price Date.STOCKS Q:Price Time.STOCKS R
Æ ╔
╠
^
ík% 1 p ╔ Ñpstk$(mp%) ^ ╔ Ñpstk%(mp%)
═ £ "mp%
£
Æ í
▀ e
wfwait
fnext: ╜ Next page
í(k% 1 lstk$ pstk$(lrec%)) p wfwait
í(k% 2 lstk% pstk%(lrec%)) p wfwait
ík% 1 p ╔ Ñpstk$(lrec%) ^ ╔ Ñpstk%(lrec%)
╔ ▒
wfcurr
fprev: ╜ Prev page
í(k% 1 fstk$ pstk$(1)) p wfwait
í(k% 2 fstk% pstk%(1)) p wfwait
ík% 1 p ╔ Ñpstk$(1) ^ ╔ Ñpstk%(1)
¢i% 1 qfrow%
╔ g
▒i%
fcurr: ╜ Assign ckey
ík% 1 p
û"ckey$ = " fkey$
^
û"ckey% = " fkey$
Æ í
vspage
£
wfwait
fexit: ╜ Exit
╔ ╨
ä"menu"
slimits: ╜ Get first and last keys
╔ b
ík% 1 p
û"lstk$ = " fkey$
╔ `: û"fstk$ = " fkey$
^
û"lstk% = " fkey$
╔ `: û"fstk% = " fkey$
Æ í
├
spage: ╜ Displays page of records starting with ckey
╜ Returns key array and number of records for page
ü £
ík% 1 p ╔ Ñckey$ ^ ╔ Ñckey%
j% 0
¢i% 1 qfrow%
═ £ "i%
j% j% 1
ík% 1 p
û"pstk$(i%) = " fkey$
û"IF " fkey$ "=lstk$ then i% = frow%"
^
û"pstk%(i%) = " fkey$
û"IF " fkey$ "=lstk% then i% = frow%"
Æ í
íi%
frow% p ╔ ▒
▒i%
íj% frow% plrec% frow% ^lrec% j%
├
ferror: ╜ Error conditions
res% 0
í & 11 p
┬ms21$,ms22$,130,a%: ía% 1 pres% 1
^ í & 57 p
┬ms8$,"",100,a%:res% 2
^
┬ (( &),ms9$,114,a%: ía% 1 pres% 3
Æ í
íres% 1 p y
íres% 2 p yfloop
íres% 3 p yfwait
É