RosettaCodeData/Task/Arrays/BASIC/arrays-8.basic

10 lines
164 B
Plaintext

REDIM dynamicArray(10) AS INTEGER
dynamicArray(0) = -1
PRINT dynamicArray(0)
REDIM dynamicArray(20)
dynamicArray(20) = 1
PRINT dynamicArray(0), dynamicArray(20)