RosettaCodeData/Task/Array-length/S-BASIC/array-length.basic

14 lines
298 B
Plaintext

dim string animals(2) rem here is our array
var array_struct_address = integer
based array_size = integer
animals(1) = "ardvark"
animals(2) = "bison"
location spec array_struct_address = animals
base array_size at array_struct_address + 5
print "Size of array ="; array_size
end