PROGRAM DYNAMIC

!$DYNAMIC
DIM A%[0,0]

BEGIN
  PRINT(CHR$(12);) !CLS
  INPUT("Subscripts",R%,C%)
  !$DIM A%[R%,C%]
  A%[2,3]=6
  PRINT("Value in row";2;"and col";3;"is";A%[2,3])
END PROGRAM