Liren Large Software Subsidy 6/06.iso/b/b034/gz.img/╨▐╕─.PRG

Text File | 1980-01-03 | 19.4 KB | 744 lines

*╨▐╕─╫╙│╠╨≥:╨▐╕─.PRG
clear
set talk off
yy=mo1+mo2/100
xgbm=0
clear
@ 2,30 say '╥¬╨▐╕─╡─▓┐├┼'
@ 3,29 say '============='
@ 5,15 say '╓▒╩⌠--------------- 1'
@ 5,45 say '╕ú└√--------------- 6'
@ 7,15 say '═╦╨▌--------------- 2'
@ 7,45 say '╙═╞ß--------------- 7'
@ 9,15 say '╟░▓µ--------------- 3'
@ 9,45 say '╗·─ú--------------- 8'
@ 11,15 say '│σ╤╣--------------- 4'
@ 11,45 say '╨┬▓·╞╖------------- 9'
@ 13,15 say '▒╕┴╧--------------- 5'
@ 13,45 say '╫▄╫░--------------- 10'
@ 18,25 say '╫ó╥Γ:  ╘┌ A:┼╠(╔╧)▓σ╚δ╧α╙ª▓┐├┼╩²╛▌┐¿'
@ 15,10 say '╟δ╩Σ╚δ╥¬╨▐╕─╡─▓┐├┼╡─▒α║┼' get xgbm
     read
if xgbm=1
   store '╓▒╩⌠' to w1
endif
if xgbm=2
   store '═╦╨▌' to w1
endif
if xgbm=3
   store '╟░▓µ' to w1
endif
if xgbm=4
   store '│σ╤╣' to w1
endif
if xgbm=5
   store '▒╕┴╧' to w1
endif
if xgbm=6
   store '╕ú└√' to w1
endif
if xgbm=7
   store '╙═╞ß' to w1
endif
if xgbm=8
   store '╗·─ú' to w1
endif
if xgbm=9
   store '╨┬▓·╞╖' to w1
endif
if xgbm=10
   store '╫▄╫░' to w1
endif
use a:gz
az1=.t.
d=0
clear
set talk off
@ 5,30 say '╟δ─·╧╚╩Σ╚δ╧┬├µ╩²╛▌'
?
?
do while az1
?
input '╔╧╘┬╚½╘┬╡─╣ñ╫≈╚╒╩╟:  ' to ygzr
?
accept '       ╩Σ╚δ╡─╣ñ╫≈╚╒╢╘┬≡(y/n)?  ' to zz
if zz='y'.or.zz='Y'
   az1=.f.
endif
enddo
replace all ╘┬╖▌ with mo2
clear
set talk off
store .t. to b
do while b
clear
@ 1,30 say '╨▐╕─╣ñ╫╩╘¡╩╝╩²╛▌╟σ╡Ñ'
@ 2,29 say '====================='
@ 4,15 say '╨▐╕─╗∙▒╛╣ñ╫╩-------- 1'
@ 4,45 say '╨▐╕─╟σ╥√------------ 11'
@ 5,15 say '╨▐╕─┴╕▓ε------------ 2'
@ 5,45 say '╨▐╕─═╨╖╤------------ 12'
@ 06,15 say '╨▐╕─╬∩╠√------------ 3'
@ 06,45 say '╨▐╕─╖┐╫Γ------------ 13'
@ 07,15 say '╨▐╕─╚²╓╓▓╣╠∙-------- 4'
@ 07,45 say '╨▐╕─▒ú╜í╖╤---------- 14'
@ 08,15 say '╨▐╕─▓╣│╡╖╤---------- 5'
@ 08,45 say '╨▐╕─┐█│╡╖╤---------- 15'
@ 09,15 say '╨▐╕─┤ó╜≡------------ 6'
@ 09,45 say '╨▐╕─╡µ┐ε------------ 16'
@ 10,15 say '╨▐╕─╣·┐Γ------------ 7'
@ 10,45 say '╨▐╕─▒ú╧╒╜≡---------- 17'
@ 11,15 say '╨▐╕─▓í,╩┬,┐⌡,╨▌╠∞╩²- 8'
@ 11,45 say '╨▐╕─╥╣▓═------------ 18'
@ 12,15 say '╨▐╕─▓╣╖ó------------ 9'
@ 12,45 say '╨▐╕─╥⌐╖╤------------ 19'
@ 13,15 say '╨▐╕─╢α╧ε------------ 10'
@ 13,45 say '╨▐╕─╕í╢»------------ 20'
@ 14,45 say '═╦│÷---------------- 21'
@ 16,10 say '╟δ╩Σ╚δ─·╥¬╤í╘±╡─╣ª─▄▒α║┼' get d
     read
