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

10 INPUT "ENTER TWO INTEGERS:"; X%, Y%
20 DIM A%(X% - 1, Y% - 1)
30 X% = RND(1) * X%
40 Y% = RND(1) * Y%
50 A%(X%, Y%) = -32767
60 PRINT A%(X%, Y%)
70 CLEAR