标题巧用dBASEⅢ绘高精度统计直方图

　　*zftprg
　　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
　　*zprg
　　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