巧用dBASEⅢ绘高精度统计直方图
set talk off
clea
set colo to 7/1
@0，2 clea
k=2
i=11
do while i＜=22
x=str(i，2)
do z
i=i＋2
k=k＋12
enddo
set colo to 7/0
@24，o clea
@1，0 say＇96％＇
@6，0 say＇75＇
@12，0 say＇50＇
@18，0 say＇25＇
@24，0 say＇0＇
@24，65 say＇6＇
@24，5 say＇1＇
@24，17 say＇2＇
@24，29 say＇3＇
@24，41 say＇4＇
@24，53 say＇5＇
@24，75 say＇MON＇
wait
retu
*zprg
set colo to 7/4
@m&x，k clea
set colo to 7/1
@m&x，k＋4 clea
x=str(i＋1，2)
set colo to 7/2
@m&x，k＋4，clea
set colo to 7/1
@m&x，k＋8 clea
retu