RosettaCodeData/Task/Arrays/BASIC/arrays.bas

3 lines
44 B
QBasic

OPTION BASE 1
DIM myArray(100) AS INTEGER