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

10 INPUT "Enter two positive integers, separated by a comma"; I, J
20 DIM ARRAY(I, J)
30 ARRAY(I, J) = I * J
40 PRINT "a("; STR$(I); ","; STR$(J); " ) ="; ARRAY(I, J)
50 ERASE ARRAY