parse arg n
If n < 1 Then Do
    n = 1
End

Do i = 1 To n
    xx = d2x(i)
    X.xx = i
End

c = 0

Do i = n To 1 By -1
    if X.i <> "X."i Then Do
        c = c + 1
    End
End
Say c