lastGood = -1
hLo (I) = lastGood
hBase(I) = lastGood
lastGood = I
hLo(I) = lastGood
hBase(I) = lastGood-lField
hHi(I) = lastGood
hHead(I) = lastGood
hHead(I) = lastGood+lField
INTEGER lastGood