English
- *---------------------------------------------------------------------
- priv Color
- Color='B/W,W+/B,W/W,W+/B,W/B,W+/B,GR/W,W/B,N/W,W+/W,+'
- defi wind jqwin1 from 6,20 to 11,60
- acti wind jqwin1
- @1,4 say '请问您的单位是否汇总单位?'
- @ 3,6 get rdio pict"@*H 是;不是" SIZE 1,10,1 DEFAULT 1
- read cycle
- do case
- case rdio=1
- use hz
- repl hzdw with .t.
- use
- case rdio=2
- use hz
- repl hzdw with .f.
- use
- endcase
- deac wind jqwin1
- retu
