Dim sstep, smax
    Dim sLowLabel, sHighLabel

    set i=Null
    smax = 99.9
    sstep = 100.0/7.0
    i = cdouble(0)
    while true
        if i > smax then exit while
        sLowLabel = ctext(cdouble(CLong(i*100))*0.01)
        sHighLabel = ctext(cdouble(CLong((i+sstep)*100-1))*0.01)
        axis = axis + ", _range_"+ctext(clong(i))+" 'NET: "+sLowLabel+" - "+sHighLabel+"' expression('D1a[{_1}].Num>="+ctext(i)+iif(i+sstep<=smax," and D1a[{_1}].Num<"+ctext(i+sstep),"")+"')"
        i = cdouble(cdouble(i) + cdouble(sstep))
    end while
    axis = axis.replace("99.99","100")
    axis = axis.replace("<"+"100","<="+"100")