RosettaCodeData/Task/Twos-complement/Yabasic/twos-complement.basic
2026-04-30 12:34:36 -04:00

16 lines
182 B
Text

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