|
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
|