RosettaCodeData/Task/Create-a-two-dimensional-array-at-runtime/True-BASIC/create-a-two-dimensional-array-at-runtime.basic

INPUT prompt "Enter two positive integers, separated by a comma ": i, j
DIM array(0,0)
MAT REDIM array(1 TO i, 1 TO j)
LET array(i, j) = i*j
PRINT "a("; STR$(i); ","; STR$(j); ") ="; array(i, j)
MAT REDIM array(0,0)
END