sub ac_integer.set (v as integer) for i as integer = lbound(value) to ubound(value) *value(I).set v if *value(I).get <> v then value(i) = 0 next

end sub

function ac_integer.get as integer

for i as integer = lbound(value) to ubound(value) for i2 as integer = lbound(value) to ubound(value)-1 if i <> i2 then if *value(i).get<>*value(i2).get then *value(i).set *value(i2+1 mod ubound(value)).get end if if *value(i2+1 mod ubound(value)).get <> *value(i).get then *value(i2+1 mod ubound(value)).set *value(i).get end if end if next next if *value(lbound(value)).get = *value(ubound(value)).get then return *value(lbound(value)).get else return 0end function