do case
   case d=1
        bh=0
        jbgz=0
        clear
        aa=.t.
        do while aa
        input '╟δ╩Σ╚δ╥¬╨▐╕─╗∙▒╛╣ñ╫╩╡─╓░╣ñ▒α║┼:  ' to bh
        go bh
        ?
        list next 1 ╨╒├√,╗∙▒╛╣ñ╫╩ for bh=▒α║┼
        ?
        ?
        input '╧╓╗∙▒╛╣ñ╫╩╕─╬¬:  ' to jbgz
        replace next 1 ╗∙▒╛╣ñ╫╩ with jbgz for bh=▒α║┼
        ?
        accept '╩╟╖±╗╣╥¬╨▐╕─╞Σ╦ⁿ╓░╣ñ╡─╗∙▒╛╣ñ╫╩(y/n)? ' to cc
        ?
        if cc='n'.or.cc='N'
           aa=.f.
        endif
        enddo
   case d=2
        e=0
        clear
        @ 10,30 say '┴╕▓ε═│╥╗╕─╬¬: ' get e
             read
        replace all ┴╕▓ε with e
   case d=3
        f=0.00
        clear
        @ 10,30 say '╬∩╠∙═│╥╗╕─╬¬: ' get f
             read
        replace all ╬∩╠∙ with f
   case d=4
        g=0
        clear
        @ 10,30 say '╚²╓╓▓╣╠∙═│╥╗╕─╬¬: ' get g
             read
        replace all ╚²╠∙ with g
   case d=5
        bh=0
        bcf=0
        clear
        ad=.t.
        do while ad
        input '╟δ╩Σ╚δ─·╥¬╨▐╕─▓╣│╡╖╤╡─╓░╣ñ▒α║┼:  ' to bh
        go bh
        ?
        list next 1 ╨╒├√,▓╣│╡╖╤ for bh=▒α║┼
        ?
        ?
        input '╧╓▓╣│╡╖╤╕─╬¬:  ' to bcf
        replace next 1 ▓╣│╡╖╤ with bcf for bh=▒α║┼
        ?
        accept '╩╟╖±╗╣╥¬╨▐╕─╞Σ╦√╓░╣ñ╡─▓╣│╡╖╤(y/n)?  ' to ae
        ?
        if ae='n'.or.ae='N'
           ad=.f.
        endif
        enddo
   case d=6
        bh=0
        cj=0
        clear
        ah=.t.
        do while ah
        input '╟δ╩Σ╚δ─·╥¬╨▐╕─┤ó╜≡╡─╓░╣ñ▒α║┼:  ' to bh
        go bh
        ?
        list next 1 ╨╒├√,┤ó╜≡ for bh=▒α║┼
        ?
        ?
        input '╧╓┤ó╜≡╕─╬¬:  ' to cj
        replace next 1 ┤ó╜≡ with cj for bh=▒α║┼
        ?
        accept '╩╟╖±╗╣╥¬╨▐╕─╞Σ╦√╓░╣ñ╡─┤ó╜≡(y/n)?  ' to aj
        ?
        if aj='n'.or.aj='N'
           ah=.f.
        endif
        enddo
   case d=7
        clear
        go top
        do while .not.eof()
        store recno() to rno
        go rno
        ?
        list next 1 ╨╒├√,╣·┐Γ for ▒α║┼=rno
        ?
        input '╣·┐Γ╩╟: ' to gk
        replace next 1 ╣·┐Γ with gk for ▒α║┼=rno
        skip
        enddo
   case d=8
        u=0
        v=0
        y=0
        w=0
        x=0
        lb=0
        klb=0
        kbj=0
        yfs=0
        zkk=0
        sfs=0
        bh=0
        clear
        rr=.t.
        do while rr
        input '╟δ╩Σ╚δ╥¬╨▐╕─▓í,╩┬,┐⌡,╨▌╠∞╩²╡─╓░╣ñ▒α║┼:  ' to bh
        rrr=.t.
        do while rrr
        go bh
        store ╗∙▒╛╣ñ╫╩ to jbgz
        ?
        list next 1 ╨╒├√ for bh=▒α║┼
        ?
        ?
        input '╩┬╝┘╢α╔┘╠∞?  ' to u
        input '▓í╝┘╢α╔┘╠∞?  ' to v
        input '┐⌡╣ñ╢α╔┘╠∞?  ' to y
        input '└═▒ú╢α╔┘╠∞?  ' to lb
        input '╗Θú¼╔Ñú¼▓·ú¼╠╜╟╫╝┘╗≥╣ñ╔╦╢α╔┘╠∞?  ' to w
        ?
        ?
        accept '╩Σ╚δ╡─╩²╛▌╢╘┬≡(y/n)?   ' to rrrr
        if rrrr='y'.or.rrrr='Y'
           rrr=.f.
        endif
        enddo
        replace next 1 ╩┬╝┘╠∞╩² with u for bh=▒α║┼
        replace next 1 ▓í╝┘╠∞╩² with v for bh=▒α║┼
        if ╣ñ╓╓<>'╤º═╜'
        replace next 1 ╩┬╝┘ with jbgz/ygzr*u+jbgz/ygzr*y for bh=▒α║┼
        klb=jbgz/ygzr*lb
        if yy-╚δ│º─Ω╘┬<2
           kbj=jbgz/ygzr*v*0.4
        endif
        if yy-╚δ│º─Ω╘┬>=2.and.yy-╚δ│º─Ω╘┬<4
           kbj=jbgz/ygzr*v*0.3
        endif
        if yy-╚δ│º─Ω╘┬>=4.and.yy-╚δ│º─Ω╘┬<6
           kbj=jbgz/ygzr*v*0.2
        endif
        if yy-╚δ│º─Ω╘┬>=6.and.yy-╚δ│º─Ω╘┬<8
           kbj=jbgz/ygzr*v*0.1
        endif
        if yy-╚δ│º─Ω╘┬>=8
           kbj=0
        endif
        replace next 1 ▓í╝┘ with klb+kbj for bh=▒α║┼
        endif
        if ╣ñ╓╓='╤º═╜'
        replace next 1 ╩┬╝┘ with jbgz/ygzr*y for bh=▒α║┼
        endif
        u1=round(u,0)
        v1=round(v,0)
        w11=round(w,0)
        if u1<u
           u11=22*0.1*(u1+0.5)
        endif
        if u1>=u
           u11=22*0.1*u1
        endif
        if v1<v
           v11=22/ygzr*(v1+0.5)
        endif
        if v1>=v
           v11=22/ygzr*v1
        endif
        if w11<w
           w111=0.5*(w11+0.5+lb)
        endif
        if w11>=w
           w111=0.5*(w11+lb)
        endif
        szbt=22-u11-v11-w111
        if szbt<0.or.y>0
           szbt=0
        endif
        replace next 1 ╚²╠∙ with szbt for bh=▒α║┼
        if u>13.and.u<ygzr
           replace next 1 ┴╕▓ε with ┴╕▓ε/2,╬∩╠∙ with ╬∩╠∙/2 for bh=▒α║┼
        endif
        if y>=1.and.y<2
           replace next 1 ╬∩╠∙ with ╬∩╠∙-10 for bh=▒α║┼
        endif
        if y>=2.and.y<3
           replace next 1 ╬∩╠∙ with ╬∩╠∙-20 for bh=▒α║┼
        endif
        if u>=ygzr.or.y>=3
           replace next 1 ┴╕▓ε with 0,╬∩╠∙ with 0 for bh=▒α║┼
        endif
        if ┴╕▓ε<0.or.╬∩╠∙<0
           replace next 1 ┴╕▓ε with 0,╬∩╠∙ with 0 for bh=▒α║┼
        endif
        if u+v+y+w+lb>=ygzr/2
           replace next 1 ╟σ╥√ with ╟σ╥√/2 for bh=▒α║┼
        endif
        if u+v+y+w+lb>=ygzr
           replace next 1 ╟σ╥√ with 0 for bh=▒α║┼
        endif
        if u+v+y+w+lb>=20
           replace next 1 ▓╣│╡╖╤ with 0 for bh=▒α║┼
           replace next 1 ┐█│╡╖╤ with 0 for bh=▒α║┼
        endif
        yfs=╗∙▒╛╣ñ╫╩+┴╕▓ε+╬∩╠∙+╥╣▓═+▓╣╖ó+▓╣│╡╖╤+╚²╠∙+▒ú╜í+╟σ╥√+╕í╢»-╩┬╝┘-▓í╝┘
        zkk=╥⌐╖╤+╖┐╫Γ+═╨╖╤+┐█│╡╖╤+┤ó╜≡+╡µ┐ε+╣·┐Γ+▒ú╧╒
        sfs=yfs-zkk
        if sfs<0
           replace next 1 ╥⌐╖╤ with 0,╖┐╫Γ with 0,═╨╖╤ with 0,┐█│╡╖╤ with 0,┤ó╜≡ with 0,╡µ┐ε with 0,╣·┐Γ with 0,▒ú╧╒ with 0 for bh=▒α║┼
        endif
        ?
        ?
        accept '╩╟╖±╗╣╥¬╨▐╕─╞Σ╦√╓░╣ñ╡─▓í,╩┬,┐⌡,╨▌╒Γ╝╕╧ε(y/n)?  ' to uv
        ?
        if uv='n'.or.uv='N'
           rr=.f.
        endif
        ?'***************************************************'
        enddo
   case d=9
        bh=0
        bf=0
        clear
        am1=.t.
        do while am1
        input '╟δ╩Σ╚δ─·╥¬╨▐╕─▓╣╖ó╡─╓░╣ñ▒α║┼:  ' to bh
        go bh
        ?
        list next 1 ╨╒├√,▓╣╖ó for bh=▒α║┼
        ?
        ?
        input '╧╓▓╣╖ó╕─╬¬:  ' to bf
        replace next 1 ▓╣╖ó with bf for bh=▒α║┼
        ?
        accept '╩╟╖±╗╣╥¬╨▐╕─╞Σ╦√╓░╣ñ╡─▓╣╖ó(y/n)?  ' to an
        ?
        if an='n'.or.an='N'
           am1=.f.
        endif
        enddo
   case d=10
        clear
        am11=.t.
        do while am11
        bh=0
        an1='      '
        clear
        @ 2,10 say '╟δ╩Σ╚δ─·╥¬╨▐╕─╢α╧ε╡─╓░╣ñ▒α║┼:  ' get bh
        read
        go bh
        if ▓┐├┼<>'═╦╨▌'
        @ 5,3 say '╘┬╖▌'
        @ 5,16 get ╘┬╖▌
        @ 6,3 say '▒α║┼'
        @ 6,16 get ▒α║┼
        @ 7,3 say '╨╒├√'
        @ 7,16 get ╨╒├√
        @ 8,3 say '╗∙▒╛╣ñ╫╩'
        @ 8,16 get ╗∙▒╛╣ñ╫╩
        @ 9,3 say '╩┬╝┘╠∞╩²'
        @ 9,16 get ╩┬╝┘╠∞╩²
        @ 10,3 say '╩┬╝┘'
        @ 10,16 get ╩┬╝┘
        @ 11,3 say '▓í╝┘╠∞╩²'
        @ 11,16 get ▓í╝┘╠∞╩²
        @ 12,3 say '▓í╝┘'
        @ 12,16 get ▓í╝┘
        @ 13,3 say '┴╕▓ε'
        @ 13,16 get ┴╕▓ε
        @ 14,3 say '╬∩╠∙'
        @ 14,16 get ╬∩╠∙
        @ 15,3 say '╥╣▓═'
        @ 15,16 get ╥╣▓═
        @ 5,28 say '▓╣╖ó'
        @ 5,41 get ▓╣╖ó
        @ 6,28 say '▓╣│╡╖╤'
        @ 6,41 get ▓╣│╡╖╤
        @ 7,28 say '╚²╠∙'
        @ 7,41 get ╚²╠∙
        @ 8,28 say '▒ú╜í'
        @ 8,41 get ▒ú╜í
        @ 9,28 say '╟σ╥√'
        @ 9,41 get ╟σ╥√
        @ 10,28 say '╕í╢»'
        @ 10,41 get ╕í╢»
        @ 11,28 say '╙ª╖ó╩²'
        @ 11,41 get ╙ª╖ó╩²
        @ 12,28 say '╥⌐╖╤'
        @ 12,41 get ╥⌐╖╤
        @ 13,28 say '╖┐╫Γ'
        @ 13,41 get ╖┐╫Γ
        @ 14,28 say '═╨╖╤'
        @ 14,41 get ═╨╖╤
        @ 15,28 say '┐█│╡╖╤'
        @ 15,41 get ┐█│╡╖╤
        @ 16,28 say '┤ó╜≡'
        @ 16,41 get ┤ó╜≡
        @ 5,53 say '╡µ┐ε'
        @ 5,66 get ╡µ┐ε
        @ 6,53 say '╣·┐Γ'
        @ 6,66 get ╣·┐Γ
        @ 7,53 say '▒ú╧╒'
        @ 7,66 get ▒ú╧╒
        @ 8,53 say '╫▄┐█┐ε'
        @ 8,66 get ╫▄┐█┐ε
        @ 9,53 say '╩╡╖ó╩²'
        @ 9,66 get ╩╡╖ó╩²
        @ 10,53 say '┴∞┐ε╚╦'
        @ 10,66 get ┴∞┐ε╚╦
        @ 11,53 say '╦∙╙╨╓╞'
        @ 11,66 get ╦∙╙╨╓╞
        @ 12,53 say '╚δ│º─Ω╘┬'
        @ 12,66 get ╚δ│º─Ω╘┬
        @ 13,53 say '▓┐├┼'
        @ 13,66 get ▓┐├┼
        @ 14,53 say '░α╫Θ'
        @ 14,66 get ░α╫Θ
        @ 15,53 say '╣ñ╓╓'
        @ 15,66 get ╣ñ╓╓
             read
        replace next 1 ▒α║┼ with ▒α║┼,╘┬╖▌ with ╘┬╖▌,╨╒├√ with ╨╒├√,╗∙▒╛╣ñ╫╩ with ╗∙▒╛╣ñ╫╩,╩┬╝┘╠∞╩² with ╩┬╝┘╠∞╩²,╩┬╝┘ with ╩┬╝┘,▓í╝┘╠∞╩² with ▓í╝┘╠∞╩²,▓í╝┘ with ▓í╝┘
        replace next 1 ┴╕▓ε with ┴╕▓ε,╬∩╠∙ with ╬∩╠∙,╥╣▓═ with ╥╣▓═,▓╣╖ó with ▓╣╖ó,▓╣│╡╖╤ with ▓╣│╡╖╤,╚²╠∙ with ╚²╠∙,▒ú╜í with ▒ú╜í,╟σ╥√ with ╟σ╥√,╕í╢» with ╕í╢»,╙ª╖ó╩² with ╙ª╖ó╩²
        replace next 1 ╥⌐╖╤ with ╥⌐╖╤,╖┐╫Γ with ╖┐╫Γ,═╨╖╤ with ═╨╖╤,┐█│╡╖╤ with ┐█│╡╖╤,┤ó╜≡ with ┤ó╜≡,╡µ┐ε with ╡µ┐ε,╣·┐Γ with ╣·┐Γ,▒ú╧╒ with ▒ú╧╒,╫▄┐█┐ε with ╫▄┐█┐ε
        replace next 1 ┴∞┐ε╚╦ with ┴∞┐ε╚╦,╦∙╙╨╓╞ with ╦∙╙╨╓╞,╚δ│º─Ω╘┬ with ╚δ│º─Ω╘┬,▓┐├┼ with ▓┐├┼,░α╫Θ with ░α╫Θ,╣ñ╓╓ with ╣ñ╓╓
        endif
        if ▓┐├┼='═╦╨▌'
        @ 5,3 say '╘┬╖▌'
        @ 5,16 get ╘┬╖▌
        @ 6,3 say '▒α║┼'
        @ 6,16 get ▒α║┼
        @ 7,3 say '╨╒├√'
        @ 7,16 get ╨╒├√
        @ 8,3 say '╗∙▒╛╣ñ╫╩'
        @ 8,16 get ╗∙▒╛╣ñ╫╩
        @ 9,3 say '┴╕▓ε'
        @ 9,16 get ┴╕▓ε
        @ 10,3 say '╬∩╠∙'
        @ 10,16 get ╬∩╠∙
        @ 11,3 say '▓╣╖ó'
        @ 11,16 get ▓╣╖ó
        @ 12,3 say '╚²╠∙'
        @ 12,16 get ╚²╠∙
        @ 5,28 say '╙ª╖ó╩²'
        @ 5,41 get ╙ª╖ó╩²
        @ 6,28 say '╥⌐╖╤'
        @ 6,41 get ╥⌐╖╤
        @ 7,28 say '╖┐╫Γ'
        @ 7,41 get ╖┐╫Γ
        @ 8,28 say '╡µ┐ε'
        @ 8,41 get ╡µ┐ε
        @ 9,28 say '╫▄┐█┐ε'
        @ 9,41 get ╫▄┐█┐ε
        @ 10,28 say '╩╡╖ó╩²'
        @ 10,41 get ╩╡╖ó╩²
        @ 11,28 say '╦∙╙╨╓╞'
        @ 11,41 get ╦∙╙╨╓╞
        @ 12,28 say '▓┐├┼'
        @ 12,41 get ▓┐├┼
             read
        replace next 1 ▒α║┼ with ▒α║┼,╘┬╖▌ with ╘┬╖▌,╨╒├√ with ╨╒├√,╗∙▒╛╣ñ╫╩ with ╗∙▒╛╣ñ╫╩
        replace next 1 ┴╕▓ε with ┴╕▓ε,╬∩╠∙ with ╬∩╠∙,▓╣╖ó with ▓╣╖ó,╚²╠∙ with ╚²╠∙,╙ª╖ó╩² with ╙ª╖ó╩²
        replace next 1 ╥⌐╖╤ with ╥⌐╖╤,╖┐╫Γ with ╖┐╫Γ,╡µ┐ε with ╡µ┐ε,╫▄┐█┐ε with ╫▄┐█┐ε
        replace next 1 ╦∙╙╨╓╞ with ╦∙╙╨╓╞,▓┐├┼ with ▓┐├┼
        endif
        @ 18,20 say '╩╟╖±╗╣╥¬╨▐╕─╞Σ╦√╓░╣ñ╡─╢α╧ε(y/n)?  ' get an1
        read
        if an1='n'.or.an1='N'
           am11=.f.
        endif
        enddo
   case d=11
        clear
        go top
        do while .not.eof()
        store recno() to rno
        go rno
        ?
        list next 1 ╨╒├√,╟σ╥√ for ▒α║┼=rno
        ?
        input '╟σ╥√╩╟: ' to qy
        replace next 1 ╟σ╥√ with qy for ▒α║┼=rno
        skip
        enddo
   case d=12
        m='         '
        clear
        @ 6,30 say '╨▐╕─═╨╖╤╡─└α╨═'
        @ 7,29 say '==============='
        @ 10,25 say '╚í╧√═╨╖╤---------------- 1'
        @ 13,25 say '═│╥╗╕─═╨╖╤-------------- 2'
        @ 16,25 say '╨┬╘÷═╨╖╤---------------- 3'
        @ 19,25 say '═╦│÷-------------------- 4'
        @ 21,20 say '╟δ╩Σ╚δ─·╥¬╤í╘±╡─╣ª─▄▒α║┼:' get m
             read
        if m='1'
           bh=0
           clear
           hh=.t.
           do while hh
           input '╟δ╩Σ╚δ─·╥¬╚í╧√═╨╖╤╡─╓░╣ñ▒α║┼:  ' to bh
           go bh
           ?
           list next 1 ╨╒├√,═╨╖╤ for bh=▒α║┼
           ?
           store 0 to xx
           replace next 1 ═╨╖╤ with xx for bh=▒α║┼
           accept '╩╟╖±╗╣╥¬╚í╧√╞Σ╦√╓░╣ñ╡─═╨╖╤(y/n)?  ' to p
           ?
           ?
           if p='n'.or.p='N'
              hh=.f.
           endif
           enddo
        endif
        if m='2'
           jj=0
           clear
           @ 10,30 say '═╨╖╤═│╥╗╕─╬¬:   ' get jj
                read
           replace all ═╨╖╤ with jj for ═╨╖╤<>0
        endif
        if m='3'
           bh=0
           q=0
           clear
           kk=.t.
           do while kk
           input '╟δ╩Σ╚δ─·╥¬╨┬╘÷═╨╖╤╡─╓░╣ñ▒α║┼:  ' to bh
           go bh
           ?
           list next 1 ╨╒├√,═╨╖╤ for bh=▒α║┼
           ?
           input '╨┬╘÷╓░╣ñ═╨╖╤╬¬:  ' to q
           ?
           replace next 1 ═╨╖╤ with q for bh=▒α║┼
           accept '╩╟╖±╗╣╥¬╘÷╝╙╨┬╘÷╓░╣ñ═╨╖╤(y/n)?  ' to r
           ?
           if r='n'.or.r='N'
              kk=.f.
           endif
           enddo
        endif
        if m='4'
           ? '═╦│÷'
        endif
   release m,kk,r,q,bh,jj,hh,p,xx
   case d=13
        bh=0
        clear
        pp=.t.
        do while pp
        input '╟δ╩Σ╚δ╥¬╨▐╕─╖┐╫Γ╡─╓░╣ñ▒α║┼:  ' to bh
        go bh
        ?
        list next 1 ╨╒├√,╖┐╫Γ for bh=▒α║┼
        ?
        input '╧╓╖┐╫Γ╕─╬¬:  ' to fz
        ?
        replace next 1 ╖┐╫Γ with fz for bh=▒α║┼
        accept '╩╟╖±╗╣╥¬╨▐╕─╞Σ╦√╓░╣ñ╡─╖┐╫Γ(y/n)?  ' to qq
        ?
        if qq='n'.or.qq='N'
           pp=.f.
        endif
        enddo
   case d=14
        j='          '
        clear
        @ 8,30 say '╨▐╕─▒ú╜í╖╤╡─└α╨═'
        @ 9,29 say '================='
        @ 12,25 say '═│╥╗╨▐╕─▒ú╜í╖╤------------------- 1'
        @ 15,25 say '╓╗╨▐╕─╕÷▒≡╓░╣ñ╡─▒ú╜í╖╤----------- 2'
        @ 18,25 say '═╦│÷----------------------------- 3'
        @ 21,25 say '╟δ╩Σ╚δ─·╥¬╤í╘±╡─╣ª─▄▒α║┼:' get j
             read
        if j='1'
           k=0
           clear
           @ 10,30 say '▒ú╜í╖╤═│╥╗╕─╬¬:' get k
                read
           replace all ▒ú╜í with k for ▒ú╜í<>0
        endif
        if j='2'
           bh=0
           bgf=0
           clear
           ee=.t.
           do while ee
           input '╟δ╩Σ╚δ─·╥¬╨▐╕─▒ú╜í╖╤╡─╓░╣ñ▒α║┼:  ' to bh
           go bh
           ?
           list next 1 ╨╒├√,▒ú╜í for bh=▒α║┼
           ?
           input '╧╓▒ú╜í╖╤╕─╬¬:  ' to bgf
           replace next 1 ▒ú╜í with bgf for bh=▒α║┼
           ?
           accept '╩╟╖±╗╣╥¬╨▐╕─╞Σ╦√╓░╣ñ╡─▒ú╜í╖╤(y/n)?  ' to l
           ?
           if l='n'.or.l='N'
              ee=.f.
           endif
           enddo
        endif
        if j='3'
           ? '═╦│÷'
        endif
        release j,ee,l,bh,k,bgf
   case d=15
        bh=0
        kcf=0
        clear
        af=.t.
        do while af
        input '╟δ╩Σ╚δ╥¬╨▐╕─┐█│╡╖╤╡─╓░╣ñ▒α║┼:   ' to bh
        go bh
        ?
        list next 1 ╨╒├√,┐█│╡╖╤ for bh=▒α║┼
        ?
        input '╧╓┐█│╡╖╤╕─╬¬:  ' to kcf
        replace next 1 ┐█│╡╖╤ with kcf for bh=▒α║┼
        ?
        accept '╩╟╖±╗╣╥¬╨▐╕─╞Σ╦√╓░╣ñ╡─┐█│╡╖╤(y/n)?   ' to ag
        ?
        if ag='n'.or.ag='N'
           af=.f.
        endif
        enddo
   case d=16
        bh=0
        dk=0
        clear
        ak=.t.
        do while ak
        input '╟δ╩Σ╚δ╥¬╨▐╕─╡µ┐ε╡─╓░╣ñ▒α║┼:  ' to bh
        go bh
        ?
        list next 1 ╨╒├√,╡µ┐ε for bh=▒α║┼
        ?
        input '╧╓╡µ┐ε╕─╬¬:  ' to dk
        replace next 1 ╡µ┐ε with dk for bh=▒α║┼
        ?
        accept '╩╟╖±╗╣╥¬╨▐╕─╞Σ╦√╓░╣ñ╡─╡µ┐ε(y/n)?  ' to al
        ?
        if al='n'.or.al='N'
           ak=.f.
        endif
        enddo
   case d=17
        bh=0
        bxg=0
        clear
        ap=.t.
        do while ap
        input '╟δ╩Σ╚δ╥¬╨▐╕─▒ú╧╒╜≡╡─╓░╣ñ▒α║┼:  ' to bh
        go bh
        ?
        list next 1 ╨╒├√,▒ú╧╒ for bh=▒α║┼
        ?
        input '╧╓▒ú╧╒╜≡╕─╬¬:  ' to bxg
        replace next 1 ▒ú╧╒ with bxg for bh=▒α║┼
        ?
        accept '╩╟╖±╗╣╥¬╨▐╕─╞Σ╦√╓░╣ñ╡─▒ú╧╒╜≡(y/n)?  ' to aq
        ?
        if aq='n'.or.aq='N'
           ap=.f.
        endif
        enddo
   case d=18
        clear
        go top
        do while .not.eof()
        store recno() to rno
        go rno
        ?
        list next 1 ╨╒├√,╥╣▓═ for ▒α║┼=rno
        ?
        input '╥╣░α╢α╔┘╠∞:  ' to yb
        replace next 1 ╥╣▓═ with 1.5*yb for ▒α║┼=rno
        skip
        enddo
   case d=19
        bh=0
        yf=0
        clear
        am2=.t.
        do while am2
        input '╟δ╩Σ╚δ─·╥¬╨▐╕─╥⌐╖╤╡─╓░╣ñ▒α║┼:  ' to bh
        go bh
        ?
        list next 1 ╨╒├√,╥⌐╖╤ for bh=▒α║┼
        ?
        ?
        input '╧╓╥⌐╖╤╕─╬¬:  ' to yf
        replace next 1 ╥⌐╖╤ with yf for bh=▒α║┼
        ?
        accept '╩╟╖±╗╣╥¬╨▐╕─╞Σ╦√╓░╣ñ╡─╥⌐╖╤(y/n)?  ' to an
        ?
        if an='n'.or.an='N'
           am2=.f.
        endif
        enddo
   case d=20
        bh=0
        fdgz=0
        clear
        fd1=.t.
        do while fd1
        input '╟δ╩Σ╚δ╥¬╨▐╕─╕í╢»╣ñ╫╩╡─╓░╣ñ▒α║┼:  ' to bh
        go bh
        ?
        list next 1 ╨╒├√,╕í╢» for bh=▒α║┼
        ?
        ?
        input '╧╓╕í╢»╣ñ╫╩╕─╬¬:  ' to fdgz
        replace next 1 ╕í╢» with fdgz for bh=▒α║┼
        ?
        accept '╩╟╖±╗╣╥¬╨▐╕─╞Σ╦ⁿ╓░╣ñ╡─╕í╢»╣ñ╫╩(y/n)? ' to fd2
        ?
        if fd2='n'.or.fd2='N'
           fd1=.f.
        endif
        enddo
   case d=21
       if w1='╓▒╩⌠'.or.w1='╕ú└√'.or.w1='╟░▓µ'.or.w1='│σ╤╣'.or.w1='╙═╞ß'.or.w1='▒╕┴╧'.or.w1='╗·─ú'.or.w1='╨┬▓·╞╖'.or.w1='╫▄╫░'
           replace all ╙ª╖ó╩² with ╗∙▒╛╣ñ╫╩+┴╕▓ε+╬∩╠∙+╥╣▓═+▓╣╖ó+▓╣│╡╖╤+╚²╠∙+▒ú╜í+╟σ╥√+╕í╢»-╩┬╝┘-▓í╝┘
           replace all ╫▄┐█┐ε with ╥⌐╖╤+╖┐╫Γ+═╨╖╤+┐█│╡╖╤+┤ó╜≡+╡µ┐ε+╣·┐Γ+▒ú╧╒
           replace all ╩╡╖ó╩² with ╙ª╖ó╩²-╫▄┐█┐ε
        endif
        if w1='═╦╨▌'
           replace all ╙ª╖ó╩² with ╗∙▒╛╣ñ╫╩+┴╕▓ε+╬∩╠∙+▓╣╖ó+╚²╠∙
           replace all ╫▄┐█┐ε with ╥⌐╖╤+╖┐╫Γ+╡µ┐ε
           replace all ╩╡╖ó╩² with ╙ª╖ó╩²-╫▄┐█┐ε
        endif
store .f. to b
endcase
enddo
release all
use
return