Compile function Test_Kevin(VOID)

Ans = 0
MaxKey = ""

Open "PM_HIST" to hTable then
    ClearSelect
    Select hTable
    Done = 0
    Loop
        ReadNext Key else Done = 1
    Until Done
        Read Rec from hTable, Key then
            Count = DCount(Rec, @VM)
            If Count GT Ans then
                Ans = Count
                MaxKey = Key
            end
        end
    Repeat
end
	
Ans = MaxKey:" - ":Ans
Return Ans