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