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

10 PRINT "ENTER ONE POSITIVE INTEGER: "
20 INPUT I
30 PRINT "ENTER OTHER POSITIVE INTEGER: "
40 INPUT J
50 LET A(I,J) = I*J
60 PRINT "A(";I;",";J;") = ";A(I,J)
70 END