@ 8,5 say '▓·╞╖├√│╞:' get mc1 picture 'xxxxxxxxxxxx'
@ 9,5 say '║╕╣▄╢¿╢ε╡Ñ╬╗:' get pp1 picture '9.9999'
@ 10,5 say '║╕╣▄│╔▒╛╡Ñ╬╗:' get pp2 picture '99.999'
@ 11,5 say '┤°╕╓╢¿╢ε╡Ñ╬╗:' get pp3 picture '9.9999'
@ 12,5 say '┤°╕╓│╔▒╛╡Ñ╬╗:' get pp4 picture '9.9999'
@ 13,5 say '╝╙╣ñ╖╤╢¿╢ε:' get pp5 picture '9.9999'
@ 14,5 say '╕¿┴╧╢¿╢ε:' get pp6 picture '9.9999'
@ 8,45 say '╢»┴ª╢¿╢ε:' get pp7 picture '9.9999'
@ 9,45 say '╣ñ╫╩╢¿╢ε:' get pp8 picture '9.9999'
@ 10,45 say '╕ú└√╢¿╢ε:' get pp9 picture '9.9999'
@ 11,45 say '│╡╝Σ╛¡╖╤╢¿╢ε:' get pp10 picture '9.9999'
@ 12,45 say '╖╧╞╖╦≡╩º╢¿╢ε:' get pp11 picture '9.9999'
@ 13,45 say '╣▄└φ╖╤╢¿╢ε:' get pp12 picture '9.9999'
if w3='╨┬▓·╞╖'
@ 15,5 say '╞ß┴╧╢¿╢ε:' get pp13 picture '9.9999'
@ 16,5 say '═Γ╣║╝■╢¿╢ε:' get pp14 picture '9.9999'
@ 14,45 say '▓─┴╧▓ε╥∞╢¿╢ε:' get pp15 picture '99.9999'
@ 15,45 say '╚╝┴╧╢¿╢ε:' get pp16 picture '9.9999'
endif
read
use &qbl13
go bh
replace next 1 ▓·╞╖├√│╞ with mc1,╝╙╣ñ╢¿╢ε with pp5,HG┴┐╢¿╢ε with pp1,HG│╔▒╛╢¿╢ε with pp2,DG┴┐╢¿╢ε with pp3,DG│╔▒╛╢¿╢ε with pp4
replace next 1 ╕¿┴╧╢¿╢ε with pp6,╢»┴ª╢¿╢ε with pp7,╣ñ╫╩╢¿╢ε with pp8,╕ú└√╢¿╢ε with pp9,CJ╛¡╖╤╢¿╢ε with pp10,╖╧╞╖╢¿╢ε with pp11,╣▄└φ╖╤╢¿╢ε with pp12
if w3='╨┬▓·╞╖'
replace next 1 ╞ß┴╧╢¿╢ε with pp13,═Γ╣║╝■╢¿╢ε with pp14,CLCY╢¿╢ε with pp15,╚╝┴╧╢¿╢ε with pp16
endif
use
store mc1 to xg(bh+124-qbl2)
save all like xg* to &qbl10
clear
@ 10,20 say '╩╟╖±╝╠╨°╨▐╕─(Y/N)?' get cc
read
if cc='n'.or.cc='N'
dd=.f.
endif
enddo
case xgxm=2
ccc=' '
ddd=.t.
do while ddd
bh=0
xm=' '
clear
@ 2,26 say '╟δ╨▐╕─╧┬├µ╧ε─┐▒α║┼'
@ 3,26 say '=================='
do &qbl11
clear
@ 5,30 say '╟δ╩Σ╚δ╨▐╕─╧ε─┐'
@ 6,30 say '=============='
@ 8,25 say '▓·╞╖├√│╞:' get xm picture 'xxxxxxxxxxxxx'
read
use &qbl4
go bh+11
replace ╧ε─┐ with xm
use
store xm to xg(bh+116-qbl2)
save all like xg* to &qbl10
clear
@ 10,20 say '╩╟╖±╝╠╨°╨▐╕─(Y/N)?' get ccc
read
if ccc='n'.or.ccc='N'
ddd=.f.
endif
enddo
case xgxm=3
cccc=' '
dddd=.t.
do while dddd
bh=0
mc1=' '
mc2=' '
xjf=' '
zjf=' '
de1=0.00
de2=0.00
de3=0.00
de4=0.00
de5=0.00
de6=0.00
de7=0.00
de8=0.00
de9=0.00
clear
@ 1,30 say '╟δ╨▐╕─╧┬├µ╡─▓·╞╖├√│╞'
@ 2,30 say '===================='
do &qbl7
clear
@ 3,30 say '╟δ╩Σ╚δ▓·╞╖├√│╞╝░╩²╛▌'
@ 4,30 say '===================='
@ 6,5 say '▓·╞╖├√│╞:' get mc1 picture 'xxxxxxxxxxxxx'
@ 8,5 say '╨í╝╞╙├├√:' get mc2 picture 'xxxxxxxxxxxxx'
@ 10,5 say '┼Σ╠╫╨í╝╞▄▐(*):' get xjf picture 'xx'
@ 12,5 say '┼Σ╠╫╫▄╝╞▄▐(*):' get zjf picture 'xx'
@ 14,5 say '║╕╣▄╢¿╢ε╡Ñ╬╗:' get de1 picture '999.9999'
@ 16,5 say '┤°╕╓╢¿╢ε╡Ñ╬╗:' get de2 picture '999.9999'
@ 18,5 say '╞ß┴╧├µ╗²╢¿╢ε╡Ñ╬╗:' get de3 picture '99.999'
@ 6,45 say '╕¿┴╧╢¿╢ε╡Ñ╬╗:' get de4 picture '9.9999'
@ 8,45 say '═Γ╣║╢¿╢ε╡Ñ╬╗:' get de5 picture '99.999'
if w3='╨┬▓·╞╖'
@ 8,45 say '═Γ╣║╢¿╢ε╡Ñ╬╗:' get de5 picture '999.99'
endif
@ 10,45 say '╝╙╣ñ╢¿╢ε╡Ñ╬╗:' get de6 picture '9.9999'
@ 12,45 say '┤≥░ⁿ╖╤╡Ñ╬╗:' get de7 picture '9.9999'
@ 14,45 say '▓─┴╧▓ε╥∞╡Ñ╬╗:' get de8 picture '9.9999'
@ 16,45 say '╣ñ╩▒╢¿╢ε:' get de9 picture '999.999'
read
use &qbl6
go bh
if w3='╙═╞ß'
replace next 1 ▓·╞╖├√│╞ with mc1,╨í╝╞╙├├√ with mc2,┼Σ╠╫╨í╝╞▄▐ with xjf,┼Σ╠╫╫▄╝╞▄▐ with zjf
endif
if w3<>'╙═╞ß'
replace next 1 ▓·╞╖├√│╞ with mc1
endif
replace next 1 HGDE╡Ñ╬╗ with de1,DGDE╡Ñ╬╗ with de2,QLMJDE╡Ñ╬╗ with de3,FLDE╡Ñ╬╗ with de4,WGDE╡Ñ╬╗ with de5,JGDE╡Ñ╬╗ with de6,DBSJCB╡Ñ╬╗ with de7,CYSJCB╡Ñ╬╗ with de8,╣ñ╩▒╢¿╢ε with de9
