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

100 INPUT PROMPT "Enter array dimensions separated by a coma: ":A,B
110 NUMERIC ARRAY(1 TO A,1 TO B)
120 LET ARRAY(1,1)=PI
130 PRINT ARRAY(1,1)