d = 1234567 dim b(8) b(0) = -d b(1) = -d+1 b(2) = -2 b(3) = -1 b(4) = 0 b(5) = 1 b(6) = 2 b(7) = d-2 b(8) = d-1 for i = 0 to arraysize(b(), 1) print b(i), " -> ", -b(i) next i