Sub KSONE(DATA(), N, D, PROB)
    Call SORT(N, DATA())
    EN = N
    D = 0#
    FO = 0#
    For J = 1 To N
        FQ = J / EN
        FF = FUNC(DATA(J))
        DT = Abs(FO - FF)
        If Abs(FQ - FF) > DT Then DT = Abs(FQ - FF)
        If DT > D Then D = DT
        FO = FQ
    Next J
    PROB = PROBKS(Sqr(EN) * D)
End Sub