var a, b = integer

print "Two-Dimensional Array Example"
input "Size of first dimension"; a
input "Size of second dimension"; b

dim integer test_array(a, b)

test_array(1,1) = 99    rem S-BASIC arrays are indexed from 1

print "Value stored at 1,1 ="; test_array(1,1)

end