www.pudn.com > jq_transfile.ARJ > HZSZ.PRG

*--------------------------------------------------------------------- 
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