13 lines
157 B
Text
13 lines
157 B
Text
let d = 1234567
|
|
|
|
dim b[d * -1, d * -1 + 1, -2, -1, 0, 1, 2, d - 2, d - 1]
|
|
|
|
arraysize s, b
|
|
|
|
for i = 0 to s - 1
|
|
|
|
print b[i], " : ", b[i] * -1
|
|
|
|
next i
|
|
|
|
end
|