Sub CHSONE(BINS(), EBINS(), NBINS, KNSTRN, DF, CHSQ, PROB)
    DF = NBINS - 1 - KNSTRN
    CHSQ = 0#
    For J = 1 To NBINS
        If EBINS(J) <= 0# Then
            Print " bad expected number"
            Exit Sub
        End If
        CHSQ = CHSQ + (BINS(J) - EBINS(J)) ^ 2 / EBINS(J)
    Next J
    PROB = GAMMQ(0.5 * DF, 0.5 * CHSQ)
End Sub