sum next 1 HG┴┐,HG│╔▒╛,DG┴┐,DG│╔▒╛,╞ß┴╧,╕¿┴╧,═Γ╣║╝■,╝╙╣ñ╖╤,┤≥░ⁿ╖╤,╚╝┴╧,╢»┴ª,╣ñ╫╩,╕ú└√╖╤,│╡╝Σ╛¡╖╤,╖╧╞╖,╣▄└φ╖╤ to n1,n2,n3,n4,n5,n6,n7,n8,n9,n10,n11,n12,n13,n14,n15,n16
select 1
nn=0
do while nn<10
t=0
do while t<=17
t=t+1
store 0.00 to a(t)
enddo
nn=nn+1
do case
case nn=1
ptbl=xg(115-qbl2)
m=3
case nn=2
ptbl=xg(116-qbl2)
m=4
case nn=3
ptbl=xg(117-qbl2)
m=12
case nn=4
ptbl=xg(118-qbl2)
m=13
case nn=5
ptbl=xg(119-qbl2)
m=14
case nn=6
ptbl=xg(120-qbl2)
m=15
case nn=7
ptbl=xg(121-qbl2)
m=16
case nn=8
ptbl=xg(122-qbl2)
m=17
case nn=9
ptbl=xg(123-qbl2)
m=18
case nn=10
ptbl=xg(124-qbl2)
m=19
endcase
do c:cbhs-1a
go m
replace next 1 HG╓╪┴┐ with a(1),HG╜≡╢ε with a(2),DG╓╪┴┐ with a(3),DG╜≡╢ε with a(4),╞ß┴╧ with a(5),╕¿┴╧ with a(6),═Γ╣║╝■ with a(7),╝╙╣ñ╖╤ with a(8),┤≥░ⁿ╖╤ with a(9)
replace next 1 ▓─┴╧▓ε╥∞ with a(10),╚╝┴╧ with a(11),╢»┴ª with a(12),╣ñ╫╩ with a(13),╕ú└√╖╤ with a(14),│╡╝Σ╛¡╖╤ with a(15),╖╧╞╖ with a(16),╣▄└φ╖╤ with a(17),╖╤╙├▓ε╥∞ with a(18)
enddo
aa4=' '
bb4=.t.
do while bb4
clear
@ 2,25 say '╟δ╩Σ╚δ╧┬├µ╧ε─┐╡─▒╛╘┬╖╧╞╖╦≡╩º╩²'
@ 3,25 say '=============================='
@ 5,26 say '║╕╣▄╓╪┴┐ ' get c1
@ 6,26 say '║╕╣▄╜≡╢ε ' get c2
@ 7,26 say '┤°╕╓╓╪┴┐ ' get c3
@ 8,26 say '┤°╕╓╜≡╢ε ' get c4
@ 9,26 say '╕¿┴╧ ' get c5
@ 10,26 say '╚╝┴╧ ' get c6
@ 11,26 say '╢»┴ª ' get c7
@ 12,26 say '╣ñ╫╩ ' get c8
@ 13,26 say '╕ú└√╖╤ ' get c9
@ 14,26 say '│╡╝Σ╛¡╖╤ ' get c10
@ 15,26 say '╦≡╩º╣ñ╩▒ ' get c11
@ 16,26 say '║╕╣▄▓╨╓╡ ' get c12
@ 17,26 say '┤°╕╓▓╨╓╡ ' get c13
read
@ 19,20 say '╔╧├µ╩Σ╚δ╡─╩²╛▌╢╘┬≡(Y/N)? ' get aa4
read
if aa4='Y'.or.aa4='y'
bb4=.f.
endif
enddo
go 8
replace next 1 HG╓╪┴┐ with c1,HG╜≡╢ε with c2,DG╓╪┴┐ with c3,DG╜≡╢ε with c4,╕¿┴╧ with c5,╚╝┴╧ with c6,╢»┴ª with c7,╣ñ╫╩ with c8,╕ú└√╖╤ with c9,│╡╝Σ╛¡╖╤ with c10
go 9
replace next 1 HG╜≡╢ε with c2-c12,DG╜≡╢ε with c4-c13,╕¿┴╧ with c5,╚╝┴╧ with c6,╢»┴ª with c7,╣ñ╫╩ with c8,╕ú└√╖╤ with c9,│╡╝Σ╛¡╖╤ with c10
go 10
replace next 1 HG╜≡╢ε with c12,DG╜≡╢ε with c13
replace all ║╧╝╞ with HG╜≡╢ε+DG╜≡╢ε+╞ß┴╧+╕¿┴╧+═Γ╣║╝■+╝╙╣ñ╖╤+┤≥░ⁿ╖╤+▓─┴╧▓ε╥∞+╚╝┴╧+╢»┴ª+╣ñ╫╩+╕ú└√╖╤+│╡╝Σ╛¡╖╤+╖╧╞╖+╣▄└φ╖╤+╖╤╙├▓ε╥∞
sum all HG╓╪┴┐,HG╜≡╢ε,DG╓╪┴┐,DG╜≡╢ε,╞ß┴╧,╕¿┴╧,═Γ╣║╝■,╝╙╣ñ╖╤,┤≥░ⁿ╖╤,▓─┴╧▓ε╥∞,╚╝┴╧,╢»┴ª,╣ñ╫╩,╕ú└√╖╤,│╡╝Σ╛¡╖╤,╖╧╞╖,╣▄└φ╖╤,╖╤╙├▓ε╥∞,║╧╝╞ to h1,h2,h3,h4,h5,h6,h7,h8,h9,h10,h11,h12,h13,h14,h15,h16,h17,h18,h19 for ▒α║┼<4
go 4
h1=h1-HG╓╪┴┐
h2=h2-HG╜≡╢ε
h3=h3-DG╓╪┴┐
h4=h4-DG╜≡╢ε
h5=h5-╞ß┴╧
h6=h6-╕¿┴╧
h7=h7-═Γ╣║╝■
h8=h8-╝╙╣ñ╖╤
h9=h9-┤≥░ⁿ╖╤
h10=h10-▓─┴╧▓ε╥∞
h11=h11-╚╝┴╧
h12=h12-╢»┴ª
h13=h13-╣ñ╫╩
h14=h14-╕ú└√╖╤
h15=h15-│╡╝Σ╛¡╖╤
h16=h16-╖╧╞╖
h17=h17-╣▄└φ╖╤
h18=h18-╖╤╙├▓ε╥∞
h19=h19-║╧╝╞
go 6
replace next 1 HG╓╪┴┐ with h1,HG╜≡╢ε with h2,DG╓╪┴┐ with h3,DG╜≡╢ε with h4,╞ß┴╧ with h5,╕¿┴╧ with h6,═Γ╣║╝■ with h7
replace next 1 ╝╙╣ñ╖╤ with h8,┤≥░ⁿ╖╤ with h9,▓─┴╧▓ε╥∞ with h10,╚╝┴╧ with h11,╢»┴ª with h12,╣ñ╫╩ with h13,╕ú└√╖╤ with h14,│╡╝Σ╛¡╖╤ with h15,╖╧╞╖ with h16,╣▄└φ╖╤ with h17,╖╤╙├▓ε╥∞ with h18,║╧╝╞ with h19
sum all HG╓╪┴┐,HG╜≡╢ε,DG╓╪┴┐,DG╜≡╢ε,╞ß┴╧,╕¿┴╧,═Γ╣║╝■,╝╙╣ñ╖╤,┤≥░ⁿ╖╤,▓─┴╧▓ε╥∞,╚╝┴╧,╢»┴ª,╣ñ╫╩,╕ú└√╖╤,│╡╝Σ╛¡╖╤,╖╧╞╖,╣▄└φ╖╤,╖╤╙├▓ε╥∞,║╧╝╞ to i1,i2,i3,i4,i5,i6,i7,i8,i9,i10,i11,i12,i13,i14,i15,i16,i17,i18,i19 for ▒α║┼=8.or.(▒α║┼>11.and.▒α║┼<20)
go 21
replace next 1 HG╓╪┴┐ with h1-i1,HG╜≡╢ε with h2-i2,DG╓╪┴┐ with h3-i3,DG╜≡╢ε with h4-i4,╞ß┴╧ with h5-i5,╕¿┴╧ with h6-i6,═Γ╣║╝■ with h7-i7
replace next 1 ╝╙╣ñ╖╤ with h8-i8,┤≥░ⁿ╖╤ with h9-i9,▓─┴╧▓ε╥∞ with h10-i10,╚╝┴╧ with h11-i11,╢»┴ª with h12-i12,╣ñ╫╩ with h13-i13,╕ú└√╖╤ with h14-i14,│╡╝Σ╛¡╖╤ with h15-i15,╖╧╞╖ with h16-i16,╣▄└φ╖╤ with h17-i17,╖╤╙├▓ε╥∞ with h18-i18,║╧╝╞ with h19-i19
sum all HG╓╪┴┐,HG╜≡╢ε,DG╓╪┴┐,DG╜≡╢ε,╞ß┴╧,╕¿┴╧,═Γ╣║╝■,╝╙╣ñ╖╤,┤≥░ⁿ╖╤,▓─┴╧▓ε╥∞,╚╝┴╧,╢»┴ª,╣ñ╫╩,╕ú└√╖╤,│╡╝Σ╛¡╖╤,╖╧╞╖,╣▄└φ╖╤,╖╤╙├▓ε╥∞,║╧╝╞ to h1,h2,h3,h4,h5,h6,h7,h8,h9,h10,h11,h12,h13,h14,h15,h16,h17,h18,h19 for ▒α║┼>11.and.▒α║┼<20
select 2
n=0
do while n<4
n=n+1
select 1
do case
case n=1
go 3
case n=2
go 9
case n=3
go 10
case n=4
go 4
endcase
select 2
do case
case n=1
go 2
case n=2
go 122-qbl1
case n=3
go 121-qbl1
case n=4
go 128-qbl1
endcase
replace next 1 HG╜≡╢ε with z1->HG╜≡╢ε,DG╜≡╢ε with z1->DG╜≡╢ε,╞ß┴╧ with z1->╞ß┴╧,╕¿┴╧ with z1->╕¿┴╧,═Γ╣║╝■ with z1->═Γ╣║╝■,╝╙╣ñ╖╤ with z1->╝╙╣ñ╖╤,┤≥░ⁿ╖╤ with z1->┤≥░ⁿ╖╤,▓─┴╧▓ε╥∞ with z1->▓─┴╧▓ε╥∞
replace next 1 ╚╝┴╧ with z1->╚╝┴╧,╢»┴ª with z1->╢»┴ª,╣ñ╫╩ with z1->╣ñ╫╩,╕ú└√╖╤ with z1->╕ú└√╖╤,│╡╝Σ╛¡╖╤ with z1->│╡╝Σ╛¡╖╤,╖╧╞╖ with z1->╖╧╞╖,╣▄└φ╖╤ with z1->╣▄└φ╖╤,╖╤╙├▓ε╥∞ with z1->╖╤╙├▓ε╥∞,║╧╝╞ with z1->║╧╝╞
enddo
go 124-qbl1
replace next 1 HG╜≡╢ε with h2,DG╜≡╢ε with h4,╞ß┴╧ with h5,╕¿┴╧ with h6,═Γ╣║╝■ with h7
replace next 1 ╝╙╣ñ╖╤ with h8,┤≥░ⁿ╖╤ with h9,▓─┴╧▓ε╥∞ with h10,╚╝┴╧ with h11,╢»┴ª with h12,╣ñ╫╩ with h13,╕ú└√╖╤ with h14,│╡╝Σ╛¡╖╤ with h15,╖╧╞╖ with h16,╣▄└φ╖╤ with h17,╖╤╙├▓ε╥∞ with h18,║╧╝╞ with h19
